aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJoakim Verona2011-12-28 04:12:56 +0100
committerJoakim Verona2011-12-28 04:12:56 +0100
commitbb29f044aa967831cd664c54eba0de0c701436ce (patch)
tree1398cc9780bbae0fdad071a3a3765a571c3f6d7b
parent3c935a7e996701244d166f684119f0ff97e25496 (diff)
parent5e605a2e528955721fc6f2bd7b9f174c15075fb1 (diff)
downloademacs-bb29f044aa967831cd664c54eba0de0c701436ce.tar.gz
emacs-bb29f044aa967831cd664c54eba0de0c701436ce.zip
upstream i think
-rw-r--r--ChangeLog27
-rw-r--r--INSTALL.BZR4
-rw-r--r--Makefile.in9
-rw-r--r--README2
-rw-r--r--admin/ChangeLog17
-rw-r--r--admin/FOR-RELEASE7
-rw-r--r--admin/MAINTAINERS4
-rw-r--r--admin/charsets/cp51932.awk2
-rw-r--r--admin/grammars/README13
-rw-r--r--admin/grammars/bovine-grammar.el66
-rw-r--r--admin/grammars/grammar.wy434
-rw-r--r--admin/grammars/srecode-template.wy235
-rw-r--r--admin/grammars/wisent-grammar.el178
-rw-r--r--autogen/config.in5
-rwxr-xr-xautogen/configure24
-rw-r--r--configure.in11
-rw-r--r--doc/emacs/ChangeLog118
-rw-r--r--doc/emacs/building.texi2
-rw-r--r--doc/emacs/cmdargs.texi33
-rw-r--r--doc/emacs/custom.texi11
-rw-r--r--doc/emacs/display.texi142
-rw-r--r--doc/emacs/emacs.texi56
-rw-r--r--doc/emacs/emacsver.texi2
-rw-r--r--doc/emacs/files.texi10
-rw-r--r--doc/emacs/frames.texi660
-rw-r--r--doc/emacs/glossary.texi16
-rw-r--r--doc/emacs/indent.texi386
-rw-r--r--doc/emacs/modes.texi259
-rw-r--r--doc/emacs/programs.texi2
-rw-r--r--doc/emacs/rmail.texi16
-rw-r--r--doc/emacs/text.texi1485
-rw-r--r--doc/emacs/windows.texi6
-rw-r--r--doc/emacs/xresources.texi62
-rw-r--r--doc/lispintro/ChangeLog4
-rw-r--r--doc/lispintro/emacs-lisp-intro.texi4
-rw-r--r--doc/lispintro/makefile.w32-in2
-rw-r--r--doc/lispref/ChangeLog23
-rw-r--r--doc/lispref/display.texi71
-rw-r--r--doc/lispref/spellfile5
-rw-r--r--doc/lispref/text.texi20
-rw-r--r--doc/lispref/two-volume-cross-refs.txt2
-rw-r--r--doc/lispref/windows.texi202
-rw-r--r--doc/man/emacs.12
-rw-r--r--doc/misc/ChangeLog12
-rw-r--r--doc/misc/autotype.texi4
-rw-r--r--doc/misc/calc.texi4
-rw-r--r--doc/misc/ede.texi2
-rw-r--r--doc/misc/eieio.texi2
-rw-r--r--doc/misc/gnus.texi14
-rw-r--r--doc/misc/idlwave.texi184
-rw-r--r--doc/misc/makefile.w32-in165
-rw-r--r--doc/misc/message.texi2
-rw-r--r--doc/misc/org.texi6
-rw-r--r--doc/misc/pcl-cvs.texi4
-rw-r--r--doc/misc/sem-user.texi2
-rw-r--r--doc/misc/semantic.texi2
-rw-r--r--doc/misc/ses.texi2
-rw-r--r--doc/misc/smtpmail.texi2
-rw-r--r--doc/misc/tramp.texi2
-rw-r--r--etc/AUTHORS95
-rw-r--r--etc/MH-E-NEWS2
-rw-r--r--etc/NEWS17
-rw-r--r--etc/NEWS.1-174
-rw-r--r--etc/NEWS.2212
-rw-r--r--etc/NEWS.236
-rw-r--r--etc/TODO2
-rw-r--r--etc/e/eterm-color.ti2
-rw-r--r--etc/refcards/gnus-refcard.tex106
-rw-r--r--etc/themes/deeper-blue-theme.el2
-rw-r--r--etc/themes/light-blue-theme.el2
-rw-r--r--leim/quail/cyrillic.el2
-rw-r--r--leim/quail/ethiopic.el2
-rw-r--r--leim/quail/py-punct.el2
-rw-r--r--leim/quail/pypunct-b5.el2
-rw-r--r--leim/quail/tibetan.el6
-rw-r--r--lib-src/ChangeLog18
-rw-r--r--lib-src/emacsclient.c4
-rw-r--r--lib-src/make-docfile.c4
-rw-r--r--lib-src/makefile.w32-in2
-rw-r--r--lisp/ChangeLog390
-rw-r--r--lisp/ChangeLog.1012
-rw-r--r--lisp/ChangeLog.114
-rw-r--r--lisp/ChangeLog.128
-rw-r--r--lisp/ChangeLog.134
-rw-r--r--lisp/ChangeLog.158
-rw-r--r--lisp/ChangeLog.35
-rw-r--r--lisp/ChangeLog.42
-rw-r--r--lisp/ChangeLog.52
-rw-r--r--lisp/ChangeLog.64
-rw-r--r--lisp/ChangeLog.714
-rw-r--r--lisp/ChangeLog.84
-rw-r--r--lisp/ChangeLog.94
-rw-r--r--lisp/align.el23
-rw-r--r--lisp/allout.el98
-rw-r--r--lisp/bookmark.el2
-rw-r--r--lisp/calc/calc-nlfit.el91
-rw-r--r--lisp/calc/calc.el2
-rw-r--r--lisp/cedet/ChangeLog12
-rw-r--r--lisp/cedet/ede/autoconf-edit.el2
-rw-r--r--lisp/cedet/ede/files.el2
-rw-r--r--lisp/cedet/ede/proj-shared.el4
-rw-r--r--lisp/cedet/ede/proj.el4
-rw-r--r--lisp/cedet/semantic.el2
-rw-r--r--lisp/cedet/semantic/analyze.el4
-rw-r--r--lisp/cedet/semantic/analyze/fcn.el2
-rw-r--r--lisp/cedet/semantic/bovine/c-by.el2
-rw-r--r--lisp/cedet/semantic/bovine/c.el2
-rw-r--r--lisp/cedet/semantic/complete.el2
-rw-r--r--lisp/cedet/semantic/grammar-wy.el505
-rw-r--r--lisp/cedet/semantic/grammar.el6
-rw-r--r--lisp/cedet/semantic/ia-sb.el2
-rw-r--r--lisp/cedet/semantic/lex-spp.el4
-rw-r--r--lisp/cedet/semantic/lex.el4
-rw-r--r--lisp/cedet/semantic/senator.el4
-rw-r--r--lisp/cedet/semantic/sort.el2
-rw-r--r--lisp/cedet/semantic/symref.el2
-rw-r--r--lisp/cedet/semantic/symref/list.el2
-rw-r--r--lisp/cedet/semantic/wisent/javat-wy.el49
-rw-r--r--lisp/cedet/semantic/wisent/js-wy.el106
-rw-r--r--lisp/cedet/semantic/wisent/python-wy.el87
-rw-r--r--lisp/cedet/srecode/srt-wy.el33
-rw-r--r--lisp/cedet/srecode/texi.el2
-rw-r--r--lisp/color.el4
-rw-r--r--lisp/composite.el2
-rw-r--r--lisp/cus-edit.el2
-rw-r--r--lisp/dframe.el2
-rw-r--r--lisp/dired-aux.el3
-rw-r--r--lisp/dired.el2
-rw-r--r--lisp/doc-view.el2
-rw-r--r--lisp/electric.el41
-rw-r--r--lisp/emacs-lisp/advice.el10
-rw-r--r--lisp/emacs-lisp/autoload.el6
-rw-r--r--lisp/emacs-lisp/avl-tree.el64
-rw-r--r--lisp/emacs-lisp/byte-opt.el2
-rw-r--r--lisp/emacs-lisp/bytecomp.el4
-rw-r--r--lisp/emacs-lisp/cconv.el8
-rw-r--r--lisp/emacs-lisp/easy-mmode.el8
-rw-r--r--lisp/emacs-lisp/eieio.el2
-rw-r--r--lisp/emacs-lisp/elint.el2
-rw-r--r--lisp/emacs-lisp/smie.el2
-rw-r--r--lisp/emacs-lisp/testcover.el2
-rw-r--r--lisp/emulation/viper-cmd.el2
-rw-r--r--lisp/emulation/viper-init.el2
-rw-r--r--lisp/emulation/viper-macs.el2
-rw-r--r--lisp/emulation/viper-mous.el2
-rw-r--r--lisp/epg.el4
-rw-r--r--lisp/erc/ChangeLog8
-rw-r--r--lisp/erc/ChangeLog.0212
-rw-r--r--lisp/erc/erc-dcc.el21
-rw-r--r--lisp/erc/erc.el2
-rw-r--r--lisp/eshell/em-hist.el14
-rw-r--r--lisp/files.el2
-rw-r--r--lisp/filesets.el4
-rw-r--r--lisp/follow.el4
-rw-r--r--lisp/frame.el30
-rw-r--r--lisp/gnus/ChangeLog76
-rw-r--r--lisp/gnus/ChangeLog.14
-rw-r--r--lisp/gnus/ChangeLog.28
-rw-r--r--lisp/gnus/compface.el3
-rw-r--r--lisp/gnus/gmm-utils.el2
-rw-r--r--lisp/gnus/gnus-art.el17
-rw-r--r--lisp/gnus/gnus-group.el6
-rw-r--r--lisp/gnus/gnus-msg.el5
-rw-r--r--lisp/gnus/gnus-start.el2
-rw-r--r--lisp/gnus/gnus-sum.el2
-rw-r--r--lisp/gnus/gnus-topic.el2
-rw-r--r--lisp/gnus/mail-source.el4
-rw-r--r--lisp/gnus/message.el14
-rw-r--r--lisp/gnus/mm-bodies.el4
-rw-r--r--lisp/gnus/mm-decode.el2
-rw-r--r--lisp/gnus/mml.el23
-rw-r--r--lisp/gnus/nnml.el2
-rw-r--r--lisp/gnus/pop3.el6
-rw-r--r--lisp/gnus/rfc2047.el4
-rw-r--r--lisp/gnus/shr.el6
-rw-r--r--lisp/gnus/starttls.el32
-rw-r--r--lisp/help.el2
-rw-r--r--lisp/htmlfontify.el21
-rw-r--r--lisp/ido.el4
-rw-r--r--lisp/indent.el85
-rw-r--r--lisp/info.el18
-rw-r--r--lisp/international/cp51932.el3
-rw-r--r--lisp/international/fontset.el4
-rw-r--r--lisp/international/mule.el4
-rw-r--r--lisp/international/titdic-cnv.el66
-rw-r--r--lisp/isearch.el26
-rw-r--r--lisp/language/ethio-util.el2
-rw-r--r--lisp/language/tibet-util.el2
-rw-r--r--lisp/language/tibetan.el8
-rw-r--r--lisp/ldefs-boot.el1689
-rw-r--r--lisp/lpr.el6
-rw-r--r--lisp/mail/binhex.el5
-rw-r--r--lisp/mail/feedmail.el2
-rw-r--r--lisp/mail/rmail.el65
-rw-r--r--lisp/mail/rmailkwd.el3
-rw-r--r--lisp/mail/rmailmm.el3
-rw-r--r--lisp/mail/rmailout.el6
-rw-r--r--lisp/mail/unrmail.el5
-rw-r--r--lisp/man.el10
-rw-r--r--lisp/mh-e/ChangeLog3
-rw-r--r--lisp/mh-e/ChangeLog.16
-rw-r--r--lisp/mh-e/mh-tool-bar.el2
-rw-r--r--lisp/mpc.el2
-rw-r--r--lisp/net/ange-ftp.el4
-rw-r--r--lisp/net/dbus.el2
-rw-r--r--lisp/net/eudc-export.el2
-rw-r--r--lisp/net/gnutls.el2
-rw-r--r--lisp/net/secrets.el2
-rw-r--r--lisp/net/tls.el4
-rw-r--r--lisp/net/tramp-gvfs.el4
-rw-r--r--lisp/net/tramp-sh.el304
-rw-r--r--lisp/net/tramp.el2
-rw-r--r--lisp/net/xesam.el7
-rw-r--r--lisp/nxml/rng-valid.el2
-rw-r--r--lisp/obsolete/fast-lock.el2
-rw-r--r--lisp/org/ChangeLog8
-rw-r--r--lisp/org/ob.el2
-rw-r--r--lisp/org/org-agenda.el2
-rw-r--r--lisp/org/org-bibtex.el2
-rw-r--r--lisp/org/org-clock.el2
-rw-r--r--lisp/org/org-colview.el4
-rw-r--r--lisp/org/org-freemind.el2
-rw-r--r--lisp/pcmpl-gnu.el3
-rw-r--r--lisp/play/gomoku.el2
-rw-r--r--lisp/play/landmark.el2
-rw-r--r--lisp/printing.el6
-rw-r--r--lisp/progmodes/ada-mode.el6
-rw-r--r--lisp/progmodes/ada-xref.el4
-rw-r--r--lisp/progmodes/cc-cmds.el2
-rw-r--r--lisp/progmodes/cc-engine.el2
-rw-r--r--lisp/progmodes/cc-langs.el2
-rw-r--r--lisp/progmodes/cperl-mode.el8
-rw-r--r--lisp/progmodes/f90.el2
-rw-r--r--lisp/progmodes/fortran.el2
-rw-r--r--lisp/progmodes/gdb-mi.el38
-rw-r--r--lisp/progmodes/grep.el4
-rw-r--r--lisp/progmodes/gud.el4
-rw-r--r--lisp/progmodes/hideshow.el4
-rw-r--r--lisp/progmodes/idlw-shell.el4
-rw-r--r--lisp/progmodes/make-mode.el2
-rw-r--r--lisp/progmodes/prolog.el13
-rw-r--r--lisp/progmodes/sql.el12
-rw-r--r--lisp/progmodes/verilog-mode.el2056
-rw-r--r--lisp/ps-mule.el2
-rw-r--r--lisp/ps-print.el2
-rw-r--r--lisp/repeat.el2
-rw-r--r--lisp/replace.el2
-rw-r--r--lisp/rfn-eshadow.el3
-rw-r--r--lisp/server.el9
-rw-r--r--lisp/ses.el4
-rw-r--r--lisp/speedbar.el2
-rw-r--r--lisp/subr.el2
-rw-r--r--lisp/term.el6
-rw-r--r--lisp/term/common-win.el4
-rw-r--r--lisp/term/ns-win.el2
-rw-r--r--lisp/textmodes/artist.el2
-rw-r--r--lisp/textmodes/bibtex.el4
-rw-r--r--lisp/textmodes/conf-mode.el6
-rw-r--r--lisp/textmodes/fill.el2
-rw-r--r--lisp/textmodes/flyspell.el2
-rw-r--r--lisp/textmodes/ispell.el5
-rw-r--r--lisp/textmodes/reftex-sel.el4
-rw-r--r--lisp/textmodes/rst.el2
-rw-r--r--lisp/textmodes/table.el10
-rw-r--r--lisp/textmodes/tex-mode.el2
-rw-r--r--lisp/textmodes/texinfmt.el4
-rw-r--r--lisp/tutorial.el2
-rw-r--r--lisp/url/ChangeLog3
-rw-r--r--lisp/vc/cvs-status.el2
-rw-r--r--lisp/vc/diff-mode.el10
-rw-r--r--lisp/vc/ediff-help.el10
-rw-r--r--lisp/vc/ediff-util.el6
-rw-r--r--lisp/vc/pcvs-defs.el3
-rw-r--r--lisp/vc/vc-bzr.el3
-rw-r--r--lisp/vc/vc-cvs.el3
-rw-r--r--lisp/vc/vc-mtn.el5
-rw-r--r--lisp/vc/vc.el2
-rw-r--r--lisp/version.el12
-rw-r--r--lisp/view.el7
-rw-r--r--lisp/w32-fns.el2
-rw-r--r--lisp/wdired.el2
-rw-r--r--lisp/whitespace.el6
-rw-r--r--lisp/window.el56
-rw-r--r--lwlib/lwlib.c6
-rw-r--r--msdos/sed2v2.inp2
-rw-r--r--nextstep/Cocoa/Emacs.base/Contents/Info.plist4
-rw-r--r--nextstep/Cocoa/Emacs.base/Contents/Resources/English.lproj/InfoPlist.strings4
-rw-r--r--nextstep/GNUstep/Emacs.base/Resources/Emacs.desktop2
-rw-r--r--nextstep/GNUstep/Emacs.base/Resources/Info-gnustep.plist4
-rw-r--r--nt/ChangeLog22
-rw-r--r--nt/INSTALL24
-rw-r--r--nt/config.nt10
-rwxr-xr-xnt/configure.bat4
-rw-r--r--nt/emacs.rc8
-rw-r--r--nt/emacsclient.rc8
-rw-r--r--nt/inc/inttypes.h6
-rw-r--r--nt/inc/stdint.h10
-rw-r--r--nt/makefile.w32-in2
-rw-r--r--oldXMenu/Activate.c2
-rw-r--r--src/.gdbinit5
-rw-r--r--src/ChangeLog163
-rw-r--r--src/ChangeLog.1010
-rw-r--r--src/ChangeLog.1118
-rw-r--r--src/ChangeLog.34
-rw-r--r--src/ChangeLog.618
-rw-r--r--src/ChangeLog.86
-rw-r--r--src/ChangeLog.92
-rw-r--r--src/buffer.c13
-rw-r--r--src/callint.c2
-rw-r--r--src/ccl.c2
-rw-r--r--src/charset.c4
-rw-r--r--src/cm.h2
-rw-r--r--src/dired.c18
-rw-r--r--src/dispextern.h2
-rw-r--r--src/dispnew.c82
-rw-r--r--src/fileio.c22
-rw-r--r--src/font.c9
-rw-r--r--src/fontset.c2
-rw-r--r--src/fringe.c4
-rw-r--r--src/ftfont.c2
-rw-r--r--src/gtkutil.c8
-rw-r--r--src/gtkutil.h4
-rw-r--r--src/image.c4
-rw-r--r--src/keyboard.c16
-rw-r--r--src/lisp.h247
-rw-r--r--src/lread.c2
-rw-r--r--src/msdos.c2
-rw-r--r--src/nsgui.h3
-rw-r--r--src/nsterm.m4
-rw-r--r--src/process.c43
-rw-r--r--src/s/ms-w32.h8
-rw-r--r--src/search.c61
-rw-r--r--src/term.c2
-rw-r--r--src/w32fns.c5
-rw-r--r--src/w32term.h2
-rw-r--r--src/widget.c13
-rw-r--r--src/widget.h4
-rw-r--r--src/window.c7
-rw-r--r--src/xdisp.c97
-rw-r--r--src/xfaces.c4
-rw-r--r--src/xfns.c12
-rw-r--r--src/xterm.c17
-rw-r--r--src/xterm.h3
-rw-r--r--test/ChangeLog6
-rw-r--r--test/automated/compile-tests.el64
-rw-r--r--test/cedet/cedet-utests.el2
-rw-r--r--test/cedet/semantic-utest.el2
-rw-r--r--test/indent/octave.m2
348 files changed, 8125 insertions, 5197 deletions
diff --git a/ChangeLog b/ChangeLog
index 0232a3f8415..fe4b74535ae 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,26 @@
12011-12-03 Paul Eggert <eggert@cs.ucla.edu>
2
3 * INSTALL.BZR: Mention configure -C, --disable-maintainer-mode.
4
5 Propagate configure flags to sub-configures.
6 * Makefile.in (cache_file, MAINTAINER_MODE_FLAG, CONFIGUREFLAGS):
7 New macros.
8 (config.status, bootstrap): Use them to propagate configure flags
9 to sub-configures.
10 * configure.in (cache_file): AC_SUBST this, for Makefile.in.
11
122011-12-03 Paul Eggert <eggert@cs.ucla.edu>
13
14 * .bzrignore: Add config.cache.
15
162011-11-27 Jan Djärv <jan.h.d@swipnet.se>
17
18 * configure.in: Check for gtk_window_set_has_resize_grip.
19
202011-11-24 Juanma Barranquero <lekktu@gmail.com>
21
22 * configure.in (HAVE_XPM): Fix typo.
23
12011-11-22 Glenn Morris <rgm@gnu.org> 242011-11-22 Glenn Morris <rgm@gnu.org>
2 25
3 * configure.in (EMACSDATA, EMACSDOC): If set, print, since they can 26 * configure.in (EMACSDATA, EMACSDOC): If set, print, since they can
@@ -1434,7 +1457,7 @@
1434 1457
14352010-10-24 Lars Magne Ingebrigtsen <larsi@gnus.org> 14582010-10-24 Lars Magne Ingebrigtsen <larsi@gnus.org>
1436 1459
1437 * configure.in: Remove the BROKEN annotation from gnutls. 1460 * configure.in: Remove the BROKEN annotation from GnuTLS.
1438 1461
14392010-10-22 Glenn Morris <rgm@gnu.org> 14622010-10-22 Glenn Morris <rgm@gnu.org>
1440 1463
@@ -1517,7 +1540,7 @@
15172010-09-26 Lars Magne Ingebrigtsen <larsi@gnus.org> 15402010-09-26 Lars Magne Ingebrigtsen <larsi@gnus.org>
1518 1541
1519 * configure.in (HAVE_GNUTLS): Don't break if we don't have the 1542 * configure.in (HAVE_GNUTLS): Don't break if we don't have the
1520 gnutls libraries. 1543 GnuTLS libraries.
1521 1544
15222010-09-26 Teodor Zlatanov <tzz@lifelogs.com> 15452010-09-26 Teodor Zlatanov <tzz@lifelogs.com>
1523 1546
diff --git a/INSTALL.BZR b/INSTALL.BZR
index 664aab1c765..69babac7a8b 100644
--- a/INSTALL.BZR
+++ b/INSTALL.BZR
@@ -28,6 +28,10 @@ options you can set):
28 28
29 $ ./configure 29 $ ./configure
30 30
31If you want later builds to go faster, at the expense of sometimes
32doing the wrong thing if you update the build procedure, you can
33invoke "./configure -C --disable-maintainer-mode" instead.
34
31Some of the files that are included in the Emacs tarball, such as 35Some of the files that are included in the Emacs tarball, such as
32byte-compiled Lisp files, are not stored in Bazaar. Therefore, to 36byte-compiled Lisp files, are not stored in Bazaar. Therefore, to
33build from Bazaar you must run "make bootstrap" instead of just "make": 37build from Bazaar you must run "make bootstrap" instead of just "make":
diff --git a/Makefile.in b/Makefile.in
index c0d108877c1..3ba7c9baae7 100644
--- a/Makefile.in
+++ b/Makefile.in
@@ -66,6 +66,11 @@ CDPATH=
66 66
67# ==================== Things `configure' Might Edit ==================== 67# ==================== Things `configure' Might Edit ====================
68 68
69MAINTAINER_MODE_FLAG = --disable-maintainer-mode
70@MAINT@MAINTAINER_MODE_FLAG = --enable-maintainer-mode
71cache_file = @cache_file@
72CONFIGURE_FLAGS = --cache-file=$(cache_file) $(MAINTAINER_MODE_FLAG)
73
69CC=@CC@ 74CC=@CC@
70CFLAGS=@CFLAGS@ 75CFLAGS=@CFLAGS@
71LDFLAGS=@LDFLAGS@ 76LDFLAGS=@LDFLAGS@
@@ -404,7 +409,7 @@ config.status: ${srcdir}/configure ${srcdir}/lisp/version.el
404 if [ -x ./config.status ]; then \ 409 if [ -x ./config.status ]; then \
405 ./config.status --recheck; \ 410 ./config.status --recheck; \
406 else \ 411 else \
407 ./configure; \ 412 ./configure $(CONFIGURE_FLAGS); \
408 fi 413 fi
409 414
410AUTOCONF_INPUTS = @MAINT@ $(srcdir)/configure.in $(srcdir)/aclocal.m4 415AUTOCONF_INPUTS = @MAINT@ $(srcdir)/configure.in $(srcdir)/aclocal.m4
@@ -936,7 +941,7 @@ bootstrap: bootstrap-clean FRC
936 if [ -x ./config.status ]; then \ 941 if [ -x ./config.status ]; then \
937 ./config.status; \ 942 ./config.status; \
938 else \ 943 else \
939 ./configure --enable-maintainer-mode; \ 944 ./configure $(CONFIGURE_FLAGS); \
940 fi 945 fi
941 $(MAKE) $(MFLAGS) info all 946 $(MAKE) $(MFLAGS) info all
942 947
diff --git a/README b/README
index 5ec5fa29570..eda81de1bbe 100644
--- a/README
+++ b/README
@@ -2,7 +2,7 @@ Copyright (C) 2001-2011 Free Software Foundation, Inc.
2See the end of the file for license conditions. 2See the end of the file for license conditions.
3 3
4 4
5This directory tree holds version 24.0.91 of GNU Emacs, the extensible, 5This directory tree holds version 24.0.92 of GNU Emacs, the extensible,
6customizable, self-documenting real-time display editor. 6customizable, self-documenting real-time display editor.
7 7
8The file INSTALL in this directory says how to build and install GNU 8The file INSTALL in this directory says how to build and install GNU
diff --git a/admin/ChangeLog b/admin/ChangeLog
index aa815c552b4..4da85943b7f 100644
--- a/admin/ChangeLog
+++ b/admin/ChangeLog
@@ -1,3 +1,16 @@
12011-11-26 Andreas Schwab <schwab@linux-m68k.org>
2
3 * grammars/bovine-grammar.el (bovine--grammar-newstyle-unquote):
4 Avoid warning about old-style backquote.
5
6 * grammars/wisent-grammar.el (auto-mode-alist): Change `$' to `\''
7 in regexp.
8 (wisent-make-parsers): Likewise. Quote `.'.
9
10 * grammars/bovine-grammar.el (auto-mode-alist): Change `$' to `\''
11 in regexp.
12 (bovine-make-parsers): Likewise. Quote `.'.
13
12011-11-20 Andreas Schwab <schwab@linux-m68k.org> 142011-11-20 Andreas Schwab <schwab@linux-m68k.org>
2 15
3 * CPP-DEFINES (VIRT_ADDR_VARIES): Remove. 16 * CPP-DEFINES (VIRT_ADDR_VARIES): Remove.
@@ -897,11 +910,11 @@
897 910
898 * FOR-RELEASE (NEW FEATURES): Completed work on this item: 911 * FOR-RELEASE (NEW FEATURES): Completed work on this item:
899 Rework how fringe bitmaps are defined and used. 912 Rework how fringe bitmaps are defined and used.
900 Currently, bitmap usage and bitmap appearence are "mixed-up" in a 913 Currently, bitmap usage and bitmap appearance are "mixed-up" in a
901 one-level representation. It would be cleaner to split the 914 one-level representation. It would be cleaner to split the
902 representation into a two-level model where first level maps 915 representation into a two-level model where first level maps
903 bitmap usage to a bitmap name, and second level maps bitmap name to 916 bitmap usage to a bitmap name, and second level maps bitmap name to
904 a bitmap appearence. 917 a bitmap appearance.
905 918
9062006-01-27 Chong Yidong <cyd@stupidchicken.com> 9192006-01-27 Chong Yidong <cyd@stupidchicken.com>
907 920
diff --git a/admin/FOR-RELEASE b/admin/FOR-RELEASE
index 01d488c97e3..23d2bd2b16a 100644
--- a/admin/FOR-RELEASE
+++ b/admin/FOR-RELEASE
@@ -170,10 +170,10 @@ entering.texi cyd
170files.texi cyd 170files.texi cyd
171fixit.texi 171fixit.texi
172fortran-xtra.texi 172fortran-xtra.texi
173frames.texi 173frames.texi cyd
174glossary.texi 174glossary.texi
175help.texi cyd 175help.texi cyd
176indent.texi 176indent.texi cyd
177killing.texi cyd 177killing.texi cyd
178kmacro.texi cyd 178kmacro.texi cyd
179macos.texi 179macos.texi
@@ -182,6 +182,7 @@ major.texi
182mark.texi cyd 182mark.texi cyd
183mini.texi 183mini.texi
184misc.texi 184misc.texi
185modes.texi cyd
185msdog.texi 186msdog.texi
186msdog-xtra.texi 187msdog-xtra.texi
187mule.texi 188mule.texi
@@ -197,7 +198,7 @@ text.texi
197trouble.texi 198trouble.texi
198vc-xtra.texi 199vc-xtra.texi
199vc1-xtra.texi 200vc1-xtra.texi
200windows.texi 201windows.texi cyd
201xresources.texi 202xresources.texi
202 203
203** Check the Lisp manual. 204** Check the Lisp manual.
diff --git a/admin/MAINTAINERS b/admin/MAINTAINERS
index e4a04763061..bfac347eb15 100644
--- a/admin/MAINTAINERS
+++ b/admin/MAINTAINERS
@@ -99,6 +99,7 @@ Eli Zaretskii
99 src/xfaces.c 99 src/xfaces.c
100 src/xdisp.c 100 src/xdisp.c
101 src/term.c 101 src/term.c
102 src/dispnew.c
102 src/frame.c 103 src/frame.c
103 src/dired.c 104 src/dired.c
104 105
@@ -108,6 +109,7 @@ Eli Zaretskii
108 lisp/info.el 109 lisp/info.el
109 lisp/ls-lisp.el 110 lisp/ls-lisp.el
110 lisp/startup.el 111 lisp/startup.el
112 lisp/w32*.el
111 113
112Stefan Monnier 114Stefan Monnier
113 src/intervals.c 115 src/intervals.c
@@ -148,7 +150,6 @@ src/coding.c
148src/composite.c 150src/composite.c
149src/config.in 151src/config.in
150src/data.c 152src/data.c
151src/dispnew.c
152src/doc.c 153src/doc.c
153src/doprnt.c 154src/doprnt.c
154src/ecrt0.c 155src/ecrt0.c
@@ -214,7 +215,6 @@ src/w32term.c
214src/w32xfns.c 215src/w32xfns.c
215src/widget.c 216src/widget.c
216src/window.c 217src/window.c
217src/xdisp.c
218src/xfns.c 218src/xfns.c
219src/xmenu.c 219src/xmenu.c
220src/xrdb.c 220src/xrdb.c
diff --git a/admin/charsets/cp51932.awk b/admin/charsets/cp51932.awk
index b611def710d..c8879b30200 100644
--- a/admin/charsets/cp51932.awk
+++ b/admin/charsets/cp51932.awk
@@ -32,7 +32,7 @@
32 32
33BEGIN { 33BEGIN {
34 print ";;; cp51932.el -- translation table for CP51932. -*- no-byte-compile: t -*-"; 34 print ";;; cp51932.el -- translation table for CP51932. -*- no-byte-compile: t -*-";
35 print ";;; Automatically genrated from CP932-2BYTE.map"; 35 print ";;; Automatically generated from CP932-2BYTE.map";
36 print "(let ((map"; 36 print "(let ((map";
37 printf " '(;JISEXT<->UNICODE"; 37 printf " '(;JISEXT<->UNICODE";
38} 38}
diff --git a/admin/grammars/README b/admin/grammars/README
index c8328bbc885..419797e0dcb 100644
--- a/admin/grammars/README
+++ b/admin/grammars/README
@@ -3,17 +3,8 @@ generate the parser data in the lisp/semantic/bovine/ and
3lisp/semantic/wisent/ directories. You can run the parser generators 3lisp/semantic/wisent/ directories. You can run the parser generators
4with 4with
5 5
6emacs -batch --no-site-file -l bovine-grammar.el -f semantic-mode \ 6emacs -batch -Q -l bovine-grammar.el -f bovine-make-parsers
7 -f semantic-grammar-batch-build-packages *.by 7emacs -batch -Q -l wisent-grammar.el -f wisent-make-parsers
8
9emacs -batch --no-site-file -l wisent-grammar.el -f semantic-mode \
10 -f semantic-grammar-batch-build-packages *.wy
11
12The output files were subsequently edited by hand to fix copyright
13headers, variable names (to follow library name conventions), and
14feature names. These changes do not alter the code logic, and can be
15viewed by diffing to the files in lisp/semantic/bovine/ and
16lisp/semantic/wisent/.
17 8
18Currently, the parser files in lisp/ are not generated directly from 9Currently, the parser files in lisp/ are not generated directly from
19these grammar files when making Emacs. This state of affairs, and the 10these grammar files when making Emacs. This state of affairs, and the
diff --git a/admin/grammars/bovine-grammar.el b/admin/grammars/bovine-grammar.el
index 0e8756e1c5b..eda7b42adbd 100644
--- a/admin/grammars/bovine-grammar.el
+++ b/admin/grammars/bovine-grammar.el
@@ -115,7 +115,7 @@ NAME, ALIASCLASS, DEFINITION and ATTRIBUTES."
115;; when it is released, but at the moment it might be possible that people 115;; when it is released, but at the moment it might be possible that people
116;; are using an older snapshot. 116;; are using an older snapshot.
117(defvar bovine--grammar-newstyle-unquote 117(defvar bovine--grammar-newstyle-unquote
118 (equal '(, test) (read ",test"))) 118 (equal '(\, test) (read ",test")))
119 119
120(defun bovine-grammar-expand-form (form quotemode &optional inplace) 120(defun bovine-grammar-expand-form (form quotemode &optional inplace)
121 "Expand FORM into a new one suitable to the bovine parser. 121 "Expand FORM into a new one suitable to the bovine parser.
@@ -434,7 +434,7 @@ Menu items are appended to the common grammar menu.")
434 (grammar-setupcode-builder . bovine-grammar-setupcode-builder) 434 (grammar-setupcode-builder . bovine-grammar-setupcode-builder)
435 ))) 435 )))
436 436
437(add-to-list 'auto-mode-alist '("\\.by$" . bovine-grammar-mode)) 437(add-to-list 'auto-mode-alist '("\\.by\\'" . bovine-grammar-mode))
438 438
439(defvar-mode-local bovine-grammar-mode semantic-grammar-macros 439(defvar-mode-local bovine-grammar-mode semantic-grammar-macros
440 '( 440 '(
@@ -454,4 +454,66 @@ Menu items are appended to the common grammar menu.")
454 454
455(provide 'semantic/bovine/grammar) 455(provide 'semantic/bovine/grammar)
456 456
457(defun bovine-make-parsers ()
458 "Generate Emacs' built-in Bovine-based parser files."
459 (semantic-mode 1)
460 ;; Loop through each .by file in current directory, and run
461 ;; `semantic-grammar-batch-build-one-package' to build the grammar.
462 (dolist (f (directory-files default-directory nil "\\.by\\'"))
463 (let ((packagename
464 (condition-case err
465 (with-current-buffer (find-file-noselect f)
466 (semantic-grammar-create-package))
467 (error (message "%s" (error-message-string err)) nil)))
468 lang)
469 (when (and packagename
470 (string-match "^semantic-\\(.*\\)-by\\.el\\'" packagename))
471 (setq lang (match-string 1 packagename))
472 (with-temp-buffer
473 (insert-file-contents packagename)
474 (setq buffer-file-name (expand-file-name packagename))
475 ;; Fix copyright header:
476 (goto-char (point-min))
477 (re-search-forward "^;; Author:")
478 (setq copyright-end (match-beginning 0))
479 (re-search-forward "^;;; Code:\n")
480 (delete-region copyright-end (match-end 0))
481 (goto-char copyright-end)
482 (insert ";; This file is part of GNU Emacs.
483
484;; GNU Emacs is free software: you can redistribute it and/or modify
485;; it under the terms of the GNU General Public License as published by
486;; the Free Software Foundation, either version 3 of the License, or
487;; (at your option) any later version.
488
489;; GNU Emacs is distributed in the hope that it will be useful,
490;; but WITHOUT ANY WARRANTY; without even the implied warranty of
491;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
492;; GNU General Public License for more details.
493
494;; You should have received a copy of the GNU General Public License
495;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
496
497;;; Commentary:
498;;
499;; This file was generated from admin/grammars/"
500 lang ".by.
501
502;;; Code:
503
504\(require 'semantic/lex)
505\(eval-when-compile (require 'semantic/bovine))\n")
506 (goto-char (point-min))
507 (delete-region (point-min) (line-end-position))
508 (insert ";;; semantic/bovine/" lang
509 "-by.el --- Generated parser support file")
510 (delete-trailing-whitespace)
511 ;; Fix footer:
512 (goto-char (point-max))
513 (re-search-backward ".\n;;; Analyzers")
514 (delete-region (point) (point-max))
515 (insert "(provide 'semantic/bovine/" lang "-by)\n\n")
516 (insert ";;; semantic/bovine/" lang "-by.el ends here\n")
517 (save-buffer))))))
518
457;;; bovine-grammar.el ends here 519;;; bovine-grammar.el ends here
diff --git a/admin/grammars/grammar.wy b/admin/grammars/grammar.wy
new file mode 100644
index 00000000000..18e8b814303
--- /dev/null
+++ b/admin/grammars/grammar.wy
@@ -0,0 +1,434 @@
1;;; semantic-grammar.wy -- LALR grammar of Semantic input grammars
2;;
3;; Copyright (C) 2002-2011 Free Software Foundation, Inc.
4;;
5;; Author: David Ponce <david@dponce.com>
6;; Maintainer: David Ponce <david@dponce.com>
7;; Created: 26 Aug 2002
8;; Keywords: syntax
9;; X-RCS: $Id: semantic-grammar.wy,v 1.16 2005/09/30 20:20:27 zappo Exp $
10
11;; This file is part of GNU Emacs.
12
13;; GNU Emacs is free software: you can redistribute it and/or modify
14;; it under the terms of the GNU General Public License as published by
15;; the Free Software Foundation, either version 3 of the License, or
16;; (at your option) any later version.
17
18;; GNU Emacs is distributed in the hope that it will be useful,
19;; but WITHOUT ANY WARRANTY; without even the implied warranty of
20;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
21;; GNU General Public License for more details.
22
23;; You should have received a copy of the GNU General Public License
24;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
25
26%{
27(defvar semantic-grammar-lex-c-char-re)
28
29;; Current parsed nonterminal name.
30(defvar semantic-grammar-wy--nterm nil)
31;; Index of rule in a nonterminal clause.
32(defvar semantic-grammar-wy--rindx nil)
33}
34
35%package semantic-grammar-wy
36
37%languagemode wy-mode
38
39;; Main
40%start grammar
41;; Reparse
42%start prologue epilogue declaration nonterminal rule
43;; EXPANDFULL
44%start put_names put_values use_names
45
46;; Keywords
47%type <keyword>
48%keyword DEFAULT-PREC "%default-prec"
49%keyword NO-DEFAULT-PREC "%no-default-prec"
50%keyword KEYWORD "%keyword"
51%keyword LANGUAGEMODE "%languagemode"
52%keyword LEFT "%left"
53%keyword NONASSOC "%nonassoc"
54%keyword PACKAGE "%package"
55%keyword PREC "%prec"
56%keyword PUT "%put"
57%keyword QUOTEMODE "%quotemode"
58%keyword RIGHT "%right"
59%keyword SCOPESTART "%scopestart"
60%keyword START "%start"
61%keyword TOKEN "%token"
62%keyword TYPE "%type"
63%keyword USE-MACROS "%use-macros"
64
65;; Literals
66%type <string>
67%token <string> STRING
68
69%type <symbol> syntax ":?\\(\\sw\\|\\s_\\)+"
70%token <symbol> SYMBOL
71%token <symbol> PERCENT_PERCENT "\\`%%\\'"
72
73%type <char> syntax semantic-grammar-lex-c-char-re
74%token <char> CHARACTER
75
76%type <qlist> matchdatatype sexp syntax "\\s'\\s-*("
77%token <qlist> PREFIXED_LIST
78
79%type <sexp> matchdatatype sexp syntax "\\="
80%token <sexp> SEXP
81
82;; Don't generate these analyzers which needs special handling code.
83%token <code> PROLOGUE "%{...%}"
84%token <code> EPILOGUE "%%...EOF"
85
86;; Blocks & Parenthesis
87%type <block>
88%token <block> PAREN_BLOCK "(LPAREN RPAREN)"
89%token <block> BRACE_BLOCK "(LBRACE RBRACE)"
90%token <open-paren> LPAREN "("
91%token <close-paren> RPAREN ")"
92%token <open-paren> LBRACE "{"
93%token <close-paren> RBRACE "}"
94
95;; Punctuations
96%type <punctuation>
97%token <punctuation> COLON ":"
98%token <punctuation> SEMI ";"
99%token <punctuation> OR "|"
100%token <punctuation> LT "<"
101%token <punctuation> GT ">"
102
103%%
104
105grammar:
106 prologue
107 | epilogue
108 | declaration
109 | nonterminal
110 | PERCENT_PERCENT
111 ;
112
113;;; Prologue/Epilogue
114;;
115prologue:
116 PROLOGUE
117 (CODE-TAG "prologue" nil)
118 ;
119
120epilogue:
121 EPILOGUE
122 (CODE-TAG "epilogue" nil)
123 ;
124
125;;; Declarations
126;;
127declaration:
128 decl
129 (eval $1)
130 ;
131
132decl:
133 default_prec_decl
134 | no_default_prec_decl
135 | languagemode_decl
136 | package_decl
137 | precedence_decl
138 | put_decl
139 | quotemode_decl
140 | scopestart_decl
141 | start_decl
142 | keyword_decl
143 | token_decl
144 | type_decl
145 | use_macros_decl
146 ;
147
148default_prec_decl:
149 DEFAULT-PREC
150 `(TAG "default-prec" 'assoc :value '("t"))
151 ;
152
153no_default_prec_decl:
154 NO-DEFAULT-PREC
155 `(TAG "default-prec" 'assoc :value '("nil"))
156 ;
157
158languagemode_decl:
159 LANGUAGEMODE symbols
160 `(TAG ',(car $2) 'languagemode :rest ',(cdr $2))
161 ;
162
163package_decl:
164 PACKAGE SYMBOL
165 `(PACKAGE-TAG ',$2 nil)
166 ;
167
168precedence_decl:
169 associativity token_type_opt items
170 `(TAG ',$1 'assoc :type ',$2 :value ',$3)
171 ;
172
173associativity:
174 LEFT
175 (progn "left")
176 | RIGHT
177 (progn "right")
178 | NONASSOC
179 (progn "nonassoc")
180 ;
181
182put_decl:
183 PUT put_name put_value
184 `(TAG ',$2 'put :value ',(list $3))
185 | PUT put_name put_value_list
186 `(TAG ',$2 'put :value ',$3)
187 | PUT put_name_list put_value
188 `(TAG ',(car $2) 'put :rest ',(cdr $2) :value ',(list $3))
189 | PUT put_name_list put_value_list
190 `(TAG ',(car $2) 'put :rest ',(cdr $2) :value ',$3)
191 ;
192
193put_name_list:
194 BRACE_BLOCK
195 (mapcar 'semantic-tag-name (EXPANDFULL $1 put_names))
196 ;
197
198put_names:
199 LBRACE
200 ()
201 | RBRACE
202 ()
203 | put_name
204 ;; Must return a list of Semantic tags to EXPANDFULL!
205 (TAG $1 'put-name)
206 ;
207
208put_name:
209 SYMBOL
210 | token_type
211 ;
212
213put_value_list:
214 BRACE_BLOCK
215 (mapcar 'semantic-tag-code-detail (EXPANDFULL $1 put_values))
216 ;
217
218put_values:
219 LBRACE
220 ()
221 | RBRACE
222 ()
223 | put_value
224 ;; Must return a list of Semantic tags to EXPANDFULL!
225 (CODE-TAG "put-value" $1)
226 ;
227
228put_value:
229 SYMBOL any_value
230 (cons $1 $2)
231 ;
232
233scopestart_decl:
234 SCOPESTART SYMBOL
235 `(TAG ',$2 'scopestart)
236 ;
237
238quotemode_decl:
239 QUOTEMODE SYMBOL
240 `(TAG ',$2 'quotemode)
241 ;
242
243start_decl:
244 START symbols
245 `(TAG ',(car $2) 'start :rest ',(cdr $2))
246 ;
247
248keyword_decl:
249 KEYWORD SYMBOL string_value
250 `(TAG ',$2 'keyword :value ',$3)
251 ;
252
253token_decl:
254 TOKEN token_type_opt SYMBOL string_value
255 `(TAG ',$3 ',(if $2 'token 'keyword) :type ',$2 :value ',$4)
256 | TOKEN token_type_opt symbols
257 `(TAG ',(car $3) 'token :type ',$2 :rest ',(cdr $3))
258 ;
259
260token_type_opt:
261 ;; EMPTY
262 | token_type
263 ;
264
265token_type:
266 LT SYMBOL GT
267 (progn $2)
268 ;
269
270type_decl:
271 TYPE token_type plist_opt
272 `(TAG ',$2 'type :value ',$3)
273 ;
274
275plist_opt:
276 ;;EMPTY
277 | plist
278 ;
279
280plist:
281 plist put_value
282 (append (list $2) $1)
283 | put_value
284 (list $1)
285 ;
286
287use_name_list:
288 BRACE_BLOCK
289 (mapcar 'semantic-tag-name (EXPANDFULL $1 use_names))
290 ;
291
292use_names:
293 LBRACE
294 ()
295 | RBRACE
296 ()
297 | SYMBOL
298 ;; Must return a list of Semantic tags to EXPANDFULL!
299 (TAG $1 'use-name)
300 ;
301
302use_macros_decl:
303 USE-MACROS SYMBOL use_name_list
304 `(TAG "macro" 'macro :type ',$2 :value ',$3)
305 ;
306
307string_value:
308 STRING
309 (read $1)
310 ;
311
312;; Return a Lisp readable form
313any_value:
314 SYMBOL
315 | STRING
316 | PAREN_BLOCK
317 | PREFIXED_LIST
318 | SEXP
319 ;
320
321symbols:
322 lifo_symbols
323 (nreverse $1)
324 ;
325
326lifo_symbols:
327 lifo_symbols SYMBOL
328 (cons $2 $1)
329 | SYMBOL
330 (list $1)
331 ;
332
333;;; Grammar rules
334;;
335nonterminal:
336 SYMBOL
337 (setq semantic-grammar-wy--nterm $1
338 semantic-grammar-wy--rindx 0)
339 COLON rules SEMI
340 (TAG $1 'nonterminal :children $4)
341 ;
342
343rules:
344 lifo_rules
345 (apply 'nconc (nreverse $1))
346 ;
347
348lifo_rules:
349 lifo_rules OR rule
350 (cons $3 $1)
351 | rule
352 (list $1)
353 ;
354
355rule:
356 rhs
357 (let* ((nterm semantic-grammar-wy--nterm)
358 (rindx semantic-grammar-wy--rindx)
359 (rhs $1)
360 comps prec action elt)
361 (setq semantic-grammar-wy--rindx (1+ semantic-grammar-wy--rindx))
362 (while rhs
363 (setq elt (car rhs)
364 rhs (cdr rhs))
365 (cond
366 ;; precedence level
367 ((vectorp elt)
368 (if prec
369 (error "Duplicate %%prec in `%s:%d' rule" nterm rindx))
370 (setq prec (aref elt 0)))
371 ;; action
372 ((consp elt)
373 ;; don't forget that rhs items are in reverse order, so
374 ;; the end-of-rule semantic action is the first item.
375 (if (or action comps)
376 ;; a mid-rule action
377 (setq comps (cons elt comps)
378 ;; keep rule and action index synchronized
379 semantic-grammar-wy--rindx
380 (1+ semantic-grammar-wy--rindx))
381 ;; the end-of-rule action
382 (setq action (car elt))))
383 ;; item
384 (t
385 (setq comps (cons elt comps)))))
386 (EXPANDTAG
387 (TAG (format "%s:%d" nterm rindx) 'rule
388 :type (if comps "group" "empty")
389 :value comps :prec prec :expr action)))
390 ;
391
392rhs:
393 ;; EMPTY
394 | rhs item
395 (cons $2 $1)
396 | rhs action
397 (cons (list $2) $1)
398 | rhs PREC item
399 (cons (vector $3) $1)
400 ;
401
402action:
403 PAREN_BLOCK
404 | PREFIXED_LIST
405 | BRACE_BLOCK
406 (format "(progn\n%s)"
407 (let ((s $1))
408 (if (string-match "^{[\r\n\t ]*" s)
409 (setq s (substring s (match-end 0))))
410 (if (string-match "[\r\n\t ]*}$" s)
411 (setq s (substring s 0 (match-beginning 0))))
412 s))
413 ;
414
415items:
416 lifo_items
417 (nreverse $1)
418 ;
419
420lifo_items:
421 lifo_items item
422 (cons $2 $1)
423 | item
424 (list $1)
425 ;
426
427item:
428 SYMBOL
429 | CHARACTER
430 ;
431
432%%
433
434;;; grammar.wy ends here
diff --git a/admin/grammars/srecode-template.wy b/admin/grammars/srecode-template.wy
new file mode 100644
index 00000000000..4ff2d7e4e41
--- /dev/null
+++ b/admin/grammars/srecode-template.wy
@@ -0,0 +1,235 @@
1;;; srecode-template.wy --- Semantic Recoder Template parser
2
3;; Copyright (C) 2005-2011 Free Software Foundation, Inc.
4
5;; Author: Eric Ludlam <zappo@gnu.org>
6;; Keywords: syntax
7;; X-RCS: $Id: srecode-template.wy,v 1.10 2009-01-09 23:01:54 zappo Exp $
8
9;; This file is part of GNU Emacs.
10
11;; GNU Emacs is free software: you can redistribute it and/or modify
12;; it under the terms of the GNU General Public License as published by
13;; the Free Software Foundation, either version 3 of the License, or
14;; (at your option) any later version.
15
16;; GNU Emacs is distributed in the hope that it will be useful,
17;; but WITHOUT ANY WARRANTY; without even the implied warranty of
18;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19;; GNU General Public License for more details.
20
21;; You should have received a copy of the GNU General Public License
22;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
23
24;;; Commentary:
25;;
26;; Parser for the Semantic Recoder template language
27;;
28;; Semantic Recoder templates are based on Google Templates
29;; and are at the bottom of the Semantic Recoder API.
30
31%languagemode srecode-mode
32
33%start template_file
34
35;;; KEYWORDS
36%type <keyword>
37%keyword SET "set"
38%put SET summary "set <name> <value>"
39%keyword SHOW "show"
40%put SHOW summary "show <name> ; to show a section"
41%keyword MACRO "macro"
42%put MACRO summary "... macro \"string\" ..."
43%keyword CONTEXT "context"
44%put CONTEXT summary "context <name>"
45%keyword TEMPLATE "template"
46%put TEMPLATE summary "template <name>\\n <template definition>"
47%keyword SECTIONDICTIONARY "sectiondictionary"
48%put SECTIONDICTIONARY summary "sectiondictionary <name>\\n <dictionary entries>"
49%keyword PROMPT "prompt"
50%keyword DEFAULT "default"
51%keyword DEFAULTMACRO "defaultmacro"
52%keyword READ "read"
53%put { PROMPT DEFAULT DEFAULTMACRO READ } summary "prompt <symbol> \"Describe Symbol: \" [default[macro] <lispsym>|\"valuetext\"] [read <lispsym>]"
54%keyword BIND "bind"
55%put BIND summary "bind \"<letter>\""
56
57;;; Punctuation Types
58%type <punctuation> syntax "\\s.+"
59%type <newline>
60%token <newline> newline
61
62%token <separator> TEMPLATE_BLOCK "^----"
63
64;;; Bland default types
65%type <property> ":\\(\\w\\|\\s_\\)*"
66%token <property> property
67
68%type <symbol>
69%token <symbol> symbol
70
71%type <string>
72%token <string> string
73
74%type <number>
75%token <number> number
76
77%%
78
79template_file
80 : newline ( )
81 | context
82 | prompt
83 | variable
84 | template
85 ;
86
87context
88 : CONTEXT symbol newline
89 (TAG $2 'context)
90 ;
91
92prompt
93 : PROMPT symbol string opt-default-fcn opt-read-fcn newline
94 (TAG $2 'prompt :text (read $3) :default $4 :read $5)
95 ;
96
97opt-default-fcn
98 : DEFAULT symbol
99 (progn (read $2))
100 | DEFAULT string
101 (progn (read $2))
102 | DEFAULTMACRO string
103 (progn (cons 'macro (read $2)))
104 | ()
105 ;
106
107opt-read-fcn
108 : READ symbol
109 (progn (read $2))
110 | ()
111 ;
112
113variable
114 : SET symbol insertable-string-list newline
115 (VARIABLE-TAG $2 nil $3)
116 | SHOW symbol newline
117 (VARIABLE-TAG $2 nil t)
118 ;
119
120insertable-string-list
121 : insertable-string
122 (list $1)
123 | insertable-string-list insertable-string
124 (append $1 (list $2))
125 ;
126
127insertable-string
128 : string
129 (read $1)
130 | MACRO string
131 (cons 'macro (read $2))
132 ;
133
134template
135 : TEMPLATE templatename opt-dynamic-arguments newline
136 opt-string
137 opt-section-dictionaries
138 TEMPLATE_BLOCK newline
139 opt-bind
140 (FUNCTION-TAG $2 nil $3 :documentation $5 :code $7
141 :dictionaries $6 :binding $9 )
142 ;
143
144templatename
145 : symbol
146 | PROMPT
147 | CONTEXT
148 | TEMPLATE
149 | DEFAULT
150 | MACRO
151 | DEFAULTMACRO
152 | READ
153 | SET
154 ;
155
156opt-dynamic-arguments
157 : property opt-dynamic-arguments
158 (cons $1 $2)
159 | ()
160 ;
161
162opt-string
163 : string newline
164 ( read $1 )
165 | ()
166 ;
167
168opt-section-dictionaries
169 : () ;; EMPTY
170 | section-dictionary-list
171 ;
172
173section-dictionary-list
174 : one-section-dictionary
175 (list $1)
176 | section-dictionary-list one-section-dictionary
177 (append $1 (list $2))
178 ;
179
180one-section-dictionary
181 : SECTIONDICTIONARY string newline
182 variable-list
183 (cons (read $2) $4)
184 ;
185
186variable-list
187 : variable
188 (EXPANDTAG $1)
189 | variable-list variable
190 (append $1 (EXPANDTAG $2))
191 ;
192
193opt-bind
194 : BIND string newline
195 ( read $2 )
196 | ()
197 ;
198
199%%
200(define-lex-simple-regex-analyzer srecode-template-property-analyzer
201 "Detect and create a dynamic argument properties."
202 ":\\(\\w\\|\\s_\\)*" 'property 0)
203
204(define-lex-regex-analyzer srecode-template-separator-block
205 "Detect and create a template quote block."
206 "^----\n"
207 (semantic-lex-push-token
208 (semantic-lex-token
209 'TEMPLATE_BLOCK
210 (match-end 0)
211 (semantic-lex-unterminated-syntax-protection 'TEMPLATE_BLOCK
212 (goto-char (match-end 0))
213 (re-search-forward "^----$")
214 (match-beginning 0))))
215 (setq semantic-lex-end-point (point)))
216
217
218(define-lex wisent-srecode-template-lexer
219 "Lexical analyzer that handles SRecode Template buffers.
220It ignores whitespace, newlines and comments."
221 semantic-lex-newline
222 semantic-lex-ignore-whitespace
223 semantic-lex-ignore-newline
224 semantic-lex-ignore-comments
225 srecode-template-separator-block
226 srecode-template-wy--<keyword>-keyword-analyzer
227 srecode-template-property-analyzer
228 srecode-template-wy--<symbol>-regexp-analyzer
229 srecode-template-wy--<number>-regexp-analyzer
230 srecode-template-wy--<string>-sexp-analyzer
231 srecode-template-wy--<punctuation>-string-analyzer
232 semantic-lex-default-action
233 )
234
235;;; wisent-dot.wy ends here
diff --git a/admin/grammars/wisent-grammar.el b/admin/grammars/wisent-grammar.el
index d7de1ee6f7b..66045c2294d 100644
--- a/admin/grammars/wisent-grammar.el
+++ b/admin/grammars/wisent-grammar.el
@@ -331,7 +331,7 @@ Menu items are appended to the common grammar menu.")
331 (grammar-setupcode-builder . wisent-grammar-setupcode-builder) 331 (grammar-setupcode-builder . wisent-grammar-setupcode-builder)
332 ))) 332 )))
333 333
334(add-to-list 'auto-mode-alist '("\\.wy$" . wisent-grammar-mode)) 334(add-to-list 'auto-mode-alist '("\\.wy\\'" . wisent-grammar-mode))
335 335
336(defvar-mode-local wisent-grammar-mode semantic-grammar-macros 336(defvar-mode-local wisent-grammar-mode semantic-grammar-macros
337 '( 337 '(
@@ -358,4 +358,180 @@ Menu items are appended to the common grammar menu.")
358 ) 358 )
359 "Semantic grammar macros used in wisent grammars.") 359 "Semantic grammar macros used in wisent grammars.")
360 360
361(defvar wisent-make-parsers--emacs-license
362 ";; This file is part of GNU Emacs.
363
364;; GNU Emacs is free software: you can redistribute it and/or modify
365;; it under the terms of the GNU General Public License as published by
366;; the Free Software Foundation, either version 3 of the License, or
367;; (at your option) any later version.
368
369;; GNU Emacs is distributed in the hope that it will be useful,
370;; but WITHOUT ANY WARRANTY; without even the implied warranty of
371;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
372;; GNU General Public License for more details.
373
374;; You should have received a copy of the GNU General Public License
375;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.")
376
377(defvar wisent-make-parsers--python-license
378 ";; It is derived in part from the Python grammar, used under the
379;; following license:
380;;
381;; PYTHON SOFTWARE FOUNDATION LICENSE VERSION 2
382;; --------------------------------------------
383;; 1. This LICENSE AGREEMENT is between the Python Software Foundation
384;; (\"PSF\"), and the Individual or Organization (\"Licensee\") accessing
385;; and otherwise using this software (\"Python\") in source or binary
386;; form and its associated documentation.
387;;
388;; 2. Subject to the terms and conditions of this License Agreement,
389;; PSF hereby grants Licensee a nonexclusive, royalty-free, world-wide
390;; license to reproduce, analyze, test, perform and/or display
391;; publicly, prepare derivative works, distribute, and otherwise use
392;; Python alone or in any derivative version, provided, however, that
393;; PSF's License Agreement and PSF's notice of copyright, i.e.,
394;; \"Copyright (c) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008,
395;; 2009, 2010 Python Software Foundation; All Rights Reserved\" are
396;; retained in Python alone or in any derivative version prepared by
397;; Licensee.
398;;
399;; 3. In the event Licensee prepares a derivative work that is based
400;; on or incorporates Python or any part thereof, and wants to make
401;; the derivative work available to others as provided herein, then
402;; Licensee hereby agrees to include in any such work a brief summary
403;; of the changes made to Python.
404;;
405;; 4. PSF is making Python available to Licensee on an \"AS IS\"
406;; basis. PSF MAKES NO REPRESENTATIONS OR WARRANTIES, EXPRESS OR
407;; IMPLIED. BY WAY OF EXAMPLE, BUT NOT LIMITATION, PSF MAKES NO AND
408;; DISCLAIMS ANY REPRESENTATION OR WARRANTY OF MERCHANTABILITY OR FITNESS
409;; FOR ANY PARTICULAR PURPOSE OR THAT THE USE OF PYTHON WILL NOT
410;; INFRINGE ANY THIRD PARTY RIGHTS.
411;;
412;; 5. PSF SHALL NOT BE LIABLE TO LICENSEE OR ANY OTHER USERS OF PYTHON
413;; FOR ANY INCIDENTAL, SPECIAL, OR CONSEQUENTIAL DAMAGES OR LOSS AS A
414;; RESULT OF MODIFYING, DISTRIBUTING, OR OTHERWISE USING PYTHON, OR
415;; ANY DERIVATIVE THEREOF, EVEN IF ADVISED OF THE POSSIBILITY THEREOF.
416;;
417;; 6. This License Agreement will automatically terminate upon a
418;; material breach of its terms and conditions.
419;;
420;; 7. Nothing in this License Agreement shall be deemed to create any
421;; relationship of agency, partnership, or joint venture between PSF
422;; and Licensee. This License Agreement does not grant permission to
423;; use PSF trademarks or trade name in a trademark sense to endorse or
424;; promote products or services of Licensee, or any third party.
425;;
426;; 8. By copying, installing or otherwise using Python, Licensee
427;; agrees to be bound by the terms and conditions of this License
428;; Agreement.")
429
430(defvar wisent-make-parsers--ecmascript-license
431 "\n;; It is derived from the grammar in the ECMAScript Language
432;; Specification published at
433;;
434;; http://www.ecma-international.org/publications/standards/Ecma-262.htm
435;;
436;; and redistributed under the following license:
437;;
438;; Redistribution and use in source and binary forms, with or without
439;; modification, are permitted provided that the following conditions
440;; are met:
441;;
442;; 1. Redistributions of source code must retain the above copyright
443;; notice, this list of conditions and the following disclaimer.
444;;
445;; 2. Redistributions in binary form must reproduce the above
446;; copyright notice, this list of conditions and the following
447;; disclaimer in the documentation and/or other materials provided
448;; with the distribution.
449;;
450;; 3. Neither the name of the authors nor Ecma International may be
451;; used to endorse or promote products derived from this software
452;; without specific prior written permission. THIS SOFTWARE IS
453;; PROVIDED BY THE ECMA INTERNATIONAL \"AS IS\" AND ANY EXPRESS OR
454;; IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
455;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
456;; ARE DISCLAIMED. IN NO EVENT SHALL ECMA INTERNATIONAL BE LIABLE FOR
457;; ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
458;; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT
459;; OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
460;; BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
461;; LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
462;; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
463;; USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH
464;; DAMAGE.")
465
466(defvar wisent-make-parsers--parser-file-name
467 `(("semantic-grammar-wy.el"
468 "semantic/grammar-wy")
469 ("srecode-template-wy.el"
470 "srecode/srt-wy")
471 ("wisent-javascript-jv-wy.el"
472 "semantic/wisent/js-wy"
473 "Copyright (C) 1998-2011 Ecma International"
474 ,wisent-make-parsers--ecmascript-license)
475 ("wisent-java-tags-wy.el"
476 "semantic/wisent/javat-wy")
477 ("wisent-python-wy.el"
478 "semantic/wisent/python-wy"
479 "Copyright (C) 2001-2010 Python Software Foundation"
480 ,wisent-make-parsers--python-license)))
481
482(defun wisent-make-parsers ()
483 "Generate Emacs' built-in Wisent-based parser files."
484 (semantic-mode 1)
485 ;; Loop through each .wy file in current directory, and run
486 ;; `semantic-grammar-batch-build-one-package' to build the grammar.
487 (dolist (f (directory-files default-directory nil "\\.wy\\'"))
488 (let ((packagename
489 (condition-case err
490 (with-current-buffer (find-file-noselect f)
491 (semantic-grammar-create-package))
492 (error (message "%s" (error-message-string err)) nil)))
493 output-data)
494 (when (setq output-data (assoc packagename wisent-make-parsers--parser-file-name))
495 (let ((require-name (nth 1 output-data))
496 (additional-copyright (nth 2 output-data))
497 (additional-license (nth 3 output-data))
498 copyright-end)
499 ;; Touch up the generated parsers for Emacs integration.
500 (with-temp-buffer
501 (insert-file-contents packagename)
502 ;; Fix copyright header:
503 (goto-char (point-min))
504 (when additional-copyright
505 (re-search-forward "Copyright (C).*$")
506 (insert "\n;; " additional-copyright))
507 (re-search-forward "^;; Author:")
508 (setq copyright-end (match-beginning 0))
509 (re-search-forward "^;;; Code:\n")
510 (delete-region copyright-end (match-end 0))
511 (goto-char copyright-end)
512 (insert wisent-make-parsers--emacs-license)
513 (insert "\n\n;;; Commentary:
514;;
515;; This file was generated from admin/grammars/"
516 f ".")
517 (when additional-license
518 (insert "\n" additional-license))
519 (insert "\n\n;;; Code:\n
520\(require 'semantic/lex)\n")
521 (goto-char (point-min))
522 (delete-region (point-min) (line-end-position))
523 (insert ";;; " require-name
524 ".el --- Generated parser support file")
525 (delete-trailing-whitespace)
526 (re-search-forward ";;\n(require 'semantic/lex)\n")
527 (delete-region (match-beginning 0) (match-end 0))
528 ;; Fix footer:
529 (goto-char (point-max))
530 (re-search-backward "^(provide")
531 (delete-region (match-beginning 0) (point-max))
532 (goto-char (point-max))
533 (insert "(provide '" require-name ")\n\n")
534 (insert ";;; " require-name ".el ends here\n")
535 (write-region nil nil (expand-file-name packagename))))))))
536
361;;; wisent-grammar.el ends here 537;;; wisent-grammar.el ends here
diff --git a/autogen/config.in b/autogen/config.in
index f1f950cc034..fde44761db4 100644
--- a/autogen/config.in
+++ b/autogen/config.in
@@ -351,6 +351,9 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
351/* Define to 1 if you have the `gtk_widget_set_has_window' function. */ 351/* Define to 1 if you have the `gtk_widget_set_has_window' function. */
352#undef HAVE_GTK_WIDGET_SET_HAS_WINDOW 352#undef HAVE_GTK_WIDGET_SET_HAS_WINDOW
353 353
354/* Define to 1 if you have the `gtk_window_set_has_resize_grip' function. */
355#undef HAVE_GTK_WINDOW_SET_HAS_RESIZE_GRIP
356
354/* Define to 1 if you have the `g_type_init' function. */ 357/* Define to 1 if you have the `g_type_init' function. */
355#undef HAVE_G_TYPE_INIT 358#undef HAVE_G_TYPE_INIT
356 359
@@ -900,7 +903,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
900/* Define to 1 if you have the XkbGetKeyboard function. */ 903/* Define to 1 if you have the XkbGetKeyboard function. */
901#undef HAVE_XKBGETKEYBOARD 904#undef HAVE_XKBGETKEYBOARD
902 905
903/* Define to 1 if you have the Xpm libary (-lXpm). */ 906/* Define to 1 if you have the Xpm library (-lXpm). */
904#undef HAVE_XPM 907#undef HAVE_XPM
905 908
906/* Define to 1 if you have the `XrmSetDatabase' function. */ 909/* Define to 1 if you have the `XrmSetDatabase' function. */
diff --git a/autogen/configure b/autogen/configure
index eae55274761..e75d73196dd 100755
--- a/autogen/configure
+++ b/autogen/configure
@@ -1,6 +1,6 @@
1#! /bin/sh 1#! /bin/sh
2# Guess values for system-dependent variables and create Makefiles. 2# Guess values for system-dependent variables and create Makefiles.
3# Generated by GNU Autoconf 2.65 for emacs 24.0.91. 3# Generated by GNU Autoconf 2.65 for emacs 24.0.92.
4# 4#
5# 5#
6# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001, 6# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001,
@@ -549,8 +549,8 @@ MAKEFLAGS=
549# Identity of this package. 549# Identity of this package.
550PACKAGE_NAME='emacs' 550PACKAGE_NAME='emacs'
551PACKAGE_TARNAME='emacs' 551PACKAGE_TARNAME='emacs'
552PACKAGE_VERSION='24.0.91' 552PACKAGE_VERSION='24.0.92'
553PACKAGE_STRING='emacs 24.0.91' 553PACKAGE_STRING='emacs 24.0.92'
554PACKAGE_BUGREPORT='' 554PACKAGE_BUGREPORT=''
555PACKAGE_URL='' 555PACKAGE_URL=''
556 556
@@ -1845,7 +1845,7 @@ if test "$ac_init_help" = "long"; then
1845 # Omit some internal or obsolete options to make the list less imposing. 1845 # Omit some internal or obsolete options to make the list less imposing.
1846 # This message is too long to be a string in the A/UX 3.1 sh. 1846 # This message is too long to be a string in the A/UX 3.1 sh.
1847 cat <<_ACEOF 1847 cat <<_ACEOF
1848\`configure' configures emacs 24.0.91 to adapt to many kinds of systems. 1848\`configure' configures emacs 24.0.92 to adapt to many kinds of systems.
1849 1849
1850Usage: $0 [OPTION]... [VAR=VALUE]... 1850Usage: $0 [OPTION]... [VAR=VALUE]...
1851 1851
@@ -1919,7 +1919,7 @@ fi
1919 1919
1920if test -n "$ac_init_help"; then 1920if test -n "$ac_init_help"; then
1921 case $ac_init_help in 1921 case $ac_init_help in
1922 short | recursive ) echo "Configuration of emacs 24.0.91:";; 1922 short | recursive ) echo "Configuration of emacs 24.0.92:";;
1923 esac 1923 esac
1924 cat <<\_ACEOF 1924 cat <<\_ACEOF
1925 1925
@@ -2081,7 +2081,7 @@ fi
2081test -n "$ac_init_help" && exit $ac_status 2081test -n "$ac_init_help" && exit $ac_status
2082if $ac_init_version; then 2082if $ac_init_version; then
2083 cat <<\_ACEOF 2083 cat <<\_ACEOF
2084emacs configure 24.0.91 2084emacs configure 24.0.92
2085generated by GNU Autoconf 2.65 2085generated by GNU Autoconf 2.65
2086 2086
2087Copyright (C) 2009 Free Software Foundation, Inc. 2087Copyright (C) 2009 Free Software Foundation, Inc.
@@ -2917,7 +2917,7 @@ cat >config.log <<_ACEOF
2917This file contains any messages produced by compilers while 2917This file contains any messages produced by compilers while
2918running configure, to aid debugging if configure makes a mistake. 2918running configure, to aid debugging if configure makes a mistake.
2919 2919
2920It was created by emacs $as_me 24.0.91, which was 2920It was created by emacs $as_me 24.0.92, which was
2921generated by GNU Autoconf 2.65. Invocation command line was 2921generated by GNU Autoconf 2.65. Invocation command line was
2922 2922
2923 $ $0 $@ 2923 $ $0 $@
@@ -3749,7 +3749,7 @@ fi
3749 3749
3750# Define the identity of the package. 3750# Define the identity of the package.
3751 PACKAGE='emacs' 3751 PACKAGE='emacs'
3752 VERSION='24.0.91' 3752 VERSION='24.0.92'
3753 3753
3754 3754
3755cat >>confdefs.h <<_ACEOF 3755cat >>confdefs.h <<_ACEOF
@@ -11366,7 +11366,8 @@ done
11366 for ac_func in gtk_widget_get_window gtk_widget_set_has_window \ 11366 for ac_func in gtk_widget_get_window gtk_widget_set_has_window \
11367 gtk_dialog_get_action_area gtk_widget_get_sensitive \ 11367 gtk_dialog_get_action_area gtk_widget_get_sensitive \
11368 gtk_widget_get_mapped gtk_adjustment_get_page_size \ 11368 gtk_widget_get_mapped gtk_adjustment_get_page_size \
11369 gtk_orientable_set_orientation 11369 gtk_orientable_set_orientation \
11370 gtk_window_set_has_resize_grip
11370do : 11371do :
11371 as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh` 11372 as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh`
11372ac_fn_c_check_func "$LINENO" "$ac_func" "$as_ac_var" 11373ac_fn_c_check_func "$LINENO" "$ac_func" "$as_ac_var"
@@ -11379,7 +11380,6 @@ _ACEOF
11379fi 11380fi
11380done 11381done
11381 11382
11382
11383fi 11383fi
11384 11384
11385HAVE_DBUS=no 11385HAVE_DBUS=no
@@ -24968,7 +24968,7 @@ cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
24968# report actual input values of CONFIG_FILES etc. instead of their 24968# report actual input values of CONFIG_FILES etc. instead of their
24969# values after options handling. 24969# values after options handling.
24970ac_log=" 24970ac_log="
24971This file was extended by emacs $as_me 24.0.91, which was 24971This file was extended by emacs $as_me 24.0.92, which was
24972generated by GNU Autoconf 2.65. Invocation command line was 24972generated by GNU Autoconf 2.65. Invocation command line was
24973 24973
24974 CONFIG_FILES = $CONFIG_FILES 24974 CONFIG_FILES = $CONFIG_FILES
@@ -25034,7 +25034,7 @@ _ACEOF
25034cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 25034cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
25035ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`" 25035ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`"
25036ac_cs_version="\\ 25036ac_cs_version="\\
25037emacs config.status 24.0.91 25037emacs config.status 24.0.92
25038configured by $0, generated by GNU Autoconf 2.65, 25038configured by $0, generated by GNU Autoconf 2.65,
25039 with options \\"\$ac_cs_config\\" 25039 with options \\"\$ac_cs_config\\"
25040 25040
diff --git a/configure.in b/configure.in
index 5b686e017f6..22cec282202 100644
--- a/configure.in
+++ b/configure.in
@@ -22,7 +22,7 @@ dnl You should have received a copy of the GNU General Public License
22dnl along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. 22dnl along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
23 23
24AC_PREREQ(2.65) 24AC_PREREQ(2.65)
25AC_INIT(emacs, 24.0.91) 25AC_INIT(emacs, 24.0.92)
26AC_CONFIG_HEADER(src/config.h:src/config.in) 26AC_CONFIG_HEADER(src/config.h:src/config.in)
27AC_CONFIG_SRCDIR(src/lisp.h) 27AC_CONFIG_SRCDIR(src/lisp.h)
28AC_CONFIG_AUX_DIR(build-aux) 28AC_CONFIG_AUX_DIR(build-aux)
@@ -184,6 +184,9 @@ OPTION_DEFAULT_OFF([xwidgets],[enable use of some gtk widgets it Emacs buffers])
184dnl http://lists.gnu.org/archive/html/emacs-devel/2008-04/msg01844.html 184dnl http://lists.gnu.org/archive/html/emacs-devel/2008-04/msg01844.html
185OPTION_DEFAULT_ON([makeinfo],[don't require makeinfo for building manuals]) 185OPTION_DEFAULT_ON([makeinfo],[don't require makeinfo for building manuals])
186 186
187## Makefile.in needs the cache file name.
188AC_SUBST(cache_file)
189
187## This is an option because I do not know if all info/man support 190## This is an option because I do not know if all info/man support
188## compressed files, nor how to test if they do so. 191## compressed files, nor how to test if they do so.
189OPTION_DEFAULT_ON([compress-info],[don't compress the installed Info pages]) 192OPTION_DEFAULT_ON([compress-info],[don't compress the installed Info pages])
@@ -1992,8 +1995,8 @@ if test "${HAVE_GTK}" = "yes"; then
1992 AC_CHECK_FUNCS(gtk_widget_get_window gtk_widget_set_has_window \ 1995 AC_CHECK_FUNCS(gtk_widget_get_window gtk_widget_set_has_window \
1993 gtk_dialog_get_action_area gtk_widget_get_sensitive \ 1996 gtk_dialog_get_action_area gtk_widget_get_sensitive \
1994 gtk_widget_get_mapped gtk_adjustment_get_page_size \ 1997 gtk_widget_get_mapped gtk_adjustment_get_page_size \
1995 gtk_orientable_set_orientation) 1998 gtk_orientable_set_orientation \
1996 1999 gtk_window_set_has_resize_grip)
1997fi 2000fi
1998 2001
1999 2002
@@ -2486,7 +2489,7 @@ no_return_alloc_pixels
2486 fi 2489 fi
2487 2490
2488 if test "${HAVE_XPM}" = "yes"; then 2491 if test "${HAVE_XPM}" = "yes"; then
2489 AC_DEFINE(HAVE_XPM, 1, [Define to 1 if you have the Xpm libary (-lXpm).]) 2492 AC_DEFINE(HAVE_XPM, 1, [Define to 1 if you have the Xpm library (-lXpm).])
2490 LIBXPM=-lXpm 2493 LIBXPM=-lXpm
2491 fi 2494 fi
2492fi 2495fi
diff --git a/doc/emacs/ChangeLog b/doc/emacs/ChangeLog
index 6e687bcefc9..d16443ccf31 100644
--- a/doc/emacs/ChangeLog
+++ b/doc/emacs/ChangeLog
@@ -1,3 +1,121 @@
12011-12-03 Chong Yidong <cyd@gnu.org>
2
3 * text.texi (TeX Mode): Mention AUCTeX package.
4 (TeX Editing): Add xref to documentation for Occur.
5 (LaTeX Editing): Add xref to Completion node.
6 (TeX Print): Fix description of tex-directory.
7 (Enriched Text): Renamed from Formatted Text. Make this node and
8 its subnodes less verbose, since text/enriched files are
9 practically unused.
10 (Enriched Mode): Renamed from Requesting Formatted Text.
11 (Format Colors): Node deleted.
12 (Enriched Faces): Renamed from Format Faces. Describe commands
13 for applying colors too.
14 (Forcing Enriched Mode): Node deleted; merged into Enriched Mode.
15
16 * frames.texi (Menu Mouse Clicks): Tweak description of C-Mouse-2.
17
18 * display.texi (Colors): New node.
19
20 * cmdargs.texi (Colors X):
21 * xresources.texi (GTK styles):
22 * custom.texi (Face Customization): Reference it.
23
24 * glossary.texi (Glossary): Remove "formatted text" and "WYSIWYG".
25 Link to Fill Commands for Justification entry.
26
272011-12-03 Eli Zaretskii <eliz@gnu.org>
28
29 * display.texi (Auto Scrolling): More accurate description of what
30 scroll-*-aggressively does, including the effect of non-zero
31 margin. Fix "i.e." markup.
32
332011-12-02 Chong Yidong <cyd@gnu.org>
34
35 * text.texi (Pages): Mention how formfeed chars are displayed.
36 (Auto Fill): Note convention for calling auto-fill-mode from Lisp.
37 Describe adaptive filling more precisely.
38 (Fill Commands): Note that filling removes excess whitespace.
39 (Text Mode): Note auto-mode-alist entries for Text mode. TAB is
40 now bound to indent-for-tab-command in Text mode.
41 (Outline Mode): Copyedits.
42 (Outline Visibility): Note that Reveal mode is a buffer-local
43 minor mode.
44
45 * modes.texi (Major Modes): Move note about checking major-mode in
46 a hook function here, from Text mode.
47
482011-11-28 Chong Yidong <cyd@gnu.org>
49
50 * text.texi (Words): Add xref to Position Info.
51 (Paragraphs): Add xref to Regexps.
52
53 * indent.texi (Indentation): Rewrite introduction. Move table to
54 Indentation Commands node.
55 (Indentation Commands): Add index entries to table. Copyedits.
56 (Tab Stops, Just Spaces): Copyedits.
57 (Indent Convenience): New node. Document electric-indent-mode.
58
59 * programs.texi (Basic Indent):
60 * windows.texi (Pop Up Window): Fix kindex entry.
61
622011-11-28 Chong Yidong <cyd@gnu.org>
63
64 * modes.texi (Major Modes): Move major-mode variable doc here from
65 Choosing Modes. Document describe-mode. Document prog-mode-hook
66 and text-mode-hook. Add example of using hooks.
67 (Minor Modes): Document behavior of mode command calls from Lisp.
68 Note that setting the mode variable using Customize will DTRT.
69 (Choosing Modes): Add example of setting a minor mode using a
70 local variable.
71
722011-11-27 Chong Yidong <cyd@gnu.org>
73
74 * frames.texi (Creating Frames): Move frame parameter example to
75 Frame Parameters node.
76 (Frame Commands): C-x 5 o does not warp the mouse by default.
77 (Fonts): Add more GTK-style properties; also, they should be
78 capitalized.
79 (Special Buffer Frames): Node deleted; special-display is on the
80 way out.
81 (Frame Parameters): Example moved here from Creating Frames.
82 Clarify that default-frame-alist affects the initial frame too.
83 Delete auto-raise-mode and auto-lower-mode.
84 (Wheeled Mice): Node deleted. Content moved to Mouse Commands.
85 (Dialog Boxes): Delete x-gtk-use-old-file-dialog.
86
87 * windows.texi (Window Choice): Add xref to Lisp manual for
88 special-display-*.
89
902011-11-26 Eli Zaretskii <eliz@gnu.org>
91
92 * display.texi (Text Display): Update the description,
93 cross-references, and indexing related to display of control
94 characters and raw bytes.
95
962011-11-25 Chong Yidong <cyd@gnu.org>
97
98 * frames.texi (Frames): Rewrite introduction.
99 (Mouse Commands): Default for mouse-drag-copy-region is now t.
100 Mouse-3 does not copy to kill ring by default. DEL does not
101 behave specially for mouse commands any more.
102 (Mouse References): Document mouse-1-click-follows-link more
103 thoroughly.
104 (Menu Mouse Clicks): Move footnote to the main text and add xref
105 to Init Rebinding node.
106 (Mode Line Mouse): Mouse-3 on the mode-line does not bury buffer.
107
108 * files.texi (Visiting): `C-x 5 f' works on ttys too.
109
1102011-11-24 Juanma Barranquero <lekktu@gmail.com>
111
112 * display.texi (Font Lock): Fix typo.
113
1142011-11-24 Glenn Morris <rgm@gnu.org>
115
116 * rmail.texi (Rmail Output):
117 Mention rmail-automatic-folder-directives. (Bug#9657)
118
12011-11-21 Chong Yidong <cyd@gnu.org> 1192011-11-21 Chong Yidong <cyd@gnu.org>
2 120
3 * mark.texi (Global Mark Ring): Fix description of global mark 121 * mark.texi (Global Mark Ring): Fix description of global mark
diff --git a/doc/emacs/building.texi b/doc/emacs/building.texi
index ac62e2d9652..9c5b2e7dcd7 100644
--- a/doc/emacs/building.texi
+++ b/doc/emacs/building.texi
@@ -995,7 +995,7 @@ breakpoint}, the breakpoint which point is on.
995Enable/disable current breakpoint (@code{gdb-toggle-breakpoint}). 995Enable/disable current breakpoint (@code{gdb-toggle-breakpoint}).
996On a graphical display, this changes the color of a bullet in the 996On a graphical display, this changes the color of a bullet in the
997margin of a source buffer at the relevant line. This is red when 997margin of a source buffer at the relevant line. This is red when
998the breakpoint is enabled and grey when it is disabled. Text-only 998the breakpoint is enabled and gray when it is disabled. Text-only
999terminals correspondingly display a @samp{B} or @samp{b}. 999terminals correspondingly display a @samp{B} or @samp{b}.
1000 1000
1001@item D 1001@item D
diff --git a/doc/emacs/cmdargs.texi b/doc/emacs/cmdargs.texi
index 07cca53ce4d..d9109045570 100644
--- a/doc/emacs/cmdargs.texi
+++ b/doc/emacs/cmdargs.texi
@@ -69,7 +69,7 @@ arguments.)
69* Environment:: Environment variables that Emacs uses. 69* Environment:: Environment variables that Emacs uses.
70* Display X:: Changing the default display and using remote login. 70* Display X:: Changing the default display and using remote login.
71* Font X:: Choosing a font for text, under X. 71* Font X:: Choosing a font for text, under X.
72* Colors:: Choosing display colors. 72* Colors X:: Choosing display colors.
73* Window Size X:: Start-up window size, under X. 73* Window Size X:: Start-up window size, under X.
74* Borders X:: Internal and external borders, under X. 74* Borders X:: Internal and external borders, under X.
75* Title X:: Specifying the initial frame's title. 75* Title X:: Specifying the initial frame's title.
@@ -784,7 +784,7 @@ Use @var{font} as the default font.
784 784
785When passing a font specification to Emacs on the command line, you 785When passing a font specification to Emacs on the command line, you
786may need to ``quote'' it, by enclosing it in quotation marks, if it 786may need to ``quote'' it, by enclosing it in quotation marks, if it
787contains characters that the shell treats specially (e.g. spaces). 787contains characters that the shell treats specially (e.g.@: spaces).
788For example: 788For example:
789 789
790@smallexample 790@smallexample
@@ -794,27 +794,14 @@ emacs -fn "DejaVu Sans Mono-12"
794@xref{Fonts}, for other ways to specify the default font and font name 794@xref{Fonts}, for other ways to specify the default font and font name
795formats. 795formats.
796 796
797@node Colors 797@node Colors X
798@appendixsec Window Color Options 798@appendixsec Window Color Options
799@cindex color of window, from command line 799@cindex color of window, from command line
800@cindex text colors, from command line 800@cindex text colors, from command line
801 801
802@findex list-colors-display 802 You can use the following command-line options to specify the colors
803@cindex available colors 803to use for various parts of the Emacs display. Colors may be
804 On a color display, you can specify which color to use for various 804specified using either color names or RGB triplets (@pxref{Colors}).
805parts of the Emacs display. To find out what colors are available on
806your system, type @kbd{M-x list-colors-display}, or press
807@kbd{C-Mouse-2} and select @samp{Display Colors} from the pop-up menu.
808(A particular window system might support many more colors, but the
809list displayed by @code{list-colors-display} shows their portable
810subset that can be safely used on any display supported by Emacs.)
811If you do not specify colors, on windowed displays the default for the
812background is white and the default for all other colors is black. On a
813monochrome display, the foreground is black, the background is white,
814and the border is gray if the display supports that. On terminals, the
815background is usually black and the foreground is white.
816
817 Here is a list of the command-line options for specifying colors:
818 805
819@table @samp 806@table @samp
820@item -fg @var{color} 807@item -fg @var{color}
@@ -822,15 +809,15 @@ background is usually black and the foreground is white.
822@itemx --foreground-color=@var{color} 809@itemx --foreground-color=@var{color}
823@opindex --foreground-color 810@opindex --foreground-color
824@cindex foreground color, command-line argument 811@cindex foreground color, command-line argument
825Specify the foreground color. @var{color} should be a standard color 812Specify the foreground color, overriding the color specified by the
826name, or a numeric specification of the color's red, green, and blue 813@code{default} face (@pxref{Faces}).
827components as in @samp{#4682B4} or @samp{RGB:46/82/B4}.
828@item -bg @var{color} 814@item -bg @var{color}
829@opindex -bg 815@opindex -bg
830@itemx --background-color=@var{color} 816@itemx --background-color=@var{color}
831@opindex --background-color 817@opindex --background-color
832@cindex background color, command-line argument 818@cindex background color, command-line argument
833Specify the background color. 819Specify the background color, overriding the color specified by the
820@code{default} face.
834@item -bd @var{color} 821@item -bd @var{color}
835@opindex -bd 822@opindex -bd
836@itemx --border-color=@var{color} 823@itemx --border-color=@var{color}
diff --git a/doc/emacs/custom.texi b/doc/emacs/custom.texi
index 5b98216369d..e807aebdeee 100644
--- a/doc/emacs/custom.texi
+++ b/doc/emacs/custom.texi
@@ -430,15 +430,8 @@ means that it's disabled. You can enable or disable the attribute by
430clicking that button. When the attribute is enabled, you can change 430clicking that button. When the attribute is enabled, you can change
431the attribute value in the usual ways. 431the attribute value in the usual ways.
432 432
433 You can specify a color name (use @kbd{M-x list-colors-display} for 433 The foreground and background colors can be specified using color
434a list of them) or a hexadecimal color specification of the form 434names or RGB triplets. @xref{Colors}.
435@samp{#@var{rr}@var{gg}@var{bb}}. (@samp{#000000} is black,
436@samp{#ff0000} is red, @samp{#00ff00} is green, @samp{#0000ff} is
437blue, and @samp{#ffffff} is white.) On a black-and-white display, the
438colors you can use for the background are @samp{black}, @samp{white},
439@samp{gray}, @samp{gray1}, and @samp{gray3}. Emacs supports these
440shades of gray by using background stipple patterns instead of a
441color.
442 435
443 Setting, saving and resetting a face work like the same operations for 436 Setting, saving and resetting a face work like the same operations for
444variables (@pxref{Changing a Variable}). 437variables (@pxref{Changing a Variable}).
diff --git a/doc/emacs/display.texi b/doc/emacs/display.texi
index 8995b1242b1..ea9bd95b8ee 100644
--- a/doc/emacs/display.texi
+++ b/doc/emacs/display.texi
@@ -21,6 +21,7 @@ the text is displayed.
21* View Mode:: Viewing read-only buffers. 21* View Mode:: Viewing read-only buffers.
22* Follow Mode:: Follow mode lets two windows scroll as one. 22* Follow Mode:: Follow mode lets two windows scroll as one.
23* Faces:: How to change the display style using faces. 23* Faces:: How to change the display style using faces.
24* Colors:: Specifying colors for faces.
24* Standard Faces:: Emacs' predefined faces. 25* Standard Faces:: Emacs' predefined faces.
25* Text Scale:: Increasing or decreasing text size in a buffer. 26* Text Scale:: Increasing or decreasing text size in a buffer.
26* Font Lock:: Minor mode for syntactic highlighting using faces. 27* Font Lock:: Minor mode for syntactic highlighting using faces.
@@ -122,7 +123,7 @@ moving it to the topmost or bottommost line. With any other
122non-@code{nil} value, Emacs adjusts point this way even if the scroll 123non-@code{nil} value, Emacs adjusts point this way even if the scroll
123command leaves point in the window. This variable affects all the 124command leaves point in the window. This variable affects all the
124scroll commands documented in this section, as well as scrolling with 125scroll commands documented in this section, as well as scrolling with
125the mouse wheel (@pxref{Wheeled Mice}); in general, it affects any 126the mouse wheel (@pxref{Mouse Commands}); in general, it affects any
126command that has a non-@code{nil} @code{scroll-command} property. 127command that has a non-@code{nil} @code{scroll-command} property.
127@xref{Property Lists,,, elisp, The Emacs Lisp Reference Manual}. 128@xref{Property Lists,,, elisp, The Emacs Lisp Reference Manual}.
128 129
@@ -238,26 +239,32 @@ centered after scrolling.
238@cindex aggressive scrolling 239@cindex aggressive scrolling
239@vindex scroll-up-aggressively 240@vindex scroll-up-aggressively
240@vindex scroll-down-aggressively 241@vindex scroll-down-aggressively
241 When the window does scroll by a longer distance, you can control 242 When the window does scroll by a distance longer than
242how aggressively it scrolls by setting the variables 243@code{scroll-step}, you can control how aggressively it scrolls by
243@code{scroll-up-aggressively} and @code{scroll-down-aggressively}. 244setting the variables @code{scroll-up-aggressively} and
244The value of @code{scroll-up-aggressively} should be either 245@code{scroll-down-aggressively}. The value of
245@code{nil}, or a fraction @var{f} between 0 and 1. A fraction 246@code{scroll-up-aggressively} should be either @code{nil}, or a
246specifies where on the screen to put point when scrolling upward, 247fraction @var{f} between 0 and 1. A fraction specifies where on the
247i.e. forward. When point goes off the window end, the new start 248screen to put point when scrolling upward, i.e.@: forward. When point
248position is chosen to put point @var{f} parts of the window height 249goes off the window end, the new start position is chosen to put point
249from the bottom. Thus, larger @var{f} means more aggressive 250@var{f} parts of the window height from the bottom margin. Thus,
250scrolling: more new text is brought into view. The default value, 251larger @var{f} means more aggressive scrolling: more new text is
251@code{nil}, is equivalent to 0.5. 252brought into view. The default value, @code{nil}, is equivalent to
2530.5.
252 254
253 Likewise, @code{scroll-down-aggressively} is used for scrolling 255 Likewise, @code{scroll-down-aggressively} is used for scrolling
254down, i.e. backward. The value specifies how far point should be 256down, i.e.@: backward. The value specifies how far point should be
255placed from the top of the window; thus, as with 257placed from the top margin of the window; thus, as with
256@code{scroll-up-aggressively}, a larger value is more aggressive. 258@code{scroll-up-aggressively}, a larger value is more aggressive.
257 259
258 These two variables are ignored if either @code{scroll-step} or 260 These two variables are ignored if either @code{scroll-step} or
259@code{scroll-conservatively} are set to a non-zero value. 261@code{scroll-conservatively} are set to a non-zero value.
260 262
263 Note that @code{scroll-margin}, described below, limits the amount
264of scrolling so as to put point outside of the top or bottom margin,
265even if aggressive scrolling specifies a fraction @var{f} that is
266larger than the window portion between the top and the bottom margins.
267
261@vindex scroll-margin 268@vindex scroll-margin
262 The variable @code{scroll-margin} restricts how close point can come 269 The variable @code{scroll-margin} restricts how close point can come
263to the top or bottom of a window. Its value is a number of screen 270to the top or bottom of a window. Its value is a number of screen
@@ -455,7 +462,7 @@ one large window.
455 To turn off Follow mode, type @kbd{M-x follow-mode} a second time. 462 To turn off Follow mode, type @kbd{M-x follow-mode} a second time.
456 463
457@node Faces 464@node Faces
458@section Faces: Controlling Text Display Style 465@section Text Faces
459@cindex faces 466@cindex faces
460 467
461 Emacs can display text in several different styles, called 468 Emacs can display text in several different styles, called
@@ -474,10 +481,8 @@ matching that regular expression (@pxref{Regexps}).
474 It's possible for a given face to look different in different 481 It's possible for a given face to look different in different
475frames. For instance, some text-only terminals do not support all 482frames. For instance, some text-only terminals do not support all
476face attributes, particularly font, height, and width, and some 483face attributes, particularly font, height, and width, and some
477support a limited range of colors. The @code{list-faces-display} 484support a limited range of colors.
478command shows the appearance for the selected frame.
479 485
480@cindex face colors, setting
481@cindex background color 486@cindex background color
482@cindex default face 487@cindex default face
483 You can customize a face to alter its appearance, and save those 488 You can customize a face to alter its appearance, and save those
@@ -492,25 +497,58 @@ background color.
492 You can also use X resources to specify attributes of any particular 497 You can also use X resources to specify attributes of any particular
493face. @xref{Resources}. 498face. @xref{Resources}.
494 499
500 Emacs can display variable-width fonts, but some Emacs commands,
501particularly indentation commands, do not account for variable
502character display widths. Therefore, we recommend not using
503variable-width fonts for most faces, particularly those assigned by
504Font Lock mode.
505
506@node Colors
507@section Colors for Faces
508@cindex color name
509@cindex RGB triplet
510
511 Faces can have various foreground and background colors. When you
512specify a color for a face---for instance, when customizing the face
513(@pxref{Face Customization})---you can use either a @dfn{color name}
514or an @dfn{RGB triplet}.
515
516@findex list-colors-display
517 A color name is a pre-defined name, such as @samp{dark orange} or
518@samp{medium sea green}. To view a list of color names, type @kbd{M-x
519list-colors-display}. If you run this command on a graphical display,
520it shows the full range of color names known to Emacs (these are the
521standard X11 color names, defined in X's @file{rgb.txt} file). If you
522run the command on a text-only terminal, it shows only a small subset
523of colors that can be safely displayed on such terminals. However,
524Emacs understands X11 color names even on text-only terminals; if a
525face is given a color specified by an X11 color name, it is displayed
526using the closest-matching terminal color.
527
528 An RGB triplet is a string of the form @samp{#RRGGBB}. Each of the
529R, G, and B components is a hexadecimal number specifying the
530component's relative intensity, one to four digits long (usually two
531digits are used). The components must have the same number of digits.
532For hexadecimal values A to F, either upper or lower case are
533acceptable.
534
535 The @kbd{M-x list-colors-display} command also shows the equivalent
536RGB triplet for each named color. For instance, @samp{medium sea
537green} is equivalent to @samp{#3CB371}.
538
539@cindex face colors, setting
495@findex set-face-foreground 540@findex set-face-foreground
496@findex set-face-background 541@findex set-face-background
497 You can also change the foreground and background colors of a face 542 You can change the foreground and background colors of a face with
498with @kbd{M-x set-face-foreground} and @kbd{M-x set-face-background}. 543@kbd{M-x set-face-foreground} and @kbd{M-x set-face-background}.
499These commands prompt in the minibuffer for a face name and a color 544These commands prompt in the minibuffer for a face name and a color,
500name, with completion, and then set that face to use the specified 545with completion, and then set that face to use the specified color.
501color (@pxref{Face Customization}, for information about color names).
502They affect the face colors on all frames, but their effects do not 546They affect the face colors on all frames, but their effects do not
503persist for future Emacs sessions, unlike using the customization 547persist for future Emacs sessions, unlike using the customization
504buffer or X resources. You can also use frame parameters to set 548buffer or X resources. You can also use frame parameters to set
505foreground and background colors for a specific frame; see @ref{Frame 549foreground and background colors for a specific frame; @xref{Frame
506Parameters}. 550Parameters}.
507 551
508 Emacs can display variable-width fonts, but some Emacs commands,
509particularly indentation commands, do not account for variable
510character display widths. Therefore, we recommend not using
511variable-width fonts for most faces, particularly those assigned by
512Font Lock mode.
513
514@node Standard Faces 552@node Standard Faces
515@section Standard Faces 553@section Standard Faces
516 554
@@ -762,7 +800,7 @@ relies on analysis of the syntactic structure of the buffer text. For
762the sake of speed, some modes, including Lisp mode, rely on a special 800the sake of speed, some modes, including Lisp mode, rely on a special
763convention: an open-parenthesis or open-brace in the leftmost column 801convention: an open-parenthesis or open-brace in the leftmost column
764always defines the beginning of a defun, and is thus always outside 802always defines the beginning of a defun, and is thus always outside
765any string or comment. Therefore, you should avoid placing a an 803any string or comment. Therefore, you should avoid placing an
766open-parenthesis or open-brace in the leftmost column, if it is inside 804open-parenthesis or open-brace in the leftmost column, if it is inside
767a string or comment. @xref{Left Margin Paren}, for details. 805a string or comment. @xref{Left Margin Paren}, for details.
768 806
@@ -1016,13 +1054,13 @@ trailing whitespace in the region instead.
1016@cindex fringes, and unused line indication 1054@cindex fringes, and unused line indication
1017 On graphical displays, Emacs can indicate unused lines at the end of 1055 On graphical displays, Emacs can indicate unused lines at the end of
1018the window with a small image in the left fringe (@pxref{Fringes}). 1056the window with a small image in the left fringe (@pxref{Fringes}).
1019The image appears for window lines that do not correspond to any 1057The image appears for screen lines that do not correspond to any
1020buffer text. Blank lines at the end of the buffer then stand out 1058buffer text, so blank lines at the end of the buffer stand out because
1021because they do not have this image in the fringe. To enable this 1059they lack this image. To enable this feature, set the buffer-local
1022feature, set the buffer-local variable @code{indicate-empty-lines} to 1060variable @code{indicate-empty-lines} to a non-@code{nil} value. You
1023a non-@code{nil} value. You can enable or disable this feature for 1061can enable or disable this feature for all new buffers by setting the
1024all new buffers by setting the default value of this variable, 1062default value of this variable, e.g.@: @code{(setq-default
1025e.g.@:@code{(setq-default indicate-empty-lines t)}. 1063indicate-empty-lines t)}.
1026 1064
1027@node Selective Display 1065@node Selective Display
1028@section Selective Display 1066@section Selective Display
@@ -1216,7 +1254,7 @@ characters include @acronym{ASCII} numbers, letters, and punctuation
1216characters, as well as many non-@acronym{ASCII} characters. 1254characters, as well as many non-@acronym{ASCII} characters.
1217 1255
1218@vindex tab-width 1256@vindex tab-width
1219@cindex control character 1257@cindex control characters on display
1220 The @acronym{ASCII} character set contains non-printing @dfn{control 1258 The @acronym{ASCII} character set contains non-printing @dfn{control
1221characters}. Two of these are displayed specially: the newline 1259characters}. Two of these are displayed specially: the newline
1222character (Unicode code point @code{U+000A}) is displayed by starting 1260character (Unicode code point @code{U+000A}) is displayed by starting
@@ -1228,19 +1266,21 @@ value between 1 and 1000, inclusive. Note that how the tab character
1228in the buffer is displayed has nothing to do with the definition of 1266in the buffer is displayed has nothing to do with the definition of
1229@key{TAB} as a command. 1267@key{TAB} as a command.
1230 1268
1231 Other @acronym{ASCII} control characters are displayed as a caret 1269 Other @acronym{ASCII} control characters, whose codes are below
1270@code{U+0020} (octal 40, decimal 32), are displayed as a caret
1232(@samp{^}) followed by the non-control version of the character, with 1271(@samp{^}) followed by the non-control version of the character, with
1233the @code{escape-glyph} face. For instance, the @samp{control-A} 1272the @code{escape-glyph} face. For instance, the @samp{control-A}
1234character, @code{U+0001}, is displayed as @samp{^A}. 1273character, @code{U+0001}, is displayed as @samp{^A}.
1235 1274
1275@cindex octal escapes
1236@vindex ctl-arrow 1276@vindex ctl-arrow
1237 The non-@acronym{ASCII}, non-printing characters @code{U+0080} 1277 The raw bytes with codes @code{U+0080} (octal 200) through
1238(octal 200) through @code{U+009F} (octal 237) are displayed as octal 1278@code{U+009F} (octal 237) are displayed as @dfn{octal escape
1239escape sequences, with the @code{escape-glyph} face. For instance, 1279sequences}, with the @code{escape-glyph} face. For instance,
1240character code @code{U+0098} (octal 230) is displayed as @samp{\230}. 1280character code @code{U+0098} (octal 230) is displayed as @samp{\230}.
1241If you change the buffer-local variable @code{ctl-arrow} to 1281If you change the buffer-local variable @code{ctl-arrow} to
1242@code{nil}, @acronym{ASCII} control characters are also displayed as 1282@code{nil}, the @acronym{ASCII} control characters are also displayed
1243octal escape sequences instead of caret escape sequences. 1283as octal escape sequences instead of caret escape sequences.
1244 1284
1245@vindex nobreak-char-display 1285@vindex nobreak-char-display
1246@cindex non-breaking space 1286@cindex non-breaking space
@@ -1249,7 +1289,7 @@ octal escape sequences instead of caret escape sequences.
1249 Some non-@acronym{ASCII} characters have the same appearance as an 1289 Some non-@acronym{ASCII} characters have the same appearance as an
1250@acronym{ASCII} space or hyphen (minus) character. Such characters 1290@acronym{ASCII} space or hyphen (minus) character. Such characters
1251can cause problems if they are entered into a buffer without your 1291can cause problems if they are entered into a buffer without your
1252realization, e.g. by yanking; for instance, source code compilers 1292realization, e.g.@: by yanking; for instance, source code compilers
1253typically do not treat non-@acronym{ASCII} spaces as whitespace 1293typically do not treat non-@acronym{ASCII} spaces as whitespace
1254characters. To deal with this problem, Emacs displays such characters 1294characters. To deal with this problem, Emacs displays such characters
1255specially: it displays @code{U+00A0} (no-break space) with the 1295specially: it displays @code{U+00A0} (no-break space) with the
@@ -1270,10 +1310,12 @@ elisp, The Emacs Lisp Reference Manual}.
1270 On graphical displays, some characters may have no glyphs in any of 1310 On graphical displays, some characters may have no glyphs in any of
1271the fonts available to Emacs. These @dfn{glyphless characters} are 1311the fonts available to Emacs. These @dfn{glyphless characters} are
1272normally displayed as boxes containing the hexadecimal character code. 1312normally displayed as boxes containing the hexadecimal character code.
1273You can control the display method by customizing the variable 1313Similarly, on text terminals, characters that cannot be displayed
1274@code{glyphless-char-display-control}. @xref{Glyphless Chars,, 1314using the terminal encoding (@pxref{Terminal Coding}) are normally
1275Glyphless Character Display, elisp, The Emacs Lisp Reference Manual}, 1315displayed as question signs. You can control the display method by
1276for details. 1316customizing the variable @code{glyphless-char-display-control}.
1317@xref{Glyphless Chars,, Glyphless Character Display, elisp, The Emacs
1318Lisp Reference Manual}, for details.
1277 1319
1278@node Cursor Display 1320@node Cursor Display
1279@section Displaying the Cursor 1321@section Displaying the Cursor
diff --git a/doc/emacs/emacs.texi b/doc/emacs/emacs.texi
index 55fdb9ec875..aca3735ff03 100644
--- a/doc/emacs/emacs.texi
+++ b/doc/emacs/emacs.texi
@@ -113,25 +113,6 @@ Emacs Lisp Reference Manual}.
113@insertcopying 113@insertcopying
114@end ifnottex 114@end ifnottex
115 115
116@ignore
117These subcategories have been deleted for simplicity
118and to avoid conflicts.
119Completion
120Backup Files
121Auto-Saving: Protection Against Disasters
122Tags
123Text Mode
124Outline Mode
125@TeX{} Mode
126Formatted Text
127Shell Command History
128
129The ones for Dired and Rmail have had the items turned into :: items
130to avoid conflicts.
131Also Running Shell Commands from Emacs
132and Sending Mail and Registers and Minibuffer.
133@end ignore
134
135@menu 116@menu
136* Distrib:: How to get the latest Emacs distribution. 117* Distrib:: How to get the latest Emacs distribution.
137* Intro:: An introduction to Emacs concepts. 118* Intro:: An introduction to Emacs concepts.
@@ -350,6 +331,7 @@ Controlling the Display
350* View Mode:: Viewing read-only buffers. 331* View Mode:: Viewing read-only buffers.
351* Follow Mode:: Follow mode lets two windows scroll as one. 332* Follow Mode:: Follow mode lets two windows scroll as one.
352* Faces:: How to change the display style using faces. 333* Faces:: How to change the display style using faces.
334* Colors:: Specifying colors for faces.
353* Standard Faces:: Emacs' predefined faces. 335* Standard Faces:: Emacs' predefined faces.
354* Text Scale:: Increasing or decreasing text size in a buffer. 336* Text Scale:: Increasing or decreasing text size in a buffer.
355* Font Lock:: Minor mode for syntactic highlighting using faces. 337* Font Lock:: Minor mode for syntactic highlighting using faces.
@@ -505,10 +487,8 @@ Frames and Graphical Displays
505* Fonts:: Changing the frame font. 487* Fonts:: Changing the frame font.
506* Speedbar:: How to make and use a speedbar frame. 488* Speedbar:: How to make and use a speedbar frame.
507* Multiple Displays:: How one Emacs job can talk to several displays. 489* Multiple Displays:: How one Emacs job can talk to several displays.
508* Special Buffer Frames:: You can make certain buffers have their own frames.
509* Frame Parameters:: Changing the colors and other modes of frames. 490* Frame Parameters:: Changing the colors and other modes of frames.
510* Scroll Bars:: How to enable and disable scroll bars; how to use them. 491* Scroll Bars:: How to enable and disable scroll bars; how to use them.
511* Wheeled Mice:: Using mouse wheels for scrolling.
512* Drag and Drop:: Using drag and drop to open files and insert text. 492* Drag and Drop:: Using drag and drop to open files and insert text.
513* Menu Bars:: Enabling and disabling the menu bar. 493* Menu Bars:: Enabling and disabling the menu bar.
514* Tool Bars:: Enabling and disabling the tool bar. 494* Tool Bars:: Enabling and disabling the tool bar.
@@ -553,10 +533,10 @@ Modes
553 533
554Indentation 534Indentation
555 535
556* Indentation Commands:: Various commands and techniques for indentation. 536* Indentation Commands:: More commands for performing indentation.
557* Tab Stops:: You can set arbitrary "tab stops" and then 537* Tab Stops:: Stop points for indentation in Text modes.
558 indent to the next tab stop when you want to. 538* Just Spaces:: Using only space characters for indentation.
559* Just Spaces:: You can request indentation using just spaces. 539* Indent Convenience:: Optional indentation features.
560 540
561Commands for Human Languages 541Commands for Human Languages
562 542
@@ -571,8 +551,8 @@ Commands for Human Languages
571* TeX Mode:: Editing input to the formatter TeX. 551* TeX Mode:: Editing input to the formatter TeX.
572* HTML Mode:: Editing HTML and SGML files. 552* HTML Mode:: Editing HTML and SGML files.
573* Nroff Mode:: Editing input to the formatter nroff. 553* Nroff Mode:: Editing input to the formatter nroff.
574* Formatted Text:: Editing formatted text directly in WYSIWYG fashion. 554* Enriched Text:: Editing text ``enriched'' with fonts, colors, etc.
575* Text Based Tables:: Editing text-based tables in WYSIWYG fashion. 555* Text Based Tables:: Commands for editing text-based tables.
576* Two-Column:: Splitting text columns into separate windows. 556* Two-Column:: Splitting text columns into separate windows.
577 557
578Filling Text 558Filling Text
@@ -599,18 +579,16 @@ Outline Mode
599* TeX Print:: Commands for printing part of a file with TeX. 579* TeX Print:: Commands for printing part of a file with TeX.
600* TeX Misc:: Customization of TeX mode, and related features. 580* TeX Misc:: Customization of TeX mode, and related features.
601 581
602Editing Formatted Text 582Editing Enriched Text
603 583
604* Requesting Formatted Text:: Entering and exiting Enriched mode. 584* Enriched Mode:: Entering and exiting Enriched mode.
605* Hard and Soft Newlines:: There are two different kinds of newlines. 585* Hard and Soft Newlines:: There are two different kinds of newlines.
606* Editing Format Info:: How to edit text properties. 586* Editing Format Info:: How to edit text properties.
607* Format Faces:: Bold, italic, underline, etc. 587* Enriched Faces:: Bold, italic, underline, etc.
608* Format Colors:: Changing the color of text. 588* Enriched Indentation:: Changing the left and right margins.
609* Format Indentation:: Changing the left and right margins. 589* Enriched Justification:: Centering, setting text flush with the
610* Format Justification:: Centering, setting text flush with the 590 left or right margin, etc.
611 left or right margin, etc. 591* Enriched Properties:: The "special" text properties submenu.
612* Format Properties:: The "special" text properties submenu.
613* Forcing Enriched Mode:: How to force use of Enriched mode.
614 592
615@c The automatic texinfo menu update inserts some duplicate items here 593@c The automatic texinfo menu update inserts some duplicate items here
616@c (faces, colors, indentation, justification, properties), because 594@c (faces, colors, indentation, justification, properties), because
@@ -1152,7 +1130,7 @@ Command Line Arguments for Emacs Invocation
1152* Environment:: Environment variables that Emacs uses. 1130* Environment:: Environment variables that Emacs uses.
1153* Display X:: Changing the default display and using remote login. 1131* Display X:: Changing the default display and using remote login.
1154* Font X:: Choosing a font for text, under X. 1132* Font X:: Choosing a font for text, under X.
1155* Colors:: Choosing display colors. 1133* Colors X:: Choosing display colors.
1156* Window Size X:: Start-up window size, under X. 1134* Window Size X:: Start-up window size, under X.
1157* Borders X:: Internal and external borders, under X. 1135* Borders X:: Internal and external borders, under X.
1158* Title X:: Specifying the initial frame's title. 1136* Title X:: Specifying the initial frame's title.
diff --git a/doc/emacs/emacsver.texi b/doc/emacs/emacsver.texi
index 87f9dddbba8..cb3f3f39778 100644
--- a/doc/emacs/emacsver.texi
+++ b/doc/emacs/emacsver.texi
@@ -1,4 +1,4 @@
1@c It would be nicer to generate this using configure and @version@. 1@c It would be nicer to generate this using configure and @version@.
2@c However, that would mean emacsver.texi would always be newer 2@c However, that would mean emacsver.texi would always be newer
3@c then the info files in release tarfiles. 3@c then the info files in release tarfiles.
4@set EMACSVER 24.0.91 4@set EMACSVER 24.0.92
diff --git a/doc/emacs/files.texi b/doc/emacs/files.texi
index 2317f876b08..e3da0ca44e6 100644
--- a/doc/emacs/files.texi
+++ b/doc/emacs/files.texi
@@ -267,9 +267,8 @@ newly requested file. @xref{Windows}.
267@kindex C-x 5 f 267@kindex C-x 5 f
268@findex find-file-other-frame 268@findex find-file-other-frame
269 @kbd{C-x 5 f} (@code{find-file-other-frame}) is similar, but opens a 269 @kbd{C-x 5 f} (@code{find-file-other-frame}) is similar, but opens a
270new frame, or makes visible any existing frame showing the file you 270new frame, or selects any existing frame showing the specified file.
271seek. This feature is available only when you are using a window 271@xref{Frames}.
272system. @xref{Frames}.
273 272
274@cindex file selection dialog 273@cindex file selection dialog
275 On graphical displays, there are two additional methods for visiting 274 On graphical displays, there are two additional methods for visiting
@@ -298,8 +297,9 @@ original encoding and end-of-line convention. @xref{Coding Systems}.
298 If you wish to edit a file as a sequence of @acronym{ASCII} 297 If you wish to edit a file as a sequence of @acronym{ASCII}
299characters with no special encoding or conversion, use the @kbd{M-x 298characters with no special encoding or conversion, use the @kbd{M-x
300find-file-literally} command. This visits a file, like @kbd{C-x C-f}, 299find-file-literally} command. This visits a file, like @kbd{C-x C-f},
301but does not do format conversion (@pxref{Formatted Text}), character 300but does not do format conversion (@pxref{Format Conversion,, Format
302code conversion (@pxref{Coding Systems}), or automatic uncompression 301Conversion, elisp, the Emacs Lisp Reference Manual}), character code
302conversion (@pxref{Coding Systems}), or automatic uncompression
303(@pxref{Compressed Files}), and does not add a final newline because 303(@pxref{Compressed Files}), and does not add a final newline because
304of @code{require-final-newline} (@pxref{Customize Save}). If you have 304of @code{require-final-newline} (@pxref{Customize Save}). If you have
305already visited the same file in the usual (non-literal) manner, this 305already visited the same file in the usual (non-literal) manner, this
diff --git a/doc/emacs/frames.texi b/doc/emacs/frames.texi
index 49222451cce..1445d25be15 100644
--- a/doc/emacs/frames.texi
+++ b/doc/emacs/frames.texi
@@ -6,31 +6,41 @@
6@chapter Frames and Graphical Displays 6@chapter Frames and Graphical Displays
7@cindex frames 7@cindex frames
8 8
9 When using a graphical display, you can create multiple system-level 9 When Emacs is started on a graphical display, e.g.@: on the X Window
10``windows'' in a single Emacs session. We refer to these system-level 10System, it occupies a graphical system-level ``window''. In this
11windows as @dfn{frames}. A frame initially contains a single Emacs 11manual, we call this a @dfn{frame}, reserving the word ``window'' for
12window; however, you can subdivide this Emacs window into smaller 12the part of the frame used for displaying a buffer. A frame initially
13windows, all fitting into the same frame. Each frame normally 13contains one window, but it can be subdivided into multiple windows
14contains its own echo area and minibuffer. 14(@pxref{Windows}). A frame normally also contains a menu bar, tool
15 15bar, and echo area.
16 To avoid confusion, we reserve the word ``window'' for the 16
17subdivisions that Emacs implements, and never use it to refer to a 17 You can also create additional frames (@pxref{Creating Frames}).
18frame. 18All frames created in the same Emacs session have access to the same
19 19underlying buffers and other data. For instance, if a buffer is being
20 Any editing you do in one frame affects the other frames. For 20shown in more than one frame, any changes made to it in one frame show
21instance, if you put text in the kill ring in one frame, you can yank 21up immediately in the other frames too.
22it in another frame. If you exit Emacs through @kbd{C-x C-c} in one 22
23frame, it terminates all the frames. To delete just one frame, use 23 Typing @kbd{C-x C-c} closes all the frames on the current display,
24and ends the Emacs session if it has no frames open on any other
25displays (@pxref{Exiting}). To close just the selected frame, type
24@kbd{C-x 5 0} (that is zero, not @kbd{o}). 26@kbd{C-x 5 0} (that is zero, not @kbd{o}).
25 27
26 Emacs compiled for MS-DOS emulates some windowing functionality, 28 This chapter describes Emacs features specific to graphical displays
27so that you can use many of the features described in this chapter. 29(particularly mouse commands), and features for managing multiple
30frames. On text-only terminals, many of these features are
31unavailable. However, it is still possible to create multiple
32``frames'' on text-only terminals; such frames are displayed one at a
33time, filling the entire terminal screen (@pxref{Non-Window
34Terminals}). It is also possible to use the mouse on some text-only
35terminals (@pxref{Text-Only Mouse}, for doing so on GNU and UNIX
36systems; and
28@iftex 37@iftex
29@xref{MS-DOS Mouse,,,emacs-xtra,Specialized Emacs Features}. 38@pxref{MS-DOS Mouse,,,emacs-xtra,Specialized Emacs Features},
30@end iftex 39@end iftex
31@ifnottex 40@ifnottex
32@xref{MS-DOS Mouse}. 41@pxref{MS-DOS Mouse},
33@end ifnottex 42@end ifnottex
43for doing so on MS-DOS).
34 44
35@menu 45@menu
36* Mouse Commands:: Moving, cutting, and pasting, with the mouse. 46* Mouse Commands:: Moving, cutting, and pasting, with the mouse.
@@ -43,10 +53,8 @@ so that you can use many of the features described in this chapter.
43* Fonts:: Changing the frame font. 53* Fonts:: Changing the frame font.
44* Speedbar:: How to make and use a speedbar frame. 54* Speedbar:: How to make and use a speedbar frame.
45* Multiple Displays:: How one Emacs job can talk to several displays. 55* Multiple Displays:: How one Emacs job can talk to several displays.
46* Special Buffer Frames:: You can make certain buffers have their own frames.
47* Frame Parameters:: Changing the colors and other modes of frames. 56* Frame Parameters:: Changing the colors and other modes of frames.
48* Scroll Bars:: How to enable and disable scroll bars; how to use them. 57* Scroll Bars:: How to enable and disable scroll bars; how to use them.
49* Wheeled Mice:: Using mouse wheels for scrolling.
50* Drag and Drop:: Using drag and drop to open files and insert text. 58* Drag and Drop:: Using drag and drop to open files and insert text.
51* Menu Bars:: Enabling and disabling the menu bar. 59* Menu Bars:: Enabling and disabling the menu bar.
52* Tool Bars:: Enabling and disabling the tool bar. 60* Tool Bars:: Enabling and disabling the tool bar.
@@ -85,31 +93,32 @@ ring; on a second click, kill it (@code{mouse-save-then-kill}).
85 93
86@findex mouse-set-point 94@findex mouse-set-point
87 The most basic mouse command is @code{mouse-set-point}, which is 95 The most basic mouse command is @code{mouse-set-point}, which is
88called by clicking with the left mouse button, @kbd{Mouse-1}, in the 96invoked by clicking with the left mouse button, @kbd{Mouse-1}, in the
89text area of a window. This moves point to the position where you 97text area of a window. This moves point to the position where you
90clicked. 98clicked. If that window was not the selected window, it becomes the
99selected window.
91 100
92@vindex x-mouse-click-focus-ignore-position 101@vindex x-mouse-click-focus-ignore-position
93 Normally, Emacs does not distinguish between ordinary mouse clicks 102 Normally, if the frame you clicked in was not the selected frame, it
94and clicks that select a frame. When you click on a frame to select 103is made the selected frame, in addition to selecting the window and
95it, that also changes the selected window and cursor position 104setting the cursor. On the X Window System, you can change this by
96according to the mouse click position. On the X Window System, you 105setting the variable @code{x-mouse-click-focus-ignore-position} to
97can change this behavior by setting the variable 106@code{t}. In that case, the initial click on an unselected frame just
98@code{x-mouse-click-focus-ignore-position} to @code{t}. Then the 107selects the frame, without doing anything else; clicking again selects
99first click selects the frame, but does not affect the selected window 108the window and sets the cursor position.
100or cursor position. If you click again in the same place, that click
101will be in the selected frame, so it will change the window or cursor
102position.
103 109
104@findex mouse-set-region 110@findex mouse-set-region
105@vindex mouse-drag-copy-region
106 Holding down @kbd{Mouse-1} and ``dragging'' the mouse over a stretch 111 Holding down @kbd{Mouse-1} and ``dragging'' the mouse over a stretch
107of text activates the region around that text 112of text activates the region around that text
108(@code{mouse-set-region}). @xref{Mark}. Emacs places the mark where 113(@code{mouse-set-region}), placing the mark where you started holding
109you started holding down the mouse button, and point where you release 114down the mouse button, and point where you release it (@pxref{Mark}).
110it. In addition, the region is copied into the kill ring (@pxref{Kill 115In addition, the text in the region becomes the primary selection
111Ring}). If you don't want Emacs to copy the region, change the 116(@pxref{Primary Selection}).
112variable @code{mouse-drag-copy-region} to @code{nil}. 117
118@vindex mouse-drag-copy-region
119 If you change the variable @code{mouse-drag-copy-region} to a
120non-@code{nil} value, dragging the mouse over a stretch of text also
121adds the text to the kill ring. The default is @code{nil}.
113 122
114@vindex mouse-scroll-min-lines 123@vindex mouse-scroll-min-lines
115 If you move the mouse off the top or bottom of the window while 124 If you move the mouse off the top or bottom of the window while
@@ -124,7 +133,7 @@ on how far away from the window edge the mouse has gone; the variable
124 Clicking with the middle mouse button, @kbd{Mouse-2}, moves point to 133 Clicking with the middle mouse button, @kbd{Mouse-2}, moves point to
125the position where you clicked and inserts the contents of the primary 134the position where you clicked and inserts the contents of the primary
126selection (@code{mouse-yank-primary}). @xref{Primary Selection}. 135selection (@code{mouse-yank-primary}). @xref{Primary Selection}.
127This behavior is consistent with other X applications; alternatively, 136This behavior is consistent with other X applications. Alternatively,
128you can rebind @kbd{Mouse-2} to @code{mouse-yank-at-click}, which 137you can rebind @kbd{Mouse-2} to @code{mouse-yank-at-click}, which
129performs a yank at point. 138performs a yank at point.
130 139
@@ -144,7 +153,6 @@ depending on where you click and the status of the region:
144@item 153@item
145If no region is active, clicking @kbd{Mouse-3} activates the region, 154If no region is active, clicking @kbd{Mouse-3} activates the region,
146placing the mark where point was and point at the clicked position. 155placing the mark where point was and point at the clicked position.
147In addition, the text in the region is copied to the kill ring.
148 156
149@item 157@item
150If a region is active, clicking @kbd{Mouse-3} adjusts the nearer end 158If a region is active, clicking @kbd{Mouse-3} adjusts the nearer end
@@ -155,8 +163,8 @@ region was already on the kill ring, it replaces it there.
155@item 163@item
156If you originally specified the region using a double or triple 164If you originally specified the region using a double or triple
157@kbd{Mouse-1}, so that the region is defined to consist of entire 165@kbd{Mouse-1}, so that the region is defined to consist of entire
158words or lines, then adjusting the region with @kbd{Mouse-3} also 166words or lines (@pxref{Word and Line Mouse}), then adjusting the
159proceeds by entire words or lines. 167region with @kbd{Mouse-3} also proceeds by entire words or lines.
160 168
161@item 169@item
162If you use @kbd{Mouse-3} a second time consecutively, at the same 170If you use @kbd{Mouse-3} a second time consecutively, at the same
@@ -168,23 +176,33 @@ just once---or just drag across the text with @kbd{Mouse-1}. Then you
168can copy it elsewhere by yanking it. 176can copy it elsewhere by yanking it.
169@end itemize 177@end itemize
170 178
179 The @code{mouse-save-then-kill} command also obeys the variable
180@code{mouse-drag-copy-region} (described above). If the value is
181non-@code{nil}, then whenever the command sets or adjusts the active
182region, the text in the region is also added to the kill ring. If the
183latest kill ring entry had been added the same way, that entry is
184replaced rather than making a new entry.
185
171 Whenever you set the region using any of the mouse commands 186 Whenever you set the region using any of the mouse commands
172described above, the mark will be deactivated by any subsequent 187described above, the mark will be deactivated by any subsequent
173unshifted cursor motion command, in addition to the usual ways of 188unshifted cursor motion command, in addition to the usual ways of
174deactivating the mark. @xref{Shift Selection}. While the region 189deactivating the mark. @xref{Shift Selection}.
175remains active, typing @key{Backspace} or @key{Delete} deletes the 190
176text in that region and deactivates the mark; this behavior follows a 191@cindex mouse wheel
177convention established by other graphical programs, and it does 192@findex mouse-wheel-mode
178@emph{not} apply when you set the region any other way, including 193@cindex Mouse Wheel minor mode
179shift-selection (@pxref{Shift Selection}). 194@cindex mode, Mouse Wheel
180 195@vindex mouse-wheel-follow-mouse
181@cindex Delete Selection mode 196@vindex mouse-wheel-scroll-amount
182@cindex mode, Delete Selection 197@vindex mouse-wheel-progressive-speed
183@findex delete-selection-mode 198 Some mice have a ``wheel'' which can be used for scrolling. Emacs
184 Many graphical applications also follow the convention that 199supports scrolling windows with the mouse wheel, by default, on most
185insertion while text is selected deletes the selected text. You can 200graphical displays. To toggle this feature, use @kbd{M-x
186make Emacs behave this way by enabling Delete Selection mode. 201mouse-wheel-mode}. The variables @code{mouse-wheel-follow-mouse} and
187@xref{Using Region}. 202@code{mouse-wheel-scroll-amount} determine where and by how much
203buffers are scrolled. The variable
204@code{mouse-wheel-progressive-speed} determines whether the scroll
205speed is linked to how fast you move the wheel.
188 206
189@node Word and Line Mouse 207@node Word and Line Mouse
190@section Mouse Commands for Words and Lines 208@section Mouse Commands for Words and Lines
@@ -202,7 +220,7 @@ underscore, in C mode) selects the symbol surrounding that character.
202Double-clicking on a character with open- or close-parenthesis syntax 220Double-clicking on a character with open- or close-parenthesis syntax
203selects the parenthetical grouping which that character starts or 221selects the parenthetical grouping which that character starts or
204ends. Double-clicking on a character with string-delimiter syntax 222ends. Double-clicking on a character with string-delimiter syntax
205(such as a singlequote or doublequote in C) selects the string 223(such as a single-quote or double-quote in C) selects the string
206constant (Emacs uses heuristics to figure out whether that character 224constant (Emacs uses heuristics to figure out whether that character
207is the beginning or the end of it). 225is the beginning or the end of it).
208 226
@@ -220,50 +238,54 @@ Select the text you drag across, in the form of whole lines.
220@section Following References with the Mouse 238@section Following References with the Mouse
221@kindex Mouse-1 @r{(selection)} 239@kindex Mouse-1 @r{(selection)}
222@kindex Mouse-2 @r{(selection)} 240@kindex Mouse-2 @r{(selection)}
241@cindex hyperlinks
242@cindex links
243@cindex text buttons
244@cindex buttons
223 245
224@vindex mouse-highlight 246@vindex mouse-highlight
225 Some Emacs buffers include @dfn{buttons}. A button is a piece of 247 Some Emacs buffers include @dfn{buttons}, or @dfn{hyperlinks}:
226text that performs some action when you activate it, such as following 248pieces of text that perform some action (e.g.@: following a reference)
227a reference. Usually, a button's text is visually highlighted: it is 249when activated (e.g.@: by clicking on them). Usually, a button's text
228underlined, or a box is drawn around it. If you move the mouse over a 250is visually highlighted: it is underlined, or a box is drawn around
229button, the shape of the mouse cursor changes and the button lights up 251it. If you move the mouse over a button, the shape of the mouse
230(if you change the variable @code{mouse-highlight} to @code{nil}, 252cursor changes and the button lights up. If you change the variable
231Emacs disables this highlighting). 253@code{mouse-highlight} to @code{nil}, Emacs disables this
254highlighting.
232 255
233 You can activate a button by moving point to it and typing 256 You can activate a button by moving point to it and typing
234@key{RET}, or by clicking either @kbd{Mouse-1} or @kbd{Mouse-2} on the 257@key{RET}, or by clicking either @kbd{Mouse-1} or @kbd{Mouse-2} on the
235button. For example, typing @key{RET} or clicking on a file name in a 258button. For example, in a Dired buffer, each file name is a button;
236Dired buffer visits that file (@pxref{Dired}). Doing it on an error 259activating it causes Emacs to visit that file (@pxref{Dired}). In a
237message in the @samp{*Compilation*} buffer goes to the source code for 260@samp{*Compilation*} buffer, each error message is a button, and
238that error message (@pxref{Compilation}). Doing it on a completion in 261activating it visits the source code for that error
239the @samp{*Completions*} buffer chooses that completion 262(@pxref{Compilation}).
240(@pxref{Completion}). 263
241 264 Although clicking @kbd{Mouse-1} on a button usually activates the
242 Although clicking @kbd{Mouse-1} on a button usually activates that 265button, if you hold the mouse button down for a period of time before
243button, if you hold the mouse button down for a short period of time 266releasing it (specifically, for more than 450 milliseconds), then
244before releasing it (specifically, for more than 450 milliseconds), 267Emacs moves point where you clicked, without activating the button.
245then Emacs moves point where you clicked instead. This behavior 268In this way, you can use the mouse to move point over a button without
246allows you to use the mouse to move point over a button without 269activating it. Dragging the mouse over or onto a button has its usual
247following it. Dragging---moving the mouse while it is held down---has 270behavior of setting the region, and does not activate the button.
248its usual behavior of setting the region, even if you drag from or 271
249onto a button. 272 You can change how @kbd{Mouse-1} applies to buttons by customizing
273the variable @code{mouse-1-click-follows-link}. If the value is a
274positive integer, that determines how long you need to hold the mouse
275button down for, in milliseconds, to cancel button activation; the
276default is 450, as described in the previous paragraph. If the value
277is @code{nil}, @kbd{Mouse-1} just sets point where you clicked, and
278does not activate buttons. If the value is @code{double}, double
279clicks activate buttons but single clicks just set point.
250 280
251@vindex mouse-1-click-in-non-selected-windows 281@vindex mouse-1-click-in-non-selected-windows
252 Normally, clicking @kbd{Mouse-1} on a button activates the button 282 Normally, @kbd{Mouse-1} on a button activates the button even if it
253even if it is in a nonselected window. If you change the variable 283is in a non-selected window. If you change the variable
254@code{mouse-1-click-in-non-selected-windows} to @code{nil}, clicking 284@code{mouse-1-click-in-non-selected-windows} to @code{nil},
255@kbd{Mouse-1} on a button in an un-selected window moves point to the 285@kbd{Mouse-1} on a button in an unselected window moves point to the
256clicked position and selects that window, without activating the 286clicked position and selects that window, without activating the
257button. 287button.
258 288
259@vindex mouse-1-click-follows-link
260 In Emacs versions before 22, only @kbd{Mouse-2} activates buttons
261and @kbd{Mouse-1} always sets point. If you prefer this older
262behavior, set the variable @code{mouse-1-click-follows-link} to
263@code{nil}. This variable also lets you choose various other
264alternatives for following links with the mouse. Type @kbd{C-h v
265mouse-1-click-follows-link @key{RET}} for more details.
266
267@node Menu Mouse Clicks 289@node Menu Mouse Clicks
268@section Mouse Clicks for Menus 290@section Mouse Clicks for Menus
269 291
@@ -280,28 +302,35 @@ menu smarter and more customizable. @xref{Buffer Menus}.
280 302
281@item C-Mouse-2 303@item C-Mouse-2
282@kindex C-Mouse-2 304@kindex C-Mouse-2
283This menu is for specifying faces and other text properties 305This menu contains entries for examining faces and other text
284for editing formatted text. @xref{Formatted Text}. 306properties, and well as for setting them (the latter is mainly useful
307when editing enriched text; @pxref{Enriched Text}).
285 308
286@item C-Mouse-3 309@item C-Mouse-3
287@kindex C-Mouse-3 310@kindex C-Mouse-3
288This menu is mode-specific. For most modes if Menu-bar mode is on, 311This menu is mode-specific. For most modes if Menu-bar mode is on,
289this menu has the same items as all the mode-specific menu-bar menus 312this menu has the same items as all the mode-specific menu-bar menus
290put together. Some modes may specify a different menu for this 313put together. Some modes may specify a different menu for this
291button.@footnote{Some systems use @kbd{Mouse-3} for a mode-specific 314button. If Menu Bar mode is off, this menu contains all the items
292menu. We took a survey of users, and found they preferred to keep 315which would be present in the menu bar---not just the mode-specific
293@kbd{Mouse-3} for selecting and killing regions. Hence the decision 316ones---so that you can access them without having to display the menu
294to use @kbd{C-Mouse-3} for this menu. To use @kbd{Mouse-3} instead, 317bar.
295do @code{(global-set-key [mouse-3] 'mouse-popup-menubar-stuff)}.} If
296Menu-bar mode is off, this menu contains all the items which would be
297present in the menu bar---not just the mode-specific ones---so that
298you can access them without having to display the menu bar.
299 318
300@item S-Mouse-1 319@item S-Mouse-1
301This menu is for changing the default face within the window's buffer. 320This menu is for changing the default face within the window's buffer.
302@xref{Text Scale}. 321@xref{Text Scale}.
303@end table 322@end table
304 323
324 Some graphical applications use @kbd{Mouse-3} for a mode-specific
325menu. If you prefer @kbd{Mouse-3} in Emacs to bring up such a menu
326instead of running the @code{mouse-save-then-kill} command, rebind
327@kbd{Mouse-3} by adding the following line to your init file
328(@pxref{Init Rebinding}):
329
330@smallexample
331(global-set-key [mouse-3] 'mouse-popup-menubar-stuff)
332@end smallexample
333
305@node Mode Line Mouse 334@node Mode Line Mouse
306@section Mode Line Mouse Commands 335@section Mode Line Mouse Commands
307@cindex mode line, mouse 336@cindex mode line, mouse
@@ -332,34 +361,33 @@ make any window smaller than the minimum height.
332@item Mouse-3 361@item Mouse-3
333@kindex Mouse-3 @r{(mode line)} 362@kindex Mouse-3 @r{(mode line)}
334@kbd{Mouse-3} on a mode line deletes the window it belongs to. If the 363@kbd{Mouse-3} on a mode line deletes the window it belongs to. If the
335frame has only one window, it buries the current buffer instead, and 364frame has only one window, it does nothing.
336switches to another buffer.
337 365
338@item C-Mouse-2 366@item C-Mouse-2
339@kindex C-mouse-2 @r{(mode line)} 367@kindex C-mouse-2 @r{(mode line)}
340@kbd{C-Mouse-2} on a mode line splits the window above 368@kbd{C-Mouse-2} on a mode line splits that window, producing two
341horizontally, above the place in the mode line where you click. 369side-by-side windows with the boundary running through the click
370position (@pxref{Split Window}).
342@end table 371@end table
343 372
344@kindex C-Mouse-2 @r{(scroll bar)} 373@kindex C-Mouse-2 @r{(scroll bar)}
345@kindex Mouse-1 @r{(scroll bar)} 374@kindex Mouse-1 @r{(scroll bar)}
346 Using @kbd{Mouse-1} on the divider between two side-by-side mode 375 Furthermore, by clicking and dragging @kbd{Mouse-1} on the divider
347lines, you can move the vertical boundary left or right. Using 376between two side-by-side mode lines, you can move the vertical
348@kbd{C-Mouse-2} on a scroll bar splits the corresponding window 377boundary to the left or right.
349vertically. @xref{Split Window}.
350 378
351@node Creating Frames 379@node Creating Frames
352@section Creating Frames 380@section Creating Frames
353@cindex creating frames 381@cindex creating frames
354 382
355@kindex C-x 5 383@kindex C-x 5
356 The prefix key @kbd{C-x 5} is analogous to @kbd{C-x 4}, with 384 The prefix key @kbd{C-x 5} is analogous to @kbd{C-x 4}. Whereas
357parallel subcommands. The difference is that @kbd{C-x 5} commands 385each @kbd{C-x 4} command pops up a buffer in a different window in the
358create a new frame rather than just a new window in the selected frame 386selected frame (@pxref{Pop Up Window}), the @kbd{C-x 5} commands use a
359(@pxref{Pop Up Window}). If an existing visible or iconified 387different frame. If an existing visible or iconified (``minimized'')
360(``minimized'') frame already displays the requested material, these 388frame already displays the requested buffer, that frame is raised and
361commands use the existing frame, after raising or deiconifying 389deiconified (``un-minimized''); otherwise, a new frame is created on
362(``un-minimizing'') as necessary. 390the current display terminal.
363 391
364 The various @kbd{C-x 5} commands differ in how they find or create the 392 The various @kbd{C-x 5} commands differ in how they find or create the
365buffer to select: 393buffer to select:
@@ -394,56 +422,32 @@ frame. This runs @code{find-file-read-only-other-frame}.
394@xref{Visiting}. 422@xref{Visiting}.
395@end table 423@end table
396 424
397@cindex default-frame-alist 425 You can control the appearance and behavior of the newly-created
398@cindex initial-frame-alist 426frames by specifying @dfn{frame parameters}. @xref{Frame Parameters}.
399@cindex face customization, in init file
400@cindex color customization, in init file
401 You can control the appearance of new frames you create by setting the
402frame parameters in @code{default-frame-alist}. You can use the
403variable @code{initial-frame-alist} to specify parameters that affect
404only the initial frame. @xref{Initial Parameters,,, elisp, The Emacs
405Lisp Reference Manual}, for more information.
406
407@cindex font (default)
408 Here is an example of using @code{default-frame-alist} to specify
409the default foreground color and font:
410
411@example
412(add-to-list 'default-frame-alist '(font . "10x20"))
413(add-to-list 'default-frame-alist
414 '(foreground-color . "blue"))
415@end example
416
417@noindent
418By putting such customizations in your init file, you can control the
419appearance of all the frames Emacs creates, including the initial one
420(@pxref{Init File}). @xref{Fonts}, for other ways to set the default
421font.
422 427
423@node Frame Commands 428@node Frame Commands
424@section Frame Commands 429@section Frame Commands
425 430
426 The following commands let you create, delete and operate on frames: 431 The following commands are used to delete and operate on frames:
427 432
428@table @kbd 433@table @kbd
434@item C-x 5 0
435@kindex C-x 5 0
436@findex delete-frame
437Delete the selected frame (@code{delete-frame}). This signals an
438error if there is only one frame.
439
429@item C-z 440@item C-z
430@kindex C-z @r{(X windows)} 441@kindex C-z @r{(X windows)}
431@findex suspend-frame 442@findex suspend-frame
432Minimize (or ``iconify) the selected Emacs frame 443Minimize (or ``iconify) the selected Emacs frame
433(@code{suspend-frame}). @xref{Exiting}. 444(@code{suspend-frame}). @xref{Exiting}.
434 445
435@item C-x 5 0
436@kindex C-x 5 0
437@findex delete-frame
438Delete the selected frame (@code{delete-frame}). This is not allowed
439if there is only one frame.
440
441@item C-x 5 o 446@item C-x 5 o
442@kindex C-x 5 o 447@kindex C-x 5 o
443@findex other-frame 448@findex other-frame
444Select another frame, raise it, and warp the mouse to it. If you 449Select another frame, and raise it. If you repeat this command, it
445repeat this command, it cycles through all the frames on your 450cycles through all the frames on your terminal.
446terminal.
447 451
448@item C-x 5 1 452@item C-x 5 1
449@kindex C-x 5 1 453@kindex C-x 5 1
@@ -451,43 +455,37 @@ terminal.
451Delete all frames on the current terminal, except the selected one. 455Delete all frames on the current terminal, except the selected one.
452@end table 456@end table
453 457
454 The @kbd{C-x 5 0} (@code{delete-frame}) command never deletes the 458 The @kbd{C-x 5 0} (@code{delete-frame}) command deletes the selected
455last frame. This prevents you from losing the ability to interact 459frame. However, it will refuse to delete the last frame in an Emacs
456with the Emacs process. Note that when Emacs is run as a daemon 460session, to prevent you from losing the ability to interact with the
457(@pxref{Emacs Server}), there is always a ``virtual frame'' that 461Emacs session. Note that when Emacs is run as a daemon (@pxref{Emacs
458remains after all the ordinary, interactive frames are deleted. In 462Server}), there is always a ``virtual frame'' that remains after all
459this case, @kbd{C-x 5 0} can delete the last interactive frame; you 463the ordinary, interactive frames are deleted. In this case, @kbd{C-x
460can use @command{emacsclient} to reconnect to the Emacs session. 4645 0} can delete the last interactive frame; you can use
461 465@command{emacsclient} to reconnect to the Emacs session.
462 The @kbd{C-x 5 1} (@code{delete-other-frames}) command only deletes 466
463frames on the current terminal. For example, if you call it from an X 467 The @kbd{C-x 5 1} (@code{delete-other-frames}) command deletes all
464frame, it deletes the other frames on that X display; if the Emacs 468other frames on the current terminal (this terminal refers to either a
465process has frames open on other X displays or text terminals, those 469graphical display, or a text-only terminal; @pxref{Non-Window
466are not deleted. 470Terminals}). If the Emacs session has frames open on other graphical
471displays or text terminals, those are not deleted.
467 472
468@vindex focus-follows-mouse 473@vindex focus-follows-mouse
469 On X, you may have to tell Emacs how the window manager handles 474 The @kbd{C-x 5 o} (@code{other-frame}) command selects the next
470focus-switching between windows, in order for @kbd{C-x 5 o} 475frame on the current terminal. If you are using Emacs on the X Window
471(@code{other-frame}) to work properly. Unfortunately, there is no way 476System with a window manager that selects (or @dfn{gives focus to})
472for Emacs to detect this automatically, so you should set the variable 477whatever frame the mouse cursor is over, you have to change the
473@code{focus-follows-mouse}. The default is @code{nil}, meaning you 478variable @code{focus-follows-mouse} to @code{t} in order for this
474have to click on the window to select it (the default for most modern 479command to work properly. Then invoking @kbd{C-x 5 o} will also warp
475window managers). You should change it to @code{t} if your window 480the mouse cursor to the chosen frame.
476manager selects a window and gives it focus anytime you move the mouse
477onto the window.
478
479 The window manager that is part of MS-Windows always gives focus to
480a frame that raises, so this variable has no effect in the native
481MS-Windows build of Emacs. However, you may still wish to set this
482variable to @code{t} to have Emacs automatically move the mouse
483pointer to the raised frame.
484 481
485@node Fonts 482@node Fonts
486@section Fonts 483@section Fonts
487@cindex fonts 484@cindex fonts
488 485
489 By default, Emacs displays text in X using a 12-point monospace 486 By default, Emacs displays text on graphical displays using a
490font. There are several different ways to specify a different font: 48712-point monospace font. There are several different ways to specify
488a different font:
491 489
492@itemize 490@itemize
493@item 491@item
@@ -501,7 +499,7 @@ variable @code{default-frame-alist} to specify the @code{font}
501parameter (@pxref{Creating Frames}), like this: 499parameter (@pxref{Creating Frames}), like this:
502 500
503@smallexample 501@smallexample
504(add-to-list 'default-frame-alist '(font . "DejaVu Sans Mono-12")) 502(add-to-list 'default-frame-alist '(font . "DejaVu Sans Mono-10"))
505@end smallexample 503@end smallexample
506 504
507@cindex X defaults file 505@cindex X defaults file
@@ -523,18 +521,16 @@ font in your X resources file, you should not quote it.
523If you are running Emacs on the GNOME desktop, you can tell Emacs to 521If you are running Emacs on the GNOME desktop, you can tell Emacs to
524use the default system font by setting the variable 522use the default system font by setting the variable
525@code{font-use-system-font} to @code{t} (the default is @code{nil}). 523@code{font-use-system-font} to @code{t} (the default is @code{nil}).
526For this to work, Emacs must be compiled with Gconf support; this is 524For this to work, Emacs must have been compiled with Gconf support.
527done automatically if the libraries are present at compile time.
528 525
529@item 526@item
530Use the command line option @samp{-fn} (or @samp{--font}). @xref{Font 527Use the command line option @samp{-fn} (or @samp{--font}). @xref{Font
531X}. 528X}.
532@end itemize 529@end itemize
533 530
534To check what font you're currently using, the @kbd{C-u C-x =} 531 To check what font you're currently using, the @kbd{C-u C-x =}
535command can be helpful. It'll describe the character under point, and 532command can be helpful. It describes the character at point, and
536also say what font it's rendered in, if the window system you're 533names the font that it's rendered in.
537running under supports that.
538 534
539@cindex fontconfig 535@cindex fontconfig
540 On X, there are four different ways to express a ``font name''. The 536 On X, there are four different ways to express a ``font name''. The
@@ -548,7 +544,7 @@ the following form:
548@noindent 544@noindent
549Within this format, any of the elements in braces may be omitted. 545Within this format, any of the elements in braces may be omitted.
550Here, @var{fontname} is the @dfn{family name} of the font, such as 546Here, @var{fontname} is the @dfn{family name} of the font, such as
551@samp{Monospace} or @samp{DejaVu Serif}; @var{fontsize} is the 547@samp{Monospace} or @samp{DejaVu Sans Mono}; @var{fontsize} is the
552@dfn{point size} of the font (one @dfn{printer's point} is about 1/72 548@dfn{point size} of the font (one @dfn{printer's point} is about 1/72
553of an inch); and the @samp{@var{name}=@var{values}} entries specify 549of an inch); and the @samp{@var{name}=@var{values}} entries specify
554settings such as the slant and weight of the font. Each @var{values} 550settings such as the slant and weight of the font. Each @var{values}
@@ -561,7 +557,7 @@ Here is a list of common font properties:
561 557
562@table @samp 558@table @samp
563@item slant 559@item slant
564One of @samp{italic}, @samp{oblique} or @samp{roman}. 560One of @samp{italic}, @samp{oblique}, or @samp{roman}.
565 561
566@item weight 562@item weight
567One of @samp{light}, @samp{medium}, @samp{demibold}, @samp{bold} or 563One of @samp{light}, @samp{medium}, @samp{demibold}, @samp{bold} or
@@ -595,8 +591,9 @@ For a more detailed description of Fontconfig patterns, see the
595Fontconfig manual, which is distributed with Fontconfig and available 591Fontconfig manual, which is distributed with Fontconfig and available
596online at @url{http://fontconfig.org/fontconfig-user.html}. 592online at @url{http://fontconfig.org/fontconfig-user.html}.
597 593
598 The second way to specify a font is to use a @dfn{GTK font 594@cindex GTK font pattern
599description}. These have the syntax 595 The second way to specify a font is to use a @dfn{GTK font pattern}.
596These have the syntax
600 597
601@smallexample 598@smallexample
602@var{fontname} [@var{properties}] [@var{fontsize}] 599@var{fontname} [@var{properties}] [@var{fontsize}]
@@ -605,20 +602,24 @@ description}. These have the syntax
605@noindent 602@noindent
606where @var{fontname} is the family name, @var{properties} is a list of 603where @var{fontname} is the family name, @var{properties} is a list of
607property values separated by spaces, and @var{fontsize} is the point 604property values separated by spaces, and @var{fontsize} is the point
608size. The properties that you may specify are as follows: 605size. The properties that you may specify for GTK font patterns are
606as follows:
609 607
610@table @samp 608@itemize
611@item style 609@item
612One of @samp{roman}, @samp{italic} or @samp{oblique}. If omitted, the 610Slant properties: @samp{Italic} or @samp{Oblique}. If omitted, the
613@samp{roman} style is used. 611default (roman) slant is implied.
614@item weight 612@item
615One of @samp{medium}, @samp{ultra-light}, @samp{light}, 613Weight properties: @samp{Bold}, @samp{Book}, @samp{Light},
616@samp{semi-bold}, or @samp{bold}. If omitted, @samp{medium} weight is 614@samp{Medium}, @samp{Semi-bold}, or @samp{Ultra-light}. If omitted,
617used. 615@samp{Medium} weight is implied.
618@end table 616@item
617Width properties: @samp{Semi-Condensed} or @samp{Condensed}. If
618omitted, a default width is used.
619@end itemize
619 620
620@noindent 621@noindent
621Here are some examples of GTK font descriptions: 622Here are some examples of GTK font patterns:
622 623
623@smallexample 624@smallexample
624Monospace 12 625Monospace 12
@@ -657,7 +658,7 @@ The entries have the following meanings:
657@item maker 658@item maker
658The name of the font manufacturer. 659The name of the font manufacturer.
659@item family 660@item family
660The name of the font family (e.g. @samp{courier}). 661The name of the font family (e.g.@: @samp{courier}).
661@item weight 662@item weight
662The font weight---normally either @samp{bold}, @samp{medium} or 663The font weight---normally either @samp{bold}, @samp{medium} or
663@samp{light}. Some font names support other values. 664@samp{light}. Some font names support other values.
@@ -670,8 +671,8 @@ The font width---normally @samp{normal}, @samp{condensed},
670@samp{extended}, or @samp{semicondensed} (some font names support 671@samp{extended}, or @samp{semicondensed} (some font names support
671other values). 672other values).
672@item style 673@item style
673An optional additional style name. Usually it is empty---most long 674An optional additional style name. Usually it is empty---most XLFDs
674font names have two hyphens in a row at this point. 675have two hyphens in a row at this point.
675@item pixels 676@item pixels
676The font height, in pixels. 677The font height, in pixels.
677@item height 678@item height
@@ -840,116 +841,40 @@ input stream for each server. Each server also has its own selected
840frame. The commands you enter with a particular X server apply to 841frame. The commands you enter with a particular X server apply to
841that server's selected frame. 842that server's selected frame.
842 843
843 It is even possible to use this feature to let two or more users 844@node Frame Parameters
844type simultaneously on the two displays, within the same Emacs job. 845@section Frame Parameters
845In practice, however, the different users can easily interfere with 846@cindex default-frame-alist
846each others' edits if they are not careful.
847
848@node Special Buffer Frames
849@section Special Buffer Frames
850
851@vindex special-display-buffer-names
852 You can make certain chosen buffers, which Emacs normally displays
853in ``some other window'' (@pxref{Displaying Buffers}), appear in
854special frames of their own. To do this, set the variable
855@code{special-display-buffer-names} to a list of buffer names; any
856buffer whose name is in that list automatically gets a special frame.
857@xref{Window Choice}, for how this fits in with the other ways for
858Emacs to choose a window to display in.
859
860 For example, if you set the variable this way,
861 847
862@example 848 You can control the default appearance and behavior of all frames by
863(setq special-display-buffer-names 849specifying a default list of @dfn{frame parameters} in the variable
864 '("*Completions*" "*grep*" "*tex-shell*")) 850@code{default-frame-alist}. Its value should be a list of entries,
865@end example 851each specifying a parameter name and a value for that parameter.
852These entries take effect whenever Emacs creates a new frame,
853including the initial frame.
866 854
867@noindent 855@cindex frame size, specifying default
868then completion lists, @code{grep} output and the @TeX{} mode shell 856 For example, you can add the following lines to your init file
869buffer get individual frames of their own. These frames, and the 857(@pxref{Init File}) to set the default frame width to 90 character
870windows in them, are never automatically split or reused for any other 858columns, the default frame height to 40 character rows, and the
871buffers. They continue to show the buffers they were created for, 859default font to @samp{Monospace-10}:
872unless you alter them by hand. Killing the special buffer deletes its
873frame automatically.
874
875@vindex special-display-regexps
876 More generally, you can set @code{special-display-regexps} to a list
877of regular expressions; then a buffer gets its own frame if its name
878matches any of those regular expressions. (Once again, this applies only
879to buffers that normally get displayed for you in ``another window.'')
880
881@vindex special-display-frame-alist
882 The variable @code{special-display-frame-alist} specifies the frame
883parameters for these frames. It has a default value, so you don't need
884to set it.
885
886 For those who know Lisp, an element of
887@code{special-display-buffer-names} or @code{special-display-regexps}
888can also be a list. Then the first element is the buffer name or
889regular expression; the rest of the list specifies how to create the
890frame. It can be an association list specifying frame parameter
891values; these values take precedence over parameter values specified
892in @code{special-display-frame-alist}. If you specify the symbol
893@code{same-window} as a ``frame parameter'' in this list, with a
894non-@code{nil} value, that means to use the selected window if
895possible. If you use the symbol @code{same-frame} as a ``frame
896parameter'' in this list, with a non-@code{nil} value, that means to
897use the selected frame if possible.
898
899 Alternatively, the value can have this form:
900 860
901@example 861@example
902(@var{function} @var{args}...) 862(add-to-list 'default-frame-alist '(width . 90))
863(add-to-list 'default-frame-alist '(height . 40))
864(add-to-list 'default-frame-alist '(font . "Monospace-10"))
903@end example 865@end example
904 866
905@noindent 867 For a list of frame parameters and their effects, see @ref{Frame
906where @var{function} is a symbol. Then the frame is constructed by 868Parameters,,, elisp, The Emacs Lisp Reference Manual}.
907calling @var{function}; its first argument is the buffer, and its
908remaining arguments are @var{args}.
909
910@node Frame Parameters
911@section Setting Frame Parameters
912@cindex Auto-Raise mode
913@cindex Auto-Lower mode
914
915 These commands are available for controlling the window management
916behavior of the selected frame:
917 869
918@table @kbd 870@cindex initial-frame-alist
919@findex auto-raise-mode 871 You can also specify a list of frame parameters which apply to just
920@item M-x auto-raise-mode 872the initial frame, by customizing the variable
921Toggle whether or not the selected frame should auto-raise. Auto-raise 873@code{initial-frame-alist}.
922means that every time you move the mouse onto the frame, it raises the
923frame.
924
925Some window managers also implement auto-raise. If you enable
926auto-raise for Emacs frames in your window manager, it will work, but
927it is beyond Emacs' control, so @code{auto-raise-mode} has no effect
928on it.
929
930@findex auto-lower-mode
931@item M-x auto-lower-mode
932Toggle whether or not the selected frame should auto-lower.
933Auto-lower means that every time you move the mouse off the frame,
934the frame moves to the bottom of the stack on the screen.
935
936The command @code{auto-lower-mode} has no effect on auto-lower
937implemented by the window manager. To control that, you must use the
938appropriate window manager features.
939@end table
940 874
941 In Emacs versions that use an X toolkit, the color-setting and 875 If Emacs is compiled to use an X toolkit, frame parameters that
942font-setting functions don't affect menus and the menu bar, since they 876specify colors and fonts don't affect menus and the menu bar, since
943are displayed by their own widget classes. To change the appearance of 877those are drawn by the toolkit and not directly by Emacs.
944the menus and menu bar, you must use X resources (@pxref{Resources}).
945@xref{Colors}, regarding colors. @xref{Font X}, regarding choice of
946font.
947
948 Colors, fonts, and other attributes of the frame's display can also
949be customized by setting frame parameters in the variable
950@code{default-frame-alist} (@pxref{Creating Frames}). For a detailed
951description of frame parameters and customization, see @ref{Frame
952Parameters,,, elisp, The Emacs Lisp Reference Manual}.
953 878
954@node Scroll Bars 879@node Scroll Bars
955@section Scroll Bars 880@section Scroll Bars
@@ -994,41 +919,17 @@ or disable the scroll bars (@pxref{Resources}). To control the scroll
994bar width, change the @code{scroll-bar-width} frame parameter 919bar width, change the @code{scroll-bar-width} frame parameter
995(@pxref{Frame Parameters,,, elisp, The Emacs Lisp Reference Manual}). 920(@pxref{Frame Parameters,,, elisp, The Emacs Lisp Reference Manual}).
996 921
997@node Wheeled Mice
998@section Scrolling With ``Wheeled'' Mice
999
1000@cindex mouse wheel
1001@cindex wheel, mouse
1002@findex mouse-wheel-mode
1003@cindex Mouse Wheel minor mode
1004@cindex mode, Mouse Wheel
1005 Some mice have a ``wheel'' instead of a third button. You can
1006usually click the wheel to act as either @kbd{Mouse-2} or
1007@kbd{Mouse-3}, depending on the setup. You can also use the wheel to
1008scroll windows instead of using the scroll bar or keyboard commands.
1009Mouse wheel support only works if the system generates appropriate
1010events; whenever possible, it is turned on by default. To toggle this
1011feature, use @kbd{M-x mouse-wheel-mode}.
1012
1013@vindex mouse-wheel-follow-mouse
1014@vindex mouse-wheel-scroll-amount
1015@vindex mouse-wheel-progressive-speed
1016 The two variables @code{mouse-wheel-follow-mouse} and
1017@code{mouse-wheel-scroll-amount} determine where and by how much
1018buffers are scrolled. The variable
1019@code{mouse-wheel-progressive-speed} determines whether the scroll
1020speed is linked to how fast you move the wheel.
1021
1022@node Drag and Drop 922@node Drag and Drop
1023@section Drag and Drop 923@section Drag and Drop
1024@cindex drag and drop 924@cindex drag and drop
1025 925
1026 Emacs supports @dfn{drag and drop} using the mouse. For instance, 926 In most graphical desktop environments, Emacs has basic support for
1027dropping text onto an Emacs frame inserts the text where it is dropped. 927@dfn{drag and drop} operations. For instance, dropping text onto an
1028Dropping a file onto an Emacs frame visits that file. As a special 928Emacs frame inserts the text where it is dropped. Dropping a file
1029case, dropping the file on a Dired buffer moves or copies the file 929onto an Emacs frame visits that file. As a special case, dropping the
1030(according to the conventions of the application it came from) into the 930file on a Dired buffer moves or copies the file (according to the
1031directory displayed in that buffer. 931conventions of the application it came from) into the directory
932displayed in that buffer.
1032 933
1033@vindex dnd-open-file-other-window 934@vindex dnd-open-file-other-window
1034 Dropping a file normally visits it in the window you drop it on. If 935 Dropping a file normally visits it in the window you drop it on. If
@@ -1045,13 +946,12 @@ protocol, are currently supported.
1045@findex menu-bar-mode 946@findex menu-bar-mode
1046@vindex menu-bar-mode 947@vindex menu-bar-mode
1047 948
1048 You can turn display of menu bars on or off with @kbd{M-x 949 You can toggle the use of menu bars with @kbd{M-x menu-bar-mode}.
1049menu-bar-mode} or by customizing the variable @code{menu-bar-mode}. 950With no argument, this command toggles Menu Bar mode, a global minor
1050With no argument, this command toggles Menu Bar mode, a 951mode. With an argument, the command turns Menu Bar mode on if the
1051minor mode. With an argument, the command turns Menu Bar mode on if the 952argument is positive, off if the argument is not positive. To control
1052argument is positive, off if the argument is not positive. You can use 953the use of menu bars at startup, customize the variable
1053the X resource @samp{menuBar} to control the initial setting of 954@code{menu-bar-mode}.
1054Menu Bar mode. @xref{Resources}.
1055 955
1056@kindex C-Mouse-3 @r{(when menu bar is disabled)} 956@kindex C-Mouse-3 @r{(when menu bar is disabled)}
1057 Expert users often turn off the menu bar, especially on text-only 957 Expert users often turn off the menu bar, especially on text-only
@@ -1135,47 +1035,39 @@ toggle to be activated by default, change the variable
1135help text to the GTK+ file chooser dialog; to disable this help text, 1035help text to the GTK+ file chooser dialog; to disable this help text,
1136change the variable @code{x-gtk-file-dialog-help-text} to @code{nil}. 1036change the variable @code{x-gtk-file-dialog-help-text} to @code{nil}.
1137 1037
1138@vindex x-gtk-use-old-file-dialog
1139 In GTK+ versions 2.4 through 2.10, you can choose to use an older
1140version of the GTK+ file dialog by setting the variable
1141@code{x-gtk-use-old-file-dialog} to a non-@code{nil} value. If Emacs
1142is built with a GTK+ version that has only one file dialog, this
1143variable has no effect.
1144
1145@node Tooltips 1038@node Tooltips
1146@section Tooltips 1039@section Tooltips
1147@cindex tooltips 1040@cindex tooltips
1148 1041
1149 @dfn{Tooltips} are small windows that display text information at the 1042 @dfn{Tooltips} are small windows that display text information at
1150current mouse position. They activate when there is a pause in mouse 1043the current mouse position. They activate when there is a pause in
1151movement. There are two types of tooltip: help tooltips and GUD 1044mouse movement over some significant piece of text in a window, or the
1152tooltips. 1045mode line, or some other part of the Emacs frame such as a tool bar
1153 1046button or menu item.
1154 @dfn{Help tooltips} typically display over text---including the mode
1155line---but are also available for other parts of the Emacs frame, such
1156as the tool bar and menu items.
1157 1047
1158@findex tooltip-mode 1048@findex tooltip-mode
1159 You can toggle display of help tooltips (Tooltip mode) with the 1049 You can toggle the use of tooltips with the command @kbd{M-x
1160command @kbd{M-x tooltip-mode}. When Tooltip mode is disabled, the 1050tooltip-mode}. When Tooltip mode is disabled, the help text is
1161help text is displayed in the echo area instead. 1051displayed in the echo area instead. To control the use of tooltips at
1162 1052startup, customize the variable @code{tooltip-mode}.
1163 @dfn{GUD tooltips} show values of variables. They are useful when
1164you are debugging a program. @xref{Debugger Operation}.
1165 1053
1166@vindex tooltip-delay 1054@vindex tooltip-delay
1167 The variables @code{tooltip-delay} specifies how long Emacs should 1055 The variables @code{tooltip-delay} specifies how long Emacs should
1168wait before displaying a tooltip. For additional customization 1056wait before displaying a tooltip. For additional customization
1169options for displaying tooltips, use @kbd{M-x customize-group 1057options for displaying tooltips, use @kbd{M-x customize-group
1170@key{RET} tooltip @key{RET}}. @xref{X Resources}, for information on 1058@key{RET} tooltip @key{RET}}.
1171customizing the windows that display tooltips.
1172 1059
1173@vindex x-gtk-use-system-tooltips 1060@vindex x-gtk-use-system-tooltips
1174 If Emacs is built with GTK+ support, it displays tooltips via GTK+, 1061 If Emacs is built with GTK+ support, it displays tooltips via GTK+,
1175using the default appearance of GTK+ tooltips. To disable this, 1062using the default appearance of GTK+ tooltips. To disable this,
1176change the variable @code{x-gtk-use-system-tooltips} to @code{nil}. 1063change the variable @code{x-gtk-use-system-tooltips} to @code{nil}.
1177If you do this, or if Emacs is built without GTK+ support, the 1064If you do this, or if Emacs is built without GTK+ support, most
1178@code{tooltip} face specifies most attributes of the tooltip text. 1065attributes of the tooltip text are specified by the @code{tooltip}
1066face, and by X resources (@pxref{X Resources}).
1067
1068 @dfn{GUD tooltips} are special tooltips that show the values of
1069variables when debugging a program with GUD. @xref{Debugger
1070Operation}.
1179 1071
1180@node Mouse Avoidance 1072@node Mouse Avoidance
1181@section Mouse Avoidance 1073@section Mouse Avoidance
@@ -1248,23 +1140,31 @@ to select a frame according to its name. The name you specify appears
1248in the mode line when the frame is selected. 1140in the mode line when the frame is selected.
1249 1141
1250@node Text-Only Mouse 1142@node Text-Only Mouse
1251@section Using a Mouse in Terminal Emulators 1143@section Using a Mouse in Text-only Terminals
1252@cindex mouse support 1144@cindex mouse support
1253@cindex terminal emulators, mouse support 1145@cindex terminal emulators, mouse support
1254 1146
1255Some text-only terminals support mouse clicks in the terminal window. 1147Some text-only terminals support mouse clicks in the terminal window.
1256 1148
1257@cindex xterm 1149@cindex xterm
1258In a terminal emulator which is compatible with @code{xterm}, 1150 In a terminal emulator which is compatible with @command{xterm}, you
1259you can use @kbd{M-x xterm-mouse-mode} to give Emacs control over 1151can use @kbd{M-x xterm-mouse-mode} to give Emacs control over simple
1260simple use of the mouse---basically, only non-modified single clicks 1152uses of the mouse---basically, only non-modified single clicks are
1261are supported. The normal @code{xterm} mouse functionality for such 1153supported. The normal @command{xterm} mouse functionality for such
1262clicks is still available by holding down the @kbd{SHIFT} key when you 1154clicks is still available by holding down the @kbd{SHIFT} key when you
1263press the mouse button. Xterm Mouse mode is a global minor mode 1155press the mouse button. Xterm Mouse mode is a global minor mode
1264(@pxref{Minor Modes}). Repeating the command turns the mode off 1156(@pxref{Minor Modes}). Repeating the command turns the mode off
1265again. 1157again.
1266 1158
1267@findex gpm-mouse-mode 1159@findex gpm-mouse-mode
1268In the console on GNU/Linux, you can use @kbd{M-x gpm-mouse-mode} to 1160 In the console on GNU/Linux, you can use @kbd{M-x gpm-mouse-mode} to
1269enable terminal mouse support. You must have the gpm package 1161enable mouse support. You must have the gpm server installed and
1270installed and running on your system in order for this to work. 1162running on your system in order for this to work.
1163
1164@iftex
1165@pxref{MS-DOS Mouse,,,emacs-xtra,Specialized Emacs Features},
1166@end iftex
1167@ifnottex
1168@pxref{MS-DOS Mouse},
1169@end ifnottex
1170for information about mouse support on MS-DOS.
diff --git a/doc/emacs/glossary.texi b/doc/emacs/glossary.texi
index e37e80bfab8..3af75245e69 100644
--- a/doc/emacs/glossary.texi
+++ b/doc/emacs/glossary.texi
@@ -509,11 +509,6 @@ character sets and which font to use to display each of them. Fontsets
509make it easy to change several fonts at once by specifying the name of a 509make it easy to change several fonts at once by specifying the name of a
510fontset, rather than changing each font separately. @xref{Fontsets}. 510fontset, rather than changing each font separately. @xref{Fontsets}.
511 511
512@item Formatted Text
513Formatted text is text that displays with formatting information while
514you edit. Formatting information includes fonts, colors, and specified
515margins. @xref{Formatted Text}.
516
517@item Formfeed Character 512@item Formfeed Character
518See `page.' 513See `page.'
519 514
@@ -702,9 +697,8 @@ that someone else is already editing.
702See `incremental search.' 697See `incremental search.'
703 698
704@item Justification 699@item Justification
705Justification means adding extra spaces within lines of text 700Justification means adding extra spaces within lines of text in order
706in order to adjust the position of the text edges. 701to adjust the position of the text edges. @xref{Fill Commands}.
707@xref{Format Justification}.
708 702
709@item Key Binding 703@item Key Binding
710See `binding.' 704See `binding.'
@@ -1362,12 +1356,6 @@ See `abbrev.'
1362Word search is searching for a sequence of words, considering the 1356Word search is searching for a sequence of words, considering the
1363punctuation between them as insignificant. @xref{Word Search}. 1357punctuation between them as insignificant. @xref{Word Search}.
1364 1358
1365@item WYSIWYG
1366WYSIWYG stands for ``What you see is what you get.'' Emacs generally
1367provides WYSIWYG editing for files of characters; in Enriched mode
1368(@pxref{Formatted Text}), it provides WYSIWYG editing for files that
1369include text formatting information.
1370
1371@item Yanking 1359@item Yanking
1372Yanking means reinserting text previously killed (q.v.@:). It can be 1360Yanking means reinserting text previously killed (q.v.@:). It can be
1373used to undo a mistaken kill, or for copying or moving text. Some 1361used to undo a mistaken kill, or for copying or moving text. Some
diff --git a/doc/emacs/indent.texi b/doc/emacs/indent.texi
index e13b2808f09..f99e3519710 100644
--- a/doc/emacs/indent.texi
+++ b/doc/emacs/indent.texi
@@ -8,214 +8,154 @@
8@cindex tabs 8@cindex tabs
9@cindex columns (indentation) 9@cindex columns (indentation)
10 10
11 This chapter describes the Emacs commands that add, remove, or 11@cindex whitespace character
12adjust indentation. 12 @dfn{Indentation} refers to inserting or adjusting @dfn{whitespace
13 13characters} (space and/or tab characters) at the beginning of a line
14@table @kbd 14of text. This chapter documents indentation commands and options
15@item @key{TAB} 15which are common to Text mode and related modes, as well as
16Indent the current line appropriately, in a mode-dependent fashion. 16programming language modes. @xref{Program Indent}, for additional
17@item @kbd{C-j} 17documentation about indenting in programming modes.
18Perform @key{RET} followed by @key{TAB} (@code{newline-and-indent}). 18
19@item M-^ 19@findex indent-for-tab-command
20Merge the previous and the current line (@code{delete-indentation}). 20@kindex TAB @r{(indentation)}
21This would cancel the effect of a preceding @kbd{C-j}. 21 The simplest way to perform indentation is the @key{TAB} key. In
22@item C-M-o 22most major modes, this runs the command @code{indent-for-tab-command}.
23Split the current line at point; text on the line after point becomes a 23(In C and related modes, @key{TAB} runs the command
24new line indented to the same column where point is located 24@code{c-indent-line-or-region}, which behaves similarly).
25(@code{split-line}). 25
26@item M-m 26@table @key
27Move (forward or back) to the first nonblank character on the current 27@item TAB
28line (@code{back-to-indentation}). 28Insert whitespace, or indent the current line, in a mode-appropriate
29@item C-M-\ 29way (@code{indent-for-tab-command}). If the region is active, indent
30Indent lines in the region to the same column (@code{indent-region}). 30all the lines within it.
31@item C-x @key{TAB}
32Shift lines in the region rigidly right or left (@code{indent-rigidly}).
33@item M-i
34Indent from point to the next prespecified tab stop column
35(@code{tab-to-tab-stop}).
36@item M-x indent-relative
37Indent from point to under an indentation point in the previous line.
38@end table 31@end table
39 32
40@noindent 33 The exact behavior of @key{TAB} depends on the major mode. In Text
41The @key{TAB} key runs @code{indent-for-tab-command} in most major 34mode and related major modes, @key{TAB} normally inserts some
42modes (in C and related modes, @key{TAB} runs a separate command, 35combination of space and tab characters to advance point to the next
43@code{c-indent-line-or-region}, which behaves similarly). The major 36tab stop (@pxref{Tab Stops}). For this purpose, the position of the
44mode determines just what this entails. 37first non-whitespace character on the preceding line is treated as an
45 38additional tab stop, so you can use @key{TAB} to ``align'' point with
46 In text modes, @key{TAB} inserts some combination of space and tab 39the preceding line. If the region is active (@pxref{Using Region}),
47characters to advance point to the next tab stop (@pxref{Tab Stops}). 40@key{TAB} acts specially: it indents each line in the region so that
48If the region is active and spans multiple lines, it advances the 41its first non-whitespace character is aligned with the preceding line.
49first character of each of those lines to the next tab stop 42
50(@pxref{Using Region}). For the purposes of this command, the 43 In programming modes, @key{TAB} indents the current line of code in
51position of the first non-whitespace character on the preceding line 44a way that makes sense given the code in the preceding lines. If the
52is treated as an additional tab stop. Thus, you can use @key{TAB} to 45region is active, all the lines in the region are indented this way.
53``align'' point with the preceding line. 46If point was initially within the current line's indentation, it is
54 47repositioned to the first non-whitespace character on the line.
55 In programming modes, @key{TAB} adds or removes some combination of
56space and tab characters at the start of the line, in a way that makes
57sense given the text in the preceding lines. If the region is active
58and spans multiple lines, all those lines are indented this way. If
59point was initially within the current line's indentation, it is
60positioned after that indentation; otherwise, it remains at same point
61in the newly-indented text. @xref{Program Indent}.
62 48
63@vindex tab-width 49 If you just want to insert a tab character in the buffer, type
64 Normally, indentation commands insert (or remove) an optimal mix of 50@kbd{C-q @key{TAB}} (@pxref{Inserting Text}).
65@dfn{tab characters} and spaces to align to the desired column. Tab
66characters (@acronym{ASCII} code 9) are displayed as a stretch of
67empty space extending to the next @dfn{display tab stop}. By default,
68there is one display tab stop every eight columns; the number of
69columns is determined by the variable @code{tab-width}. You can
70insert a single tab character by typing @kbd{C-q @key{TAB}}.
71@xref{Text Display}.
72 51
73@findex edit-tab-stops 52@menu
74@findex tab-to-tab-stop 53* Indentation Commands:: More commands for performing indentation.
75@kindex M-i 54* Tab Stops:: Stop points for indentation in Text modes.
76 The command @kbd{M-i} (@code{tab-to-tab-stop}) adjusts the 55* Just Spaces:: Using only space characters for indentation.
77whitespace characters around point, inserting just enough whitespace 56* Indent Convenience:: Optional indentation features.
78to advance point up to the next tab stop. By default, this involves 57@end menu
79deleting the existing whitespace and inserting a single tab character.
80 58
81 @xref{Just Spaces}, for how to disable use of tabs. However, 59@node Indentation Commands
82@kbd{C-q @key{TAB}} always inserts a tab, even when tabs are disabled 60@section Indentation Commands
83for the indentation commands.
84 61
85@vindex tab-always-indent 62Apart from the @key{TAB} (@code{indent-for-tab-command}) command,
86 The variable @code{tab-always-indent} tweaks the behavior of the 63Emacs provides a variety of commands to perform indentation in other
87@key{TAB} (@code{indent-for-tab-command}) command. The default value, 64ways.
88@code{t}, gives the behavior described above. If you change the value
89to the symbol @code{complete}, then @key{TAB} first tries to indent
90the current line, and if the line was already indented, it tries to
91complete the text at point (@pxref{Symbol Completion}). If the value
92is @code{nil}, then @key{TAB} indents the current line only if point
93is at the left margin or in the line's indentation; otherwise, it
94inserts a real tab character.
95 65
96@menu 66@table @kbd
97* Indentation Commands:: Various commands and techniques for indentation. 67@item C-j
98* Tab Stops:: You can set arbitrary "tab stops" and then 68@kindex C-j
99 indent to the next tab stop when you want to. 69@findex newline-and-indent
100* Just Spaces:: You can request indentation using just spaces. 70Perform @key{RET} followed by @key{TAB} (@code{newline-and-indent}).
101@end menu
102 71
103@node Indentation Commands, Tab Stops, Indentation, Indentation 72@item C-M-o
104@section Indentation Commands and Techniques 73@kindex C-M-o
74@findex split-line
75Split the current line at point (@code{split-line}). The text on the
76line after point becomes a new line, indented to the same column where
77point is located. This command first moves point forward over any
78spaces and tabs. Afterward, point is positioned before the inserted
79newline.
105 80
106@kindex M-m 81@kindex M-m
107@findex back-to-indentation 82@findex back-to-indentation
108 To move over the indentation on a line, do @kbd{M-m} 83@item M-m
109(@code{back-to-indentation}). This command, given anywhere on a line, 84Move (forward or back) to the first non-whitespace character on the
110positions point at the first nonblank character on the line, if any, 85current line (@code{back-to-indentation}). If there are no
111or else at the end of the line. 86non-whitespace characters on the line, move to the end of the line.
112
113 To insert an indented line before the current line, do @kbd{C-a C-o
114@key{TAB}}. To make an indented line after the current line, use
115@kbd{C-e C-j}.
116 87
117 If you just want to insert a tab character in the buffer, type 88@item M-i
118@kbd{C-q @key{TAB}}. 89@kindex M-i
90@findex tab-to-tab-stop
91Indent whitespace at point, up to the next tab stop
92(@code{tab-to-tab-stop}). @xref{Tab Stops}.
119 93
120@kindex C-M-o 94@findex indent-relative
121@findex split-line 95@item M-x indent-relative
122 @kbd{C-M-o} (@code{split-line}) moves the text from point to the end of 96Insert whitespace at point, until point is aligned with the first
123the line vertically down, so that the current line becomes two lines. 97non-whitespace character on the previous line (actually, the last
124@kbd{C-M-o} first moves point forward over any spaces and tabs. Then it 98non-blank line). If point is already farther right than that, run
125inserts after point a newline and enough indentation to reach the same 99@code{tab-to-tab-stop} instead---unless called with a numeric
126column point is on. Point remains before the inserted newline; in this 100argument, in which case do nothing.
127regard, @kbd{C-M-o} resembles @kbd{C-o}.
128 101
102@item M-^
129@kindex M-^ 103@kindex M-^
130@findex delete-indentation 104@findex delete-indentation
131 To join two lines cleanly, use the @kbd{M-^} 105Merge the previous and the current line (@code{delete-indentation}).
132(@code{delete-indentation}) command. It deletes the indentation at 106This ``joins'' the two lines cleanly, by replacing any indentation at
133the front of the current line, and the line boundary as well, 107the front of the current line, together with the line boundary, with a
134replacing them with a single space. As a special case (useful for 108single space.
135Lisp code) the single space is omitted if the characters to be joined 109
136are consecutive open parentheses or closing parentheses, or if the 110As a special case (useful for Lisp code), the single space is omitted
137junction follows another newline. To delete just the indentation of a 111if the characters to be joined are consecutive opening and closing
138line, go to the beginning of the line and use @kbd{M-\} 112parentheses, or if the junction follows another newline.
139(@code{delete-horizontal-space}), which deletes all spaces and tabs 113
140around the cursor. 114If there is a fill prefix, @kbd{M-^} deletes the fill prefix if it
141
142 If you have a fill prefix, @kbd{M-^} deletes the fill prefix if it
143appears after the newline that is deleted. @xref{Fill Prefix}. 115appears after the newline that is deleted. @xref{Fill Prefix}.
144 116
117@item C-M-\
145@kindex C-M-\ 118@kindex C-M-\
146@kindex C-x TAB
147@findex indent-region 119@findex indent-region
148@findex indent-rigidly 120Indent all the lines in the region, as though you had typed @key{TAB}
149 There are also commands for changing the indentation of several lines 121at the beginning of each line (@code{indent-region}).
150at once. They apply to all the lines that begin in the region.
151@kbd{C-M-\} (@code{indent-region}) indents each line in the ``usual''
152way, as if you had typed @key{TAB} at the beginning of the line. A
153numeric argument specifies the column to indent to, and each line is
154shifted left or right so that its first nonblank character appears in
155that column. @kbd{C-x @key{TAB}} (@code{indent-rigidly}) moves all of
156the lines in the region right by its argument (left, for negative
157arguments). The whole group of lines moves rigidly sideways, which is
158how the command gets its name.
159 122
123If a numeric argument is supplied, indent every line in the region to
124that column number.
125
126@item C-x @key{TAB}
127@kindex C-x TAB
128@findex indent-rigidly
160@cindex remove indentation 129@cindex remove indentation
161 To remove all indentation from all of the lines in the region, 130Shift each line in the region by a fixed distance, to the right or
162invoke @kbd{C-x @key{TAB}} with a large negative argument, such as 131left (@code{indent-rigidly}). The distance to move is determined by
163-1000. 132the numeric argument (positive to move rightward, negative to move
133leftward).
134
135This command can be used to remove all indentation from the lines in
136the region, by invoking it with a large negative argument,
137e.g. @kbd{C-u -1000 C-x @key{TAB}}.
138@end table
164 139
165@findex indent-relative 140@node Tab Stops
166 @kbd{M-x indent-relative} indents at point based on the previous line
167(actually, the last nonempty line). It inserts whitespace at point, moving
168point, until it is underneath the next indentation point in the previous line.
169An indentation point is the end of a sequence of whitespace or the end of
170the line. If point is farther right than any indentation point in the
171previous line, @code{indent-relative} runs @code{tab-to-tab-stop}
172@ifnottex
173(@pxref{Tab Stops}),
174@end ifnottex
175@iftex
176(see next section),
177@end iftex
178unless it is called with a numeric argument, in which case it does
179nothing.
180
181 @xref{Format Indentation}, for another way of specifying the
182indentation for part of your text.
183
184@node Tab Stops, Just Spaces, Indentation Commands, Indentation
185@section Tab Stops 141@section Tab Stops
186
187@cindex tab stops 142@cindex tab stops
188@cindex using tab stops in making tables 143
189@cindex tables, indentation for 144@vindex tab-stop-list
190@kindex M-i 145 Emacs defines certain column numbers to be @dfn{tab stops}. These
191@findex tab-to-tab-stop 146are used as stopping points by @key{TAB} when inserting whitespace in
192 For typing in tables, you can use @kbd{M-i} (@code{tab-to-tab-stop}). 147Text mode and related modes (@pxref{Indentation}), and by commands
193This command inserts indentation before point, enough to reach the 148like @kbd{M-i} (@pxref{Indentation Commands}). By default, tab stops
194next tab stop column. 149are located every 8 columns. These positions are stored in the
150variable @code{tab-stop-list}, whose value is a list of column numbers
151in increasing order.
195 152
196@findex edit-tab-stops 153@findex edit-tab-stops
197@findex edit-tab-stops-note-changes
198@kindex C-c C-c @r{(Edit Tab Stops)} 154@kindex C-c C-c @r{(Edit Tab Stops)}
199@vindex tab-stop-list 155 Instead of customizing the variable @code{tab-stop-list} directly, a
200 You can change the tab stops used by @kbd{M-i} and other indentation 156convenient way to view and set tab stops is via the command @kbd{M-x
201commands, so that they need not be spaced every eight characters, or 157edit-tab-stops}. This switches to a buffer containing a description
202even regularly spaced. The tab stops are stored in the variable 158of the tab stop settings, which looks like this:
203@code{tab-stop-list}, as a list of column numbers in increasing order.
204
205 A convenient way to set the tab stops is with @kbd{M-x
206edit-tab-stops}, which creates and selects a buffer containing a
207description of the tab stop settings. You can edit this buffer to
208specify different tab stops, and then type @kbd{C-c C-c} to make those
209new tab stops take effect. The buffer uses Overwrite mode
210(@pxref{Minor Modes}). @code{edit-tab-stops} records which buffer was
211current when you invoked it, and stores the tab stops back in that
212buffer; normally all buffers share the same tab stops and changing
213them in one buffer affects all, but if you happen to make
214@code{tab-stop-list} local in one buffer then @code{edit-tab-stops} in
215that buffer will edit the local settings.
216
217 Here is what the text representing the tab stops looks like for ordinary
218tab stops every eight columns.
219 159
220@example 160@example
221 : : : : : : 161 : : : : : :
@@ -224,37 +164,77 @@ tab stops every eight columns.
224To install changes, type C-c C-c 164To install changes, type C-c C-c
225@end example 165@end example
226 166
227 The first line contains a colon at each tab stop. The remaining lines 167@noindent
228are present just to help you see where the colons are and know what to do. 168The first line contains a colon at each tab stop. The numbers on the
169next two lines are present just to indicate where the colons are.
170
171 You can edit this buffer to specify different tab stops by placing
172colons on the desired columns. The buffer uses Overwrite mode
173(@pxref{Minor Modes}). When you are done, type @kbd{C-c C-c} to make
174the new tab stops take effect. Normally, the new tab stop settings
175apply to all buffers. However, if you have made the
176@code{tab-stop-list} variable local to the buffer where you called
177@kbd{M-x edit-tab-stops} (@pxref{Locals}), then the new tab stop
178settings apply only to that buffer. To save the tab stop settings for
179future Emacs sessions, use the Customize interface to save the value
180of @code{tab-stop-list} (@pxref{Easy Customization}).
181
182 Note that the tab stops discussed in this section have nothing to do
183with how tab characters are displayed in the buffer. Tab characters
184are always displayed as empty spaces extending to the next
185@dfn{display tab stop}. @xref{Text Display}.
186
187@node Just Spaces
188@section Tabs vs. Spaces
229 189
230 Note that the tab stops that control @code{tab-to-tab-stop} have 190@vindex tab-width
231nothing to do with how tab characters are displayed in the buffer. 191 Normally, indentation commands insert (or remove) an optimal mix of
232Tab characters are always displayed as empty spaces extending to the 192space characters and tab characters to align to the desired column.
233next display tab stop, which occurs every @code{tab-width} columns 193Tab characters are displayed as a stretch of empty space extending to
234regardless of the contents of @code{tab-stop-list}. @xref{Text 194the next @dfn{display tab stop}. By default, there is one display tab
195stop every @code{tab-width} columns (the default is 8). @xref{Text
235Display}. 196Display}.
236 197
237@node Just Spaces,, Tab Stops, Indentation
238@section Tabs vs. Spaces
239
240@vindex indent-tabs-mode 198@vindex indent-tabs-mode
241 Emacs normally uses both tabs and spaces to indent lines. If you 199 If you prefer, all indentation can be made from spaces only. To
242prefer, all indentation can be made from spaces only. To request 200request this, set the buffer-local variable @code{indent-tabs-mode} to
243this, set @code{indent-tabs-mode} to @code{nil}. This is a per-buffer 201@code{nil}. @xref{Locals}, for information about setting buffer-local
244variable, so altering the variable affects only the current buffer, 202variables. Note, however, that @kbd{C-q @key{TAB}} always inserts a
245but there is a default value which you can change as well. 203tab character, regardless of the value of @code{indent-tabs-mode}.
246@xref{Locals}. 204
247 205 One reason to set @code{indent-tabs-mode} to @code{nil} is that not
248 A tab is not always displayed in the same way. By default, tabs are 206all editors display tab characters in the same way. Emacs users, too,
249eight columns wide, but some people like to customize their editors to 207may have different customized values of @code{tab-width}. By using
250use a different tab width (e.g., by changing the variable 208spaces only, you can make sure that your file always looks the same.
251@code{tab-width} in Emacs). By using spaces only, you can make sure 209If you only care about how it looks within Emacs, another way to
252that your file looks the same regardless of the tab width setting. 210tackle this problem is to set the @code{tab-width} variable in a
211file-local variable (@pxref{File Variables}).
253 212
254@findex tabify 213@findex tabify
255@findex untabify 214@findex untabify
256 There are also commands to convert tabs to spaces or vice versa, always 215 There are also commands to convert tabs to spaces or vice versa, always
257preserving the columns of all nonblank text. @kbd{M-x tabify} scans the 216preserving the columns of all non-whitespace text. @kbd{M-x tabify} scans the
258region for sequences of spaces, and converts sequences of at least two 217region for sequences of spaces, and converts sequences of at least two
259spaces to tabs if that can be done without changing indentation. @kbd{M-x 218spaces to tabs if that can be done without changing indentation. @kbd{M-x
260untabify} changes all tabs in the region to appropriate numbers of spaces. 219untabify} changes all tabs in the region to appropriate numbers of spaces.
220
221@node Indent Convenience
222@section Convenience Features for Indentation
223
224@vindex tab-always-indent
225 The variable @code{tab-always-indent} tweaks the behavior of the
226@key{TAB} (@code{indent-for-tab-command}) command. The default value,
227@code{t}, gives the behavior described in @ref{Indentation}. If you
228change the value to the symbol @code{complete}, then @key{TAB} first
229tries to indent the current line, and if the line was already
230indented, it tries to complete the text at point (@pxref{Symbol
231Completion}). If the value is @code{nil}, then @key{TAB} indents the
232current line only if point is at the left margin or in the line's
233indentation; otherwise, it inserts a tab character.
234
235@cindex Electric Indent mode
236@cindex mode, Electric Indent
237@findex electric-indent-mode
238 Electric Indent mode is a global minor mode that automatically
239indents the line after every @key{RET} you type. To toggle this minor
240mode, type @kbd{M-x electric-indent-mode}.
diff --git a/doc/emacs/modes.texi b/doc/emacs/modes.texi
index 5a786be62cf..4d574242c8d 100644
--- a/doc/emacs/modes.texi
+++ b/doc/emacs/modes.texi
@@ -3,11 +3,11 @@
3@c Free Software Foundation, Inc. 3@c Free Software Foundation, Inc.
4@c See file emacs.texi for copying conditions. 4@c See file emacs.texi for copying conditions.
5@node Modes, Indentation, International, Top 5@node Modes, Indentation, International, Top
6@chapter Editing Modes 6@chapter Major and Minor Modes
7 7
8 Emacs contains many @dfn{editing modes}, each of which alters its 8 Emacs contains many @dfn{editing modes} that alter its basic
9basic behavior in useful ways. These are divided into @dfn{major 9behavior in useful ways. These are divided into @dfn{major modes} and
10modes} and @dfn{minor modes}. 10@dfn{minor modes}.
11 11
12 Major modes provide specialized facilities for working on a 12 Major modes provide specialized facilities for working on a
13particular file type, such as a C source file (@pxref{Programs}), or a 13particular file type, such as a C source file (@pxref{Programs}), or a
@@ -38,15 +38,8 @@ one another, and of the selected major mode.
38 38
39 Every buffer possesses a major mode, which determines the editing 39 Every buffer possesses a major mode, which determines the editing
40behavior of Emacs while that buffer is current. The mode line 40behavior of Emacs while that buffer is current. The mode line
41normally shows the name of the current major mode, in parentheses. 41normally shows the name of the current major mode, in parentheses
42@xref{Mode Line}. 42(@pxref{Mode Line}).
43
44 Usually, the major mode is automatically set by Emacs, when you
45first visit a file or create a buffer. @xref{Choosing Modes}. You
46can explicitly select a new major mode by using an @kbd{M-x} command.
47Take the name of the mode and add @code{-mode} to get the name of the
48command to select that mode. Thus, you can enter Lisp mode with
49@kbd{M-x lisp-mode}.
50 43
51 The least specialized major mode is called @dfn{Fundamental mode}. 44 The least specialized major mode is called @dfn{Fundamental mode}.
52This mode has no mode-specific redefinitions or variable settings, so 45This mode has no mode-specific redefinitions or variable settings, so
@@ -55,73 +48,142 @@ user option variable is in its default state.
55 48
56 For editing text of a specific type that Emacs knows about, such as 49 For editing text of a specific type that Emacs knows about, such as
57Lisp code or English text, you typically use a more specialized major 50Lisp code or English text, you typically use a more specialized major
58mode, such as Lisp mode or Text mode. Such major modes change the 51mode, such as Lisp mode or Text mode. Most major modes fall into
59meanings of some keys to become more specifically adapted to the 52three major groups. The first group contains modes for normal text,
60language being edited. The ones that are commonly changed are 53either plain or with mark-up. It includes Text mode, HTML mode, SGML
61@key{TAB}, @key{DEL}, and @kbd{C-j}. The prefix key @kbd{C-c} 54mode, @TeX{} mode and Outline mode. The second group contains modes
62normally contains mode-specific commands. In addition, the commands 55for specific programming languages. These include Lisp mode (which
63which handle comments use the mode to determine how comments are to be 56has several variants), C mode, Fortran mode, and others. The third
64delimited. Many major modes redefine the syntactical properties of 57group consists of major modes that are not associated directly with
65characters appearing in the buffer. 58files; they are used in buffers created for specific purposes by
66 59Emacs, such as Dired mode for buffers made by Dired (@pxref{Dired}),
67 The major modes fall into three major groups. The first group 60Message mode for buffers made by @kbd{C-x m} (@pxref{Sending Mail}),
68contains modes for normal text, either plain or with mark-up. It 61and Shell mode for buffers used to communicate with an inferior shell
69includes Text mode, HTML mode, SGML mode, @TeX{} mode and Outline 62process (@pxref{Interactive Shell}).
70mode. The second group contains modes for specific programming 63
71languages. These include Lisp mode (which has several variants), C 64 Usually, the major mode is automatically set by Emacs, when you
72mode, Fortran mode, and others. The remaining major modes are not 65first visit a file or create a buffer (@pxref{Choosing Modes}). You
73intended for use on users' files; they are used in buffers created for 66can explicitly select a new major mode by using an @kbd{M-x} command.
74specific purposes by Emacs, such as Dired mode for buffers made by 67Take the name of the mode and add @code{-mode} to get the name of the
75Dired (@pxref{Dired}), Message mode for buffers made by @kbd{C-x m} 68command to select that mode. Thus, you can enter Lisp mode with
76(@pxref{Sending Mail}), and Shell mode for buffers used for 69@kbd{M-x lisp-mode}.
77communicating with an inferior shell process (@pxref{Interactive 70
78Shell}). 71@vindex major-mode
79 72 The value of the buffer-local variable @code{major-mode} is a symbol
80 Most programming-language major modes specify that only blank lines 73with the same name as the major mode command (e.g. @code{lisp-mode}).
81separate paragraphs. This is to make the paragraph commands useful. 74This variable is set automatically; you should not change it yourself.
82(@xref{Paragraphs}.) They also cause Auto Fill mode to use the 75
83definition of @key{TAB} to indent the new lines it creates. This is 76 The default value of @code{major-mode} determines the major mode to
84because most lines in a program are usually indented 77use for files that do not specify a major mode, and for new buffers
85(@pxref{Indentation}). 78created with @kbd{C-x b}. Normally, this default value is the symbol
79@code{fundamental-mode}, which specifies Fundamental mode. You can
80change this default value via the Customization interface (@pxref{Easy
81Customization}), or by adding a line like this to your init file
82(@pxref{Init File}):
83
84@smallexample
85(setq-default major-mode 'text-mode)
86@end smallexample
87
88@noindent
89If the default value of @code{major-mode} is @code{nil}, the major
90mode is taken from the previously current buffer.
91
92 Specialized major modes often change the meanings of certain keys to
93do something more suitable for the mode. For instance, programming
94language modes bind @key{TAB} to indent the current line according to
95the rules of the language (@pxref{Indentation}). The keys that are
96commonly changed are @key{TAB}, @key{DEL}, and @kbd{C-j}. Many modes
97also define special commands of their own, usually bound in the prefix
98key @kbd{C-c}. Major modes can also alter user options and variables;
99for instance, programming language modes typicaly set a buffer-local
100value for the variable @code{comment-start}, which determines how
101source code comments are delimited (@pxref{Comments}).
102
103@findex describe-mode
104@kindex C-h m
105 To view the documentation for the current major mode, including a
106list of its key bindings, type @code{C-h m} (@code{describe-mode}).
107
108@cindex mode hook
109@vindex text-mode-hook
110@vindex prog-mode-hook
111 Every major mode, apart from Fundamental mode, defines a @dfn{mode
112hook}, a customizable list of Lisp functions to run each time the mode
113is enabled in a buffer. @xref{Hooks}, for more information about
114hooks. Each mode hook is named after its major mode, e.g. Fortran
115mode has @code{fortran-mode-hook}. Furthermore, all text-based major
116modes run @code{text-mode-hook}, and all programming language modes
117run @code{prog-mode-hook}, prior to running their own mode hooks.
118Hook functions can look at the value of the variable @code{major-mode}
119to see which mode is actually being entered.
120
121 Mode hooks are commonly used to enable minor modes (@pxref{Minor
122Modes}). For example, you can put the following lines in your init
123file to enable Flyspell minor mode in all text-based major modes
124(@pxref{Spelling}), and Eldoc minor mode in Emacs Lisp mode
125(@pxref{Lisp Doc}):
126
127@example
128(add-hook 'text-mode-hook 'flyspell-mode)
129(add-hook 'emacs-lisp-mode-hook 'eldoc-mode)
130@end example
86 131
87@node Minor Modes 132@node Minor Modes
88@section Minor Modes 133@section Minor Modes
89@cindex minor modes 134@cindex minor modes
90@cindex mode, minor 135@cindex mode, minor
91 136
92 A minor mode is an optional editing modes that alters the behavior 137 A minor mode is an optional editing mode that alters the behavior of
93of Emacs in some well-defined way. Unlike major modes, any number of 138Emacs in some well-defined way. Unlike major modes, any number of
94minor modes can be in effect at any time. Some minor modes are 139minor modes can be in effect at any time. Some minor modes are
95@dfn{buffer-local}: they apply only to the current buffer, so you can 140@dfn{buffer-local}, and can be turned on (enabled) in certain buffers
96enable the mode in certain buffers and not others. Other minor modes 141and off (disabled) in others. Other minor modes are @dfn{global}:
97are @dfn{global}: while enabled, they affect everything you do in the 142while enabled, they affect everything you do in the Emacs session, in
98Emacs session, in all buffers. Some global minor modes are enabled by 143all buffers. Most minor modes are disabled by default, but a few are
99default. 144enabled by default.
100 145
101 Most minor modes say in the mode line when they are enabled, just 146 Most buffer-local minor modes say in the mode line when they are
102after the major mode indicator. For example, @samp{Fill} in the mode 147enabled, just after the major mode indicator. For example,
103line means that Auto Fill mode is enabled. @xref{Mode Line}. 148@samp{Fill} in the mode line means that Auto Fill mode is enabled.
104 149@xref{Mode Line}.
105 Each minor mode is associated with a command, called the @dfn{mode 150
106command}, which turns it on or off. The name of this command consists 151@cindex mode commands for minor modes
107of the name of the minor mode, followed by @samp{-mode}; for instance, 152 Like major modes, each minor mode is associated with a @dfn{mode
108the mode command for Auto Fill mode is @code{auto-fill-mode}. Calling 153command}, whose name consists of the mode name followed by
109the minor mode command with no prefix argument @dfn{toggles} the mode, 154@samp{-mode}. For instance, the mode command for Auto Fill mode is
110turning it on if it was off, and off if it was on. A positive 155@code{auto-fill-mode}. But unlike a major mode command, which simply
111argument always turns the mode on, and a zero or negative argument 156enables the mode, the mode command for a minor mode can either enable
112always turns it off. Mode commands are usually invoked with 157or disable it:
113@kbd{M-x}, but you can bind keys to them if you wish (@pxref{Key 158
114Bindings}). 159@itemize
160@item
161If you invoke the mode command directly with no prefix argument
162(either via @kbd{M-x}, or by binding it to a key and typing that key;
163@pxref{Key Bindings}), that @dfn{toggles} the minor mode. The minor
164mode is turned on if it was off, and turned off if it was on.
165
166@item
167If you invoke the mode command with a prefix argument, the minor mode
168is unconditionally turned off if that argument is zero or negative;
169otherwise, it is unconditionally turned on.
170
171@item
172If the mode command is called via Lisp, the minor mode is
173unconditionally turned on if the argument is omitted or @code{nil}.
174This makes it easy to turn on a minor mode from a major mode's mode
175hook (@pxref{Major Modes}). A non-@code{nil} argument is handled like
176an interactive prefix argument, as described above.
177@end itemize
115 178
116 Most minor modes also have a @dfn{mode variable}, with the same name 179 Most minor modes also have a @dfn{mode variable}, with the same name
117as the mode command. Its value is non-@code{nil} if the mode is 180as the mode command. Its value is non-@code{nil} if the mode is
118enabled, and @code{nil} if it is disabled. In some minor modes---but 181enabled, and @code{nil} if it is disabled. In general, you should not
119not all---the value of the variable alone determines whether the mode 182try to enable or disable the mode by changing the value of the mode
120is active: the mode command works simply by setting the variable, and 183variable directly in Lisp; you should run the mode command instead.
121changing the value of the variable has the same effect as calling the 184However, setting the mode variable through the Customize interface
122mode command. Because not all minor modes work this way, we recommend 185(@pxref{Easy Customization}) will always properly enable or disable
123that you avoid changing the mode variables directly; use the mode 186the mode, since Customize automatically runs the mode command for you.
124commands instead.
125 187
126 The following is a list of some buffer-local minor modes: 188 The following is a list of some buffer-local minor modes:
127 189
@@ -140,7 +202,7 @@ amount of work you can lose in case of a crash. @xref{Auto Save}.
140 202
141@item 203@item
142Enriched mode enables editing and saving of formatted text. 204Enriched mode enables editing and saving of formatted text.
143@xref{Formatted Text}. 205@xref{Enriched Text}.
144 206
145@item 207@item
146Flyspell mode automatically highlights misspelled words. 208Flyspell mode automatically highlights misspelled words.
@@ -189,11 +251,8 @@ Visual Line mode performs ``word wrapping'', causing long lines to be
189wrapped at word boundaries. @xref{Visual Line Mode}. 251wrapped at word boundaries. @xref{Visual Line Mode}.
190@end itemize 252@end itemize
191 253
192 Here are some useful global minor modes. Since Line Number mode and 254@noindent
193Transient Mark mode can be enabled or disabled just by setting the 255And here are some useful global minor modes:
194value of the minor mode variable, you @emph{can} set them differently
195for particular buffers, by explicitly making the corresponding
196variable local in those buffers. @xref{Locals}.
197 256
198@itemize @bullet 257@itemize @bullet
199@item 258@item
@@ -261,22 +320,27 @@ text may appear on the line as well. For example,
261 320
262@noindent 321@noindent
263tells Emacs to use Lisp mode. Note how the semicolon is used to make 322tells Emacs to use Lisp mode. Note how the semicolon is used to make
264Lisp treat this line as a comment. Alternatively, you could write 323Lisp treat this line as a comment. You could equivalently write
265 324
266@example 325@example
267; -*- mode: Lisp;-*- 326; -*- mode: Lisp;-*-
268@end example 327@end example
269 328
270@noindent 329@noindent
271The latter format allows you to specify local variables as well, like 330You can also use file-local variables to specify buffer-local minor
272this: 331modes, by using @code{eval} specifications. For example, this first
332nonblank line puts the buffer in Lisp mode and enables Auto-Fill mode:
273 333
274@example 334@example
275; -*- mode: Lisp; tab-width: 4; -*- 335; -*- mode: Lisp; eval: (auto-fill-mode 1); -*-
276@end example 336@end example
277 337
278 If a file variable specifies a buffer-local minor mode, Emacs 338@noindent
279enables that minor mode in the buffer. 339Note, however, that it is usually inappropriate to enable minor modes
340this way, since most minor modes represent individual user
341preferences. If you personally want to use a minor mode for a
342particular file type, it is better to enable the minor mode via a
343major mode hook (@pxref{Major Modes}).
280 344
281@vindex interpreter-mode-alist 345@vindex interpreter-mode-alist
282 Second, if there is no file variable specifying a major mode, Emacs 346 Second, if there is no file variable specifying a major mode, Emacs
@@ -310,9 +374,9 @@ elements of the form
310 374
311@noindent 375@noindent
312where @var{regexp} is a regular expression (@pxref{Regexps}), and 376where @var{regexp} is a regular expression (@pxref{Regexps}), and
313@var{mode-function} is a Lisp function that toggles a major mode. If 377@var{mode-function} is a major mode command. If the text at the
314the text at the beginning of the file matches @var{regexp}, Emacs 378beginning of the file matches @var{regexp}, Emacs chooses the major
315chooses the major mode specified by @var{mode-function}. 379mode specified by @var{mode-function}.
316 380
317Alternatively, an element of @code{magic-mode-alist} may have the form 381Alternatively, an element of @code{magic-mode-alist} may have the form
318 382
@@ -323,7 +387,7 @@ Alternatively, an element of @code{magic-mode-alist} may have the form
323@noindent 387@noindent
324where @var{match-function} is a Lisp function that is called at the 388where @var{match-function} is a Lisp function that is called at the
325beginning of the buffer; if the function returns non-@code{nil}, Emacs 389beginning of the buffer; if the function returns non-@code{nil}, Emacs
326set the major mode wit @var{mode-function}. 390set the major mode with @var{mode-function}.
327 391
328 Fourth---if Emacs still hasn't found a suitable major mode---it 392 Fourth---if Emacs still hasn't found a suitable major mode---it
329looks at the file's name. The correspondence between file names and 393looks at the file's name. The correspondence between file names and
@@ -370,29 +434,6 @@ only after @code{auto-mode-alist}. By default,
370@code{magic-fallback-mode-alist} contains forms that check for image 434@code{magic-fallback-mode-alist} contains forms that check for image
371files, HTML/XML/SGML files, and PostScript files. 435files, HTML/XML/SGML files, and PostScript files.
372 436
373@vindex major-mode
374 Once a major mode is chosen, Emacs sets the value of the variable
375@code{major-mode} to the symbol for that major mode (e.g.,
376@code{text-mode} for Text mode). This is a per-buffer variable
377(@pxref{Locals}); its buffer-local value is set automatically, and you
378should not change it yourself.
379
380 The default value of @code{major-mode} determines the major mode to
381use for files that do not specify a major mode, and for new buffers
382created with @kbd{C-x b}. Normally, this default value is the symbol
383@code{fundamental-mode}, which specifies Fundamental mode. You can
384change it via the Customization interface (@pxref{Easy
385Customization}), or by adding a line like this to your init file
386(@pxref{Init File}):
387
388@smallexample
389(setq-default major-mode 'text-mode)
390@end smallexample
391
392@noindent
393If the default value of @code{major-mode} is @code{nil}, the major
394mode is taken from the previously current buffer.
395
396@findex normal-mode 437@findex normal-mode
397 If you have changed the major mode of a buffer, you can return to 438 If you have changed the major mode of a buffer, you can return to
398the major mode Emacs would have chosen automatically, by typing 439the major mode Emacs would have chosen automatically, by typing
diff --git a/doc/emacs/programs.texi b/doc/emacs/programs.texi
index 2357902341e..675977c2c35 100644
--- a/doc/emacs/programs.texi
+++ b/doc/emacs/programs.texi
@@ -397,7 +397,7 @@ the syntax and conventions for its particular language.
397 397
398 Use @kbd{C-q @key{TAB}} to insert a tab character at point. 398 Use @kbd{C-q @key{TAB}} to insert a tab character at point.
399 399
400@kindex C-j 400@kindex C-j @r{(indenting source code)}
401@findex newline-and-indent 401@findex newline-and-indent
402 When entering lines of new code, use @kbd{C-j} 402 When entering lines of new code, use @kbd{C-j}
403(@code{newline-and-indent}), which inserts a newline and then adjusts 403(@code{newline-and-indent}), which inserts a newline and then adjusts
diff --git a/doc/emacs/rmail.texi b/doc/emacs/rmail.texi
index 71c23655608..0df4a3a7bb5 100644
--- a/doc/emacs/rmail.texi
+++ b/doc/emacs/rmail.texi
@@ -571,6 +571,22 @@ the file name to use, or more generally it may be any Lisp expression
571that returns a file name as a string. @code{rmail-output-file-alist} 571that returns a file name as a string. @code{rmail-output-file-alist}
572applies to both @kbd{o} and @kbd{C-o}. 572applies to both @kbd{o} and @kbd{C-o}.
573 573
574@vindex rmail-automatic-folder-directives
575Rmail can automatically save messages from your primary Rmail file
576(the one that @code{rmail-file-name} specifies) to other files, based
577on the value of the variable @code{rmail-automatic-folder-directives}.
578This variable is a list of elements (@samp{directives}) that say which
579messages to save where. Each directive is a list consisting of an
580output file, followed by one or more pairs of a header name and a regular
581expression. If a message has a header matching the specified regular
582expression, that message is saved to the given file. If the directive
583has more than one header entry, all must match. Rmail checks directives
584when it shows a message from the file @code{rmail-file-name}, and
585applies the first that matches (if any). If the output file is
586@code{nil}, the message is deleted, not saved. For example, you can use
587this feature to save messages from a particular address, or with a
588particular subject, to a dedicated file.
589
574@node Rmail Labels 590@node Rmail Labels
575@section Labels 591@section Labels
576@cindex label (Rmail) 592@cindex label (Rmail)
diff --git a/doc/emacs/text.texi b/doc/emacs/text.texi
index 562ce92d427..8f353961afb 100644
--- a/doc/emacs/text.texi
+++ b/doc/emacs/text.texi
@@ -32,10 +32,9 @@ structure.
32@findex nxml-mode 32@findex nxml-mode
33 Emacs has other major modes for text which contains ``embedded'' 33 Emacs has other major modes for text which contains ``embedded''
34commands, such as @TeX{} and La@TeX{} (@pxref{TeX Mode}); HTML and 34commands, such as @TeX{} and La@TeX{} (@pxref{TeX Mode}); HTML and
35SGML (@pxref{HTML Mode}); XML (@pxref{Top, nXML Mode,,nxml-mode, nXML 35SGML (@pxref{HTML Mode}); XML (@pxref{Top,The nXML Mode
36Mode}); and Groff and Nroff (@pxref{Nroff Mode}). In addition, you 36Manual,,nxml-mode, nXML Mode}); and Groff and Nroff (@pxref{Nroff
37can edit formatted text in WYSIWYG style (``what you see is what you 37Mode}).
38get''), using Enriched mode (@pxref{Formatted Text}).
39 38
40@cindex ASCII art 39@cindex ASCII art
41 If you need to edit pictures made out of text characters (commonly 40 If you need to edit pictures made out of text characters (commonly
@@ -48,13 +47,14 @@ for editing such pictures.
48@xref{Picture Mode}. 47@xref{Picture Mode}.
49@end ifnottex 48@end ifnottex
50 49
51 50@ifinfo
52@cindex skeletons 51@cindex skeletons
53@cindex templates 52@cindex templates
54@cindex autotyping 53@cindex autotyping
55@cindex automatic typing 54@cindex automatic typing
56 The ``automatic typing'' features may be useful when writing text. 55 The ``automatic typing'' features may be useful when writing text.
57@inforef{Top,, autotype}. 56@inforef{Top,The Autotype Manual,autotype}.
57@end ifinfo
58 58
59@menu 59@menu
60* Words:: Moving over and killing words. 60* Words:: Moving over and killing words.
@@ -68,8 +68,8 @@ for editing such pictures.
68* TeX Mode:: Editing input to the formatter TeX. 68* TeX Mode:: Editing input to the formatter TeX.
69* HTML Mode:: Editing HTML and SGML files. 69* HTML Mode:: Editing HTML and SGML files.
70* Nroff Mode:: Editing input to the formatter nroff. 70* Nroff Mode:: Editing input to the formatter nroff.
71* Formatted Text:: Editing formatted text directly in WYSIWYG fashion. 71* Enriched Text:: Editing text ``enriched'' with fonts, colors, etc.
72* Text Based Tables:: Editing text-based tables in WYSIWYG fashion. 72* Text Based Tables:: Commands for editing text-based tables.
73* Two-Column:: Splitting text columns into separate windows. 73* Two-Column:: Splitting text columns into separate windows.
74@end menu 74@end menu
75 75
@@ -78,8 +78,8 @@ for editing such pictures.
78@cindex words 78@cindex words
79@cindex Meta commands and words 79@cindex Meta commands and words
80 80
81 Emacs has commands for moving over or operating on words. By convention, 81 Emacs defines several commands for moving over or operating on
82the keys for them are all Meta characters. 82words:
83 83
84@table @kbd 84@table @kbd
85@item M-f 85@item M-f
@@ -157,13 +157,17 @@ the syntax table. Any character can, for example, be declared to be a
157word delimiter. @xref{Syntax Tables,, Syntax Tables, elisp, The Emacs 157word delimiter. @xref{Syntax Tables,, Syntax Tables, elisp, The Emacs
158Lisp Reference Manual}. 158Lisp Reference Manual}.
159 159
160 In addition, see @ref{Position Info} for the @kbd{M-=}
161(@code{count-words-region}) and @kbd{M-x count-words} commands, which
162count and report the number of words in the region or buffer.
163
160@node Sentences 164@node Sentences
161@section Sentences 165@section Sentences
162@cindex sentences 166@cindex sentences
163@cindex manipulating sentences 167@cindex manipulating sentences
164 168
165 The Emacs commands for manipulating sentences and paragraphs are mostly 169 The Emacs commands for manipulating sentences and paragraphs are
166on Meta keys, so as to be like the word-handling commands. 170mostly on Meta keys, like the word-handling commands.
167 171
168@table @kbd 172@table @kbd
169@item M-a 173@item M-a
@@ -180,12 +184,12 @@ Kill back to the beginning of the sentence (@code{backward-kill-sentence}).
180@kindex M-e 184@kindex M-e
181@findex backward-sentence 185@findex backward-sentence
182@findex forward-sentence 186@findex forward-sentence
183 The commands @kbd{M-a} and @kbd{M-e} (@code{backward-sentence} and 187 The commands @kbd{M-a} (@code{backward-sentence}) and @kbd{M-e}
184@code{forward-sentence}) move to the beginning and end of the current 188(@code{forward-sentence}) move to the beginning and end of the current
185sentence, respectively. They were chosen to resemble @kbd{C-a} and 189sentence, respectively. Their bindings were chosen to resemble
186@kbd{C-e}, which move to the beginning and end of a line. Unlike 190@kbd{C-a} and @kbd{C-e}, which move to the beginning and end of a
187them, @kbd{M-a} and @kbd{M-e} move over successive sentences if 191line. Unlike them, @kbd{M-a} and @kbd{M-e} move over successive
188repeated. 192sentences if repeated.
189 193
190 Moving backward over a sentence places point just before the first 194 Moving backward over a sentence places point just before the first
191character of the sentence; moving forward places point right after the 195character of the sentence; moving forward places point right after the
@@ -207,15 +211,14 @@ it kills back to the beginning of the @var{n}th preceding sentence.
207to the beginning of a sentence. 211to the beginning of a sentence.
208 212
209 The sentence commands assume that you follow the American typist's 213 The sentence commands assume that you follow the American typist's
210convention of putting two spaces at the end of a sentence; they consider 214convention of putting two spaces at the end of a sentence. That is, a
211a sentence to end wherever there is a @samp{.}, @samp{?} or @samp{!} 215sentence ends wherever there is a @samp{.}, @samp{?} or @samp{!}
212followed by the end of a line or two spaces, with any number of 216followed by the end of a line or two spaces, with any number of
213@samp{)}, @samp{]}, @samp{'}, or @samp{"} characters allowed in between. 217@samp{)}, @samp{]}, @samp{'}, or @samp{"} characters allowed in
214A sentence also begins or ends wherever a paragraph begins or ends. 218between. A sentence also begins or ends wherever a paragraph begins
215It is useful to follow this convention, because it makes a distinction 219or ends. It is useful to follow this convention, because it allows
216between periods that end a sentence and periods that indicate 220the Emacs sentence commands to distinguish between periods that end a
217abbreviations; that enables the Emacs sentence commands to distinguish, 221sentence and periods that indicate abbreviations.
218too. These commands do not stop for periods that indicate abbreviations.
219 222
220@vindex sentence-end-double-space 223@vindex sentence-end-double-space
221 If you want to use just one space between sentences, you can set the 224 If you want to use just one space between sentences, you can set the
@@ -225,7 +228,7 @@ drawback: there is no way to distinguish between periods that end
225sentences and those that indicate abbreviations. For convenient and 228sentences and those that indicate abbreviations. For convenient and
226reliable editing, we therefore recommend you follow the two-space 229reliable editing, we therefore recommend you follow the two-space
227convention. The variable @code{sentence-end-double-space} also 230convention. The variable @code{sentence-end-double-space} also
228affects filling (@pxref{Fill Commands}) in related ways. 231affects filling (@pxref{Fill Commands}).
229 232
230@vindex sentence-end 233@vindex sentence-end
231 The variable @code{sentence-end} controls how to recognize the end 234 The variable @code{sentence-end} controls how to recognize the end
@@ -237,19 +240,14 @@ Emacs computes sentence ends according to various criteria such as the
237value of @code{sentence-end-double-space}. 240value of @code{sentence-end-double-space}.
238 241
239@vindex sentence-end-without-period 242@vindex sentence-end-without-period
240 Some languages do not use periods to indicate the end of a sentence. 243 Some languages, such as Thai, do not use periods to indicate the end
241For example, sentences in Thai end with a double space but without a 244of a sentence. Set the variable @code{sentence-end-without-period} to
242period. Set the variable @code{sentence-end-without-period} to
243@code{t} in such cases. 245@code{t} in such cases.
244 246
245@node Paragraphs 247@node Paragraphs
246@section Paragraphs 248@section Paragraphs
247@cindex paragraphs 249@cindex paragraphs
248@cindex manipulating paragraphs 250@cindex manipulating paragraphs
249@kindex M-@{
250@kindex M-@}
251@findex backward-paragraph
252@findex forward-paragraph
253 251
254 The Emacs commands for manipulating paragraphs are also on Meta keys. 252 The Emacs commands for manipulating paragraphs are also on Meta keys.
255 253
@@ -262,23 +260,15 @@ Move forward to next paragraph end (@code{forward-paragraph}).
262Put point and mark around this or next paragraph (@code{mark-paragraph}). 260Put point and mark around this or next paragraph (@code{mark-paragraph}).
263@end table 261@end table
264 262
265 @kbd{M-@{} moves to the beginning of the current or previous 263@kindex M-@{
266paragraph, while @kbd{M-@}} moves to the end of the current or next 264@kindex M-@}
267paragraph. Blank lines and text-formatter command lines separate 265@findex backward-paragraph
268paragraphs and are not considered part of any paragraph. If there is 266@findex forward-paragraph
269a blank line before the paragraph, @kbd{M-@{} moves to the blank line, 267 @kbd{M-@{} (@code{backward-paragraph}) moves to the beginning of the
270because that is convenient in practice. 268current or previous paragraph (see below for the definition of a
271 269paragraph). @kbd{M-@}} (@code{forward-paragraph}) moves to the end of
272 In Text mode, an indented line is not a paragraph break. If you 270the current or next paragraph. If there is a blank line before the
273want indented lines to have this effect, use Paragraph-Indent Text 271paragraph, @kbd{M-@{} moves to the blank line.
274mode instead. @xref{Text Mode}.
275
276 In major modes for programs, paragraphs begin and end only at blank
277lines. This makes the paragraph commands useful, even though there
278are no paragraphs as such in a program.
279
280 When you have set a fill prefix, then paragraphs are delimited by
281all lines which don't start with the fill prefix. @xref{Filling}.
282 272
283@kindex M-h 273@kindex M-h
284@findex mark-paragraph 274@findex mark-paragraph
@@ -287,46 +277,57 @@ all lines which don't start with the fill prefix. @xref{Filling}.
287@kbd{M-h C-w} kills the paragraph around or after point. @kbd{M-h} 277@kbd{M-h C-w} kills the paragraph around or after point. @kbd{M-h}
288puts point at the beginning and mark at the end of the paragraph point 278puts point at the beginning and mark at the end of the paragraph point
289was in. If point is between paragraphs (in a run of blank lines, or 279was in. If point is between paragraphs (in a run of blank lines, or
290at a boundary), the paragraph following point is surrounded by point 280at a boundary), @kbd{M-h} sets the region around the paragraph
291and mark. If there are blank lines preceding the first line of the 281following point. If there are blank lines preceding the first line of
292paragraph, one of these blank lines is included in the region. If the 282the paragraph, one of these blank lines is included in the region. If
293region is already active, the command sets the mark without changing 283the region is already active, the command sets the mark without
294point; furthermore, each subsequent @kbd{M-h} further advances the 284changing point, and each subsequent @kbd{M-h} further advances the
295mark by one paragraph. 285mark by one paragraph.
296 286
287 The definition of a paragraph depends on the major mode. In
288Fundamental mode, as well as Text mode and related modes, a paragraph
289is separated each neighboring paragraph another by one or more
290@dfn{blank lines}---lines that are either empty, or consist solely of
291space, tab and/or formfeed characters. In programming language modes,
292paragraphs are usually defined in a similar way, so that you can use
293the paragraph commands even though there are no paragraphs as such in
294a program.
295
296 Note that an indented line is @emph{not} itself a paragraph break in
297Text mode. If you want indented lines to separate paragraphs, use
298Paragraph-Indent Text mode instead. @xref{Text Mode}.
299
300 If you set a fill prefix, then paragraphs are delimited by all lines
301which don't start with the fill prefix. @xref{Filling}.
302
297@vindex paragraph-start 303@vindex paragraph-start
298@vindex paragraph-separate 304@vindex paragraph-separate
299 The precise definition of a paragraph boundary is controlled by the 305 The precise definition of a paragraph boundary is controlled by the
300variables @code{paragraph-separate} and @code{paragraph-start}. The 306variables @code{paragraph-separate} and @code{paragraph-start}. The
301value of @code{paragraph-start} is a regexp that should match any line 307value of @code{paragraph-start} is a regular expression that should
302that either starts or separates paragraphs. The value of 308match lines that either start or separate paragraphs
303@code{paragraph-separate} is another regexp that should match only lines 309(@pxref{Regexps}). The value of @code{paragraph-separate} is another
304that separate paragraphs without being part of any paragraph (for 310regular expression that should match lines that separate paragraphs
305example, blank lines). Lines that start a new paragraph and are 311without being part of any paragraph (for example, blank lines). Lines
306contained in it must match only @code{paragraph-start}, not 312that start a new paragraph and are contained in it must match only
307@code{paragraph-separate}. Each regular expression must match at the 313@code{paragraph-start}, not @code{paragraph-separate}. For example,
308left margin. For example, in Fundamental mode, @code{paragraph-start} 314in Fundamental mode, @code{paragraph-start} is @w{@code{"\f\\|[
309is @w{@code{"\f\\|[ \t]*$"}}, and @code{paragraph-separate} is 315\t]*$"}}, and @code{paragraph-separate} is @w{@code{"[ \t\f]*$"}}.
310@w{@code{"[ \t\f]*$"}}.
311
312 Normally it is desirable for page boundaries to separate paragraphs.
313The default values of these variables recognize the usual separator for
314pages.
315 316
316@node Pages 317@node Pages
317@section Pages 318@section Pages
318 319
319@cindex pages 320@cindex pages
320@cindex formfeed character 321@cindex formfeed character
321 Within some text files, text is divided into @dfn{pages}, which are 322 Within some text files, text is divided into @dfn{pages} delimited
322delimited by the @dfn{formfeed character} (@acronym{ASCII} code 12, 323by the @dfn{formfeed character} (@acronym{ASCII} code 12, also denoted
323sometimes denoted as @key{control-L}). When you print hardcopy for a 324as @key{control-L}), which is displayed in Emacs as the escape
324file, the formfeed character forces a page break: each page of the 325sequence @samp{^L} (@pxref{Text Display}). Traditionally, when such
325file goes on a separate page on paper. Most Emacs commands treat the 326text files are printed to hardcopy, each formfeed character forces a
326formfeed character just like any other character: you can insert it 327page break. Most Emacs commands treat it just like any other
327with @kbd{C-q C-l}, and delete it with @key{DEL}. However, since 328character, so you can insert it with @kbd{C-q C-l}, delete it with
328pages are often meaningful divisions of the file, Emacs provides 329@key{DEL}, etc. In addition, Emacs provides commands to move over
329commands to move over them and operate on them. 330pages and operate on them.
330 331
331@table @kbd 332@table @kbd
332@item M-x what-page 333@item M-x what-page
@@ -358,9 +359,9 @@ command moves forward past the next page delimiter.
358@kindex C-x C-p 359@kindex C-x C-p
359@findex mark-page 360@findex mark-page
360 The @kbd{C-x C-p} command (@code{mark-page}) puts point at the 361 The @kbd{C-x C-p} command (@code{mark-page}) puts point at the
361beginning of the current page and the mark at the end. The page 362beginning of the current page (after that page delimiter at the
362delimiter at the end is included (the mark follows it). The page 363front), and the mark at the end of the page (after the page delimiter
363delimiter at the front is excluded (point follows it). 364at the end).
364 365
365 @kbd{C-x C-p C-w} is a handy way to kill a page to move it 366 @kbd{C-x C-p C-w} is a handy way to kill a page to move it
366elsewhere. If you move to another page delimiter with @kbd{C-x [} and 367elsewhere. If you move to another page delimiter with @kbd{C-x [} and
@@ -402,9 +403,7 @@ beginning of a line.
402specified width. Emacs does filling in two ways. In Auto Fill mode, 403specified width. Emacs does filling in two ways. In Auto Fill mode,
403inserting text with self-inserting characters also automatically fills 404inserting text with self-inserting characters also automatically fills
404it. There are also explicit fill commands that you can use when editing 405it. There are also explicit fill commands that you can use when editing
405text leaves it unfilled. When you edit formatted text, you can specify 406text leaves it unfilled.
406a style of filling for each portion of the text (@pxref{Formatted
407Text}).
408 407
409@menu 408@menu
410* Auto Fill:: Auto Fill mode breaks long lines automatically. 409* Auto Fill:: Auto Fill mode breaks long lines automatically.
@@ -418,9 +417,9 @@ Text}).
418@cindex Auto Fill mode 417@cindex Auto Fill mode
419@cindex mode, Auto Fill 418@cindex mode, Auto Fill
420 419
421 @dfn{Auto Fill} mode is a minor mode in which lines are broken 420 @dfn{Auto Fill} mode is a buffer-local minor mode (@pxref{Minor
422automatically when they become too wide. Breaking happens only when 421Modes}) in which lines are broken automatically when they become too
423you type a @key{SPC} or @key{RET}. 422wide. Breaking happens only when you type a @key{SPC} or @key{RET}.
424 423
425@table @kbd 424@table @kbd
426@item M-x auto-fill-mode 425@item M-x auto-fill-mode
@@ -431,45 +430,43 @@ In Auto Fill mode, break lines when appropriate.
431@end table 430@end table
432 431
433@findex auto-fill-mode 432@findex auto-fill-mode
434 @kbd{M-x auto-fill-mode} turns Auto Fill mode on if it was off, or off 433 The mode command @kbd{M-x auto-fill-mode} toggles Auto Fill mode in
435if it was on. With a positive numeric argument it always turns Auto 434the current buffer. With a positive numeric argument, it enables Auto
436Fill mode on, and with a negative argument always turns it off. You can 435Fill mode, and with a negative argument it disables it. If
437see when Auto Fill mode is in effect by the presence of the word 436@code{auto-fill-mode} is called from Lisp with an omitted or
438@samp{Fill} in the mode line, inside the parentheses. Auto Fill mode is 437@code{nil} argument, it enables Auto Fill mode. To enable Auto Fill
439a minor mode which is enabled or disabled for each buffer individually. 438mode automatically in certain major modes, add @code{auto-fill-mode}
440@xref{Minor Modes}. 439to the mode hooks (@pxref{Major Modes}). When Auto Fill mode is
441 440enabled, the mode indicator @samp{Fill} appears in the mode line
442 In Auto Fill mode, lines are broken automatically at spaces when they 441(@pxref{Mode Line}).
443get longer than the desired width. Line breaking and rearrangement 442
444takes place only when you type @key{SPC} or @key{RET}. If you wish to 443 Auto Fill mode breaks lines automatically at spaces whenever they
445insert a space or newline without permitting line-breaking, type 444get longer than the desired width. This line breaking occurs only
446@kbd{C-q @key{SPC}} or @kbd{C-q C-j} (recall that a newline is really a 445when you type @key{SPC} or @key{RET}. If you wish to insert a space
447control-J). Also, @kbd{C-o} inserts a newline without line breaking. 446or newline without permitting line-breaking, type @kbd{C-q @key{SPC}}
448 447or @kbd{C-q C-j} respectively. Also, @kbd{C-o} inserts a newline
449 Auto Fill mode works well with programming-language modes, because it 448without line breaking.
450indents new lines with @key{TAB}. If a line ending in a comment gets 449
451too long, the text of the comment is split into two comment lines. 450 When Auto Fill mode breaks a line, it tries to obey the
452Optionally, new comment delimiters are inserted at the end of the first 451@dfn{adaptive fill prefix}: if a fill prefix can be deduced from the
453line and the beginning of the second so that each line is a separate 452first and/or second line of the current paragraph, it is inserted into
454comment; the variable @code{comment-multi-line} controls the choice 453the new line (@pxref{Adaptive Fill}). Otherwise the new line is
455(@pxref{Comments}). 454indented, as though you had typed @key{TAB} on it
456 455(@pxref{Indentation}). In a programming language mode, if a line is
457 Adaptive filling (@pxref{Adaptive Fill}) works for Auto Filling as 456broken in the middle of a comment, the comment is split by inserting
458well as for explicit fill commands. It takes a fill prefix 457new comment delimiters as appropriate.
459automatically from the second or first line of a paragraph. 458
460 459 Auto Fill mode does not refill entire paragraphs; it breaks lines
461 Auto Fill mode does not refill entire paragraphs; it can break lines but 460but does not merge lines. Therefore, editing in the middle of a
462cannot merge lines. So editing in the middle of a paragraph can result in 461paragraph can result in a paragraph that is not correctly filled. To
463a paragraph that is not correctly filled. The easiest way to make the 462fill it, call the explicit fill commands
464paragraph properly filled again is usually with the explicit fill commands. 463@iftex
464described in the next section.
465@end iftex
465@ifnottex 466@ifnottex
466@xref{Fill Commands}. 467(@pxref{Fill Commands}).
467@end ifnottex 468@end ifnottex
468 469
469 Many users like Auto Fill mode and want to use it in all text files.
470The section on init files says how to arrange this permanently for yourself.
471@xref{Init File}.
472
473@node Fill Commands 470@node Fill Commands
474@subsection Explicit Fill Commands 471@subsection Explicit Fill Commands
475 472
@@ -488,21 +485,23 @@ Center a line.
488 485
489@kindex M-q 486@kindex M-q
490@findex fill-paragraph 487@findex fill-paragraph
491 To refill a paragraph, use the command @kbd{M-q} 488 The command @kbd{M-q} (@code{fill-paragraph}) @dfn{fills} the
492(@code{fill-paragraph}). This operates on the paragraph that point is 489current paragraph. It redistributes the line breaks within the
493inside, or the one after point if point is between paragraphs. 490paragraph, and deletes any excess space and tab characters occurring
494Refilling works by removing all the line-breaks, then inserting new 491within the paragraph, in such a way that the lines end up fitting
495ones where necessary. When there is an active region, this command 492within a certain maximum width.
496operates on the text within the region like @code{fill-region}.
497 493
498@findex fill-region 494@findex fill-region
499 To refill many paragraphs, use @kbd{M-x fill-region}, which 495 Normally, @kbd{M-q} acts on the paragraph where point is, but if
500finds the paragraphs in the region and fills each of them. 496point is between paragraphs, it acts on the paragraph after point. If
497the region is active, it acts instead on the text in the region. You
498can also call @kbd{M-x fill-region} to specifically fill the text in
499the region.
501 500
502@findex fill-region-as-paragraph 501@findex fill-region-as-paragraph
503 @kbd{M-q} and @code{fill-region} use the same criteria as @kbd{M-h} 502 @kbd{M-q} and @code{fill-region} use the usual Emacs criteria for
504for finding paragraph boundaries (@pxref{Paragraphs}). For more 503finding paragraph boundaries (@pxref{Paragraphs}). For more control,
505control, you can use @kbd{M-x fill-region-as-paragraph}, which refills 504you can use @kbd{M-x fill-region-as-paragraph}, which refills
506everything between point and mark as a single paragraph. This command 505everything between point and mark as a single paragraph. This command
507deletes any blank lines within the region, so separate blocks of text 506deletes any blank lines within the region, so separate blocks of text
508end up combined into one block. 507end up combined into one block.
@@ -512,9 +511,18 @@ end up combined into one block.
512as well as filling it. This means that extra spaces are inserted to 511as well as filling it. This means that extra spaces are inserted to
513make the right margin line up exactly at the fill column. To remove 512make the right margin line up exactly at the fill column. To remove
514the extra spaces, use @kbd{M-q} with no argument. (Likewise for 513the extra spaces, use @kbd{M-q} with no argument. (Likewise for
515@code{fill-region}.) Another way to control justification, and choose 514@code{fill-region}.)
516other styles of filling, is with the @code{justification} text 515
517property; see @ref{Format Justification}. 516@vindex fill-column
517@kindex C-x f
518@findex set-fill-column
519 The maximum line width for filling is specified by the buffer-local
520variable @code{fill-column}. The default value (@pxref{Locals}) is
52170. The easiest way to set @code{fill-column} in the current buffer
522is to use the command @kbd{C-x f} (@code{set-fill-column}). With a
523numeric argument, it uses that as the new fill column. With just
524@kbd{C-u} as argument, it sets @code{fill-column} to the current
525horizontal position of point.
518 526
519@kindex M-o M-s @r{(Text mode)} 527@kindex M-o M-s @r{(Text mode)}
520@cindex centering 528@cindex centering
@@ -525,40 +533,27 @@ within the current fill column. With an argument @var{n}, it centers
525made by Text mode and is available only in that and related modes 533made by Text mode and is available only in that and related modes
526(@pxref{Text Mode}). 534(@pxref{Text Mode}).
527 535
528@vindex fill-column 536 By default, Emacs considers a period followed by two spaces or by a
529@kindex C-x f 537newline as the end of a sentence; a period followed by just one space
530@findex set-fill-column 538indicates an abbreviation, not the end of a sentence. Accordingly,
531 The maximum line width for filling is in the variable 539the fill commands will not break a line after a period followed by
532@code{fill-column}. Altering the value of @code{fill-column} makes it 540just one space. If you change the variable
533local to the current buffer; until that time, the default value is in 541@code{sentence-end-double-space} to a non-@code{nil} value, the fill
534effect. The default is initially 70. @xref{Locals}. The easiest way 542commands will break a line after a period followed by one space, and
535to set @code{fill-column} is to use the command @kbd{C-x f} 543put just one space after each period. @xref{Sentences}, for other
536(@code{set-fill-column}). With a numeric argument, it uses that as the 544effects and possible drawbacks of this.
537new fill column. With just @kbd{C-u} as argument, it sets
538@code{fill-column} to the current horizontal position of point.
539
540 Emacs commands normally consider a period followed by two spaces or by
541a newline as the end of a sentence; a period followed by just one space
542indicates an abbreviation and not the end of a sentence. To preserve
543the distinction between these two ways of using a period, the fill
544commands do not break a line after a period followed by just one space.
545
546 If the variable @code{sentence-end-double-space} is @code{nil}, the
547fill commands expect and leave just one space at the end of a sentence.
548Ordinarily this variable is @code{t}, so the fill commands insist on
549two spaces for the end of a sentence, as explained above. @xref{Sentences}.
550 545
551@vindex colon-double-space 546@vindex colon-double-space
552 If the variable @code{colon-double-space} is non-@code{nil}, the 547 If the variable @code{colon-double-space} is non-@code{nil}, the
553fill commands put two spaces after a colon. 548fill commands put two spaces after a colon.
554 549
555@vindex fill-nobreak-predicate 550@vindex fill-nobreak-predicate
556 The variable @code{fill-nobreak-predicate} is a hook (an abnormal 551 To specify additional conditions where line-breaking is not allowed,
557hook, @pxref{Hooks}) specifying additional conditions where 552customize the abnormal hook variable @code{fill-nobreak-predicate}
558line-breaking is not allowed. Each function is called with no 553(@pxref{Hooks}). Each function in this hook is called with no
559arguments, with point at a place where Emacs is considering breaking 554arguments, with point positioned where Emacs is considering breaking a
560the line. If a function returns a non-@code{nil} value, then that's 555line. If a function returns a non-@code{nil} value, Emacs will not
561a bad place to break the line. Two standard functions you can use are 556break the line there. Two functions you can use are
562@code{fill-single-word-nobreak-p} (don't break after the first word of 557@code{fill-single-word-nobreak-p} (don't break after the first word of
563a sentence or before the last) and @code{fill-french-nobreak-p} (don't 558a sentence or before the last) and @code{fill-french-nobreak-p} (don't
564break after @samp{(} or before @samp{)}, @samp{:} or @samp{?}). 559break after @samp{(} or before @samp{)}, @samp{:} or @samp{?}).
@@ -567,12 +562,11 @@ break after @samp{(} or before @samp{)}, @samp{:} or @samp{?}).
567@subsection The Fill Prefix 562@subsection The Fill Prefix
568 563
569@cindex fill prefix 564@cindex fill prefix
570 To fill a paragraph in which each line starts with a special marker 565 The @dfn{fill prefix} feature allows paragraphs to be filled so that
571(which might be a few spaces, giving an indented paragraph), you can use 566each line starts with a special string of characters (such as a
572the @dfn{fill prefix} feature. The fill prefix is a string that Emacs 567sequence of spaces, giving an indented paragraph). You can specify a
573expects every line to start with, and which is not included in filling. 568fill prefix explicitly; otherwise, Emacs tries to deduce one
574You can specify a fill prefix explicitly; Emacs can also deduce the 569automatically (@pxref{Adaptive Fill}).
575fill prefix automatically (@pxref{Adaptive Fill}).
576 570
577@table @kbd 571@table @kbd
578@item C-x . 572@item C-x .
@@ -596,15 +590,15 @@ after the @kbd{C-x}.) To turn off the fill prefix, specify an empty
596prefix: type @w{@kbd{C-x .}}@: with point at the beginning of a line. 590prefix: type @w{@kbd{C-x .}}@: with point at the beginning of a line.
597 591
598 When a fill prefix is in effect, the fill commands remove the fill 592 When a fill prefix is in effect, the fill commands remove the fill
599prefix from each line of the paragraph before filling and insert it on 593prefix from each line of the paragraph before filling, and insert it
600each line after filling. (The beginning of the first line of the 594on each line after filling. (The beginning of the first line of the
601paragraph is left unchanged, since often that is intentionally 595paragraph is left unchanged, since often that is intentionally
602different.) Auto Fill mode also inserts the fill prefix automatically 596different.) Auto Fill mode also inserts the fill prefix automatically
603when it makes a new line. The @kbd{C-o} command inserts the fill 597when it makes a new line (@pxref{Auto Fill}). The @kbd{C-o} command
604prefix on new lines it creates, when you use it at the beginning of a 598inserts the fill prefix on new lines it creates, when you use it at
605line (@pxref{Blank Lines}). Conversely, the command @kbd{M-^} deletes 599the beginning of a line (@pxref{Blank Lines}). Conversely, the
606the prefix (if it occurs) after the newline that it deletes 600command @kbd{M-^} deletes the prefix (if it occurs) after the newline
607(@pxref{Indentation}). 601that it deletes (@pxref{Indentation}).
608 602
609 For example, if @code{fill-column} is 40 and you set the fill prefix 603 For example, if @code{fill-column} is 40 and you set the fill prefix
610to @samp{;; }, then @kbd{M-q} in the following text 604to @samp{;; }, then @kbd{M-q} in the following text
@@ -657,7 +651,8 @@ per-buffer variable; altering the variable affects only the current buffer,
657but there is a default value which you can change as well. @xref{Locals}. 651but there is a default value which you can change as well. @xref{Locals}.
658 652
659 The @code{indentation} text property provides another way to control 653 The @code{indentation} text property provides another way to control
660the amount of indentation paragraphs receive. @xref{Format Indentation}. 654the amount of indentation paragraphs receive. @xref{Enriched
655Indentation}.
661 656
662@node Adaptive Fill 657@node Adaptive Fill
663@subsection Adaptive Filling 658@subsection Adaptive Filling
@@ -754,17 +749,16 @@ Convert region to upper case (@code{upcase-region}).
754@findex downcase-word 749@findex downcase-word
755@findex upcase-word 750@findex upcase-word
756@findex capitalize-word 751@findex capitalize-word
757 The word conversion commands are the most useful. @kbd{M-l} 752 @kbd{M-l} (@code{downcase-word}) converts the word after point to
758(@code{downcase-word}) converts the word after point to lower case, moving 753lower case, moving past it. Thus, repeating @kbd{M-l} converts
759past it. Thus, repeating @kbd{M-l} converts successive words. 754successive words. @kbd{M-u} (@code{upcase-word}) converts to all
760@kbd{M-u} (@code{upcase-word}) converts to all capitals instead, while 755capitals instead, while @kbd{M-c} (@code{capitalize-word}) puts the
761@kbd{M-c} (@code{capitalize-word}) puts the first letter of the word 756first letter of the word into upper case and the rest into lower case.
762into upper case and the rest into lower case. All these commands convert 757All these commands convert several words at once if given an argument.
763several words at once if given an argument. They are especially convenient 758They are especially convenient for converting a large amount of text
764for converting a large amount of text from all upper case to mixed case, 759from all upper case to mixed case, because you can move through the
765because you can move through the text using @kbd{M-l}, @kbd{M-u} or 760text using @kbd{M-l}, @kbd{M-u} or @kbd{M-c} on each word as
766@kbd{M-c} on each word as appropriate, occasionally using @kbd{M-f} instead 761appropriate, occasionally using @kbd{M-f} instead to skip a word.
767to skip a word.
768 762
769 When given a negative argument, the word case conversion commands apply 763 When given a negative argument, the word case conversion commands apply
770to the appropriate number of words before point, but do not move point. 764to the appropriate number of words before point, but do not move point.
@@ -798,9 +792,10 @@ enable the command, which means it will not ask for confirmation again.
798@cindex mode, Text 792@cindex mode, Text
799@findex text-mode 793@findex text-mode
800 794
801 When you edit files of text in a human language, it's more convenient 795 Text mode is a major mode for editing files of text in a human
802to use Text mode rather than Fundamental mode. To enter Text mode, type 796language. Files which have names ending in the extension @file{.txt}
803@kbd{M-x text-mode}. 797are usually opened in Text mode (@pxref{Choosing Modes}). To
798explicitly switch to Text mode, type @kbd{M-x text-mode}.
804 799
805 In Text mode, only blank lines and page delimiters separate 800 In Text mode, only blank lines and page delimiters separate
806paragraphs. As a result, paragraphs can be indented, and adaptive 801paragraphs. As a result, paragraphs can be indented, and adaptive
@@ -808,46 +803,49 @@ filling determines what indentation to use when filling a paragraph.
808@xref{Adaptive Fill}. 803@xref{Adaptive Fill}.
809 804
810@kindex TAB @r{(Text mode)} 805@kindex TAB @r{(Text mode)}
811 Text mode defines @key{TAB} to run @code{indent-relative} 806 In Text mode, the @key{TAB} (@code{indent-for-tab-command}) command
812(@pxref{Indentation}), so that you can conveniently indent a line like 807usually inserts whitespace up to the next tab stop, instead of
813the previous line. 808indenting the current line. @xref{Indentation}, for details.
814 809
815 Text mode turns off the features concerned with comments except when 810 Text mode turns off the features concerned with comments except when
816you explicitly invoke them. It changes the syntax table so that 811you explicitly invoke them. It changes the syntax table so that
817single-quotes are considered part of words. However, if a word starts 812single-quotes are considered part of words (e.g.@: @samp{don't} is
818with single-quotes, these are treated as a prefix for purposes such as 813considered one word). However, if a word starts with a single-quote,
819capitalization. That is, @kbd{M-c} will convert @samp{'hello'} into 814it is treated as a prefix for the purposes of capitalization
820@samp{'Hello'}, as expected. 815(e.g.@: @kbd{M-c} converts @samp{'hello'} into @samp{'Hello'}, as
816expected).
821 817
822@cindex Paragraph-Indent Text mode 818@cindex Paragraph-Indent Text mode
823@cindex mode, Paragraph-Indent Text 819@cindex mode, Paragraph-Indent Text
824@findex paragraph-indent-text-mode 820@findex paragraph-indent-text-mode
825@findex paragraph-indent-minor-mode 821@findex paragraph-indent-minor-mode
826 If you indent the first lines of paragraphs, then you should use 822 If you indent the first lines of paragraphs, then you should use
827Paragraph-Indent Text mode rather than Text mode. In this mode, you 823Paragraph-Indent Text mode (@kbd{M-x paragraph-indent-text-mode})
828do not need to have blank lines between paragraphs, because the 824rather than Text mode. In that mode, you do not need to have blank
829first-line indentation is sufficient to start a paragraph; however 825lines between paragraphs, because the first-line indentation is
830paragraphs in which every line is indented are not supported. Use 826sufficient to start a paragraph; however paragraphs in which every
831@kbd{M-x paragraph-indent-text-mode} to enter this mode. Use @kbd{M-x 827line is indented are not supported. Use @kbd{M-x
832paragraph-indent-minor-mode} to enable an equivalent minor mode in 828paragraph-indent-minor-mode} to enable an equivalent minor mode for
833situations where you can't change the major mode---in mail 829situations where you shouldn't change the major mode---in mail
834composition, for instance. 830composition, for instance.
835 831
836@kindex M-TAB @r{(Text mode)} 832@kindex M-TAB @r{(Text mode)}
837 Text mode, and all the modes based on it, define @kbd{M-@key{TAB}} 833 Text mode binds @kbd{M-@key{TAB}} to @code{ispell-complete-word}.
838as the command @code{ispell-complete-word}, which performs completion 834This command performs completion of the partial word in the buffer
839of the partial word in the buffer before point, using the spelling 835before point, using the spelling dictionary as the space of possible
840dictionary as the space of possible words. @xref{Spelling}. If your 836words. @xref{Spelling}. If your window manager defines
841window manager defines @kbd{M-@key{TAB}} to switch windows, you can 837@kbd{M-@key{TAB}} to switch windows, you can type @kbd{@key{ESC}
842type @kbd{@key{ESC} @key{TAB}} or @kbd{C-M-i}. 838@key{TAB}} or @kbd{C-M-i} instead.
843 839
844@vindex text-mode-hook 840@vindex text-mode-hook
845 Entering Text mode runs the hook @code{text-mode-hook}. Other major 841 Entering Text mode runs the mode hook @code{text-mode-hook}
846modes related to Text mode also run this hook, followed by hooks of 842(@pxref{Major Modes}).
847their own; this includes Paragraph-Indent Text mode, Nroff mode, 843
848@TeX{} mode, Outline mode, and Message mode. Hook functions on 844 The following sections describe several major modes that are
849@code{text-mode-hook} can look at the value of @code{major-mode} to 845@dfn{derived} from Text mode. These derivatives share most of the
850see which of these modes is actually being entered. @xref{Hooks}. 846features of Text mode described above. In particular, derivatives of
847Text mode run @code{text-mode-hook} prior to running their own mode
848hooks.
851 849
852@node Outline Mode 850@node Outline Mode
853@section Outline Mode 851@section Outline Mode
@@ -858,29 +856,34 @@ see which of these modes is actually being entered. @xref{Hooks}.
858@findex outline-mode 856@findex outline-mode
859@findex outline-minor-mode 857@findex outline-minor-mode
860@vindex outline-minor-mode-prefix 858@vindex outline-minor-mode-prefix
861 Outline mode is a major mode much like Text mode but intended for 859@vindex outline-mode-hook
862editing outlines. It allows you to make parts of the text temporarily 860 Outline mode is a major mode derived from Text mode, which is
863invisible so that you can see the outline structure. Type @kbd{M-x 861specialized for editing outlines. It provides commands to navigate
864outline-mode} to switch to Outline mode as the major mode of the current 862between entries in the outline structure, and commands to make parts
865buffer. 863of a buffer temporarily invisible, so that the outline structure may
866 864be more easily viewed. Type @kbd{M-x outline-mode} to switch to
867 When Outline mode makes a line invisible, the line does not appear 865Outline mode. Entering Outline mode runs the hook
868on the screen. The screen appears exactly as if the invisible line 866@code{text-mode-hook} followed by the hook @code{outline-mode-hook}
869were deleted, except that an ellipsis (three periods in a row) appears 867(@pxref{Hooks}).
870at the end of the previous visible line. (Multiple consecutive 868
871invisible lines produce just one ellipsis.) 869 When you use an Outline mode command to make a line invisible
870(@pxref{Outline Visibility}), the line disappears from the screen. An
871ellipsis (three periods in a row) is displayed at the end of the
872previous visible line, to indicate the hidden text. Multiple
873consecutive invisible lines produce just one ellipsis.
872 874
873 Editing commands that operate on lines, such as @kbd{C-n} and 875 Editing commands that operate on lines, such as @kbd{C-n} and
874@kbd{C-p}, treat the text of the invisible line as part of the previous 876@kbd{C-p}, treat the text of the invisible line as part of the
875visible line. Killing the ellipsis at the end of a visible line 877previous visible line. Killing the ellipsis at the end of a visible
876really kills all the following invisible lines. 878line really kills all the following invisible text associated with the
877 879ellipsis.
878 Outline minor mode provides the same commands as the major mode, 880
879Outline mode, but you can use it in conjunction with other major modes. 881 Outline minor mode is a buffer-local minor mode which provides the
880Type @kbd{M-x outline-minor-mode} to enable the Outline minor mode in 882same commands as the major mode, Outline mode, but can be used in
881the current buffer. You can also specify this in the text of a file, 883conjunction with other major modes. You can type @kbd{M-x
882with a file local variable of the form @samp{mode: outline-minor} 884outline-minor-mode} to toggle Outline minor mode in the current
883(@pxref{File Variables}). 885buffer, or use a file-local variable setting to enable it in a
886specific file (@pxref{File Variables}).
884 887
885@kindex C-c @@ @r{(Outline minor mode)} 888@kindex C-c @@ @r{(Outline minor mode)}
886 The major mode, Outline mode, provides special key bindings on the 889 The major mode, Outline mode, provides special key bindings on the
@@ -889,17 +892,12 @@ with a file local variable of the form @samp{mode: outline-minor}
889major mode's special commands. (The variable 892major mode's special commands. (The variable
890@code{outline-minor-mode-prefix} controls the prefix used.) 893@code{outline-minor-mode-prefix} controls the prefix used.)
891 894
892@vindex outline-mode-hook
893 Entering Outline mode runs the hook @code{text-mode-hook} followed by
894the hook @code{outline-mode-hook} (@pxref{Hooks}).
895
896@menu 895@menu
897* Format: Outline Format. What the text of an outline looks like. 896* Outline Format:: What the text of an outline looks like.
898* Motion: Outline Motion. Special commands for moving through 897* Outline Motion:: Special commands for moving through outlines.
899 outlines. 898* Outline Visibility:: Commands to control what is visible.
900* Visibility: Outline Visibility. Commands to control what is visible. 899* Outline Views:: Outlines and multiple views.
901* Views: Outline Views. Outlines and multiple views. 900* Foldout:: Folding means zooming in on outlines.
902* Foldout:: Folding means zooming in on outlines.
903@end menu 901@end menu
904 902
905@node Outline Format 903@node Outline Format
@@ -909,13 +907,13 @@ the hook @code{outline-mode-hook} (@pxref{Hooks}).
909@cindex body lines (Outline mode) 907@cindex body lines (Outline mode)
910 Outline mode assumes that the lines in the buffer are of two types: 908 Outline mode assumes that the lines in the buffer are of two types:
911@dfn{heading lines} and @dfn{body lines}. A heading line represents a 909@dfn{heading lines} and @dfn{body lines}. A heading line represents a
912topic in the outline. Heading lines start with one or more stars; the 910topic in the outline. Heading lines start with one or more asterisk
913number of stars determines the depth of the heading in the outline 911(@samp{*}) characters; the number of asterisks determines the depth of
914structure. Thus, a heading line with one star is a major topic; all the 912the heading in the outline structure. Thus, a heading line with one
915heading lines with two stars between it and the next one-star heading 913@samp{*} is a major topic; all the heading lines with two @samp{*}s
916are its subtopics; and so on. Any line that is not a heading line is a 914between it and the next one-@samp{*} heading are its subtopics; and so
917body line. Body lines belong with the preceding heading line. Here is 915on. Any line that is not a heading line is a body line. Body lines
918an example: 916belong with the preceding heading line. Here is an example:
919 917
920@example 918@example
921* Food 919* Food
@@ -997,12 +995,10 @@ Move point up to a lower-level (more inclusive) visible heading line
997@findex outline-previous-visible-heading 995@findex outline-previous-visible-heading
998@kindex C-c C-n @r{(Outline mode)} 996@kindex C-c C-n @r{(Outline mode)}
999@kindex C-c C-p @r{(Outline mode)} 997@kindex C-c C-p @r{(Outline mode)}
1000 @kbd{C-c C-n} (@code{outline-next-visible-heading}) moves down to the next 998 @kbd{C-c C-n} (@code{outline-next-visible-heading}) moves down to
1001heading line. @kbd{C-c C-p} (@code{outline-previous-visible-heading}) moves 999the next heading line. @kbd{C-c C-p}
1002similarly backward. Both accept numeric arguments as repeat counts. The 1000(@code{outline-previous-visible-heading}) moves similarly backward.
1003names emphasize that invisible headings are skipped, but this is not really 1001Both accept numeric arguments as repeat counts.
1004a special feature. All editing commands that look for lines ignore the
1005invisible lines automatically.
1006 1002
1007@findex outline-up-heading 1003@findex outline-up-heading
1008@findex outline-forward-same-level 1004@findex outline-forward-same-level
@@ -1010,21 +1006,19 @@ invisible lines automatically.
1010@kindex C-c C-f @r{(Outline mode)} 1006@kindex C-c C-f @r{(Outline mode)}
1011@kindex C-c C-b @r{(Outline mode)} 1007@kindex C-c C-b @r{(Outline mode)}
1012@kindex C-c C-u @r{(Outline mode)} 1008@kindex C-c C-u @r{(Outline mode)}
1013 More powerful motion commands understand the level structure of headings. 1009 The commands @kbd{C-c C-f} (@code{outline-forward-same-level}) and
1014@kbd{C-c C-f} (@code{outline-forward-same-level}) and
1015@kbd{C-c C-b} (@code{outline-backward-same-level}) move from one 1010@kbd{C-c C-b} (@code{outline-backward-same-level}) move from one
1016heading line to another visible heading at the same depth in 1011heading line to another visible heading at the same depth in the
1017the outline. @kbd{C-c C-u} (@code{outline-up-heading}) moves 1012outline. @kbd{C-c C-u} (@code{outline-up-heading}) moves backward to
1018backward to another heading that is less deeply nested. 1013another heading that is less deeply nested.
1019 1014
1020@node Outline Visibility 1015@node Outline Visibility
1021@subsection Outline Visibility Commands 1016@subsection Outline Visibility Commands
1022 1017
1023 The other special commands of outline mode are used to make lines visible 1018 Outline mode provides several commands for temporarily hiding or
1024or invisible. Their names all start with @code{hide} or @code{show}. 1019revealing parts of the buffer, based on the outline structure. These
1025Most of them fall into pairs of opposites. They are not undoable; instead, 1020commands are not undoable; their effects are simply not recorded by
1026you can undo right past them. Making lines visible or invisible is simply 1021the undo mechanism, so you can undo right past them (@pxref{Undo}).
1027not recorded by the undo mechanism.
1028 1022
1029 Many of these commands act on the ``current'' heading line. If 1023 Many of these commands act on the ``current'' heading line. If
1030point is on a heading line, that is the current heading line; if point 1024point is on a heading line, that is the current heading line; if point
@@ -1068,72 +1062,64 @@ the headings leading up from there to the top level of the outline
1068@findex show-entry 1062@findex show-entry
1069@kindex C-c C-c @r{(Outline mode)} 1063@kindex C-c C-c @r{(Outline mode)}
1070@kindex C-c C-e @r{(Outline mode)} 1064@kindex C-c C-e @r{(Outline mode)}
1071 Two commands that are exact opposites are @kbd{C-c C-c} 1065 The simplest of these commands are @kbd{C-c C-c}
1072(@code{hide-entry}) and @kbd{C-c C-e} (@code{show-entry}). They apply 1066(@code{hide-entry}), which hides the body lines directly following the
1073to the body lines directly following the current heading line. 1067current heading line, and @kbd{C-c C-e} (@code{show-entry}), which
1074Subheadings and their bodies are not affected. 1068reveals them. Subheadings and their bodies are not affected.
1075 1069
1076@findex hide-subtree 1070@findex hide-subtree
1077@findex show-subtree 1071@findex show-subtree
1078@kindex C-c C-s @r{(Outline mode)} 1072@kindex C-c C-s @r{(Outline mode)}
1079@kindex C-c C-d @r{(Outline mode)} 1073@kindex C-c C-d @r{(Outline mode)}
1080@cindex subtree (Outline mode) 1074@cindex subtree (Outline mode)
1081 Two more powerful opposites are @kbd{C-c C-d} (@code{hide-subtree}) 1075 The commands @kbd{C-c C-d} (@code{hide-subtree}) and @kbd{C-c C-s}
1082and @kbd{C-c C-s} (@code{show-subtree}). Both apply to the current 1076(@code{show-subtree}) are more powerful. They apply to the current
1083heading line's @dfn{subtree}: its body, all its subheadings, both 1077heading line's @dfn{subtree}: its body, all of its subheadings, both
1084direct and indirect, and all of their bodies. In other words, the 1078direct and indirect, and all of their bodies.
1085subtree contains everything following the current heading line, up to
1086and not including the next heading of the same or higher rank.
1087 1079
1088@findex hide-leaves 1080@findex hide-leaves
1089@findex show-branches 1081@findex show-branches
1082@findex show-children
1090@kindex C-c C-l @r{(Outline mode)} 1083@kindex C-c C-l @r{(Outline mode)}
1091@kindex C-c C-k @r{(Outline mode)} 1084@kindex C-c C-k @r{(Outline mode)}
1092 Intermediate between a visible subtree and an invisible one is having
1093all the subheadings visible but none of the body. There are two
1094commands for doing this, depending on whether you want to hide the
1095bodies or make the subheadings visible. They are @kbd{C-c C-l}
1096(@code{hide-leaves}) and @kbd{C-c C-k} (@code{show-branches}).
1097
1098@kindex C-c C-i @r{(Outline mode)} 1085@kindex C-c C-i @r{(Outline mode)}
1099@findex show-children 1086 The command @kbd{C-c C-l} (@code{hide-leaves}) hides the body of the
1100 A little weaker than @code{show-branches} is @kbd{C-c C-i} 1087current heading line as well as all the bodies in its subtree; the
1101(@code{show-children}). It makes just the direct subheadings 1088subheadings themselves are left visible. The command @kbd{C-c C-k}
1102visible---those one level down. Deeper subheadings remain invisible, if 1089(@code{show-branches}) reveals the subheadings, if they had previously
1103they were invisible. 1090been hidden (e.g.@: by @kbd{C-c C-d}). The command @kbd{C-c C-i}
1091(@code{show-children}) is a weaker version of this; it reveals just
1092the direct subheadings, i.e.@: those one level down.
1093
1094@findex hide-other
1095@kindex C-c C-o @r{(Outline mode)}
1096 The command @kbd{C-c C-o} (@code{hide-other}) hides everything
1097except the entry that point is in, plus its parents (the headers
1098leading up from there to top level in the outline) and the top level
1099headings.
1104 1100
1105@findex hide-body 1101@findex hide-body
1106@findex show-all 1102@findex show-all
1107@kindex C-c C-t @r{(Outline mode)} 1103@kindex C-c C-t @r{(Outline mode)}
1108@kindex C-c C-a @r{(Outline mode)} 1104@kindex C-c C-a @r{(Outline mode)}
1109 Two commands have a blanket effect on the whole file. @kbd{C-c C-t}
1110(@code{hide-body}) makes all body lines invisible, so that you see just
1111the outline structure (as a special exception, it will not hide lines
1112at the top of the file, preceding the first header line, even though
1113these are technically body lines). @kbd{C-c C-a} (@code{show-all})
1114makes all lines visible. These commands can be thought of as a pair
1115of opposites even though @kbd{C-c C-a} applies to more than just body
1116lines.
1117
1118@findex hide-sublevels 1105@findex hide-sublevels
1119@kindex C-c C-q @r{(Outline mode)} 1106@kindex C-c C-q @r{(Outline mode)}
1120 The command @kbd{C-c C-q} (@code{hide-sublevels}) hides all but the 1107 The remaining commands affect the whole buffer. @kbd{C-c C-t}
1121top level headings. With a numeric argument @var{n}, it hides everything 1108(@code{hide-body}) makes all body lines invisible, so that you see
1122except the top @var{n} levels of heading lines. 1109just the outline structure (as a special exception, it will not hide
1123 1110lines at the top of the file, preceding the first header line, even
1124@findex hide-other 1111though these are technically body lines). @kbd{C-c C-a}
1125@kindex C-c C-o @r{(Outline mode)} 1112(@code{show-all}) makes all lines visible. @kbd{C-c C-q}
1126 The command @kbd{C-c C-o} (@code{hide-other}) hides everything except 1113(@code{hide-sublevels}) hides all but the top level headings; with a
1127the heading and body text that point is in, plus its parents (the headers 1114numeric argument @var{n}, it hides everything except the top @var{n}
1128leading up from there to top level in the outline) and the top level 1115levels of heading lines.
1129headings.
1130 1116
1131@findex reveal-mode 1117@findex reveal-mode
1132 When incremental search finds text that is hidden by Outline mode, 1118 When incremental search finds text that is hidden by Outline mode,
1133it makes that part of the buffer visible. If you exit the search 1119it makes that part of the buffer visible. If you exit the search at
1134at that position, the text remains visible. You can also 1120that position, the text remains visible. You can also automatically
1135automatically make text visible as you navigate in it by using 1121make text visible as you navigate in it by using Reveal mode (@kbd{M-x
1136@kbd{M-x reveal-mode}. 1122reveal-mode}), a buffer-local minor mode.
1137 1123
1138@node Outline Views 1124@node Outline Views
1139@subsection Viewing One Outline in Multiple Views 1125@subsection Viewing One Outline in Multiple Views
@@ -1253,7 +1239,7 @@ it in order for this to take effect.
1253 1239
1254 To use the Foldout package, you can type @kbd{M-x load-library 1240 To use the Foldout package, you can type @kbd{M-x load-library
1255@key{RET} foldout @key{RET}}; or you can arrange for to do that 1241@key{RET} foldout @key{RET}}; or you can arrange for to do that
1256automatically by putting this in your @file{.emacs} file: 1242automatically by putting this in your init file (@pxref{Init File}):
1257 1243
1258@example 1244@example
1259(eval-after-load "outline" '(require 'foldout)) 1245(eval-after-load "outline" '(require 'foldout))
@@ -1300,18 +1286,48 @@ Emacs does not guess right, you can select the correct variant of
1300@TeX{} mode using the command @kbd{M-x plain-tex-mode}, @kbd{M-x 1286@TeX{} mode using the command @kbd{M-x plain-tex-mode}, @kbd{M-x
1301latex-mode}, @kbd{M-x slitex-mode}, or @kbd{doctex-mode}. 1287latex-mode}, @kbd{M-x slitex-mode}, or @kbd{doctex-mode}.
1302 1288
1303 Emacs also provides Bib@TeX{} mode, a major mode for editing 1289 The following sections document the features of @TeX{} mode and its
1304Bib@TeX{} files. Bib@TeX{} is a tool for storing and formatting 1290variants. There are several other @TeX{}-related Emacs packages,
1305bibliographic references, which is commonly used together with 1291which are not documented in this manual:
1306La@TeX{}. In addition, the Ref@TeX{} package provides a minor mode 1292
1307which can be used in conjunction with La@TeX{} mode to manage 1293@itemize @bullet
1308bibliographic references. @inforef{Top,, reftex}. 1294@item
1295Bib@TeX{} mode is a major mode for Bib@TeX{} files, which are commonly
1296used for keeping bibliographic references for La@TeX{} documents. For
1297more information, see the documentation string for the command
1298@code{bibtex-mode}.
1299
1300@item
1301The Ref@TeX{} package provides a minor mode which can be used in
1302conjunction with La@TeX{} mode to manage bibliographic references.
1303@ifinfo
1304@xref{Top,The Ref@TeX{} Manual,,reftex}.
1305@end ifinfo
1306@ifnotinfo
1307For more information, see the Ref@TeX{} Info manual, which is
1308distributed with Emacs.
1309@end ifnotinfo
1310
1311@item
1312The AUC@TeX{} package provides more advanced features for editing
1313@TeX{} and its related formats, including the ability to preview
1314@TeX{} equations within Emacs buffers. Unlike Bib@TeX{} mode and the
1315Ref@TeX{} package, AUC@TeX{} is not distributed with Emacs by default.
1316It can be downloaded via the Package Menu (@pxref{Packages}); once
1317installed, see
1318@ifinfo
1319@ref{Top,The AUC@TeX{} Manual,,auctex}.
1320@end ifinfo
1321@ifnotinfo
1322the AUC@TeX{} manual, which is included with the package.
1323@end ifnotinfo
1324@end itemize
1309 1325
1310@menu 1326@menu
1311* Editing: TeX Editing. Special commands for editing in TeX mode. 1327* TeX Editing:: Special commands for editing in TeX mode.
1312* LaTeX: LaTeX Editing. Additional commands for LaTeX input files. 1328* LaTeX Editing:: Additional commands for LaTeX input files.
1313* Printing: TeX Print. Commands for printing part of a file with TeX. 1329* TeX Print:: Commands for printing part of a file with TeX.
1314* Misc: TeX Misc. Customization of TeX mode, and related features. 1330* TeX Misc:: Customization of TeX mode, and related features.
1315@end menu 1331@end menu
1316 1332
1317@node TeX Editing 1333@node TeX Editing
@@ -1336,12 +1352,10 @@ Move forward past the next unmatched close brace (@code{up-list}).
1336@findex tex-insert-quote 1352@findex tex-insert-quote
1337@kindex " @r{(@TeX{} mode)} 1353@kindex " @r{(@TeX{} mode)}
1338 In @TeX{}, the character @samp{"} is not normally used; instead, 1354 In @TeX{}, the character @samp{"} is not normally used; instead,
1339quotations begin with @samp{``} and end with @samp{''}. For 1355quotations begin with @samp{``} and end with @samp{''}. @TeX{} mode
1340convenience, @TeX{} mode overrides the normal meaning of the key 1356therefore binds the @kbd{"} key to the @code{tex-insert-quote}
1341@kbd{"} with a command that inserts a pair of single-quotes or 1357command. This inserts @samp{``} after whitespace or an open brace,
1342backquotes (@code{tex-insert-quote}). To be precise, it inserts 1358@samp{"} after a backslash, and @samp{''} after any other character.
1343@samp{``} after whitespace or an open brace, @samp{"} after a
1344backslash, and @samp{''} after any other character.
1345 1359
1346 As a special exception, if you type @kbd{"} when the text before 1360 As a special exception, if you type @kbd{"} when the text before
1347point is either @samp{``} or @samp{''}, Emacs replaces that preceding 1361point is either @samp{``} or @samp{''}, Emacs replaces that preceding
@@ -1349,9 +1363,6 @@ text with a single @samp{"} character. You can therefore type
1349@kbd{""} to insert @samp{"}, should you ever need to do so. (You can 1363@kbd{""} to insert @samp{"}, should you ever need to do so. (You can
1350also use @kbd{C-q "} to insert this character.) 1364also use @kbd{C-q "} to insert this character.)
1351 1365
1352 To disable the @kbd{"} expansion feature, eliminate that binding in
1353the local map (@pxref{Key Bindings}).
1354
1355 In @TeX{} mode, @samp{$} has a special syntax code which attempts to 1366 In @TeX{} mode, @samp{$} has a special syntax code which attempts to
1356understand the way @TeX{} math mode delimiters match. When you insert a 1367understand the way @TeX{} math mode delimiters match. When you insert a
1357@samp{$} that is meant to exit math mode, the position of the matching 1368@samp{$} that is meant to exit math mode, the position of the matching
@@ -1376,13 +1387,14 @@ text that belongs inside. Afterward, use the command @kbd{C-c @}}
1376@findex tex-validate-region 1387@findex tex-validate-region
1377@findex tex-terminate-paragraph 1388@findex tex-terminate-paragraph
1378@kindex C-j @r{(@TeX{} mode)} 1389@kindex C-j @r{(@TeX{} mode)}
1379 There are two commands for checking the matching of braces. @kbd{C-j} 1390 There are two commands for checking the matching of braces.
1380(@code{tex-terminate-paragraph}) checks the paragraph before point, and 1391@kbd{C-j} (@code{tex-terminate-paragraph}) checks the paragraph before
1381inserts two newlines to start a new paragraph. It outputs a message in 1392point, and inserts two newlines to start a new paragraph. It outputs
1382the echo area if any mismatch is found. @kbd{M-x tex-validate-region} 1393a message in the echo area if any mismatch is found. @kbd{M-x
1383checks a region, paragraph by paragraph. The errors are listed in the 1394tex-validate-region} checks a region, paragraph by paragraph. The
1384@samp{*Occur*} buffer, and you can use @kbd{C-c C-c} or @kbd{Mouse-2} in 1395errors are listed in an @samp{*Occur*} buffer; you can use the usual
1385that buffer to go to a particular mismatch. 1396Occur mode commands in that buffer, such as @kbd{C-c C-c}, to visit a
1397particular mismatch (@pxref{Other Repeating Search}).
1386 1398
1387 Note that Emacs commands count square brackets and parentheses in 1399 Note that Emacs commands count square brackets and parentheses in
1388@TeX{} mode, not just braces. This is not strictly correct for the 1400@TeX{} mode, not just braces. This is not strictly correct for the
@@ -1394,8 +1406,8 @@ to work with them.
1394@node LaTeX Editing 1406@node LaTeX Editing
1395@subsection La@TeX{} Editing Commands 1407@subsection La@TeX{} Editing Commands
1396 1408
1397 La@TeX{} mode (and its obsolete variant, Sli@TeX{} mode) provide a 1409 La@TeX{} mode provides a few extra features not applicable to plain
1398few extra features not applicable to plain @TeX{}: 1410@TeX{}:
1399 1411
1400@table @kbd 1412@table @kbd
1401@item C-c C-o 1413@item C-c C-o
@@ -1408,60 +1420,59 @@ Close the innermost La@TeX{} block not yet closed
1408 1420
1409@findex tex-latex-block 1421@findex tex-latex-block
1410@kindex C-c C-o @r{(La@TeX{} mode)} 1422@kindex C-c C-o @r{(La@TeX{} mode)}
1411@vindex latex-block-names 1423 In La@TeX{} input, @samp{\begin} and @samp{\end} tags are used to
1412 In La@TeX{} input, @samp{\begin} and @samp{\end} commands are used to 1424group blocks of text. To insert a block, type @kbd{C-c C-o}
1413group blocks of text. To insert a @samp{\begin} and a matching 1425(@code{tex-latex-block}). This prompts for a block type, and inserts
1414@samp{\end} (on a new line following the @samp{\begin}), use @kbd{C-c 1426the appropriate matching @samp{\begin} and @samp{\end} tags, leaving a
1415C-o} (@code{tex-latex-block}). A blank line is inserted between the 1427blank line between the two and moving point there.
1416two, and point is left there. You can use completion when you enter the
1417block type; to specify additional block type names beyond the standard
1418list, set the variable @code{latex-block-names}. For example, here's
1419how to add @samp{theorem}, @samp{corollary}, and @samp{proof}:
1420 1428
1421@example 1429@vindex latex-block-names
1422(setq latex-block-names '("theorem" "corollary" "proof")) 1430 When entering the block type argument to @kbd{C-c C-o}, you can use
1423@end example 1431the usual completion commands (@pxref{Completion}). The default
1432completion list contains the standard La@TeX{} block types. If you
1433want additional block types for completion, customize the list
1434variable @code{latex-block-names}.
1424 1435
1425@findex tex-close-latex-block 1436@findex tex-close-latex-block
1426@kindex C-c C-e @r{(La@TeX{} mode)} 1437@kindex C-c C-e @r{(La@TeX{} mode)}
1427 In La@TeX{} input, @samp{\begin} and @samp{\end} commands must 1438 In La@TeX{} input, @samp{\begin} and @samp{\end} tags must balance.
1428balance. You can use @kbd{C-c C-e} (@code{tex-close-latex-block}) to 1439You can use @kbd{C-c C-e} (@code{tex-close-latex-block}) to insert an
1429insert automatically a matching @samp{\end} to match the last unmatched 1440@samp{\end} tag which matches the last unmatched @samp{\begin}. It
1430@samp{\begin}. It indents the @samp{\end} to match the corresponding 1441also indents the @samp{\end} to match the corresponding @samp{\begin},
1431@samp{\begin}. It inserts a newline after @samp{\end} if point is at 1442and inserts a newline after the @samp{\end} tag if point is at the
1432the beginning of a line. 1443beginning of a line.
1433 1444
1434@node TeX Print 1445@node TeX Print
1435@subsection @TeX{} Printing Commands 1446@subsection @TeX{} Printing Commands
1436 1447
1437 You can invoke @TeX{} as an inferior of Emacs on either the entire 1448 You can invoke @TeX{} as an subprocess of Emacs, supplying either
1438contents of the buffer or just a region at a time. Running @TeX{} in 1449the entire contents of the buffer or just part of it (e.g.@: one
1439this way on just one chapter is a good way to see what your changes 1450chapter of a larger document).
1440look like without taking the time to format the entire file.
1441 1451
1442@table @kbd 1452@table @kbd
1453@item C-c C-b
1454Invoke @TeX{} on the entire current buffer (@code{tex-buffer}).
1443@item C-c C-r 1455@item C-c C-r
1444Invoke @TeX{} on the current region, together with the buffer's header 1456Invoke @TeX{} on the current region, together with the buffer's header
1445(@code{tex-region}). 1457(@code{tex-region}).
1446@item C-c C-b
1447Invoke @TeX{} on the entire current buffer (@code{tex-buffer}).
1448@item C-c @key{TAB}
1449Invoke Bib@TeX{} on the current file (@code{tex-bibtex-file}).
1450@item C-c C-f 1458@item C-c C-f
1451Invoke @TeX{} on the current file (@code{tex-file}). 1459Invoke @TeX{} on the current file (@code{tex-file}).
1452@item C-c C-l 1460
1453Recenter the window showing output from the inferior @TeX{} so that
1454the last line can be seen (@code{tex-recenter-output-buffer}).
1455@item C-c C-k
1456Kill the @TeX{} subprocess (@code{tex-kill-job}).
1457@item C-c C-p
1458Print the output from the last @kbd{C-c C-r}, @kbd{C-c C-b}, or @kbd{C-c
1459C-f} command (@code{tex-print}).
1460@item C-c C-v 1461@item C-c C-v
1461Preview the output from the last @kbd{C-c C-r}, @kbd{C-c C-b}, or @kbd{C-c 1462Preview the output from the last @kbd{C-c C-r}, @kbd{C-c C-b}, or @kbd{C-c
1462C-f} command (@code{tex-view}). 1463C-f} command (@code{tex-view}).
1463@item C-c C-q 1464
1464Show the printer queue (@code{tex-show-print-queue}). 1465@item C-c C-p
1466Print the output from the last @kbd{C-c C-b}, @kbd{C-c C-r}, or
1467@kbd{C-c C-f} command (@code{tex-print}).
1468
1469@item C-c @key{TAB}
1470Invoke Bib@TeX{} on the current file (@code{tex-bibtex-file}).
1471@item C-c C-l
1472Recenter the window showing output from @TeX{} so that the last line
1473can be seen (@code{tex-recenter-output-buffer}).
1474@item C-c C-k
1475Kill the @TeX{} subprocess (@code{tex-kill-job}).
1465@item C-c C-c 1476@item C-c C-c
1466Invoke some other compilation command on the entire current buffer 1477Invoke some other compilation command on the entire current buffer
1467(@code{tex-compile}). 1478(@code{tex-compile}).
@@ -1469,49 +1480,51 @@ Invoke some other compilation command on the entire current buffer
1469 1480
1470@findex tex-buffer 1481@findex tex-buffer
1471@kindex C-c C-b @r{(@TeX{} mode)} 1482@kindex C-c C-b @r{(@TeX{} mode)}
1472@findex tex-print
1473@kindex C-c C-p @r{(@TeX{} mode)}
1474@findex tex-view 1483@findex tex-view
1475@kindex C-c C-v @r{(@TeX{} mode)} 1484@kindex C-c C-v @r{(@TeX{} mode)}
1476@findex tex-show-print-queue 1485@findex tex-print
1477@kindex C-c C-q @r{(@TeX{} mode)} 1486@kindex C-c C-p @r{(@TeX{} mode)}
1478 You can pass the current buffer through an inferior @TeX{} by means of 1487 To pass the current buffer through @TeX{}, type @kbd{C-c C-b}
1479@kbd{C-c C-b} (@code{tex-buffer}). The formatted output appears in a 1488(@code{tex-buffer}). The formatted output goes in a temporary file,
1480temporary file; to print it, type @kbd{C-c C-p} (@code{tex-print}). 1489normally a @file{.dvi} file. Afterwards, you can type @kbd{C-c C-v}
1481Afterward, you can use @kbd{C-c C-q} (@code{tex-show-print-queue}) to 1490(@code{tex-view}) to launch an external program, such as
1482view the progress of your output towards being printed. If your terminal 1491@command{xdvi}, to view this output file. You can also type @kbd{C-c
1483has the ability to display @TeX{} output files, you can preview the 1492C-p} (@code{tex-print}) to print a hardcopy of the output file.
1484output on the terminal with @kbd{C-c C-v} (@code{tex-view}).
1485 1493
1486@cindex @env{TEXINPUTS} environment variable 1494@cindex @env{TEXINPUTS} environment variable
1487@vindex tex-directory 1495@vindex tex-directory
1488 You can specify the directory to use for running @TeX{} by setting the 1496 By default, @kbd{C-c C-b} runs @TeX{} in the current directory. The
1489variable @code{tex-directory}. @code{"."} is the default value. If 1497output of @TeX{} also goes in this directory. To run @TeX{} in a
1490your environment variable @env{TEXINPUTS} contains relative directory 1498different directory, change the variable @code{tex-directory} to the
1491names, or if your files contains @samp{\input} commands with relative 1499desired directory name. If your environment variable @env{TEXINPUTS}
1492file names, then @code{tex-directory} @emph{must} be @code{"."} or you 1500contains relative directory names, or if your files contains
1493will get the wrong results. Otherwise, it is safe to specify some other 1501@samp{\input} commands with relative file names, then
1494directory, such as @code{"/tmp"}. 1502@code{tex-directory} @emph{must} be @code{"."} or you will get the
1503wrong results. Otherwise, it is safe to specify some other directory,
1504such as @code{"/tmp"}.
1495 1505
1496@vindex tex-run-command 1506@vindex tex-run-command
1497@vindex latex-run-command 1507@vindex latex-run-command
1498@vindex slitex-run-command
1499@vindex tex-dvi-print-command
1500@vindex tex-dvi-view-command 1508@vindex tex-dvi-view-command
1501@vindex tex-show-queue-command 1509@vindex tex-dvi-print-command
1502 If you want to specify which shell commands are used in the inferior @TeX{}, 1510 The buffer's @TeX{} variant determines what shell command @kbd{C-c
1503you can do so by setting the values of the variables @code{tex-run-command}, 1511C-b} actually runs. In Plain @TeX{} mode, it is specified by the
1504@code{latex-run-command}, @code{slitex-run-command}, 1512variable @code{tex-run-command}, which defaults to @code{"tex"}. In
1505@code{tex-dvi-print-command}, @code{tex-dvi-view-command}, and 1513La@TeX{} mode, it is specified by @code{latex-run-command}, which
1506@code{tex-show-queue-command}. The default values may 1514defaults to @code{"latex"}. The shell command that @kbd{C-c C-v} runs
1507(or may not) be appropriate for your system. 1515to view the @file{.dvi} output is determined by the variable
1508 1516@code{tex-dvi-view-command}, regardless of the @TeX{} variant. The
1509 Normally, the file name given to these commands comes at the end of 1517shell command that @kbd{C-c C-p} runs to print the output is
1510the command string; for example, @samp{latex @var{filename}}. In some 1518determined by the variable @code{tex-dvi-print-command}.
1511cases, however, the file name needs to be embedded in the command; an 1519
1512example is when you need to provide the file name as an argument to one 1520 Normally, Emacs automatically appends the output file name to the
1513command whose output is piped to another. You can specify where to put 1521shell command strings described in the preceding paragraph. For
1514the file name with @samp{*} in the command string. For example, 1522example, if @code{tex-dvi-view-command} is @code{"xdvi"}, @kbd{C-c
1523C-v} runs @command{xdvi @var{output-file-name}}. In some cases,
1524however, the file name needs to be embedded in the command, e.g.@: if
1525you need to provide the file name as an argument to one command whose
1526output is piped to another. You can specify where to put the file
1527name with @samp{*} in the command string. For example,
1515 1528
1516@example 1529@example
1517(setq tex-dvi-print-command "dvips -f * | lpr") 1530(setq tex-dvi-print-command "dvips -f * | lpr")
@@ -1521,12 +1534,12 @@ the file name with @samp{*} in the command string. For example,
1521@kindex C-c C-k @r{(@TeX{} mode)} 1534@kindex C-c C-k @r{(@TeX{} mode)}
1522@findex tex-recenter-output-buffer 1535@findex tex-recenter-output-buffer
1523@kindex C-c C-l @r{(@TeX{} mode)} 1536@kindex C-c C-l @r{(@TeX{} mode)}
1524 The terminal output from @TeX{}, including any error messages, appears 1537 The terminal output from @TeX{}, including any error messages,
1525in a buffer called @samp{*tex-shell*}. If @TeX{} gets an error, you can 1538appears in a buffer called @samp{*tex-shell*}. If @TeX{} gets an
1526switch to this buffer and feed it input (this works as in Shell mode; 1539error, you can switch to this buffer and feed it input (this works as
1527@pxref{Interactive Shell}). Without switching to this buffer you can 1540in Shell mode; @pxref{Interactive Shell}). Without switching to this
1528scroll it so that its last line is visible by typing @kbd{C-c 1541buffer you can scroll it so that its last line is visible by typing
1529C-l}. 1542@kbd{C-c C-l}.
1530 1543
1531 Type @kbd{C-c C-k} (@code{tex-kill-job}) to kill the @TeX{} process if 1544 Type @kbd{C-c C-k} (@code{tex-kill-job}) to kill the @TeX{} process if
1532you see that its output is no longer useful. Using @kbd{C-c C-b} or 1545you see that its output is no longer useful. Using @kbd{C-c C-b} or
@@ -1534,14 +1547,14 @@ you see that its output is no longer useful. Using @kbd{C-c C-b} or
1534 1547
1535@findex tex-region 1548@findex tex-region
1536@kindex C-c C-r @r{(@TeX{} mode)} 1549@kindex C-c C-r @r{(@TeX{} mode)}
1537 You can also pass an arbitrary region through an inferior @TeX{} by typing 1550 You can also pass an arbitrary region through @TeX{} by typing
1538@kbd{C-c C-r} (@code{tex-region}). This is tricky, however, because most files 1551@kbd{C-c C-r} (@code{tex-region}). This is tricky, however, because
1539of @TeX{} input contain commands at the beginning to set parameters and 1552most files of @TeX{} input contain commands at the beginning to set
1540define macros, without which no later part of the file will format 1553parameters and define macros, without which no later part of the file
1541correctly. To solve this problem, @kbd{C-c C-r} allows you to designate a 1554will format correctly. To solve this problem, @kbd{C-c C-r} allows
1542part of the file as containing essential commands; it is included before 1555you to designate a part of the file as containing essential commands;
1543the specified region as part of the input to @TeX{}. The designated part 1556it is included before the specified region as part of the input to
1544of the file is called the @dfn{header}. 1557@TeX{}. The designated part of the file is called the @dfn{header}.
1545 1558
1546@cindex header (@TeX{} mode) 1559@cindex header (@TeX{} mode)
1547 To indicate the bounds of the header in Plain @TeX{} mode, you insert two 1560 To indicate the bounds of the header in Plain @TeX{} mode, you insert two
@@ -1639,29 +1652,6 @@ keys (@pxref{Completion}).
1639 The commands @kbd{M-x iso-iso2tex}, @kbd{M-x iso-tex2iso}, @kbd{M-x 1652 The commands @kbd{M-x iso-iso2tex}, @kbd{M-x iso-tex2iso}, @kbd{M-x
1640iso-iso2gtex} and @kbd{M-x iso-gtex2iso} can be used to convert 1653iso-iso2gtex} and @kbd{M-x iso-gtex2iso} can be used to convert
1641between Latin-1 encoded files and @TeX{}-encoded equivalents. 1654between Latin-1 encoded files and @TeX{}-encoded equivalents.
1642@ignore
1643@c Too cryptic to be useful, too cryptic for me to make it better -- rms.
1644 They
1645are included by default in the @code{format-alist} variable, so they
1646can be used with @kbd{M-x format-find-file}, for instance.
1647@end ignore
1648
1649@ignore @c Not worth documenting if it is only for Czech -- rms.
1650@findex tildify-buffer
1651@findex tildify-region
1652@cindex ties, @TeX{}, inserting
1653@cindex hard spaces, @TeX{}, inserting
1654 The commands @kbd{M-x tildify-buffer} and @kbd{M-x tildify-region}
1655insert @samp{~} (@dfn{tie}) characters where they are conventionally
1656required. This is set up for Czech---customize the group
1657@samp{tildify} for other languages or for other sorts of markup.
1658@end ignore
1659
1660@cindex Ref@TeX{} package
1661@cindex references, La@TeX{}
1662@cindex La@TeX{} references
1663 For managing all kinds of references for La@TeX{}, you can use
1664Ref@TeX{}. @inforef{Top,, reftex}.
1665 1655
1666@node HTML Mode 1656@node HTML Mode
1667@section SGML and HTML Modes 1657@section SGML and HTML Modes
@@ -1764,22 +1754,27 @@ used as a cheap preview (@code{sgml-tags-invisible}).
1764@cindex mode, nXML 1754@cindex mode, nXML
1765@findex nxml-mode 1755@findex nxml-mode
1766@cindex XML schema 1756@cindex XML schema
1767 The default mode for editing XML documents is called nXML mode 1757 The major mode for editing XML documents is called nXML mode. This
1768(@code{xml-mode} or @code{nxml-mode}). This is a powerful major mode 1758is a powerful major mode that can recognize many existing XML schema
1769that can recognize many existing XML schema and use them to provide 1759and use them to provide completion of XML elements via
1770completion of XML elements via @kbd{C-@key{RET}} or @kbd{M-@key{TAB}}, 1760@kbd{C-@key{RET}} or @kbd{M-@key{TAB}}, as well as ``on-the-fly'' XML
1771as well as ``on-the-fly'' XML validation with error highlighting. It 1761validation with error highlighting. To enable nXML mode in an
1772is described in its own manual. @xref{Top, nXML Mode,,nxml-mode, nXML 1762existing buffer, type @kbd{M-x nxml-mode}, or, equivalently, @kbd{M-x
1773Mode}. 1763xml-mode}. Emacs uses nXML mode for files which have the extension
1764@file{.xml}. For XHTML files, which have the extension @file{.xhtml},
1765Emacs uses HTML mode by default; you can make it use nXML mode by
1766customizing the variable @code{auto-mode-alist} (@pxref{Choosing
1767Modes}). nXML mode is described in its own manual: @xref{Top, nXML
1768Mode,,nxml-mode, nXML Mode}.
1774 1769
1775@vindex sgml-xml-mode 1770@vindex sgml-xml-mode
1776 However, you can also use SGML mode to edit XML, since XML is a 1771 You may choose to use the less powerful SGML mode for editing XML,
1777strict subset of SGML. In XML, every opening tag must have an 1772since XML is a strict subset of SGML. To enable SGML mode in an
1778explicit closing tag. When the variable @code{sgml-xml-mode} is 1773existing buffer, type @kbd{M-x sgml-mode}. On enabling SGML mode,
1779non-@code{nil}, the tag insertion commands described above always 1774Emacs examines the buffer to determine whether it is XML; if so, it
1780insert explicit closing tags as well. When you visit a file in SGML 1775sets the variable @code{sgml-xml-mode} to a non-@code{nil} value.
1781mode, Emacs determines whether it is XML by examining the file 1776This causes SGML mode's tag insertion commands, described above, to
1782contents, and sets @code{sgml-xml-mode} accordingly. 1777always insert explicit closing tags as well.
1783 1778
1784@node Nroff Mode 1779@node Nroff Mode
1785@section Nroff Mode 1780@section Nroff Mode
@@ -1830,86 +1825,84 @@ header level).
1830 Entering Nroff mode runs the hook @code{text-mode-hook}, followed by 1825 Entering Nroff mode runs the hook @code{text-mode-hook}, followed by
1831the hook @code{nroff-mode-hook} (@pxref{Hooks}). 1826the hook @code{nroff-mode-hook} (@pxref{Hooks}).
1832 1827
1833@node Formatted Text 1828@node Enriched Text
1834@section Editing Formatted Text 1829@section Enriched Text
1835
1836@cindex Enriched mode 1830@cindex Enriched mode
1837@cindex mode, Enriched 1831@cindex mode, Enriched
1838@cindex formatted text 1832@cindex enriched text
1839@cindex WYSIWYG 1833@cindex WYSIWYG
1840@cindex word processing 1834@cindex word processing
1841 @dfn{Enriched mode} is a minor mode for editing files that contain 1835@cindex text/enriched MIME format
1842formatted text in WYSIWYG fashion, as in a word processor. Currently,
1843formatted text in Enriched mode can specify fonts, colors, underlining,
1844margins, and types of filling and justification. In the future, we plan
1845to implement other formatting features as well.
1846 1836
1847 Enriched mode is a minor mode (@pxref{Minor Modes}). It is 1837 Enriched mode is a minor mode for editing formatted text files in a
1848typically used in conjunction with Text mode (@pxref{Text Mode}), but 1838WYSIWYG (``what you see is what you get'') fashion. When Enriched
1849you can also use it with other major modes such as Outline mode and 1839mode is enabled, you can apply various formatting properties to the
1850Paragraph-Indent Text mode. 1840text in the buffer, such as fonts and colors; upon saving the buffer,
1841those properties are saved together with the text, using the MIME
1842@samp{text/enriched} file format.
1851 1843
1852@cindex text/enriched MIME format 1844 Enriched mode is typically used with Text mode (@pxref{Text Mode}).
1853 Potentially, Emacs can store formatted text files in various file 1845It is @emph{not} compatible with Font Lock mode, which is used by many
1854formats. Currently, only one format is implemented: @dfn{text/enriched} 1846major modes, including most programming language modes, for syntax
1855format, which is defined by the MIME protocol. @xref{Format 1847highlighting (@pxref{Font Lock}). Unlike Enriched mode, Font Lock
1856Conversion,, Format Conversion, elisp, the Emacs Lisp Reference Manual}, 1848mode assigns text properties automatically, based on the current
1857for details of how Emacs recognizes and converts file formats. 1849buffer contents; those properties are not saved to disk.
1858 1850
1859 The Emacs distribution contains a formatted text file that can serve as 1851 The file @file{etc/enriched.doc} in the Emacs distribution serves as
1860an example. Its name is @file{etc/enriched.doc}. It contains samples 1852an example of the features of Enriched mode.
1861illustrating all the features described in this section. It also
1862contains a list of ideas for future enhancements.
1863 1853
1864@menu 1854@menu
1865* Requesting Formatted Text:: Entering and exiting Enriched mode. 1855* Enriched Mode:: Entering and exiting Enriched mode.
1866* Hard and Soft Newlines:: There are two different kinds of newlines. 1856* Hard and Soft Newlines:: There are two different kinds of newlines.
1867* Editing Format Info:: How to edit text properties. 1857* Editing Format Info:: How to edit text properties.
1868* Faces: Format Faces. Bold, italic, underline, etc. 1858* Enriched Faces:: Bold, italic, underline, etc.
1869* Color: Format Colors. Changing the color of text. 1859* Enriched Indentation:: Changing the left and right margins.
1870* Indent: Format Indentation. Changing the left and right margins. 1860* Enriched Justification:: Centering, setting text flush with the
1871* Justification: Format Justification. 1861 left or right margin, etc.
1872 Centering, setting text flush with the 1862* Enriched Properties:: The "special" text properties submenu.
1873 left or right margin, etc.
1874* Special: Format Properties. The "special" text properties submenu.
1875* Forcing Enriched Mode:: How to force use of Enriched mode.
1876@end menu 1863@end menu
1877 1864
1878@node Requesting Formatted Text 1865@node Enriched Mode
1879@subsection Requesting to Edit Formatted Text 1866@subsection Enriched Mode
1880 1867
1881 Whenever you visit a file that Emacs saved in the text/enriched 1868 Enriched mode is a buffer-local minor mode (@pxref{Minor Modes}).
1882format, Emacs automatically converts the formatting information in the 1869When you visit a file that has been saved in the @samp{text/enriched}
1883file into Emacs's own internal format (known as @dfn{text 1870format, Emacs automatically enables Enriched mode, and applies the
1884properties}), and turns on Enriched mode. 1871formatting information in the file to the buffer text. When you save
1872a buffer with Enriched mode enabled, it is saved using the
1873@samp{text/enriched} format, including the formatting information.
1885 1874
1886@findex enriched-mode 1875@findex enriched-mode
1887 To create a new file of formatted text, first visit the nonexistent 1876 To create a new file of formatted text, visit the nonexistent file
1888file, then type @kbd{M-x enriched-mode} before you start inserting text. 1877and type @kbd{M-x enriched-mode}. This command actually toggles
1889This command turns on Enriched mode. Do this before you begin inserting 1878Enriched mode. With a prefix argument, it enables Enriched mode if
1890text, to ensure that the text you insert is handled properly. 1879the argument is positive, and disables Enriched mode otherwise. If
1891 1880you disable Enriched mode, Emacs no longer saves the buffer using the
1892 More generally, the command @code{enriched-mode} turns Enriched mode 1881@samp{text/enriched} format; any formatting properties that have been
1893on if it was off, and off if it was on. With a prefix argument, this 1882added to the buffer remain in the buffer, but they are not saved to
1894command turns Enriched mode on if the argument is positive, and turns 1883disk.
1895the mode off otherwise.
1896
1897 When you save a buffer while Enriched mode is enabled in it, Emacs
1898automatically converts the text to text/enriched format while writing it
1899into the file. When you visit the file again, Emacs will automatically
1900recognize the format, reconvert the text, and turn on Enriched mode
1901again.
1902 1884
1903@vindex enriched-translations 1885@vindex enriched-translations
1904 You can add annotations for saving additional text properties, which 1886 Enriched mode does not save all Emacs text properties, only those
1905Emacs normally does not save, by adding to @code{enriched-translations}. 1887specified in the variable @code{enriched-translations}. These include
1906Note that the text/enriched standard requires any non-standard 1888properties for fonts, colors, indentation, and justification.
1907annotations to have names starting with @samp{x-}, as in 1889
1908@samp{x-read-only}. This ensures that they will not conflict with 1890@findex format-decode-buffer
1909standard annotations that may be added later. 1891 If you visit a file and Emacs fails to recognize that it is in the
1910 1892@samp{text/enriched} format, type @kbd{M-x format-decode-buffer}.
1911 @xref{Text Properties,,, elisp, the Emacs Lisp Reference Manual}, 1893This command prompts for a file format, and re-reads the file in that
1912for more information about text properties. 1894format. Specifying the @samp{text/enriched} format automatically
1895enables Enriched mode.
1896
1897 To view a @samp{text/enriched} file in raw form (as plain text with
1898markup tags rather than formatted text), use @kbd{M-x
1899find-file-literally} (@pxref{Visiting}).
1900
1901 @xref{Format Conversion,, Format Conversion, elisp, the Emacs Lisp
1902Reference Manual}, for details of how Emacs recognizes and converts
1903file formats like @samp{text/enriched}. @xref{Text Properties,,,
1904elisp, the Emacs Lisp Reference Manual}, for more information about
1905text properties.
1913 1906
1914@node Hard and Soft Newlines 1907@node Hard and Soft Newlines
1915@subsection Hard and Soft Newlines 1908@subsection Hard and Soft Newlines
@@ -1918,56 +1911,44 @@ for more information about text properties.
1918@cindex newlines, hard and soft 1911@cindex newlines, hard and soft
1919 1912
1920@cindex use-hard-newlines 1913@cindex use-hard-newlines
1921 In formatted text, Emacs distinguishes between two different kinds of 1914 In Enriched mode, Emacs distinguishes between two different kinds of
1922newlines, @dfn{hard} newlines and @dfn{soft} newlines. (You can enable 1915newlines, @dfn{hard} newlines and @dfn{soft} newlines. You can also
1923or disable this feature separately in any buffer with the command 1916enable or disable this feature in other buffers, by typing @kbd{M-x
1924@code{use-hard-newlines}.) 1917use-hard-newlines}.
1925 1918
1926 Hard newlines are used to separate paragraphs, or items in a list, or 1919 Hard newlines are used to separate paragraphs, or anywhere there
1927anywhere that there should always be a line break regardless of the 1920needs to be a line break regardless of how the text is filled; soft
1928margins. The @key{RET} command (@code{newline}) and @kbd{C-o} 1921newlines are used for filling. The @key{RET} (@code{newline}) and
1929(@code{open-line}) insert hard newlines. 1922@kbd{C-o} (@code{open-line}) commands insert hard newlines. The fill
1930 1923commands, including Auto Fill (@pxref{Auto Fill}), insert only soft
1931 Soft newlines are used to make text fit between the margins. All the 1924newlines and delete only soft newlines, leaving hard newlines alone.
1932fill commands, including Auto Fill, insert soft newlines---and they 1925
1933delete only soft newlines. 1926 Thus, when editing with Enriched mode, you should not use @key{RET}
1934 1927or @kbd{C-o} to break lines in the middle of filled paragraphs. Use
1935 Although hard and soft newlines look the same, it is important to bear 1928Auto Fill mode or explicit fill commands (@pxref{Fill Commands})
1936the difference in mind. Do not use @key{RET} to break lines in the 1929instead. Use @key{RET} or @kbd{C-o} where line breaks should always
1937middle of filled paragraphs, or else you will get hard newlines that are 1930remain, such as in tables and lists. For such lines, you may also
1938barriers to further filling. Instead, let Auto Fill mode break lines, 1931want to set the justification style to @code{unfilled}
1939so that if the text or the margins change, Emacs can refill the lines 1932(@pxref{Enriched Justification}).
1940properly. @xref{Auto Fill}.
1941
1942 On the other hand, in tables and lists, where the lines should always
1943remain as you type them, you can use @key{RET} to end lines. For these
1944lines, you may also want to set the justification style to
1945@code{unfilled}. @xref{Format Justification}.
1946 1933
1947@node Editing Format Info 1934@node Editing Format Info
1948@subsection Editing Format Information 1935@subsection Editing Format Information
1949 1936
1950 There are two ways to alter the formatting information for a formatted 1937 The easiest way to alter properties is with the Text Properties
1951text file: with keyboard commands, and with the mouse. 1938menu. You can get to this menu from the Edit menu in the menu bar
1952 1939(@pxref{Menu Bar}), or with @kbd{C-Mouse-2} (@pxref{Menu Mouse
1953 The easiest way to add properties to your document is with the Text 1940Clicks}). Some of the commands in the Text Properties menu are listed
1954Properties menu. You can get to this menu in two ways: from the Edit 1941below (you can also invoke them with @kbd{M-x}):
1955menu in the menu bar (use @kbd{@key{F10} e t} if you have no mouse),
1956or with @kbd{C-Mouse-2} (hold the @key{CTRL} key and press the middle
1957mouse button). There are also keyboard commands described in the
1958following section.
1959
1960 These items in the Text Properties menu run commands directly:
1961 1942
1962@table @code 1943@table @code
1963@findex facemenu-remove-face-props 1944@findex facemenu-remove-face-props
1964@item Remove Face Properties 1945@item Remove Face Properties
1965Delete from the region all face and color text properties 1946Remove face properties from the region
1966(@code{facemenu-remove-face-props}). 1947(@code{facemenu-remove-face-props}).
1967 1948
1968@findex facemenu-remove-all 1949@findex facemenu-remove-all
1969@item Remove Text Properties 1950@item Remove Text Properties
1970Delete @emph{all} text properties from the region 1951Remove all text properties from the region, including face properties
1971(@code{facemenu-remove-all}). 1952(@code{facemenu-remove-all}).
1972 1953
1973@findex describe-text-properties 1954@findex describe-text-properties
@@ -1976,168 +1957,98 @@ Delete @emph{all} text properties from the region
1976@cindex widgets at buffer position 1957@cindex widgets at buffer position
1977@cindex buttons at buffer position 1958@cindex buttons at buffer position
1978@item Describe Properties 1959@item Describe Properties
1979List all the text properties, widgets, buttons, and overlays of the 1960List all text properties and other information about the character
1980character following point (@code{describe-text-properties}). 1961following point (@code{describe-text-properties}).
1981 1962
1982@item Display Faces 1963@item Display Faces
1983Display a list of all the defined faces (@code{list-faces-display}). 1964Display a list of defined faces (@code{list-faces-display}).
1965@xref{Faces}.
1984 1966
1985@item Display Colors 1967@item Display Colors
1986Display a list of all the defined colors (@code{list-colors-display}). 1968Display a list of defined colors (@code{list-colors-display}).
1969@xref{Colors}.
1987@end table 1970@end table
1988 1971
1989@ifinfo 1972@noindent
1990 Other items in the Text Properties menu lead to submenus: 1973The other menu entries are described in the following sections.
1991
1992@menu
1993* Faces: Format Faces. Bold, italic, underline, etc.
1994* Color: Format Colors. Changing the color of text.
1995* Indent: Format Indentation. Changing the left and right margins.
1996* Justification: Format Justification.
1997 Centering, setting text flush with the
1998 left or right margin, etc.
1999* Special: Format Properties. The "special" text properties submenu.
2000@end menu
2001@end ifinfo
2002@ifnotinfo
2003 The rest lead to submenus which are described in the following sections.
2004@end ifnotinfo
2005
2006@node Format Faces
2007@subsection Faces in Formatted Text
2008 1974
2009 The Faces submenu under Text Properties lists various Emacs faces 1975@node Enriched Faces
2010including @code{bold}, @code{italic}, and @code{underline} 1976@subsection Faces in Enriched Text
2011(@pxref{Faces}). These menu items operate on the region if it is
2012active and nonempty. Otherwise, they specify to use that face for an
2013immediately following self-inserting character. There is also an item
2014@samp{Other} with which you can enter a face name through the
2015minibuffer (@pxref{Standard Faces}).
2016 1977
2017 Instead of the Faces submenu, you can use these keyboard commands: 1978 The following commands can be used to add or remove faces
1979(@pxref{Faces}). Each applies to the text in the region if the mark
1980is active, and to the next self-inserting character if the mark is
1981inactive. With a prefix argument, each command applies to the next
1982self-inserting character even if the region is active.
2018 1983
2019@table @kbd 1984@table @kbd
2020@kindex M-o d @r{(Enriched mode)} 1985@kindex M-o d @r{(Enriched mode)}
2021@findex facemenu-set-default 1986@findex facemenu-set-default
2022@item M-o d 1987@item M-o d
2023Remove all @code{face} properties from the region (which includes 1988Remove all @code{face} properties (@code{facemenu-set-default}).
2024specified colors), or force the following inserted character to have no 1989
2025@code{face} property (@code{facemenu-set-default}).
2026@kindex M-o b @r{(Enriched mode)} 1990@kindex M-o b @r{(Enriched mode)}
2027@findex facemenu-set-bold 1991@findex facemenu-set-bold
2028@item M-o b 1992@item M-o b
2029Add the face @code{bold} to the region or to the following inserted 1993Apply the @code{bold} face (@code{facemenu-set-bold}).
2030character (@code{facemenu-set-bold}). 1994
2031@kindex M-o i @r{(Enriched mode)} 1995@kindex M-o i @r{(Enriched mode)}
2032@findex facemenu-set-italic 1996@findex facemenu-set-italic
2033@item M-o i 1997@item M-o i
2034Add the face @code{italic} to the region or to the following inserted 1998Apply the @code{italic} face (@code{facemenu-set-italic}).
2035character (@code{facemenu-set-italic}). 1999
2036@kindex M-o l @r{(Enriched mode)} 2000@kindex M-o l @r{(Enriched mode)}
2037@findex facemenu-set-bold-italic 2001@findex facemenu-set-bold-italic
2038@item M-o l 2002@item M-o l
2039Add the face @code{bold-italic} to the region or to the following 2003Apply the @code{bold-italic} face (@code{facemenu-set-bold-italic}).
2040inserted character (@code{facemenu-set-bold-italic}). 2004
2041@kindex M-o u @r{(Enriched mode)} 2005@kindex M-o u @r{(Enriched mode)}
2042@findex facemenu-set-underline 2006@findex facemenu-set-underline
2043@item M-o u 2007@item M-o u
2044Add the face @code{underline} to the region or to the following inserted 2008Apply the @code{underline} face (@code{facemenu-set-underline}).
2045character (@code{facemenu-set-underline}). 2009
2046@kindex M-o o @r{(Enriched mode)} 2010@kindex M-o o @r{(Enriched mode)}
2047@findex facemenu-set-face 2011@findex facemenu-set-face
2048@item M-o o @var{face} @key{RET} 2012@item M-o o @var{face} @key{RET}
2049Add the face @var{face} to the region or to the following inserted 2013Apply the face @var{face} (@code{facemenu-set-face}).
2050character (@code{facemenu-set-face}).
2051@end table
2052 2014
2053 With a prefix argument, all these commands apply to an immediately 2015@findex facemenu-set-foreground
2054following self-inserting character, disregarding the region. 2016@item M-x facemenu-set-foreground
2017Prompt for a color (@pxref{Colors}), and apply it as a foreground
2018color.
2055 2019
2056 A self-inserting character normally inherits the @code{face} 2020@findex facemenu-set-background
2057property (and most other text properties) from the preceding character 2021@item M-x facemenu-set-background
2058in the buffer. If you use the above commands to specify face for the 2022Prompt for a color, and apply it as a background color.
2059next self-inserting character, or the next section's commands to 2023@end table
2060specify a foreground or background color for it, then it does not
2061inherit the @code{face} property from the preceding character; instead
2062it uses whatever you specified. It will still inherit other text
2063properties, though.
2064 2024
2065 Strictly speaking, these commands apply only to the first following 2025@noindent
2066self-inserting character that you type. But if you insert additional 2026These command are also available via the Text Properties menu.
2067characters after it, they will inherit from the first one. So it
2068appears that these commands apply to all of them.
2069 2027
2070 Enriched mode defines two additional faces: @code{excerpt} and 2028 A self-inserting character normally inherits the face properties
2071@code{fixed}. These correspond to codes used in the text/enriched file 2029(and most other text properties) from the preceding character in the
2072format. 2030buffer. If you use one of the above commands to specify the face for
2073 2031the next self-inserting character, that character will not inherit the
2074 The @code{excerpt} face is intended for quotations. This face is the 2032faces properties from the preceding character, but it will still
2075same as @code{italic} unless you customize it (@pxref{Face Customization}). 2033inherit other text properties.
2076
2077 The @code{fixed} face means, ``Use a fixed-width font for this part
2078of the text.'' Applying the @code{fixed} face to a part of the text
2079will cause that part of the text to appear in a fixed-width font, even
2080if the default font is variable-width. This applies to Emacs and to
2081other systems that display text/enriched format. So if you
2082specifically want a certain part of the text to use a fixed-width
2083font, you should specify the @code{fixed} face for that part.
2084
2085 By default, the @code{fixed} face looks the same as @code{bold}.
2086This is an attempt to distinguish it from @code{default}. You may
2087wish to customize @code{fixed} to some other fixed-width medium font.
2088@xref{Face Customization}.
2089
2090 If your terminal cannot display different faces, you will not be
2091able to see them, but you can still edit documents containing faces,
2092and even add faces and colors to documents. The faces you specify
2093will be visible when the file is viewed on a terminal that can display
2094them.
2095
2096@node Format Colors
2097@subsection Colors in Formatted Text
2098
2099 You can specify foreground and background colors for portions of the
2100text. Under Text Properties, there is a submenu for specifying the
2101foreground color, and a submenu for specifying the background color.
2102Each one lists all the colors that you have used in Enriched mode in
2103the current Emacs session.
2104
2105 If the region is active, the command applies to the text in the
2106region; otherwise, it applies to any immediately following
2107self-inserting input. When Transient Mark mode is off
2108(@pxref{Disabled Transient Mark}), it always applies to the region
2109unless a prefix argument is given, in which case it applies to the
2110following input.
2111
2112 Each of the two color submenus contains one additional item:
2113@samp{Other}. You can use this item to specify a color that is not
2114listed in the menu; it reads the color name with the minibuffer. To
2115display a list of available colors and their names, use the
2116@samp{Display Colors} menu item in the Text Properties menu
2117(@pxref{Editing Format Info}).
2118
2119 Any color that you specify in this way, or that is mentioned in a
2120formatted text file that you read in, is added to the corresponding
2121color menu for the duration of the Emacs session.
2122 2034
2123@findex facemenu-set-foreground 2035 Enriched mode defines two additional faces: @code{excerpt} and
2124@findex facemenu-set-background 2036@code{fixed}. These correspond to codes used in the text/enriched
2125 There are no predefined key bindings for specifying colors, but you can do so 2037file format. The @code{excerpt} face is intended for quotations; by
2126with the extended commands @kbd{M-x facemenu-set-foreground} and 2038default, it appears the same as @code{italic}. The @code{fixed} face
2127@kbd{M-x facemenu-set-background}. Both of these commands read the name 2039specifies fixed-width text; by default, it appears the same as
2128of the color with the minibuffer. 2040@code{bold}.
2129 2041
2130@node Format Indentation 2042@node Enriched Indentation
2131@subsection Indentation in Formatted Text 2043@subsection Indentation in Enriched Text
2132 2044
2133 When editing formatted text, you can specify different amounts of 2045 In Enriched mode, you can specify different amounts of indentation
2134indentation for the right or left margin of an entire paragraph or a 2046for the right or left margin of a paragraph or a part of a paragraph.
2135part of a paragraph. The margins you specify automatically affect the 2047These margins also affect fill commands such as @kbd{M-q}
2136Emacs fill commands (@pxref{Filling}) and line-breaking commands. 2048(@pxref{Filling}).
2137 2049
2138 The Indentation submenu of Text Properties provides a convenient 2050 The Indentation submenu of Text Properties provides four commands
2139interface for specifying these properties. The submenu contains four 2051for specifying indentation:
2140items:
2141 2052
2142@table @code 2053@table @code
2143@kindex C-x TAB @r{(Enriched mode)} 2054@kindex C-x TAB @r{(Enriched mode)}
@@ -2158,44 +2069,20 @@ Make the text narrower by indenting 4 columns at the right margin.
2158Remove 4 columns of indentation from the right margin. 2069Remove 4 columns of indentation from the right margin.
2159@end table 2070@end table
2160 2071
2161 You can use these commands repeatedly to increase or decrease the
2162indentation.
2163
2164 The most common way to use them is to change the indentation of an
2165entire paragraph. For other uses, the effects of refilling can be
2166hard to predict, except in some special cases like the one described
2167next.
2168
2169 The most common other use is to format paragraphs with @dfn{hanging
2170indents}, which means that the first line is indented less than
2171subsequent lines. To set up a hanging indent, increase the
2172indentation of the region starting after the first word of the
2173paragraph and running until the end of the paragraph.
2174
2175 Indenting the first line of a paragraph is easier. Set the margin for
2176the whole paragraph where you want it to be for the body of the
2177paragraph, then indent the first line by inserting extra spaces or tabs.
2178
2179@vindex standard-indent 2072@vindex standard-indent
2180 The variable @code{standard-indent} specifies how many columns these 2073 The variable @code{standard-indent} specifies how many columns these
2181commands should add to or subtract from the indentation. The default 2074commands should add to or subtract from the indentation. The default
2182value is 4. The overall default right margin for Enriched mode is 2075value is 4. The default right margin for Enriched mode is controlled
2183controlled by the variable @code{fill-column}, as usual. 2076by the variable @code{fill-column}, as usual.
2184 2077
2185@kindex C-c [ @r{(Enriched mode)} 2078@kindex C-c [ @r{(Enriched mode)}
2186@kindex C-c ] @r{(Enriched mode)} 2079@kindex C-c ] @r{(Enriched mode)}
2187@findex set-left-margin 2080@findex set-left-margin
2188@findex set-right-margin 2081@findex set-right-margin
2189 There are also two commands for setting the left or right margin of 2082 You can also type @kbd{C-c [} (@code{set-left-margin}) and @kbd{C-c
2190the region absolutely: @code{set-left-margin} and 2083]} (@code{set-right-margin}) to set the left and right margins. You
2191@code{set-right-margin}. Enriched mode binds these commands to 2084can specify the margin width with a numeric argument; otherwise these
2192@kbd{C-c [} and @kbd{C-c ]}, respectively. You can specify the 2085commands prompt for a value via the minibuffer.
2193margin width either with a numeric argument or in the minibuffer.
2194
2195 Sometimes, as a result of editing, the filling of a paragraph becomes
2196messed up---parts of the paragraph may extend past the left or right
2197margins. When this happens, use @kbd{M-q} (@code{fill-paragraph}) to
2198refill the paragraph.
2199 2086
2200 The fill prefix, if any, works in addition to the specified paragraph 2087 The fill prefix, if any, works in addition to the specified paragraph
2201indentation: @kbd{C-x .} does not include the specified indentation's 2088indentation: @kbd{C-x .} does not include the specified indentation's
@@ -2203,148 +2090,76 @@ whitespace in the new value for the fill prefix, and the fill commands
2203look for the fill prefix after the indentation on each line. @xref{Fill 2090look for the fill prefix after the indentation on each line. @xref{Fill
2204Prefix}. 2091Prefix}.
2205 2092
2206@node Format Justification 2093@node Enriched Justification
2207@subsection Justification in Formatted Text 2094@subsection Justification in Enriched Text
2208
2209 When editing formatted text, you can specify various styles of
2210justification for a paragraph. The style you specify automatically
2211affects the Emacs fill commands.
2212 2095
2213 The Justification submenu of Text Properties provides a convenient 2096 In Enriched mode, you can use the following commands to specify
2214interface for specifying the style. The submenu contains five items: 2097various @dfn{justification styles} for filling. These commands apply
2215 2098to the paragraph containing point, or, if the region is active, to all
2216@table @code 2099paragraphs overlapping the region.
2217@item Left
2218This is the most common style of justification (at least for English).
2219Lines are aligned at the left margin but left uneven at the right.
2220
2221@item Right
2222This aligns each line with the right margin. Spaces and tabs are added
2223on the left, if necessary, to make lines line up on the right.
2224
2225@item Full
2226This justifies the text, aligning both edges of each line. Justified
2227text looks very nice in a printed book, where the spaces can all be
2228adjusted equally, but it does not look as nice with a fixed-width font
2229on the screen. Perhaps a future version of Emacs will be able to adjust
2230the width of spaces in a line to achieve elegant justification.
2231
2232@item Center
2233This centers every line between the current margins.
2234
2235@item Unfilled
2236This turns off filling entirely. Each line will remain as you wrote it;
2237the fill and auto-fill functions will have no effect on text which has
2238this setting. You can, however, still indent the left margin. In
2239unfilled regions, all newlines are treated as hard newlines (@pxref{Hard
2240and Soft Newlines}) .
2241@end table
2242
2243 In Enriched mode, you can also specify justification from the keyboard
2244using the @kbd{M-j} prefix character:
2245 2100
2246@table @kbd 2101@table @kbd
2247@kindex M-j l @r{(Enriched mode)} 2102@kindex M-j l @r{(Enriched mode)}
2248@findex set-justification-left 2103@findex set-justification-left
2249@item M-j l 2104@item M-j l
2250Make the region left-filled (@code{set-justification-left}). 2105Align lines to the left margin (@code{set-justification-left}).
2106
2251@kindex M-j r @r{(Enriched mode)} 2107@kindex M-j r @r{(Enriched mode)}
2252@findex set-justification-right 2108@findex set-justification-right
2253@item M-j r 2109@item M-j r
2254Make the region right-filled (@code{set-justification-right}). 2110Align lines to the right margin (@code{set-justification-right}).
2111
2255@kindex M-j b @r{(Enriched mode)} 2112@kindex M-j b @r{(Enriched mode)}
2256@findex set-justification-full 2113@findex set-justification-full
2257@item M-j b 2114@item M-j b
2258Make the region fully justified (@code{set-justification-full}). 2115Align lines to both margins, inserting spaces in the middle of the
2116line to achieve this (@code{set-justification-full}).
2117
2259@kindex M-j c @r{(Enriched mode)} 2118@kindex M-j c @r{(Enriched mode)}
2260@kindex M-S @r{(Enriched mode)} 2119@kindex M-S @r{(Enriched mode)}
2261@findex set-justification-center 2120@findex set-justification-center
2262@item M-j c 2121@item M-j c
2263@itemx M-S 2122@itemx M-S
2264Make the region centered (@code{set-justification-center}). 2123Center lines between the margins (@code{set-justification-center}).
2124
2265@kindex M-j u @r{(Enriched mode)} 2125@kindex M-j u @r{(Enriched mode)}
2266@findex set-justification-none 2126@findex set-justification-none
2267@item M-j u 2127@item M-j u
2268Make the region unfilled (@code{set-justification-none}). 2128Turn off filling entirely (@code{set-justification-none}). The fill
2129commands do nothing on text with this setting. You can, however,
2130still indent the left margin.
2269@end table 2131@end table
2270 2132
2271 Justification styles apply to entire paragraphs. All the 2133 You can also specify justification styles using the Justification
2272justification-changing commands operate on the paragraph containing 2134submenu in the Text Properties menu.
2273point, or, if the region is active, on all paragraphs which overlap the
2274region.
2275 2135
2276@vindex default-justification 2136@vindex default-justification
2277 The default justification style is specified by the variable 2137 The default justification style is specified by the per-buffer
2278@code{default-justification}. Its value should be one of the symbols 2138variable @code{default-justification}. Its value should be one of the
2279@code{left}, @code{right}, @code{full}, @code{center}, or @code{none}. 2139symbols @code{left}, @code{right}, @code{full}, @code{center}, or
2280This is a per-buffer variable. Setting the variable directly affects 2140@code{none}.
2281only the current buffer. However, customizing it in a Custom buffer
2282sets (as always) the default value for buffers that do not override it.
2283@xref{Locals}, and @ref{Easy Customization}.
2284
2285@node Format Properties
2286@subsection Setting Other Text Properties
2287
2288 The Special Properties submenu of Text Properties can add or remove
2289three other useful text properties: @code{read-only}, @code{invisible}
2290and @code{intangible}. The @code{intangible} property disallows
2291moving point within the text, the @code{invisible} text property hides
2292text from display, and the @code{read-only} property disallows
2293alteration of the text.
2294 2141
2295 Each of these special properties has a menu item to add it to the 2142@node Enriched Properties
2296region. The last menu item, @samp{Remove Special}, removes all of these 2143@subsection Setting Other Text Properties
2297special properties from the text in the region.
2298
2299 Currently, the @code{invisible} and @code{intangible} properties are
2300@emph{not} saved in the text/enriched format. The @code{read-only}
2301property is saved, but it is not a standard part of the text/enriched
2302format, so other editors may not respect it.
2303
2304@node Forcing Enriched Mode
2305@subsection Forcing Enriched Mode
2306
2307 Normally, Emacs knows when you are editing formatted text because it
2308recognizes the special annotations used in the file that you visited.
2309However, sometimes you must take special actions to convert file
2310contents or turn on Enriched mode:
2311
2312@itemize @bullet
2313@item
2314When you visit a file that was created with some other editor, Emacs may
2315not recognize the file as being in the text/enriched format. In this
2316case, when you visit the file you will see the formatting commands
2317rather than the formatted text. Type @kbd{M-x format-decode-buffer} to
2318translate it. This also automatically turns on Enriched mode.
2319 2144
2320@item 2145 The Special Properties submenu of Text Properties has entries for
2321When you @emph{insert} a file into a buffer, rather than visiting it, 2146adding or removing three other text properties: @code{read-only},
2322Emacs does the necessary conversions on the text which you insert, but 2147(which disallows alteration of the text), @code{invisible} (which
2323it does not enable Enriched mode. If you wish to do that, type @kbd{M-x 2148hides text), and @code{intangible} (which disallows moving point
2324enriched-mode}. 2149within the text). The @samp{Remove Special} menu item removes all of
2325@end itemize 2150these special properties from the text in the region.
2326 2151
2327 The command @code{format-decode-buffer} translates text in various 2152 The @code{invisible} and @code{intangible} properties are @emph{not}
2328formats into Emacs's internal format. It asks you to specify the format 2153saved in the text/enriched format. The @code{read-only} property is
2329to translate from; however, normally you can type just @key{RET}, which 2154saved, but it is not a standard part of the text/enriched format, so
2330tells Emacs to guess the format. 2155other editors may not respect it.
2331
2332@findex format-find-file
2333 If you wish to look at a text/enriched file in its raw form, as a
2334sequence of characters rather than as formatted text, use the @kbd{M-x
2335find-file-literally} command. This visits a file, like
2336@code{find-file}, but does not do format conversion. It also inhibits
2337character code conversion (@pxref{Coding Systems}) and automatic
2338uncompression (@pxref{Compressed Files}). To disable format conversion
2339but allow character code conversion and/or automatic uncompression if
2340appropriate, use @code{format-find-file} with suitable arguments.
2341 2156
2342@node Text Based Tables 2157@node Text Based Tables
2343@section Editing Text-based Tables 2158@section Editing Text-based Tables
2344@cindex table mode 2159@cindex table mode
2345@cindex text-based tables 2160@cindex text-based tables
2346 2161
2347 Table mode provides an easy and intuitive way to create and edit WYSIWYG 2162 Table mode provides an easy and intuitive way to create and edit
2348text-based tables. Here is an example of such a table: 2163text-based tables. Here is an example of such a table:
2349 2164
2350@smallexample 2165@smallexample
diff --git a/doc/emacs/windows.texi b/doc/emacs/windows.texi
index c44b67454a2..6a6f7b1a4d7 100644
--- a/doc/emacs/windows.texi
+++ b/doc/emacs/windows.texi
@@ -193,6 +193,7 @@ Select buffer @var{bufname} in another window
193 193
194@findex display-buffer 194@findex display-buffer
195@item C-x 4 C-o @var{bufname} @key{RET} 195@item C-x 4 C-o @var{bufname} @key{RET}
196@kindex C-x 4 C-o
196Display buffer @var{bufname} in some window, without trying to select 197Display buffer @var{bufname} in some window, without trying to select
197it (@code{display-buffer}). @xref{Displaying Buffers}, for details 198it (@code{display-buffer}). @xref{Displaying Buffers}, for details
198about how the window is chosen. 199about how the window is chosen.
@@ -385,7 +386,8 @@ change @code{pop-up-frames} (see below) to @code{t}.
385@item 386@item
386Otherwise, if you specified that the buffer should be displayed in a 387Otherwise, if you specified that the buffer should be displayed in a
387special frame by customizing @code{special-display-buffer-names} or 388special frame by customizing @code{special-display-buffer-names} or
388@code{special-display-regexps}, do so. @xref{Special Buffer Frames}. 389@code{special-display-regexps}, do so. @xref{Choosing Window
390Options,,, elisp, The Emacs Lisp Reference Manual}.
389 391
390@vindex pop-up-frames 392@vindex pop-up-frames
391@item 393@item
@@ -420,7 +422,7 @@ and display the buffer there.
420@end itemize 422@end itemize
421 423
422@node Window Convenience 424@node Window Convenience
423@section Window Handling Convenience Features and Customization 425@section Convenience Features for Window Handling
424 426
425@findex winner-mode 427@findex winner-mode
426@cindex Winner mode 428@cindex Winner mode
diff --git a/doc/emacs/xresources.texi b/doc/emacs/xresources.texi
index c2e65268d1b..b32b3d905e4 100644
--- a/doc/emacs/xresources.texi
+++ b/doc/emacs/xresources.texi
@@ -306,14 +306,14 @@ Name to display in the title bar of the initial Emacs frame.
306@item @code{toolBar} (class @code{ToolBar}) 306@item @code{toolBar} (class @code{ToolBar})
307@cindex tool bar 307@cindex tool bar
308Number of lines to reserve for the tool bar. A zero value suppresses 308Number of lines to reserve for the tool bar. A zero value suppresses
309the tool bar. For the Emacs tool bar (i.e. not Gtk+), if the value is 309the tool bar. For the Emacs tool bar (i.e.@: not Gtk+), if the value
310non-zero and @code{auto-resize-tool-bars} is non-@code{nil}, the tool bar's 310is non-zero and @code{auto-resize-tool-bars} is non-@code{nil}, the
311size will be changed automatically so that all tool bar items are visible. 311tool bar's size will be changed automatically so that all tool bar
312 If the value of @code{auto-resize-tool-bars} is @code{grow-only}, 312items are visible. If the value of @code{auto-resize-tool-bars} is
313the tool bar expands automatically, but does not contract automatically. 313@code{grow-only}, the tool bar expands automatically, but does not
314To contract the tool bar, you must redraw the frame by entering @kbd{C-l}. 314contract automatically. To contract the tool bar, you must redraw the
315For the Gtk+ tool bar, any non-zero value means on and 315frame by entering @kbd{C-l}. For the Gtk+ tool bar, any non-zero
316@code{auto-resize-tool-bars} has no effect. 316value means on and @code{auto-resize-tool-bars} has no effect.
317 317
318@item @code{useXIM} (class @code{UseXIM}) 318@item @code{useXIM} (class @code{UseXIM})
319@cindex XIM 319@cindex XIM
@@ -641,17 +641,18 @@ The color for the border shadow, on the top and the left.
641@node GTK resources 641@node GTK resources
642@appendixsec GTK resources 642@appendixsec GTK resources
643@iftex 643@iftex
644 The most common way to customize the GTK widgets Emacs uses (menus, dialogs 644 The most common way to customize the GTK widgets Emacs uses (menus,
645tool bars and scroll bars) is by choosing an appropriate theme, for example 645dialogs tool bars and scroll bars) is by choosing an appropriate
646with the GNOME theme selector. 646theme, for example with the GNOME theme selector.
647 647
648You can also do Emacs specific customization 648You can also do Emacs specific customization by inserting GTK style
649by inserting GTK style directives in the file @file{~/.emacs.d/gtkrc}, 649directives in the file @file{~/.emacs.d/gtkrc}, but only if you have a
650but only if you have a Gtk+ version earlier than 3 (i.e. 2). Some GTK 650Gtk+ version earlier than 3 (i.e.@: 2). Some GTK themes ignore
651themes ignore customizations in @file{~/.emacs.d/gtkrc} so not everything 651customizations in @file{~/.emacs.d/gtkrc} so not everything works with
652works with all themes. To customize Emacs font, background, faces, etc., use 652all themes. To customize Emacs font, background, faces, etc., use the
653the normal X resources (@pxref{Resources}). We will present some examples of 653normal X resources (@pxref{Resources}). We will present some examples
654customizations here, but for a more detailed description, see the online manual 654of customizations here, but for a more detailed description, see the
655online manual
655 656
656 The first example is just one line. It changes the font on all GTK widgets 657 The first example is just one line. It changes the font on all GTK widgets
657to courier with size 12: 658to courier with size 12:
@@ -1065,7 +1066,7 @@ possible states are:
1065This is the default state for widgets. 1066This is the default state for widgets.
1066@item ACTIVE 1067@item ACTIVE
1067This is the state for a widget that is ready to do something. It is 1068This is the state for a widget that is ready to do something. It is
1068also for the trough of a scroll bar, i.e. @code{bg[ACTIVE] = "red"} 1069also for the trough of a scroll bar, i.e.@: @code{bg[ACTIVE] = "red"}
1069sets the scroll bar trough to red. Buttons that have been pressed but 1070sets the scroll bar trough to red. Buttons that have been pressed but
1070not released yet (``armed'') are in this state. 1071not released yet (``armed'') are in this state.
1071@item PRELIGHT 1072@item PRELIGHT
@@ -1109,7 +1110,7 @@ You can't specify the file by its absolute file name. GTK looks for
1109the pixmap file in directories specified in @code{pixmap_path}. 1110the pixmap file in directories specified in @code{pixmap_path}.
1110@code{pixmap_path} is a colon-separated list of directories within 1111@code{pixmap_path} is a colon-separated list of directories within
1111double quotes, specified at the top level in a @file{gtkrc} file 1112double quotes, specified at the top level in a @file{gtkrc} file
1112(i.e. not inside a style definition; see example above): 1113(i.e.@: not inside a style definition; see example above):
1113 1114
1114@smallexample 1115@smallexample
1115pixmap_path "/usr/share/pixmaps:/usr/include/X11/pixmaps" 1116pixmap_path "/usr/share/pixmaps:/usr/include/X11/pixmaps"
@@ -1131,19 +1132,18 @@ Bold 12}, @samp{Courier 14}, @samp{Times 18}. See below for exact
1131syntax. The names are case insensitive. 1132syntax. The names are case insensitive.
1132@end table 1133@end table
1133 1134
1134 There are three ways to specify a color: by name, in hexadecimal 1135 There are three ways to specify a color: a color name, an RGB
1135form, and with an RGB triplet. 1136triplet, or a GTK-style RGB triplet. @xref{Colors}, for a description
1137of color names and RGB triplets. Color names should be enclosed with
1138double quotes, e.g.@: @samp{"red"}. RGB triplets should be written
1139without double quotes, e.g.@: @samp{#ff0000}. GTK-style RGB triplets
1140have the form
1136 1141
1137@noindent 1142@smallexample
1138A color name is written within double quotes, for example @code{"red"}. 1143@code{@{ @var{r}, @var{g}, @var{b} @}}
1139 1144@end smallexample
1140@noindent
1141Hexadecimal form is the same as in X:
1142@code{#@var{rrrr}@var{gggg}@var{bbbb}}, where all three color specs
1143must have the same number of hex digits (1, 2, 3 or 4).
1144 1145
1145@noindent 1146@noindent
1146An RGB triplet looks like @code{@{ @var{r}, @var{g}, @var{b} @}},
1147where @var{r}, @var{g} and @var{b} are either integers in the range 1147where @var{r}, @var{g} and @var{b} are either integers in the range
11480-65535 or floats in the range 0.0-1.0. 11480-65535 or floats in the range 0.0-1.0.
1149 1149
diff --git a/doc/lispintro/ChangeLog b/doc/lispintro/ChangeLog
index bdcd9e9aea8..6cede6375f2 100644
--- a/doc/lispintro/ChangeLog
+++ b/doc/lispintro/ChangeLog
@@ -1,3 +1,7 @@
12011-11-24 Juanma Barranquero <lekktu@gmail.com>
2
3 * makefile.w32-in: Update dependencies.
4
12011-11-16 Juanma Barranquero <lekktu@gmail.com> 52011-11-16 Juanma Barranquero <lekktu@gmail.com>
2 6
3 * emacs-lisp-intro.texi (etags): Fix typo. 7 * emacs-lisp-intro.texi (etags): Fix typo.
diff --git a/doc/lispintro/emacs-lisp-intro.texi b/doc/lispintro/emacs-lisp-intro.texi
index 244d95d6937..23d0d5a8f34 100644
--- a/doc/lispintro/emacs-lisp-intro.texi
+++ b/doc/lispintro/emacs-lisp-intro.texi
@@ -1401,7 +1401,7 @@ This is a harmless activity; and indeed, we will often try to generate
1401error messages intentionally. Once you understand the jargon, error 1401error messages intentionally. Once you understand the jargon, error
1402messages can be informative. Instead of being called ``error'' 1402messages can be informative. Instead of being called ``error''
1403messages, they should be called ``help'' messages. They are like 1403messages, they should be called ``help'' messages. They are like
1404signposts to a traveller in a strange country; deciphering them can be 1404signposts to a traveler in a strange country; deciphering them can be
1405hard, but once understood, they can point the way. 1405hard, but once understood, they can point the way.
1406 1406
1407The error message is generated by a built-in GNU Emacs debugger. We 1407The error message is generated by a built-in GNU Emacs debugger. We
@@ -2040,7 +2040,7 @@ the first argument. This function takes three arguments. Its first
2040argument is the string of characters, the second and third arguments are 2040argument is the string of characters, the second and third arguments are
2041numbers that indicate the beginning and end of the substring. The 2041numbers that indicate the beginning and end of the substring. The
2042numbers are a count of the number of characters (including spaces and 2042numbers are a count of the number of characters (including spaces and
2043punctuations) from the beginning of the string. 2043punctuation) from the beginning of the string.
2044 2044
2045@need 800 2045@need 800
2046For example, if you evaluate the following: 2046For example, if you evaluate the following:
diff --git a/doc/lispintro/makefile.w32-in b/doc/lispintro/makefile.w32-in
index 7294d46b693..06641cc2222 100644
--- a/doc/lispintro/makefile.w32-in
+++ b/doc/lispintro/makefile.w32-in
@@ -24,7 +24,7 @@ infodir = $(srcdir)/../../info
24# Directory with the (customized) texinfo.tex file. 24# Directory with the (customized) texinfo.tex file.
25texinfodir = $(srcdir)/../misc 25texinfodir = $(srcdir)/../misc
26 26
27INFO_SOURCES = $(srcdir)/emacs-lisp-intro.texi 27INFO_SOURCES = $(srcdir)/emacs-lisp-intro.texi $(srcdir)/doclicense.texi
28# The file name eintr must fit within 5 characters, to allow for 28# The file name eintr must fit within 5 characters, to allow for
29# -NN extensions to fit into DOS 8+3 limits without clashing 29# -NN extensions to fit into DOS 8+3 limits without clashing
30INFO_TARGETS = $(infodir)/eintr 30INFO_TARGETS = $(infodir)/eintr
diff --git a/doc/lispref/ChangeLog b/doc/lispref/ChangeLog
index 293f253c545..37de62be976 100644
--- a/doc/lispref/ChangeLog
+++ b/doc/lispref/ChangeLog
@@ -1,3 +1,26 @@
12011-11-26 Eli Zaretskii <eliz@gnu.org>
2
3 * display.texi (Truncation):
4 * text.texi (Special Properties): Describe what a stretch-glyph is
5 instead of using that term without explanation. Make the
6 cross-references more accurate.
7
8 * display.texi (Usual Display): Update the description,
9 cross-references, and indexing related to display of control
10 characters and raw bytes.
11
122011-11-25 Martin Rudalics <rudalics@gmx.at>
13
14 * windows.texi (Splitting Windows): Fix description of
15 window-combination-limit. Suggested by Eli Zaretskii.
16
172011-11-23 Chong Yidong <cyd@gnu.org>
18
19 * windows.texi (Window Sizes): Move window-top-line,
20 window-left-column, and window-*-pixel-edges to Coordinates and
21 Windows node.
22 (Coordinates and Windows): Restore window-edges doc.
23
12011-11-21 Martin Rudalics <rudalics@gmx.at> 242011-11-21 Martin Rudalics <rudalics@gmx.at>
2 25
3 * windows.texi (Windows and Frames, Splitting Windows): Fix 26 * windows.texi (Windows and Frames, Splitting Windows): Fix
diff --git a/doc/lispref/display.texi b/doc/lispref/display.texi
index 9849420b1f5..a9921d7443d 100644
--- a/doc/lispref/display.texi
+++ b/doc/lispref/display.texi
@@ -193,10 +193,12 @@ a window, that forces truncation.
193@defvar wrap-prefix 193@defvar wrap-prefix
194If this buffer-local variable is non-@code{nil}, it defines a 194If this buffer-local variable is non-@code{nil}, it defines a
195``prefix'' that is prepended to every continuation line at 195``prefix'' that is prepended to every continuation line at
196display-time. (If lines are truncated, the wrap-prefix is never 196display time. (If lines are truncated, the wrap-prefix is never
197used.) It may be a string, an image, or a stretch-glyph; the value is 197used.) It may be a string or an image (@pxref{Other Display Specs}),
198interpreted in the same way as a @code{display} text property. 198or a stretch of whitespace such as specified by the @code{:width} or
199@xref{Display Property}. 199@code{:align-to} display properties (@pxref{Specified Space}). The
200value is interpreted in the same way as a @code{display} text
201property. @xref{Display Property}.
200 202
201A wrap-prefix may also be specified for regions of text, using the 203A wrap-prefix may also be specified for regions of text, using the
202@code{wrap-prefix} text or overlay property. This takes precedence 204@code{wrap-prefix} text or overlay property. This takes precedence
@@ -206,9 +208,11 @@ over the @code{wrap-prefix} variable. @xref{Special Properties}.
206@defvar line-prefix 208@defvar line-prefix
207If this buffer-local variable is non-@code{nil}, it defines a 209If this buffer-local variable is non-@code{nil}, it defines a
208``prefix'' that is prepended to every non-continuation line at 210``prefix'' that is prepended to every non-continuation line at
209display-time. It may be a string, an image, or a stretch-glyph; the 211display time. It may be a string or an image (@pxref{Other Display
210value is interpreted in the same way as a @code{display} text 212Specs}), or a stretch of whitespace such as specified by the
211property. @xref{Display Property}. 213@code{:width} or @code{:align-to} display properties (@pxref{Specified
214Space}). The value is interpreted in the same way as a @code{display}
215text property. @xref{Display Property}.
212 216
213A line-prefix may also be specified for regions of text using the 217A line-prefix may also be specified for regions of text using the
214@code{line-prefix} text or overlay property. This takes precedence 218@code{line-prefix} text or overlay property. This takes precedence
@@ -5638,39 +5642,45 @@ code. You can override these conventions by setting up a display table
5638@itemize @bullet 5642@itemize @bullet
5639@item 5643@item
5640Character codes 32 through 126 map to glyph codes 32 through 126. 5644Character codes 32 through 126 map to glyph codes 32 through 126.
5641Normally this means they display as themselves. 5645Normally this means they display as themselves, but a display table
5646can change that.
5642 5647
5643@item 5648@item
5644Character code 9 is a horizontal tab. It displays as whitespace 5649Character code 9 is a horizontal tab. It displays as whitespace
5645up to a position determined by @code{tab-width}. 5650up to a position determined by @code{tab-width}.
5646 5651
5647@item 5652@item
5648Character code 10 is a newline. 5653Character code 10 is a newline. It is normally invisible on display,
5654and has the effect of ending the preceding line and starting a new
5655line.
5649 5656
5650@item 5657@item
5651All other codes in the range 0 through 31, and code 127, display in one 5658All other codes in the range 0 through 31 display in one of two ways
5652of two ways according to the value of @code{ctl-arrow}. If it is 5659according to the value of @code{ctl-arrow}. If it is non-@code{nil},
5653non-@code{nil}, these codes map to sequences of two glyphs, where the 5660these codes map to sequences of two glyphs, where the first glyph is
5654first glyph is the @acronym{ASCII} code for @samp{^}. (A display table can 5661the @acronym{ASCII} code for @samp{^}. (A display table can specify a
5655specify a glyph to use instead of @samp{^}.) Otherwise, these codes map 5662glyph to use instead of @samp{^}.) Otherwise, these codes map just
5656just like the codes in the range 128 to 255. 5663like the raw bytes in the range 128 to 255 (described below).
5657 5664
5658On MS-DOS terminals, Emacs arranges by default for the character code 5665@cindex octal escapes
5659127 to be mapped to the glyph code 127, which normally displays as an
5660empty polygon. This glyph is used to display non-@acronym{ASCII} characters
5661that the MS-DOS terminal doesn't support. @xref{MS-DOS and MULE,,,
5662emacs, The GNU Emacs Manual}.
5663
5664@item 5666@item
5665Character codes 128 through 255 map to sequences of four glyphs, where 5667Raw bytes (@pxref{Text Representations}) with codes 128 through 255,
5666the first glyph is the @acronym{ASCII} code for @samp{\}, and the others are 5668and the @acronym{ASCII} control character with code 127, display as
5667digit characters representing the character code in octal. (A display 5669sequences of four glyphs, where the first glyph is the @acronym{ASCII}
5668table can specify a glyph to use instead of @samp{\}.) 5670code for @samp{\}, and the others are digit characters representing
5671the character code in octal. (A display table can specify a glyph to
5672use instead of @samp{\}.) This is known as the @dfn{octal escape}
5673display.
5669 5674
5670@item 5675@item
5671Multibyte character codes above 256 are displayed as themselves, or as 5676Non-@acronym{ASCII} character codes above 127 are displayed as
5672a question mark or a hex code or an empty box if the terminal cannot 5677themselves, if the terminal and the available fonts support them.
5673display that character. 5678Characters that are not supported by the terminal, or (on window
5679systems) have no fonts available for them, are displayed as a question
5680mark or a hex code or an empty box. @xref{Glyphless Chars}, for how
5681to control display of the characters not supported by the terminal or
5682fonts. Display tables can change how a character is displayed, even
5683if it is supported.
5674@end itemize 5684@end itemize
5675 5685
5676 The usual display conventions apply even when there is a display 5686 The usual display conventions apply even when there is a display
@@ -5695,7 +5705,8 @@ mode line using the new values, call the function
5695This buffer-local variable controls how control characters are 5705This buffer-local variable controls how control characters are
5696displayed. If it is non-@code{nil}, they are displayed as a caret 5706displayed. If it is non-@code{nil}, they are displayed as a caret
5697followed by the character: @samp{^A}. If it is @code{nil}, they are 5707followed by the character: @samp{^A}. If it is @code{nil}, they are
5698displayed as a backslash followed by three octal digits: @samp{\001}. 5708displayed as octal escapes: a backslash followed by three octal
5709digits, as in @samp{\001}.
5699@end defopt 5710@end defopt
5700 5711
5701@defopt tab-width 5712@defopt tab-width
diff --git a/doc/lispref/spellfile b/doc/lispref/spellfile
index 5c0a6d0f5ea..e0d77ee0541 100644
--- a/doc/lispref/spellfile
+++ b/doc/lispref/spellfile
@@ -253,7 +253,6 @@ deletable
253deletion' 253deletion'
254delq 254delq
255depiction 255depiction
256descendents
257deselecting 256deselecting
258destructive' 257destructive'
259destructively' 258destructively'
@@ -299,7 +298,6 @@ excess'
299exec 298exec
300exitcode 299exitcode
301expression' 300expression'
302extendible
303extra' 301extra'
304fails' 302fails'
305fascist 303fascist
@@ -660,7 +658,7 @@ the'
660tildes 658tildes
661time's 659time's
662to' 660to'
663towars 661towards
664transportable 662transportable
665txt 663txt
666types' 664types'
@@ -674,7 +672,6 @@ undefine
674undefines 672undefines
675underfull 673underfull
676undo's 674undo's
677undodata
678unevaluated' 675unevaluated'
679unexec 676unexec
680unexpand 677unexpand
diff --git a/doc/lispref/text.texi b/doc/lispref/text.texi
index 3a081dddc61..fc12939bec5 100644
--- a/doc/lispref/text.texi
+++ b/doc/lispref/text.texi
@@ -3191,10 +3191,12 @@ controls the total height of the display line ending in that newline.
3191 3191
3192@item wrap-prefix 3192@item wrap-prefix
3193If text has a @code{wrap-prefix} property, the prefix it defines will 3193If text has a @code{wrap-prefix} property, the prefix it defines will
3194be added at display-time to the beginning of every continuation line 3194be added at display time to the beginning of every continuation line
3195due to text wrapping (so if lines are truncated, the wrap-prefix is 3195due to text wrapping (so if lines are truncated, the wrap-prefix is
3196never used). It may be a string, an image, or a stretch-glyph such as 3196never used). It may be a string or an image (@pxref{Other Display
3197used by the @code{display} text-property. @xref{Display Property}. 3197Specs}), or a stretch of whitespace such as specified by the
3198@code{:width} or @code{:align-to} display properties (@pxref{Specified
3199Space}).
3198 3200
3199A wrap-prefix may also be specified for an entire buffer using the 3201A wrap-prefix may also be specified for an entire buffer using the
3200@code{wrap-prefix} buffer-local variable (however, a 3202@code{wrap-prefix} buffer-local variable (however, a
@@ -3203,9 +3205,11 @@ the @code{wrap-prefix} variable). @xref{Truncation}.
3203 3205
3204@item line-prefix 3206@item line-prefix
3205If text has a @code{line-prefix} property, the prefix it defines will 3207If text has a @code{line-prefix} property, the prefix it defines will
3206be added at display-time to the beginning of every non-continuation 3208be added at display time to the beginning of every non-continuation
3207line. It may be a string, an image, or a stretch-glyph such as used 3209line. It may be a string or an image (@pxref{Other Display
3208by the @code{display} text-property. @xref{Display Property}. 3210Specs}), or a stretch of whitespace such as specified by the
3211@code{:width} or @code{:align-to} display properties (@pxref{Specified
3212Space}).
3209 3213
3210A line-prefix may also be specified for an entire buffer using the 3214A line-prefix may also be specified for an entire buffer using the
3211@code{line-prefix} buffer-local variable (however, a 3215@code{line-prefix} buffer-local variable (however, a
@@ -3762,7 +3766,7 @@ Additionally, if two fields are separated by another field with the
3762special value @code{boundary}, then any point within this special 3766special value @code{boundary}, then any point within this special
3763field is also considered to be ``on the boundary.'' 3767field is also considered to be ``on the boundary.''
3764 3768
3765Commands like @kbd{C-a} with no argumemt, that normally move backward 3769Commands like @kbd{C-a} with no argument, that normally move backward
3766to a specific kind of location and stay there once there, probably 3770to a specific kind of location and stay there once there, probably
3767should specify @code{nil} for @var{escape-from-edge}. Other motion 3771should specify @code{nil} for @var{escape-from-edge}. Other motion
3768commands that check fields should probably pass @code{t}. 3772commands that check fields should probably pass @code{t}.
@@ -4322,5 +4326,3 @@ If you do want modification hooks to be run in a particular piece of
4322code that is itself run from a modification hook, then rebind locally 4326code that is itself run from a modification hook, then rebind locally
4323@code{inhibit-modification-hooks} to @code{nil}. 4327@code{inhibit-modification-hooks} to @code{nil}.
4324@end defvar 4328@end defvar
4325
4326
diff --git a/doc/lispref/two-volume-cross-refs.txt b/doc/lispref/two-volume-cross-refs.txt
index 53a9f58cd01..6eb11a92f47 100644
--- a/doc/lispref/two-volume-cross-refs.txt
+++ b/doc/lispref/two-volume-cross-refs.txt
@@ -34,7 +34,7 @@ where each volume starts with a higher page number since I find it
34harder to go to the right place in the volume.) 34harder to go to the right place in the volume.)
35 35
36References to the same volume are just the page number; references to 36References to the same volume are just the page number; references to
37the other volume are a volumne number (in Roman numerals) preceding 37the other volume are a volume number (in Roman numerals) preceding
38the page number. 38the page number.
39 39
40For example, in Volume I: 40For example, in Volume I:
diff --git a/doc/lispref/windows.texi b/doc/lispref/windows.texi
index bb1b0524689..437b6db8d58 100644
--- a/doc/lispref/windows.texi
+++ b/doc/lispref/windows.texi
@@ -376,7 +376,7 @@ Bars}). At the top of the window is an optional header line
376line (@pxref{Mode Line Format}). 376line (@pxref{Mode Line Format}).
377 377
378 Emacs provides several functions for finding the height and width of 378 Emacs provides several functions for finding the height and width of
379a window. Except where noted, these heights and widths are reported 379a window. Except where noted, Emacs reports window heights and widths
380as integer numbers of lines and columns respectively. On a graphical 380as integer numbers of lines and columns respectively. On a graphical
381display, each ``line'' and ``column'' actually corresponds to the 381display, each ``line'' and ``column'' actually corresponds to the
382height and width of a ``default'' character specified by the frame's 382height and width of a ``default'' character specified by the frame's
@@ -439,26 +439,6 @@ that of the root window on that frame. If @var{window} is omitted or
439@code{nil}, it defaults to the selected window. 439@code{nil}, it defaults to the selected window.
440@end defun 440@end defun
441 441
442@cindex window position
443 The following functions can be used to determine the position of a
444window relative to the window area of its frame:
445
446@defun window-top-line &optional window
447This function returns the distance, in lines, between the top of
448@var{window} and the top of the frame's window area. For instance,
449the return value is 0 if there is no window above @var{window}. If
450@var{window} is omitted or @code{nil}, it defaults to the selected
451window.
452@end defun
453
454@defun window-left-column &optional window
455This function returns the distance, in columns, between the left edge
456of @var{window} and the left edge of the frame's window area. For
457instance, the return value is 0 if there is no window to the left of
458@var{window}. If @var{window} is omitted or @code{nil}, it defaults
459to the selected window.
460@end defun
461
462@cindex window body height 442@cindex window body height
463@cindex body height of a window 443@cindex body height of a window
464@cindex window body width 444@cindex window body width
@@ -535,45 +515,12 @@ can be resized in the desired direction. To determine that, use the
535function @code{window-resizable}. @xref{Resizing Windows}. 515function @code{window-resizable}. @xref{Resizing Windows}.
536@end defun 516@end defun
537 517
538 The following functions can be used to find a window's size and 518 @xref{Coordinates and Windows}, for more functions that report the
539position in pixels. Though mostly useful on graphical displays, they 519positions of various parts of a window relative to the frame, from
540can also be called on text-only terminals, where the screen area of 520which you can calculate its size. In particular, you can use the
541each text character is taken to be ``one pixel''. 521functions @code{window-pixel-edges} and
542 522@code{window-inside-pixel-edges} to find the size in pixels, for
543@defun window-pixel-edges &optional window 523graphical displays.
544This function return a list of pixel coordinates for the edges of
545@var{window}. If @var{window} is omitted or @code{nil}, it defaults
546to the selected window.
547
548The return value has the form @code{(@var{left} @var{top} @var{right}
549@var{bottom})}. The list elements are, respectively, the X coordinate
550of the left window edge, the Y coordinate of the top edge, one more
551than the X coordinate of the right edge, and one more than the Y
552coordinate of the bottom edge. The origin coordinate @samp{(0,0)} is
553taken to be the top left corner of the frame's window area.
554
555These edge values include the space used by the window's scroll bar,
556margins, fringes, header line, and mode line, if any.
557@end defun
558
559@defun window-inside-pixel-edges &optional window
560This function is like @code{window-pixel-edges}, except that it
561returns the edge coordinates for the window's text area, rather than
562the edge coordinates for the window itself. @var{window} must specify
563a live window.
564@end defun
565
566@defun window-absolute-pixel-edges &optional window
567This function is like @code{window-pixel-edges}, except that it
568returns the edge coordinates relative to the top left corner of the
569display screen.
570@end defun
571
572@defun window-inside-absolute-pixel-edges &optional window
573This function is like @code{window-inside-pixel-edges}, except that it
574returns the edge coordinates relative to the top left corner of the
575display screen. @var{window} must specify a live window.
576@end defun
577 524
578@node Resizing Windows 525@node Resizing Windows
579@section Resizing Windows 526@section Resizing Windows
@@ -943,8 +890,9 @@ direction as the existing window combination (otherwise, a new
943internal window is created anyway). The default is @code{nil}. Other 890internal window is created anyway). The default is @code{nil}. Other
944values are reserved for future use. 891values are reserved for future use.
945 892
946Thus, if the value is always @code{t}, each window tree is a binary 893Thus, if the value of this variable is at all times @code{t}, then at
947tree: each window except the root window has exactly one sibling. 894all times every window tree is a binary tree (a tree where each window
895except the root window has exactly one sibling).
948 896
949Furthermore, @code{split-window} calls 897Furthermore, @code{split-window} calls
950@code{set-window-combination-limit} on the newly-created internal 898@code{set-window-combination-limit} on the newly-created internal
@@ -2976,32 +2924,90 @@ is off the screen due to horizontal scrolling:
2976@end group 2924@end group
2977@end example 2925@end example
2978 2926
2979
2980@node Coordinates and Windows 2927@node Coordinates and Windows
2981@section Coordinates and Windows 2928@section Coordinates and Windows
2929@cindex frame-relative coordinate
2930@cindex coordinate, relative to frame
2931@cindex window position
2932
2933 This section describes functions that report the position of a
2934window. Most of these functions report positions relative to the
2935window's frame. In this case, the coordinate origin @samp{(0,0)} lies
2936near the upper left corner of the frame. For technical reasons, on
2937graphical displays the origin is not located at the exact corner of
2938the graphical window as it appears on the screen. If Emacs is built
2939with the GTK+ toolkit, the origin is at the upper left corner of the
2940frame area used for displaying Emacs windows, below the title-bar,
2941GTK+ menu bar, and tool bar (since these are drawn by the window
2942manager and/or GTK+, not by Emacs). But if Emacs is not built with
2943GTK+, the origin is at the upper left corner of the tool bar (since in
2944this case Emacs itself draws the tool bar). In both cases, the X and
2945Y coordinates increase rightward and downward respectively.
2946
2947 Except where noted, X and Y coordinates are reported in integer
2948character units, i.e. numbers of lines and columns respectively. On a
2949graphical display, each ``line'' and ``column'' corresponds to the
2950height and width of a default character specified by the frame's
2951default font.
2952
2953@defun window-edges &optional window
2954This function returns a list of the edge coordinates of @var{window}.
2955If @var{window} is omitted or @code{nil}, it defaults to the selected
2956window.
2982 2957
2983This section describes how to relate screen coordinates to windows. 2958The return value has the form @code{(@var{left} @var{top} @var{right}
2959@var{bottom})}. These list elements are, respectively, the X
2960coordinate of the leftmost column occupied by the window, the Y
2961coordinate of the topmost row, the X coordinate one column to the
2962right of the rightmost column, and the Y coordinate one row down from
2963the bottommost row.
2984 2964
2985@defun window-at x y &optional frame 2965Note that these are the actual outer edges of the window, including
2986This function returns the window containing the specified cursor 2966any header line, mode line, scroll bar, fringes, and display margins.
2987position in the frame @var{frame}. The coordinates @var{x} and @var{y} 2967On a text-only terminal, if the window has a neighbor on its right,
2988are measured in characters and count from the top left corner of the 2968its right edge includes the separator line between the window and its
2989frame. If they are out of range, @code{window-at} returns @code{nil}. 2969neighbor.
2970@end defun
2990 2971
2991If you omit @var{frame}, the selected frame is used. 2972@defun window-inside-edges &optional window
2973This function is similar to @code{window-edges}, but the returned edge
2974values are for the text area of the window. They exclude any header
2975line, mode line, scroll bar, fringes, display margins, and vertical
2976separator.
2992@end defun 2977@end defun
2993 2978
2994@defun coordinates-in-window-p coordinates window 2979@defun window-top-line &optional window
2995This function checks whether a particular frame position falls within 2980This function returns the Y coordinate of the topmost row of
2996the window @var{window}. 2981@var{window}, equivalent to the @var{top} entry in the list returned
2982by @code{window-edges}.
2983@end defun
2984
2985@defun window-left-column &optional window
2986This function returns the X coordinate of the leftmost column of
2987@var{window}, equivalent to the @var{left} entry in the list returned
2988by @code{window-edges}.
2989@end defun
2997 2990
2998The argument @var{coordinates} is a cons cell of the form @code{(@var{x} 2991 The following functions can be used to relate a set of
2999. @var{y})}. The coordinates @var{x} and @var{y} are measured in 2992frame-relative coordinates to a window:
3000characters, and count from the top left corner of the screen or frame.
3001 2993
3002The value returned by @code{coordinates-in-window-p} is non-@code{nil} 2994@defun window-at x y &optional frame
3003if the coordinates are inside @var{window}. The value also indicates 2995This function returns the live window at the frame-relative
3004what part of the window the position is in, as follows: 2996coordinates @var{x} and @var{y}, on frame @var{frame}. If there is no
2997window at that position, the return value is @code{nil}. If
2998@var{frame} is omitted or @code{nil}, it defaults to the selected
2999frame.
3000@end defun
3001
3002@defun coordinates-in-window-p coordinates window
3003This function checks whether a window @var{window} occupies the
3004frame-relative coordinates @var{coordinates}, and if so which part of
3005the window that is. @var{window} should be a live window.
3006@var{coordinates} should be a cons cell of the form @code{(@var{x}
3007. @var{y})}, where @var{x} and @var{y} are frame-relative coordinates.
3008
3009If there is no window at the specified position, the return value is
3010@code{nil} . Otherwise, the return value is one of the following:
3005 3011
3006@table @code 3012@table @code
3007@item (@var{relx} . @var{rely}) 3013@item (@var{relx} . @var{rely})
@@ -3038,6 +3044,44 @@ The function @code{coordinates-in-window-p} does not require a frame as
3038argument because it always uses the frame that @var{window} is on. 3044argument because it always uses the frame that @var{window} is on.
3039@end defun 3045@end defun
3040 3046
3047 The following functions return window positions in pixels, rather
3048than character units. Though mostly useful on graphical displays,
3049they can also be called on text-only terminals, where the screen area
3050of each text character is taken to be ``one pixel''.
3051
3052@defun window-pixel-edges &optional window
3053This function returns a list of pixel coordinates for the edges of
3054@var{window}. If @var{window} is omitted or @code{nil}, it defaults
3055to the selected window.
3056
3057The return value has the form @code{(@var{left} @var{top} @var{right}
3058@var{bottom})}. The list elements are, respectively, the X pixel
3059coordinate of the left window edge, the Y pixel coordinate of the top
3060edge, one more than the X pixel coordinate of the right edge, and one
3061more than the Y pixel coordinate of the bottom edge.
3062@end defun
3063
3064@defun window-inside-pixel-edges &optional window
3065This function is like @code{window-pixel-edges}, except that it
3066returns the pixel coordinates for the edges of the window's text area,
3067rather than the pixel coordinates for the edges of the window itself.
3068@var{window} must specify a live window.
3069@end defun
3070
3071 The following functions return window positions in pixels, relative
3072to the display screen rather than the frame:
3073
3074@defun window-absolute-pixel-edges &optional window
3075This function is like @code{window-pixel-edges}, except that it
3076returns the edge pixel coordinates relative to the top left corner of
3077the display screen.
3078@end defun
3079
3080@defun window-inside-absolute-pixel-edges &optional window
3081This function is like @code{window-inside-pixel-edges}, except that it
3082returns the edge pixel coordinates relative to the top left corner of
3083the display screen. @var{window} must specify a live window.
3084@end defun
3041 3085
3042@node Window Configurations 3086@node Window Configurations
3043@section Window Configurations 3087@section Window Configurations
diff --git a/doc/man/emacs.1 b/doc/man/emacs.1
index 91ef4189b79..1acdcf5ebd2 100644
--- a/doc/man/emacs.1
+++ b/doc/man/emacs.1
@@ -1,5 +1,5 @@
1.\" See section COPYING for copyright and redistribution information. 1.\" See section COPYING for copyright and redistribution information.
2.TH EMACS 1 "2007 April 13" "GNU Emacs 24.0.91" 2.TH EMACS 1 "2007 April 13" "GNU Emacs 24.0.92"
3. 3.
4. 4.
5.SH NAME 5.SH NAME
diff --git a/doc/misc/ChangeLog b/doc/misc/ChangeLog
index 43d9ba1b1e6..f94153479a8 100644
--- a/doc/misc/ChangeLog
+++ b/doc/misc/ChangeLog
@@ -1,3 +1,11 @@
12011-11-24 Glenn Morris <rgm@gnu.org>
2
3 * gnus.texi, smtpmail.texi: Fix case of "GnuTLS".
4
52011-11-24 Juanma Barranquero <lekktu@gmail.com>
6
7 * makefile.w32-in: Update dependencies.
8
12011-11-20 Glenn Morris <rgm@gnu.org> 92011-11-20 Glenn Morris <rgm@gnu.org>
2 10
3 * gnus.texi (Group Information): 11 * gnus.texi (Group Information):
@@ -2987,7 +2995,7 @@
2987 * org.texi (Activation, Exporting, ASCII export, HTML export) 2995 * org.texi (Activation, Exporting, ASCII export, HTML export)
2988 (HTML Export commands, LaTeX/PDF export commands): 2996 (HTML Export commands, LaTeX/PDF export commands):
2989 Improve documentation about transient-mark-mode. 2997 Improve documentation about transient-mark-mode.
2990 (References): DOcuemtn the use of special names like $LR1 to reference 2998 (References): Document the use of special names like $LR1 to reference
2991 to fields in the last table row. 2999 to fields in the last table row.
2992 3000
29932008-12-19 Juri Linkov <juri@jurta.org> 30012008-12-19 Juri Linkov <juri@jurta.org>
@@ -7974,7 +7982,7 @@
79742003-02-01 Michael Albinus <Michael.Albinus@alcatel.de> 79822003-02-01 Michael Albinus <Michael.Albinus@alcatel.de>
7975 7983
7976 * tramp.texi (Frequently Asked Questions): Explain a workaround if 7984 * tramp.texi (Frequently Asked Questions): Explain a workaround if
7977 another package loads accidently Ange-FTP. 7985 another package loads accidentally Ange-FTP.
7978 7986
79792003-01-24 Michael Albinus <Michael.Albinus@alcatel.de> 79872003-01-24 Michael Albinus <Michael.Albinus@alcatel.de>
7980 7988
diff --git a/doc/misc/autotype.texi b/doc/misc/autotype.texi
index ecf4c7e47b2..289c08eb00e 100644
--- a/doc/misc/autotype.texi
+++ b/doc/misc/autotype.texi
@@ -419,7 +419,7 @@ inserting something. When this is @code{nil}, inserting is only done with
419@kbd{M-x auto-insert}. When this is @code{function}, you are queried 419@kbd{M-x auto-insert}. When this is @code{function}, you are queried
420whenever @code{auto-insert} is called as a function, such as when Emacs 420whenever @code{auto-insert} is called as a function, such as when Emacs
421visits an empty file and you have set the above-mentioned hook. Otherwise 421visits an empty file and you have set the above-mentioned hook. Otherwise
422you are alway queried. 422you are always queried.
423 423
424@vindex auto-insert-prompt 424@vindex auto-insert-prompt
425 When querying, the variable @code{auto-insert-prompt}'s value is used as a 425 When querying, the variable @code{auto-insert-prompt}'s value is used as a
@@ -510,7 +510,7 @@ inserting or updating the magic number. When this is @code{nil} updating
510is only done with @kbd{M-x executable-set-magic}. When this is 510is only done with @kbd{M-x executable-set-magic}. When this is
511@code{function} you are queried whenever @code{executable-set-magic} is 511@code{function} you are queried whenever @code{executable-set-magic} is
512called as a function, such as when Emacs puts a buffer in Shell script 512called as a function, such as when Emacs puts a buffer in Shell script
513mode. Otherwise you are alway queried. 513mode. Otherwise you are always queried.
514 514
515@findex executable-self-display 515@findex executable-self-display
516 @kbd{M-x executable-self-display} adds a magic number to the buffer, which 516 @kbd{M-x executable-self-display} adds a magic number to the buffer, which
diff --git a/doc/misc/calc.texi b/doc/misc/calc.texi
index 290b120ea80..32311ff5c3e 100644
--- a/doc/misc/calc.texi
+++ b/doc/misc/calc.texi
@@ -25644,7 +25644,7 @@ equivalent expression involving intervals: @samp{b in [a .. c)}.
25644of @samp{<} and @samp{<=} are allowed, or any of the four combinations 25644of @samp{<} and @samp{<=} are allowed, or any of the four combinations
25645of @samp{>} and @samp{>=}. Four-argument constructions like 25645of @samp{>} and @samp{>=}. Four-argument constructions like
25646@samp{a < b < c < d}, and mixtures like @w{@samp{a < b = c}} that 25646@samp{a < b < c < d}, and mixtures like @w{@samp{a < b = c}} that
25647involve both equalities and inequalities, are not allowed. 25647involve both equations and inequalities, are not allowed.
25648 25648
25649@kindex a . 25649@kindex a .
25650@pindex calc-remove-equal 25650@pindex calc-remove-equal
@@ -34631,7 +34631,7 @@ the derivative is evaluated at the value of @var{var}; otherwise, the
34631derivative is left in terms of @var{var}. If the expression contains 34631derivative is left in terms of @var{var}. If the expression contains
34632functions for which no derivative formula is known, new derivative 34632functions for which no derivative formula is known, new derivative
34633functions are invented by adding primes to the names; @pxref{Calculus}. 34633functions are invented by adding primes to the names; @pxref{Calculus}.
34634However, if @var{symb} is non-@code{nil}, the presence of undifferentiable 34634However, if @var{symb} is non-@code{nil}, the presence of nondifferentiable
34635functions in @var{expr} instead cancels the whole differentiation, and 34635functions in @var{expr} instead cancels the whole differentiation, and
34636@code{deriv} returns @code{nil} instead. 34636@code{deriv} returns @code{nil} instead.
34637 34637
diff --git a/doc/misc/ede.texi b/doc/misc/ede.texi
index f8d757c2d87..cc566086f44 100644
--- a/doc/misc/ede.texi
+++ b/doc/misc/ede.texi
@@ -268,7 +268,7 @@ projects.
268 268
269Some project modes do not have a project file, but directly read a 269Some project modes do not have a project file, but directly read a
270Makefile or other existing file. Instead of directly editing the 270Makefile or other existing file. Instead of directly editing the
271object, you can edit the file by typine @kbd{C-c . e} 271object, you can edit the file by typing @kbd{C-c . e}
272(@code{ede-edit-file-target}). You should ``rescan'' the project 272(@code{ede-edit-file-target}). You should ``rescan'' the project
273afterwards (@pxref{Miscellaneous commands}). 273afterwards (@pxref{Miscellaneous commands}).
274 274
diff --git a/doc/misc/eieio.texi b/doc/misc/eieio.texi
index 7b4945027d3..d65c7a15f7b 100644
--- a/doc/misc/eieio.texi
+++ b/doc/misc/eieio.texi
@@ -1458,7 +1458,7 @@ Useful methods to define for your new class include:
1458 1458
1459@defmethod eieio-speedbar eieio-speedbar-derive-line-path obj depth 1459@defmethod eieio-speedbar eieio-speedbar-derive-line-path obj depth
1460Return a string representing a directory associated with an instance 1460Return a string representing a directory associated with an instance
1461of @var{obj}. @var{depth} can be used to indice how many levels of 1461of @var{obj}. @var{depth} can be used to index how many levels of
1462indentation have been opened by the user where @var{obj} is shown. 1462indentation have been opened by the user where @var{obj} is shown.
1463@end defmethod 1463@end defmethod
1464 1464
diff --git a/doc/misc/gnus.texi b/doc/misc/gnus.texi
index f099dfd36d0..69b17a94d68 100644
--- a/doc/misc/gnus.texi
+++ b/doc/misc/gnus.texi
@@ -13761,7 +13761,7 @@ The same as the above, but don't do automatic @acronym{STARTTLS} upgrades.
13761@findex nntp-open-tls-stream 13761@findex nntp-open-tls-stream
13762@item nntp-open-tls-stream 13762@item nntp-open-tls-stream
13763Opens a connection to a server over a @dfn{secure} channel. To use 13763Opens a connection to a server over a @dfn{secure} channel. To use
13764this you must have @uref{http://www.gnu.org/software/gnutls/, GNUTLS} 13764this you must have @uref{http://www.gnu.org/software/gnutls/, GnuTLS}
13765installed. You then define a server as follows: 13765installed. You then define a server as follows:
13766 13766
13767@lisp 13767@lisp
@@ -21279,7 +21279,7 @@ name (or part of a name) to match.
21279@node The swish++ Engine 21279@node The swish++ Engine
21280@subsubsection The swish++ Engine 21280@subsubsection The swish++ Engine
21281 21281
21282FIXEM: Say something more here. 21282FIXME: Say something more here.
21283 21283
21284Documentation for swish++ may be found at the swish++ sourceforge page: 21284Documentation for swish++ may be found at the swish++ sourceforge page:
21285@uref{http://swishplusplus.sourceforge.net} 21285@uref{http://swishplusplus.sourceforge.net}
@@ -21302,7 +21302,7 @@ to get a group name. By default this is @code{$HOME/Mail}.
21302@node The swish-e Engine 21302@node The swish-e Engine
21303@subsubsection The swish-e Engine 21303@subsubsection The swish-e Engine
21304 21304
21305FIXEM: Say something more here. 21305FIXME: Say something more here.
21306 21306
21307Documentation for swish-e may be found at the swish-e homepage 21307Documentation for swish-e may be found at the swish-e homepage
21308@uref{http://swish-e.org} 21308@uref{http://swish-e.org}
@@ -21895,7 +21895,7 @@ Clearly, the easiest way would be if marks could somehow be
21895automatically set for the original article. This is exactly what 21895automatically set for the original article. This is exactly what
21896@emph{marks propagation} is about. 21896@emph{marks propagation} is about.
21897 21897
21898Marks propagation is deactivated by default. You can activate it for a 21898Marks propagation is inactive by default. You can activate it for a
21899certain @code{nnmairix} group with 21899certain @code{nnmairix} group with
21900@code{nnmairix-group-toggle-propmarks-this-group} (bound to @kbd{G b 21900@code{nnmairix-group-toggle-propmarks-this-group} (bound to @kbd{G b
21901p}). This function will warn you if you try to use it with your default 21901p}). This function will warn you if you try to use it with your default
@@ -22047,7 +22047,7 @@ an example server definition:
22047(nnml "mairix" (nnml-directory "mairix") (nnml-get-new-mail nil)) 22047(nnml "mairix" (nnml-directory "mairix") (nnml-get-new-mail nil))
22048@end lisp 22048@end lisp
22049 22049
22050(The @code{nnmaildir} back end also has a server variabe 22050(The @code{nnmaildir} back end also has a server variable
22051@code{get-new-mail}, but its default value is @code{nil}, so you don't 22051@code{get-new-mail}, but its default value is @code{nil}, so you don't
22052have to explicitly set it if you use a @code{nnmaildir} server just for 22052have to explicitly set it if you use a @code{nnmaildir} server just for
22053mairix.) 22053mairix.)
@@ -27408,7 +27408,7 @@ considered home score and adapt files (@pxref{Home Score File}) have
27408been added. 27408been added.
27409 27409
27410@item 27410@item
27411@code{nndoc} was rewritten to be easily extendable (@pxref{Document 27411@code{nndoc} was rewritten to be easily extensible (@pxref{Document
27412Server Internals}). 27412Server Internals}).
27413 27413
27414@item 27414@item
@@ -27801,7 +27801,7 @@ The revised Gnus @acronym{FAQ} is included in the manual,
27801@acronym{TLS} wrapper shipped with Gnus 27801@acronym{TLS} wrapper shipped with Gnus
27802 27802
27803@acronym{TLS}/@acronym{SSL} is now supported in @acronym{IMAP} and 27803@acronym{TLS}/@acronym{SSL} is now supported in @acronym{IMAP} and
27804@acronym{NNTP} via @file{tls.el} and GNUTLS. 27804@acronym{NNTP} via @file{tls.el} and GnuTLS.
27805 27805
27806@item 27806@item
27807Improved anti-spam features. 27807Improved anti-spam features.
diff --git a/doc/misc/idlwave.texi b/doc/misc/idlwave.texi
index 8e172301915..3e13dbb0f23 100644
--- a/doc/misc/idlwave.texi
+++ b/doc/misc/idlwave.texi
@@ -62,7 +62,7 @@ developing GNU and promoting software freedom.''
62IDLWAVE is a package which supports editing source code written in the 62IDLWAVE is a package which supports editing source code written in the
63Interactive Data Language (IDL), and running IDL as an inferior shell. 63Interactive Data Language (IDL), and running IDL as an inferior shell.
64 64
65@insertcopying 65@insertcopying
66@end ifnottex 66@end ifnottex
67 67
68@menu 68@menu
@@ -72,8 +72,8 @@ Interactive Data Language (IDL), and running IDL as an inferior shell.
72* The IDLWAVE Major Mode:: The mode for editing IDL programs 72* The IDLWAVE Major Mode:: The mode for editing IDL programs
73* The IDLWAVE Shell:: The mode for running IDL as an inferior program 73* The IDLWAVE Shell:: The mode for running IDL as an inferior program
74* Acknowledgements:: Who did what 74* Acknowledgements:: Who did what
75* Sources of Routine Info:: How does IDLWAVE know about routine XYZ 75* Sources of Routine Info:: How does IDLWAVE know about routine XYZ
76* HTML Help Browser Tips:: 76* HTML Help Browser Tips::
77* Configuration Examples:: The user is king 77* Configuration Examples:: The user is king
78* Windows and MacOS:: What still works, and how 78* Windows and MacOS:: What still works, and how
79* Troubleshooting:: When good computers turn bad 79* Troubleshooting:: When good computers turn bad
@@ -85,9 +85,9 @@ Interactive Data Language (IDL), and running IDL as an inferior shell.
85 85
86Getting Started (Tutorial) 86Getting Started (Tutorial)
87 87
88* Lesson I -- Development Cycle:: 88* Lesson I -- Development Cycle::
89* Lesson II -- Customization:: 89* Lesson II -- Customization::
90* Lesson III -- User Catalog:: 90* Lesson III -- User Catalog::
91 91
92The IDLWAVE Major Mode 92The IDLWAVE Major Mode
93 93
@@ -107,7 +107,7 @@ The IDLWAVE Major Mode
107Code Formatting 107Code Formatting
108 108
109* Code Indentation:: Reflecting the logical structure 109* Code Indentation:: Reflecting the logical structure
110* Continued Statement Indentation:: 110* Continued Statement Indentation::
111* Comment Indentation:: Special indentation for comment lines 111* Comment Indentation:: Special indentation for comment lines
112* Continuation Lines:: Splitting statements over lines 112* Continuation Lines:: Splitting statements over lines
113* Syntax Highlighting:: Font-lock support 113* Syntax Highlighting:: Font-lock support
@@ -115,14 +115,14 @@ Code Formatting
115 115
116Online Help 116Online Help
117 117
118* Help with HTML Documentation:: 118* Help with HTML Documentation::
119* Help with Source:: 119* Help with Source::
120 120
121Completion 121Completion
122 122
123* Case of Completed Words:: CaseOFcomPletedWords 123* Case of Completed Words:: CaseOFcomPletedWords
124* Object Method Completion and Class Ambiguity:: obj->Method, what? 124* Object Method Completion and Class Ambiguity:: obj->Method, what?
125* Object Method Completion in the Shell:: 125* Object Method Completion in the Shell::
126* Class and Keyword Inheritance:: obj->Method, _EXTRA=e 126* Class and Keyword Inheritance:: obj->Method, _EXTRA=e
127* Structure Tag Completion:: Completing state.Tag 127* Structure Tag Completion:: Completing state.Tag
128 128
@@ -136,32 +136,32 @@ The IDLWAVE Shell
136 136
137* Starting the Shell:: How to launch IDL as a subprocess 137* Starting the Shell:: How to launch IDL as a subprocess
138* Using the Shell:: Interactively working with the Shell 138* Using the Shell:: Interactively working with the Shell
139* Commands Sent to the Shell:: 139* Commands Sent to the Shell::
140* Debugging IDL Programs:: 140* Debugging IDL Programs::
141* Examining Variables:: 141* Examining Variables::
142* Custom Expression Examination:: 142* Custom Expression Examination::
143 143
144Debugging IDL Programs 144Debugging IDL Programs
145 145
146* A Tale of Two Modes:: 146* A Tale of Two Modes::
147* Debug Key Bindings:: 147* Debug Key Bindings::
148* Breakpoints and Stepping:: 148* Breakpoints and Stepping::
149* Compiling Programs:: 149* Compiling Programs::
150* Walking the Calling Stack:: 150* Walking the Calling Stack::
151* Electric Debug Mode:: 151* Electric Debug Mode::
152 152
153Sources of Routine Info 153Sources of Routine Info
154 154
155* Routine Definitions:: Where IDL Routines are defined. 155* Routine Definitions:: Where IDL Routines are defined.
156* Routine Information Sources:: So how does IDLWAVE know about... 156* Routine Information Sources:: So how does IDLWAVE know about...
157* Catalogs:: 157* Catalogs::
158* Load-Path Shadows:: Routines defined in several places 158* Load-Path Shadows:: Routines defined in several places
159* Documentation Scan:: Scanning the IDL Manuals 159* Documentation Scan:: Scanning the IDL Manuals
160 160
161Catalogs 161Catalogs
162 162
163* Library Catalogs:: 163* Library Catalogs::
164* User Catalog:: 164* User Catalog::
165 165
166@end detailmenu 166@end detailmenu
167@end menu 167@end menu
@@ -193,13 +193,13 @@ form a complete development environment. Here is a brief summary of
193what IDLWAVE does: 193what IDLWAVE does:
194 194
195@itemize @bullet 195@itemize @bullet
196@item 196@item
197Smart code indentation and automatic-formatting. 197Smart code indentation and automatic-formatting.
198@item 198@item
199Three level syntax highlighting support. 199Three level syntax highlighting support.
200@item 200@item
201Context-sensitive display of calling sequences and keywords for more 201Context-sensitive display of calling sequences and keywords for more
202than 1000 native IDL routines, extendible to any additional number of 202than 1000 native IDL routines, extensible to any additional number of
203local routines, and already available with many pre-scanned libraries. 203local routines, and already available with many pre-scanned libraries.
204@item 204@item
205Fast, context-sensitive online HTML help, or source-header help for 205Fast, context-sensitive online HTML help, or source-header help for
@@ -373,9 +373,9 @@ at point.
373@cindex Getting Started 373@cindex Getting Started
374 374
375@menu 375@menu
376* Lesson I -- Development Cycle:: 376* Lesson I -- Development Cycle::
377* Lesson II -- Customization:: 377* Lesson II -- Customization::
378* Lesson III -- User Catalog:: 378* Lesson III -- User Catalog::
379@end menu 379@end menu
380 380
381@node Lesson I -- Development Cycle, Lesson II -- Customization, Getting Started, Getting Started 381@node Lesson I -- Development Cycle, Lesson II -- Customization, Getting Started, Getting Started
@@ -418,13 +418,13 @@ function daynr,d,m,y
418 y1 = y * delta 418 y1 = y * delta
419 return, d + floor(m1*30.6)+floor(y1*365.25)+5 419 return, d + floor(m1*30.6)+floor(y1*365.25)+5
420end 420end
421 421
422function weekday,day,month,year 422function weekday,day,month,year
423 ;; compute weekday number for date 423 ;; compute weekday number for date
424 nr = daynr(day,month,year) 424 nr = daynr(day,month,year)
425 return, nr mod 7 425 return, nr mod 7
426end 426end
427 427
428pro plot_wday,day,month 428pro plot_wday,day,month
429 ;; Plot the weekday of a date in the first 10 years of this century. 429 ;; Plot the weekday of a date in the first 10 years of this century.
430 years = 2000,+indgen(10) 430 years = 2000,+indgen(10)
@@ -753,7 +753,7 @@ them.
753 753
754@menu 754@menu
755* Code Indentation:: Reflecting the logical structure 755* Code Indentation:: Reflecting the logical structure
756* Continued Statement Indentation:: 756* Continued Statement Indentation::
757* Comment Indentation:: Special indentation for comment lines 757* Comment Indentation:: Special indentation for comment lines
758* Continuation Lines:: Splitting statements over lines 758* Continuation Lines:: Splitting statements over lines
759* Syntax Highlighting:: Font-lock support 759* Syntax Highlighting:: Font-lock support
@@ -797,7 +797,7 @@ subprogram). The command @kbd{C-M-q} reindents the entire current
797routine. @xref{Actions}, for information how to impose additional 797routine. @xref{Actions}, for information how to impose additional
798formatting conventions on foreign code. 798formatting conventions on foreign code.
799 799
800@defopt idlwave-main-block-indent (@code{2}) 800@defopt idlwave-main-block-indent (@code{2})
801Extra indentation for the main block of code. That is the block between 801Extra indentation for the main block of code. That is the block between
802the FUNCTION/PRO statement and the END statement for that program 802the FUNCTION/PRO statement and the END statement for that program
803unit. 803unit.
@@ -998,7 +998,7 @@ in the first line of a comment paragraph.
998 998
999@defopt idlwave-use-last-hang-indent (@code{nil}) 999@defopt idlwave-use-last-hang-indent (@code{nil})
1000Non-@code{nil} means use last match on line for 1000Non-@code{nil} means use last match on line for
1001@code{idlwave-indent-regexp}. 1001@code{idlwave-indent-regexp}.
1002@end defopt 1002@end defopt
1003 1003
1004@node Syntax Highlighting, Octals and Highlighting, Continuation Lines, Code Formatting 1004@node Syntax Highlighting, Octals and Highlighting, Continuation Lines, Code Formatting
@@ -1026,7 +1026,7 @@ for highlighting using the variable
1026 1026
1027@defopt idlwave-default-font-lock-items 1027@defopt idlwave-default-font-lock-items
1028Items which should be fontified on the default fontification level 1028Items which should be fontified on the default fontification level
10292. 10292.
1030@end defopt 1030@end defopt
1031 1031
1032@node Octals and Highlighting, , Syntax Highlighting, Code Formatting 1032@node Octals and Highlighting, , Syntax Highlighting, Code Formatting
@@ -1104,7 +1104,7 @@ plot,x,alog(x+5*sin(x) + 2),
1104On positions 1,2 and 8, information about the @samp{plot} procedure will 1104On positions 1,2 and 8, information about the @samp{plot} procedure will
1105be shown. On positions 3,4, and 7, the @samp{alog} function will be 1105be shown. On positions 3,4, and 7, the @samp{alog} function will be
1106described, while positions 5 and 6 will investigate the @samp{sin} 1106described, while positions 5 and 6 will investigate the @samp{sin}
1107function. 1107function.
1108 1108
1109When you ask for routine information about an object method, and the 1109When you ask for routine information about an object method, and the
1110method exists in several classes, IDLWAVE queries for the class of the 1110method exists in several classes, IDLWAVE queries for the class of the
@@ -1162,7 +1162,7 @@ will automatically split into the next two.
1162@item @i{Other} 1162@item @i{Other}
1163@tab Any other routine with a file not known to be on the search path. 1163@tab Any other routine with a file not known to be on the search path.
1164@item @i{Unresolved} 1164@item @i{Unresolved}
1165@tab An otherwise unknown routine the shell lists as unresolved 1165@tab An otherwise unknown routine the shell lists as unresolved
1166(referenced, but not compiled). 1166(referenced, but not compiled).
1167@end multitable 1167@end multitable
1168 1168
@@ -1198,7 +1198,7 @@ with the middle mouse button inserts keywords or visits files:
1198@item @i{Usage} 1198@item @i{Usage}
1199@tab If online help is installed, a click with the @emph{right} mouse 1199@tab If online help is installed, a click with the @emph{right} mouse
1200button on the @i{Usage:} line will access the help for the 1200button on the @i{Usage:} line will access the help for the
1201routine (@pxref{Online Help}). 1201routine (@pxref{Online Help}).
1202@item @i{Keyword} 1202@item @i{Keyword}
1203@tab Online help about keywords is also available with the 1203@tab Online help about keywords is also available with the
1204@emph{right} mouse button. Clicking on a keyword with the @emph{middle} 1204@emph{right} mouse button. Clicking on a keyword with the @emph{middle}
@@ -1340,8 +1340,8 @@ directly in the originating source file.
1340 1340
1341 1341
1342@menu 1342@menu
1343* Help with HTML Documentation:: 1343* Help with HTML Documentation::
1344* Help with Source:: 1344* Help with Source::
1345@end menu 1345@end menu
1346 1346
1347@node Help with HTML Documentation, Help with Source, Online Help, Online Help 1347@node Help with HTML Documentation, Help with Source, Online Help, Online Help
@@ -1393,7 +1393,7 @@ configuring a browser for use with IDL's HTML help system.
1393Relative directory of the system-supplied HTML help directory, 1393Relative directory of the system-supplied HTML help directory,
1394considered with respect to @code{idlwave-system-directory}. Relevant 1394considered with respect to @code{idlwave-system-directory}. Relevant
1395for IDL 6.2 and greater. Should not change. 1395for IDL 6.2 and greater. Should not change.
1396@end defopt 1396@end defopt
1397 1397
1398@defopt idlwave-html-help-location @file{/usr/local/etc/} 1398@defopt idlwave-html-help-location @file{/usr/local/etc/}
1399The directory where the @file{idl_html_help} HTML directory live. 1399The directory where the @file{idl_html_help} HTML directory live.
@@ -1613,7 +1613,7 @@ available.
1613@menu 1613@menu
1614* Case of Completed Words:: CaseOFcomPletedWords 1614* Case of Completed Words:: CaseOFcomPletedWords
1615* Object Method Completion and Class Ambiguity:: obj->Method, what? 1615* Object Method Completion and Class Ambiguity:: obj->Method, what?
1616* Object Method Completion in the Shell:: 1616* Object Method Completion in the Shell::
1617* Class and Keyword Inheritance:: obj->Method, _EXTRA=e 1617* Class and Keyword Inheritance:: obj->Method, _EXTRA=e
1618* Structure Tag Completion:: Completing state.Tag 1618* Structure Tag Completion:: Completing state.Tag
1619@end menu 1619@end menu
@@ -1681,7 +1681,7 @@ narrow down the number of possible completions. The variable
1681@code{idlwave-query-class} can be configured to make such prompting the 1681@code{idlwave-query-class} can be configured to make such prompting the
1682default for all methods (not recommended), or selectively for very 1682default for all methods (not recommended), or selectively for very
1683common methods for which the number of completing keywords would be too 1683common methods for which the number of completing keywords would be too
1684large (e.g. @code{Init,SetProperty,GetProperty}). 1684large (e.g. @code{Init,SetProperty,GetProperty}).
1685 1685
1686@cindex Saving object class on @code{->} 1686@cindex Saving object class on @code{->}
1687@cindex @code{->} 1687@cindex @code{->}
@@ -1729,7 +1729,7 @@ routine info, or online help within a method routine, a query is sent to
1729determine the class of the object. If this query is successful, the 1729determine the class of the object. If this query is successful, the
1730class found will be used to select appropriate completions, routine 1730class found will be used to select appropriate completions, routine
1731info, or help. If unsuccessful, information from all known classes will 1731info, or help. If unsuccessful, information from all known classes will
1732be used (as in the buffer). 1732be used (as in the buffer).
1733 1733
1734@node Class and Keyword Inheritance, Structure Tag Completion, Object Method Completion in the Shell, Completion 1734@node Class and Keyword Inheritance, Structure Tag Completion, Object Method Completion in the Shell, Completion
1735@subsection Class and Keyword Inheritance 1735@subsection Class and Keyword Inheritance
@@ -1772,7 +1772,7 @@ keywords based on their originating class.
1772Non-@code{nil} means consider inheritance during completion, online help etc. 1772Non-@code{nil} means consider inheritance during completion, online help etc.
1773@end defopt 1773@end defopt
1774 1774
1775@defopt idlwave-keyword-class-inheritance 1775@defopt idlwave-keyword-class-inheritance
1776A list of regular expressions to match methods for which simple 1776A list of regular expressions to match methods for which simple
1777class-driven keyword inheritance will be used for Completion. 1777class-driven keyword inheritance will be used for Completion.
1778@end defopt 1778@end defopt
@@ -1802,7 +1802,7 @@ Structure tag completion is not enabled by default. To enable it,
1802simply add the following to your @file{.emacs}: 1802simply add the following to your @file{.emacs}:
1803 1803
1804@lisp 1804@lisp
1805 (add-hook 'idlwave-load-hook 1805 (add-hook 'idlwave-load-hook
1806 (lambda () (require 'idlw-complete-structtag))) 1806 (lambda () (require 'idlw-complete-structtag)))
1807@end lisp 1807@end lisp
1808 1808
@@ -2226,7 +2226,7 @@ your @file{.emacs} file:
2226 (idlwave-action-and-binding "\\<\\(pro\\|function\\)\\>[ \t]*\\<" 2226 (idlwave-action-and-binding "\\<\\(pro\\|function\\)\\>[ \t]*\\<"
2227 '(capitalize-word 1) t) 2227 '(capitalize-word 1) t)
2228 ;; Capitalize common block name 2228 ;; Capitalize common block name
2229 (idlwave-action-and-binding "\\<common\\>[ \t]+\\<" 2229 (idlwave-action-and-binding "\\<common\\>[ \t]+\\<"
2230 '(capitalize-word 1) t))) 2230 '(capitalize-word 1) t)))
2231@end lisp 2231@end lisp
2232 2232
@@ -2384,10 +2384,10 @@ currently only works under Unix and MacOSX.
2384@menu 2384@menu
2385* Starting the Shell:: How to launch IDL as a subprocess 2385* Starting the Shell:: How to launch IDL as a subprocess
2386* Using the Shell:: Interactively working with the Shell 2386* Using the Shell:: Interactively working with the Shell
2387* Commands Sent to the Shell:: 2387* Commands Sent to the Shell::
2388* Debugging IDL Programs:: 2388* Debugging IDL Programs::
2389* Examining Variables:: 2389* Examining Variables::
2390* Custom Expression Examination:: 2390* Custom Expression Examination::
2391@end menu 2391@end menu
2392 2392
2393@node Starting the Shell, Using the Shell, The IDLWAVE Shell, The IDLWAVE Shell 2393@node Starting the Shell, Using the Shell, The IDLWAVE Shell, The IDLWAVE Shell
@@ -2414,7 +2414,7 @@ In order to create a separate frame for the IDLWAVE shell buffer, call
2414@code{idlwave-shell} with a prefix argument: @kbd{C-u C-c C-s} or 2414@code{idlwave-shell} with a prefix argument: @kbd{C-u C-c C-s} or
2415@kbd{C-u C-c C-l}. If you always want a dedicated frame for the shell 2415@kbd{C-u C-c C-l}. If you always want a dedicated frame for the shell
2416window, configure the variable 2416window, configure the variable
2417@code{idlwave-shell-use-dedicated-frame}. 2417@code{idlwave-shell-use-dedicated-frame}.
2418 2418
2419To launch a quick IDLWAVE shell directly from a shell prompt without 2419To launch a quick IDLWAVE shell directly from a shell prompt without
2420an IDLWAVE buffer (e.g., as a replacement for running inside an 2420an IDLWAVE buffer (e.g., as a replacement for running inside an
@@ -2471,7 +2471,7 @@ The file in which the command history of the idlwave shell is saved.
2471Unless it's an absolute path, it goes in 2471Unless it's an absolute path, it goes in
2472@code{idlwave-config-directory}. 2472@code{idlwave-config-directory}.
2473@end defopt 2473@end defopt
2474 2474
2475@defopt idlwave-shell-use-dedicated-frame (@code{nil}) 2475@defopt idlwave-shell-use-dedicated-frame (@code{nil})
2476Non-@code{nil} means IDLWAVE should use a special frame to display the 2476Non-@code{nil} means IDLWAVE should use a special frame to display the
2477shell buffer. 2477shell buffer.
@@ -2574,7 +2574,7 @@ keywords, system variables, system variable tags etc.
2574@item @kbd{C-c C-v} 2574@item @kbd{C-c C-v}
2575@tab Find the source file of a routine (@code{idlwave-find-module}) 2575@tab Find the source file of a routine (@code{idlwave-find-module})
2576@item @kbd{C-c C-t} 2576@item @kbd{C-c C-t}
2577@tab Find the source file of a routine in the currently visited file 2577@tab Find the source file of a routine in the currently visited file
2578(@code{idlwave-find-module-this-file}). 2578(@code{idlwave-find-module-this-file}).
2579@item @kbd{C-c =} 2579@item @kbd{C-c =}
2580@tab Compile a library routine (@code{idlwave-resolve}) 2580@tab Compile a library routine (@code{idlwave-resolve})
@@ -2697,12 +2697,12 @@ buffers.
2697@end defopt 2697@end defopt
2698 2698
2699@menu 2699@menu
2700* A Tale of Two Modes:: 2700* A Tale of Two Modes::
2701* Debug Key Bindings:: 2701* Debug Key Bindings::
2702* Breakpoints and Stepping:: 2702* Breakpoints and Stepping::
2703* Compiling Programs:: 2703* Compiling Programs::
2704* Walking the Calling Stack:: 2704* Walking the Calling Stack::
2705* Electric Debug Mode:: 2705* Electric Debug Mode::
2706@end menu 2706@end menu
2707 2707
2708 2708
@@ -2795,7 +2795,7 @@ executed from the shell window, the breakpoint where IDL is currently
2795stopped will be deleted. To clear all breakpoints, use @kbd{C-c C-d 2795stopped will be deleted. To clear all breakpoints, use @kbd{C-c C-d
2796C-a} (@code{idlwave-clear-all-bp}). Breakpoints can also be disabled 2796C-a} (@code{idlwave-clear-all-bp}). Breakpoints can also be disabled
2797and re-enabled: @kbd{C-c C-d C-\} 2797and re-enabled: @kbd{C-c C-d C-\}
2798(@code{idlwave-shell-toggle-enable-current-bp}). 2798(@code{idlwave-shell-toggle-enable-current-bp}).
2799 2799
2800Breakpoint lines are highlighted or indicated with an icon in the source 2800Breakpoint lines are highlighted or indicated with an icon in the source
2801code (different icons for conditional, after, and other break types). 2801code (different icons for conditional, after, and other break types).
@@ -2804,7 +2804,7 @@ places breakpoints as close as possible on or after the line you
2804specify. IDLWAVE queries the shell for the actual breakpoint location 2804specify. IDLWAVE queries the shell for the actual breakpoint location
2805which was set, so the exact line you specify may not be marked. You can 2805which was set, so the exact line you specify may not be marked. You can
2806re-sync the breakpoint list and update the display at any time (e.g., if 2806re-sync the breakpoint list and update the display at any time (e.g., if
2807you add or remove some on the command line) using @kbd{C-c C-d C-l}. 2807you add or remove some on the command line) using @kbd{C-c C-d C-l}.
2808 2808
2809In recent IDLWAVE versions, the breakpoint line is highlighted when the 2809In recent IDLWAVE versions, the breakpoint line is highlighted when the
2810mouse is moved over it, and a tooltip pops up describing the break 2810mouse is moved over it, and a tooltip pops up describing the break
@@ -2914,8 +2914,8 @@ configured in @code{idlwave-shell-mark-stop-line}.
2914@kindex C-c C-d C-c 2914@kindex C-c C-d C-c
2915In order to compile the current buffer under the IDLWAVE shell, press 2915In order to compile the current buffer under the IDLWAVE shell, press
2916@kbd{C-c C-d C-c} (@code{idlwave-save-and-run}). This first saves the 2916@kbd{C-c C-d C-c} (@code{idlwave-save-and-run}). This first saves the
2917current buffer and then sends the command @samp{.run path/to/file} to the 2917current buffer and then sends the command @samp{.run path/to/file} to the
2918shell. You can also execute @kbd{C-c C-d C-c} from the shell buffer, in 2918shell. You can also execute @kbd{C-c C-d C-c} from the shell buffer, in
2919which case the most recently compiled buffer will be saved and 2919which case the most recently compiled buffer will be saved and
2920re-compiled. 2920re-compiled.
2921 2921
@@ -3080,9 +3080,9 @@ halts.
3080 3080
3081@defopt idlwave-shell-electric-stop-color (Violet) 3081@defopt idlwave-shell-electric-stop-color (Violet)
3082Default color of the stopped line overlay when in electric debug mode. 3082Default color of the stopped line overlay when in electric debug mode.
3083@end defopt 3083@end defopt
3084 3084
3085@defopt idlwave-shell-electric-stop-line-face 3085@defopt idlwave-shell-electric-stop-line-face
3086The face to use for the stopped line. Defaults to a face similar to the 3086The face to use for the stopped line. Defaults to a face similar to the
3087modeline, with color @code{idlwave-shell-electric-stop-color}. 3087modeline, with color @code{idlwave-shell-electric-stop-color}.
3088@end defopt 3088@end defopt
@@ -3188,14 +3188,14 @@ the expression printed by IDL.
3188@end defopt 3188@end defopt
3189 3189
3190@defopt idlwave-shell-output-face 3190@defopt idlwave-shell-output-face
3191The face for @code{idlwave-shell-output-overlay}. 3191The face for @code{idlwave-shell-output-overlay}.
3192Allows to choose the font, color and other properties for the most 3192Allows to choose the font, color and other properties for the most
3193recent output of IDL when examining an expression." 3193recent output of IDL when examining an expression."
3194@end defopt 3194@end defopt
3195 3195
3196@defopt idlwave-shell-separate-examine-output (@code{t}) 3196@defopt idlwave-shell-separate-examine-output (@code{t})
3197If non-@code{nil}, re-direct the output of examine commands to a special 3197If non-@code{nil}, re-direct the output of examine commands to a special
3198@file{*Examine*} buffer, instead of in the shell itself. 3198@file{*Examine*} buffer, instead of in the shell itself.
3199@end defopt 3199@end defopt
3200 3200
3201@defopt idlwave-shell-max-print-length (200) 3201@defopt idlwave-shell-max-print-length (200)
@@ -3249,17 +3249,17 @@ Both functions take a single string argument sharing the syntax of the
3249@lisp 3249@lisp
3250(add-hook 'idlwave-shell-mode-hook 3250(add-hook 'idlwave-shell-mode-hook
3251 (lambda () 3251 (lambda ()
3252 (idlwave-shell-define-key-both [s-down-mouse-2] 3252 (idlwave-shell-define-key-both [s-down-mouse-2]
3253 (idlwave-shell-mouse-examine 3253 (idlwave-shell-mouse-examine
3254 "print, size(___,/DIMENSIONS)")) 3254 "print, size(___,/DIMENSIONS)"))
3255 (idlwave-shell-define-key-both [f9] (idlwave-shell-examine 3255 (idlwave-shell-define-key-both [f9] (idlwave-shell-examine
3256 "print, size(___,/DIMENSIONS)")) 3256 "print, size(___,/DIMENSIONS)"))
3257 (idlwave-shell-define-key-both [f10] (idlwave-shell-examine 3257 (idlwave-shell-define-key-both [f10] (idlwave-shell-examine
3258 "print,size(___,/TNAME)")) 3258 "print,size(___,/TNAME)"))
3259 (idlwave-shell-define-key-both [f11] (idlwave-shell-examine 3259 (idlwave-shell-define-key-both [f11] (idlwave-shell-examine
3260 "help,___,/STRUCTURE")))) 3260 "help,___,/STRUCTURE"))))
3261@end lisp 3261@end lisp
3262 3262
3263@noindent Now pressing @key{f9}, or middle-mouse dragging with the 3263@noindent Now pressing @key{f9}, or middle-mouse dragging with the
3264@key{SUPER} key depressed, will print the dimensions of the nearby or 3264@key{SUPER} key depressed, will print the dimensions of the nearby or
3265highlighted expression. Pressing @key{f10} will give the type string, 3265highlighted expression. Pressing @key{f10} will give the type string,
@@ -3297,7 +3297,7 @@ of the package from version 3.0, during which time he overhauled almost
3297everything, modernized IDLWAVE with many new features, and developed the 3297everything, modernized IDLWAVE with many new features, and developed the
3298manual. 3298manual.
3299 3299
3300@item 3300@item
3301@uref{mailto:jdsmith@@as.arizona.edu, @b{J.D. Smith}}, the current 3301@uref{mailto:jdsmith@@as.arizona.edu, @b{J.D. Smith}}, the current
3302maintainer, as of version 4.10, helped shape object method completion 3302maintainer, as of version 4.10, helped shape object method completion
3303and most new features introduced in versions 4.x, and introduced many 3303and most new features introduced in versions 4.x, and introduced many
@@ -3364,7 +3364,7 @@ know about the accessible routines.
3364@menu 3364@menu
3365* Routine Definitions:: Where IDL Routines are defined. 3365* Routine Definitions:: Where IDL Routines are defined.
3366* Routine Information Sources:: So how does IDLWAVE know about... 3366* Routine Information Sources:: So how does IDLWAVE know about...
3367* Catalogs:: 3367* Catalogs::
3368* Load-Path Shadows:: Routines defined in several places 3368* Load-Path Shadows:: Routines defined in several places
3369* Documentation Scan:: Scanning the IDL Manuals 3369* Documentation Scan:: Scanning the IDL Manuals
3370@end menu 3370@end menu
@@ -3382,7 +3382,7 @@ know about the accessible routines.
3382several places: 3382several places:
3383 3383
3384@enumerate 3384@enumerate
3385@item 3385@item
3386@emph{Builtin routines} are defined inside IDL itself. The source code 3386@emph{Builtin routines} are defined inside IDL itself. The source code
3387of such routines is not available, but instead are learned about through 3387of such routines is not available, but instead are learned about through
3388the IDL documentation. 3388the IDL documentation.
@@ -3390,7 +3390,7 @@ the IDL documentation.
3390Routines which are @emph{part of the current program}, are defined in a 3390Routines which are @emph{part of the current program}, are defined in a
3391file explicitly compiled by the user. This file may or may not be 3391file explicitly compiled by the user. This file may or may not be
3392located on the IDL search path. 3392located on the IDL search path.
3393@item 3393@item
3394@emph{Library routines} are defined in files located on IDL's search 3394@emph{Library routines} are defined in files located on IDL's search
3395path. When a library routine is called for the first time, IDL will 3395path. When a library routine is called for the first time, IDL will
3396find the source file and compile it dynamically. A special sub-category 3396find the source file and compile it dynamically. A special sub-category
@@ -3428,7 +3428,7 @@ directly with IDL in the form of an XML catalog which IDLWAVE scans.
3428Formerly, this list was created by scanning the IDL manuals to produce 3428Formerly, this list was created by scanning the IDL manuals to produce
3429the file @file{idlw-rinfo.el}. 3429the file @file{idlw-rinfo.el}.
3430 3430
3431@item 3431@item
3432IDLWAVE @emph{scans} all its @emph{buffers} in the current Emacs session 3432IDLWAVE @emph{scans} all its @emph{buffers} in the current Emacs session
3433for routine definitions. This is done automatically when routine 3433for routine definitions. This is done automatically when routine
3434information or completion is first requested by the user. Each new 3434information or completion is first requested by the user. Each new
@@ -3547,8 +3547,8 @@ later).
3547@end defopt 3547@end defopt
3548 3548
3549@menu 3549@menu
3550* Library Catalogs:: 3550* Library Catalogs::
3551* User Catalog:: 3551* User Catalog::
3552@end menu 3552@end menu
3553 3553
3554@html 3554@html
@@ -3636,7 +3636,7 @@ instead, including:
3636@itemize @bullet 3636@itemize @bullet
3637@item The scan is internal to Emacs, so you don't need a working Perl 3637@item The scan is internal to Emacs, so you don't need a working Perl
3638installation, as you do for library catalogs. 3638installation, as you do for library catalogs.
3639@item Can be used to scan directories for which the user has no write 3639@item Can be used to scan directories for which the user has no write
3640privileges. 3640privileges.
3641@item Easy widget-based path selection. 3641@item Easy widget-based path selection.
3642@end itemize 3642@end itemize
@@ -3752,7 +3752,7 @@ Another way to find out if a specific routine has multiple definitions
3752on the load path is routine info display (@pxref{Routine Info}). 3752on the load path is routine info display (@pxref{Routine Info}).
3753 3753
3754@node Documentation Scan, , Load-Path Shadows, Sources of Routine Info 3754@node Documentation Scan, , Load-Path Shadows, Sources of Routine Info
3755@appendixsec Documentation Scan 3755@appendixsec Documentation Scan
3756@cindex @file{get_html_rinfo} 3756@cindex @file{get_html_rinfo}
3757@cindex @file{idlw-rinfo.el} 3757@cindex @file{idlw-rinfo.el}
3758@cindex Scanning the documentation 3758@cindex Scanning the documentation
@@ -3920,7 +3920,7 @@ user is King!
3920(setq idlwave-main-block-indent 3) 3920(setq idlwave-main-block-indent 3)
3921(setq idlwave-end-offset -3) 3921(setq idlwave-end-offset -3)
3922(setq idlwave-continuation-indent 1) 3922(setq idlwave-continuation-indent 1)
3923(setq idlwave-begin-line-comment "^;[^;]") ; Leave ";" but not ";;" 3923(setq idlwave-begin-line-comment "^;[^;]") ; Leave ";" but not ";;"
3924 ; anchored at start of line. 3924 ; anchored at start of line.
3925(setq idlwave-surround-by-blank t) ; Turn on padding ops =,<,> 3925(setq idlwave-surround-by-blank t) ; Turn on padding ops =,<,>
3926(setq idlwave-pad-keyword nil) ; Remove spaces for keyword '=' 3926(setq idlwave-pad-keyword nil) ; Remove spaces for keyword '='
@@ -3987,10 +3987,10 @@ user is King!
3987 ;; (local-set-key "\C-j" 'idlwave-newline) ; My preference. 3987 ;; (local-set-key "\C-j" 'idlwave-newline) ; My preference.
3988 3988
3989 ;; Some personal abbreviations 3989 ;; Some personal abbreviations
3990 (define-abbrev idlwave-mode-abbrev-table 3990 (define-abbrev idlwave-mode-abbrev-table
3991 (concat idlwave-abbrev-start-char "wb") "widget_base()" 3991 (concat idlwave-abbrev-start-char "wb") "widget_base()"
3992 (idlwave-keyword-abbrev 1)) 3992 (idlwave-keyword-abbrev 1))
3993 (define-abbrev idlwave-mode-abbrev-table 3993 (define-abbrev idlwave-mode-abbrev-table
3994 (concat idlwave-abbrev-start-char "on") "obj_new()" 3994 (concat idlwave-abbrev-start-char "on") "obj_new()"
3995 (idlwave-keyword-abbrev 1)) 3995 (idlwave-keyword-abbrev 1))
3996 )) 3996 ))
@@ -4008,12 +4008,12 @@ user is King!
4008(add-hook 'idlwave-shell-mode-hook 4008(add-hook 'idlwave-shell-mode-hook
4009 (lambda () 4009 (lambda ()
4010 ;; Set up some custom key and mouse examine commands 4010 ;; Set up some custom key and mouse examine commands
4011 (idlwave-shell-define-key-both [s-down-mouse-2] 4011 (idlwave-shell-define-key-both [s-down-mouse-2]
4012 (idlwave-shell-mouse-examine 4012 (idlwave-shell-mouse-examine
4013 "print, size(___,/DIMENSIONS)")) 4013 "print, size(___,/DIMENSIONS)"))
4014 (idlwave-shell-define-key-both [f9] (idlwave-shell-examine 4014 (idlwave-shell-define-key-both [f9] (idlwave-shell-examine
4015 "print, size(___,/DIMENSIONS)")) 4015 "print, size(___,/DIMENSIONS)"))
4016 (idlwave-shell-define-key-both [f10] (idlwave-shell-examine 4016 (idlwave-shell-define-key-both [f10] (idlwave-shell-examine
4017 "print,size(___,/TNAME)")) 4017 "print,size(___,/TNAME)"))
4018 (idlwave-shell-define-key-both [f11] (idlwave-shell-examine 4018 (idlwave-shell-define-key-both [f11] (idlwave-shell-examine
4019 "help,___,/STRUCTURE")))) 4019 "help,___,/STRUCTURE"))))
@@ -4066,7 +4066,7 @@ system. I am assuming that IDLWAVE has been installed in
4066sure you check the following things: 4066sure you check the following things:
4067 4067
4068@itemize @bullet 4068@itemize @bullet
4069@item When you download the IDLWAVE distribution, make sure you save the 4069@item When you download the IDLWAVE distribution, make sure you save the
4070file under the names @file{idlwave.tar.gz}. 4070file under the names @file{idlwave.tar.gz}.
4071@item M-TAB switches among running programs --- use Esc-TAB 4071@item M-TAB switches among running programs --- use Esc-TAB
4072instead. 4072instead.
@@ -4102,7 +4102,7 @@ customize the variable @code{idlwave-shell-automatic-electric-debug}
4102if you prefer not to enter electric debug on breakpoints@dots{} but 4102if you prefer not to enter electric debug on breakpoints@dots{} but
4103you really should try it before you disable it! You can also 4103you really should try it before you disable it! You can also
4104customize this variable to enter debug mode when errors are 4104customize this variable to enter debug mode when errors are
4105encountered. 4105encountered.
4106 4106
4107@item @strong{I get errors like @samp{Searching for program: no such 4107@item @strong{I get errors like @samp{Searching for program: no such
4108file or directory, idl} when attempting to start the IDL shell.} 4108file or directory, idl} when attempting to start the IDL shell.}
@@ -4141,7 +4141,7 @@ in compiled lisp files. Presumably, you kept the original .elc files in
4141place, and this is the source of the error. If you recompile (or just 4141place, and this is the source of the error. If you recompile (or just
4142"make; make install") from source, it should resolve this problem. 4142"make; make install") from source, it should resolve this problem.
4143Another option is to recompile the @file{idlw*.el} files by hand using 4143Another option is to recompile the @file{idlw*.el} files by hand using
4144@kbd{M-x byte-compile-file}. 4144@kbd{M-x byte-compile-file}.
4145 4145
4146@item @strong{@kbd{M-@key{TAB}} doesn't complete words, it switches 4146@item @strong{@kbd{M-@key{TAB}} doesn't complete words, it switches
4147windows on my desktop.} 4147windows on my desktop.}
@@ -4266,7 +4266,7 @@ You have a mismatch between your help index and the HTML help package
4266you downloaded. You need to ensure you download a ``downgrade kit'' if 4266you downloaded. You need to ensure you download a ``downgrade kit'' if
4267you are using anything older than the latest HTML help package. A new 4267you are using anything older than the latest HTML help package. A new
4268help package appears with each IDL release (assuming the documentation 4268help package appears with each IDL release (assuming the documentation
4269is updated). 4269is updated).
4270Starting with IDL 6.2, the HTML help and its catalog are 4270Starting with IDL 6.2, the HTML help and its catalog are
4271distributed with IDL, and so should never be inconsistent. 4271distributed with IDL, and so should never be inconsistent.
4272 4272
diff --git a/doc/misc/makefile.w32-in b/doc/misc/makefile.w32-in
index 1e497fe309f..0edaf3db3d6 100644
--- a/doc/misc/makefile.w32-in
+++ b/doc/misc/makefile.w32-in
@@ -100,123 +100,127 @@ info.dvi: $(INFOSOURCES)
100 $(ENVADD) $(TEXI2DVI) $(srcdir)/info.texi 100 $(ENVADD) $(TEXI2DVI) $(srcdir)/info.texi
101 101
102 102
103$(infodir)/ccmode: cc-mode.texi 103$(infodir)/ccmode: cc-mode.texi doclicense.texi
104 $(MAKEINFO) $(MAKEINFO_OPTS) cc-mode.texi 104 $(MAKEINFO) $(MAKEINFO_OPTS) cc-mode.texi
105cc-mode.dvi: cc-mode.texi 105cc-mode.dvi: cc-mode.texi doclicense.texi
106 $(ENVADD) $(TEXI2DVI) $(srcdir)/cc-mode.texi 106 $(ENVADD) $(TEXI2DVI) $(srcdir)/cc-mode.texi
107 107
108$(infodir)/ada-mode: ada-mode.texi 108$(infodir)/ada-mode: ada-mode.texi doclicense.texi
109 $(MAKEINFO) $(MAKEINFO_OPTS) ada-mode.texi 109 $(MAKEINFO) $(MAKEINFO_OPTS) ada-mode.texi
110ada-mode.dvi: ada-mode.texi 110ada-mode.dvi: ada-mode.texi doclicense.texi
111 $(ENVADD) $(TEXI2DVI) $(srcdir)/ada-mode.texi 111 $(ENVADD) $(TEXI2DVI) $(srcdir)/ada-mode.texi
112 112
113$(infodir)/pcl-cvs: pcl-cvs.texi 113$(infodir)/pcl-cvs: pcl-cvs.texi doclicense.texi
114 $(MAKEINFO) $(MAKEINFO_OPTS) pcl-cvs.texi 114 $(MAKEINFO) $(MAKEINFO_OPTS) pcl-cvs.texi
115pcl-cvs.dvi: pcl-cvs.texi 115pcl-cvs.dvi: pcl-cvs.texi doclicense.texi
116 $(ENVADD) $(TEXI2DVI) $(srcdir)/pcl-cvs.texi 116 $(ENVADD) $(TEXI2DVI) $(srcdir)/pcl-cvs.texi
117 117
118$(infodir)/eshell: eshell.texi 118$(infodir)/eshell: eshell.texi doclicense.texi
119 $(MAKEINFO) $(MAKEINFO_OPTS) eshell.texi 119 $(MAKEINFO) $(MAKEINFO_OPTS) eshell.texi
120eshell.dvi: eshell.texi 120eshell.dvi: eshell.texi doclicense.texi
121 $(ENVADD) $(TEXI2DVI) $(srcdir)/eshell.texi 121 $(ENVADD) $(TEXI2DVI) $(srcdir)/eshell.texi
122 122
123$(infodir)/cl: cl.texi 123$(infodir)/cl: cl.texi doclicense.texi
124 $(MAKEINFO) $(MAKEINFO_OPTS) cl.texi 124 $(MAKEINFO) $(MAKEINFO_OPTS) cl.texi
125cl.dvi: cl.texi 125cl.dvi: cl.texi doclicense.texi
126 $(ENVADD) $(TEXI2DVI) $(srcdir)/cl.texi 126 $(ENVADD) $(TEXI2DVI) $(srcdir)/cl.texi
127 127
128$(infodir)/dbus: dbus.texi 128$(infodir)/dbus: dbus.texi doclicense.texi
129 $(MAKEINFO) $(MAKEINFO_OPTS) dbus.texi 129 $(MAKEINFO) $(MAKEINFO_OPTS) dbus.texi
130dbus.dvi: dbus.texi 130dbus.dvi: dbus.texi doclicense.texi
131 $(ENVADD) $(TEXI2DVI) $(srcdir)/dbus.texi 131 $(ENVADD) $(TEXI2DVI) $(srcdir)/dbus.texi
132 132
133$(infodir)/dired-x: dired-x.texi 133$(infodir)/dired-x: dired-x.texi $(emacsdir)/emacsver.texi doclicense.texi
134 $(MAKEINFO) $(MAKEINFO_OPTS) dired-x.texi 134 $(MAKEINFO) $(MAKEINFO_OPTS) dired-x.texi
135dired-x.dvi: dired-x.texi 135dired-x.dvi: dired-x.texi $(emacsdir)/emacsver.texi doclicense.texi
136 $(ENVADD) $(TEXI2DVI) $(srcdir)/dired-x.texi 136 $(ENVADD) $(TEXI2DVI) $(srcdir)/dired-x.texi
137 137
138$(infodir)/ediff: ediff.texi 138$(infodir)/ediff: ediff.texi doclicense.texi
139 $(MAKEINFO) $(MAKEINFO_OPTS) ediff.texi 139 $(MAKEINFO) $(MAKEINFO_OPTS) ediff.texi
140ediff.dvi: ediff.texi 140ediff.dvi: ediff.texi doclicense.texi
141 $(ENVADD) $(TEXI2DVI) $(srcdir)/ediff.texi 141 $(ENVADD) $(TEXI2DVI) $(srcdir)/ediff.texi
142 142
143$(infodir)/flymake: flymake.texi 143$(infodir)/flymake: flymake.texi doclicense.texi
144 $(MAKEINFO) $(MAKEINFO_OPTS) flymake.texi 144 $(MAKEINFO) $(MAKEINFO_OPTS) flymake.texi
145flymake.dvi: flymake.texi 145flymake.dvi: flymake.texi doclicense.texi
146 $(ENVADD) $(TEXI2DVI) $(srcdir)/flymake.texi 146 $(ENVADD) $(TEXI2DVI) $(srcdir)/flymake.texi
147 147
148$(infodir)/forms: forms.texi 148$(infodir)/forms: forms.texi doclicense.texi
149 $(MAKEINFO) $(MAKEINFO_OPTS) forms.texi 149 $(MAKEINFO) $(MAKEINFO_OPTS) forms.texi
150forms.dvi: forms.texi 150forms.dvi: forms.texi doclicense.texi
151 $(ENVADD) $(TEXI2DVI) $(srcdir)/forms.texi 151 $(ENVADD) $(TEXI2DVI) $(srcdir)/forms.texi
152 152
153# gnus/message/emacs-mime/sieve/pgg are part of Gnus: 153# gnus/message/emacs-mime/sieve/pgg are part of Gnus:
154$(infodir)/gnus: gnus.texi 154$(infodir)/gnus: gnus.texi gnus-overrides.texi message.texi emacs-mime.texi \
155 sieve.texi pgg.texi sasl.texi gnus-news.texi gnus-faq.texi \
156 doclicense.texi
155 $(MAKEINFO) $(MAKEINFO_OPTS) gnus.texi 157 $(MAKEINFO) $(MAKEINFO_OPTS) gnus.texi
156gnus.dvi: gnus.texi 158gnus.dvi: gnus.texi gnus-overrides.texi message.texi emacs-mime.texi \
159 sieve.texi pgg.texi sasl.texi gnus-news.texi gnus-faq.texi \
160 doclicense.texi
157 sed -e "/@iflatex/,/@end iflatex/d" $(srcdir)/gnus.texi > gnustmp.texi 161 sed -e "/@iflatex/,/@end iflatex/d" $(srcdir)/gnus.texi > gnustmp.texi
158 $(ENVADD) $(TEXI2DVI) gnustmp.texi 162 $(ENVADD) $(TEXI2DVI) gnustmp.texi
159 cp gnustmp.dvi $*.dvi 163 cp gnustmp.dvi $*.dvi
160 rm gnustmp.* 164 rm gnustmp.*
161# 165#
162$(infodir)/message: message.texi 166$(infodir)/message: message.texi gnus-overrides.texi doclicense.texi
163 $(MAKEINFO) $(MAKEINFO_OPTS) message.texi 167 $(MAKEINFO) $(MAKEINFO_OPTS) message.texi
164message.dvi: message.texi 168message.dvi: message.texi gnus-overrides.texi doclicense.texi
165 $(ENVADD) $(TEXI2DVI) $(srcdir)/message.texi 169 $(ENVADD) $(TEXI2DVI) $(srcdir)/message.texi
166# 170#
167$(infodir)/emacs-mime: emacs-mime.texi 171$(infodir)/emacs-mime: emacs-mime.texi gnus-overrides.texi doclicense.texi
168 $(MAKEINFO) $(MAKEINFO_OPTS) --enable-encoding emacs-mime.texi 172 $(MAKEINFO) $(MAKEINFO_OPTS) --enable-encoding emacs-mime.texi
169emacs-mime.dvi: emacs-mime.texi 173emacs-mime.dvi: emacs-mime.texi gnus-overrides.texi doclicense.texi
170 $(ENVADD) $(TEXI2DVI) $(srcdir)/emacs-mime.texi 174 $(ENVADD) $(TEXI2DVI) $(srcdir)/emacs-mime.texi
171# 175#
172$(infodir)/sieve: sieve.texi 176$(infodir)/sieve: sieve.texi gnus-overrides.texi doclicense.texi
173 $(MAKEINFO) $(MAKEINFO_OPTS) sieve.texi 177 $(MAKEINFO) $(MAKEINFO_OPTS) sieve.texi
174sieve.dvi: sieve.texi 178sieve.dvi: sieve.texi gnus-overrides.texi doclicense.texi
175 $(ENVADD) $(TEXI2DVI) $(srcdir)/sieve.texi 179 $(ENVADD) $(TEXI2DVI) $(srcdir)/sieve.texi
176# 180#
177$(infodir)/pgg: pgg.texi 181$(infodir)/pgg: pgg.texi gnus-overrides.texi doclicense.texi
178 $(MAKEINFO) $(MAKEINFO_OPTS) pgg.texi 182 $(MAKEINFO) $(MAKEINFO_OPTS) pgg.texi
179pgg.dvi: pgg.texi 183pgg.dvi: pgg.texi gnus-overrides.texi doclicense.texi
180 $(ENVADD) $(TEXI2DVI) $(srcdir)/pgg.texi 184 $(ENVADD) $(TEXI2DVI) $(srcdir)/pgg.texi
181 185
182$(infodir)/mh-e: mh-e.texi 186$(infodir)/mh-e: mh-e.texi doclicense.texi gpl.texi
183 $(MAKEINFO) $(MAKEINFO_OPTS) mh-e.texi 187 $(MAKEINFO) $(MAKEINFO_OPTS) mh-e.texi
184mh-e.dvi: mh-e.texi 188mh-e.dvi: mh-e.texi doclicense.texi gpl.texi
185 $(ENVADD) $(TEXI2DVI) $(srcdir)/mh-e.texi 189 $(ENVADD) $(TEXI2DVI) $(srcdir)/mh-e.texi
186 190
187$(infodir)/reftex: reftex.texi 191$(infodir)/reftex: reftex.texi doclicense.texi
188 $(MAKEINFO) $(MAKEINFO_OPTS) reftex.texi 192 $(MAKEINFO) $(MAKEINFO_OPTS) reftex.texi
189reftex.dvi: reftex.texi 193reftex.dvi: reftex.texi doclicense.texi
190 $(ENVADD) $(TEXI2DVI) $(srcdir)/reftex.texi 194 $(ENVADD) $(TEXI2DVI) $(srcdir)/reftex.texi
191 195
192$(infodir)/remember: remember.texi 196$(infodir)/remember: remember.texi doclicense.texi
193 $(MAKEINFO) $(MAKEINFO_OPTS) remember.texi 197 $(MAKEINFO) $(MAKEINFO_OPTS) remember.texi
194remember.dvi: remember.texi 198remember.dvi: remember.texi doclicense.texix
195 $(ENVADD) $(TEXI2DVI) $(srcdir)/remember.texi 199 $(ENVADD) $(TEXI2DVI) $(srcdir)/remember.texi
196 200
197$(infodir)/sasl: sasl.texi 201$(infodir)/sasl: sasl.texi gnus-overrides.texi
198 $(MAKEINFO) $(MAKEINFO_OPTS) sasl.texi 202 $(MAKEINFO) $(MAKEINFO_OPTS) sasl.texi
199sasl.dvi: sasl.texi 203sasl.dvi: sasl.texi gnus-overrides.texi
200 $(ENVADD) $(TEXI2DVI) $(srcdir)/sasl.texi 204 $(ENVADD) $(TEXI2DVI) $(srcdir)/sasl.texi
201 205
202$(infodir)/sc: sc.texi 206$(infodir)/sc: sc.texi doclicense.texi
203 $(MAKEINFO) $(MAKEINFO_OPTS) sc.texi 207 $(MAKEINFO) $(MAKEINFO_OPTS) sc.texi
204sc.dvi: sc.texi 208sc.dvi: sc.texi doclicense.texi
205 $(ENVADD) $(TEXI2DVI) $(srcdir)/sc.texi 209 $(ENVADD) $(TEXI2DVI) $(srcdir)/sc.texi
206 210
207$(infodir)/vip: vip.texi 211$(infodir)/vip: vip.texi doclicense.texi
208 $(MAKEINFO) $(MAKEINFO_OPTS) vip.texi 212 $(MAKEINFO) $(MAKEINFO_OPTS) vip.texi
209vip.dvi: vip.texi 213vip.dvi: vip.texi doclicense.texi
210 $(ENVADD) $(TEXI2DVI) $(srcdir)/vip.texi 214 $(ENVADD) $(TEXI2DVI) $(srcdir)/vip.texi
211 215
212$(infodir)/viper: viper.texi 216$(infodir)/viper: viper.texi doclicense.texi
213 $(MAKEINFO) $(MAKEINFO_OPTS) viper.texi 217 $(MAKEINFO) $(MAKEINFO_OPTS) viper.texi
214viper.dvi: viper.texi 218viper.dvi: viper.texi doclicense.texi
215 $(ENVADD) $(TEXI2DVI) $(srcdir)/viper.texi 219 $(ENVADD) $(TEXI2DVI) $(srcdir)/viper.texi
216 220
217$(infodir)/widget: widget.texi 221$(infodir)/widget: widget.texi doclicense.texi
218 $(MAKEINFO) $(MAKEINFO_OPTS) widget.texi 222 $(MAKEINFO) $(MAKEINFO_OPTS) widget.texi
219widget.dvi: widget.texi 223widget.dvi: widget.texi doclicense.texi
220 $(ENVADD) $(TEXI2DVI) $(srcdir)/widget.texi 224 $(ENVADD) $(TEXI2DVI) $(srcdir)/widget.texi
221 225
222$(infodir)/efaq: faq.texi $(emacsdir)/emacsver.texi 226$(infodir)/efaq: faq.texi $(emacsdir)/emacsver.texi
@@ -224,57 +228,56 @@ $(infodir)/efaq: faq.texi $(emacsdir)/emacsver.texi
224faq.dvi: faq.texi $(emacsdir)/emacsver.texi 228faq.dvi: faq.texi $(emacsdir)/emacsver.texi
225 $(ENVADD) $(TEXI2DVI) $(srcdir)/faq.texi 229 $(ENVADD) $(TEXI2DVI) $(srcdir)/faq.texi
226 230
227$(infodir)/autotype: autotype.texi 231$(infodir)/autotype: autotype.texi doclicense.texi
228 $(MAKEINFO) $(MAKEINFO_OPTS) autotype.texi 232 $(MAKEINFO) $(MAKEINFO_OPTS) autotype.texi
229autotype.dvi: autotype.texi 233autotype.dvi: autotype.texi doclicense.texi
230 $(ENVADD) $(TEXI2DVI) $(srcdir)/autotype.texi 234 $(ENVADD) $(TEXI2DVI) $(srcdir)/autotype.texi
231 235
232$(infodir)/calc: calc.texi $(emacsdir)/emacsver.texi 236$(infodir)/calc: calc.texi $(emacsdir)/emacsver.texi gpl.texi doclicense.texi
233 $(MAKEINFO) $(MAKEINFO_OPTS) calc.texi 237 $(MAKEINFO) $(MAKEINFO_OPTS) calc.texi
234 238calc.dvi: calc.texi $(emacsdir)/emacsver.texi gpl.texi doclicense.texi
235calc.dvi: calc.texi $(emacsdir)/emacsver.texi
236 $(ENVADD) $(TEXI2DVI) $(srcdir)/calc.texi 239 $(ENVADD) $(TEXI2DVI) $(srcdir)/calc.texi
237 240
238# This is produced with --no-split to avoid making files whose 241# This is produced with --no-split to avoid making files whose
239# names clash on DOS 8+3 filesystems 242# names clash on DOS 8+3 filesystems
240$(infodir)/idlwave: idlwave.texi 243$(infodir)/idlwave: idlwave.texi doclicense.texi
241 $(MAKEINFO) $(MAKEINFO_OPTS) --no-split idlwave.texi 244 $(MAKEINFO) $(MAKEINFO_OPTS) --no-split idlwave.texi
242idlwave.dvi: idlwave.texi 245idlwave.dvi: idlwave.texi doclicense.texi
243 $(ENVADD) $(TEXI2DVI) $(srcdir)/idlwave.texi 246 $(ENVADD) $(TEXI2DVI) $(srcdir)/idlwave.texi
244 247
245$(infodir)/eudc: eudc.texi 248$(infodir)/eudc: eudc.texi doclicense.texi
246 $(MAKEINFO) $(MAKEINFO_OPTS) eudc.texi 249 $(MAKEINFO) $(MAKEINFO_OPTS) eudc.texi
247eudc.dvi: eudc.texi 250eudc.dvi: eudc.texi doclicense.texi
248 $(ENVADD) $(TEXI2DVI) $(srcdir)/eudc.texi 251 $(ENVADD) $(TEXI2DVI) $(srcdir)/eudc.texi
249 252
250$(infodir)/ebrowse: ebrowse.texi 253$(infodir)/ebrowse: ebrowse.texi doclicense.texi
251 $(MAKEINFO) $(MAKEINFO_OPTS) ebrowse.texi 254 $(MAKEINFO) $(MAKEINFO_OPTS) ebrowse.texi
252ebrowse.dvi: ebrowse.texi 255ebrowse.dvi: ebrowse.texi doclicense.texi
253 $(ENVADD) $(TEXI2DVI) $(srcdir)/ebrowse.texi 256 $(ENVADD) $(TEXI2DVI) $(srcdir)/ebrowse.texi
254 257
255$(infodir)/woman: woman.texi 258$(infodir)/woman: woman.texi doclicense.texi
256 $(MAKEINFO) $(MAKEINFO_OPTS) woman.texi 259 $(MAKEINFO) $(MAKEINFO_OPTS) woman.texi
257woman.dvi: woman.texi 260woman.dvi: woman.texi doclicense.texi
258 $(ENVADD) $(TEXI2DVI) $(srcdir)/woman.texi 261 $(ENVADD) $(TEXI2DVI) $(srcdir)/woman.texi
259 262
260$(infodir)/speedbar: speedbar.texi 263$(infodir)/speedbar: speedbar.texi doclicense.texi
261 $(MAKEINFO) $(MAKEINFO_OPTS) speedbar.texi 264 $(MAKEINFO) $(MAKEINFO_OPTS) speedbar.texi
262speedbar.dvi: speedbar.texi 265speedbar.dvi: speedbar.texi doclicense.texi
263 $(ENVADD) $(TEXI2DVI) $(srcdir)/speedbar.texi 266 $(ENVADD) $(TEXI2DVI) $(srcdir)/speedbar.texi
264 267
265$(infodir)/tramp: tramp.texi 268$(infodir)/tramp: tramp.texi trampver.texi doclicense.texi
266 $(MAKEINFO) $(MAKEINFO_OPTS) tramp.texi 269 $(MAKEINFO) $(MAKEINFO_OPTS) tramp.texi
267tramp.dvi: tramp.texi 270tramp.dvi: tramp.texi trampver.texi doclicense.texi
268 $(ENVADD) $(TEXI2DVI) $(srcdir)/tramp.texi 271 $(ENVADD) $(TEXI2DVI) $(srcdir)/tramp.texi
269 272
270$(infodir)/ses: ses.texi 273$(infodir)/ses: ses.texi doclicense.texi
271 $(MAKEINFO) $(MAKEINFO_OPTS) ses.texi 274 $(MAKEINFO) $(MAKEINFO_OPTS) ses.texi
272ses.dvi: ses.texi 275ses.dvi: ses.texi doclicense.texi
273 $(ENVADD) $(TEXI2DVI) $(srcdir)/ses.texi 276 $(ENVADD) $(TEXI2DVI) $(srcdir)/ses.texi
274 277
275$(infodir)/smtpmail: smtpmail.texi 278$(infodir)/smtpmail: smtpmail.texi doclicense.texi
276 $(MAKEINFO) $(MAKEINFO_OPTS) smtpmail.texi 279 $(MAKEINFO) $(MAKEINFO_OPTS) smtpmail.texi
277smtpmail.dvi: smtpmail.texi 280smtpmail.dvi: smtpmail.texi doclicense.texi
278 $(ENVADD) $(TEXI2DVI) $(srcdir)/smtpmail.texi 281 $(ENVADD) $(TEXI2DVI) $(srcdir)/smtpmail.texi
279 282
280$(infodir)/org: org.texi 283$(infodir)/org: org.texi
@@ -282,14 +285,14 @@ $(infodir)/org: org.texi
282org.dvi: org.texi 285org.dvi: org.texi
283 $(ENVADD) $(TEXI2DVI) $(srcdir)/org.texi 286 $(ENVADD) $(TEXI2DVI) $(srcdir)/org.texi
284 287
285$(infodir)/url: url.texi 288$(infodir)/url: url.texi doclicense.texi
286 $(MAKEINFO) $(MAKEINFO_OPTS) url.texi 289 $(MAKEINFO) $(MAKEINFO_OPTS) url.texi
287url.dvi: url.texi 290url.dvi: url.texi doclicense.texi
288 $(ENVADD) $(TEXI2DVI) $(srcdir)/url.texi 291 $(ENVADD) $(TEXI2DVI) $(srcdir)/url.texi
289 292
290$(infodir)/newsticker: newsticker.texi 293$(infodir)/newsticker: newsticker.texi doclicense.texi
291 $(MAKEINFO) $(MAKEINFO_OPTS) newsticker.texi 294 $(MAKEINFO) $(MAKEINFO_OPTS) newsticker.texi
292newsticker.dvi: newsticker.texi 295newsticker.dvi: newsticker.texi doclicense.texi
293 $(ENVADD) $(TEXI2DVI) $(srcdir)/newsticker.texi 296 $(ENVADD) $(TEXI2DVI) $(srcdir)/newsticker.texi
294 297
295$(infodir)/nxml-mode: nxml-mode.texi 298$(infodir)/nxml-mode: nxml-mode.texi
@@ -297,14 +300,14 @@ $(infodir)/nxml-mode: nxml-mode.texi
297nxml-mod.dvi: nxml-mode.texi 300nxml-mod.dvi: nxml-mode.texi
298 $(ENVADD) $(TEXI2DVI) $(srcdir)/nxml-mode.texi 301 $(ENVADD) $(TEXI2DVI) $(srcdir)/nxml-mode.texi
299 302
300$(infodir)/rcirc: rcirc.texi 303$(infodir)/rcirc: rcirc.texi doclicense.texi
301 $(MAKEINFO) $(MAKEINFO_OPTS) rcirc.texi 304 $(MAKEINFO) $(MAKEINFO_OPTS) rcirc.texi
302rcirc.dvi: rcirc.texi 305rcirc.dvi: rcirc.texi doclicense.texi
303 $(ENVADD) $(TEXI2DVI) $(srcdir)/rcirc.texi 306 $(ENVADD) $(TEXI2DVI) $(srcdir)/rcirc.texi
304 307
305$(infodir)/erc: erc.texi 308$(infodir)/erc: erc.texi gpl.texi doclicense.texi
306 $(MAKEINFO) $(MAKEINFO_OPTS) erc.texi 309 $(MAKEINFO) $(MAKEINFO_OPTS) erc.texi
307erc.dvi: erc.texi 310erc.dvi: erc.texi gpl.texi doclicense.texi
308 $(ENVADD) $(TEXI2DVI) $(srcdir)/erc.texi 311 $(ENVADD) $(TEXI2DVI) $(srcdir)/erc.texi
309 312
310$(infodir)/ert: ert.texi 313$(infodir)/ert: ert.texi
@@ -322,9 +325,9 @@ $(infodir)/mairix-el: mairix-el.texi
322mairix-el.dvi: mairix-el.texi 325mairix-el.dvi: mairix-el.texi
323 $(ENVADD) $(TEXI2DVI) $(srcdir)/mairix-el.texi 326 $(ENVADD) $(TEXI2DVI) $(srcdir)/mairix-el.texi
324 327
325$(infodir)/auth: auth.texi 328$(infodir)/auth: auth.texi gnus-overrides.texi
326 $(MAKEINFO) $(MAKEINFO_OPTS) auth.texi 329 $(MAKEINFO) $(MAKEINFO_OPTS) auth.texi
327auth.dvi: auth.texi 330auth.dvi: auth.texi gnus-overrides.texi
328 $(ENVADD) $(TEXI2DVI) $(srcdir)/auth.texi 331 $(ENVADD) $(TEXI2DVI) $(srcdir)/auth.texi
329 332
330$(infodir)/eieio: eieio.texi 333$(infodir)/eieio: eieio.texi
@@ -337,14 +340,14 @@ $(infodir)/ede: ede.texi
337ede.dvi: ede.texi 340ede.dvi: ede.texi
338 $(ENVADD) $(TEXI2DVI) $(srcdir)/ede.texi 341 $(ENVADD) $(TEXI2DVI) $(srcdir)/ede.texi
339 342
340$(infodir)/semantic: semantic.texi 343$(infodir)/semantic: semantic.texi sem-user.texi doclicense.texi
341 $(MAKEINFO) $(MAKEINFO_OPTS) semantic.texi 344 $(MAKEINFO) $(MAKEINFO_OPTS) semantic.texi
342semantic.dvi: semantic.texi 345semantic.dvi: semantic.texi sem-user.texi doclicense.texi
343 $(ENVADD) $(TEXI2DVI) $(srcdir)/semantic.texi 346 $(ENVADD) $(TEXI2DVI) $(srcdir)/semantic.texi
344 347
345$(infodir)/edt: edt.texi 348$(infodir)/edt: edt.texi doclicense.texi
346 $(MAKEINFO) $(MAKEINFO_OPTS) edt.texi 349 $(MAKEINFO) $(MAKEINFO_OPTS) edt.texi
347edt.dvi: edt.texi 350edt.dvi: edt.texi doclicense.texi
348 $(ENVADD) $(TEXI2DVI) $(srcdir)/edt.texi 351 $(ENVADD) $(TEXI2DVI) $(srcdir)/edt.texi
349 352
350mostlyclean: 353mostlyclean:
diff --git a/doc/misc/message.texi b/doc/misc/message.texi
index 4d828f69bbd..d9062a32572 100644
--- a/doc/misc/message.texi
+++ b/doc/misc/message.texi
@@ -904,7 +904,7 @@ happen---Message will encode non-@acronym{ASCII} domain names in @code{From},
904Until @acronym{IDNA} becomes more well known, Message queries you 904Until @acronym{IDNA} becomes more well known, Message queries you
905whether @acronym{IDNA} encoding of the domain name really should 905whether @acronym{IDNA} encoding of the domain name really should
906occur. Some users might not be aware that domain names can contain 906occur. Some users might not be aware that domain names can contain
907non-@acronym{ASCII} now, so this gives them a safety net if they accidently 907non-@acronym{ASCII} now, so this gives them a safety net if they accidentally
908typed a non-@acronym{ASCII} domain name. 908typed a non-@acronym{ASCII} domain name.
909 909
910@vindex message-use-idna 910@vindex message-use-idna
diff --git a/doc/misc/org.texi b/doc/misc/org.texi
index 34a4ba4f8f3..181e00f8e02 100644
--- a/doc/misc/org.texi
+++ b/doc/misc/org.texi
@@ -7219,7 +7219,7 @@ will be made in the agenda:
7219#+CATEGORY: Holiday 7219#+CATEGORY: Holiday
7220%%(org-calendar-holiday) ; special function for holiday names 7220%%(org-calendar-holiday) ; special function for holiday names
7221#+CATEGORY: Ann 7221#+CATEGORY: Ann
7222%%(org-anniversary 1956 5 14)@footnote{@code{org-anniversary} is just like @code{diary-anniversary}, but the argument order is allways according to ISO and therefore independent of the value of @code{calendar-date-style}.} Arthur Dent is %d years old 7222%%(org-anniversary 1956 5 14)@footnote{@code{org-anniversary} is just like @code{diary-anniversary}, but the argument order is always according to ISO and therefore independent of the value of @code{calendar-date-style}.} Arthur Dent is %d years old
7223%%(org-anniversary 1869 10 2) Mahatma Gandhi would be %d years old 7223%%(org-anniversary 1869 10 2) Mahatma Gandhi would be %d years old
7224@end example 7224@end example
7225 7225
@@ -7797,8 +7797,8 @@ Interactively select another agenda view and append it to the current view.
7797@item o 7797@item o
7798Delete other windows. 7798Delete other windows.
7799@c 7799@c
7800@orgcmdkskc{v d,d,org-aganda-day-view} 7800@orgcmdkskc{v d,d,org-agenda-day-view}
7801@xorgcmdkskc{v w,w,org-aganda-day-view} 7801@xorgcmdkskc{v w,w,org-agenda-day-view}
7802@xorgcmd{v m,org-agenda-month-view} 7802@xorgcmd{v m,org-agenda-month-view}
7803@xorgcmd{v y,org-agenda-month-year} 7803@xorgcmd{v y,org-agenda-month-year}
7804@xorgcmd{v SPC,org-agenda-reset-view} 7804@xorgcmd{v SPC,org-agenda-reset-view}
diff --git a/doc/misc/pcl-cvs.texi b/doc/misc/pcl-cvs.texi
index f12942da2d3..d4f82b6b3a7 100644
--- a/doc/misc/pcl-cvs.texi
+++ b/doc/misc/pcl-cvs.texi
@@ -70,7 +70,7 @@ customize-group RET pcl-cvs @key{RET}} and to look at the documentation strings
70of the various commands and major modes for further information. 70of the various commands and major modes for further information.
71@c This manual is updated to release 2.5 of PCL-CVS. 71@c This manual is updated to release 2.5 of PCL-CVS.
72 72
73@insertcopying 73@insertcopying
74 74
75@end ifnottex 75@end ifnottex
76 76
@@ -1275,7 +1275,7 @@ will be called as @samp{cvs -d @var{cvs-cvsroot}@dots{}}. This can be
1275useful if your site has several repositories. 1275useful if your site has several repositories.
1276 1276
1277@item log-edit-require-final-newline 1277@item log-edit-require-final-newline
1278@c wordy to avoid unhderfull hbox 1278@c wordy to avoid underfull hbox
1279When you enter a log message by typing into the 1279When you enter a log message by typing into the
1280@samp{*cvs-commit-message*} buffer, PCL-CVS normally automatically 1280@samp{*cvs-commit-message*} buffer, PCL-CVS normally automatically
1281inserts a trailing newline, unless there already is one. This behavior 1281inserts a trailing newline, unless there already is one. This behavior
diff --git a/doc/misc/sem-user.texi b/doc/misc/sem-user.texi
index 28d1cdb6eb8..e1631bcacc8 100644
--- a/doc/misc/sem-user.texi
+++ b/doc/misc/sem-user.texi
@@ -547,7 +547,7 @@ reparsed regardless of their size.
547@end deffn 547@end deffn
548 548
549@deffn Option semantic-idle-scheduler-no-working-message 549@deffn Option semantic-idle-scheduler-no-working-message
550If non-@code{nil}, disable display of working messages whie reparsing. 550If non-@code{nil}, disable display of working messages while reparsing.
551@end deffn 551@end deffn
552 552
553@deffn Option semantic-idle-scheduler-working-in-modeline-flag 553@deffn Option semantic-idle-scheduler-working-in-modeline-flag
diff --git a/doc/misc/semantic.texi b/doc/misc/semantic.texi
index 55b60937fb6..dcfff1fcb96 100644
--- a/doc/misc/semantic.texi
+++ b/doc/misc/semantic.texi
@@ -613,7 +613,7 @@ Emacs Lisp. It is an LALR parser suitable for complex languages.
613@c LocalWords: multitable NAvigaTOR noindent nomedian nonterm noselect 613@c LocalWords: multitable NAvigaTOR noindent nomedian nonterm noselect
614@c LocalWords: nosnarf obarray OLE OO outputfile paren parsetable POINT's 614@c LocalWords: nosnarf obarray OLE OO outputfile paren parsetable POINT's
615@c LocalWords: popup positionalonly positiononly positionormarker pre 615@c LocalWords: popup positionalonly positiononly positionormarker pre
616@c LocalWords: printf printindex Programmatically pt punctuations quotemode 616@c LocalWords: printf printindex Programmatically pt quotemode
617@c LocalWords: ref regex regexp Regexps reparse resetfile samp sb 617@c LocalWords: ref regex regexp Regexps reparse resetfile samp sb
618@c LocalWords: scopestart SEmantic semanticdb setfilename setq 618@c LocalWords: scopestart SEmantic semanticdb setfilename setq
619@c LocalWords: settitle setupfunction sexp sp SPC speedbar speedbar's 619@c LocalWords: settitle setupfunction sexp sp SPC speedbar speedbar's
diff --git a/doc/misc/ses.texi b/doc/misc/ses.texi
index d9739b93925..8300e6511a6 100644
--- a/doc/misc/ses.texi
+++ b/doc/misc/ses.texi
@@ -446,7 +446,7 @@ list.
446execute when starting SES mode for a buffer). 446execute when starting SES mode for a buffer).
447 447
448The variable @code{safe-functions} is a list of possibly-unsafe 448The variable @code{safe-functions} is a list of possibly-unsafe
449functions to be treated as safe when analysing formulas and printers. 449functions to be treated as safe when analyzing formulas and printers.
450@xref{Virus protection}. Before customizing @code{safe-functions}, 450@xref{Virus protection}. Before customizing @code{safe-functions},
451think about how much you trust the person who's suggesting this 451think about how much you trust the person who's suggesting this
452change. The value @code{t} turns off all anti-virus protection. A 452change. The value @code{t} turns off all anti-virus protection. A
diff --git a/doc/misc/smtpmail.texi b/doc/misc/smtpmail.texi
index 1d4bbbff4ac..854be0d0012 100644
--- a/doc/misc/smtpmail.texi
+++ b/doc/misc/smtpmail.texi
@@ -233,7 +233,7 @@ least one of the following external tools are installed:
233 233
234@enumerate 234@enumerate
235@item 235@item
236The GNUTLS command line tool @samp{gnutls-cli}, you can get it from 236The GnuTLS command line tool @samp{gnutls-cli}, you can get it from
237@url{http://www.gnu.org/software/gnutls/}. This is the recommended 237@url{http://www.gnu.org/software/gnutls/}. This is the recommended
238tool, mainly because it can verify the server certificates. 238tool, mainly because it can verify the server certificates.
239 239
diff --git a/doc/misc/tramp.texi b/doc/misc/tramp.texi
index e6b0f4fa235..f7f340074a2 100644
--- a/doc/misc/tramp.texi
+++ b/doc/misc/tramp.texi
@@ -3573,7 +3573,7 @@ The verbosity levels are
3573 3573
3574When @code{tramp-verbose} is greater than or equal to 4, the messages 3574When @code{tramp-verbose} is greater than or equal to 4, the messages
3575are also written into a @value{tramp} debug buffer. This debug buffer 3575are also written into a @value{tramp} debug buffer. This debug buffer
3576is useful for analysing problems; sending a @value{tramp} bug report 3576is useful for analyzing problems; sending a @value{tramp} bug report
3577should be done with @code{tramp-verbose} set to a verbosity level of at 3577should be done with @code{tramp-verbose} set to a verbosity level of at
3578least 6 (@pxref{Bug Reports}). 3578least 6 (@pxref{Bug Reports}).
3579 3579
diff --git a/etc/AUTHORS b/etc/AUTHORS
index f8ab274e136..b7929dbf453 100644
--- a/etc/AUTHORS
+++ b/etc/AUTHORS
@@ -31,6 +31,8 @@ Adam Sjøgren: changed spam.el blink.xpm braindamaged.xpm cry.xpm dead.xpm
31 reverse-smile.xpm sad.xpm smile.xpm wry.xpm xterm.c gnus-html.el 31 reverse-smile.xpm sad.xpm smile.xpm wry.xpm xterm.c gnus-html.el
32 gnus-start.el gnus-sum.el gnus.el gtkutil.c shr.el xterm.h 32 gnus-start.el gnus-sum.el gnus.el gtkutil.c shr.el xterm.h
33 33
34Adam W: changed mail-source.el
35
34Aditya Siram: changed ob.el 36Aditya Siram: changed ob.el
35 37
36Adrian Aichner: changed erc-log.el erc.el erc-autojoin.el erc-backend.el 38Adrian Aichner: changed erc-log.el erc.el erc-autojoin.el erc-backend.el
@@ -193,9 +195,9 @@ Andreas Politz: changed editfns.c elp.el ido.el term.el
193Andreas Rottmann: changed emacsclient.1 emacsclient.c misc.texi server.el 195Andreas Rottmann: changed emacsclient.1 emacsclient.c misc.texi server.el
194 196
195Andreas Schwab: changed Makefile.in configure.in lisp.h xdisp.c alloc.c 197Andreas Schwab: changed Makefile.in configure.in lisp.h xdisp.c alloc.c
196 process.c coding.c files.el xterm.c editfns.c fns.c keyboard.c print.c 198 process.c coding.c files.el xterm.c editfns.c keyboard.c fns.c print.c
197 emacs.c eval.c fileio.c lread.c sysdep.c dired.el xfns.c buffer.c 199 emacs.c eval.c fileio.c lread.c sysdep.c dired.el xfns.c buffer.c
198 and 568 other files 200 and 571 other files
199 201
200Andreas Seltenreich: changed nnweb.el gnus.texi message.el gnus-sum.el 202Andreas Seltenreich: changed nnweb.el gnus.texi message.el gnus-sum.el
201 gnus.el nnslashdot.el gnus-srvr.el gnus-util.el mm-url.el mm-uu.el 203 gnus.el nnslashdot.el gnus-srvr.el gnus-util.el mm-url.el mm-uu.el
@@ -497,8 +499,8 @@ Chong Yidong: wrote compile-tests.el dichromacy-theme.el
497and co-wrote longlines.el tango-dark-theme.el tango-theme.el 499and co-wrote longlines.el tango-dark-theme.el tango-theme.el
498and changed xdisp.c simple.el files.el display.texi frames.texi 500and changed xdisp.c simple.el files.el display.texi frames.texi
499 cus-edit.el files.texi keyboard.c startup.el package.el custom.el 501 cus-edit.el files.texi keyboard.c startup.el package.el custom.el
500 emacs.texi xterm.c subr.el faces.el image.c mouse.el misc.texi 502 emacs.texi xterm.c subr.el text.texi faces.el image.c mouse.el
501 text.texi progmodes/compile.el xfns.c and 826 other files 503 misc.texi progmodes/compile.el xfns.c and 830 other files
502 504
503Chris Chase: co-wrote idlw-shell.el idlwave.el 505Chris Chase: co-wrote idlw-shell.el idlwave.el
504 506
@@ -561,10 +563,11 @@ Christoph Bauer: changed configure.in
561Christoph Conrad: changed gnus-agent.el gnus-score.el makefile.w32-in 563Christoph Conrad: changed gnus-agent.el gnus-score.el makefile.w32-in
562 qp.el 564 qp.el
563 565
564Christoph Scholtes: changed makefile.w32-in progmodes/python.el INSTALL 566Christoph Scholtes: changed makefile.w32-in progmodes/python.el stdint.h
565 README.W32 maintaining.texi zipdist.bat admin.el bookmark.el 567 INSTALL README.W32 maintaining.texi zipdist.bat admin.el bookmark.el
566 configure.bat cua-base.el help-mode.el help.el ido.el makedist.bat 568 config.nt configure.bat control.texi cua-base.el help-mode.el help.el
567 menu.c minibuf.c process.c progmodes/grep.el stdint.h vc.el window.c 569 ido.el makedist.bat menu.c minibuf.c process.c progmodes/grep.el
570 and 3 other files
568 571
569Christoph Wedler: wrote antlr-mode.el 572Christoph Wedler: wrote antlr-mode.el
570and changed format.el gnus-art.el gnus-picon.el message.el register.el 573and changed format.el gnus-art.el gnus-picon.el message.el register.el
@@ -759,9 +762,11 @@ David Edmondson: changed message.el gnus-cite.el imap.el mm-view.el
759 mml2015.el nnfolder.el nnimap.el nnml.el 762 mml2015.el nnfolder.el nnimap.el nnml.el
760 763
761David Engster: wrote mairix.el nnmairix.el 764David Engster: wrote mairix.el nnmairix.el
762and changed gnus.texi registry.el gnus-msg.el bovine-grammar.el 765and changed gnus.texi registry.el gnus-msg.el insert.el
763 display.texi files.el gnus-registry.el gnus-sum.el hideshow.el 766 analyze/complete.el base.el bovine-grammar.el cedet/srecode.el
764 mairix-el.texi mm-view.el mml-smime.el nnimap.el 767 cpp-root.el custom.el db-find.el db-typecache.el db.el dictionary.el
768 display.texi document.el ede-grammar.el files.el generic.el
769 gnus-registry.el gnus-sum.el and 21 other files
765 770
766David Gillespie: wrote calc-aent.el calc-alg.el calc-arith.el calc-bin.el 771David Gillespie: wrote calc-aent.el calc-alg.el calc-arith.el calc-bin.el
767 calc-comb.el calc-cplx.el calc-embed.el calc-ext.el calc-fin.el 772 calc-comb.el calc-cplx.el calc-embed.el calc-ext.el calc-fin.el
@@ -908,7 +913,7 @@ Derek Upham: changed nxml-mode.el
908 913
909Detlev Zundel: wrote re-builder.el 914Detlev Zundel: wrote re-builder.el
910 915
911Devon Sean McCullough: changed comint.el 916Devon Sean Mccullough: changed comint.el
912 917
913Dhruva Krishnamurthy: changed makefile.w32-in emacsclient.c fontset.c 918Dhruva Krishnamurthy: changed makefile.w32-in emacsclient.c fontset.c
914 sound.c w32proc.c 919 sound.c w32proc.c
@@ -940,8 +945,8 @@ Dirk-Jan C. Binnema: changed org-agenda.el
940Dmitri Paduchikh: changed advice.el 945Dmitri Paduchikh: changed advice.el
941 946
942Dmitry Antipov: changed alloc.c keyboard.c buffer.c ccl.c editfns.c 947Dmitry Antipov: changed alloc.c keyboard.c buffer.c ccl.c editfns.c
943 emacs.c fontset.c lisp.h lread.c lwlib-Xaw.c lwlib-Xm.c lwlib-utils.c 948 emacs.c fontset.c keymap.c lisp.h lread.c lwlib-Xaw.c lwlib-Xm.c
944 lwlib.c macmenu.c w32menu.c xlwmenu.c xmenu.c 949 lwlib-utils.c lwlib.c macmenu.c w32menu.c xdisp.c xlwmenu.c xmenu.c
945 950
946Dmitry Bolshakov: changed hideshow.el 951Dmitry Bolshakov: changed hideshow.el
947 952
@@ -1018,8 +1023,8 @@ Eli Zaretskii: wrote [bidirectional display in xdisp.c] bidi.c rxvt.el
1018 tty-colors.el 1023 tty-colors.el
1019and changed makefile.w32-in msdos.c xdisp.c Makefile.in files.el 1024and changed makefile.w32-in msdos.c xdisp.c Makefile.in files.el
1020 config.bat fileio.c msdos.h simple.el mainmake.v2 sed1v2.inp info.el 1025 config.bat fileio.c msdos.h simple.el mainmake.v2 sed1v2.inp info.el
1021 rmail.el w32.c display.texi process.c pc-win.el startup.el dired.c 1026 display.texi rmail.el w32.c process.c pc-win.el startup.el dispextern.h
1022 dispextern.h emacs.c and 695 other files 1027 dispnew.c dired.c and 697 other files
1023 1028
1024Elias Oltmanns: changed tls.el gnus-agent.el gnus-int.el gnus-srvr.el 1029Elias Oltmanns: changed tls.el gnus-agent.el gnus-int.el gnus-srvr.el
1025 gnus.el 1030 gnus.el
@@ -1162,7 +1167,8 @@ Fabian Ezequiel Gallina: changed progmodes/python.el
1162 1167
1163Fabrice Bauzac: changed dired-aux.el 1168Fabrice Bauzac: changed dired-aux.el
1164 1169
1165Fabrice Popineau: changed etags.c fileio.c gnus-cache.el 1170Fabrice Popineau: changed config.nt etags.c fileio.c gnus-cache.el
1171 inttypes.h lisp.h ms-w32.h nmake.defs regex.c stdint.h w32.c
1166 1172
1167Fan Kai: changed esh-arg.el 1173Fan Kai: changed esh-arg.el
1168 1174
@@ -1320,8 +1326,8 @@ Giuseppe Scrivano: changed browse-url.el buffer.c configure.in sysdep.c
1320Glenn Morris: wrote check-declare.el f90.el vc-bzr.el 1326Glenn Morris: wrote check-declare.el f90.el vc-bzr.el
1321and changed Makefile.in configure.in calendar.el diary-lib.el rmail.el 1327and changed Makefile.in configure.in calendar.el diary-lib.el rmail.el
1322 files.el cal-menu.el appt.el cal-hebrew.el fortran.el bytecomp.el 1328 files.el cal-menu.el appt.el cal-hebrew.el fortran.el bytecomp.el
1323 holidays.el make-dist calendar.texi emacs.texi sed1v2.inp simple.el 1329 holidays.el make-dist calendar.texi emacs.texi simple.el sed1v2.inp
1324 cal-islam.el cal-bahai.el startup.el ack.texi and 1202 other files 1330 cal-islam.el cal-bahai.el startup.el ack.texi and 1208 other files
1325 1331
1326Glynn Clements: wrote gamegrid.el snake.el tetris.el 1332Glynn Clements: wrote gamegrid.el snake.el tetris.el
1327 1333
@@ -1552,7 +1558,7 @@ Jan Djärv: wrote dnd.el dynamic-setting.el x-dnd.el
1552and changed gtkutil.c xterm.c xfns.c configure.in xmenu.c xterm.h 1558and changed gtkutil.c xterm.c xfns.c configure.in xmenu.c xterm.h
1553 gtkutil.h x-win.el keyboard.c Makefile.in nsterm.m frames.texi 1559 gtkutil.h x-win.el keyboard.c Makefile.in nsterm.m frames.texi
1554 xsettings.c frame.c emacs.c xselect.c process.c xlwmenu.c config.in 1560 xsettings.c frame.c emacs.c xselect.c process.c xlwmenu.c config.in
1555 cus-start.el xresources.texi and 302 other files 1561 cus-start.el nsfns.m and 302 other files
1556 1562
1557Jan Moringen: co-wrote srecode/cpp.el tango-dark-theme.el tango-theme.el 1563Jan Moringen: co-wrote srecode/cpp.el tango-dark-theme.el tango-theme.el
1558and changed dbus.el dbus.texi dbusbind.c eieio.el log-edit.el zeroconf.el 1564and changed dbus.el dbus.texi dbusbind.c eieio.el log-edit.el zeroconf.el
@@ -1734,10 +1740,10 @@ Joel Ray Holveck: changed gnus-sum.el info.el
1734Joev Dubach: changed nntp.el 1740Joev Dubach: changed nntp.el
1735 1741
1736Johan Bockgård: changed erc.el cl-macs.el erc-backend.el erc-button.el 1742Johan Bockgård: changed erc.el cl-macs.el erc-backend.el erc-button.el
1737 erc-match.el browse-url.el bytecomp.el custom.el display.texi 1743 erc-match.el xdisp.c browse-url.el bytecomp.el custom.el display.texi
1738 erc-compat.el erc-nickserv.el erc-ring.el erc-speak.el erc-track.el 1744 erc-compat.el erc-nickserv.el erc-ring.el erc-speak.el erc-track.el
1739 help-fns.el icomplete.el mouse-sel.el simple.el subr.el xdisp.c 1745 help-fns.el icomplete.el mouse-sel.el simple.el subr.el xterm.el
1740 xterm.el and 48 other files 1746 and 48 other files
1741 1747
1742Johan Euphrosine: changed ibuf-ext.el 1748Johan Euphrosine: changed ibuf-ext.el
1743 1749
@@ -1863,8 +1869,8 @@ and changed ob-octave.el
1863Juanma Barranquero: wrote emacs-lock.el 1869Juanma Barranquero: wrote emacs-lock.el
1864and changed makefile.w32-in subr.el w32fns.c files.el server.el bs.el 1870and changed makefile.w32-in subr.el w32fns.c files.el server.el bs.el
1865 emacsclient.c help-fns.el faces.el org.el simple.el buffer.c xdisp.c 1871 emacsclient.c help-fns.el faces.el org.el simple.el buffer.c xdisp.c
1866 keyboard.c process.c w32term.c desktop.el ido.el eval.c mule-cmds.el 1872 keyboard.c process.c w32term.c window.c desktop.el ido.el allout.el
1867 w32.c and 1036 other files 1873 eval.c and 1084 other files
1868 1874
1869Juergen Kreileder: changed imap.el nnimap.el 1875Juergen Kreileder: changed imap.el nnimap.el
1870 1876
@@ -1895,7 +1901,7 @@ and changed info.el isearch.el simple.el replace.el progmodes/grep.el
1895 dired-aux.el progmodes/compile.el dired.el startup.el faces.el files.el 1901 dired-aux.el progmodes/compile.el dired.el startup.el faces.el files.el
1896 display.texi menu-bar.el descr-text.el bindings.el cus-edit.el 1902 display.texi menu-bar.el descr-text.el bindings.el cus-edit.el
1897 image-mode.el ispell.el man.el dired-x.el log-view.el 1903 image-mode.el ispell.el man.el dired-x.el log-view.el
1898 and 334 other files 1904 and 335 other files
1899 1905
1900Justin Bogner: changed fortune.el 1906Justin Bogner: changed fortune.el
1901 1907
@@ -2001,7 +2007,7 @@ Keith Gabryelski: wrote hexl.c hexl.el
2001Keith Packard: changed font.c 2007Keith Packard: changed font.c
2002 2008
2003Ken Brown: changed configure.in cygwin.h sheap.c browse-url.el gmalloc.c 2009Ken Brown: changed configure.in cygwin.h sheap.c browse-url.el gmalloc.c
2004 vm-limit.c dired.c emacs.c loadup.el mem-limits.h unexcw.c 2010 vm-limit.c dired.c emacs.c gdb-mi.el loadup.el mem-limits.h unexcw.c
2005 2011
2006Ken Brush: changed emacsclient.c 2012Ken Brush: changed emacsclient.c
2007 2013
@@ -2169,7 +2175,8 @@ and co-wrote gnus-kill.el gnus-mh.el gnus-msg.el gnus-score.el
2169and changed gnus.texi gnus-cite.el pop3.el gnus-xmas.el smtpmail.el 2175and changed gnus.texi gnus-cite.el pop3.el gnus-xmas.el smtpmail.el
2170 proto-stream.el auth-source.el xml.c dired.el editfns.c nnultimate.el 2176 proto-stream.el auth-source.el xml.c dired.el editfns.c nnultimate.el
2171 subr.el gnus-nocem.el gnutls.c imap.el nnkiboze.el nnrss.el 2177 subr.el gnus-nocem.el gnutls.c imap.el nnkiboze.el nnrss.el
2172 nnslashdot.el spam-report.el gnus-cus.el simple.el and 205 other files 2178 nnslashdot.el spam-report.el url-http.el gnus-cus.el
2179 and 206 other files
2173 2180
2174Lars Rasmusson: changed ebrowse.c 2181Lars Rasmusson: changed ebrowse.c
2175 2182
@@ -2323,7 +2330,7 @@ Mark Hood: changed gnus-uu.el
2323 2330
2324Mark Lambert: changed process.c process.h 2331Mark Lambert: changed process.c process.h
2325 2332
2326Mark Lillibridge: changed mail-utils.el rmail.el 2333Mark Lillibridge: changed rmail.el mail-utils.el unrmail.el
2327 2334
2328Mark Mitchell: changed font-lock.el 2335Mark Mitchell: changed font-lock.el
2329 2336
@@ -2390,7 +2397,7 @@ Martin Neitzel: changed supercite.el
2390Martin Pohlack: changed iimage.el pc-select.el 2397Martin Pohlack: changed iimage.el pc-select.el
2391 2398
2392Martin Rudalics: changed window.el window.c windows.texi frame.c buffer.c 2399Martin Rudalics: changed window.el window.c windows.texi frame.c buffer.c
2393 frame.el help.el cus-edit.el cus-start.el files.el window.h 2400 help.el window.h cus-start.el frame.el cus-edit.el files.el
2394 buffers.texi dired.el subr.el add-log.el xdisp.c font-lock.el 2401 buffers.texi dired.el subr.el add-log.el xdisp.c font-lock.el
2395 help-fns.el lisp.h mouse.el wid-edit.el and 135 other files 2402 help-fns.el lisp.h mouse.el wid-edit.el and 135 other files
2396 2403
@@ -2479,7 +2486,7 @@ and changed tramp.texi dbusbind.c trampver.texi dbus.texi trampver.el
2479 ange-ftp.el tramp-fish.el files.el tramp-imap.el files.texi Makefile.in 2486 ange-ftp.el tramp-fish.el files.el tramp-imap.el files.texi Makefile.in
2480 tramp-vc.el tramp-util.el tramp-uu.el simple.el auth-source.el 2487 tramp-vc.el tramp-util.el tramp-uu.el simple.el auth-source.el
2481 dired-aux.el configure.in em-unix.el fileio.c keyboard.c 2488 dired-aux.el configure.in em-unix.el fileio.c keyboard.c
2482 and 64 other files 2489 and 65 other files
2483 2490
2484Michael Ben-Gershon: changed acorn.h configure.in riscix1-1.h riscix1-2.h 2491Michael Ben-Gershon: changed acorn.h configure.in riscix1-1.h riscix1-2.h
2485 unexec.c 2492 unexec.c
@@ -2581,6 +2588,8 @@ Mikael Fornius: changed org.el org-habit.el
2581 2588
2582Mike Haertel: changed 7300.h 2589Mike Haertel: changed 7300.h
2583 2590
2591Mike Kazantsev: changed erc-dcc.el
2592
2584Mike Kupfer: changed mh-e.el mh-utils.el 2593Mike Kupfer: changed mh-e.el mh-utils.el
2585 2594
2586Mike Long: changed b2m.c make-dist make-mode.el netbsd.h view.el vms.h 2595Mike Long: changed b2m.c make-dist make-mode.el netbsd.h view.el vms.h
@@ -2804,9 +2813,9 @@ and changed imenu.el make-mode.el
2804Paul Eggert: wrote rcs2log vcdiff 2813Paul Eggert: wrote rcs2log vcdiff
2805and co-wrote cal-dst.el 2814and co-wrote cal-dst.el
2806and changed lisp.h Makefile.in editfns.c alloc.c xdisp.c configure.in 2815and changed lisp.h Makefile.in editfns.c alloc.c xdisp.c configure.in
2807 image.c fileio.c process.c fns.c xterm.c keyboard.c data.c dispextern.h 2816 fileio.c image.c process.c fns.c xterm.c dispextern.h keyboard.c data.c
2808 lread.c sysdep.c xfns.c eval.c emacs.c config.in print.c 2817 lread.c sysdep.c xfns.c eval.c emacs.c config.in print.c
2809 and 563 other files 2818 and 564 other files
2810 2819
2811Paul Fisher: changed fns.c 2820Paul Fisher: changed fns.c
2812 2821
@@ -3356,9 +3365,9 @@ Stefan Monnier: wrote bibtex-style.el bzrmerge.el css-mode.el
3356 pcvs-util.el reveal.el smerge-mode.el smie.el vc-mtn.el 3365 pcvs-util.el reveal.el smerge-mode.el smie.el vc-mtn.el
3357and co-wrote font-lock.el 3366and co-wrote font-lock.el
3358and changed vc.el subr.el simple.el lisp.h keyboard.c files.el 3367and changed vc.el subr.el simple.el lisp.h keyboard.c files.el
3359 Makefile.in bytecomp.el keymap.c xdisp.c pcvs.el alloc.c 3368 bytecomp.el Makefile.in keymap.c progmodes/compile.el xdisp.c pcvs.el
3360 progmodes/compile.el newcomment.el vc-hooks.el tex-mode.el buffer.c 3369 alloc.c newcomment.el vc-hooks.el tex-mode.el buffer.c fileio.c
3361 sh-script.el eval.c fileio.c fill.el and 1030 other files 3370 sh-script.el eval.c fill.el and 1032 other files
3362 3371
3363Stefan Reichör: changed gnus-agent.el 3372Stefan Reichör: changed gnus-agent.el
3364 3373
@@ -3508,7 +3517,7 @@ and changed subword.el image-mode.el Makefile.in cc-cmds.el emacsbug.el
3508 gnus-art.el gnus.texi nnimap.el files.el gnus-sum.el info.el 3517 gnus-art.el gnus.texi nnimap.el files.el gnus-sum.el info.el
3509 org-footnote.el org.el reftex-ref.el simple.el tsdh-dark-theme.el 3518 org-footnote.el org.el reftex-ref.el simple.el tsdh-dark-theme.el
3510 tsdh-light-theme.el ack.texi bindings.el bookmark.el cc-mode.el 3519 tsdh-light-theme.el ack.texi bindings.el bookmark.el cc-mode.el
3511 and 21 other files 3520 and 22 other files
3512 3521
3513Tatsuya Ichikawa: changed gnus-agent.el gnus-cache.el 3522Tatsuya Ichikawa: changed gnus-agent.el gnus-cache.el
3514 3523
@@ -3520,10 +3529,10 @@ Teemu Likonen: changed dired.el gnus-agent.el message.el
3520 3529
3521Teodor Zlatanov: wrote auth-source.el gnus-registry.el gnus-sync.el 3530Teodor Zlatanov: wrote auth-source.el gnus-registry.el gnus-sync.el
3522 gnus-tests.el gnutls.el registry.el spam-report.el url-future.el 3531 gnus-tests.el gnutls.el registry.el spam-report.el url-future.el
3523and changed spam.el gnus.el nnimap.el gnus.texi gnus-sum.el auth.texi 3532and changed spam.el gnus.el nnimap.el gnus.texi gnus-sum.el gnus-util.el
3524 gnus-util.el netrc.el gnus-start.el gnutls.c message.el spam-stat.el 3533 auth.texi netrc.el gnus-start.el gnutls.c message.el spam-stat.el
3525 encrypt.el nnmail.el imap.el mail-source.el Makefile.in gnus-encrypt.el 3534 encrypt.el nnir.el nnmail.el imap.el mail-source.el nnmairix.el
3526 gnus-html.el gnus-int.el gnutls.h and 97 other files 3535 Makefile.in gnus-encrypt.el gnus-html.el and 97 other files
3527 3536
3528Terje Rosten: changed xfns.c version.el xterm.c xterm.h 3537Terje Rosten: changed xfns.c version.el xterm.c xterm.h
3529 3538
@@ -3839,8 +3848,8 @@ Yann Dirson: changed imenu.el
3839 3848
3840Yann Hodique: changed rcirc.el 3849Yann Hodique: changed rcirc.el
3841 3850
3842Yavor Doganov: changed configure.in Info-gnustep.plist emacs.1 etags.1 3851Yavor Doganov: changed configure.in Info-gnustep.plist Makefile.in
3843 make-dist nsfont.m 3852 emacs.1 etags.1 make-dist nsfont.m
3844 3853
3845Yoichi Nakayama: changed browse-url.el finder.el man.el rfc2368.el 3854Yoichi Nakayama: changed browse-url.el finder.el man.el rfc2368.el
3846 3855
diff --git a/etc/MH-E-NEWS b/etc/MH-E-NEWS
index 4ab75dcfc45..f02b795a6b9 100644
--- a/etc/MH-E-NEWS
+++ b/etc/MH-E-NEWS
@@ -1584,7 +1584,7 @@ message (closes SF #701756).
1584MH-E now supports several spam filters including Bogofilter, 1584MH-E now supports several spam filters including Bogofilter,
1585SpamProbe, and SpamAssassin. Spam that is mistakenly considered to be 1585SpamProbe, and SpamAssassin. Spam that is mistakenly considered to be
1586good mail can be reclassified as spam with "J b (mh-junk-blacklist)". 1586good mail can be reclassified as spam with "J b (mh-junk-blacklist)".
1587Conversely, good mail that is accidently considered to be spam can be 1587Conversely, good mail that is accidentally considered to be spam can be
1588reclassified with "J w (mh-junk-whitelist)" (closes SF #669518). 1588reclassified with "J w (mh-junk-whitelist)" (closes SF #669518).
1589 1589
1590If a message is blacklisted, and `mh-junk-mail-folder' is a string, 1590If a message is blacklisted, and `mh-junk-mail-folder' is a string,
diff --git a/etc/NEWS b/etc/NEWS
index b9192c72b5e..fe481c4ed8f 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -253,6 +253,7 @@ off by customizing x-gtk-use-system-tooltips.
253** New basic faces `error', `warning', `success' are available to 253** New basic faces `error', `warning', `success' are available to
254highlight strings that indicate failure, caution or successful operation. 254highlight strings that indicate failure, caution or successful operation.
255 255
256---
256** Lucid menus and dialogs can display antialiased fonts if Emacs is built 257** Lucid menus and dialogs can display antialiased fonts if Emacs is built
257with Xft. To change font, use the X resource font, for example: 258with Xft. To change font, use the X resource font, for example:
258Emacs.pane.menubar.font: Courier-12 259Emacs.pane.menubar.font: Courier-12
@@ -379,7 +380,7 @@ The elisp implementation sha1.el is removed. Feature sha1 is provided
379by default. 380by default.
380 381
381** Menu-bar changes 382** Menu-bar changes
382 383---
383*** `menu-bar-select-buffer-function' lets you choose another operation 384*** `menu-bar-select-buffer-function' lets you choose another operation
384instead of `switch-to-buffer' when selecting an item in the Buffers menu. 385instead of `switch-to-buffer' when selecting an item in the Buffers menu.
385 386
@@ -550,6 +551,13 @@ at high rate, e.g. if you lean on some key, because stopping redisplay
550in the middle (when this variable is nil) forces more expensive 551in the middle (when this variable is nil) forces more expensive
551updates later on, and Emacs appears to be unable to keep up. 552updates later on, and Emacs appears to be unable to keep up.
552 553
554+++
555** The behavior of <TAB> for active regions in Text mode has changed.
556In Text and related modes, typing <TAB> (`indent-for-tab-command')
557when the region is active causes Emacs to indent all the lines in the
558region, aligning them with the line previous to the first line in the
559region (or with the left margin if there is no previous line).
560
553 561
554* Changes in Specialized Modes and Packages in Emacs 24.1 562* Changes in Specialized Modes and Packages in Emacs 24.1
555 563
@@ -725,6 +733,11 @@ more variants, including Mercury, and a lot more.
725*** The command `rmail-epa-decrypt' decrypts OpenPGP data 733*** The command `rmail-epa-decrypt' decrypts OpenPGP data
726in the Rmail incoming message. 734in the Rmail incoming message.
727 735
736---
737*** The variable `rmail-message-filter' no longer has any effect.
738This change was made in Emacs 23.1 but was not advertised at the time.
739Try using `rmail-show-message-hook' instead.
740
728** Shell mode 741** Shell mode
729 742
730*** Shell mode uses pcomplete rules, with the standard completion UI. 743*** Shell mode uses pcomplete rules, with the standard completion UI.
@@ -1327,6 +1340,8 @@ as well as those in the -*- line.
1327 1340
1328** keymaps can inherit from multiple parents. 1341** keymaps can inherit from multiple parents.
1329 1342
1343** `debug-on-event' lets you debug Emacs when stuck because of inhibit-quit.
1344
1330+++ 1345+++
1331** New reader macro ## which stands for the empty symbol. 1346** New reader macro ## which stands for the empty symbol.
1332This means that the empty symbol can now be read back. Also, #: by itself 1347This means that the empty symbol can now be read back. Also, #: by itself
diff --git a/etc/NEWS.1-17 b/etc/NEWS.1-17
index dc9922ed989..8b861cca875 100644
--- a/etc/NEWS.1-17
+++ b/etc/NEWS.1-17
@@ -1198,7 +1198,7 @@ them with `\='. For example, "\\=\\= is the way to quote \\=\\["
1198will come out as `\= is the way to quote \['. 1198will come out as `\= is the way to quote \['.
1199 1199
1200The new function `substitute-command-keys' takes a string possibly 1200The new function `substitute-command-keys' takes a string possibly
1201contaning \[...] constructs and replaces those constructs with 1201containing \[...] constructs and replaces those constructs with
1202the key sequences they currently stand for. 1202the key sequences they currently stand for.
1203 1203
1204* Primitives `find-line-comment' and `find-line-comment-body' flushed. 1204* Primitives `find-line-comment' and `find-line-comment-body' flushed.
@@ -1630,7 +1630,7 @@ Changes in Emacs 1.12
1630 read-char now returns a value in the range 128-255 if 1630 read-char now returns a value in the range 128-255 if
1631 a Meta character is typed. When interpreted as command 1631 a Meta character is typed. When interpreted as command
1632 input, a Meta character is equivalent to a two character 1632 input, a Meta character is equivalent to a two character
1633 sequence, the meta prefix character followed by the un-metized 1633 sequence, the meta prefix character followed by the unmetized
1634 character (Meta-G unmetized is G). 1634 character (Meta-G unmetized is G).
1635 1635
1636 The meta prefix character 1636 The meta prefix character
diff --git a/etc/NEWS.22 b/etc/NEWS.22
index 5e95e40b04c..87d77cf52fc 100644
--- a/etc/NEWS.22
+++ b/etc/NEWS.22
@@ -163,7 +163,7 @@ delimiters will appear to be fontified (in the new face
163customize `font-lock-comment-face'. Another alternative is to use a 163customize `font-lock-comment-face'. Another alternative is to use a
164newer terminal emulator that supports more colors (256 is now common). 164newer terminal emulator that supports more colors (256 is now common).
165For example, for xterm compatible emulators that support 256 colors, 165For example, for xterm compatible emulators that support 256 colors,
166you can run emacs like this: 166you can run emacs like this:
167env TERM=xterm-256color emacs -nw 167env TERM=xterm-256color emacs -nw
168(This was new in Emacs 22.1, but was not described. In Emacs 22.1 168(This was new in Emacs 22.1, but was not described. In Emacs 22.1
169this also happened for terminals with a light background, that is not 169this also happened for terminals with a light background, that is not
@@ -280,13 +280,13 @@ the files mac/README and mac/INSTALL for build instructions.
280** Support for FreeBSD/Alpha has been added. 280** Support for FreeBSD/Alpha has been added.
281 281
282** New translations of the Emacs Tutorial are available in the 282** New translations of the Emacs Tutorial are available in the
283following languages: Brasilian Portuguese, Bulgarian, Chinese (both 283following languages: Brazilian Portuguese, Bulgarian, Chinese (both
284with simplified and traditional characters), French, Russian, and 284with simplified and traditional characters), French, Russian, and
285Italian. Type `C-u C-h t' to choose one of them in case your language 285Italian. Type `C-u C-h t' to choose one of them in case your language
286setup doesn't automatically select the right one. 286setup doesn't automatically select the right one.
287 287
288** New translations of the Emacs reference card are available in the 288** New translations of the Emacs reference card are available in the
289Brasilian Portuguese and Russian. The corresponding PostScript files 289Brazilian Portuguese and Russian. The corresponding PostScript files
290are also included. 290are also included.
291 291
292** A French translation of the `Emacs Survival Guide' is available. 292** A French translation of the `Emacs Survival Guide' is available.
@@ -1026,7 +1026,7 @@ parts of the mode line.
1026 1026
1027*** `shadow' face defines the appearance of the "shadowed" text, i.e. 1027*** `shadow' face defines the appearance of the "shadowed" text, i.e.
1028the text which should be less noticeable than the surrounding text. 1028the text which should be less noticeable than the surrounding text.
1029This can be achieved by using shades of grey in contrast with either 1029This can be achieved by using shades of gray in contrast with either
1030black or white default foreground color. This generic shadow face 1030black or white default foreground color. This generic shadow face
1031allows customization of the appearance of shadowed text in one place, 1031allows customization of the appearance of shadowed text in one place,
1032so package-specific faces can inherit from it. 1032so package-specific faces can inherit from it.
@@ -2558,10 +2558,10 @@ is nil).
2558 2558
2559*** Minor Improvements 2559*** Minor Improvements
2560 2560
2561**** The STARTTLS wrapper (starttls.el) can now use GNUTLS 2561**** The STARTTLS wrapper (starttls.el) can now use GnuTLS
2562instead of the OpenSSL based `starttls' tool. For backwards 2562instead of the OpenSSL based `starttls' tool. For backwards
2563compatibility, it prefers `starttls', but you can toggle 2563compatibility, it prefers `starttls', but you can toggle
2564`starttls-use-gnutls' to switch to GNUTLS (or simply remove the 2564`starttls-use-gnutls' to switch to GnuTLS (or simply remove the
2565`starttls' tool). 2565`starttls' tool).
2566 2566
2567**** Do not allow debugger output history variable to grow without bounds. 2567**** Do not allow debugger output history variable to grow without bounds.
diff --git a/etc/NEWS.23 b/etc/NEWS.23
index 9b8909d794a..4e541c0deb3 100644
--- a/etc/NEWS.23
+++ b/etc/NEWS.23
@@ -793,7 +793,7 @@ starts the server. Clients can connect and create graphical or
793terminal frames using emacsclient. 793terminal frames using emacsclient.
794 794
795**** emacsclient starts emacs in daemon mode and connects to it when 795**** emacsclient starts emacs in daemon mode and connects to it when
796--alternate-editor="" is used (or when the evironment variable 796--alternate-editor="" is used (or when the environment variable
797ALTERNATE_EDITOR is set to "") and emacsclient cannot connect to an 797ALTERNATE_EDITOR is set to "") and emacsclient cannot connect to an
798emacs server. 798emacs server.
799 799
@@ -1027,8 +1027,8 @@ motion keys (e.g. S-left and S-down) activate and extend a temporary
1027region, similar to mouse-selection. 1027region, similar to mouse-selection.
1028 1028
1029*** Temporarily active regions, created using shift-selection or 1029*** Temporarily active regions, created using shift-selection or
1030mouse-selection, are not necessarily deactivated in the next command. 1030mouse-selection, are not necessarily deactivated after the next command.
1031They are only deactivated after point motion commands that are not 1031They are deactivated only after point motion commands that are not
1032shift-translated, or after commands that would ordinarily deactivate 1032shift-translated, or after commands that would ordinarily deactivate
1033the mark in Transient Mark mode (e.g., any command that modifies the 1033the mark in Transient Mark mode (e.g., any command that modifies the
1034buffer). 1034buffer).
diff --git a/etc/TODO b/etc/TODO
index f9d37c4b965..5acd8734ad0 100644
--- a/etc/TODO
+++ b/etc/TODO
@@ -841,7 +841,7 @@ more detailed diagnosis.
841 841
842**** Provide an Error Summary buffer showing all the validation errors. 842**** Provide an Error Summary buffer showing all the validation errors.
843 843
844**** Pop-up menu. What is useful? Tag a region (should be greyed out if 844**** Pop-up menu. What is useful? Tag a region (should be grayed out if
845the region is not balanced). Suggestions based on error messages. 845the region is not balanced). Suggestions based on error messages.
846 846
847**** Have configurable list of namespace URIs so that we can provide 847**** Have configurable list of namespace URIs so that we can provide
diff --git a/etc/e/eterm-color.ti b/etc/e/eterm-color.ti
index 0ddb7ec5408..a6ef8149900 100644
--- a/etc/e/eterm-color.ti
+++ b/etc/e/eterm-color.ti
@@ -7,7 +7,7 @@ eterm-color|Emacs term.el terminal emulator term-protocol-version 0.96,
7# When updating this file, etc/e/eterm-color should be regenerated by 7# When updating this file, etc/e/eterm-color should be regenerated by
8# running "make e/eterm-color" in the etc directory. 8# running "make e/eterm-color" in the etc directory.
9# Any change to this file should be done at the same time with a 9# Any change to this file should be done at the same time with a
10# corresponding change to the TERMCAP evironment variable in term.el. 10# corresponding change to the TERMCAP environment variable in term.el.
11# Comments in term.el specify where each of these capabilities is implemented. 11# Comments in term.el specify where each of these capabilities is implemented.
12 colors#8, 12 colors#8,
13 cols#80, 13 cols#80,
diff --git a/etc/refcards/gnus-refcard.tex b/etc/refcards/gnus-refcard.tex
index b164a28842e..9f13974584d 100644
--- a/etc/refcards/gnus-refcard.tex
+++ b/etc/refcards/gnus-refcard.tex
@@ -13,7 +13,7 @@
13% 13%
14% latex gnus-refcard.tex && 14% latex gnus-refcard.tex &&
15% dvips -t letter -f gnus-refcard.dvi > gnus-refcard.ps 15% dvips -t letter -f gnus-refcard.dvi > gnus-refcard.ps
16% 16%
17% latex '\def\booklettrue{}\def\letterpapertrue{}\input{gnus-refcard}' && 17% latex '\def\booklettrue{}\def\letterpapertrue{}\input{gnus-refcard}' &&
18% mv gnus-refcard.dvi gnus-booklet.dvi && 18% mv gnus-refcard.dvi gnus-booklet.dvi &&
19% dvips -t letter -f gnus-booklet.dvi > gnus-booklet.ps 19% dvips -t letter -f gnus-booklet.dvi > gnus-booklet.ps
@@ -35,16 +35,16 @@
35 35
36\ifthenelse{\isundefined{\booklettrue}}{% ifcard %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 36\ifthenelse{\isundefined{\booklettrue}}{% ifcard %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
37 % Reference Card 37 % Reference Card
38 38
39 \def\Guide{Card}\def\guide{card} 39 \def\Guide{Card}\def\guide{card}
40 \def\logoscale{0.25} 40 \def\logoscale{0.25}
41 41
42 % Page setup for the refcard: 42 % Page setup for the refcard:
43 43
44 % \setlength{\textwidth}{7.26in} \setlength{\textheight}{10in} 44 % \setlength{\textwidth}{7.26in} \setlength{\textheight}{10in}
45 % \setlength{\topmargin}{-1.0in} 45 % \setlength{\topmargin}{-1.0in}
46 % % the same settings work for A4, although there is a bit of space at the 46 % % the same settings work for A4, although there is a bit of space at the
47 % % top and bottom of the page. 47 % % top and bottom of the page.
48 % \setlength{\oddsidemargin}{-0.5in} \setlength{\evensidemargin}{-0.5in} 48 % \setlength{\oddsidemargin}{-0.5in} \setlength{\evensidemargin}{-0.5in}
49 49
50 \ifthenelse{\isundefined{\letterpapertrue}}{ 50 \ifthenelse{\isundefined{\letterpapertrue}}{
@@ -52,19 +52,19 @@
52 }{ 52 }{
53 \geometry{hmargin=20mm,tmargin=10mm,bmargin=12mm} 53 \geometry{hmargin=20mm,tmargin=10mm,bmargin=12mm}
54 } 54 }
55 55
56}{ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 56}{ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
57 % Reference Booklet 57 % Reference Booklet
58 58
59 \def\Guide{Booklet}\def\guide{booklet} 59 \def\Guide{Booklet}\def\guide{booklet}
60 \def\logoscale{0.5}% FIXME: too large for 2up printing? --rsteib 60 \def\logoscale{0.5}% FIXME: too large for 2up printing? --rsteib
61 61
62 \ifthenelse{\isundefined{\letterpapertrue}}{ 62 \ifthenelse{\isundefined{\letterpapertrue}}{
63 \geometry{a5paper,hmargin=10mm,tmargin=10mm,bmargin=4mm} 63 \geometry{a5paper,hmargin=10mm,tmargin=10mm,bmargin=4mm}
64 }{ 64 }{
65 \geometry{a5paper,hmargin=20mm,tmargin=10mm,bmargin=4mm} 65 \geometry{a5paper,hmargin=20mm,tmargin=10mm,bmargin=4mm}
66 } 66 }
67 67
68 \def\sec{\section} 68 \def\sec{\section}
69 \def\subsec{\subsection} 69 \def\subsec{\subsection}
70 \def\subsubsec{\subsubsection} 70 \def\subsubsec{\subsubsection}
@@ -73,7 +73,7 @@
73 \par\vspace*{\fill}\pagebreak} 73 \par\vspace*{\fill}\pagebreak}
74}%ifbooklet% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 74}%ifbooklet% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
75 75
76% \input{gnusref} % % % % % % % % % % % % % % % % % % % % % % % % % % 76% \input{gnusref} % % % % % % % % % % % % % % % % % % % % % % % % % %
77%% include file for the Gnus refcard and booklet 77%% include file for the Gnus refcard and booklet
78 78
79\def\progver{5.11} % program version 79\def\progver{5.11} % program version
@@ -218,7 +218,7 @@
218 \hline 218 \hline
219 \multicolumn{2}{|p{\markdblcolwidth}|}{{\bf ``Read'' Marks.} 219 \multicolumn{2}{|p{\markdblcolwidth}|}{{\bf ``Read'' Marks.}
220 All these marks appear in the first column of the summary line, and so 220 All these marks appear in the first column of the summary line, and so
221 are mutually exclusive.}\\ 221 are mutually exclusive.}\\
222 \hline 222 \hline
223 ` ' & (M-u, M SPC, M c) Not read.\\ 223 ` ' & (M-u, M SPC, M c) Not read.\\
224 ! & (!, M !, M t) Ticked (interesting).\\ 224 ! & (!, M !, M t) Ticked (interesting).\\
@@ -284,7 +284,7 @@
284 [Prefix: use group under point to find posting-style].\\ 284 [Prefix: use group under point to find posting-style].\\
285 b & Find {\bf bogus} groups and delete them.\\ 285 b & Find {\bf bogus} groups and delete them.\\
286 c & Mark all unticked articles in group as read ({\bf catch-up}). 286 c & Mark all unticked articles in group as read ({\bf catch-up}).
287 [p/p]\\ 287 [p/p]\\
288 g & Check the server for new articles ({\bf get}). [level]\\ 288 g & Check the server for new articles ({\bf get}). [level]\\
289 M-g & Check the server for new articles in this group ({\bf get}). [p/p]\\ 289 M-g & Check the server for new articles in this group ({\bf get}). [p/p]\\
290 j & {\bf Jump} to a group.\\ 290 j & {\bf Jump} to a group.\\
@@ -292,14 +292,14 @@
292 [Prefix: use group under point to find posting-style].\\ 292 [Prefix: use group under point to find posting-style].\\
293 n & Go to the {\bf next} group with unread articles. [distance]\\ 293 n & Go to the {\bf next} group with unread articles. [distance]\\
294 M-n & Go to the {\bf next} group on the same or lower level. 294 M-n & Go to the {\bf next} group on the same or lower level.
295 [distance]\\ 295 [distance]\\
296 p & (DEL) Go to the {\bf previous} group with unread articles. 296 p & (DEL) Go to the {\bf previous} group with unread articles.
297 [distance]\\ 297 [distance]\\
298 M-p & Go to the {\bf previous} group on the same or lower level. [distance]\\ 298 M-p & Go to the {\bf previous} group on the same or lower level. [distance]\\
299 q & {\bf Quit} Gnus.\\ 299 q & {\bf Quit} Gnus.\\
300 r & Re-read the init file ({\bf reset}).\\ 300 r & Re-read the init file ({\bf reset}).\\
301 s & {\bf Save} `.newsrc.eld' file (and `.newsrc' if 301 s & {\bf Save} `.newsrc.eld' file (and `.newsrc' if
302 `gnus-save-newsrc-file').\\ 302 `gnus-save-newsrc-file').\\
303 z & Suspend (kill all buffers of) Gnus.\\ 303 z & Suspend (kill all buffers of) Gnus.\\
304 B & {\bf Browse} a foreign server.\\ 304 B & {\bf Browse} a foreign server.\\
305 C & Mark all articles in this group as read ({\bf Catch-up}). [p/p]\\ 305 C & Mark all articles in this group as read ({\bf Catch-up}). [p/p]\\
@@ -312,7 +312,7 @@
312 M-c & Clear data from group (marks and list of read articles). \\ 312 M-c & Clear data from group (marks and list of read articles). \\
313 C-c C-s & {\bf Sort} the groups by name, number of unread articles, or level 313 C-c C-s & {\bf Sort} the groups by name, number of unread articles, or level
314 (depending on `gnus-group-sort-function').\\ 314 (depending on `gnus-group-sort-function').\\
315 C-c C-x & Run all expirable articles in group through the {\bf expiry} 315 C-c C-x & Run all expirable articles in group through the {\bf expiry}
316 process.\\ 316 process.\\
317 C-c M-C-x & Run all articles in all groups through the {\bf expiry} process.\\ 317 C-c M-C-x & Run all articles in all groups through the {\bf expiry} process.\\
318 C-c M-g & Activate all {\bf groups}.\\ 318 C-c M-g & Activate all {\bf groups}.\\
@@ -324,7 +324,7 @@
324 ange-ftp). [Prefix: query for group]\\ 324 ange-ftp). [Prefix: query for group]\\
325 H v & (V) Display the Gnus {\bf version} number.\\ 325 H v & (V) Display the Gnus {\bf version} number.\\
326 H d & (C-c C-d) Show the {\bf description} of this group 326 H d & (C-c C-d) Show the {\bf description} of this group
327 [Prefix: re-read from server].\\ 327 [Prefix: re-read from server].\\
328 M-d & {\bf Describe} all groups. [Prefix: re-read from server]\\ 328 M-d & {\bf Describe} all groups. [Prefix: re-read from server]\\
329 D g & Regenerate a Sieve script from group parameters.\\ 329 D g & Regenerate a Sieve script from group parameters.\\
330 D u & Regenerate Sieve script and {\bf upload} to server.\\ 330 D u & Regenerate Sieve script and {\bf upload} to server.\\
@@ -334,17 +334,17 @@
334\newcommand{\ListGroups}{% 334\newcommand{\ListGroups}{%
335 {\esamepage 335 {\esamepage
336 \begin{keys}{A M} 336 \begin{keys}{A M}
337 A d & (C-c C-M-a) List all groups whose names or {\bf descriptions} match a regexp.\\ 337 A d & (C-c C-M-a) List all groups whose names or {\bf descriptions} match a regexp.\\
338 A k & (C-c C-l) List all {\bf killed} groups. 338 A k & (C-c C-l) List all {\bf killed} groups.
339 [Prefix: look at active-file from server]\\ 339 [Prefix: look at active-file from server]\\
340 A l & List all groups on a specific level. 340 A l & List all groups on a specific level.
341 [Prefix: also list groups with no unread articles]\\ 341 [Prefix: also list groups with no unread articles]\\
342 A a & (C-c C-a) List all groups whose names match a regexp 342 A a & (C-c C-a) List all groups whose names match a regexp
343 ({\bf apropos}).\\ 343 ({\bf apropos}).\\
344 A A & List the server's active-file.\\ 344 A A & List the server's active-file.\\
345 A M & List groups that {\bf match} a regexp.\\ 345 A M & List groups that {\bf match} a regexp.\\
346 A m & List groups that {\bf match} a regexp and have unread articles. 346 A m & List groups that {\bf match} a regexp and have unread articles.
347 [level]\\ 347 [level]\\
348 A s & (l) List all {\bf subscribed} groups with unread articles. 348 A s & (l) List all {\bf subscribed} groups with unread articles.
349 [level; 5 and lower is the default]\\ 349 [level; 5 and lower is the default]\\
350 A u & (L) List all groups (including read and {\bf unsubscribed}). 350 A u & (L) List all groups (including read and {\bf unsubscribed}).
@@ -354,7 +354,7 @@
354 A ? & List all groups with dormant articles. [level]\\ 354 A ? & List all groups with dormant articles. [level]\\
355 \end{keys} 355 \end{keys}
356 } 356 }
357 357
358 \newcommand{\CreateEditGroups}{% 358 \newcommand{\CreateEditGroups}{%
359 {\esamepage 359 {\esamepage
360 The select methods are indicated in parentheses.\\* 360 The select methods are indicated in parentheses.\\*
@@ -404,8 +404,8 @@
404 M m & (\#) Set the process {\bf mark} on this group. [scope]\\ 404 M m & (\#) Set the process {\bf mark} on this group. [scope]\\
405 M r & Mark all groups matching regular expression.\\ 405 M r & Mark all groups matching regular expression.\\
406 M u & (M-\#) Remove process mark from this group ({\bf unmark}). 406 M u & (M-\#) Remove process mark from this group ({\bf unmark}).
407 [scope]\\ 407 [scope]\\
408 M U & Remove the process mark from all groups (\textbf{umark all}).\\ 408 M U & Remove the process mark from all groups (\textbf{unmark all}).\\
409 M w & Mark all groups in the current region. [prefix: unmark]\\ 409 M w & Mark all groups in the current region. [prefix: unmark]\\
410 M b & Mark all groups in the {\bf buffer}. [prefix: unmark]\\ 410 M b & Mark all groups in the {\bf buffer}. [prefix: unmark]\\
411 \end{keys}} 411 \end{keys}}
@@ -427,7 +427,7 @@
427 T DEL & Delete an empty topic.\\ 427 T DEL & Delete an empty topic.\\
428 T \# & Mark all groups in the current topic with the process-mark.\\ 428 T \# & Mark all groups in the current topic with the process-mark.\\
429 T M-\# & Remove the process-mark from all groups in the current topic.\\ 429 T M-\# & Remove the process-mark from all groups in the current topic.\\
430 T TAB & (TAB) Indent current topic [Prefix: unindent].\\ 430 T TAB & (TAB) Indent current topic [Prefix: unindent].\\
431 M-TAB & Unindent the current topic.\\ 431 M-TAB & Unindent the current topic.\\
432 RET & (SPC) Either unfold topic or enter group [level].\\ 432 RET & (SPC) Either unfold topic or enter group [level].\\
433 T s & {\bf Show} the current topic. [Prefix: show permanently]\\ 433 T s & {\bf Show} the current topic. [Prefix: show permanently]\\
@@ -478,7 +478,7 @@
478 {\esamepage 478 {\esamepage
479 \begin{keys}{M-RET} 479 \begin{keys}{M-RET}
480 SPC & (A SPC, A n) Select an article, scroll it one page, move to the 480 SPC & (A SPC, A n) Select an article, scroll it one page, move to the
481 next one.\\ 481 next one.\\
482 DEL & (A DEL, A p, b) Scroll this article one page back. [distance]\\ 482 DEL & (A DEL, A p, b) Scroll this article one page back. [distance]\\
483 RET & (A RET) Scroll this article one line forward. [distance]\\ 483 RET & (A RET) Scroll this article one line forward. [distance]\\
484 M-RET & (A M-RET) Scroll this article one line backward. [distance]\\ 484 M-RET & (A M-RET) Scroll this article one line backward. [distance]\\
@@ -490,9 +490,9 @@
490 M-\& & Execute a command on all articles having the process mark.\\ 490 M-\& & Execute a command on all articles having the process mark.\\
491 % 491 %
492 M-n & (G M-n) Go to {\bf next} summary line of unread article. 492 M-n & (G M-n) Go to {\bf next} summary line of unread article.
493 [distance]\\ 493 [distance]\\
494 M-p & (G M-p) Go to {\bf previous} summary line of an unread article. 494 M-p & (G M-p) Go to {\bf previous} summary line of an unread article.
495 [distance]\\ 495 [distance]\\
496 M-s & {\bf Search} through all subsequent articles for a regexp.\\ 496 M-s & {\bf Search} through all subsequent articles for a regexp.\\
497 M-r & Search through all previous articles for a regexp.\\ 497 M-r & Search through all previous articles for a regexp.\\
498 % 498 %
@@ -519,7 +519,7 @@
519 M-C-d & Like C-d, but open several documents in nndoc-groups, wrapped 519 M-C-d & Like C-d, but open several documents in nndoc-groups, wrapped
520 in an nnvirtual group [p/p]\\ 520 in an nnvirtual group [p/p]\\
521 % 521 %
522 A g & (g) (Re)fetch this article ({\bf get}). [Prefix: get raw version]\\ 522 A g & (g) (Re)fetch this article ({\bf get}). [Prefix: get raw version]\\
523 A r & (\^{}, A \^{}) Fetch the parent(s) of this article. 523 A r & (\^{}, A \^{}) Fetch the parent(s) of this article.
524 [Prefix: if positive fetch \textit{n} ancestors; 524 [Prefix: if positive fetch \textit{n} ancestors;
525 negative: fetch only the \textit{n}th ancestor]\\ 525 negative: fetch only the \textit{n}th ancestor]\\
@@ -541,7 +541,7 @@
541 prefix selects which part to operate on. If the point is placed over a 541 prefix selects which part to operate on. If the point is placed over a
542 MIME button in the article buffer, use the corresponding bindings for the 542 MIME button in the article buffer, use the corresponding bindings for the
543 article buffer instead. 543 article buffer instead.
544 544
545 \begin{keys}{W M w} 545 \begin{keys}{W M w}
546 K v & (b, W M b) {\bf View} the MIME-part.\\ 546 K v & (b, W M b) {\bf View} the MIME-part.\\
547 K o & {\bf Save} the MIME part.\\ 547 K o & {\bf Save} the MIME part.\\
@@ -597,7 +597,7 @@
597 B t & {\bf Trace} the fancy splitting patterns applied to this article.\\ 597 B t & {\bf Trace} the fancy splitting patterns applied to this article.\\
598 B w & (e) Edit this article.\\ 598 B w & (e) Edit this article.\\
599 B M-C-e & {\bf Expunge} (delete from disk) all expirable articles in this group 599 B M-C-e & {\bf Expunge} (delete from disk) all expirable articles in this group
600 (!). [p/p]\\ 600 (!). [p/p]\\
601 K E & {\bf Encrypt} article body. [p/p]\\ 601 K E & {\bf Encrypt} article body. [p/p]\\
602 \end{keys} 602 \end{keys}
603 } 603 }
@@ -665,7 +665,7 @@
665 W 6 & Translate a base64 article.\\ 665 W 6 & Translate a base64 article.\\
666 W a & Strip certain {\bf headers} from body.\\ 666 W a & Strip certain {\bf headers} from body.\\
667 W b & Make Message-IDs and URLs in the article mouse-clickable 667 W b & Make Message-IDs and URLs in the article mouse-clickable
668 {\bf buttons}.\\ 668 {\bf buttons}.\\
669 W c & Translate CRLF-pairs to LF and then remaining CR's to LF's.\\ 669 W c & Translate CRLF-pairs to LF and then remaining CR's to LF's.\\
670 W d & Treat {\bf dumbquotes}.\\ 670 W d & Treat {\bf dumbquotes}.\\
671 W e & Treat {\bf emphasized} text.\\ 671 W e & Treat {\bf emphasized} text.\\
@@ -698,7 +698,7 @@
698 } 698 }
699 } 699 }
700 700
701 \newcommand{\BlankAndWhitespace}{% 701 \newcommand{\BlankAndWhitespace}{%
702 {\esamepage 702 {\esamepage
703 \begin{keys}{W E w} 703 \begin{keys}{W E w}
704 W E l & Strip blank {\bf lines} from the beginning of the article.\\ 704 W E l & Strip blank {\bf lines} from the beginning of the article.\\
@@ -715,7 +715,7 @@
715 } 715 }
716 } 716 }
717 717
718 \newcommand{\Picons}{% 718 \newcommand{\Picons}{%
719 {\esamepage 719 {\esamepage
720 \begin{keys}{W D D} 720 \begin{keys}{W D D}
721 W D s & (W g) Display {\bf smilies}.\\ 721 W D s & (W g) Display {\bf smilies}.\\
@@ -729,7 +729,7 @@
729 } 729 }
730 } 730 }
731 731
732 \newcommand{\TimeAndDate}{% 732 \newcommand{\TimeAndDate}{%
733 {\esamepage 733 {\esamepage
734 \begin{keys}{W T u} 734 \begin{keys}{W T u}
735 W T u & (W T z) Display the article timestamp in GMT ({\bf UT, ZULU}).\\ 735 W T u & (W T z) Display the article timestamp in GMT ({\bf UT, ZULU}).\\
@@ -739,7 +739,7 @@
739 W T e & Display the time {\bf elapsed} since it was sent.\\ 739 W T e & Display the time {\bf elapsed} since it was sent.\\
740 W T o & Display the {\bf original} timestamp.\\ 740 W T o & Display the {\bf original} timestamp.\\
741 W T p & Display the date in format that's {\bf 741 W T p & Display the date in format that's {\bf
742 pronounceable} in English.\\ 742 pronounceable} in English.\\
743 \end{keys} 743 \end{keys}
744 } 744 }
745 } 745 }
@@ -793,26 +793,26 @@
793 {\esamepage 793 {\esamepage
794 \begin{keys}{M M-C-r} 794 \begin{keys}{M M-C-r}
795 d & (M d, M r) Mark this article as read and move to the next one. 795 d & (M d, M r) Mark this article as read and move to the next one.
796 [scope]\\ 796 [scope]\\
797 D & Mark this article as read and move to previous one. [scope]\\ 797 D & Mark this article as read and move to previous one. [scope]\\
798 ! & (u, M !, M t) Tick this article (mark it as interesting) and move 798 ! & (u, M !, M t) Tick this article (mark it as interesting) and move
799 to the next one. [scope]\\ 799 to the next one. [scope]\\
800 U & Tick this article and move to the previous one. [scope]\\ 800 U & Tick this article and move to the previous one. [scope]\\
801 M ? & (?) Mark this article as dormant (only followups are 801 M ? & (?) Mark this article as dormant (only followups are
802 interesting). [scope]\\ 802 interesting). [scope]\\
803 M D & Show all {\bf dormant} articles (normally they are hidden unless they 803 M D & Show all {\bf dormant} articles (normally they are hidden unless they
804 have any followups).\\ 804 have any followups).\\
805 M M-D & Hide all {\bf dormant} articles.\\ 805 M M-D & Hide all {\bf dormant} articles.\\
806 C-w & Mark all articles between point and mark as read.\\ 806 C-w & Mark all articles between point and mark as read.\\
807 M-u & (M SPC, M c) Clear all marks from this article and move to the next 807 M-u & (M SPC, M c) Clear all marks from this article and move to the next
808 one. [scope]\\ 808 one. [scope]\\
809 M-U & Clear all marks from this article and move to the previous one. 809 M-U & Clear all marks from this article and move to the previous one.
810 [scope]\\ 810 [scope]\\
811 % 811 %
812 M e & (E, M x) Mark this article as {\bf expirable}. [scope]\\ 812 M e & (E, M x) Mark this article as {\bf expirable}. [scope]\\
813 % 813 %
814 M k & (k) {\bf Kill} all articles with same subject, select 814 M k & (k) {\bf Kill} all articles with same subject, select
815 next unread one.\\ 815 next unread one.\\
816 M K & (C-k) {\bf Kill} all articles with the same subject as this one.\\ 816 M K & (C-k) {\bf Kill} all articles with the same subject as this one.\\
817 % 817 %
818 M C & {\bf Catch-up} the articles that are not ticked and not dormant.\\ 818 M C & {\bf Catch-up} the articles that are not ticked and not dormant.\\
@@ -842,7 +842,7 @@
842 } 842 }
843 843
844\newcommand{\ProcessMark}{% 844\newcommand{\ProcessMark}{%
845 {\esamepage 845 {\esamepage
846 These commands set and remove the process mark (\#). You only need to use 846 These commands set and remove the process mark (\#). You only need to use
847 it if the set of articles you want to operate on is non-contiguous. Else 847 it if the set of articles you want to operate on is non-contiguous. Else
848 use a numeric prefix.\\* 848 use a numeric prefix.\\*
@@ -929,7 +929,7 @@
929 %After 929 %After
930 %editing the article, send it by pressing C-c C-c. If you are in a 930 %editing the article, send it by pressing C-c C-c. If you are in a
931 %foreign group and want to post the article using the foreign server, give 931 %foreign group and want to post the article using the foreign server, give
932 %a prefix to C-c C-c.\\* 932 %a prefix to C-c C-c.\\*
933 \begin{keys}{S O m} 933 \begin{keys}{S O m}
934 S p & (a) {\bf Post} an article to this group.\\ 934 S p & (a) {\bf Post} an article to this group.\\
935 S f & (f) Post a {\bf followup} to this article.\\ 935 S f & (f) Post a {\bf followup} to this article.\\
@@ -965,7 +965,7 @@
965 % 965 %
966 S O m & Digest these series and forward by {\bf mail}. [p/p]\\ 966 S O m & Digest these series and forward by {\bf mail}. [p/p]\\
967 S O p & Digest these series and forward as a {\bf post} to a newsgroup. 967 S O p & Digest these series and forward as a {\bf post} to a newsgroup.
968 [p/p]\\ 968 [p/p]\\
969 % 969 %
970 S u & {\bf Uuencode} a file and post it as a series.\\ 970 S u & {\bf Uuencode} a file and post it as a series.\\
971 \end{keys} 971 \end{keys}
@@ -1036,8 +1036,8 @@
1036 \quad \B{l}ifetime: t)emporary, p)ermanent, i)mmediate. 1036 \quad \B{l}ifetime: t)emporary, p)ermanent, i)mmediate.
1037 1037
1038 If you type the second letter in uppercase, the remaining two are assumed 1038 If you type the second letter in uppercase, the remaining two are assumed
1039 to be s)ubstring and t)emporary. 1039 to be s)ubstring and t)emporary.
1040 If you type the third letter in uppercase, the last one is assumed to be 1040 If you type the third letter in uppercase, the last one is assumed to be
1041 t)emporary. 1041 t)emporary.
1042 1042
1043 \quad Extra keys for manual editing of a score file:\\* 1043 \quad Extra keys for manual editing of a score file:\\*
@@ -1057,7 +1057,7 @@
1057 archives, they are expanded and gathered in a new group.\\* 1057 archives, they are expanded and gathered in a new group.\\*
1058 \begin{keys}{X p} 1058 \begin{keys}{X p}
1059 X b & Un-{\bf binhex} these series. [p/p]\\ 1059 X b & Un-{\bf binhex} these series. [p/p]\\
1060 X o & Simply {\bf output} these series (no decoding). [p/p]\\ 1060 X o & Simply {\bf output} these series (no decoding). [p/p]\\
1061 X p & Unpack these {\bf postscript} series. [p/p]\\ 1061 X p & Unpack these {\bf postscript} series. [p/p]\\
1062 X s & Un-{\bf shar} these series. [p/p]\\ 1062 X s & Un-{\bf shar} these series. [p/p]\\
1063 X u & {\bf Uudecode} these series. [p/p]\\ 1063 X u & {\bf Uudecode} these series. [p/p]\\
@@ -1259,7 +1259,7 @@
1259 } 1259 }
1260 } 1260 }
1261 1261
1262% end {gnusref} % % % % % % % % % % % % % % % % % % % % % % % % % % 1262% end {gnusref} % % % % % % % % % % % % % % % % % % % % % % % % % %
1263 1263
1264 1264
1265% o some things might not be updated: scoring and server modes, maybe more 1265% o some things might not be updated: scoring and server modes, maybe more
@@ -1333,7 +1333,7 @@
1333 \SortSummary 1333 \SortSummary
1334 \subsection*{Score (Value) Commands} 1334 \subsection*{Score (Value) Commands}
1335 \Scoring 1335 \Scoring
1336 1336
1337\ifthenelse{\isundefined{\booklettrue}}{% ifcard %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 1337\ifthenelse{\isundefined{\booklettrue}}{% ifcard %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1338 \subsection*{Output Articles} 1338 \subsection*{Output Articles}
1339 \OutputArticles 1339 \OutputArticles
@@ -1343,7 +1343,7 @@
1343 1343
1344 \subsection*{MIME operations from the Summary-Buffer} 1344 \subsection*{MIME operations from the Summary-Buffer}
1345 \MIMESummary 1345 \MIMESummary
1346 1346
1347\ifthenelse{\isundefined{\booklettrue}}{}{% ifbooklet %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 1347\ifthenelse{\isundefined{\booklettrue}}{}{% ifbooklet %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1348 \subsection*{Extract Series (Uudecode etc)} 1348 \subsection*{Extract Series (Uudecode etc)}
1349 \ExtractSeries 1349 \ExtractSeries
@@ -1354,7 +1354,7 @@
1354% 1354%
1355 \subsection*{Post, Followup, Reply, Forward, Cancel} 1355 \subsection*{Post, Followup, Reply, Forward, Cancel}
1356 \PostReplyetc 1356 \PostReplyetc
1357 1357
1358\ifthenelse{\isundefined{\booklettrue}}{\newpage}{}% newpage ifcard 1358\ifthenelse{\isundefined{\booklettrue}}{\newpage}{}% newpage ifcard
1359 1359
1360 \subsection*{Message Composition} 1360 \subsection*{Message Composition}
diff --git a/etc/themes/deeper-blue-theme.el b/etc/themes/deeper-blue-theme.el
index 0fbd9496969..1a4ca82f438 100644
--- a/etc/themes/deeper-blue-theme.el
+++ b/etc/themes/deeper-blue-theme.el
@@ -22,7 +22,7 @@
22;;; Code: 22;;; Code:
23 23
24(deftheme deeper-blue 24(deftheme deeper-blue
25 "Face colors using a deep blue backgound.") 25 "Face colors using a deep blue background.")
26 26
27(let ((class '((class color) (min-colors 89)))) 27(let ((class '((class color) (min-colors 89))))
28 (custom-theme-set-faces 28 (custom-theme-set-faces
diff --git a/etc/themes/light-blue-theme.el b/etc/themes/light-blue-theme.el
index 98c74b268af..cf6ae543575 100644
--- a/etc/themes/light-blue-theme.el
+++ b/etc/themes/light-blue-theme.el
@@ -26,7 +26,7 @@
26;;; Code: 26;;; Code:
27 27
28(deftheme light-blue 28(deftheme light-blue
29 "Face colors utilizing a light blue backgound.") 29 "Face colors utilizing a light blue background.")
30 30
31(let ((class '((class color) (min-colors 89)))) 31(let ((class '((class color) (min-colors 89))))
32 (custom-theme-set-faces 32 (custom-theme-set-faces
diff --git a/leim/quail/cyrillic.el b/leim/quail/cyrillic.el
index eb5a0a00ade..b1ee78a393e 100644
--- a/leim/quail/cyrillic.el
+++ b/leim/quail/cyrillic.el
@@ -27,7 +27,7 @@
27;;; Commentary: 27;;; Commentary:
28 28
29;; These methods use a mixture of 8859-5 and Unicode. Quail, used 29;; These methods use a mixture of 8859-5 and Unicode. Quail, used
30;; with ucs-tables provides suport for translating on the fly to 30;; with ucs-tables provides support for translating on the fly to
31;; what's appropriate for aa buffer's file coding system, so the 31;; what's appropriate for aa buffer's file coding system, so the
32;; encoding shouldn't matter too much provided it supports the 32;; encoding shouldn't matter too much provided it supports the
33;; necessary characters. 33;; necessary characters.
diff --git a/leim/quail/ethiopic.el b/leim/quail/ethiopic.el
index 210aeea7e62..7e108a71a60 100644
--- a/leim/quail/ethiopic.el
+++ b/leim/quail/ethiopic.el
@@ -53,7 +53,7 @@ C-F9 or `M-x ethio-toggle-space'
53 punctuation followed by zero or more ASCII spaces'. 53 punctuation followed by zero or more ASCII spaces'.
54 54
55S-F5 or `M-x ethio-toggle-punctuation' 55S-F5 or `M-x ethio-toggle-punctuation'
56 Toggles ASCII punctuations and Ethiopic punctuations for keyboard input. 56 Toggles ASCII punctuation and Ethiopic punctuation for keyboard input.
57 The current mode is indicated by `.' (ASCII) or `$(3$i(B' (Ethiopic). 57 The current mode is indicated by `.' (ASCII) or `$(3$i(B' (Ethiopic).
58 58
59S-SPC or `M-x ethio-insert-ethio-space' 59S-SPC or `M-x ethio-insert-ethio-space'
diff --git a/leim/quail/py-punct.el b/leim/quail/py-punct.el
index 86919128011..947f54c76fa 100644
--- a/leim/quail/py-punct.el
+++ b/leim/quail/py-punct.el
@@ -8,7 +8,7 @@
8 8
9;; Author: Ken'ichi HANDA <handa@etl.go.jp> 9;; Author: Ken'ichi HANDA <handa@etl.go.jp>
10 10
11;; Keywords: multilingual, input method, Chienese 11;; Keywords: multilingual, input method, Chinese
12 12
13;; This file is part of GNU Emacs. 13;; This file is part of GNU Emacs.
14 14
diff --git a/leim/quail/pypunct-b5.el b/leim/quail/pypunct-b5.el
index cc1f4f535e6..37c12659cc3 100644
--- a/leim/quail/pypunct-b5.el
+++ b/leim/quail/pypunct-b5.el
@@ -7,7 +7,7 @@
7 7
8;; Author: Ken'ichi HANDA <handa@etl.go.jp> 8;; Author: Ken'ichi HANDA <handa@etl.go.jp>
9 9
10;; Keywords: multilingual, input method, Chienese 10;; Keywords: multilingual, input method, Chinese
11 11
12;; This file is part of GNU Emacs. 12;; This file is part of GNU Emacs.
13 13
diff --git a/leim/quail/tibetan.el b/leim/quail/tibetan.el
index c5c7061663e..ba47155524f 100644
--- a/leim/quail/tibetan.el
+++ b/leim/quail/tibetan.el
@@ -28,7 +28,7 @@
28;; Created: Feb. 17. 1997 28;; Created: Feb. 17. 1997
29 29
30;; History: 30;; History:
31;; 1997.03.13 Support for inputting special signs and punctuations added. 31;; 1997.03.13 Support for inputting special signs and punctuation added.
32;; (Only Ext. Wylie input) 32;; (Only Ext. Wylie input)
33 33
34;;; Commentary: 34;;; Commentary:
@@ -56,7 +56,7 @@
56 (if (string-match "^-[dy]" quail-current-key) 56 (if (string-match "^-[dy]" quail-current-key)
57 (setq quail-current-key (substring quail-current-key 1))) 57 (setq quail-current-key (substring quail-current-key 1)))
58 (let ((str (tibetan-transcription-to-tibetan quail-current-key))) 58 (let ((str (tibetan-transcription-to-tibetan quail-current-key)))
59 ;; If quail-current-key is for punctuations, it can't be 59 ;; If quail-current-key is for punctuation, it can't be
60 ;; transcribed by tibetan-transcription-to-tibetan, thus STR 60 ;; transcribed by tibetan-transcription-to-tibetan, thus STR
61 ;; contains ASCII string now. In that case, use the current 61 ;; contains ASCII string now. In that case, use the current
62 ;; characters set in quail-current-str. 62 ;; characters set in quail-current-str.
@@ -80,7 +80,7 @@
80 '(("-d" . "$(7"2(B") 80 '(("-d" . "$(7"2(B")
81 ("-y" . "$(7"B(B"))) 81 ("-y" . "$(7"B(B")))
82 82
83;; Punctuations are not transcribed. 83;; Punctuation characters are not transcribed.
84 84
85(defconst tibetan-wylie-punctuation-alist 85(defconst tibetan-wylie-punctuation-alist
86 '(("." . " ") 86 '(("." . " ")
diff --git a/lib-src/ChangeLog b/lib-src/ChangeLog
index 983754eb1c3..1eb67eb6c71 100644
--- a/lib-src/ChangeLog
+++ b/lib-src/ChangeLog
@@ -1,3 +1,19 @@
12011-11-30 Chong Yidong <cyd@gnu.org>
2
3 * emacsclient.c (main): Condition last change on WINDOWSNT
4 (Bug#10155).
5
62011-11-27 Eli Zaretskii <eliz@gnu.org>
7
8 * makefile.w32-in (LOCAL_FLAGS): Add $(EMACS_EXTRA_C_FLAGS).
9
10 * emacsclient.c (main) <environ>: Remove declaration, already
11 pulled in by unistd.h on Posix hosts and stdlib.h on MS-Windows.
12
132011-11-24 Glenn Morris <rgm@gnu.org>
14
15 * make-docfile.c (scan_lisp_file): Treat defcustom like defvar.
16
12011-11-14 Dan Nicolaescu <dann@ics.uci.edu> 172011-11-14 Dan Nicolaescu <dann@ics.uci.edu>
2 18
3 * Makefile.in (all): Make sure "all" is the first target. 19 * Makefile.in (all): Make sure "all" is the first target.
@@ -4267,7 +4283,7 @@
4267 4283
42681998-12-08 Geoff Voelker <voelker@cs.washington.edu> 42841998-12-08 Geoff Voelker <voelker@cs.washington.edu>
4269 4285
4270 * makefile.nt: Do string comparision of _NMAKE_VER. 4286 * makefile.nt: Do string comparison of _NMAKE_VER.
4271 4287
42721998-11-03 Theodore Jump <tjump@cais.com> 42881998-11-03 Theodore Jump <tjump@cais.com>
4273 4289
diff --git a/lib-src/emacsclient.c b/lib-src/emacsclient.c
index 56e17c100be..0ae1f0bddea 100644
--- a/lib-src/emacsclient.c
+++ b/lib-src/emacsclient.c
@@ -1635,7 +1635,11 @@ main (int argc, char **argv)
1635 /* Send over our environment and current directory. */ 1635 /* Send over our environment and current directory. */
1636 if (!current_frame) 1636 if (!current_frame)
1637 { 1637 {
1638#ifndef WINDOWSNT
1639 /* This is defined in stdlib.h on MS-Windows. It's defined in
1640 unistd.h on some POSIX hosts, but not all (Bug#10155). */
1638 extern char **environ; 1641 extern char **environ;
1642#endif
1639 int i; 1643 int i;
1640 for (i = 0; environ[i]; i++) 1644 for (i = 0; environ[i]; i++)
1641 { 1645 {
diff --git a/lib-src/make-docfile.c b/lib-src/make-docfile.c
index ba54202954b..1ec365f3446 100644
--- a/lib-src/make-docfile.c
+++ b/lib-src/make-docfile.c
@@ -1149,8 +1149,10 @@ scan_lisp_file (const char *filename, const char *mode)
1149 } 1149 }
1150 } 1150 }
1151 1151
1152 /* defcustom can only occur in uncompiled Lisp files. */
1152 else if (! strcmp (buffer, "defvar") 1153 else if (! strcmp (buffer, "defvar")
1153 || ! strcmp (buffer, "defconst")) 1154 || ! strcmp (buffer, "defconst")
1155 || ! strcmp (buffer, "defcustom"))
1154 { 1156 {
1155 char c1 = 0, c2 = 0; 1157 char c1 = 0, c2 = 0;
1156 type = 'V'; 1158 type = 'V';
diff --git a/lib-src/makefile.w32-in b/lib-src/makefile.w32-in
index 28f913a4df6..be7f4d0b6db 100644
--- a/lib-src/makefile.w32-in
+++ b/lib-src/makefile.w32-in
@@ -23,7 +23,7 @@ ALL = make-docfile hexl ctags etags movemail ebrowse emacsclient
23 23
24LOCAL_FLAGS = -DWINDOWSNT -DDOS_NT -DNO_LDAV=1 \ 24LOCAL_FLAGS = -DWINDOWSNT -DDOS_NT -DNO_LDAV=1 \
25 -DNO_ARCHIVES=1 -DHAVE_CONFIG_H=1 -I../lib \ 25 -DNO_ARCHIVES=1 -DHAVE_CONFIG_H=1 -I../lib \
26 -I../nt/inc -I../src 26 -I../nt/inc -I../src $(EMACS_EXTRA_C_FLAGS)
27 27
28LIBS = $(BASE_LIBS) $(ADVAPI32) 28LIBS = $(BASE_LIBS) $(ADVAPI32)
29 29
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 37ecd3e6852..c77ace6d483 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,381 @@
12011-12-03 Glenn Morris <rgm@gnu.org>
2
3 * textmodes/texinfmt.el (batch-texinfo-format): Doc fix. (Bug#10207)
4
52011-12-03 Stefan Monnier <monnier@iro.umontreal.ca>
6
7 * electric.el: Streamline electric-indent's hook.
8 (electric-indent-chars): Revert to simple list.
9 (electric-indent-functions): New var.
10 (electric-indent-post-self-insert-function): Use it.
11
12 * progmodes/prolog.el (prolog-find-value-by-system): Avoid error when
13 there's no inferior buffer (bug#10196).
14 (prolog-consult-compile): Don't use toggle-read-only.
15
162011-12-02 Michael Albinus <michael.albinus@gmx.de>
17
18 * net/tramp-sh.el (tramp-maybe-open-connection): Handle user
19 interrupt. (Bug#10187)
20
212011-12-02 Stefan Monnier <monnier@iro.umontreal.ca>
22
23 * pcmpl-gnu.el (pcomplete/tar): large-file-warn-threshold can be nil
24 (bug#9160).
25
26 * dired-aux.el (dired-query): Don't assume help-char is modifier-free
27 (bug#10191).
28
292011-12-02 Juri Linkov <juri@jurta.org>
30
31 * info.el (Info-search): Display "end of manual" when Isearch
32 reaches the end of single-file Info manual. (Bug#9918)
33
342011-12-02 Eli Zaretskii <eliz@gnu.org>
35
36 * isearch.el (isearch-message-prefix): Run the input method part
37 of the prompt through bidi-string-mark-left-to-right. (Bug#10183)
38
392011-12-02 Juri Linkov <juri@jurta.org>
40
41 * isearch.el (isearch-occur): Use `word-search-regexp' for
42 `isearch-word'.
43 (isearch-search-and-update): Add condition for `isearch-word' and
44 call `word-search-regexp'. (Bug#10145)
45
462011-12-01 Glenn Morris <rgm@gnu.org>
47
48 * eshell/em-hist.el (eshell-hist-initialize):
49 Handle eshell-history-size nil and HISTSIZE set or unset.
50 (eshell-history-file-name, eshell-history-size): Fix custom type.
51
522011-12-01 Stefan Monnier <monnier@iro.umontreal.ca>
53
54 * man.el (Man-completion-table): Fix the lambda case (bug#10168).
55
562011-12-01 Michael McNamara <mac@mail.brushroad.com>
57
58 * progmodes/verilog-mode.el (verilog-pretty-expr):
59 Rework verilog-pretty-expr to handle new assignment operators in system
60 verilog, such as += *= and the like.
61 (verilog-assignment-operator-re): Regular expression to find the
62 assigment operator in a verilog assignment.
63 (verilog-assignment-operation-re): Regular expression to find an
64 assignment statement for pretty-expr.
65 (verilog-in-attribute-p): Query returns true if point is in an
66 attribute context; used to skip these for expression line up from
67 pretty-expr.
68 (verilog-in-parameter-p): Query returns true if point is in an
69 parameter definition context; used to skip these for expression
70 line up from pretty-expr.
71 (verilog-in-parenthesis-p): Query returns true if point is in a
72 parenthetical expression, specifically ( ) but not [ ] or { };
73 used by pretty-expr.
74 (verilog-just-one-space): If there is no space, don't add one.
75 (verilog-get-lineup-indent-2): Specifically skip just attribute
76 contexts for expression lineup, rather than skipping all
77 parenthetical expressions.
78 (verilog-calculate-indent): Fix comment, and fix indent.
79 (verilog-do-indent): Indent declarations in lists (suggested by
80 Joachim Lechner).
81 (verilog-mode-abbrev-table): Populate abbrev mode with the various
82 skeleton items.
83 (verilog-sk-ovm-class): Add skeleton for OVM classes (reported
84 by Alain Mellan).
85
862011-12-01 Wilson Snyder <wsnyder@wsnyder.org>
87
88 * progmodes/verilog-mode.el (verilog-read-defines): Fix reading
89 parameters with embedded comments. Reported by Ray Stevens.
90 (verilog-calc-1, verilog-fork-wait-re) (verilog-forward-sexp,
91 verilog-wait-fork-re): Fix indentation of "wait fork", bug407.
92 Reported by Tim Holt.
93 (verilog-auto): Fix AUTOing a upper module then AUTOing module
94 instantiated by upper module causing wrong expansion until AUTOed a
95 second time. Reported by K C Buckenmaier.
96 (verilog-diff-auto): Fix showing .* as a difference when
97 `verilog-auto-star-save' off. Reported by Dan Dever.
98 (verilog-auto-reset, verilog-read-always-signals)
99 (verilog-auto-reset-blocking-in-non): Fix AUTORESET including
100 temporary signals in reset list if
101 verilog-auto-reset-blocking-in-non is nil, and match assignment
102 style to each signal's assignment type, bug381.
103 Reported by Thomas Esposito.
104 (verilog-sk-uvm-class, verilog-uvm-begin-re, verilog-uvm-end-re)
105 (verilog-uvm-statement-re): Support UVM indentation and
106 highlighting, with old OVM keywords only.
107 (verilog-auto-tieoff, verilog-auto-tieoff-declaration):
108 Support AUTOTIEOFF creating non-wire data types. Suggested by Jonathan
109 Greenlaw.
110 (verilog-auto-insert-lisp, verilog-delete-to-paren)
111 (verilog-forward-sexp-cmt, verilog-forward-sexp-ign-cmt)
112 (verilog-inject-sense, verilog-read-inst-pins)
113 (verilog-read-sub-decls, verilog-read-sub-decls-line):
114 Fix mismatching parenthesis inside commented out code when deleting
115 AUTOINST, bug383. Reported by Jonathan Greenlaw.
116 (verilog-auto-ascii-enum): Fix AUTOASCIIENUM one-hot with
117 non-numeric vector width. Reported by Alex Reed.
118 (verilog-auto-ascii-enum): Add "onehot" option to work around not
119 detecting signals with parameter widths. Reported by Alex Reed.
120 (verilog-auto-delete-trailing-whitespace):
121 With `verilog-auto-delete-trailing-whitespace' remove trailing
122 whitespace in auto expansion, bug371. Reported by Brad Dobbie.
123 (verilog-run-hooks, verilog-scan-cache-flush, verilog-syntax-ppss):
124 Fix verilog-scan-cache corruption when running user AUTO expansion
125 hooks that call indentation routines.
126 (verilog-simplify-range-expression): Fix typo ignoring lower case
127 identifiers.
128 (verilog-delete-auto): Fix delete-autos to also remove user created
129 automatics, as long as they start with AUTO.
130 (verilog-batch-diff-auto, verilog-diff-auto)
131 (verilog-diff-function): Add `verilog-diff-auto' and bind to
132 "C-c?" to report differences in AUTO expansion, ignoring spaces.
133 (verilog-backward-syntactic-ws-quick, verilog-beg-of-defun-quick)
134 (verilog-in-paren-quick, verilog-re-search-backward-quick)
135 (verilog-re-search-forward-quick, verilog-syntax-ppss):
136 Fix calling `syntax-ppss' when inside auto expansions as the ppss hook
137 is disabled and its cache will get corrupt, causing AUTOS not to
138 expand. Instead use only -quick functions.
139 (verilog-scan-region): Fix scanning over escaped quotes.
140 (verilog-inside-comment-or-string-p, verilog-inside-comment-p)
141 (verilog-re-search-backward-quick)
142 (verilog-re-search-forward-quick, verilog-scan): verilog-scan and
143 related functions now ignore strings, to fix misparsing of strings
144 with magic comments embedded in them.
145 (verilog-read-auto-template):
146 Fix 'verilog-auto-inst-template-numbers' with extra newline before (.
147 Reported by Brad Dobbie.
148 (verilog-read-auto-template):
149 Fix 'verilog-auto-inst-template-numbers' with comments.
150 Reported by Brad Dobbie.
151 (verilog-auto-inst, verilog-auto-inst-param)
152 (verilog-auto-inst-sort): Add 'verilog-auto-inst-sort' to reduce
153 merge conflicts with AUTOINST, bug358. Reported by Brad Dobbie.
154 (verilog-auto-inst-template-numbers): Add 'lhs' policy for
155 debugging templates without merge conflicts, bug357.
156 Reported by Brad Dobbie.
157 (verilog-read-auto-template):
158 Fix verilog-auto-inst-template-numbers with multiple templates.
159 Reported by Brad Dobbie.
160 (verilog-define-abbrev): Fix verilog-mode abbrevs to be system
161 abbrevs so user won't be asked to save.
162 (verilog-read-auto-lisp-present): Fix to start at beginning of
163 buffer in case called outside of verilog-auto.
164 (verilog-simplify-range-expression): Fix AUTOWIRE expanding "X-1+1"
165 to "X-2". Reported by Matthew Myers.
166 (verilog-auto, verilog-auto-inout-in): Add AUTOINOUTIN for creating
167 all inputs from module templates. Reported by Leith Johnson.
168 (verilog-module-inside-filename-p): Fix locating programs as with
169 modules.
170 (verilog-auto-inst-port): Fix vl-width expressions when using
171 verilog-auto-inst-param-value, bug331. Reported by Julian Gorfajn.
172 (verilog-decls-get-regs, verilog-decls-get-signals,
173 verilog-decls-get-vars, verilog-decls-get-wires, verilog-decls-new,
174 verilog-modi-cache-add-vars, verilog-modi-cache-add-wires,
175 verilog-read-decls): Combine reg and wire structures into one var
176 structure to represent SystemVerilog concepts.
177 (verilog-auto-ascii-enum, verilog-auto-logic, verilog-auto-reg)
178 (verilog-auto-reg-input, verilog-auto-tieoff, verilog-auto-wire)
179 (verilog-auto-wire-type, verilog-insert-definition):
180 Add verilog-auto-wire-type and AUTOLOGIC to support using
181 SystemVerilog "logic" keyword instead of "wire"/"reg".
182 (verilog-auto-reg-input, verilog-decls-get-signals): Fix AUTOWIRE
183 to declares outputs that also have assignments (presumably in an
184 ifdef or generate if so there's not a driver conflict).
185 Reported by Matthew Myers.
186 (verilog-auto-declare-nettype, verilog-insert-definition):
187 Add verilog-auto-declare-nettype to fix declarations using
188 `default_nettype none. Reported by Julian Gorfajn.
189 (verilog-read-always-signals-recurse, verilog-read-decls)
190 (verilog-read-sub-decls-gate): Fix infinite loop with (*) and
191 malformed end statement, bug325. Reported by Joshua Wise and
192 Andrew Drake.
193 (verilog-auto-star-safe, verilog-delete-auto-star-implicit)
194 (verilog-inst-comment-re): Fix not deleting Interfaced comment
195 when expanding .* in interfaces, bug320. Reported by Pierre-David
196 Pfister.
197 (verilog-read-module-name): Fix import statements between module
198 name and open parenthesis, bug317. Reported by Pierre-David
199 Pfister.
200 (verilog-simplify-range-expression): Fix simplification of
201 multiplications inside AUTOWIRE connections, bug303.
202 (verilog-auto-inst-port): Support parameter expansion in
203 multidimensional arrays.
204 (verilog-read-decls): Fix AUTOREG etc looking for "endproperty"
205 after "assert property". Reported by Julian Gorfajn.
206 (verilog-simplify-range-expression): Fix "couldn't merge" errors
207 with multiplication, bug303.
208 (verilog-read-decls): Fix parsing of unsigned data types, bug302.
209 Reported by Jan Frode Lonnum.
210
2112011-11-30 Juanma Barranquero <lekktu@gmail.com>
212
213 * htmlfontify.el (hfy-page-header, hfy-post-html-hooks)
214 (hfy-shell-file-name, hfy-shell):
215 * international/fontset.el (x-decompose-font-name): Fix typos.
216
2172011-11-29 Ken Brown <kbrown@cornell.edu>
218
219 * progmodes/gdb-mi.el: Fix bug#9853, bug#9858, and bug#9878.
220 (gdb-version): Remove defvar.
221 (gdb-supports-non-stop): New defvar, replacing `gdb-version'.
222 (gdb-gud-context-command, gdb-non-stop-handler)
223 (gdb-current-context-command, gdb-stopped): Use it.
224 (gdb-init-1): Enable pretty printing here.
225 (gdb-non-stop-handler): Don't enable pretty-printing here.
226 Check to see if the target supports non-stop mode; if not, turn off
227 non-stop mode. Use the following.
228 (gdb-check-target-async): New defun.
229 (gud-watch, gdb-stopped): Fix whitespace.
230 (gdb-get-source-file): Don't try to display the source file if
231 `gdb-main-file' is nil.
232
2332011-11-29 Stefan Monnier <monnier@iro.umontreal.ca>
234
235 * align.el: Try to generate fewer markers (bug#10047).
236 (align--set-marker): New macro.
237 (align-region): Use it.
238
2392011-11-29 Stefan Monnier <monnier@iro.umontreal.ca>
240
241 * isearch.el (isearch-yank-x-selection): Deactivate mark (bug#10022).
242
2432011-11-29 Chong Yidong <cyd@gnu.org>
244
245 * indent.el (indent-for-tab-command, indent-according-to-mode):
246 Doc fix.
247 (indent-region): Doc fix. Switch nested ifs to equivalent cond.
248
2492011-11-29 Michael Albinus <michael.albinus@gmx.de>
250
251 * vc/diff-mode.el (diff-find-file-name): Make `read-file-name'
252 aware of remote file names. (Bug#10124)
253
2542011-11-29 Chong Yidong <cyd@gnu.org>
255
256 * frame.el (auto-raise-mode, auto-lower-mode): Doc fix.
257
2582011-11-28 Stefan Monnier <monnier@iro.umontreal.ca>
259
260 * files.el (find-file): Don't use force-same-window (bug#10144).
261 * window.el (switch-to-buffer): Better match Emacs-23 behavior and only
262 use pop-to-buffer if the selected window can't be used.
263 (pop-to-buffer-same-window): Use display-buffer--same-window-action.
264
2652011-11-28 Eli Zaretskii <eliz@gnu.org>
266
267 * vc/diff-mode.el (diff-mode-map): Don't inherit 'z' => 'M-z' from
268 special-mode-map.
269
2702011-11-28 Chong Yidong <cyd@gnu.org>
271
272 * emacs-lisp/easy-mmode.el (define-minor-mode): Fix default doc.
273
2742011-11-27 Nick Roberts <nickrob@snap.net.nz>
275
276 * progmodes/gdb-mi.el (gdb-init-1): Condition execution of
277 gdb-get-source-file-list on gdb-create-source-file-list.
278
2792011-11-26 Eli Zaretskii <eliz@gnu.org>
280
281 * whitespace.el (whitespace-newline): Use a different foreground
282 color for 16-color light-background displays.
283
2842011-11-24 Chong Yidong <cyd@gnu.org>
285
286 * window.el (display-buffer--special-action): Doc fix.
287
2882011-11-25 Juanma Barranquero <lekktu@gmail.com>
289
290 * emacs-lisp/avl-tree.el (avl-tree--do-copy, avl-tree-create)
291 (avl-tree-compare-function, avl-tree-empty, avl-tree-enter)
292 (avl-tree-delete, avl-tree-member, avl-tree-member-p, avl-tree-map)
293 (avl-tree-mapc, avl-tree-mapf, avl-tree-mapcar, avl-tree-copy)
294 (avl-tree-clear, avl-tree-stack, avl-tree-stack-pop)
295 (avl-tree-stack-first):
296 * emacs-lisp/cconv.el (cconv--analyse-use):
297 * net/gnutls.el (gnutls-negotiate): Fix typos.
298
2992011-11-24 Glenn Morris <rgm@gnu.org>
300
301 * lpr.el (lpr-windows-system, lpr-lp-system):
302 * mail/binhex.el (binhex-begin-line):
303 * progmodes/grep.el (grep-history, grep-find-history):
304 * textmodes/flyspell.el:
305 * vc/pcvs-defs.el (cvs-global-menu):
306 * vc/vc-bzr.el (vc-bzr-admin-checkout-format-file):
307 * vc/vc-mtn.el (vc-mtn-admin-dir, vc-mtn-admin-format):
308 * vc/vc-cvs.el (vc-cvs-registered): Give them basic doc-strings.
309
310 * net/tls.el: Fix case of "GnuTLS".
311
312 * paths.el (rmail-file-name): Format doc-string for make-docfile.
313
314 * version.el (emacs-build-system): Give it a doc-string.
315
3162011-11-24 Juri Linkov <juri@jurta.org>
317
318 * view.el (view-buffer): Revert 2011-07-19T15:01:49Z!larsi@gnus.org from 2011-07-19 (bug#8615).
319
3202011-11-24 Glenn Morris <rgm@gnu.org>
321
322 * mail/rmailmm.el (rmail-mime): When rmail-enable-mime is non-nil,
323 if called on a non-mime message just toggle the headers. (Bug#8006)
324
3252011-11-24 Juanma Barranquero <lekktu@gmail.com>
326
327 * allout.el (allout-setup, allout-auto-save-temporarily-disabled)
328 (allout-lead-with-comment-string, allout-structure-deleted-hook)
329 (allout-mode, allout-chart-subtree, allout-hotspot-key-handler)
330 (allout-rebullet-heading, allout-open-sibtopic)
331 (allout-toggle-current-subtree-encryption)
332 (allout-toggle-subtree-encryption, allout-encrypt-string)
333 (allout-next-topic-pending-encryption, allout-adjust-file-variable)
334 (allout-distinctive-bullets-string, allout-auto-activation):
335 * window.el (window-normalize-buffer-to-display):
336 * progmodes/verilog-mode.el (verilog-batch-indent):
337 * textmodes/bibtex.el (bibtex-field-braces-opt)
338 (bibtex-field-strings-opt):
339 * vc/cvs-status.el (cvs-tree-merge):
340 Fix typos.
341
3422011-11-23 Michael Albinus <michael.albinus@gmx.de>
343
344 * rfn-eshadow.el (rfn-eshadow-update-overlay): Let-bind
345 `non-essential' to t, in order to avoid remote connections.
346
3472011-11-23 Eli Zaretskii <eliz@gnu.org>
348
349 * emacs-lisp/autoload.el (autoload-generate-file-autoloads):
350 On MS-DOS and MS-Windows, compare with loaddefs.el
351 case-insensitively.
352
3532011-11-23 Mark Lillibridge <mark.lillibridge@hp.com> (tiny change)
354
355 * mail/unrmail.el (unrmail): Always add blank line. (Bug#7743)
356
3572011-11-23 Glenn Morris <rgm@gnu.org>
358
359 * paths.el (rmail-file-name): Reformat the doc-string so that it
360 is picked up.
361
362 * mail/rmail.el (rmail-message-filter, rmail-auto-file): Doc fixes.
363 (rmail-auto-file): Ignore case in the "special" field names,
364 as mail-fetch-field does for all others.
365
366 * mail/rmail.el (rmail-forward):
367 * mail/rmailkwd.el (rmail-set-label):
368 * mail/rmailout.el (rmail-output, rmail-output-as-seen)
369 (rmail-output-body-to-file): Give error if no message. (Bug#10082)
370
371 * mail/rmail.el (rmail-current-message): Doc fix.
372
373 * mail/rmail.el (rmail-message-filter): Mark as obsolete. (Bug#2624)
374
3752011-11-22 Stefan Monnier <monnier@iro.umontreal.ca>
376
377 * server.el (server-eval-and-print): Allow C-g (bug#6585).
378
12011-11-22 Glenn Morris <rgm@gnu.org> 3792011-11-22 Glenn Morris <rgm@gnu.org>
2 380
3 * mail/rmailmm.el (test-rmail-mime-handler) 381 * mail/rmailmm.el (test-rmail-mime-handler)
@@ -208,12 +586,12 @@
208 586
2092011-11-16 Michael Albinus <michael.albinus@gmx.de> 5872011-11-16 Michael Albinus <michael.albinus@gmx.de>
210 588
211 * net/tramp.el (tramp-handle-file-truename): Cache only the local
212 file name.
213
214 * net/tramp-cache.el (tramp-flush-file-property): Flush also 589 * net/tramp-cache.el (tramp-flush-file-property): Flush also
215 properties of linked files. (Bug#9879) 590 properties of linked files. (Bug#9879)
216 591
592 * net/tramp-sh.el (tramp-sh-handle-file-truename): Cache only the
593 local file name.
594
2172011-11-16 Juanma Barranquero <lekktu@gmail.com> 5952011-11-16 Juanma Barranquero <lekktu@gmail.com>
218 596
219 * menu-bar.el (menu-bar-file-menu): 597 * menu-bar.el (menu-bar-file-menu):
@@ -1964,7 +2342,7 @@
1964 2342
1965 * window.el (window-auto-delete): Remove. 2343 * window.el (window-auto-delete): Remove.
1966 (window-deletable-p): Remove argument FORCE. Don't deal with 2344 (window-deletable-p): Remove argument FORCE. Don't deal with
1967 dedicatedness and previous buffers. 2345 dedication and previous buffers.
1968 (switch-to-prev-buffer): Don't delete window. 2346 (switch-to-prev-buffer): Don't delete window.
1969 (delete-windows-on): Delete a window's frame if and only if the 2347 (delete-windows-on): Delete a window's frame if and only if the
1970 window is dedicated. 2348 window is dedicated.
@@ -3752,7 +4130,7 @@
3752 4130
3753 * cus-edit.el (custom-show): Mark as obsolete. 4131 * cus-edit.el (custom-show): Mark as obsolete.
3754 4132
3755 * net/network-stream.el (network-stream-open-starttls): If gnutls 4133 * net/network-stream.el (network-stream-open-starttls): If GnuTLS
3756 negotiation fails, then possibly try again with a non-encrypted 4134 negotiation fails, then possibly try again with a non-encrypted
3757 connection (bug#9017). 4135 connection (bug#9017).
3758 4136
@@ -7938,7 +8316,7 @@
79382011-04-12 Lars Magne Ingebrigtsen <larsi@gnus.org> 83162011-04-12 Lars Magne Ingebrigtsen <larsi@gnus.org>
7939 8317
7940 * net/network-stream.el (network-stream-open-starttls): Only do 8318 * net/network-stream.el (network-stream-open-starttls): Only do
7941 opportunistic STARTTLS upgrades if we have built-in gnutls support. 8319 opportunistic STARTTLS upgrades if we have built-in GnuTLS support.
7942 Upgrades via gnutls-cli are too slow to be done opportunistically. 8320 Upgrades via gnutls-cli are too slow to be done opportunistically.
7943 8321
79442011-04-12 Juanma Barranquero <lekktu@gmail.com> 83222011-04-12 Juanma Barranquero <lekktu@gmail.com>
diff --git a/lisp/ChangeLog.10 b/lisp/ChangeLog.10
index cb1d1af577b..a1cfaee6eaf 100644
--- a/lisp/ChangeLog.10
+++ b/lisp/ChangeLog.10
@@ -1837,7 +1837,7 @@
18372003-05-31 Stefan Monnier <monnier@cs.yale.edu> 18372003-05-31 Stefan Monnier <monnier@cs.yale.edu>
1838 1838
1839 * view.el (view-file, view-file-other-window, view-file-other-frame): 1839 * view.el (view-file, view-file-other-window, view-file-other-frame):
1840 Signal an error when trying to visit an inexistent file. 1840 Signal an error when trying to visit a nonexistent file.
1841 1841
1842 * vc-hooks.el (vc-call-backend): Give better error message 1842 * vc-hooks.el (vc-call-backend): Give better error message
1843 when a backend function is missing. 1843 when a backend function is missing.
@@ -5904,7 +5904,7 @@
5904 (mis-)use tramp-current-user as indication, assuming it is set in 5904 (mis-)use tramp-current-user as indication, assuming it is set in
5905 `tramp-completion-handle-file-name-all-completions'. 5905 `tramp-completion-handle-file-name-all-completions'.
5906 (tramp-send-region): Handle the case `tramp-chunksize' is equal 0. 5906 (tramp-send-region): Handle the case `tramp-chunksize' is equal 0.
5907 I did it accidently. Infinite loop ... 5907 I did it accidentally. Infinite loop ...
5908 (tramp-get-device): `tramp-make-tramp-file-name' must not be 5908 (tramp-get-device): `tramp-make-tramp-file-name' must not be
5909 called with NIL path. It fails in case of multi-method. 5909 called with NIL path. It fails in case of multi-method.
5910 (tramp-file-name-for-operation): Apply `expand-file-name' for 5910 (tramp-file-name-for-operation): Apply `expand-file-name' for
@@ -8053,7 +8053,7 @@
8053 (gdb-quit): Reset some variables including tool-bar-map. 8053 (gdb-quit): Reset some variables including tool-bar-map.
8054 8054
8055 * gud.el (gdb-running): New variable. 8055 * gud.el (gdb-running): New variable.
8056 (gud-menu-map): Use gdb-running to grey out toolbar buttons 8056 (gud-menu-map): Use gdb-running to gray out toolbar buttons
8057 with gdba in gdb-ui.el. 8057 with gdba in gdb-ui.el.
8058 (gud-tool-bar-map): Move to avoid byte compiler warning. 8058 (gud-tool-bar-map): Move to avoid byte compiler warning.
8059 8059
@@ -9746,8 +9746,8 @@
9746 9746
97472002-09-28 Simon Josefsson <jas@extundo.com> 97472002-09-28 Simon Josefsson <jas@extundo.com>
9748 9748
9749 * mail/smtpmail.el (smtpmail-via-smtp): Only negotiate starttls on 9749 * mail/smtpmail.el (smtpmail-via-smtp): Only negotiate STARTTLS on
9750 streams that were opened using starttls. 9750 streams that were opened using STARTTLS.
9751 9751
97522002-09-28 Paul Reilly <pmr@pajato.com> 97522002-09-28 Paul Reilly <pmr@pajato.com>
9753 9753
@@ -22790,7 +22790,7 @@
227902001-11-04 Miles Bader <miles@gnu.org> 227902001-11-04 Miles Bader <miles@gnu.org>
22791 22791
22792 * startup.el (fancy-splash-head): Reapply Gerd's hack to make the 22792 * startup.el (fancy-splash-head): Reapply Gerd's hack to make the
22793 shadow of the splash image grey on a dark background instead of black. 22793 shadow of the splash image gray on a dark background instead of black.
22794 22794
227952001-11-03 Stefan Monnier <monnier@cs.yale.edu> 227952001-11-03 Stefan Monnier <monnier@cs.yale.edu>
22796 22796
diff --git a/lisp/ChangeLog.11 b/lisp/ChangeLog.11
index c80091e4657..38a5530fbfc 100644
--- a/lisp/ChangeLog.11
+++ b/lisp/ChangeLog.11
@@ -6728,11 +6728,11 @@
67282004-05-28 Simon Josefsson <jas@extundo.com> 67282004-05-28 Simon Josefsson <jas@extundo.com>
6729 6729
6730 * mail/smtpmail.el (smtpmail-open-stream): 6730 * mail/smtpmail.el (smtpmail-open-stream):
6731 Bind starttls-extra-arguments too, if starttls.el uses GNUTLS. 6731 Bind starttls-extra-arguments too, if starttls.el uses GnuTLS.
6732 6732
67332004-05-26 Simon Josefsson <jas@extundo.com> 67332004-05-26 Simon Josefsson <jas@extundo.com>
6734 6734
6735 * starttls.el: Merge with my GNUTLS based starttls.el. 6735 * starttls.el: Merge with my GnuTLS based starttls.el.
6736 (starttls-gnutls-program, starttls-use-gnutls) 6736 (starttls-gnutls-program, starttls-use-gnutls)
6737 (starttls-extra-arguments, starttls-process-connection-type) 6737 (starttls-extra-arguments, starttls-process-connection-type)
6738 (starttls-connect, starttls-failure, starttls-success): New variables. 6738 (starttls-connect, starttls-failure, starttls-success): New variables.
diff --git a/lisp/ChangeLog.12 b/lisp/ChangeLog.12
index 1660009aba7..8721130ec50 100644
--- a/lisp/ChangeLog.12
+++ b/lisp/ChangeLog.12
@@ -10695,7 +10695,7 @@
10695 10695
10696 * net/tramp-smb.el (tramp-smb-wait-for-output): Wait always for 10696 * net/tramp-smb.el (tramp-smb-wait-for-output): Wait always for
10697 the prompt. If it returns earlier (when detecting an error 10697 the prompt. If it returns earlier (when detecting an error
10698 message), the rest of the output will merge accidently with the 10698 message), the rest of the output will merge accidentally with the
10699 output of the next command. Reported by M Jared Finder 10699 output of the next command. Reported by M Jared Finder
10700 <jared@hpalace.com>. 10700 <jared@hpalace.com>.
10701 10701
@@ -15100,7 +15100,7 @@
151002005-12-21 Stefan Monnier <monnier@iro.umontreal.ca> 151002005-12-21 Stefan Monnier <monnier@iro.umontreal.ca>
15101 15101
15102 * emacs-lisp/lisp.el (lisp-complete-symbol): Don't call 15102 * emacs-lisp/lisp.el (lisp-complete-symbol): Don't call
15103 delete-windows-on with an inexistent buffer. 15103 delete-windows-on with a nonexistent buffer.
15104 15104
151052005-12-22 Nick Roberts <nickrob@snap.net.nz> 151052005-12-22 Nick Roberts <nickrob@snap.net.nz>
15106 15106
@@ -16181,7 +16181,7 @@
16181 16181
161822005-12-08 Alan Mackenzie <bug-cc-mode@gnu.org> 161822005-12-08 Alan Mackenzie <bug-cc-mode@gnu.org>
16183 16183
16184 * progmodes/cc-awk.el: Move regexps for analysing AWK code to near the 16184 * progmodes/cc-awk.el: Move regexps for analyzing AWK code to near the
16185 start of the file. ^L now separate sections of the file. 16185 start of the file. ^L now separate sections of the file.
16186 (c-awk-non-eol-esc-pair-re, c-awk-blank-or-comment-line-re) 16186 (c-awk-non-eol-esc-pair-re, c-awk-blank-or-comment-line-re)
16187 (c-awk-one-line-possibly-open-string-re) 16187 (c-awk-one-line-possibly-open-string-re)
@@ -31734,7 +31734,7 @@
317342005-02-23 Stefan Monnier <monnier@iro.umontreal.ca> 317342005-02-23 Stefan Monnier <monnier@iro.umontreal.ca>
31735 31735
31736 * emacs-lisp/debug.el (debug): Hide the buffer if it's not killed. 31736 * emacs-lisp/debug.el (debug): Hide the buffer if it's not killed.
31737 Remove unused and inexistent var `inhibit-trace'. 31737 Remove unused and nonexistent var `inhibit-trace'.
31738 (debugger-mode): Use run-mode-hooks. 31738 (debugger-mode): Use run-mode-hooks.
31739 (debugger-list-functions): Add buttons; setup xref stack. 31739 (debugger-list-functions): Add buttons; setup xref stack.
31740 31740
diff --git a/lisp/ChangeLog.13 b/lisp/ChangeLog.13
index bfe0f4a7a51..12eadc6aadf 100644
--- a/lisp/ChangeLog.13
+++ b/lisp/ChangeLog.13
@@ -4275,7 +4275,7 @@
4275 stops with an error and Emacs does not compile with those things in. 4275 stops with an error and Emacs does not compile with those things in.
4276 Besides, declare-function is not defined in XEmacs. 4276 Besides, declare-function is not defined in XEmacs.
4277 4277
4278 * ediff-util.el (eqiff-quit): Autoraise minibuffer. 4278 * ediff-util.el (ediff-quit): Autoraise minibuffer.
4279 4279
4280 * ediff-diff.el (ediff-convert-fine-diffs-to-overlays): Make it a defun. 4280 * ediff-diff.el (ediff-convert-fine-diffs-to-overlays): Make it a defun.
4281 4281
@@ -7393,7 +7393,7 @@
7393 7393
7394 * help-mode.el (help-mode): Set view-exit-action to bury the 7394 * help-mode.el (help-mode): Set view-exit-action to bury the
7395 buffer instead of fiddling with windows. Simplify code. 7395 buffer instead of fiddling with windows. Simplify code.
7396 (help-mode-finish): When help-window eqs t set it to the selected 7396 (help-mode-finish): When help-window equals t set it to the selected
7397 window and have with-help-window set up view-return-to-alist. 7397 window and have with-help-window set up view-return-to-alist.
7398 (help-buffer): Add autoload cookie. 7398 (help-buffer): Add autoload cookie.
7399 7399
diff --git a/lisp/ChangeLog.15 b/lisp/ChangeLog.15
index 04133f17364..e0c244d5725 100644
--- a/lisp/ChangeLog.15
+++ b/lisp/ChangeLog.15
@@ -2809,7 +2809,7 @@
2809 Consolidate layout provisions coce directly into the activation 2809 Consolidate layout provisions coce directly into the activation
2810 condition branch, now that we've removed those provisions. 2810 condition branch, now that we've removed those provisions.
2811 (allout-unload-function): Explicitly activate the mode before 2811 (allout-unload-function): Explicitly activate the mode before
2812 deactivating, if it's initially deactivated. 2812 deactivating, if it's initially inactive.
2813 (allout-set-buffer-multibyte): Properly prevent byte-compiler 2813 (allout-set-buffer-multibyte): Properly prevent byte-compiler
2814 warnings for version of function used only where 2814 warnings for version of function used only where
2815 set-buffer-multibyte is unavailable. 2815 set-buffer-multibyte is unavailable.
@@ -2818,7 +2818,7 @@
2818 2818
2819 * tool-bar.el (tool-bar-setup): Remove :enable conditions, which 2819 * tool-bar.el (tool-bar-setup): Remove :enable conditions, which
2820 are handled by the menu-bar entries. As before, don't use 2820 are handled by the menu-bar entries. As before, don't use
2821 :visibile to avoid changing the tool-bar. 2821 :visible to avoid changing the tool-bar.
2822 2822
28232010-12-27 Michael Albinus <michael.albinus@gmx.de> 28232010-12-27 Michael Albinus <michael.albinus@gmx.de>
2824 2824
@@ -6065,7 +6065,7 @@
6065 6065
60662010-10-03 Teodor Zlatanov <tzz@lifelogs.com> 60662010-10-03 Teodor Zlatanov <tzz@lifelogs.com>
6067 6067
6068 * net/gnutls.el: Improve docs. Remove starttls and ssl emulation. 6068 * net/gnutls.el: Improve docs. Remove STARTTLS and SSL emulation.
6069 Provide only `open-gnutls-stream' (formerly `open-ssl-stream') and 6069 Provide only `open-gnutls-stream' (formerly `open-ssl-stream') and
6070 `gnutls-negotiate' (formerly `starttls-negotiate'). 6070 `gnutls-negotiate' (formerly `starttls-negotiate').
6071 Remove trivial wrapper `starttls-open-stream'. 6071 Remove trivial wrapper `starttls-open-stream'.
@@ -6217,7 +6217,7 @@
6217 6217
62182010-10-01 Lars Magne Ingebrigtsen <larsi@gnus.org> 62182010-10-01 Lars Magne Ingebrigtsen <larsi@gnus.org>
6219 6219
6220 * net/tls.el (tls-starttls-switches): Give up on using starttls with 6220 * net/tls.el (tls-starttls-switches): Give up on using STARTTLS with
6221 gnutls-cli. 6221 gnutls-cli.
6222 (tls-program): Add --insecure to be consistent with the defaults from 6222 (tls-program): Add --insecure to be consistent with the defaults from
6223 openssl s_client. Now all three commands are insecure. 6223 openssl s_client. Now all three commands are insecure.
diff --git a/lisp/ChangeLog.3 b/lisp/ChangeLog.3
index 2b384d79169..cb39ca5997f 100644
--- a/lisp/ChangeLog.3
+++ b/lisp/ChangeLog.3
@@ -9536,7 +9536,7 @@
9536 it@top level. 9536 it@top level.
9537 9537
9538 * texnfo-upd.el (texinfo-incorporate-descriptions): Don't 9538 * texnfo-upd.el (texinfo-incorporate-descriptions): Don't
9539 accidently find a string in the description that is confused for 9539 accidentally find a string in the description that is confused for
9540 a menu item. 9540 a menu item.
9541 9541
95421990-06-01 Robert J. Chassell (bob@wheat-chex) 95421990-06-01 Robert J. Chassell (bob@wheat-chex)
@@ -11362,7 +11362,7 @@
11362 * blackbox.el (bb-init-board): Use (random 8) to get # in [0,7]. 11362 * blackbox.el (bb-init-board): Use (random 8) to get # in [0,7].
11363 * dissociate.el: Likewise. 11363 * dissociate.el: Likewise.
11364 * fill.el (justify-current-line): Likewise. 11364 * fill.el (justify-current-line): Likewise.
11365 * flame.el (define-element, psychoanalize-flamer): Likewise. 11365 * flame.el (define-element, psychoanalyze-flamer): Likewise.
11366 * yow.el (yow): Likewise. 11366 * yow.el (yow): Likewise.
11367 * doctor.el: Use (random N), not (random-range N). 11367 * doctor.el: Use (random N), not (random-range N).
11368 (random-range): Function deleted. 11368 (random-range): Function deleted.
@@ -12454,4 +12454,3 @@ See ChangeLog.2 for earlier changes.
12454 12454
12455 You should have received a copy of the GNU General Public License 12455 You should have received a copy of the GNU General Public License
12456 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. 12456 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
12457
diff --git a/lisp/ChangeLog.4 b/lisp/ChangeLog.4
index b2cdc634f84..51e2661d89e 100644
--- a/lisp/ChangeLog.4
+++ b/lisp/ChangeLog.4
@@ -914,7 +914,7 @@
914 (desktop-locals-to-save): Add line-number-mode to be saved when 914 (desktop-locals-to-save): Add line-number-mode to be saved when
915 local. 915 local.
916 (desktop-remove): In case the desktop file cannot be deleted 916 (desktop-remove): In case the desktop file cannot be deleted
917 make sure that the desktop system is still inactivated. 917 make sure that the desktop system is still inactive.
918 (desktop-kill): In case an error occurs when saving the desktop, 918 (desktop-kill): In case an error occurs when saving the desktop,
919 offer to quit regardless. 919 offer to quit regardless.
920 (desktop-save-buffer-p): Disregard case when testing file and 920 (desktop-save-buffer-p): Disregard case when testing file and
diff --git a/lisp/ChangeLog.5 b/lisp/ChangeLog.5
index b536f7f1b66..b3e92b1a50a 100644
--- a/lisp/ChangeLog.5
+++ b/lisp/ChangeLog.5
@@ -2579,7 +2579,7 @@
25791995-03-13 Karl Fogel <kfogel@floss> 25791995-03-13 Karl Fogel <kfogel@floss>
2580 2580
2581 * bookmark.el: Removed C-v bindings; they were inconsistent. 2581 * bookmark.el: Removed C-v bindings; they were inconsistent.
2582 Defvarred some variables to nil, solely to avoid compilation warnings. 2582 Defvared some variables to nil, solely to avoid compilation warnings.
2583 Use "Author's Update Number:" instead of "Version:". 2583 Use "Author's Update Number:" instead of "Version:".
2584 (bookmark-history): New var. 2584 (bookmark-history): New var.
2585 (bookmark-completing-read): Use `bookmark-history'. 2585 (bookmark-completing-read): Use `bookmark-history'.
diff --git a/lisp/ChangeLog.6 b/lisp/ChangeLog.6
index 42c9df84876..fb6090b3583 100644
--- a/lisp/ChangeLog.6
+++ b/lisp/ChangeLog.6
@@ -5716,7 +5716,7 @@
5716 (vip-read-string-with-history, vip-search): Won't pause inside 5716 (vip-read-string-with-history, vip-search): Won't pause inside
5717 macros any more. 5717 macros any more.
5718 * viper-mous.el (vip-surrounding-word): Modified to understand 5718 * viper-mous.el (vip-surrounding-word): Modified to understand
5719 tripple clicks. 5719 triple clicks.
5720 * viper-util.el (vip-leave-region-active): New function. 5720 * viper-util.el (vip-leave-region-active): New function.
5721 * viper-ex.el (ex-write): Uses better defaults. 5721 * viper-ex.el (ex-write): Uses better defaults.
5722 * viper-macs.el (vip-record-kbd-macro): Correctly escapes `.' and 5722 * viper-macs.el (vip-record-kbd-macro): Correctly escapes `.' and
@@ -6689,7 +6689,7 @@
6689 Harnessed view-minor-mode. 6689 Harnessed view-minor-mode.
6690 Added (vip-leave-region-active) to all simple movement commands. 6690 Added (vip-leave-region-active) to all simple movement commands.
6691 * viper-mous.el (vip-surrounding-word): Modified to understand 6691 * viper-mous.el (vip-surrounding-word): Modified to understand
6692 tripple clicks. 6692 triple clicks.
6693 * viper-util.el (vip-leave-region-active): New function. 6693 * viper-util.el (vip-leave-region-active): New function.
6694 6694
66951995-08-19 Richard Stallman <rms@mole.gnu.ai.mit.edu> 66951995-08-19 Richard Stallman <rms@mole.gnu.ai.mit.edu>
diff --git a/lisp/ChangeLog.7 b/lisp/ChangeLog.7
index cb606cd0847..934258ade67 100644
--- a/lisp/ChangeLog.7
+++ b/lisp/ChangeLog.7
@@ -1012,7 +1012,7 @@
1012 bindings for quail-execute-non-quail-command deleted. 1012 bindings for quail-execute-non-quail-command deleted.
1013 (quail-conversion-keymap): Likewise. Add key bindings for 1013 (quail-conversion-keymap): Likewise. Add key bindings for
1014 quail-self-insert-command. 1014 quail-self-insert-command.
1015 (quail-delete-overlays): Chekc overlay-start for overlays before 1015 (quail-delete-overlays): Check overlay-start for overlays before
1016 deleting them. 1016 deleting them.
1017 (quail-mode): This function deleted. 1017 (quail-mode): This function deleted.
1018 (quail-inactivate, quail-activate): New functions. 1018 (quail-inactivate, quail-activate): New functions.
@@ -1230,7 +1230,7 @@
1230 indicator regex, Fix line positioning. 1230 indicator regex, Fix line positioning.
1231 (speedbar-add-indicator): Handles obj indicators now. 1231 (speedbar-add-indicator): Handles obj indicators now.
1232 (speedbar-check-objects, speedbar-check-obj-this-line): New functions. 1232 (speedbar-check-objects, speedbar-check-obj-this-line): New functions.
1233 (speedbar-double-click): Fix tripple click error. 1233 (speedbar-double-click): Fix triple click error.
1234 (speedbar-line-file, speedbar-goto-this-file): Handle indicator regex. 1234 (speedbar-line-file, speedbar-goto-this-file): Handle indicator regex.
1235 (speedbar-line-path): Only try to get a file when in "files" display. 1235 (speedbar-line-path): Only try to get a file when in "files" display.
1236 (speedbar-line-depth): Handle indicator regex. 1236 (speedbar-line-depth): Handle indicator regex.
@@ -2018,7 +2018,7 @@
20181998-06-19 Karl Heuer <kwzh@gnu.org> 20181998-06-19 Karl Heuer <kwzh@gnu.org>
2019 2019
2020 * emacs-lisp/checkdoc.el (checkdoc-eval-defun): Doc fix. 2020 * emacs-lisp/checkdoc.el (checkdoc-eval-defun): Doc fix.
2021 (checkdoc-continue, checkdoc-tripple-semi-comment-check-flag): Ditto. 2021 (checkdoc-continue, checkdoc-triple-semi-comment-check-flag): Ditto.
2022 (checkdoc-common-verbs-wrong-voice): Use dotted pairs. 2022 (checkdoc-common-verbs-wrong-voice): Use dotted pairs.
2023 2023
20241998-06-19 Richard Stallman <rms@gnu.org> 20241998-06-19 Richard Stallman <rms@gnu.org>
@@ -15185,7 +15185,7 @@
151851997-06-16 Dan Nicolaescu <done@ece.arizona.edu> 151851997-06-16 Dan Nicolaescu <done@ece.arizona.edu>
15186 15186
15187 * icon.el (icon-indent-line): A comment ends at the end of the 15187 * icon.el (icon-indent-line): A comment ends at the end of the
15188 line, delete call to inexistent function. 15188 line, delete call to nonexistent function.
15189 15189
15190 * icon.el (icon-font-lock-keywords-1): Improved regexp. 15190 * icon.el (icon-font-lock-keywords-1): Improved regexp.
15191 (icon-font-lock-keywords-2): Likewise. 15191 (icon-font-lock-keywords-2): Likewise.
@@ -18065,7 +18065,7 @@
18065 have KEY. 18065 have KEY.
18066 (current-input-method-title): Doc-string modified. 18066 (current-input-method-title): Doc-string modified.
18067 (select-input-method): Set current-input-method to nil even if 18067 (select-input-method): Set current-input-method to nil even if
18068 inactivation of the current input method failed. 18068 deactivation of the current input method failed.
18069 (set-language-environment): Doc-string modified. 18069 (set-language-environment): Doc-string modified.
18070 (describe-language-support): Doc-string modified. Calls an 18070 (describe-language-support): Doc-string modified. Calls an
18071 appropriate function for each language. 18071 appropriate function for each language.
@@ -19394,7 +19394,7 @@
19394 * loadup.el: Load language/english and language/tibetan. 19394 * loadup.el: Load language/english and language/tibetan.
19395 19395
19396 * mule-cmds.el: Prefix for Mule related commands is changed. 19396 * mule-cmds.el: Prefix for Mule related commands is changed.
19397 (view-hello-file): Allways does correct decoding of HELLO file. 19397 (view-hello-file): Always does correct decoding of HELLO file.
19398 19398
19399 * mule-conf.el: Change descriptions for Arabic, Indian, and 19399 * mule-conf.el: Change descriptions for Arabic, Indian, and
19400 Vietnamese character sets. Define Tibetan character sets. 19400 Vietnamese character sets. Define Tibetan character sets.
@@ -19552,7 +19552,7 @@
19552 * term.el: Added a lot of new faces, they all start with 19552 * term.el: Added a lot of new faces, they all start with
19553 term- and follow a simple lexicographical convention. Note that 19553 term- and follow a simple lexicographical convention. Note that
19554 each change is commented: just search for -mm in the source. 19554 each change is commented: just search for -mm in the source.
19555 (term-char-mode): Added all the "grey-keys" to term-raw-map. 19555 (term-char-mode): Added all the "gray-keys" to term-raw-map.
19556 (term-send-up): Similar, decided to go for the more xterm-like 19556 (term-send-up): Similar, decided to go for the more xterm-like
19557 \eOA bindings in place of the previous \e[A. 19557 \eOA bindings in place of the previous \e[A.
19558 (term-buffer-maximum-size): New variable. 19558 (term-buffer-maximum-size): New variable.
diff --git a/lisp/ChangeLog.8 b/lisp/ChangeLog.8
index 7aca1b521a2..cd685204766 100644
--- a/lisp/ChangeLog.8
+++ b/lisp/ChangeLog.8
@@ -530,7 +530,7 @@
530 composition-function-table. 530 composition-function-table.
531 (tibetan-composable-pattern): New variable. 531 (tibetan-composable-pattern): New variable.
532 (tibetan-subjoined-transcription-alist): Change key "R" to "+R". 532 (tibetan-subjoined-transcription-alist): Change key "R" to "+R".
533 (tibetan-precomposition-rule-alist): Move punctuations to 533 (tibetan-precomposition-rule-alist): Move punctuation to
534 tibetan-punctuation-transcription-alist and 534 tibetan-punctuation-transcription-alist and
535 tibetan-obsolete-glyphs. 535 tibetan-obsolete-glyphs.
536 (tibetan-punctuation-transcription-alist): New variable. 536 (tibetan-punctuation-transcription-alist): New variable.
@@ -4294,7 +4294,7 @@
4294 4294
42951999-07-21 Gerd Moellmann <gerd@gnu.org> 42951999-07-21 Gerd Moellmann <gerd@gnu.org>
4296 4296
4297 * faces.el (toolbar): Grey default background. 4297 * faces.el (toolbar): Gray default background.
4298 (modeline): Ditto. 4298 (modeline): Ditto.
4299 4299
4300 * image.el (image-type-regexps): New. 4300 * image.el (image-type-regexps): New.
diff --git a/lisp/ChangeLog.9 b/lisp/ChangeLog.9
index 538f3f1d401..1c38b4d9ac6 100644
--- a/lisp/ChangeLog.9
+++ b/lisp/ChangeLog.9
@@ -2021,7 +2021,7 @@
2021 newbuffile out of the loop, in the newbuffile-nd local var. 2021 newbuffile out of the loop, in the newbuffile-nd local var.
2022 Use dolist (cosmetic change). Compute the proposed name for the most 2022 Use dolist (cosmetic change). Compute the proposed name for the most
2023 common case and cache it in the fourth place in the item. 2023 common case and cache it in the fourth place in the item.
2024 (uniquify-rationalize-file-buffer-names): Used to return a a list 2024 (uniquify-rationalize-file-buffer-names): Used to return a list
2025 of buffer whose name was changed, but that return value was never used. 2025 of buffer whose name was changed, but that return value was never used.
2026 (uniquify-item-lessp): Replaces uniquify-filename-lessp, works on 2026 (uniquify-item-lessp): Replaces uniquify-filename-lessp, works on
2027 the cached proposed name, does much less consing and is quicker. 2027 the cached proposed name, does much less consing and is quicker.
@@ -8319,7 +8319,7 @@
8319 * frame.el (show-cursor-in-non-selected-windows): Doc fix. 8319 * frame.el (show-cursor-in-non-selected-windows): Doc fix.
8320 8320
8321 * hi-lock.el (hi-lock-refontify): Don't call non-existent 8321 * hi-lock.el (hi-lock-refontify): Don't call non-existent
8322 jit-lock-fontify-buffer; it should anyway be unneccessary to 8322 jit-lock-fontify-buffer; it should anyway be unnecessary to
8323 do anything special when jit-lock is active. 8323 do anything special when jit-lock is active.
8324 (hi-yellow, hi-pink, hi-green, hi-blue): Fix defface specs. 8324 (hi-yellow, hi-pink, hi-green, hi-blue): Fix defface specs.
8325 8325
diff --git a/lisp/align.el b/lisp/align.el
index 8767b6ff306..0d9f351b9da 100644
--- a/lisp/align.el
+++ b/lisp/align.el
@@ -1246,6 +1246,11 @@ have been aligned. No changes will be made to the buffer."
1246 (car props) (cdr props))))))))))) 1246 (car props) (cdr props)))))))))))
1247 (setq areas (cdr areas)))))) 1247 (setq areas (cdr areas))))))
1248 1248
1249(defmacro align--set-marker (marker-var pos &optional type)
1250 `(if ,marker-var
1251 (move-marker ,marker-var ,pos)
1252 (setq ,marker-var (copy-marker ,pos ,type))))
1253
1249(defun align-region (beg end separate rules exclude-rules 1254(defun align-region (beg end separate rules exclude-rules
1250 &optional func) 1255 &optional func)
1251 "Align a region based on a given set of alignment rules. 1256 "Align a region based on a given set of alignment rules.
@@ -1370,8 +1375,8 @@ aligner would have dealt with are."
1370 (if (not here) 1375 (if (not here)
1371 (goto-char end)) 1376 (goto-char end))
1372 (forward-line) 1377 (forward-line)
1373 (setq end (point) 1378 (setq end (point))
1374 end-mark (copy-marker end t)) 1379 (align--set-marker end-mark end t)
1375 (goto-char beg))) 1380 (goto-char beg)))
1376 1381
1377 ;; If we have a region to align, and `func' is set and 1382 ;; If we have a region to align, and `func' is set and
@@ -1467,10 +1472,9 @@ aligner would have dealt with are."
1467 ;; test whether we have found a match on the same 1472 ;; test whether we have found a match on the same
1468 ;; line as a previous match 1473 ;; line as a previous match
1469 (if (> (point) eol) 1474 (if (> (point) eol)
1470 (setq same nil 1475 (progn
1471 eol (save-excursion 1476 (setq same nil)
1472 (end-of-line) 1477 (align--set-marker eol (line-end-position))))
1473 (point-marker))))
1474 1478
1475 ;; lookup the `repeat' attribute the first time 1479 ;; lookup the `repeat' attribute the first time
1476 (or repeat-c 1480 (or repeat-c
@@ -1504,10 +1508,9 @@ aligner would have dealt with are."
1504 (progn 1508 (progn
1505 (align-regions regions align-props 1509 (align-regions regions align-props
1506 rule func) 1510 rule func)
1507 (setq last-point (copy-marker b t) 1511 (setq regions nil)
1508 regions nil 1512 (setq align-props nil)))
1509 align-props nil)) 1513 (align--set-marker last-point b t)
1510 (setq last-point (copy-marker b t)))
1511 1514
1512 ;; restore the match data 1515 ;; restore the match data
1513 (set-match-data save-match-data) 1516 (set-match-data save-match-data)
diff --git a/lisp/allout.el b/lisp/allout.el
index e701d9685a1..68330aa538b 100644
--- a/lisp/allout.el
+++ b/lisp/allout.el
@@ -279,7 +279,7 @@ Intended to be used as the `allout-auto-activation' :set function."
279;;;_ > allout-setup () 279;;;_ > allout-setup ()
280;;;###autoload 280;;;###autoload
281(defun allout-setup () 281(defun allout-setup ()
282 "Do fundamental emacs session for allout auto-activation. 282 "Do fundamental Emacs session for allout auto-activation.
283 283
284Establishes allout processing as part of visiting a file if 284Establishes allout processing as part of visiting a file if
285`allout-auto-activation' is non-nil, or removes it otherwise. 285`allout-auto-activation' is non-nil, or removes it otherwise.
@@ -298,7 +298,7 @@ Control whether and how allout outline mode is automatically
298activated when files are visited with non-nil buffer-specific 298activated when files are visited with non-nil buffer-specific
299file variable `allout-layout'. 299file variable `allout-layout'.
300 300
301When allout-auto-activation is \"On\" \(t), allout mode is 301When allout-auto-activation is \"On\" (t), allout mode is
302activated in buffers with non-nil `allout-layout', and the 302activated in buffers with non-nil `allout-layout', and the
303specified layout is applied. 303specified layout is applied.
304 304
@@ -560,7 +560,7 @@ of this var to take effect."
560These bullets are distinguish topics with particular character. 560These bullets are distinguish topics with particular character.
561They are not used by default in the topic creation routines, but 561They are not used by default in the topic creation routines, but
562are offered as options when you modify topic creation with a 562are offered as options when you modify topic creation with a
563universal argument \(\\[universal-argument]), or during rebulleting \(\\[allout-rebullet-current-heading]). 563universal argument (\\[universal-argument]), or during rebulleting (\\[allout-rebullet-current-heading]).
564 564
565Distinctive bullets are not cycled when topics are shifted or 565Distinctive bullets are not cycled when topics are shifted or
566otherwise automatically rebulleted, so their marking is 566otherwise automatically rebulleted, so their marking is
@@ -844,7 +844,7 @@ such topics are encrypted.)"
844(defvar allout-auto-save-temporarily-disabled nil 844(defvar allout-auto-save-temporarily-disabled nil
845 "True while topic encryption is pending and auto-saving was active. 845 "True while topic encryption is pending and auto-saving was active.
846 846
847The value of buffer-saved-size at the time of decryption is used, 847The value of `buffer-saved-size' at the time of decryption is used,
848for restoring when all encryptions are established.") 848for restoring when all encryptions are established.")
849(defvar allout-just-did-undo nil 849(defvar allout-just-did-undo nil
850 "True just after undo commands, until allout-post-command-business.") 850 "True just after undo commands, until allout-post-command-business.")
@@ -910,7 +910,7 @@ For details, see `allout-toggle-current-subtree-encryption's docstring."
910(defvar allout-layout nil ; LEAVE GLOBAL VALUE NIL -- see docstring. 910(defvar allout-layout nil ; LEAVE GLOBAL VALUE NIL -- see docstring.
911 "Buffer-specific setting for allout layout. 911 "Buffer-specific setting for allout layout.
912 912
913In buffers where this is non-nil \(and if `allout-auto-activation' 913In buffers where this is non-nil (and if `allout-auto-activation'
914has been customized to enable this behavior), `allout-mode' will be 914has been customized to enable this behavior), `allout-mode' will be
915automatically activated. The layout dictated by the value will be used to 915automatically activated. The layout dictated by the value will be used to
916set the initial exposure when `allout-mode' is activated. 916set the initial exposure when `allout-mode' is activated.
@@ -1037,7 +1037,7 @@ suitably economical.")
1037(defun allout-lead-with-comment-string (&optional header-lead) 1037(defun allout-lead-with-comment-string (&optional header-lead)
1038 "Set the topic-header leading string to specified string. 1038 "Set the topic-header leading string to specified string.
1039 1039
1040Useful when for encapsulating outline structure in programming 1040Useful for encapsulating outline structure in programming
1041language comments. Returns the leading string." 1041language comments. Returns the leading string."
1042 1042
1043 (interactive "P") 1043 (interactive "P")
@@ -1440,7 +1440,7 @@ Functions on the hook must take two arguments:
1440 - DEPTH -- integer indicating the depth of the subtree that was deleted. 1440 - DEPTH -- integer indicating the depth of the subtree that was deleted.
1441 - REMOVED-FROM -- integer indicating the point where the subtree was removed. 1441 - REMOVED-FROM -- integer indicating the point where the subtree was removed.
1442 1442
1443Some edits that remove or invalidate items may missed by this hook: 1443Some edits that remove or invalidate items may be missed by this hook:
1444specifically edits that native allout routines do not control. 1444specifically edits that native allout routines do not control.
1445 1445
1446This hook might be invoked multiple times by a single command.") 1446This hook might be invoked multiple times by a single command.")
@@ -1472,10 +1472,10 @@ that was affected by the undo.
1472Functions on the hook should not require any arguments.") 1472Functions on the hook should not require any arguments.")
1473;;;_ = allout-outside-normal-auto-fill-function 1473;;;_ = allout-outside-normal-auto-fill-function
1474(defvar allout-outside-normal-auto-fill-function nil 1474(defvar allout-outside-normal-auto-fill-function nil
1475 "Value of normal-auto-fill-function outside of allout mode. 1475 "Value of `normal-auto-fill-function' outside of allout mode.
1476 1476
1477Used by allout-auto-fill to do the mandated normal-auto-fill-function 1477Used by `allout-auto-fill' to do the mandated `normal-auto-fill-function'
1478wrapped within allout's automatic fill-prefix setting.") 1478wrapped within allout's automatic `fill-prefix' setting.")
1479(make-variable-buffer-local 'allout-outside-normal-auto-fill-function) 1479(make-variable-buffer-local 'allout-outside-normal-auto-fill-function)
1480;;;_ = prevent redundant activation by desktop mode: 1480;;;_ = prevent redundant activation by desktop mode:
1481(add-to-list 'desktop-minor-mode-handlers '(allout-mode . nil)) 1481(add-to-list 'desktop-minor-mode-handlers '(allout-mode . nil))
@@ -1576,7 +1576,7 @@ message if an error is encountered. The message will serve as a
1576non-nil return on `write-contents-functions' to prevent saving of 1576non-nil return on `write-contents-functions' to prevent saving of
1577the buffer while it has decrypted content. 1577the buffer while it has decrypted content.
1578 1578
1579This behavior depends on emacs versions that implement the 1579This behavior depends on Emacs versions that implement the
1580`write-contents-functions' hook." 1580`write-contents-functions' hook."
1581 1581
1582 (if (or (not (allout-mode-p)) 1582 (if (or (not (allout-mode-p))
@@ -1627,7 +1627,7 @@ and the place for the cursor after the decryption is done."
1627 ) 1627 )
1628;;;_ > allout-called-interactively-p () 1628;;;_ > allout-called-interactively-p ()
1629(defmacro allout-called-interactively-p () 1629(defmacro allout-called-interactively-p ()
1630 "A version of called-interactively-p independent of emacs version." 1630 "A version of `called-interactively-p' independent of Emacs version."
1631 ;; ... to ease maintenance of allout without betraying deprecation. 1631 ;; ... to ease maintenance of allout without betraying deprecation.
1632 (if (equal (subr-arity (symbol-function 'called-interactively-p)) 1632 (if (equal (subr-arity (symbol-function 'called-interactively-p))
1633 '(0 . 0)) 1633 '(0 . 0))
@@ -1712,7 +1712,7 @@ Allout outline mode is a minor mode that provides extensive
1712outline oriented formatting and manipulation. It enables 1712outline oriented formatting and manipulation. It enables
1713structural editing of outlines, as well as navigation and 1713structural editing of outlines, as well as navigation and
1714exposure. It also is specifically aimed at accommodating 1714exposure. It also is specifically aimed at accommodating
1715syntax-sensitive text like programming languages. \(For example, 1715syntax-sensitive text like programming languages. (For example,
1716see the allout code itself, which is organized as an allout 1716see the allout code itself, which is organized as an allout
1717outline.) 1717outline.)
1718 1718
@@ -1733,7 +1733,7 @@ Below is a description of the key bindings, and then description
1733of special `allout-mode' features and terminology. See also the 1733of special `allout-mode' features and terminology. See also the
1734outline menubar additions for quick reference to many of the 1734outline menubar additions for quick reference to many of the
1735features. Customize `allout-auto-activation' to prepare your 1735features. Customize `allout-auto-activation' to prepare your
1736emacs session for automatic activation of `allout-mode'. 1736Emacs session for automatic activation of `allout-mode'.
1737 1737
1738The bindings are those listed in `allout-prefixed-keybindings' 1738The bindings are those listed in `allout-prefixed-keybindings'
1739and `allout-unprefixed-keybindings'. We recommend customizing 1739and `allout-unprefixed-keybindings'. We recommend customizing
@@ -1781,7 +1781,7 @@ the HOT-SPOT Operation section.
1781\\[allout-rebullet-current-heading] `allout-rebullet-current-heading' Prompt for alternate bullet for 1781\\[allout-rebullet-current-heading] `allout-rebullet-current-heading' Prompt for alternate bullet for
1782 current topic 1782 current topic
1783\\[allout-rebullet-topic] `allout-rebullet-topic' Reconcile bullets of topic and 1783\\[allout-rebullet-topic] `allout-rebullet-topic' Reconcile bullets of topic and
1784 its' offspring -- distinctive bullets are not changed, others 1784 its offspring -- distinctive bullets are not changed, others
1785 are alternated according to nesting depth. 1785 are alternated according to nesting depth.
1786\\[allout-number-siblings] `allout-number-siblings' Number bullets of topic and siblings -- 1786\\[allout-number-siblings] `allout-number-siblings' Number bullets of topic and siblings --
1787 the offspring are not affected. 1787 the offspring are not affected.
@@ -1791,12 +1791,12 @@ the HOT-SPOT Operation section.
1791 ---------------------------------- 1791 ----------------------------------
1792\\[allout-kill-topic] `allout-kill-topic' Kill current topic, including offspring. 1792\\[allout-kill-topic] `allout-kill-topic' Kill current topic, including offspring.
1793\\[allout-copy-topic-as-kill] `allout-copy-topic-as-kill' Copy current topic, including offspring. 1793\\[allout-copy-topic-as-kill] `allout-copy-topic-as-kill' Copy current topic, including offspring.
1794\\[allout-kill-line] `allout-kill-line' kill-line, attending to outline structure. 1794\\[allout-kill-line] `allout-kill-line' Kill line, attending to outline structure.
1795\\[allout-copy-line-as-kill] `allout-copy-line-as-kill' Copy line but don't delete it. 1795\\[allout-copy-line-as-kill] `allout-copy-line-as-kill' Copy line but don't delete it.
1796\\[allout-yank] `allout-yank' Yank, adjusting depth of yanked topic to 1796\\[allout-yank] `allout-yank' Yank, adjusting depth of yanked topic to
1797 depth of heading if yanking into bare topic 1797 depth of heading if yanking into bare topic
1798 heading (ie, prefix sans text). 1798 heading (ie, prefix sans text).
1799\\[allout-yank-pop] `allout-yank-pop' Is to allout-yank as yank-pop is to yank 1799\\[allout-yank-pop] `allout-yank-pop' Is to `allout-yank' as `yank-pop' is to `yank'.
1800 1800
1801 Topic-oriented Encryption: 1801 Topic-oriented Encryption:
1802 ------------------------- 1802 -------------------------
@@ -1836,7 +1836,7 @@ for a save, it is automatically decrypted for continued editing.
1836NOTE: A few GnuPG v2 versions improperly preserve incorrect 1836NOTE: A few GnuPG v2 versions improperly preserve incorrect
1837symmetric decryption keys, preventing entry of the correct key on 1837symmetric decryption keys, preventing entry of the correct key on
1838subsequent decryption attempts until the cache times-out. That 1838subsequent decryption attempts until the cache times-out. That
1839can take several minutes. \(Decryption of other entries is not 1839can take several minutes. (Decryption of other entries is not
1840affected.) Upgrade your EasyPG version, if you can, and you can 1840affected.) Upgrade your EasyPG version, if you can, and you can
1841deliberately clear your gpg-agent's cache by sending it a '-HUP' 1841deliberately clear your gpg-agent's cache by sending it a '-HUP'
1842signal. 1842signal.
@@ -1877,7 +1877,7 @@ hooks, by which independent code can cooperate with allout
1877without changes to the allout core. Here are key ones: 1877without changes to the allout core. Here are key ones:
1878 1878
1879`allout-mode-hook' 1879`allout-mode-hook'
1880`allout-mode-deactivate-hook' \(deprecated) 1880`allout-mode-deactivate-hook' (deprecated)
1881`allout-mode-off-hook' 1881`allout-mode-off-hook'
1882`allout-exposure-change-hook' 1882`allout-exposure-change-hook'
1883`allout-structure-added-hook' 1883`allout-structure-added-hook'
@@ -1939,7 +1939,7 @@ PREFIX-LEAD:
1939 When the PREFIX-LEAD is set to the comment-string of a 1939 When the PREFIX-LEAD is set to the comment-string of a
1940 programming language, outline structuring can be embedded in 1940 programming language, outline structuring can be embedded in
1941 program code without interfering with processing of the text 1941 program code without interfering with processing of the text
1942 (by emacs or the language processor) as program code. This 1942 (by Emacs or the language processor) as program code. This
1943 setting happens automatically when allout mode is used in 1943 setting happens automatically when allout mode is used in
1944 programming-mode buffers. See `allout-use-mode-specific-leader' 1944 programming-mode buffers. See `allout-use-mode-specific-leader'
1945 docstring for more detail. 1945 docstring for more detail.
@@ -1951,8 +1951,8 @@ BULLET: A character at the end of the ITEM PREFIX, it must be one of
1951 `allout-distinctive-bullets-string'. When creating a TOPIC, 1951 `allout-distinctive-bullets-string'. When creating a TOPIC,
1952 plain BULLETs are by default used, according to the DEPTH of the 1952 plain BULLETs are by default used, according to the DEPTH of the
1953 TOPIC. Choice among the distinctive BULLETs is offered when you 1953 TOPIC. Choice among the distinctive BULLETs is offered when you
1954 provide a universal argugment \(\\[universal-argument]) to the 1954 provide a universal argument (\\[universal-argument]) to the
1955 TOPIC creation command, or when explictly rebulleting a TOPIC. The 1955 TOPIC creation command, or when explicitly rebulleting a TOPIC. The
1956 significance of the various distinctive bullets is purely by 1956 significance of the various distinctive bullets is purely by
1957 convention. See the documentation for the above bullet strings for 1957 convention. See the documentation for the above bullet strings for
1958 more details. 1958 more details.
@@ -2250,7 +2250,7 @@ to return the current prefix."
2250 allout-recent-prefix-end)) 2250 allout-recent-prefix-end))
2251;;;_ > allout-recent-bullet () 2251;;;_ > allout-recent-bullet ()
2252(defmacro allout-recent-bullet () 2252(defmacro allout-recent-bullet ()
2253 "Like allout-recent-prefix, but returns bullet of last encountered prefix. 2253 "Like `allout-recent-prefix', but returns bullet of last encountered prefix.
2254 2254
2255All outline functions which directly do string matches to assess 2255All outline functions which directly do string matches to assess
2256headings set the variables `allout-recent-prefix-beginning' and 2256headings set the variables `allout-recent-prefix-beginning' and
@@ -2625,13 +2625,13 @@ The remaining optional args are for internal use by the function.
2625Point is left at the end of the subtree. 2625Point is left at the end of the subtree.
2626 2626
2627Charts are used to capture outline structure, so that outline-altering 2627Charts are used to capture outline structure, so that outline-altering
2628routines need assess the structure only once, and then use the chart 2628routines need to assess the structure only once, and then use the chart
2629for their elaborate manipulations. 2629for their elaborate manipulations.
2630 2630
2631The chart entries for the topics are in reverse order, so the 2631The chart entries for the topics are in reverse order, so the
2632last topic is listed first. The entry for each topic consists of 2632last topic is listed first. The entry for each topic consists of
2633an integer indicating the point at the beginning of the topic 2633an integer indicating the point at the beginning of the topic
2634prefix. Charts for offspring consists of a list containing, 2634prefix. Charts for offspring consist of a list containing,
2635recursively, the charts for the respective subtopics. The chart 2635recursively, the charts for the respective subtopics. The chart
2636for a topics' offspring precedes the entry for the topic itself. 2636for a topics' offspring precedes the entry for the topic itself.
2637 2637
@@ -3100,7 +3100,7 @@ Return the start point of the new topic if successful, nil otherwise.
3100 3100
3101Costs more than regular `allout-next-sibling' for short traversals: 3101Costs more than regular `allout-next-sibling' for short traversals:
3102 3102
3103 - we have to check the prior (next, if travelling backwards) 3103 - we have to check the prior (next, if traveling backwards)
3104 item to confirm connectivity with the prior topic, and 3104 item to confirm connectivity with the prior topic, and
3105 - if confirmed, we have to reestablish the allout-recent-* settings with 3105 - if confirmed, we have to reestablish the allout-recent-* settings with
3106 some extra navigation 3106 some extra navigation
@@ -3186,7 +3186,7 @@ Presumes point is at the start of a topic prefix."
3186 (if (allout-called-interactively-p) (allout-end-of-prefix))))) 3186 (if (allout-called-interactively-p) (allout-end-of-prefix)))))
3187;;;_ > allout-next-visible-heading (arg) 3187;;;_ > allout-next-visible-heading (arg)
3188(defun allout-next-visible-heading (arg) 3188(defun allout-next-visible-heading (arg)
3189 "Move to the next ARG'th visible heading line, backward if arg is negative. 3189 "Move to the next ARGth visible heading line, backward if ARG is negative.
3190 3190
3191Move to buffer limit in indicated direction if headings are exhausted." 3191Move to buffer limit in indicated direction if headings are exhausted."
3192 3192
@@ -3388,8 +3388,8 @@ return to regular interpretation of self-insert characters."
3388 "Catchall handling of key bindings in hot-spots. 3388 "Catchall handling of key bindings in hot-spots.
3389 3389
3390Translates unmodified keystrokes to corresponding allout commands, when 3390Translates unmodified keystrokes to corresponding allout commands, when
3391they would qualify if prefixed with the allout-command-prefix, and sets 3391they would qualify if prefixed with the `allout-command-prefix', and sets
3392this-command accordingly. 3392`this-command' accordingly.
3393 3393
3394Returns the qualifying command, if any, else nil." 3394Returns the qualifying command, if any, else nil."
3395 (interactive) 3395 (interactive)
@@ -3533,7 +3533,7 @@ the current topics' depth.
3533If INSTEAD is: 3533If INSTEAD is:
3534 3534
3535- nil, then the bullet char for the context is used, per distinction or depth 3535- nil, then the bullet char for the context is used, per distinction or depth
3536- a \(numeric) character, then character's string representation is used 3536- a (numeric) character, then character's string representation is used
3537- a string, then the user is asked for bullet with the first char as default 3537- a string, then the user is asked for bullet with the first char as default
3538- anything else, the user is solicited with bullet char per context as default 3538- anything else, the user is solicited with bullet char per context as default
3539 3539
@@ -3849,7 +3849,7 @@ Nuances:
3849(defun allout-open-subtopic (arg) 3849(defun allout-open-subtopic (arg)
3850 "Open new topic header at deeper level than the current one. 3850 "Open new topic header at deeper level than the current one.
3851 3851
3852Negative universal arg means to open deeper, but place the new topic 3852Negative universal ARG means to open deeper, but place the new topic
3853prior to the current one." 3853prior to the current one."
3854 (interactive "p") 3854 (interactive "p")
3855 (allout-open-topic 1 (> 0 arg) (< 1 arg))) 3855 (allout-open-topic 1 (> 0 arg) (< 1 arg)))
@@ -3857,9 +3857,9 @@ prior to the current one."
3857(defun allout-open-sibtopic (arg) 3857(defun allout-open-sibtopic (arg)
3858 "Open new topic header at same level as the current one. 3858 "Open new topic header at same level as the current one.
3859 3859
3860Positive universal arg means to use the bullet of the prior sibling. 3860Positive universal ARG means to use the bullet of the prior sibling.
3861 3861
3862Negative universal arg means to place the new topic prior to the current 3862Negative universal ARG means to place the new topic prior to the current
3863one." 3863one."
3864 (interactive "p") 3864 (interactive "p")
3865 (allout-open-topic 0 (> 0 arg) (not (= 1 arg)))) 3865 (allout-open-topic 0 (> 0 arg) (not (= 1 arg))))
@@ -3867,7 +3867,7 @@ one."
3867(defun allout-open-supertopic (arg) 3867(defun allout-open-supertopic (arg)
3868 "Open new topic header at shallower level than the current one. 3868 "Open new topic header at shallower level than the current one.
3869 3869
3870Negative universal arg means to open shallower, but place the new 3870Negative universal ARG means to open shallower, but place the new
3871topic prior to the current one." 3871topic prior to the current one."
3872 3872
3873 (interactive "p") 3873 (interactive "p")
@@ -3992,7 +3992,7 @@ All args are optional.
3992 3992
3993If INSTEAD is: 3993If INSTEAD is:
3994- nil, then the bullet char for the context is used, per distinction or depth 3994- nil, then the bullet char for the context is used, per distinction or depth
3995- a \(numeric) character, then character's string representation is used 3995- a (numeric) character, then character's string representation is used
3996- a string, then the user is asked for bullet with the first char as default 3996- a string, then the user is asked for bullet with the first char as default
3997- anything else, the user is solicited with bullet char per context as default 3997- anything else, the user is solicited with bullet char per context as default
3998 3998
@@ -4033,7 +4033,7 @@ this function."
4033 number-control 4033 number-control
4034 index))) 4034 index)))
4035 4035
4036 ;; Is new one is identical to old? 4036 ;; Is new one identical to old?
4037 (if (and (= current-depth new-depth) 4037 (if (and (= current-depth new-depth)
4038 (string= current-bullet 4038 (string= current-bullet
4039 (substring new-prefix (1- (length new-prefix))))) 4039 (substring new-prefix (1- (length new-prefix)))))
@@ -4407,7 +4407,7 @@ subtopics into siblings of the item."
4407 (run-hook-with-args 'allout-structure-deleted-hook depth (point)))))) 4407 (run-hook-with-args 'allout-structure-deleted-hook depth (point))))))
4408;;;_ > allout-copy-line-as-kill () 4408;;;_ > allout-copy-line-as-kill ()
4409(defun allout-copy-line-as-kill () 4409(defun allout-copy-line-as-kill ()
4410 "Like allout-kill-topic, but save to kill ring instead of deleting." 4410 "Like `allout-kill-topic', but save to kill ring instead of deleting."
4411 (interactive) 4411 (interactive)
4412 (let ((buffer-read-only t)) 4412 (let ((buffer-read-only t))
4413 (condition-case nil 4413 (condition-case nil
@@ -5854,12 +5854,12 @@ With repeat count, copy the exposed portions of entire buffer."
5854(defun allout-toggle-current-subtree-encryption (&optional keymode-cue) 5854(defun allout-toggle-current-subtree-encryption (&optional keymode-cue)
5855 "Encrypt clear or decrypt encoded topic text. 5855 "Encrypt clear or decrypt encoded topic text.
5856 5856
5857Allout uses emacs 'epg' libary to perform encryption. Symmetric 5857Allout uses Emacs 'epg' library to perform encryption. Symmetric
5858and keypair encryption are supported. All encryption is ascii 5858and keypair encryption are supported. All encryption is ascii
5859armored. 5859armored.
5860 5860
5861Entry encryption defaults to symmetric key mode unless keypair 5861Entry encryption defaults to symmetric key mode unless keypair
5862recipients are associated with the file \(see 5862recipients are associated with the file (see
5863`epa-file-encrypt-to') or the function is invoked with a 5863`epa-file-encrypt-to') or the function is invoked with a
5864\(KEYMODE-CUE) universal argument greater than 1. 5864\(KEYMODE-CUE) universal argument greater than 1.
5865 5865
@@ -5881,7 +5881,7 @@ pending encryption or encrypted. `*' asterisk immediately after
5881the bullet signals that the body is encrypted, its absence means 5881the bullet signals that the body is encrypted, its absence means
5882the topic is meant to be encrypted but is not currently. When a 5882the topic is meant to be encrypted but is not currently. When a
5883file with topics pending encryption is saved, topics pending 5883file with topics pending encryption is saved, topics pending
5884encryption are encrypted. See allout-encrypt-unencrypted-on-saves 5884encryption are encrypted. See `allout-encrypt-unencrypted-on-saves'
5885for auto-encryption specifics. 5885for auto-encryption specifics.
5886 5886
5887\*NOTE WELL* that automatic encryption that happens during saves will 5887\*NOTE WELL* that automatic encryption that happens during saves will
@@ -5900,7 +5900,7 @@ encrypted. If you want to encrypt the contents of a top-level topic, use
5900 "Encrypt clear text or decrypt encoded topic contents (body and subtopics.) 5900 "Encrypt clear text or decrypt encoded topic contents (body and subtopics.)
5901 5901
5902Entry encryption defaults to symmetric key mode unless keypair 5902Entry encryption defaults to symmetric key mode unless keypair
5903recipients are associated with the file \(see 5903recipients are associated with the file (see
5904`epa-file-encrypt-to') or the function is invoked with a 5904`epa-file-encrypt-to') or the function is invoked with a
5905\(KEYMODE-CUE) universal argument greater than 1. 5905\(KEYMODE-CUE) universal argument greater than 1.
5906 5906
@@ -5916,7 +5916,7 @@ associated with it. This can be used to deassociate any
5916recipients with the file, by selecting no recipients in the 5916recipients with the file, by selecting no recipients in the
5917dialog. 5917dialog.
5918 5918
5919Encryption and decryption uses the emacs epg library. 5919Encryption and decryption uses the Emacs 'epg' library.
5920 5920
5921Encrypted text will be ascii-armored. 5921Encrypted text will be ascii-armored.
5922 5922
@@ -6033,7 +6033,7 @@ If DECRYPT is true (default false), then decrypt instead of encrypt.
6033ALLOUT-BUFFER identifies the buffer containing the text. 6033ALLOUT-BUFFER identifies the buffer containing the text.
6034 6034
6035Entry encryption defaults to symmetric key mode unless keypair 6035Entry encryption defaults to symmetric key mode unless keypair
6036recipients are associated with the file \(see 6036recipients are associated with the file (see
6037`epa-file-encrypt-to') or the function is invoked with a 6037`epa-file-encrypt-to') or the function is invoked with a
6038\(KEYMODE-CUE) universal argument greater than 1. 6038\(KEYMODE-CUE) universal argument greater than 1.
6039 6039
@@ -6057,7 +6057,7 @@ rejections due to matches against
6057NOTE: A few GnuPG v2 versions improperly preserve incorrect 6057NOTE: A few GnuPG v2 versions improperly preserve incorrect
6058symmetric decryption keys, preventing entry of the correct key on 6058symmetric decryption keys, preventing entry of the correct key on
6059subsequent decryption attempts until the cache times-out. That 6059subsequent decryption attempts until the cache times-out. That
6060can take several minutes. \(Decryption of other entries is not 6060can take several minutes. (Decryption of other entries is not
6061affected.) Upgrade your EasyPG version, if you can, and you can 6061affected.) Upgrade your EasyPG version, if you can, and you can
6062deliberately clear your gpg-agent's cache by sending it a '-HUP' 6062deliberately clear your gpg-agent's cache by sending it a '-HUP'
6063signal." 6063signal."
@@ -6196,7 +6196,7 @@ signal."
6196(defun allout-inhibit-auto-save-info-for-decryption (was-buffer-saved-size) 6196(defun allout-inhibit-auto-save-info-for-decryption (was-buffer-saved-size)
6197 "Temporarily prevent auto-saves in this buffer when an item is decrypted. 6197 "Temporarily prevent auto-saves in this buffer when an item is decrypted.
6198 6198
6199WAS-BUFFER-SAVED-SIZE is the value of buffer-saved-size *before* 6199WAS-BUFFER-SAVED-SIZE is the value of `buffer-saved-size' *before*
6200the decryption." 6200the decryption."
6201 (when (not (or (= buffer-saved-size -1) (= was-buffer-saved-size -1))) 6201 (when (not (or (= buffer-saved-size -1) (= was-buffer-saved-size -1)))
6202 (setq allout-auto-save-temporarily-disabled was-buffer-saved-size 6202 (setq allout-auto-save-temporarily-disabled was-buffer-saved-size
@@ -6229,8 +6229,8 @@ the decryption."
6229 "Return the point of the next topic pending encryption, or nil if none. 6229 "Return the point of the next topic pending encryption, or nil if none.
6230 6230
6231Such a topic has the `allout-topic-encryption-bullet' without an 6231Such a topic has the `allout-topic-encryption-bullet' without an
6232immediately following '*' that would mark the topic as being encrypted. It 6232immediately following '*' that would mark the topic as being encrypted.
6233must also have content." 6233It must also have content."
6234 (let (done got content-beg) 6234 (let (done got content-beg)
6235 (save-match-data 6235 (save-match-data
6236 (while (not done) 6236 (while (not done)
@@ -6332,7 +6332,7 @@ save. See `allout-encrypt-unencrypted-on-saves' for more info."
6332 "Activate outline mode and establish file var so it is started subsequently. 6332 "Activate outline mode and establish file var so it is started subsequently.
6333 6333
6334See `allout-layout' and customization of `allout-auto-activation' 6334See `allout-layout' and customization of `allout-auto-activation'
6335for details on preparing emacs for automatic allout activation." 6335for details on preparing Emacs for automatic allout activation."
6336 6336
6337 (interactive "P") 6337 (interactive "P")
6338 6338
@@ -6380,7 +6380,7 @@ Returns a list of the form (BEGINNING-POINT PREFIX-STRING SUFFIX-STRING)."
6380(defun allout-adjust-file-variable (varname value) 6380(defun allout-adjust-file-variable (varname value)
6381 "Adjust the setting of an Emacs file variable named VARNAME to VALUE. 6381 "Adjust the setting of an Emacs file variable named VARNAME to VALUE.
6382 6382
6383This activity is inhibited if either `enable-local-variables' 6383This activity is inhibited if either `enable-local-variables' or
6384`allout-enable-file-variable-adjustment' are nil. 6384`allout-enable-file-variable-adjustment' are nil.
6385 6385
6386When enabled, an entry for the variable is created if not already present, 6386When enabled, an entry for the variable is created if not already present,
diff --git a/lisp/bookmark.el b/lisp/bookmark.el
index 51e869e3a21..4d93e01fb2e 100644
--- a/lisp/bookmark.el
+++ b/lisp/bookmark.el
@@ -83,7 +83,7 @@ To specify the file in which to save them, modify the variable
83 "The `.emacs.bmk' file used to be called this name.") 83 "The `.emacs.bmk' file used to be called this name.")
84 84
85 85
86;; defvarred to avoid a compilation warning: 86;; defvared to avoid a compilation warning:
87(defvar bookmark-file nil 87(defvar bookmark-file nil
88 "Old name for `bookmark-default-file'.") 88 "Old name for `bookmark-default-file'.")
89 89
diff --git a/lisp/calc/calc-nlfit.el b/lisp/calc/calc-nlfit.el
index 37e6f66c1b1..bd162866c31 100644
--- a/lisp/calc/calc-nlfit.el
+++ b/lisp/calc/calc-nlfit.el
@@ -22,7 +22,7 @@
22;;; Commentary: 22;;; Commentary:
23 23
24;; This code uses the Levenberg-Marquardt method, as described in 24;; This code uses the Levenberg-Marquardt method, as described in
25;; _Numerical Analysis_ by H. R. Schwarz, to fit data to 25;; _Numerical Analysis_ by H. R. Schwarz, to fit data to
26;; nonlinear curves. Currently, the only the following curves are 26;; nonlinear curves. Currently, the only the following curves are
27;; supported: 27;; supported:
28;; The logistic S curve, y=a/(1+exp(b*(t-c))) 28;; The logistic S curve, y=a/(1+exp(b*(t-c)))
@@ -33,14 +33,14 @@
33 33
34;; The logistic bell curve, y=A*exp(B*(t-C))/(1+exp(B*(t-C)))^2 34;; The logistic bell curve, y=A*exp(B*(t-C))/(1+exp(B*(t-C)))^2
35;; Note that this is the derivative of the formula for the S curve. 35;; Note that this is the derivative of the formula for the S curve.
36;; We get A=-a*b, B=b and C=c. Here, y is interpreted as the rate 36;; We get A=-a*b, B=b and C=c. Here, y is interpreted as the rate
37;; of growth of a population at time t. So we will think of the 37;; of growth of a population at time t. So we will think of the
38;; data as consisting of rates p0, p1, ..., pn and their 38;; data as consisting of rates p0, p1, ..., pn and their
39;; respective times t0, t1, ..., tn. 39;; respective times t0, t1, ..., tn.
40 40
41;; The Hubbert Linearization, y/x=A*(1-x/B) 41;; The Hubbert Linearization, y/x=A*(1-x/B)
42;; Here, y is thought of as the rate of growth of a population 42;; Here, y is thought of as the rate of growth of a population
43;; and x represents the actual population. This is essentially 43;; and x represents the actual population. This is essentially
44;; the differential equation describing the actual population. 44;; the differential equation describing the actual population.
45 45
46;; The Levenberg-Marquardt method is an iterative process: it takes 46;; The Levenberg-Marquardt method is an iterative process: it takes
@@ -53,7 +53,7 @@
53;; approximations for b and c are found using least squares on the 53;; approximations for b and c are found using least squares on the
54;; linearization log((a/y)-1) = log(bb) + cc*t of 54;; linearization log((a/y)-1) = log(bb) + cc*t of
55;; y=a/(1+bb*exp(cc*t)), which is equivalent to the above s curve 55;; y=a/(1+bb*exp(cc*t)), which is equivalent to the above s curve
56;; formula, and then tranlating it to b and c. From this, we can 56;; formula, and then translating it to b and c. From this, we can
57;; also get approximations for the bell curve parameters. 57;; also get approximations for the bell curve parameters.
58 58
59;;; Code: 59;;; Code:
@@ -68,7 +68,7 @@
68(defun math-nlfit-least-squares (xdata ydata &optional sdata sigmas) 68(defun math-nlfit-least-squares (xdata ydata &optional sdata sigmas)
69 "Return the parameters A and B for the best least squares fit y=a+bx." 69 "Return the parameters A and B for the best least squares fit y=a+bx."
70 (let* ((n (length xdata)) 70 (let* ((n (length xdata))
71 (s2data (if sdata 71 (s2data (if sdata
72 (mapcar 'calcFunc-sqr sdata) 72 (mapcar 'calcFunc-sqr sdata)
73 (make-list n 1))) 73 (make-list n 1)))
74 (S (if sdata 0 n)) 74 (S (if sdata 0 n))
@@ -109,11 +109,11 @@
109;;; The methods described by de Sousa require the cumulative data qdata 109;;; The methods described by de Sousa require the cumulative data qdata
110;;; and the rates pdata. We will assume that we are given either 110;;; and the rates pdata. We will assume that we are given either
111;;; qdata and the corresponding times tdata, or pdata and the corresponding 111;;; qdata and the corresponding times tdata, or pdata and the corresponding
112;;; tdata. The following two functions will find pdata or qdata, 112;;; tdata. The following two functions will find pdata or qdata,
113;;; given the other.. 113;;; given the other..
114 114
115;;; First, given two lists; one of values q0, q1, ..., qn and one of 115;;; First, given two lists; one of values q0, q1, ..., qn and one of
116;;; corresponding times t0, t1, ..., tn; return a list 116;;; corresponding times t0, t1, ..., tn; return a list
117;;; p0, p1, ..., pn of the rates of change of the qi with respect to t. 117;;; p0, p1, ..., pn of the rates of change of the qi with respect to t.
118;;; p0 is the right hand derivative (q1 - q0)/(t1 - t0). 118;;; p0 is the right hand derivative (q1 - q0)/(t1 - t0).
119;;; pn is the left hand derivative (qn - q(n-1))/(tn - t(n-1)). 119;;; pn is the left hand derivative (qn - q(n-1))/(tn - t(n-1)).
@@ -122,7 +122,7 @@
122 122
123(defun math-nlfit-get-rates-from-cumul (tdata qdata) 123(defun math-nlfit-get-rates-from-cumul (tdata qdata)
124 (let ((pdata (list 124 (let ((pdata (list
125 (math-div 125 (math-div
126 (math-sub (nth 1 qdata) 126 (math-sub (nth 1 qdata)
127 (nth 0 qdata)) 127 (nth 0 qdata))
128 (math-sub (nth 1 tdata) 128 (math-sub (nth 1 tdata)
@@ -155,7 +155,7 @@
155 pdata)) 155 pdata))
156 (reverse pdata))) 156 (reverse pdata)))
157 157
158;;; Next, given two lists -- one of rates p0, p1, ..., pn and one of 158;;; Next, given two lists -- one of rates p0, p1, ..., pn and one of
159;;; corresponding times t0, t1, ..., tn -- and an initial values q0, 159;;; corresponding times t0, t1, ..., tn -- and an initial values q0,
160;;; return a list q0, q1, ..., qn of the cumulative values. 160;;; return a list q0, q1, ..., qn of the cumulative values.
161;;; q0 is the initial value given. 161;;; q0 is the initial value given.
@@ -169,7 +169,7 @@
169 (cons 169 (cons
170 (math-add (car qdata) 170 (math-add (car qdata)
171 (math-mul 171 (math-mul
172 (math-mul 172 (math-mul
173 '(float 5 -1) 173 '(float 5 -1)
174 (math-add (nth 1 pdata) (nth 0 pdata))) 174 (math-add (nth 1 pdata) (nth 0 pdata)))
175 (math-sub (nth 1 tdata) 175 (math-sub (nth 1 tdata)
@@ -181,13 +181,13 @@
181 181
182;;; Given the qdata, pdata and tdata, find the parameters 182;;; Given the qdata, pdata and tdata, find the parameters
183;;; a, b and c that fit q = a/(1+b*exp(c*t)). 183;;; a, b and c that fit q = a/(1+b*exp(c*t)).
184;;; a is found using the method described by de Sousa. 184;;; a is found using the method described by de Sousa.
185;;; b and c are found using least squares on the linearization 185;;; b and c are found using least squares on the linearization
186;;; log((a/q)-1) = log(b) + c*t 186;;; log((a/q)-1) = log(b) + c*t
187;;; In some cases (where the logistic curve may well be the wrong 187;;; In some cases (where the logistic curve may well be the wrong
188;;; model), the computed a will be less than or equal to the maximum 188;;; model), the computed a will be less than or equal to the maximum
189;;; value of q in qdata; in which case the above linearization won't work. 189;;; value of q in qdata; in which case the above linearization won't work.
190;;; In this case, a will be replaced by a number slightly above 190;;; In this case, a will be replaced by a number slightly above
191;;; the maximum value of q. 191;;; the maximum value of q.
192 192
193(defun math-nlfit-find-qmax (qdata pdata tdata) 193(defun math-nlfit-find-qmax (qdata pdata tdata)
@@ -224,7 +224,7 @@
224 (setq qmh 224 (setq qmh
225 (math-add qmh 225 (math-add qmh
226 (math-mul 226 (math-mul
227 (math-mul 227 (math-mul
228 '(float 5 -1) 228 '(float 5 -1)
229 (math-add (nth 1 pdata) (nth 0 pdata))) 229 (math-add (nth 1 pdata) (nth 0 pdata)))
230 (math-sub (nth 1 tdata) 230 (math-sub (nth 1 tdata)
@@ -239,7 +239,7 @@
239 (let* ((qhalf (math-nlfit-find-qmaxhalf pdata tdata)) 239 (let* ((qhalf (math-nlfit-find-qmaxhalf pdata tdata))
240 (q0 (math-mul 2 qhalf)) 240 (q0 (math-mul 2 qhalf))
241 (qdata (math-nlfit-get-cumul-from-rates tdata pdata q0))) 241 (qdata (math-nlfit-get-cumul-from-rates tdata pdata q0)))
242 (while (math-lessp (math-nlfit-find-qmax 242 (while (math-lessp (math-nlfit-find-qmax
243 (mapcar 243 (mapcar
244 (lambda (q) (math-add q0 q)) 244 (lambda (q) (math-add q0 q))
245 qdata) 245 qdata)
@@ -260,7 +260,7 @@
260 (i 0)) 260 (i 0))
261 (while (< i 10) 261 (while (< i 10)
262 (setq q0 (math-mul '(float 5 -1) (math-add qmin qmax))) 262 (setq q0 (math-mul '(float 5 -1) (math-add qmin qmax)))
263 (if (math-lessp 263 (if (math-lessp
264 (math-nlfit-find-qmax 264 (math-nlfit-find-qmax
265 (mapcar 265 (mapcar
266 (lambda (q) (math-add q0 q)) 266 (lambda (q) (math-add q0 q))
@@ -272,7 +272,7 @@
272 (setq i (1+ i))) 272 (setq i (1+ i)))
273 (math-mul '(float 5 -1) (math-add qmin qmax))))) 273 (math-mul '(float 5 -1) (math-add qmin qmax)))))
274 274
275;;; To improve the approximations to the parameters, we can use 275;;; To improve the approximations to the parameters, we can use
276;;; Marquardt method as described in Schwarz's book. 276;;; Marquardt method as described in Schwarz's book.
277 277
278;;; Small numbers used in the Givens algorithm 278;;; Small numbers used in the Givens algorithm
@@ -329,7 +329,7 @@
329 (let ((cij (math-nlfit-get-matx-elt C i j)) 329 (let ((cij (math-nlfit-get-matx-elt C i j))
330 (cjj (math-nlfit-get-matx-elt C j j))) 330 (cjj (math-nlfit-get-matx-elt C j j)))
331 (when (not (math-equal 0 cij)) 331 (when (not (math-equal 0 cij))
332 (if (math-lessp (calcFunc-abs cjj) 332 (if (math-lessp (calcFunc-abs cjj)
333 (math-mul math-nlfit-delta (calcFunc-abs cij))) 333 (math-mul math-nlfit-delta (calcFunc-abs cij)))
334 (setq w (math-neg cij) 334 (setq w (math-neg cij)
335 gamma 0 335 gamma 0
@@ -337,7 +337,7 @@
337 rho 1) 337 rho 1)
338 (setq w (math-mul 338 (setq w (math-mul
339 (calcFunc-sign cjj) 339 (calcFunc-sign cjj)
340 (calcFunc-sqrt 340 (calcFunc-sqrt
341 (math-add 341 (math-add
342 (math-mul cjj cjj) 342 (math-mul cjj cjj)
343 (math-mul cij cij)))) 343 (math-mul cij cij))))
@@ -351,10 +351,10 @@
351 (math-nlfit-set-matx-elt C j j w) 351 (math-nlfit-set-matx-elt C j j w)
352 (math-nlfit-set-matx-elt C i j rho) 352 (math-nlfit-set-matx-elt C i j rho)
353 (let ((k (1+ j))) 353 (let ((k (1+ j)))
354 (while (<= k n) 354 (while (<= k n)
355 (let* ((cjk (math-nlfit-get-matx-elt C j k)) 355 (let* ((cjk (math-nlfit-get-matx-elt C j k))
356 (cik (math-nlfit-get-matx-elt C i k)) 356 (cik (math-nlfit-get-matx-elt C i k))
357 (h (math-sub 357 (h (math-sub
358 (math-mul gamma cjk) (math-mul sigma cik)))) 358 (math-mul gamma cjk) (math-mul sigma cik))))
359 (setq cik (math-add 359 (setq cik (math-add
360 (math-mul sigma cjk) 360 (math-mul sigma cjk)
@@ -386,9 +386,9 @@
386 (setq s (math-add s (math-mul (math-nlfit-get-matx-elt C i k) 386 (setq s (math-add s (math-mul (math-nlfit-get-matx-elt C i k)
387 (math-nlfit-get-elt x k)))) 387 (math-nlfit-get-elt x k))))
388 (setq k (1+ k)))) 388 (setq k (1+ k))))
389 (math-nlfit-set-elt x i 389 (math-nlfit-set-elt x i
390 (math-neg 390 (math-neg
391 (math-div s 391 (math-div s
392 (math-nlfit-get-matx-elt C i i)))) 392 (math-nlfit-get-matx-elt C i i))))
393 (setq i (1- i)))) 393 (setq i (1- i))))
394 (let ((i (1+ n))) 394 (let ((i (1+ n)))
@@ -405,7 +405,7 @@
405 sigma 1) 405 sigma 1)
406 (if (math-lessp (calcFunc-abs rho) 1) 406 (if (math-lessp (calcFunc-abs rho) 1)
407 (setq sigma rho 407 (setq sigma rho
408 gamma (calcFunc-sqrt 408 gamma (calcFunc-sqrt
409 (math-sub 1 (math-mul sigma sigma)))) 409 (math-sub 1 (math-mul sigma sigma))))
410 (setq gamma (math-div 1 (calcFunc-abs rho)) 410 (setq gamma (math-div 1 (calcFunc-abs rho))
411 sigma (math-mul (calcFunc-sign rho) 411 sigma (math-mul (calcFunc-sign rho)
@@ -429,7 +429,7 @@
429 429
430(defun math-nlfit-jacobian (grad xlist parms &optional slist) 430(defun math-nlfit-jacobian (grad xlist parms &optional slist)
431 (let ((j nil)) 431 (let ((j nil))
432 (while xlist 432 (while xlist
433 (let ((row (apply grad (car xlist) parms))) 433 (let ((row (apply grad (car xlist) parms)))
434 (setq j 434 (setq j
435 (cons 435 (cons
@@ -495,7 +495,7 @@
495 (setq ydata (cdr ydata)) 495 (setq ydata (cdr ydata))
496 (setq sdata (cdr sdata))) 496 (setq sdata (cdr sdata)))
497 (reverse d))) 497 (reverse d)))
498 498
499(defun math-nlfit-make-dtilda (d n) 499(defun math-nlfit-make-dtilda (d n)
500 (append d (make-list n 0))) 500 (append d (make-list n 0)))
501 501
@@ -520,8 +520,8 @@
520 (newchisq (math-nlfit-chi-sq xlist ylist newparms fn slist))) 520 (newchisq (math-nlfit-chi-sq xlist ylist newparms fn slist)))
521 (if (math-lessp newchisq chisq) 521 (if (math-lessp newchisq chisq)
522 (progn 522 (progn
523 (if (math-lessp 523 (if (math-lessp
524 (math-div 524 (math-div
525 (math-sub chisq newchisq) newchisq) math-nlfit-epsilon) 525 (math-sub chisq newchisq) newchisq) math-nlfit-epsilon)
526 (setq really-done t)) 526 (setq really-done t))
527 (setq lambda (math-div lambda 10)) 527 (setq lambda (math-div lambda 10))
@@ -551,7 +551,7 @@
551 (let ((ex (calcFunc-exp (math-mul c (math-sub x d))))) 551 (let ((ex (calcFunc-exp (math-mul c (math-sub x d)))))
552 (math-div 552 (math-div
553 (math-mul a ex) 553 (math-mul a ex)
554 (math-sqr 554 (math-sqr
555 (math-add 555 (math-add
556 1 ex))))) 556 1 ex)))))
557 557
@@ -582,7 +582,7 @@
582 582
583(defun math-nlfit-find-covar (grad xlist pparms) 583(defun math-nlfit-find-covar (grad xlist pparms)
584 (let ((j nil)) 584 (let ((j nil))
585 (while xlist 585 (while xlist
586 (setq j (cons (cons 'vec (apply grad (car xlist) pparms)) j)) 586 (setq j (cons (cons 'vec (apply grad (car xlist) pparms)) j))
587 (setq xlist (cdr xlist))) 587 (setq xlist (cdr xlist)))
588 (setq j (cons 'vec (reverse j))) 588 (setq j (cons 'vec (reverse j)))
@@ -603,7 +603,7 @@
603 (setq i (1+ i))) 603 (setq i (1+ i)))
604 (setq sgs (reverse sgs))) 604 (setq sgs (reverse sgs)))
605 (list sgs covar))) 605 (list sgs covar)))
606 606
607;;; Now the Calc functions 607;;; Now the Calc functions
608 608
609(defun math-nlfit-s-logistic-params (xdata ydata) 609(defun math-nlfit-s-logistic-params (xdata ydata)
@@ -687,15 +687,15 @@
687 (funcall initparms xdata ydata)) 687 (funcall initparms xdata ydata))
688 (fit (math-nlfit-fit xdata ydata parmguess fn grad sdata)) 688 (fit (math-nlfit-fit xdata ydata parmguess fn grad sdata))
689 (finalparms (nth 1 fit)) 689 (finalparms (nth 1 fit))
690 (sigmacovar 690 (sigmacovar
691 (if sdevv 691 (if sdevv
692 (math-nlfit-get-sigmas grad xdata finalparms (nth 0 fit)))) 692 (math-nlfit-get-sigmas grad xdata finalparms (nth 0 fit))))
693 (sigmas 693 (sigmas
694 (if sdevv 694 (if sdevv
695 (nth 0 sigmacovar))) 695 (nth 0 sigmacovar)))
696 (finalparms 696 (finalparms
697 (if sigmas 697 (if sigmas
698 (math-map-binop 698 (math-map-binop
699 (lambda (x y) (list 'sdev x y)) finalparms sigmas) 699 (lambda (x y) (list 'sdev x y)) finalparms sigmas)
700 finalparms)) 700 finalparms))
701 (soln (funcall solnexpr finalparms var))) 701 (soln (funcall solnexpr finalparms var)))
@@ -712,8 +712,8 @@
712 ((eq sdv 'calcFunc-xfit) 712 ((eq sdv 'calcFunc-xfit)
713 (let (sln) 713 (let (sln)
714 (setq sln 714 (setq sln
715 (list 'vec 715 (list 'vec
716 soln 716 soln
717 traillist 717 traillist
718 (nth 1 sigmacovar) 718 (nth 1 sigmacovar)
719 '(vec) 719 '(vec)
@@ -721,7 +721,7 @@
721 (let ((n (length xdata)) 721 (let ((n (length xdata))
722 (m (length finalparms))) 722 (m (length finalparms)))
723 (if (and sdata (> n m)) 723 (if (and sdata (> n m))
724 (calcFunc-utpc (nth 0 fit) 724 (calcFunc-utpc (nth 0 fit)
725 (- n m)) 725 (- n m))
726 '(var nan var-nan))))) 726 '(var nan var-nan)))))
727 (math-nlfit-enter-result 1 "xfit" sln))) 727 (math-nlfit-enter-result 1 "xfit" sln)))
@@ -787,14 +787,14 @@
787 (list (nth 1 (nth 0 finalparms)) 787 (list (nth 1 (nth 0 finalparms))
788 (nth 1 (nth 1 finalparms))) 788 (nth 1 (nth 1 finalparms)))
789 (lambda (x a b) 789 (lambda (x a b)
790 (math-mul a 790 (math-mul a
791 (math-sub 791 (math-sub
792 1 792 1
793 (math-div x b)))) 793 (math-div x b))))
794 sdata))) 794 sdata)))
795 (setq sln 795 (setq sln
796 (list 'vec 796 (list 'vec
797 soln 797 soln
798 traillist 798 traillist
799 (nth 2 parmvals) 799 (nth 2 parmvals)
800 (list 800 (list
@@ -807,7 +807,7 @@
807 chisq 807 chisq
808 (let ((n (length qdata))) 808 (let ((n (length qdata)))
809 (if (and sdata (> n 2)) 809 (if (and sdata (> n 2))
810 (calcFunc-utpc 810 (calcFunc-utpc
811 chisq 811 chisq
812 (- n 2)) 812 (- n 2))
813 '(var nan var-nan))))) 813 '(var nan var-nan)))))
@@ -817,4 +817,3 @@
817 (calc-record traillist "parm"))))) 817 (calc-record traillist "parm")))))
818 818
819(provide 'calc-nlfit) 819(provide 'calc-nlfit)
820
diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el
index 626d2462b4f..23f955afe7c 100644
--- a/lisp/calc/calc.el
+++ b/lisp/calc/calc.el
@@ -1003,7 +1003,7 @@ Used by `calc-user-invocation'.")
1003(defvar calc-quick-prev-results nil 1003(defvar calc-quick-prev-results nil
1004 "Previous results from Quick Calc.") 1004 "Previous results from Quick Calc.")
1005(defvar calc-said-hello nil 1005(defvar calc-said-hello nil
1006 "Non-nil if the welcomd message has been displayed.") 1006 "Non-nil if the welcome message has been displayed.")
1007(defvar calc-executing-macro nil 1007(defvar calc-executing-macro nil
1008 "Non-nil if a keyboard macro is executing from the \"K\" key.") 1008 "Non-nil if a keyboard macro is executing from the \"K\" key.")
1009(defvar calc-any-selections nil 1009(defvar calc-any-selections nil
diff --git a/lisp/cedet/ChangeLog b/lisp/cedet/ChangeLog
index 788bf71845f..f3ff89ddd7f 100644
--- a/lisp/cedet/ChangeLog
+++ b/lisp/cedet/ChangeLog
@@ -1,3 +1,15 @@
12011-11-26 Chong Yidong <cyd@gnu.org>
2
3 * semantic/wisent/python-wy.el:
4 * semantic/wisent/js-wy.el:
5 * semantic/wisent/javat-wy.el:
6 * semantic/bovine/c-by.el:
7 * semantic/grammar-wy.el: Regenerate.
8
92011-11-24 Juanma Barranquero <lekktu@gmail.com>
10
11 * semantic/lex-spp.el (semantic-lex-spp-first-token-arg-list): Fix typo.
12
12011-11-20 Juanma Barranquero <lekktu@gmail.com> 132011-11-20 Juanma Barranquero <lekktu@gmail.com>
2 14
3 * cedet-cscope.el (cedet-cscope-version-check): 15 * cedet-cscope.el (cedet-cscope-version-check):
diff --git a/lisp/cedet/ede/autoconf-edit.el b/lisp/cedet/ede/autoconf-edit.el
index bd4a5a627a9..c6545dd9015 100644
--- a/lisp/cedet/ede/autoconf-edit.el
+++ b/lisp/cedet/ede/autoconf-edit.el
@@ -191,7 +191,7 @@ This is to make it compatible with `autoconf-find-last-macro'.
191Assume that MACRO doesn't appear in the buffer yet, so search 191Assume that MACRO doesn't appear in the buffer yet, so search
192the ordering list `autoconf-preferred-macro-order'." 192the ordering list `autoconf-preferred-macro-order'."
193 ;; Search this list backwards.. heh heh heh 193 ;; Search this list backwards.. heh heh heh
194 ;; This lets us do a reverse search easilly. 194 ;; This lets us do a reverse search easily.
195 (let ((ml (member macro (reverse autoconf-preferred-macro-order)))) 195 (let ((ml (member macro (reverse autoconf-preferred-macro-order))))
196 (if (not ml) (error "Don't know how to position for %s yet" macro)) 196 (if (not ml) (error "Don't know how to position for %s yet" macro))
197 (setq ml (cdr ml)) 197 (setq ml (cdr ml))
diff --git a/lisp/cedet/ede/files.el b/lisp/cedet/ede/files.el
index 6179d304464..f17dfd85fdf 100644
--- a/lisp/cedet/ede/files.el
+++ b/lisp/cedet/ede/files.el
@@ -249,7 +249,7 @@ Do this whenever a new project is created, as opposed to loaded."
249 "Return a project description object if DIR has a project. 249 "Return a project description object if DIR has a project.
250Optional argument FORCE means to ignore a hash-hit of 'nomatch. 250Optional argument FORCE means to ignore a hash-hit of 'nomatch.
251This depends on an up to date `ede-project-class-files' variable. 251This depends on an up to date `ede-project-class-files' variable.
252Any directory that contains the file .ede-ignore will allways 252Any directory that contains the file .ede-ignore will always
253return nil." 253return nil."
254 (when (not (file-exists-p (expand-file-name ".ede-ignore" dir))) 254 (when (not (file-exists-p (expand-file-name ".ede-ignore" dir)))
255 (let* ((dirtest (expand-file-name dir)) 255 (let* ((dirtest (expand-file-name dir))
diff --git a/lisp/cedet/ede/proj-shared.el b/lisp/cedet/ede/proj-shared.el
index ec514194e33..4e233f56a12 100644
--- a/lisp/cedet/ede/proj-shared.el
+++ b/lisp/cedet/ede/proj-shared.el
@@ -61,7 +61,7 @@ Use ldlibs to add addition libraries.")
61; "$(CC_SHARED) -shared $(CFLAGS) $(LDFLAGS) -L. -o $@ $^") 61; "$(CC_SHARED) -shared $(CFLAGS) $(LDFLAGS) -L. -o $@ $^")
62; ) 62; )
63; :commands '("$(C_SHARED_LINK) %s") 63; :commands '("$(C_SHARED_LINK) %s")
64 ;; @TODO - addative modification of autoconf. 64 ;; @TODO - additive modification of autoconf.
65 :autoconf '("AC_PROG_LIBTOOL") 65 :autoconf '("AC_PROG_LIBTOOL")
66 ) 66 )
67 "Compiler for C sourcecode.") 67 "Compiler for C sourcecode.")
@@ -108,7 +108,7 @@ Use ldlibs to add addition libraries.")
108 :variables '(("CXX_SHARED" . "g++") 108 :variables '(("CXX_SHARED" . "g++")
109 ("CXX_SHARED_COMPILE" . 109 ("CXX_SHARED_COMPILE" .
110 "$(CXX_SHARED) -shared $(DEFS) $(INCLUDES) $(CPPFLAGS) $(CFLAGS)")) 110 "$(CXX_SHARED) -shared $(DEFS) $(INCLUDES) $(CPPFLAGS) $(CFLAGS)"))
111 ;; @TODO - addative modification of autoconf. 111 ;; @TODO - additive modification of autoconf.
112 :autoconf '("AC_PROG_LIBTOOL") 112 :autoconf '("AC_PROG_LIBTOOL")
113 ) 113 )
114 "Compiler for C sourcecode.") 114 "Compiler for C sourcecode.")
diff --git a/lisp/cedet/ede/proj.el b/lisp/cedet/ede/proj.el
index 79022be6a5f..a77bb02218b 100644
--- a/lisp/cedet/ede/proj.el
+++ b/lisp/cedet/ede/proj.el
@@ -546,7 +546,7 @@ You may need to add support for this type of file."
546 (file-name-extension (car sources)) 546 (file-name-extension (car sources))
547 ""))) 547 "")))
548 )) 548 ))
549 ;; Return the disovered compilers 549 ;; Return the discovered compilers.
550 comp))) 550 comp)))
551 551
552(defmethod ede-proj-linkers ((obj ede-proj-target)) 552(defmethod ede-proj-linkers ((obj ede-proj-target))
@@ -580,7 +580,7 @@ Converts all symbols into the objects to be used."
580 (while (and avail (not (eieio-instance-inheritor-slot-boundp (car avail) 'sourcetype))) 580 (while (and avail (not (eieio-instance-inheritor-slot-boundp (car avail) 'sourcetype)))
581 (setq avail (cdr avail))) 581 (setq avail (cdr avail)))
582 (setq link (cdr avail))))) 582 (setq link (cdr avail)))))
583 ;; Return the disovered linkers 583 ;; Return the discovered linkers.
584 link))) 584 link)))
585 585
586 586
diff --git a/lisp/cedet/semantic.el b/lisp/cedet/semantic.el
index 3ffb6baee9f..3355ed83a91 100644
--- a/lisp/cedet/semantic.el
+++ b/lisp/cedet/semantic.el
@@ -437,7 +437,7 @@ RETURNONERROR specifies that parsing should stop on the first
437unmatched syntax encountered. When nil, parsing skips the syntax, 437unmatched syntax encountered. When nil, parsing skips the syntax,
438adding it to the unmatched syntax cache. 438adding it to the unmatched syntax cache.
439 439
440Must return a list of semantic tags wich have been cooked 440Must return a list of semantic tags which have been cooked
441\(repositioned properly) but which DO NOT HAVE OVERLAYS associated 441\(repositioned properly) but which DO NOT HAVE OVERLAYS associated
442with them. When overloading this function, use `semantic--tag-expand' 442with them. When overloading this function, use `semantic--tag-expand'
443to cook raw tags.") 443to cook raw tags.")
diff --git a/lisp/cedet/semantic/analyze.el b/lisp/cedet/semantic/analyze.el
index ae199703c80..ef09ea13b42 100644
--- a/lisp/cedet/semantic/analyze.el
+++ b/lisp/cedet/semantic/analyze.el
@@ -57,7 +57,7 @@
57;; 57;;
58;; context - A semantic datatype representing a point in a buffer. 58;; context - A semantic datatype representing a point in a buffer.
59;; 59;;
60;; constriant - If a context specifies a specific datatype is needed, 60;; constraint - If a context specifies a specific datatype is needed,
61;; that is a constraint. 61;; that is a constraint.
62;; constants - Some datatypes define elements of themselves as a 62;; constants - Some datatypes define elements of themselves as a
63;; constant. These need to be returned as there would be no 63;; constant. These need to be returned as there would be no
@@ -254,7 +254,7 @@ Optional argument THROWSYM specifies a symbol the throw on non-recoverable error
254 (fname nil) 254 (fname nil)
255 (miniscope (when scope (clone scope))) 255 (miniscope (when scope (clone scope)))
256 ) 256 )
257 ;; First order check. Is this wholely contained in the typecache? 257 ;; First order check. Is this wholly contained in the typecache?
258 (setq tmp (semanticdb-typecache-find sequence)) 258 (setq tmp (semanticdb-typecache-find sequence))
259 259
260 (if tmp 260 (if tmp
diff --git a/lisp/cedet/semantic/analyze/fcn.el b/lisp/cedet/semantic/analyze/fcn.el
index eae6d013400..967e5c59cda 100644
--- a/lisp/cedet/semantic/analyze/fcn.el
+++ b/lisp/cedet/semantic/analyze/fcn.el
@@ -157,7 +157,7 @@ Almost all searches use the same arguments."
157;; 157;;
158 158
159(define-overloadable-function semantic-analyze-dereference-metatype (type scope &optional type-declaration) 159(define-overloadable-function semantic-analyze-dereference-metatype (type scope &optional type-declaration)
160 ;; todo - move into typecahe!! 160 ;; todo - move into typecache!!
161 "Return a concrete type tag based on input TYPE tag. 161 "Return a concrete type tag based on input TYPE tag.
162A concrete type is an actual declaration of a memory description, 162A concrete type is an actual declaration of a memory description,
163such as a structure, or class. A meta type is an alias, 163such as a structure, or class. A meta type is an alias,
diff --git a/lisp/cedet/semantic/bovine/c-by.el b/lisp/cedet/semantic/bovine/c-by.el
index 31489a4f625..99429f01acd 100644
--- a/lisp/cedet/semantic/bovine/c-by.el
+++ b/lisp/cedet/semantic/bovine/c-by.el
@@ -1,6 +1,6 @@
1;;; semantic/bovine/c-by.el --- Generated parser support file 1;;; semantic/bovine/c-by.el --- Generated parser support file
2 2
3;;; Copyright (C) 1999-2011 Free Software Foundation, Inc. 3;; Copyright (C) 1999-2011 Free Software Foundation, Inc.
4 4
5;; This file is part of GNU Emacs. 5;; This file is part of GNU Emacs.
6 6
diff --git a/lisp/cedet/semantic/bovine/c.el b/lisp/cedet/semantic/bovine/c.el
index 686113c23e2..fe659d118e1 100644
--- a/lisp/cedet/semantic/bovine/c.el
+++ b/lisp/cedet/semantic/bovine/c.el
@@ -298,7 +298,7 @@ Moves completely over balanced #if blocks."
298 ;; @TODO - can we use the new c-scan-conditionals 298 ;; @TODO - can we use the new c-scan-conditionals
299 (c-forward-conditional 1)) 299 (c-forward-conditional 1))
300 ((looking-at "^\\s-*#\\s-*elif") 300 ((looking-at "^\\s-*#\\s-*elif")
301 ;; We need to let the preprocessor analize this one. 301 ;; We need to let the preprocessor analyze this one.
302 (beginning-of-line) 302 (beginning-of-line)
303 (setq done t) 303 (setq done t)
304 ) 304 )
diff --git a/lisp/cedet/semantic/complete.el b/lisp/cedet/semantic/complete.el
index aaec4cb30ff..7e01b88f60b 100644
--- a/lisp/cedet/semantic/complete.el
+++ b/lisp/cedet/semantic/complete.el
@@ -1023,7 +1023,7 @@ Output must be in semanticdb Find result format."
1023 1023
1024(defmethod semantic-collector-try-completion-whitespace 1024(defmethod semantic-collector-try-completion-whitespace
1025 ((obj semantic-collector-abstract) prefix) 1025 ((obj semantic-collector-abstract) prefix)
1026 "For OBJ, do whatepsace completion based on PREFIX. 1026 "For OBJ, do whitespace completion based on PREFIX.
1027This implies that if there are two completions, one matching 1027This implies that if there are two completions, one matching
1028the test \"prefix\\>\", and one not, the one matching the full 1028the test \"prefix\\>\", and one not, the one matching the full
1029word version of PREFIX will be chosen, and that text returned. 1029word version of PREFIX will be chosen, and that text returned.
diff --git a/lisp/cedet/semantic/grammar-wy.el b/lisp/cedet/semantic/grammar-wy.el
index acaad49f6af..879fdd92331 100644
--- a/lisp/cedet/semantic/grammar-wy.el
+++ b/lisp/cedet/semantic/grammar-wy.el
@@ -22,8 +22,7 @@
22 22
23;;; Commentary: 23;;; Commentary:
24;; 24;;
25;; This file is generated from the grammar file semantic-grammar.wy in 25;; This file was generated from admin/grammars/grammar.wy.
26;; the upstream CEDET repository.
27 26
28;;; Code: 27;;; Code:
29 28
@@ -113,296 +112,296 @@
113 '((DEFAULT-PREC NO-DEFAULT-PREC KEYWORD LANGUAGEMODE LEFT NONASSOC PACKAGE PREC PUT QUOTEMODE RIGHT SCOPESTART START TOKEN TYPE USE-MACROS STRING SYMBOL PERCENT_PERCENT CHARACTER PREFIXED_LIST SEXP PROLOGUE EPILOGUE PAREN_BLOCK BRACE_BLOCK LPAREN RPAREN LBRACE RBRACE COLON SEMI OR LT GT) 112 '((DEFAULT-PREC NO-DEFAULT-PREC KEYWORD LANGUAGEMODE LEFT NONASSOC PACKAGE PREC PUT QUOTEMODE RIGHT SCOPESTART START TOKEN TYPE USE-MACROS STRING SYMBOL PERCENT_PERCENT CHARACTER PREFIXED_LIST SEXP PROLOGUE EPILOGUE PAREN_BLOCK BRACE_BLOCK LPAREN RPAREN LBRACE RBRACE COLON SEMI OR LT GT)
114 nil 113 nil
115 (grammar 114 (grammar
116 ((prologue)) 115 ((prologue))
117 ((epilogue)) 116 ((epilogue))
118 ((declaration)) 117 ((declaration))
119 ((nonterminal)) 118 ((nonterminal))
120 ((PERCENT_PERCENT))) 119 ((PERCENT_PERCENT)))
121 (prologue 120 (prologue
122 ((PROLOGUE) 121 ((PROLOGUE)
123 (wisent-raw-tag 122 (wisent-raw-tag
124 (semantic-tag-new-code "prologue" nil)))) 123 (semantic-tag-new-code "prologue" nil))))
125 (epilogue 124 (epilogue
126 ((EPILOGUE) 125 ((EPILOGUE)
127 (wisent-raw-tag 126 (wisent-raw-tag
128 (semantic-tag-new-code "epilogue" nil)))) 127 (semantic-tag-new-code "epilogue" nil))))
129 (declaration 128 (declaration
130 ((decl) 129 ((decl)
131 (eval $1))) 130 (eval $1)))
132 (decl 131 (decl
133 ((default_prec_decl)) 132 ((default_prec_decl))
134 ((no_default_prec_decl)) 133 ((no_default_prec_decl))
135 ((languagemode_decl)) 134 ((languagemode_decl))
136 ((package_decl)) 135 ((package_decl))
137 ((precedence_decl)) 136 ((precedence_decl))
138 ((put_decl)) 137 ((put_decl))
139 ((quotemode_decl)) 138 ((quotemode_decl))
140 ((scopestart_decl)) 139 ((scopestart_decl))
141 ((start_decl)) 140 ((start_decl))
142 ((keyword_decl)) 141 ((keyword_decl))
143 ((token_decl)) 142 ((token_decl))
144 ((type_decl)) 143 ((type_decl))
145 ((use_macros_decl))) 144 ((use_macros_decl)))
146 (default_prec_decl 145 (default_prec_decl
147 ((DEFAULT-PREC) 146 ((DEFAULT-PREC)
148 `(wisent-raw-tag 147 `(wisent-raw-tag
149 (semantic-tag "default-prec" 'assoc :value 148 (semantic-tag "default-prec" 'assoc :value
150 '("t"))))) 149 '("t")))))
151 (no_default_prec_decl 150 (no_default_prec_decl
152 ((NO-DEFAULT-PREC) 151 ((NO-DEFAULT-PREC)
153 `(wisent-raw-tag 152 `(wisent-raw-tag
154 (semantic-tag "default-prec" 'assoc :value 153 (semantic-tag "default-prec" 'assoc :value
155 '("nil"))))) 154 '("nil")))))
156 (languagemode_decl 155 (languagemode_decl
157 ((LANGUAGEMODE symbols) 156 ((LANGUAGEMODE symbols)
158 `(wisent-raw-tag 157 `(wisent-raw-tag
159 (semantic-tag ',(car $2) 158 (semantic-tag ',(car $2)
160 'languagemode :rest ',(cdr $2))))) 159 'languagemode :rest ',(cdr $2)))))
161 (package_decl 160 (package_decl
162 ((PACKAGE SYMBOL) 161 ((PACKAGE SYMBOL)
163 `(wisent-raw-tag 162 `(wisent-raw-tag
164 (semantic-tag-new-package ',$2 nil)))) 163 (semantic-tag-new-package ',$2 nil))))
165 (precedence_decl 164 (precedence_decl
166 ((associativity token_type_opt items) 165 ((associativity token_type_opt items)
167 `(wisent-raw-tag 166 `(wisent-raw-tag
168 (semantic-tag ',$1 'assoc :type ',$2 :value ',$3)))) 167 (semantic-tag ',$1 'assoc :type ',$2 :value ',$3))))
169 (associativity 168 (associativity
170 ((LEFT) 169 ((LEFT)
171 (progn "left")) 170 (progn "left"))
172 ((RIGHT) 171 ((RIGHT)
173 (progn "right")) 172 (progn "right"))
174 ((NONASSOC) 173 ((NONASSOC)
175 (progn "nonassoc"))) 174 (progn "nonassoc")))
176 (put_decl 175 (put_decl
177 ((PUT put_name put_value) 176 ((PUT put_name put_value)
178 `(wisent-raw-tag 177 `(wisent-raw-tag
179 (semantic-tag ',$2 'put :value ',(list $3)))) 178 (semantic-tag ',$2 'put :value ',(list $3))))
180 ((PUT put_name put_value_list) 179 ((PUT put_name put_value_list)
181 `(wisent-raw-tag 180 `(wisent-raw-tag
182 (semantic-tag ',$2 'put :value ',$3))) 181 (semantic-tag ',$2 'put :value ',$3)))
183 ((PUT put_name_list put_value) 182 ((PUT put_name_list put_value)
184 `(wisent-raw-tag 183 `(wisent-raw-tag
185 (semantic-tag ',(car $2) 184 (semantic-tag ',(car $2)
186 'put :rest ',(cdr $2) 185 'put :rest ',(cdr $2)
187 :value ',(list $3)))) 186 :value ',(list $3))))
188 ((PUT put_name_list put_value_list) 187 ((PUT put_name_list put_value_list)
189 `(wisent-raw-tag 188 `(wisent-raw-tag
190 (semantic-tag ',(car $2) 189 (semantic-tag ',(car $2)
191 'put :rest ',(cdr $2) 190 'put :rest ',(cdr $2)
192 :value ',$3)))) 191 :value ',$3))))
193 (put_name_list 192 (put_name_list
194 ((BRACE_BLOCK) 193 ((BRACE_BLOCK)
195 (mapcar 'semantic-tag-name 194 (mapcar 'semantic-tag-name
196 (semantic-parse-region 195 (semantic-parse-region
197 (car $region1) 196 (car $region1)
198 (cdr $region1) 197 (cdr $region1)
199 'put_names 1)))) 198 'put_names 1))))
200 (put_names 199 (put_names
201 ((LBRACE) 200 ((LBRACE)
202 nil) 201 nil)
203 ((RBRACE) 202 ((RBRACE)
204 nil) 203 nil)
205 ((put_name) 204 ((put_name)
206 (wisent-raw-tag 205 (wisent-raw-tag
207 (semantic-tag $1 'put-name)))) 206 (semantic-tag $1 'put-name))))
208 (put_name 207 (put_name
209 ((SYMBOL)) 208 ((SYMBOL))
210 ((token_type))) 209 ((token_type)))
211 (put_value_list 210 (put_value_list
212 ((BRACE_BLOCK) 211 ((BRACE_BLOCK)
213 (mapcar 'semantic-tag-code-detail 212 (mapcar 'semantic-tag-code-detail
214 (semantic-parse-region 213 (semantic-parse-region
215 (car $region1) 214 (car $region1)
216 (cdr $region1) 215 (cdr $region1)
217 'put_values 1)))) 216 'put_values 1))))
218 (put_values 217 (put_values
219 ((LBRACE) 218 ((LBRACE)
220 nil) 219 nil)
221 ((RBRACE) 220 ((RBRACE)
222 nil) 221 nil)
223 ((put_value) 222 ((put_value)
224 (wisent-raw-tag 223 (wisent-raw-tag
225 (semantic-tag-new-code "put-value" $1)))) 224 (semantic-tag-new-code "put-value" $1))))
226 (put_value 225 (put_value
227 ((SYMBOL any_value) 226 ((SYMBOL any_value)
228 (cons $1 $2))) 227 (cons $1 $2)))
229 (scopestart_decl 228 (scopestart_decl
230 ((SCOPESTART SYMBOL) 229 ((SCOPESTART SYMBOL)
231 `(wisent-raw-tag 230 `(wisent-raw-tag
232 (semantic-tag ',$2 'scopestart)))) 231 (semantic-tag ',$2 'scopestart))))
233 (quotemode_decl 232 (quotemode_decl
234 ((QUOTEMODE SYMBOL) 233 ((QUOTEMODE SYMBOL)
235 `(wisent-raw-tag 234 `(wisent-raw-tag
236 (semantic-tag ',$2 'quotemode)))) 235 (semantic-tag ',$2 'quotemode))))
237 (start_decl 236 (start_decl
238 ((START symbols) 237 ((START symbols)
239 `(wisent-raw-tag 238 `(wisent-raw-tag
240 (semantic-tag ',(car $2) 239 (semantic-tag ',(car $2)
241 'start :rest ',(cdr $2))))) 240 'start :rest ',(cdr $2)))))
242 (keyword_decl 241 (keyword_decl
243 ((KEYWORD SYMBOL string_value) 242 ((KEYWORD SYMBOL string_value)
244 `(wisent-raw-tag 243 `(wisent-raw-tag
245 (semantic-tag ',$2 'keyword :value ',$3)))) 244 (semantic-tag ',$2 'keyword :value ',$3))))
246 (token_decl 245 (token_decl
247 ((TOKEN token_type_opt SYMBOL string_value) 246 ((TOKEN token_type_opt SYMBOL string_value)
248 `(wisent-raw-tag 247 `(wisent-raw-tag
249 (semantic-tag ',$3 ',(if $2 'token 'keyword) 248 (semantic-tag ',$3 ',(if $2 'token 'keyword)
250 :type ',$2 :value ',$4))) 249 :type ',$2 :value ',$4)))
251 ((TOKEN token_type_opt symbols) 250 ((TOKEN token_type_opt symbols)
252 `(wisent-raw-tag 251 `(wisent-raw-tag
253 (semantic-tag ',(car $3) 252 (semantic-tag ',(car $3)
254 'token :type ',$2 :rest ',(cdr $3))))) 253 'token :type ',$2 :rest ',(cdr $3)))))
255 (token_type_opt 254 (token_type_opt
256 (nil) 255 (nil)
257 ((token_type))) 256 ((token_type)))
258 (token_type 257 (token_type
259 ((LT SYMBOL GT) 258 ((LT SYMBOL GT)
260 (progn $2))) 259 (progn $2)))
261 (type_decl 260 (type_decl
262 ((TYPE token_type plist_opt) 261 ((TYPE token_type plist_opt)
263 `(wisent-raw-tag 262 `(wisent-raw-tag
264 (semantic-tag ',$2 'type :value ',$3)))) 263 (semantic-tag ',$2 'type :value ',$3))))
265 (plist_opt 264 (plist_opt
266 (nil) 265 (nil)
267 ((plist))) 266 ((plist)))
268 (plist 267 (plist
269 ((plist put_value) 268 ((plist put_value)
270 (append 269 (append
271 (list $2) 270 (list $2)
272 $1)) 271 $1))
273 ((put_value) 272 ((put_value)
274 (list $1))) 273 (list $1)))
275 (use_name_list 274 (use_name_list
276 ((BRACE_BLOCK) 275 ((BRACE_BLOCK)
277 (mapcar 'semantic-tag-name 276 (mapcar 'semantic-tag-name
278 (semantic-parse-region 277 (semantic-parse-region
279 (car $region1) 278 (car $region1)
280 (cdr $region1) 279 (cdr $region1)
281 'use_names 1)))) 280 'use_names 1))))
282 (use_names 281 (use_names
283 ((LBRACE) 282 ((LBRACE)
284 nil) 283 nil)
285 ((RBRACE) 284 ((RBRACE)
286 nil) 285 nil)
287 ((SYMBOL) 286 ((SYMBOL)
288 (wisent-raw-tag 287 (wisent-raw-tag
289 (semantic-tag $1 'use-name)))) 288 (semantic-tag $1 'use-name))))
290 (use_macros_decl 289 (use_macros_decl
291 ((USE-MACROS SYMBOL use_name_list) 290 ((USE-MACROS SYMBOL use_name_list)
292 `(wisent-raw-tag 291 `(wisent-raw-tag
293 (semantic-tag "macro" 'macro :type ',$2 :value ',$3)))) 292 (semantic-tag "macro" 'macro :type ',$2 :value ',$3))))
294 (string_value 293 (string_value
295 ((STRING) 294 ((STRING)
296 (read $1))) 295 (read $1)))
297 (any_value 296 (any_value
298 ((SYMBOL)) 297 ((SYMBOL))
299 ((STRING)) 298 ((STRING))
300 ((PAREN_BLOCK)) 299 ((PAREN_BLOCK))
301 ((PREFIXED_LIST)) 300 ((PREFIXED_LIST))
302 ((SEXP))) 301 ((SEXP)))
303 (symbols 302 (symbols
304 ((lifo_symbols) 303 ((lifo_symbols)
305 (nreverse $1))) 304 (nreverse $1)))
306 (lifo_symbols 305 (lifo_symbols
307 ((lifo_symbols SYMBOL) 306 ((lifo_symbols SYMBOL)
308 (cons $2 $1)) 307 (cons $2 $1))
309 ((SYMBOL) 308 ((SYMBOL)
310 (list $1))) 309 (list $1)))
311 (nonterminal 310 (nonterminal
312 ((SYMBOL 311 ((SYMBOL
313 (setq semantic-grammar-wy--nterm $1 semantic-grammar-wy--rindx 0) 312 (setq semantic-grammar-wy--nterm $1 semantic-grammar-wy--rindx 0)
314 COLON rules SEMI) 313 COLON rules SEMI)
315 (wisent-raw-tag 314 (wisent-raw-tag
316 (semantic-tag $1 'nonterminal :children $4)))) 315 (semantic-tag $1 'nonterminal :children $4))))
317 (rules 316 (rules
318 ((lifo_rules) 317 ((lifo_rules)
319 (apply 'nconc 318 (apply 'nconc
320 (nreverse $1)))) 319 (nreverse $1))))
321 (lifo_rules 320 (lifo_rules
322 ((lifo_rules OR rule) 321 ((lifo_rules OR rule)
323 (cons $3 $1)) 322 (cons $3 $1))
324 ((rule) 323 ((rule)
325 (list $1))) 324 (list $1)))
326 (rule 325 (rule
327 ((rhs) 326 ((rhs)
328 (let* 327 (let*
329 ((nterm semantic-grammar-wy--nterm) 328 ((nterm semantic-grammar-wy--nterm)
330 (rindx semantic-grammar-wy--rindx) 329 (rindx semantic-grammar-wy--rindx)
331 (rhs $1) 330 (rhs $1)
332 comps prec action elt) 331 comps prec action elt)
333 (setq semantic-grammar-wy--rindx 332 (setq semantic-grammar-wy--rindx
334 (1+ semantic-grammar-wy--rindx)) 333 (1+ semantic-grammar-wy--rindx))
335 (while rhs 334 (while rhs
336 (setq elt 335 (setq elt
337 (car rhs) 336 (car rhs)
338 rhs 337 rhs
339 (cdr rhs)) 338 (cdr rhs))
340 (cond 339 (cond
341 ((vectorp elt) 340 ((vectorp elt)
342 (if prec 341 (if prec
343 (error "Duplicate %%prec in `%s:%d' rule" nterm rindx)) 342 (error "Duplicate %%prec in `%s:%d' rule" nterm rindx))
344 (setq prec 343 (setq prec
345 (aref elt 0))) 344 (aref elt 0)))
346 ((consp elt) 345 ((consp elt)
347 (if 346 (if
348 (or action comps) 347 (or action comps)
349 (setq comps 348 (setq comps
350 (cons elt comps) 349 (cons elt comps)
351 semantic-grammar-wy--rindx 350 semantic-grammar-wy--rindx
352 (1+ semantic-grammar-wy--rindx)) 351 (1+ semantic-grammar-wy--rindx))
353 (setq action 352 (setq action
354 (car elt)))) 353 (car elt))))
355 (t 354 (t
356 (setq comps 355 (setq comps
357 (cons elt comps))))) 356 (cons elt comps)))))
358 (wisent-cook-tag 357 (wisent-cook-tag
359 (wisent-raw-tag 358 (wisent-raw-tag
360 (semantic-tag 359 (semantic-tag
361 (format "%s:%d" nterm rindx) 360 (format "%s:%d" nterm rindx)
362 'rule :type 361 'rule :type
363 (if comps "group" "empty") 362 (if comps "group" "empty")
364 :value comps :prec prec :expr action)))))) 363 :value comps :prec prec :expr action))))))
365 (rhs 364 (rhs
366 (nil) 365 (nil)
367 ((rhs item) 366 ((rhs item)
368 (cons $2 $1)) 367 (cons $2 $1))
369 ((rhs action) 368 ((rhs action)
370 (cons 369 (cons
371 (list $2) 370 (list $2)
372 $1)) 371 $1))
373 ((rhs PREC item) 372 ((rhs PREC item)
374 (cons 373 (cons
375 (vector $3) 374 (vector $3)
376 $1))) 375 $1)))
377 (action 376 (action
378 ((PAREN_BLOCK)) 377 ((PAREN_BLOCK))
379 ((PREFIXED_LIST)) 378 ((PREFIXED_LIST))
380 ((BRACE_BLOCK) 379 ((BRACE_BLOCK)
381 (format "(progn\n%s)" 380 (format "(progn\n%s)"
382 (let 381 (let
383 ((s $1)) 382 ((s $1))
384 (if 383 (if
385 (string-match "^{[ \n ]*" s) 384 (string-match "^{[ \n ]*" s)
386 (setq s 385 (setq s
387 (substring s 386 (substring s
388 (match-end 0)))) 387 (match-end 0))))
389 (if 388 (if
390 (string-match "[ \n ]*}$" s) 389 (string-match "[ \n ]*}$" s)
391 (setq s 390 (setq s
392 (substring s 0 391 (substring s 0
393 (match-beginning 0)))) 392 (match-beginning 0))))
394 s)))) 393 s))))
395 (items 394 (items
396 ((lifo_items) 395 ((lifo_items)
397 (nreverse $1))) 396 (nreverse $1)))
398 (lifo_items 397 (lifo_items
399 ((lifo_items item) 398 ((lifo_items item)
400 (cons $2 $1)) 399 (cons $2 $1))
401 ((item) 400 ((item)
402 (list $1))) 401 (list $1)))
403 (item 402 (item
404 ((SYMBOL)) 403 ((SYMBOL))
405 ((CHARACTER)))) 404 ((CHARACTER))))
406 '(grammar prologue epilogue declaration nonterminal rule put_names put_values use_names))) 405 '(grammar prologue epilogue declaration nonterminal rule put_names put_values use_names)))
407 "Parser table.") 406 "Parser table.")
408 407
@@ -411,10 +410,10 @@
411 (semantic-install-function-overrides 410 (semantic-install-function-overrides
412 '((parse-stream . wisent-parse-stream))) 411 '((parse-stream . wisent-parse-stream)))
413 (setq semantic-parser-name "LALR" 412 (setq semantic-parser-name "LALR"
414 semantic--parse-table semantic-grammar-wy--parse-table 413 semantic--parse-table semantic-grammar-wy--parse-table
415 semantic-debug-parser-source "semantic-grammar.wy" 414 semantic-debug-parser-source "semantic-grammar.wy"
416 semantic-flex-keywords-obarray semantic-grammar-wy--keyword-table 415 semantic-flex-keywords-obarray semantic-grammar-wy--keyword-table
417 semantic-lex-types-obarray semantic-grammar-wy--token-table) 416 semantic-lex-types-obarray semantic-grammar-wy--token-table)
418 ;; Collect unmatched syntax lexical tokens 417 ;; Collect unmatched syntax lexical tokens
419 (semantic-make-local-hook 'wisent-discarding-token-functions) 418 (semantic-make-local-hook 'wisent-discarding-token-functions)
420 (add-hook 'wisent-discarding-token-functions 419 (add-hook 'wisent-discarding-token-functions
diff --git a/lisp/cedet/semantic/grammar.el b/lisp/cedet/semantic/grammar.el
index 1d1184e534f..98b1ab55c32 100644
--- a/lisp/cedet/semantic/grammar.el
+++ b/lisp/cedet/semantic/grammar.el
@@ -104,10 +104,10 @@ It ignores whitespaces, newlines and comments."
104 ;; regexp match semicolons inside strings! 104 ;; regexp match semicolons inside strings!
105 semantic-lex-ignore-comments 105 semantic-lex-ignore-comments
106 ;; Must detect prefixed list before punctuation because prefix chars 106 ;; Must detect prefixed list before punctuation because prefix chars
107 ;; are also punctuations! 107 ;; are also punctuation!
108 semantic-grammar-wy--<qlist>-sexp-analyzer 108 semantic-grammar-wy--<qlist>-sexp-analyzer
109 ;; Must detect punctuations after comments because the semicolon can 109 ;; Must detect punctuation after comments because the semicolon can
110 ;; be a punctuation or a comment start! 110 ;; be punctuation or a comment start!
111 semantic-grammar-wy--<punctuation>-string-analyzer 111 semantic-grammar-wy--<punctuation>-string-analyzer
112 semantic-grammar-wy--<block>-block-analyzer 112 semantic-grammar-wy--<block>-block-analyzer
113 semantic-grammar-wy--<sexp>-sexp-analyzer) 113 semantic-grammar-wy--<sexp>-sexp-analyzer)
diff --git a/lisp/cedet/semantic/ia-sb.el b/lisp/cedet/semantic/ia-sb.el
index 95a68673b8c..edd62cc5ca5 100644
--- a/lisp/cedet/semantic/ia-sb.el
+++ b/lisp/cedet/semantic/ia-sb.el
@@ -348,7 +348,7 @@ TEXT TAG and INDENT are the details."
348 (insert (semantic-tag-name tag)) 348 (insert (semantic-tag-name tag))
349 (if movepoint (setq movepoint (point))) 349 (if movepoint (setq movepoint (point)))
350 ;; I'd like to use this to add fancy () or what not at the end 350 ;; I'd like to use this to add fancy () or what not at the end
351 ;; but we need the parent file whih requires an upgrade to the 351 ;; but we need the parent file which requires an upgrade to the
352 ;; analysis tool. 352 ;; analysis tool.
353 ;;(semantic-insert-foreign-tag tag ??)) 353 ;;(semantic-insert-foreign-tag tag ??))
354 ) 354 )
diff --git a/lisp/cedet/semantic/lex-spp.el b/lisp/cedet/semantic/lex-spp.el
index 03a3f1b0cb1..cf82da303ce 100644
--- a/lisp/cedet/semantic/lex-spp.el
+++ b/lisp/cedet/semantic/lex-spp.el
@@ -452,7 +452,7 @@ continue processing recursively."
452 ;; If val is nil, that's probably wrong. 452 ;; If val is nil, that's probably wrong.
453 ;; Found a system header case where this was true. 453 ;; Found a system header case where this was true.
454 ((null val) "") 454 ((null val) "")
455 ;; Debug wierd stuff. 455 ;; Debug weird stuff.
456 (t (debug))) 456 (t (debug)))
457 )) 457 ))
458 ((stringp txt) 458 ((stringp txt)
@@ -821,7 +821,7 @@ STR occurs in the current buffer between BEG and END."
821;; a macro. 821;; a macro.
822 822
823(defun semantic-lex-spp-first-token-arg-list (token) 823(defun semantic-lex-spp-first-token-arg-list (token)
824 "If TOKEN is a semantic-list, turn it into a an SPP ARG LIST." 824 "If TOKEN is a semantic-list, turn it into an SPP ARG LIST."
825 (when (and (consp token) 825 (when (and (consp token)
826 (symbolp (car token)) 826 (symbolp (car token))
827 (eq 'semantic-list (car token))) 827 (eq 'semantic-list (car token)))
diff --git a/lisp/cedet/semantic/lex.el b/lisp/cedet/semantic/lex.el
index fca367ecb8c..ba43ba657a1 100644
--- a/lisp/cedet/semantic/lex.el
+++ b/lisp/cedet/semantic/lex.el
@@ -165,7 +165,7 @@
165;; 165;;
166;; %type <punctuation> syntax "\\(\\s.\\|\\s$\\|\\s'\\)+" matchdatatype string 166;; %type <punctuation> syntax "\\(\\s.\\|\\s$\\|\\s'\\)+" matchdatatype string
167;; 167;;
168;; ;; Some punctuations based on the type defines above 168;; ;; Some punctuation based on the type defines above
169;; 169;;
170;; %token <punctuation> NOT "!" 170;; %token <punctuation> NOT "!"
171;; %token <punctuation> NOTEQ "!=" 171;; %token <punctuation> NOTEQ "!="
@@ -1313,7 +1313,7 @@ and number formats."
1313 1313
1314(define-lex-analyzer semantic-lex-punctuation-type 1314(define-lex-analyzer semantic-lex-punctuation-type
1315 "Detect and create a punctuation type token. 1315 "Detect and create a punctuation type token.
1316Recognized punctuations are defined in the current table of lexical 1316Recognized punctuation is defined in the current table of lexical
1317types, as the value of the `punctuation' token type." 1317types, as the value of the `punctuation' token type."
1318 (and (looking-at "\\(\\s.\\|\\s$\\|\\s'\\)+") 1318 (and (looking-at "\\(\\s.\\|\\s$\\|\\s'\\)+")
1319 (let* ((key (match-string 0)) 1319 (let* ((key (match-string 0))
diff --git a/lisp/cedet/semantic/senator.el b/lisp/cedet/semantic/senator.el
index 5399d4d5649..b4618d1c18f 100644
--- a/lisp/cedet/semantic/senator.el
+++ b/lisp/cedet/semantic/senator.el
@@ -179,8 +179,8 @@ source."
179 (goto-char (semantic-tag-start tag)) 179 (goto-char (semantic-tag-start tag))
180 (when (re-search-forward (concat 180 (when (re-search-forward (concat
181 ;; The tag name is expected to be 181 ;; The tag name is expected to be
182 ;; between word delimiters, whitespaces, 182 ;; between word delimiters, whitespace,
183 ;; or punctuations. 183 ;; or punctuation.
184 "\\(\\<\\|\\s-+\\|\\s.\\)" 184 "\\(\\<\\|\\s-+\\|\\s.\\)"
185 (regexp-quote name) 185 (regexp-quote name)
186 "\\(\\>\\|\\s-+\\|\\s.\\)") 186 "\\(\\>\\|\\s-+\\|\\s.\\)")
diff --git a/lisp/cedet/semantic/sort.el b/lisp/cedet/semantic/sort.el
index c3d8b26810c..a4126e1384b 100644
--- a/lisp/cedet/semantic/sort.el
+++ b/lisp/cedet/semantic/sort.el
@@ -229,7 +229,7 @@ unmodified as components of their parent tags."
229 (mapc (lambda (tag) 229 (mapc (lambda (tag)
230 (let ((components (semantic-tag-components tag))) 230 (let ((components (semantic-tag-components tag)))
231 (if (and components 231 (if (and components
232 ;; unpositined tags can be hazardous to 232 ;; unpositioned tags can be hazardous to
233 ;; completion. Do we need any type of tag 233 ;; completion. Do we need any type of tag
234 ;; here? - EL 234 ;; here? - EL
235 (semantic-tag-with-position-p (car components))) 235 (semantic-tag-with-position-p (car components)))
diff --git a/lisp/cedet/semantic/symref.el b/lisp/cedet/semantic/symref.el
index 61006802c0d..cbae9f85573 100644
--- a/lisp/cedet/semantic/symref.el
+++ b/lisp/cedet/semantic/symref.el
@@ -324,7 +324,7 @@ Use the `semantic-symref-hit-tags' method to get this list.")
324 (setq ans (list (car files)) 324 (setq ans (list (car files))
325 files (cdr files)) 325 files (cdr files))
326 (dolist (F files) 326 (dolist (F files)
327 ;; This algorithm for uniqing the file list depends on the 327 ;; This algorithm for uniquifying the file list depends on the
328 ;; tool in question providing all the hits in the same file 328 ;; tool in question providing all the hits in the same file
329 ;; grouped together. 329 ;; grouped together.
330 (when (not (string= F (car ans))) 330 (when (not (string= F (car ans)))
diff --git a/lisp/cedet/semantic/symref/list.el b/lisp/cedet/semantic/symref/list.el
index ce3500f83e1..53422541c47 100644
--- a/lisp/cedet/semantic/symref/list.el
+++ b/lisp/cedet/semantic/symref/list.el
@@ -401,7 +401,7 @@ BUTTON is the button that was clicked."
401 401
402;;; UTILS 402;;; UTILS
403;; 403;;
404;; List mode utils for understadning the current line 404;; List mode utils for understanding the current line
405 405
406(defun semantic-symref-list-on-hit-p () 406(defun semantic-symref-list-on-hit-p ()
407 "Return the line number if the cursor is on a buffer line with a hit. 407 "Return the line number if the cursor is on a buffer line with a hit.
diff --git a/lisp/cedet/semantic/wisent/javat-wy.el b/lisp/cedet/semantic/wisent/javat-wy.el
index 4470b87a1f1..562b0da6caa 100644
--- a/lisp/cedet/semantic/wisent/javat-wy.el
+++ b/lisp/cedet/semantic/wisent/javat-wy.el
@@ -19,12 +19,11 @@
19 19
20;;; Commentary: 20;;; Commentary:
21;; 21;;
22;; This file was generated from etc/java-tags.wy. 22;; This file was generated from admin/grammars/java-tags.wy.
23 23
24;;; Code: 24;;; Code:
25 25
26(require 'semantic/lex) 26(require 'semantic/lex)
27
28 27
29;;; Prologue 28;;; Prologue
30;; 29;;
@@ -396,7 +395,7 @@
396 ((SEMICOLON)) 395 ((SEMICOLON))
397 ((block))) 396 ((block)))
398 (block 397 (block
399 ((BRACE_BLOCK))) 398 ((BRACE_BLOCK)))
400 (formal_parameter_list 399 (formal_parameter_list
401 ((PAREN_BLOCK) 400 ((PAREN_BLOCK)
402 (semantic-parse-region 401 (semantic-parse-region
@@ -557,7 +556,7 @@
557 '((parse-stream . wisent-parse-stream))) 556 '((parse-stream . wisent-parse-stream)))
558 (setq semantic-parser-name "LALR" 557 (setq semantic-parser-name "LALR"
559 semantic--parse-table wisent-java-tags-wy--parse-table 558 semantic--parse-table wisent-java-tags-wy--parse-table
560 semantic-debug-parser-source "wisent-java-tags.wy" 559 semantic-debug-parser-source "java-tags.wy"
561 semantic-flex-keywords-obarray wisent-java-tags-wy--keyword-table 560 semantic-flex-keywords-obarray wisent-java-tags-wy--keyword-table
562 semantic-lex-types-obarray wisent-java-tags-wy--token-table) 561 semantic-lex-types-obarray wisent-java-tags-wy--token-table)
563 ;; Collect unmatched syntax lexical tokens 562 ;; Collect unmatched syntax lexical tokens
@@ -567,10 +566,6 @@
567 566
568 567
569;;; Analyzers 568;;; Analyzers
570;;
571(define-lex-keyword-type-analyzer wisent-java-tags-wy--<keyword>-keyword-analyzer
572 "keyword analyzer for <keyword> tokens."
573 "\\(\\sw\\|\\s_\\)+")
574 569
575(define-lex-block-type-analyzer wisent-java-tags-wy--<block>-block-analyzer 570(define-lex-block-type-analyzer wisent-java-tags-wy--<block>-block-analyzer
576 "block analyzer for <block> tokens." 571 "block analyzer for <block> tokens."
@@ -583,23 +578,6 @@
583 ("]" RBRACK)) 578 ("]" RBRACK))
584 ) 579 )
585 580
586(define-lex-regex-type-analyzer wisent-java-tags-wy--<symbol>-regexp-analyzer
587 "regexp analyzer for <symbol> tokens."
588 "\\(\\sw\\|\\s_\\)+"
589 nil
590 'IDENTIFIER)
591
592(define-lex-sexp-type-analyzer wisent-java-tags-wy--<string>-sexp-analyzer
593 "sexp analyzer for <string> tokens."
594 "\\s\""
595 'STRING_LITERAL)
596
597(define-lex-regex-type-analyzer wisent-java-tags-wy--<number>-regexp-analyzer
598 "regexp analyzer for <number> tokens."
599 semantic-lex-number-expression
600 nil
601 'NUMBER_LITERAL)
602
603(define-lex-string-type-analyzer wisent-java-tags-wy--<punctuation>-string-analyzer 581(define-lex-string-type-analyzer wisent-java-tags-wy--<punctuation>-string-analyzer
604 "string analyzer for <punctuation> tokens." 582 "string analyzer for <punctuation> tokens."
605 "\\(\\s.\\|\\s$\\|\\s'\\)+" 583 "\\(\\s.\\|\\s$\\|\\s'\\)+"
@@ -645,12 +623,33 @@
645 (NOT . "!")) 623 (NOT . "!"))
646 'punctuation) 624 'punctuation)
647 625
626(define-lex-regex-type-analyzer wisent-java-tags-wy--<symbol>-regexp-analyzer
627 "regexp analyzer for <symbol> tokens."
628 "\\(\\sw\\|\\s_\\)+"
629 nil
630 'IDENTIFIER)
631
648(define-lex-regex-type-analyzer wisent-java-tags-wy--<unicode>-regexp-analyzer 632(define-lex-regex-type-analyzer wisent-java-tags-wy--<unicode>-regexp-analyzer
649 "regexp analyzer for <unicode> tokens." 633 "regexp analyzer for <unicode> tokens."
650 "\\\\u[0-9a-f][0-9a-f][0-9a-f][0-9a-f]" 634 "\\\\u[0-9a-f][0-9a-f][0-9a-f][0-9a-f]"
651 nil 635 nil
652 'unicodecharacter) 636 'unicodecharacter)
653 637
638(define-lex-regex-type-analyzer wisent-java-tags-wy--<number>-regexp-analyzer
639 "regexp analyzer for <number> tokens."
640 semantic-lex-number-expression
641 nil
642 'NUMBER_LITERAL)
643
644(define-lex-sexp-type-analyzer wisent-java-tags-wy--<string>-sexp-analyzer
645 "sexp analyzer for <string> tokens."
646 "\\s\""
647 'STRING_LITERAL)
648
649(define-lex-keyword-type-analyzer wisent-java-tags-wy--<keyword>-keyword-analyzer
650 "keyword analyzer for <keyword> tokens."
651 "\\(\\sw\\|\\s_\\)+")
652
654 653
655;;; Epilogue 654;;; Epilogue
656;; 655;;
diff --git a/lisp/cedet/semantic/wisent/js-wy.el b/lisp/cedet/semantic/wisent/js-wy.el
index b523db8771b..c8dded08d1f 100644
--- a/lisp/cedet/semantic/wisent/js-wy.el
+++ b/lisp/cedet/semantic/wisent/js-wy.el
@@ -1,7 +1,7 @@
1;;; semantic/wisent/js-wy.el --- Generated parser support file 1;;; semantic/wisent/js-wy.el --- Generated parser support file
2 2
3;; Copyright (C) 2005, 2009-2011 Free Software Foundation, Inc. 3;; Copyright (C) 2005, 2009-2011 Free Software Foundation, Inc.
4;; Copyright (C) Ecma International. 4;; Copyright (C) 1998-2011 Ecma International
5 5
6;; This file is part of GNU Emacs. 6;; This file is part of GNU Emacs.
7 7
@@ -20,9 +20,45 @@
20 20
21;;; Commentary: 21;;; Commentary:
22;; 22;;
23;; This file was generated from etc/grammars/javascript-jv.wy. 23;; This file was generated from admin/grammars/js.wy.
24
25;; It is derived from the grammar in the ECMAScript Language
26;; Specification published at
27;;
28;; http://www.ecma-international.org/publications/standards/Ecma-262.htm
29;;
30;; and redistributed under the following license:
31;;
32;; Redistribution and use in source and binary forms, with or without
33;; modification, are permitted provided that the following conditions
34;; are met:
35;;
36;; 1. Redistributions of source code must retain the above copyright
37;; notice, this list of conditions and the following disclaimer.
38;;
39;; 2. Redistributions in binary form must reproduce the above
40;; copyright notice, this list of conditions and the following
41;; disclaimer in the documentation and/or other materials provided
42;; with the distribution.
43;;
44;; 3. Neither the name of the authors nor Ecma International may be
45;; used to endorse or promote products derived from this software
46;; without specific prior written permission. THIS SOFTWARE IS
47;; PROVIDED BY THE ECMA INTERNATIONAL "AS IS" AND ANY EXPRESS OR
48;; IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
49;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
50;; ARE DISCLAIMED. IN NO EVENT SHALL ECMA INTERNATIONAL BE LIABLE FOR
51;; ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
52;; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT
53;; OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
54;; BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
55;; LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
56;; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
57;; USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH
58;; DAMAGE.
24 59
25;;; Code: 60;;; Code:
61
26(require 'semantic/lex) 62(require 'semantic/lex)
27 63
28;;; Prologue 64;;; Prologue
@@ -370,7 +406,7 @@
370 '((parse-stream . wisent-parse-stream))) 406 '((parse-stream . wisent-parse-stream)))
371 (setq semantic-parser-name "LALR" 407 (setq semantic-parser-name "LALR"
372 semantic--parse-table wisent-javascript-jv-wy--parse-table 408 semantic--parse-table wisent-javascript-jv-wy--parse-table
373 semantic-debug-parser-source "wisent-javascript-jv.wy" 409 semantic-debug-parser-source "js.wy"
374 semantic-flex-keywords-obarray wisent-javascript-jv-wy--keyword-table 410 semantic-flex-keywords-obarray wisent-javascript-jv-wy--keyword-table
375 semantic-lex-types-obarray wisent-javascript-jv-wy--token-table) 411 semantic-lex-types-obarray wisent-javascript-jv-wy--token-table)
376 ;; Collect unmatched syntax lexical tokens 412 ;; Collect unmatched syntax lexical tokens
@@ -380,38 +416,6 @@
380 416
381 417
382;;; Analyzers 418;;; Analyzers
383;;
384(define-lex-keyword-type-analyzer wisent-javascript-jv-wy--<keyword>-keyword-analyzer
385 "keyword analyzer for <keyword> tokens."
386 "\\(\\sw\\|\\s_\\)+")
387
388(define-lex-block-type-analyzer wisent-javascript-jv-wy--<block>-block-analyzer
389 "block analyzer for <block> tokens."
390 "\\s(\\|\\s)"
391 '((("(" OPEN_PARENTHESIS PAREN_BLOCK)
392 ("{" START_BLOCK BRACE_BLOCK)
393 ("[" OPEN_SQ_BRACKETS BRACK_BLOCK))
394 (")" CLOSE_PARENTHESIS)
395 ("}" END_BLOCK)
396 ("]" CLOSE_SQ_BRACKETS))
397 )
398
399(define-lex-regex-type-analyzer wisent-javascript-jv-wy--<symbol>-regexp-analyzer
400 "regexp analyzer for <symbol> tokens."
401 "\\(\\sw\\|\\s_\\)+"
402 nil
403 'VARIABLE)
404
405(define-lex-sexp-type-analyzer wisent-javascript-jv-wy--<string>-sexp-analyzer
406 "sexp analyzer for <string> tokens."
407 "\\s\""
408 'STRING)
409
410(define-lex-regex-type-analyzer wisent-javascript-jv-wy--<number>-regexp-analyzer
411 "regexp analyzer for <number> tokens."
412 semantic-lex-number-expression
413 nil
414 'NUMBER)
415 419
416(define-lex-string-type-analyzer wisent-javascript-jv-wy--<punctuation>-string-analyzer 420(define-lex-string-type-analyzer wisent-javascript-jv-wy--<punctuation>-string-analyzer
417 "string analyzer for <punctuation> tokens." 421 "string analyzer for <punctuation> tokens."
@@ -458,6 +462,38 @@
458 (ASSIGN_SYMBOL . "=")) 462 (ASSIGN_SYMBOL . "="))
459 'punctuation) 463 'punctuation)
460 464
465(define-lex-block-type-analyzer wisent-javascript-jv-wy--<block>-block-analyzer
466 "block analyzer for <block> tokens."
467 "\\s(\\|\\s)"
468 '((("(" OPEN_PARENTHESIS PAREN_BLOCK)
469 ("{" START_BLOCK BRACE_BLOCK)
470 ("[" OPEN_SQ_BRACKETS BRACK_BLOCK))
471 (")" CLOSE_PARENTHESIS)
472 ("}" END_BLOCK)
473 ("]" CLOSE_SQ_BRACKETS))
474 )
475
476(define-lex-regex-type-analyzer wisent-javascript-jv-wy--<symbol>-regexp-analyzer
477 "regexp analyzer for <symbol> tokens."
478 "\\(\\sw\\|\\s_\\)+"
479 nil
480 'VARIABLE)
481
482(define-lex-regex-type-analyzer wisent-javascript-jv-wy--<number>-regexp-analyzer
483 "regexp analyzer for <number> tokens."
484 semantic-lex-number-expression
485 nil
486 'NUMBER)
487
488(define-lex-sexp-type-analyzer wisent-javascript-jv-wy--<string>-sexp-analyzer
489 "sexp analyzer for <string> tokens."
490 "\\s\""
491 'STRING)
492
493(define-lex-keyword-type-analyzer wisent-javascript-jv-wy--<keyword>-keyword-analyzer
494 "keyword analyzer for <keyword> tokens."
495 "\\(\\sw\\|\\s_\\)+")
496
461 497
462;;; Epilogue 498;;; Epilogue
463;; 499;;
diff --git a/lisp/cedet/semantic/wisent/python-wy.el b/lisp/cedet/semantic/wisent/python-wy.el
index 36965757a14..2445d7162a7 100644
--- a/lisp/cedet/semantic/wisent/python-wy.el
+++ b/lisp/cedet/semantic/wisent/python-wy.el
@@ -20,7 +20,58 @@
20 20
21;;; Commentary: 21;;; Commentary:
22;; 22;;
23;; This file was generated from etc/grammars/python.wy. 23;; This file was generated from admin/grammars/python.wy.
24;; It is derived in part from the Python grammar, used under the
25;; following license:
26;;
27;; PYTHON SOFTWARE FOUNDATION LICENSE VERSION 2
28;; --------------------------------------------
29;; 1. This LICENSE AGREEMENT is between the Python Software Foundation
30;; ("PSF"), and the Individual or Organization ("Licensee") accessing
31;; and otherwise using this software ("Python") in source or binary
32;; form and its associated documentation.
33;;
34;; 2. Subject to the terms and conditions of this License Agreement,
35;; PSF hereby grants Licensee a nonexclusive, royalty-free, world-wide
36;; license to reproduce, analyze, test, perform and/or display
37;; publicly, prepare derivative works, distribute, and otherwise use
38;; Python alone or in any derivative version, provided, however, that
39;; PSF's License Agreement and PSF's notice of copyright, i.e.,
40;; "Copyright (c) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008,
41;; 2009, 2010 Python Software Foundation; All Rights Reserved" are
42;; retained in Python alone or in any derivative version prepared by
43;; Licensee.
44;;
45;; 3. In the event Licensee prepares a derivative work that is based
46;; on or incorporates Python or any part thereof, and wants to make
47;; the derivative work available to others as provided herein, then
48;; Licensee hereby agrees to include in any such work a brief summary
49;; of the changes made to Python.
50;;
51;; 4. PSF is making Python available to Licensee on an "AS IS"
52;; basis. PSF MAKES NO REPRESENTATIONS OR WARRANTIES, EXPRESS OR
53;; IMPLIED. BY WAY OF EXAMPLE, BUT NOT LIMITATION, PSF MAKES NO AND
54;; DISCLAIMS ANY REPRESENTATION OR WARRANTY OF MERCHANTABILITY OR FITNESS
55;; FOR ANY PARTICULAR PURPOSE OR THAT THE USE OF PYTHON WILL NOT
56;; INFRINGE ANY THIRD PARTY RIGHTS.
57;;
58;; 5. PSF SHALL NOT BE LIABLE TO LICENSEE OR ANY OTHER USERS OF PYTHON
59;; FOR ANY INCIDENTAL, SPECIAL, OR CONSEQUENTIAL DAMAGES OR LOSS AS A
60;; RESULT OF MODIFYING, DISTRIBUTING, OR OTHERWISE USING PYTHON, OR
61;; ANY DERIVATIVE THEREOF, EVEN IF ADVISED OF THE POSSIBILITY THEREOF.
62;;
63;; 6. This License Agreement will automatically terminate upon a
64;; material breach of its terms and conditions.
65;;
66;; 7. Nothing in this License Agreement shall be deemed to create any
67;; relationship of agency, partnership, or joint venture between PSF
68;; and Licensee. This License Agreement does not grant permission to
69;; use PSF trademarks or trade name in a trademark sense to endorse or
70;; promote products or services of Licensee, or any third party.
71;;
72;; 8. By copying, installing or otherwise using Python, Licensee
73;; agrees to be bound by the terms and conditions of this License
74;; Agreement.
24 75
25;;; Code: 76;;; Code:
26 77
@@ -664,7 +715,7 @@
664 '((parse-stream . wisent-parse-stream))) 715 '((parse-stream . wisent-parse-stream)))
665 (setq semantic-parser-name "LALR" 716 (setq semantic-parser-name "LALR"
666 semantic--parse-table wisent-python-wy--parse-table 717 semantic--parse-table wisent-python-wy--parse-table
667 semantic-debug-parser-source "wisent-python.wy" 718 semantic-debug-parser-source "python.wy"
668 semantic-flex-keywords-obarray wisent-python-wy--keyword-table 719 semantic-flex-keywords-obarray wisent-python-wy--keyword-table
669 semantic-lex-types-obarray wisent-python-wy--token-table) 720 semantic-lex-types-obarray wisent-python-wy--token-table)
670 ;; Collect unmatched syntax lexical tokens 721 ;; Collect unmatched syntax lexical tokens
@@ -675,10 +726,6 @@
675 726
676;;; Analyzers 727;;; Analyzers
677 728
678(define-lex-keyword-type-analyzer wisent-python-wy--<keyword>-keyword-analyzer
679 "keyword analyzer for <keyword> tokens."
680 "\\(\\sw\\|\\s_\\)+")
681
682(define-lex-block-type-analyzer wisent-python-wy--<block>-block-analyzer 729(define-lex-block-type-analyzer wisent-python-wy--<block>-block-analyzer
683 "block analyzer for <block> tokens." 730 "block analyzer for <block> tokens."
684 "\\s(\\|\\s)" 731 "\\s(\\|\\s)"
@@ -690,18 +737,6 @@
690 ("]" RBRACK)) 737 ("]" RBRACK))
691 ) 738 )
692 739
693(define-lex-regex-type-analyzer wisent-python-wy--<symbol>-regexp-analyzer
694 "regexp analyzer for <symbol> tokens."
695 "\\(\\sw\\|\\s_\\)+"
696 nil
697 'NAME)
698
699(define-lex-regex-type-analyzer wisent-python-wy--<number>-regexp-analyzer
700 "regexp analyzer for <number> tokens."
701 semantic-lex-number-expression
702 nil
703 'NUMBER_LITERAL)
704
705(define-lex-string-type-analyzer wisent-python-wy--<punctuation>-string-analyzer 740(define-lex-string-type-analyzer wisent-python-wy--<punctuation>-string-analyzer
706 "string analyzer for <punctuation> tokens." 741 "string analyzer for <punctuation> tokens."
707 "\\(\\s.\\|\\s$\\|\\s'\\)+" 742 "\\(\\s.\\|\\s$\\|\\s'\\)+"
@@ -745,6 +780,22 @@
745 (LTLTEQ . "<<=")) 780 (LTLTEQ . "<<="))
746 'punctuation) 781 'punctuation)
747 782
783(define-lex-regex-type-analyzer wisent-python-wy--<symbol>-regexp-analyzer
784 "regexp analyzer for <symbol> tokens."
785 "\\(\\sw\\|\\s_\\)+"
786 nil
787 'NAME)
788
789(define-lex-regex-type-analyzer wisent-python-wy--<number>-regexp-analyzer
790 "regexp analyzer for <number> tokens."
791 semantic-lex-number-expression
792 nil
793 'NUMBER_LITERAL)
794
795(define-lex-keyword-type-analyzer wisent-python-wy--<keyword>-keyword-analyzer
796 "keyword analyzer for <keyword> tokens."
797 "\\(\\sw\\|\\s_\\)+")
798
748 799
749;;; Epilogue 800;;; Epilogue
750;; 801;;
diff --git a/lisp/cedet/srecode/srt-wy.el b/lisp/cedet/srecode/srt-wy.el
index 2fb8e7665e9..5bd202093e9 100644
--- a/lisp/cedet/srecode/srt-wy.el
+++ b/lisp/cedet/srecode/srt-wy.el
@@ -18,13 +18,12 @@
18;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. 18;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
19 19
20;;; Commentary: 20;;; Commentary:
21 21;;
22;; Generated from srecode-template.wy in the CEDET repository. 22;; This file was generated from admin/grammars/srecode-template.wy.
23 23
24;;; Code: 24;;; Code:
25 25
26(require 'semantic/lex) 26(require 'semantic/lex)
27
28 27
29;;; Prologue 28;;; Prologue
30;; 29;;
@@ -206,10 +205,12 @@
206 205
207 206
208;;; Analyzers 207;;; Analyzers
209;; 208
210(define-lex-keyword-type-analyzer srecode-template-wy--<keyword>-keyword-analyzer 209(define-lex-string-type-analyzer srecode-template-wy--<punctuation>-string-analyzer
211 "keyword analyzer for <keyword> tokens." 210 "string analyzer for <punctuation> tokens."
212 "\\(\\sw\\|\\s_\\)+") 211 "\\s.+"
212 nil
213 'punctuation)
213 214
214(define-lex-regex-type-analyzer srecode-template-wy--<symbol>-regexp-analyzer 215(define-lex-regex-type-analyzer srecode-template-wy--<symbol>-regexp-analyzer
215 "regexp analyzer for <symbol> tokens." 216 "regexp analyzer for <symbol> tokens."
@@ -217,22 +218,20 @@
217 nil 218 nil
218 'symbol) 219 'symbol)
219 220
220(define-lex-sexp-type-analyzer srecode-template-wy--<string>-sexp-analyzer
221 "sexp analyzer for <string> tokens."
222 "\\s\""
223 'string)
224
225(define-lex-regex-type-analyzer srecode-template-wy--<number>-regexp-analyzer 221(define-lex-regex-type-analyzer srecode-template-wy--<number>-regexp-analyzer
226 "regexp analyzer for <number> tokens." 222 "regexp analyzer for <number> tokens."
227 semantic-lex-number-expression 223 semantic-lex-number-expression
228 nil 224 nil
229 'number) 225 'number)
230 226
231(define-lex-string-type-analyzer srecode-template-wy--<punctuation>-string-analyzer 227(define-lex-sexp-type-analyzer srecode-template-wy--<string>-sexp-analyzer
232 "string analyzer for <punctuation> tokens." 228 "sexp analyzer for <string> tokens."
233 "\\s.+" 229 "\\s\""
234 nil 230 'string)
235 'punctuation) 231
232(define-lex-keyword-type-analyzer srecode-template-wy--<keyword>-keyword-analyzer
233 "keyword analyzer for <keyword> tokens."
234 "\\(\\sw\\|\\s_\\)+")
236 235
237 236
238;;; Epilogue 237;;; Epilogue
diff --git a/lisp/cedet/srecode/texi.el b/lisp/cedet/srecode/texi.el
index acfc2486711..df90f6c464f 100644
--- a/lisp/cedet/srecode/texi.el
+++ b/lisp/cedet/srecode/texi.el
@@ -244,7 +244,7 @@ that class.
244 `function' => @dfn{function} 244 `function' => @dfn{function}
245 `variable' => @code{variable} 245 `variable' => @code{variable}
246 `class' => @code{class} @xref{class} 246 `class' => @code{class} @xref{class}
247 `unknown' => @code{unknonwn} 247 `unknown' => @code{unknown}
248 \"text\" => ``text'' 248 \"text\" => ``text''
249 'quoteme => @code{quoteme} 249 'quoteme => @code{quoteme}
250 non-nil => non-@code{nil} 250 non-nil => non-@code{nil}
diff --git a/lisp/color.el b/lisp/color.el
index 487e280dd59..96b79a4ace2 100644
--- a/lisp/color.el
+++ b/lisp/color.el
@@ -128,8 +128,8 @@ inclusive."
128RED, GREEN, and BLUE should each be numbers between 0.0 and 1.0, 128RED, GREEN, and BLUE should each be numbers between 0.0 and 1.0,
129inclusive. 129inclusive.
130 130
131Return a list (HUE, SATURATION, LUMINENCE), where HUE is in radians 131Return a list (HUE, SATURATION, LUMINANCE), where HUE is in radians
132and both SATURATION and LUMINENCE are between 0.0 and 1.0, 132and both SATURATION and LUMINANCE are between 0.0 and 1.0,
133inclusive." 133inclusive."
134 (let* ((r red) 134 (let* ((r red)
135 (g green) 135 (g green)
diff --git a/lisp/composite.el b/lisp/composite.el
index 487962ee07c..72317ac470e 100644
--- a/lisp/composite.el
+++ b/lisp/composite.el
@@ -656,7 +656,7 @@ prepending a space before it."
656 (if (not (char-charset (lglyph-char glyph) coding)) 656 (if (not (char-charset (lglyph-char glyph) coding))
657 (progn 657 (progn
658 ;; As the terminal doesn't support this glyph, return a 658 ;; As the terminal doesn't support this glyph, return a
659 ;; gstring in which each glyph is its own graphme-cluster 659 ;; gstring in which each glyph is its own grapheme-cluster
660 ;; of width 1.. 660 ;; of width 1..
661 (setq i 0) 661 (setq i 0)
662 (while (and (< i nglyphs) 662 (while (and (< i nglyphs)
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 07944a6c16f..3d5ae69fe3d 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -3225,7 +3225,7 @@ Also change :reverse-video to :inverse-video."
3225 (if (not inactive) 3225 (if (not inactive)
3226 ;; Widget is alive, we don't have to do anything special 3226 ;; Widget is alive, we don't have to do anything special
3227 (widget-default-delete widget) 3227 (widget-default-delete widget)
3228 ;; WIDGET is already deleted because we did so to inactivate it; 3228 ;; WIDGET is already deleted because we did so to deactivate it;
3229 ;; now just get rid of the label we put in its place. 3229 ;; now just get rid of the label we put in its place.
3230 (delete-region (car (cdr inactive)) 3230 (delete-region (car (cdr inactive))
3231 (+ (car (cdr inactive)) (cdr (cdr inactive)))) 3231 (+ (car (cdr inactive)) (cdr (cdr inactive))))
diff --git a/lisp/dframe.el b/lisp/dframe.el
index b1eb2d636b9..b4f44e1a308 100644
--- a/lisp/dframe.el
+++ b/lisp/dframe.el
@@ -718,7 +718,7 @@ Argument PROMPT is the prompt to use."
718 718
719(defun dframe-set-timer (timeout fn &optional _null-on-error) 719(defun dframe-set-timer (timeout fn &optional _null-on-error)
720 "Apply a timer with TIMEOUT, to call FN, or remove a timer if TIMEOUT is nil. 720 "Apply a timer with TIMEOUT, to call FN, or remove a timer if TIMEOUT is nil.
721TIMEOUT is the number of seconds until the dframe controled program 721TIMEOUT is the number of seconds until the dframe controlled program
722timer is called again. When TIMEOUT is nil, turn off all timeouts. 722timer is called again. When TIMEOUT is nil, turn off all timeouts.
723This function must be called from the buffer belonging to the program 723This function must be called from the buffer belonging to the program
724who requested the timer. NULL-ON-ERROR is ignored." 724who requested the timer. NULL-ON-ERROR is ignored."
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index b63940cec2d..757e814dba1 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -927,8 +927,7 @@ return t; if SYM is q or ESC, return nil."
927 (concat (apply 'format prompt args) 927 (concat (apply 'format prompt args)
928 (if help-form 928 (if help-form
929 (format " [Type yn!q or %s] " 929 (format " [Type yn!q or %s] "
930 (key-description 930 (key-description (vector help-char)))
931 (char-to-string help-char)))
932 " [Type y, n, q or !] "))) 931 " [Type y, n, q or !] ")))
933 (set sym (setq char (read-char-choice prompt char-choices))) 932 (set sym (setq char (read-char-choice prompt char-choices)))
934 (if (memq char '(?y ?\s ?!)) t))))) 933 (if (memq char '(?y ?\s ?!)) t)))))
diff --git a/lisp/dired.el b/lisp/dired.el
index 32a7f749681..1d503a14810 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -3667,7 +3667,7 @@ Ask means pop up a menu for the user to select one of copy, move or link."
3667;;;;;; dired-run-shell-command dired-do-shell-command dired-do-async-shell-command 3667;;;;;; dired-run-shell-command dired-do-shell-command dired-do-async-shell-command
3668;;;;;; dired-clean-directory dired-do-print dired-do-touch dired-do-chown 3668;;;;;; dired-clean-directory dired-do-print dired-do-touch dired-do-chown
3669;;;;;; dired-do-chgrp dired-do-chmod dired-compare-directories dired-backup-diff 3669;;;;;; dired-do-chgrp dired-do-chmod dired-compare-directories dired-backup-diff
3670;;;;;; dired-diff) "dired-aux" "dired-aux.el" "2026ac587f0d9e893bae7662ff9d9318") 3670;;;;;; dired-diff) "dired-aux" "dired-aux.el" "2301de52aab0488c60d2b4841b6f597f")
3671;;; Generated autoloads from dired-aux.el 3671;;; Generated autoloads from dired-aux.el
3672 3672
3673(autoload 'dired-diff "dired-aux" "\ 3673(autoload 'dired-diff "dired-aux" "\
diff --git a/lisp/doc-view.el b/lisp/doc-view.el
index d16d8c6f62d..7e4329234e3 100644
--- a/lisp/doc-view.el
+++ b/lisp/doc-view.el
@@ -124,7 +124,7 @@
124;; (except the tooltip) if the next match is on the same page. 124;; (except the tooltip) if the next match is on the same page.
125 125
126;; And it's much slower than the current search facility, because 126;; And it's much slower than the current search facility, because
127;; isearch really searches for each step forward or backward wheras 127;; isearch really searches for each step forward or backward whereas
128;; the current approach searches once and then it knows to which 128;; the current approach searches once and then it knows to which
129;; pages to jump. 129;; pages to jump.
130 130
diff --git a/lisp/electric.el b/lisp/electric.el
index 657b577bb1e..1a8bf9f89ed 100644
--- a/lisp/electric.el
+++ b/lisp/electric.el
@@ -197,11 +197,13 @@ Returns nil when we can't find this char."
197;; value, which only works well if the variable is preloaded. 197;; value, which only works well if the variable is preloaded.
198;;;###autoload 198;;;###autoload
199(defvar electric-indent-chars '(?\n) 199(defvar electric-indent-chars '(?\n)
200 "Characters that should cause automatic reindentation. 200 "Characters that should cause automatic reindentation.")
201Each entry of the list can be either a character or a cons of the 201
202form (CHAR . PREDICATE) which means that CHAR should cause reindentation 202(defvar electric-indent-functions nil
203only if PREDICATE returns non-nil. PREDICATE is called with no arguments 203 "Special hook run to decide whether to auto-indent.
204and with point before the inserted char.") 204Each function is called with one argument (the inserted char), with
205point right after that char, and it should return t to cause indentation,
206`no-indent' to prevent indentation or nil to let other functions decide.")
205 207
206(defun electric-indent-post-self-insert-function () 208(defun electric-indent-post-self-insert-function ()
207 ;; FIXME: This reindents the current line, but what we really want instead is 209 ;; FIXME: This reindents the current line, but what we really want instead is
@@ -212,18 +214,21 @@ and with point before the inserted char.")
212 ;; There might be a way to get it working by analyzing buffer-undo-list, but 214 ;; There might be a way to get it working by analyzing buffer-undo-list, but
213 ;; it looks challenging. 215 ;; it looks challenging.
214 (let (pos) 216 (let (pos)
215 (when (and (or (memq last-command-event electric-indent-chars) 217 (when (and
216 (let ((cp (assq last-command-event electric-indent-chars))) 218 ;; Don't reindent while inserting spaces at beginning of line.
217 (and cp (setq pos (electric--after-char-pos)) 219 (or (not (memq last-command-event '(?\s ?\t)))
218 (save-excursion 220 (save-excursion (skip-chars-backward " \t") (not (bolp))))
219 (goto-char (1- pos)) 221 (setq pos (electric--after-char-pos))
220 (funcall (cdr cp)))))) 222 (save-excursion
221 ;; Don't reindent while inserting spaces at beginning of line. 223 (goto-char pos)
222 (or (not (memq last-command-event '(?\s ?\t))) 224 (let ((act (or (run-hook-with-args-until-success
223 (save-excursion (skip-chars-backward " \t") (not (bolp)))) 225 'electric-indent-functions
224 (setq pos (electric--after-char-pos)) 226 last-command-event)
225 ;; Not in a string or comment. 227 (memq last-command-event electric-indent-chars))))
226 (not (nth 8 (save-excursion (syntax-ppss pos))))) 228 (not
229 (or (memq act '(nil no-indent))
230 ;; In a string or comment.
231 (unless (eq act 'do-indent) (nth 8 (syntax-ppss))))))))
227 ;; For newline, we want to reindent both lines and basically behave like 232 ;; For newline, we want to reindent both lines and basically behave like
228 ;; reindent-then-newline-and-indent (whose code we hence copied). 233 ;; reindent-then-newline-and-indent (whose code we hence copied).
229 (when (< (1- pos) (line-beginning-position)) 234 (when (< (1- pos) (line-beginning-position))
@@ -231,7 +236,7 @@ and with point before the inserted char.")
231 (save-excursion 236 (save-excursion
232 (unless (memq indent-line-function 237 (unless (memq indent-line-function
233 '(indent-relative indent-to-left-margin 238 '(indent-relative indent-to-left-margin
234 indent-relative-maybe)) 239 indent-relative-maybe))
235 ;; Don't reindent the previous line if the indentation function 240 ;; Don't reindent the previous line if the indentation function
236 ;; is not a real one. 241 ;; is not a real one.
237 (goto-char before) 242 (goto-char before)
diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el
index 976848e155d..ae2900775ac 100644
--- a/lisp/emacs-lisp/advice.el
+++ b/lisp/emacs-lisp/advice.el
@@ -625,12 +625,12 @@
625;; 625;;
626;; (ad-activate-regexp "^ange-ftp-") 626;; (ad-activate-regexp "^ange-ftp-")
627;; 627;;
628;; A saver way would have been to use 628;; A safer way would have been to use
629;; 629;;
630;; (ad-update-regexp "^ange-ftp-") 630;; (ad-update-regexp "^ange-ftp-")
631;; 631;;
632;; instead which would have only reactivated currently actively advised 632;; instead which would have only reactivated currently actively advised
633;; functions, but not functions that were currently deactivated. All these 633;; functions, but not functions that were currently inactive. All these
634;; functions can also be called interactively. 634;; functions can also be called interactively.
635 635
636;; A certain piece of advice is considered a match if its name contains a 636;; A certain piece of advice is considered a match if its name contains a
@@ -833,7 +833,7 @@
833;; Reactivate an advised function but only if its advice is currently 833;; Reactivate an advised function but only if its advice is currently
834;; active. This can be used to bring all currently advised function up 834;; active. This can be used to bring all currently advised function up
835;; to date with the current state of advice without also activating 835;; to date with the current state of advice without also activating
836;; currently deactivated functions. 836;; currently inactive functions.
837;; - Caching: 837;; - Caching:
838;; Is the saving of an advised definition and an identifying cache-id so 838;; Is the saving of an advised definition and an identifying cache-id so
839;; it can be reused, for example, for activation after deactivation. 839;; it can be reused, for example, for activation after deactivation.
@@ -853,7 +853,7 @@
853;; - ad-activate to activate the advice of a FUNCTION 853;; - ad-activate to activate the advice of a FUNCTION
854;; - ad-deactivate to deactivate the advice of a FUNCTION 854;; - ad-deactivate to deactivate the advice of a FUNCTION
855;; - ad-update to activate the advice of a FUNCTION unless it was not 855;; - ad-update to activate the advice of a FUNCTION unless it was not
856;; yet activated or is currently deactivated. 856;; yet activated or is currently inactive.
857;; - ad-unadvise deactivates a FUNCTION and removes all of its advice 857;; - ad-unadvise deactivates a FUNCTION and removes all of its advice
858;; information, hence, it cannot be activated again 858;; information, hence, it cannot be activated again
859;; - ad-recover tries to redefine a FUNCTION to its original definition and 859;; - ad-recover tries to redefine a FUNCTION to its original definition and
@@ -1261,7 +1261,7 @@
1261;; contain some advice matched by the regular expression. This is a save 1261;; contain some advice matched by the regular expression. This is a save
1262;; way to update the activation of advised functions whose advice changed 1262;; way to update the activation of advised functions whose advice changed
1263;; in some way or other without accidentally also activating currently 1263;; in some way or other without accidentally also activating currently
1264;; deactivated functions: 1264;; inactive functions:
1265;; 1265;;
1266;; (ad-update-regexp "^fg-") 1266;; (ad-update-regexp "^fg-")
1267;; nil 1267;; nil
diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index df98271832a..19a4d44273d 100644
--- a/lisp/emacs-lisp/autoload.el
+++ b/lisp/emacs-lisp/autoload.el
@@ -446,7 +446,11 @@ Return non-nil if and only if FILE adds no autoloads to OUTFILE
446 generated-autoload-load-name 446 generated-autoload-load-name
447 (autoload-file-load-name absfile))) 447 (autoload-file-load-name absfile)))
448 (when (and outfile 448 (when (and outfile
449 (not (equal outfile (autoload-generated-file)))) 449 (not
450 (if (memq system-type '(ms-dos windows-nt))
451 (equal (downcase outfile)
452 (downcase (autoload-generated-file)))
453 (equal outfile (autoload-generated-file)))))
450 (setq otherbuf t)) 454 (setq otherbuf t))
451 (save-excursion 455 (save-excursion
452 (save-restriction 456 (save-restriction
diff --git a/lisp/emacs-lisp/avl-tree.el b/lisp/emacs-lisp/avl-tree.el
index 9ecd4e12020..bc1efc118ef 100644
--- a/lisp/emacs-lisp/avl-tree.el
+++ b/lisp/emacs-lisp/avl-tree.el
@@ -74,7 +74,7 @@
74 cmpfun) 74 cmpfun)
75 75
76(defmacro avl-tree--root (tree) 76(defmacro avl-tree--root (tree)
77 ;; Return the root node for an avl-tree. INTERNAL USE ONLY. 77 ;; Return the root node for an AVL tree. INTERNAL USE ONLY.
78 `(avl-tree--node-left (avl-tree--dummyroot ,tree))) 78 `(avl-tree--node-left (avl-tree--dummyroot ,tree)))
79 79
80(defsetf avl-tree--root (tree) (node) 80(defsetf avl-tree--root (tree) (node)
@@ -372,7 +372,7 @@ itself."
372 372
373;;; INTERNAL USE ONLY 373;;; INTERNAL USE ONLY
374(defun avl-tree--do-copy (root) 374(defun avl-tree--do-copy (root)
375 "Copy the avl tree with ROOT as root. Highly recursive." 375 "Copy the AVL tree with ROOT as root. Highly recursive."
376 (if (null root) 376 (if (null root)
377 nil 377 nil
378 (avl-tree--node-create 378 (avl-tree--node-create
@@ -401,7 +401,7 @@ itself."
401 ;; front of the STACK, until a leaf is reached. 401 ;; front of the STACK, until a leaf is reached.
402 (let ((node (car (avl-tree--stack-store stack))) 402 (let ((node (car (avl-tree--stack-store stack)))
403 (dir (if (avl-tree--stack-reverse stack) 1 0))) 403 (dir (if (avl-tree--stack-reverse stack) 1 0)))
404 (when node ; check for emtpy stack 404 (when node ; check for empty stack
405 (while (setq node (avl-tree--node-branch node dir)) 405 (while (setq node (avl-tree--node-branch node dir))
406 (push node (avl-tree--stack-store stack)))))) 406 (push node (avl-tree--stack-store stack))))))
407 407
@@ -411,21 +411,21 @@ itself."
411 411
412;; define public alias for constructors so that we can set docstring 412;; define public alias for constructors so that we can set docstring
413(defalias 'avl-tree-create 'avl-tree--create 413(defalias 'avl-tree-create 'avl-tree--create
414 "Create an empty avl tree. 414 "Create an empty AVL tree.
415COMPARE-FUNCTION is a function which takes two arguments, A and B, 415COMPARE-FUNCTION is a function which takes two arguments, A and B,
416and returns non-nil if A is less than B, and nil otherwise.") 416and returns non-nil if A is less than B, and nil otherwise.")
417 417
418(defalias 'avl-tree-compare-function 'avl-tree--cmpfun 418(defalias 'avl-tree-compare-function 'avl-tree--cmpfun
419 "Return the comparison function for the avl tree TREE. 419 "Return the comparison function for the AVL tree TREE.
420 420
421\(fn TREE)") 421\(fn TREE)")
422 422
423(defun avl-tree-empty (tree) 423(defun avl-tree-empty (tree)
424 "Return t if avl tree TREE is emtpy, otherwise return nil." 424 "Return t if AVL tree TREE is empty, otherwise return nil."
425 (null (avl-tree--root tree))) 425 (null (avl-tree--root tree)))
426 426
427(defun avl-tree-enter (tree data &optional updatefun) 427(defun avl-tree-enter (tree data &optional updatefun)
428 "Insert DATA into the avl tree TREE. 428 "Insert DATA into the AVL tree TREE.
429 429
430If an element that matches DATA (according to the tree's 430If an element that matches DATA (according to the tree's
431comparison function, see `avl-tree-create') already exists in 431comparison function, see `avl-tree-create') already exists in
@@ -433,8 +433,8 @@ TREE, it will be replaced by DATA by default.
433 433
434If UPDATEFUN is supplied and an element matching DATA already 434If UPDATEFUN is supplied and an element matching DATA already
435exists in TREE, UPDATEFUN is called with two arguments: DATA, and 435exists in TREE, UPDATEFUN is called with two arguments: DATA, and
436the matching element. Its return value replaces the existing 436the matching element. Its return value replaces the existing
437element. This value *must* itself match DATA (and hence the 437element. This value *must* itself match DATA (and hence the
438pre-existing data), or an error will occur. 438pre-existing data), or an error will occur.
439 439
440Returns the new data." 440Returns the new data."
@@ -443,7 +443,7 @@ Returns the new data."
443 0 data updatefun))) 443 0 data updatefun)))
444 444
445(defun avl-tree-delete (tree data &optional test nilflag) 445(defun avl-tree-delete (tree data &optional test nilflag)
446 "Delete the element matching DATA from the avl tree TREE. 446 "Delete the element matching DATA from the AVL tree TREE.
447Matching uses the comparison function previously specified in 447Matching uses the comparison function previously specified in
448`avl-tree-create' when TREE was created. 448`avl-tree-create' when TREE was created.
449 449
@@ -456,7 +456,7 @@ distinguished from the case of a successfully deleted null
456element. 456element.
457 457
458If supplied, TEST specifies a test that a matching element must 458If supplied, TEST specifies a test that a matching element must
459pass before it is deleted. If a matching element is found, it is 459pass before it is deleted. If a matching element is found, it is
460passed as an argument to TEST, and is deleted only if the return 460passed as an argument to TEST, and is deleted only if the return
461value is non-nil." 461value is non-nil."
462 (cdr (avl-tree--do-delete (avl-tree--cmpfun tree) 462 (cdr (avl-tree--do-delete (avl-tree--cmpfun tree)
@@ -465,14 +465,14 @@ value is non-nil."
465 465
466 466
467(defun avl-tree-member (tree data &optional nilflag) 467(defun avl-tree-member (tree data &optional nilflag)
468 "Return the element in the avl tree TREE which matches DATA. 468 "Return the element in the AVL tree TREE which matches DATA.
469Matching uses the comparison function previously specified in 469Matching uses the comparison function previously specified in
470`avl-tree-create' when TREE was created. 470`avl-tree-create' when TREE was created.
471 471
472If there is no such element in the tree, nil is 472If there is no such element in the tree, nil is
473returned. Optional argument NILFLAG specifies a value to return 473returned. Optional argument NILFLAG specifies a value to return
474instead of nil in this case. This allows non-existent elements to 474instead of nil in this case. This allows non-existent elements to
475be distinguished from a null element. (See also 475be distinguished from a null element. (See also
476`avl-tree-member-p', which does this for you.)" 476`avl-tree-member-p', which does this for you.)"
477 (let ((node (avl-tree--root tree)) 477 (let ((node (avl-tree--root tree))
478 (compare-function (avl-tree--cmpfun tree))) 478 (compare-function (avl-tree--cmpfun tree)))
@@ -488,15 +488,15 @@ be distinguished from a null element. (See also
488 488
489 489
490(defun avl-tree-member-p (tree data) 490(defun avl-tree-member-p (tree data)
491 "Return t if an element matching DATA exists in the avl tree TREE, 491 "Return t if an element matching DATA exists in the AVL tree TREE.
492otherwise return nil. Matching uses the comparison function 492Otherwise return nil. Matching uses the comparison function
493previously specified in `avl-tree-create' when TREE was created." 493previously specified in `avl-tree-create' when TREE was created."
494 (let ((flag '(nil))) 494 (let ((flag '(nil)))
495 (not (eq (avl-tree-member tree data flag) flag)))) 495 (not (eq (avl-tree-member tree data flag) flag))))
496 496
497 497
498(defun avl-tree-map (__map-function__ tree &optional reverse) 498(defun avl-tree-map (__map-function__ tree &optional reverse)
499 "Modify all elements in the avl tree TREE by applying FUNCTION. 499 "Modify all elements in the AVL tree TREE by applying FUNCTION.
500 500
501Each element is replaced by the return value of FUNCTION applied 501Each element is replaced by the return value of FUNCTION applied
502to that element. 502to that element.
@@ -512,7 +512,7 @@ descending order if REVERSE is non-nil."
512 512
513 513
514(defun avl-tree-mapc (__map-function__ tree &optional reverse) 514(defun avl-tree-mapc (__map-function__ tree &optional reverse)
515 "Apply FUNCTION to all elements in avl tree TREE, 515 "Apply FUNCTION to all elements in AVL tree TREE,
516for side-effect only. 516for side-effect only.
517 517
518FUNCTION is applied to the elements in ascending order, or 518FUNCTION is applied to the elements in ascending order, or
@@ -526,7 +526,7 @@ descending order if REVERSE is non-nil."
526 526
527(defun avl-tree-mapf 527(defun avl-tree-mapf
528 (__map-function__ combinator tree &optional reverse) 528 (__map-function__ combinator tree &optional reverse)
529 "Apply FUNCTION to all elements in avl tree TREE, 529 "Apply FUNCTION to all elements in AVL tree TREE,
530and combine the results using COMBINATOR. 530and combine the results using COMBINATOR.
531 531
532The FUNCTION is applied and the results are combined in ascending 532The FUNCTION is applied and the results are combined in ascending
@@ -545,7 +545,7 @@ order, or descending order if REVERSE is non-nil."
545 545
546 546
547(defun avl-tree-mapcar (__map-function__ tree &optional reverse) 547(defun avl-tree-mapcar (__map-function__ tree &optional reverse)
548 "Apply FUNCTION to all elements in avl tree TREE, 548 "Apply FUNCTION to all elements in AVL tree TREE,
549and make a list of the results. 549and make a list of the results.
550 550
551The FUNCTION is applied and the list constructed in ascending 551The FUNCTION is applied and the list constructed in ascending
@@ -578,7 +578,7 @@ is more efficient."
578 (avl-tree--node-data node)))) 578 (avl-tree--node-data node))))
579 579
580(defun avl-tree-copy (tree) 580(defun avl-tree-copy (tree)
581 "Return a copy of the avl tree TREE." 581 "Return a copy of the AVL tree TREE."
582 (let ((new-tree (avl-tree-create (avl-tree--cmpfun tree)))) 582 (let ((new-tree (avl-tree-create (avl-tree--cmpfun tree))))
583 (setf (avl-tree--root new-tree) (avl-tree--do-copy (avl-tree--root tree))) 583 (setf (avl-tree--root new-tree) (avl-tree--do-copy (avl-tree--root tree)))
584 new-tree)) 584 new-tree))
@@ -600,7 +600,7 @@ is more efficient."
600 treesize)) 600 treesize))
601 601
602(defun avl-tree-clear (tree) 602(defun avl-tree-clear (tree)
603 "Clear the avl tree TREE." 603 "Clear the AVL tree TREE."
604 (setf (avl-tree--root tree) nil)) 604 (setf (avl-tree--root tree) nil))
605 605
606 606
@@ -617,8 +617,8 @@ calling `avl-tree-stack-pop' will give unpredictable results).
617 617
618Operations on these objects are significantly more efficient than 618Operations on these objects are significantly more efficient than
619constructing a real stack with `avl-tree-flatten' and using 619constructing a real stack with `avl-tree-flatten' and using
620standard stack functions. As such, they can be useful in 620standard stack functions. As such, they can be useful in
621implementing efficient algorithms of AVL trees. However, in cases 621implementing efficient algorithms of AVL trees. However, in cases
622where mapping functions `avl-tree-mapc', `avl-tree-mapcar' or 622where mapping functions `avl-tree-mapc', `avl-tree-mapcar' or
623`avl-tree-mapf' would be sufficient, it is better to use one of 623`avl-tree-mapf' would be sufficient, it is better to use one of
624those instead." 624those instead."
@@ -629,11 +629,11 @@ those instead."
629 629
630(defun avl-tree-stack-pop (avl-tree-stack &optional nilflag) 630(defun avl-tree-stack-pop (avl-tree-stack &optional nilflag)
631 "Pop the first element from AVL-TREE-STACK. 631 "Pop the first element from AVL-TREE-STACK.
632\(See also `avl-tree-stack'\). 632\(See also `avl-tree-stack').
633 633
634Returns nil if the stack is empty, or NILFLAG if specified. (The 634Returns nil if the stack is empty, or NILFLAG if specified.
635latter allows an empty stack to be distinguished from a null 635\(The latter allows an empty stack to be distinguished from
636element stored in the AVL tree.)" 636a null element stored in the AVL tree.)"
637 (let (node next) 637 (let (node next)
638 (if (not (setq node (pop (avl-tree--stack-store avl-tree-stack)))) 638 (if (not (setq node (pop (avl-tree--stack-store avl-tree-stack))))
639 nilflag 639 nilflag
@@ -650,9 +650,9 @@ element stored in the AVL tree.)"
650 "Return the first element of AVL-TREE-STACK, without removing it 650 "Return the first element of AVL-TREE-STACK, without removing it
651from the stack. 651from the stack.
652 652
653Returns nil if the stack is empty, or NILFLAG if specified. (The 653Returns nil if the stack is empty, or NILFLAG if specified.
654latter allows an empty stack to be distinguished from a null 654\(The latter allows an empty stack to be distinguished from
655element stored in the AVL tree.)" 655a null element stored in the AVL tree.)"
656 (or (car (avl-tree--stack-store avl-tree-stack)) 656 (or (car (avl-tree--stack-store avl-tree-stack))
657 nilflag)) 657 nilflag))
658 658
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index 0630f5f4e4e..c9027fb663d 100644
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -135,7 +135,7 @@
135;; We'd have to notice defvars and defconsts, since those variables should 135;; We'd have to notice defvars and defconsts, since those variables should
136;; always be dynamic, and attempting to do a lexical binding of them 136;; always be dynamic, and attempting to do a lexical binding of them
137;; should simply do a dynamic binding instead. 137;; should simply do a dynamic binding instead.
138;; But! We need to know about variables that were not necessarily defvarred 138;; But! We need to know about variables that were not necessarily defvared
139;; in the file being compiled (doing a boundp check isn't good enough.) 139;; in the file being compiled (doing a boundp check isn't good enough.)
140;; Fdefvar() would have to be modified to add something to the plist. 140;; Fdefvar() would have to be modified to add something to the plist.
141;; 141;;
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 3d593570c4e..9aa230cfe9b 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -178,9 +178,9 @@ adds `c' to it; otherwise adds `.elc'."
178;; This can be the 'byte-compile property of any symbol. 178;; This can be the 'byte-compile property of any symbol.
179(autoload 'byte-compile-inline-expand "byte-opt") 179(autoload 'byte-compile-inline-expand "byte-opt")
180 180
181;; This is the entrypoint to the lapcode optimizer pass1. 181;; This is the entry point to the lapcode optimizer pass1.
182(autoload 'byte-optimize-form "byte-opt") 182(autoload 'byte-optimize-form "byte-opt")
183;; This is the entrypoint to the lapcode optimizer pass2. 183;; This is the entry point to the lapcode optimizer pass2.
184(autoload 'byte-optimize-lapcode "byte-opt") 184(autoload 'byte-optimize-lapcode "byte-opt")
185(autoload 'byte-compile-unfold-lambda "byte-opt") 185(autoload 'byte-compile-unfold-lambda "byte-opt")
186 186
diff --git a/lisp/emacs-lisp/cconv.el b/lisp/emacs-lisp/cconv.el
index c6e157be776..daafd2226ec 100644
--- a/lisp/emacs-lisp/cconv.el
+++ b/lisp/emacs-lisp/cconv.el
@@ -67,7 +67,7 @@
67 67
68;; TODO: (not just for cconv but also for the lexbind changes in general) 68;; TODO: (not just for cconv but also for the lexbind changes in general)
69;; - let (e)debug find the value of lexical variables from the stack. 69;; - let (e)debug find the value of lexical variables from the stack.
70;; - make eval-region do the eval-sexp-add-defvars danse. 70;; - make eval-region do the eval-sexp-add-defvars dance.
71;; - byte-optimize-form should be applied before cconv. 71;; - byte-optimize-form should be applied before cconv.
72;; OTOH, the warnings emitted by cconv-analyze need to come before optimize 72;; OTOH, the warnings emitted by cconv-analyze need to come before optimize
73;; since afterwards they can because obnoxious (warnings about an "unused 73;; since afterwards they can because obnoxious (warnings about an "unused
@@ -507,7 +507,7 @@ places where they originally did not directly appear."
507 (defalias 'byte-compile-not-lexical-var-p 'boundp)) 507 (defalias 'byte-compile-not-lexical-var-p 'boundp))
508 508
509(defun cconv--analyse-use (vardata form varkind) 509(defun cconv--analyse-use (vardata form varkind)
510 "Analyse the use of a variable. 510 "Analyze the use of a variable.
511VARDATA should be (BINDER READ MUTATED CAPTURED CALLED). 511VARDATA should be (BINDER READ MUTATED CAPTURED CALLED).
512VARKIND is the name of the kind of variable. 512VARKIND is the name of the kind of variable.
513FORM is the parent form that binds this var." 513FORM is the parent form that binds this var."
@@ -559,7 +559,7 @@ FORM is the parent form that binds this var."
559 (t (let ((varstruct (list arg nil nil nil nil))) 559 (t (let ((varstruct (list arg nil nil nil nil)))
560 (push (cons (list arg) (cdr varstruct)) newvars) 560 (push (cons (list arg) (cdr varstruct)) newvars)
561 (push varstruct newenv))))) 561 (push varstruct newenv)))))
562 (dolist (form body) ;Analyse body forms. 562 (dolist (form body) ;Analyze body forms.
563 (cconv-analyse-form form newenv)) 563 (cconv-analyse-form form newenv))
564 ;; Summarize resulting data about arguments. 564 ;; Summarize resulting data about arguments.
565 (dolist (vardata newvars) 565 (dolist (vardata newvars)
@@ -612,7 +612,7 @@ and updates the data stored in ENV."
612 (push (cons binder (cdr varstruct)) newvars) 612 (push (cons binder (cdr varstruct)) newvars)
613 (push varstruct env)))) 613 (push varstruct env))))
614 614
615 (dolist (form body-forms) ; Analyse body forms. 615 (dolist (form body-forms) ; Analyze body forms.
616 (cconv-analyse-form form env)) 616 (cconv-analyse-form form env))
617 617
618 (dolist (vardata newvars) 618 (dolist (vardata newvars)
diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el
index bf9f2c9d6ed..fae4d9adc38 100644
--- a/lisp/emacs-lisp/easy-mmode.el
+++ b/lisp/emacs-lisp/easy-mmode.el
@@ -233,10 +233,10 @@ or call the function `%s'."))))
233 (defun ,modefun (&optional arg ,@extra-args) 233 (defun ,modefun (&optional arg ,@extra-args)
234 ,(or doc 234 ,(or doc
235 (format (concat "Toggle %s on or off. 235 (format (concat "Toggle %s on or off.
236Interactively, with no prefix argument, toggle the mode. 236With a prefix argument ARG, enable %s if ARG is
237With universal prefix ARG turn mode on. 237positive, and disable it otherwise. If called from Lisp, enable
238With zero or negative ARG turn mode off. 238the mode if ARG is omitted or nil.
239\\{%s}") pretty-name keymap-sym)) 239\\{%s}") pretty-name pretty-name keymap-sym))
240 ;; Use `toggle' rather than (if ,mode 0 1) so that using 240 ;; Use `toggle' rather than (if ,mode 0 1) so that using
241 ;; repeat-command still does the toggling correctly. 241 ;; repeat-command still does the toggling correctly.
242 (interactive (list (or current-prefix-arg 'toggle))) 242 (interactive (list (or current-prefix-arg 'toggle)))
diff --git a/lisp/emacs-lisp/eieio.el b/lisp/emacs-lisp/eieio.el
index 5e29a85d386..db3236afc1a 100644
--- a/lisp/emacs-lisp/eieio.el
+++ b/lisp/emacs-lisp/eieio.el
@@ -992,7 +992,7 @@ if default value is nil."
992 ;; EML - Note: the only reason to override a class bound slot 992 ;; EML - Note: the only reason to override a class bound slot
993 ;; is to change the default, so allow unbound in. 993 ;; is to change the default, so allow unbound in.
994 994
995 ;; If we have a repeat, only update the vlaue... 995 ;; If we have a repeat, only update the value...
996 (eieio-perform-slot-validation-for-default a tp value skipnil) 996 (eieio-perform-slot-validation-for-default a tp value skipnil)
997 (setcar dp value)) 997 (setcar dp value))
998 998
diff --git a/lisp/emacs-lisp/elint.el b/lisp/emacs-lisp/elint.el
index ba04a27021e..ce6f8348a6b 100644
--- a/lisp/emacs-lisp/elint.el
+++ b/lisp/emacs-lisp/elint.el
@@ -1098,7 +1098,7 @@ optional prefix argument REINIT is non-nil."
1098;; This includes all the built-in and dumped things with documentation. 1098;; This includes all the built-in and dumped things with documentation.
1099(defun elint-scan-doc-file () 1099(defun elint-scan-doc-file ()
1100 "Scan the DOC file for function and variables. 1100 "Scan the DOC file for function and variables.
1101Marks the function wih their arguments, and returns a list of variables." 1101Marks the function with their arguments, and returns a list of variables."
1102 ;; Cribbed from help-fns.el. 1102 ;; Cribbed from help-fns.el.
1103 (let ((docbuf " *DOC*") 1103 (let ((docbuf " *DOC*")
1104 vars sym args) 1104 vars sym args)
diff --git a/lisp/emacs-lisp/smie.el b/lisp/emacs-lisp/smie.el
index d43ba6c0d3e..afc8c7faa47 100644
--- a/lisp/emacs-lisp/smie.el
+++ b/lisp/emacs-lisp/smie.el
@@ -579,7 +579,7 @@ PREC2 is a table as returned by `smie-precs->prec2' or
579 (smie-debug--describe-cycle 579 (smie-debug--describe-cycle
580 table (smie-debug--prec2-cycle csts))))) 580 table (smie-debug--prec2-cycle csts)))))
581 (incf i 10)) 581 (incf i 10))
582 ;; Propagate equalities back to their source. 582 ;; Propagate equality constraints back to their sources.
583 (dolist (eq (nreverse eqs)) 583 (dolist (eq (nreverse eqs))
584 (when (null (cadr eq)) 584 (when (null (cadr eq))
585 ;; There's an equality constraint, but we still haven't given 585 ;; There's an equality constraint, but we still haven't given
diff --git a/lisp/emacs-lisp/testcover.el b/lisp/emacs-lisp/testcover.el
index 8f991575eda..a5a6f71d79e 100644
--- a/lisp/emacs-lisp/testcover.el
+++ b/lisp/emacs-lisp/testcover.el
@@ -220,7 +220,7 @@ non-nil, byte-compiles each function after instrumenting."
220(defun testcover-reinstrument (form) 220(defun testcover-reinstrument (form)
221 "Reinstruments FORM to use testcover instead of edebug. This 221 "Reinstruments FORM to use testcover instead of edebug. This
222function modifies the list that FORM points to. Result is nil if 222function modifies the list that FORM points to. Result is nil if
223FORM should return multiple vlues, t if should always return same 223FORM should return multiple values, t if should always return same
224value, 'maybe if either is acceptable." 224value, 'maybe if either is acceptable."
225 (let ((fun (car-safe form)) 225 (let ((fun (car-safe form))
226 id val) 226 id val)
diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el
index df37157f7a9..ce3cc3c9a22 100644
--- a/lisp/emulation/viper-cmd.el
+++ b/lisp/emulation/viper-cmd.el
@@ -3715,7 +3715,7 @@ Although this function is bound to \\[viper-toggle-search-style], the most
3715convenient way to use it is to bind `//' to the macro 3715convenient way to use it is to bind `//' to the macro
3716`1 M-x viper-toggle-search-style' and `///' to 3716`1 M-x viper-toggle-search-style' and `///' to
3717`2 M-x viper-toggle-search-style'. In this way, hitting `//' quickly will 3717`2 M-x viper-toggle-search-style'. In this way, hitting `//' quickly will
3718toggle case-fold-search and hitting `/' three times witth toggle regexp 3718toggle case-fold-search and hitting `/' three times with toggle regexp
3719search. Macros are more convenient in this case because they don't affect 3719search. Macros are more convenient in this case because they don't affect
3720the Emacs binding of `/'." 3720the Emacs binding of `/'."
3721 (interactive "P") 3721 (interactive "P")
diff --git a/lisp/emulation/viper-init.el b/lisp/emulation/viper-init.el
index b0c37ed28e4..2d221d5fa05 100644
--- a/lisp/emulation/viper-init.el
+++ b/lisp/emulation/viper-init.el
@@ -593,7 +593,7 @@ to a new place after repeating previous Vi command."
593;; The reason this is needed is because dabbrev-expand (and possibly 593;; The reason this is needed is because dabbrev-expand (and possibly
594;; others) may jump to before the insertion point, delete something and 594;; others) may jump to before the insertion point, delete something and
595;; then reinsert a bigger piece. For instance: bla^blo 595;; then reinsert a bigger piece. For instance: bla^blo
596;; If dabbrev-expand is called after `blo' and ^ undicates viper-insert-point, 596;; If dabbrev-expand is called after `blo' and ^ indicates viper-insert-point,
597;; then point jumps to the beginning of `blo'. If expansion is found, `blablo' 597;; then point jumps to the beginning of `blo'. If expansion is found, `blablo'
598;; is deleted, and we have |^, where | denotes point. Next, dabbrev-expand 598;; is deleted, and we have |^, where | denotes point. Next, dabbrev-expand
599;; will insert the expansion, and we get: blablo^ 599;; will insert the expansion, and we get: blablo^
diff --git a/lisp/emulation/viper-macs.el b/lisp/emulation/viper-macs.el
index 00153c1ff0e..e978823a49c 100644
--- a/lisp/emulation/viper-macs.el
+++ b/lisp/emulation/viper-macs.el
@@ -319,7 +319,7 @@ a key is a symbol, e.g., `a', `\\1', `f2', etc., or a list, e.g.,
319 319
320;; Accepts as macro names: strings and vectors. 320;; Accepts as macro names: strings and vectors.
321;; strings must be strings of characters; vectors must be vectors of keys 321;; strings must be strings of characters; vectors must be vectors of keys
322;; in canonic form. The canonic form is essentially the form used in XEmacs 322;; in canonical form, which is essentially the form used in XEmacs.
323;; More general definitions are inherited by more specific scopes: 323;; More general definitions are inherited by more specific scopes:
324;; global->major mode->buffer. More specific definitions override more general 324;; global->major mode->buffer. More specific definitions override more general
325(defun viper-record-kbd-macro (macro-name state macro-body &optional scope) 325(defun viper-record-kbd-macro (macro-name state macro-body &optional scope)
diff --git a/lisp/emulation/viper-mous.el b/lisp/emulation/viper-mous.el
index a2e289df5e8..a99ffdea558 100644
--- a/lisp/emulation/viper-mous.el
+++ b/lisp/emulation/viper-mous.el
@@ -66,7 +66,7 @@
66 "*Function that determines what constitutes a word for clicking events. 66 "*Function that determines what constitutes a word for clicking events.
67Takes two parameters: a COUNT, indicating how many words to return, 67Takes two parameters: a COUNT, indicating how many words to return,
68and CLICK-COUNT, telling whether this is the first click, a double-click, 68and CLICK-COUNT, telling whether this is the first click, a double-click,
69or a tripple-click." 69or a triple-click."
70 :type 'symbol 70 :type 'symbol
71 :group 'viper-mouse) 71 :group 'viper-mouse)
72 72
diff --git a/lisp/epg.el b/lisp/epg.el
index 00c00f9c9d3..133e76da96c 100644
--- a/lisp/epg.el
+++ b/lisp/epg.el
@@ -82,7 +82,7 @@
82(defconst epg-invalid-recipients-reason-alist 82(defconst epg-invalid-recipients-reason-alist
83 '((0 . "No specific reason given") 83 '((0 . "No specific reason given")
84 (1 . "Not Found") 84 (1 . "Not Found")
85 (2 . "Ambigious specification") 85 (2 . "Ambiguous specification")
86 (3 . "Wrong key usage") 86 (3 . "Wrong key usage")
87 (4 . "Key revoked") 87 (4 . "Key revoked")
88 (5 . "Key expired") 88 (5 . "Key expired")
@@ -95,7 +95,7 @@
95(defconst epg-delete-problem-reason-alist 95(defconst epg-delete-problem-reason-alist
96 '((1 . "No such key") 96 '((1 . "No such key")
97 (2 . "Must delete secret key first") 97 (2 . "Must delete secret key first")
98 (3 . "Ambigious specification"))) 98 (3 . "Ambiguous specification")))
99 99
100(defconst epg-import-ok-reason-alist 100(defconst epg-import-ok-reason-alist
101 '((0 . "Not actually changed") 101 '((0 . "Not actually changed")
diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog
index 3fd2c87d59c..1b67835cb07 100644
--- a/lisp/erc/ChangeLog
+++ b/lisp/erc/ChangeLog
@@ -1,3 +1,11 @@
12011-11-28 Mike Kazantsev <mk.fraggod@gmail.com> (tiny change)
2
3 * erc-dcc.el (erc-dcc-ctcp-query-send-regexp): Updated regexp to
4 match quoted filenames with spaces inside.
5 (erc-dcc-handle-ctcp-send): Updated regexp match group numbers,
6 added processing of escaped quotes and backslashes if filename
7 itself was in quotes.
8
12011-11-20 Juanma Barranquero <lekktu@gmail.com> 92011-11-20 Juanma Barranquero <lekktu@gmail.com>
2 10
3 * erc-log.el (erc-logging-enabled): Fix typo. 11 * erc-log.el (erc-logging-enabled): Fix typo.
diff --git a/lisp/erc/ChangeLog.02 b/lisp/erc/ChangeLog.02
index 279a336f15f..3364af531f5 100644
--- a/lisp/erc/ChangeLog.02
+++ b/lisp/erc/ChangeLog.02
@@ -979,7 +979,7 @@
979 979
9802002-11-16 Alex Schroeder <alex@gnu.org> 9802002-11-16 Alex Schroeder <alex@gnu.org>
981 981
982 * erc-autoaway.el, erc-button.el, erc-fill.el, erc-match.el, 982 * erc-autoaway.el, erc-button.el, erc-fill.el, erc-match.el,
983 erc-menu.el, erc-ring.el, erc-track.el: 983 erc-menu.el, erc-ring.el, erc-track.el:
984 Cleanup of file headers: copyright years, GPL mumbo-jumbo, commentaries. 984 Cleanup of file headers: copyright years, GPL mumbo-jumbo, commentaries.
985 985
@@ -1447,7 +1447,7 @@
1447 * erc-match.el: fixed spelling error 1447 * erc-match.el: fixed spelling error
1448 1448
1449 * erc-track.el, erc-match.el: * erc-match.el: 1449 * erc-track.el, erc-match.el: * erc-match.el:
1450 highlight current nickname in its own face (deactivated by default): 1450 highlight current nickname in its own face (inactive by default):
1451 - added erc-current-nick-highlight-type, erc-current-nick-face, 1451 - added erc-current-nick-highlight-type, erc-current-nick-face,
1452 erc-current-nick-p 1452 erc-current-nick-p
1453 1453
@@ -1564,7 +1564,7 @@
1564 (require 'erc-nickserv) is now necessary for this to work 1564 (require 'erc-nickserv) is now necessary for this to work
1565 1565
1566 * erc.el: 1566 * erc.el:
1567 * results of /COUNTRY now formatted as notice; errors are ignored, 1567 * results of /COUNTRY now formatted as notice; errors are ignored,
1568 fixing 1568 fixing
1569 bug which made prompt disappear 1569 bug which made prompt disappear
1570 1570
@@ -1959,9 +1959,9 @@
1959 1959
1960 * erc.el: remove trailing \n from any sent text 1960 * erc.el: remove trailing \n from any sent text
1961 1961
1962 * servers.pl, erc-bbdb.el, erc-button.el, erc-chess.el, 1962 * servers.pl, erc-bbdb.el, erc-button.el, erc-chess.el,
1963 erc-complete.el, erc-fill.el, erc-ibuffer.el, erc-list.el, 1963 erc-complete.el, erc-fill.el, erc-ibuffer.el, erc-list.el,
1964 erc-match.el, erc-menu.el, erc-nets.el, erc-replace.el, 1964 erc-match.el, erc-menu.el, erc-nets.el, erc-replace.el,
1965 erc-speak.el, erc-speedbar.el, erc-track.el, erc.el: 1965 erc-speak.el, erc-speedbar.el, erc-track.el, erc.el:
1966 clean whitespace 1966 clean whitespace
1967 1967
diff --git a/lisp/erc/erc-dcc.el b/lisp/erc/erc-dcc.el
index 19e1801e03c..fce22aadcc4 100644
--- a/lisp/erc/erc-dcc.el
+++ b/lisp/erc/erc-dcc.el
@@ -649,7 +649,16 @@ that subcommand."
649 ?q query ?n nick ?u login ?h host)))) 649 ?q query ?n nick ?u login ?h host))))
650 650
651(defconst erc-dcc-ctcp-query-send-regexp 651(defconst erc-dcc-ctcp-query-send-regexp
652 "^DCC SEND \\([^ ]+\\) \\([0-9]+\\) \\([0-9]+\\) *\\([0-9]*\\)") 652 (concat "^DCC SEND \\("
653 ;; Following part matches either filename without spaces
654 ;; or filename enclosed in double quotes with any number
655 ;; of escaped double quotes inside.
656 "\"\\(\\(.*?\\(\\\\\"\\)?\\)+?\\)\"\\|\\([^ ]+\\)"
657 "\\) \\([0-9]+\\) \\([0-9]+\\) *\\([0-9]*\\)"))
658
659(defsubst erc-dcc-unquote-filename (filename)
660 (erc-replace-regexp-in-string "\\\\\\\\" "\\"
661 (erc-replace-regexp-in-string "\\\\\"" "\"" filename t t) t t))
653 662
654(defun erc-dcc-handle-ctcp-send (proc query nick login host to) 663(defun erc-dcc-handle-ctcp-send (proc query nick login host to)
655 "This is called if a CTCP DCC SEND subcommand is sent to the client. 664 "This is called if a CTCP DCC SEND subcommand is sent to the client.
@@ -664,10 +673,12 @@ It extracts the information about the dcc request and adds it to
664 'dcc-request-bogus 673 'dcc-request-bogus
665 ?r "SEND" ?n nick ?u login ?h host)) 674 ?r "SEND" ?n nick ?u login ?h host))
666 ((string-match erc-dcc-ctcp-query-send-regexp query) 675 ((string-match erc-dcc-ctcp-query-send-regexp query)
667 (let ((filename (match-string 1 query)) 676 (let ((filename
668 (ip (erc-decimal-to-ip (match-string 2 query))) 677 (or (match-string 3 query)
669 (port (match-string 3 query)) 678 (erc-dcc-unquote-filename (match-string 2 query))))
670 (size (match-string 4 query))) 679 (ip (erc-decimal-to-ip (match-string 6 query)))
680 (port (match-string 7 query))
681 (size (match-string 8 query)))
671 ;; FIXME: a warning really should also be sent 682 ;; FIXME: a warning really should also be sent
672 ;; if the ip address != the host the dcc sender is on. 683 ;; if the ip address != the host the dcc sender is on.
673 (erc-display-message 684 (erc-display-message
diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el
index a218dd12555..0eff33f1e75 100644
--- a/lisp/erc/erc.el
+++ b/lisp/erc/erc.el
@@ -2626,7 +2626,7 @@ VALUE is computed by evaluating the rest of LINE in Lisp."
2626(defun erc-cmd-default (line) 2626(defun erc-cmd-default (line)
2627 "Fallback command. 2627 "Fallback command.
2628 2628
2629Commands for which no erc-cmd-xxx exists, are tunnelled through 2629Commands for which no erc-cmd-xxx exists, are tunneled through
2630this function. LINE is sent to the server verbatim, and 2630this function. LINE is sent to the server verbatim, and
2631therefore has to contain the command itself as well." 2631therefore has to contain the command itself as well."
2632 (erc-log (format "cmd: DEFAULT: %s" line)) 2632 (erc-log (format "cmd: DEFAULT: %s" line))
diff --git a/lisp/eshell/em-hist.el b/lisp/eshell/em-hist.el
index db5e98062a9..5e44e541526 100644
--- a/lisp/eshell/em-hist.el
+++ b/lisp/eshell/em-hist.el
@@ -90,12 +90,14 @@
90 "If non-nil, name of the file to read/write input history. 90 "If non-nil, name of the file to read/write input history.
91See also `eshell-read-history' and `eshell-write-history'. 91See also `eshell-read-history' and `eshell-write-history'.
92If it is nil, Eshell will use the value of HISTFILE." 92If it is nil, Eshell will use the value of HISTFILE."
93 :type 'file 93 :type '(choice (const :tag "Use HISTFILE" nil)
94 file)
94 :group 'eshell-hist) 95 :group 'eshell-hist)
95 96
96(defcustom eshell-history-size 128 97(defcustom eshell-history-size 128
97 "Size of the input history ring. If nil, use envvar HISTSIZE." 98 "Size of the input history ring. If nil, use envvar HISTSIZE."
98 :type 'integer 99 :type '(choice (const :tag "Use HISTSIZE" nil)
100 integer)
99 :group 'eshell-hist) 101 :group 'eshell-hist)
100 102
101(defcustom eshell-hist-ignoredups nil 103(defcustom eshell-hist-ignoredups nil
@@ -261,7 +263,13 @@ element, regardless of any text on the command line. In that case,
261 263
262 (make-local-variable 'eshell-history-size) 264 (make-local-variable 'eshell-history-size)
263 (or eshell-history-size 265 (or eshell-history-size
264 (setq eshell-history-size (getenv "HISTSIZE"))) 266 (let ((hsize (getenv "HISTSIZE")))
267 (setq eshell-history-size
268 (if (and (stringp hsize)
269 (integerp (setq hsize (string-to-number hsize)))
270 (> hsize 0))
271 hsize
272 128))))
265 273
266 (make-local-variable 'eshell-history-file-name) 274 (make-local-variable 'eshell-history-file-name)
267 (or eshell-history-file-name 275 (or eshell-history-file-name
diff --git a/lisp/files.el b/lisp/files.el
index 0f167ce3ffa..f903d2919a6 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1343,7 +1343,7 @@ automatically choosing a major mode, use \\[find-file-literally]."
1343 (let ((value (find-file-noselect filename nil nil wildcards))) 1343 (let ((value (find-file-noselect filename nil nil wildcards)))
1344 (if (listp value) 1344 (if (listp value)
1345 (mapcar 'switch-to-buffer (nreverse value)) 1345 (mapcar 'switch-to-buffer (nreverse value))
1346 (switch-to-buffer value nil 'force-same-window)))) 1346 (switch-to-buffer value))))
1347 1347
1348(defun find-file-other-window (filename &optional wildcards) 1348(defun find-file-other-window (filename &optional wildcards)
1349 "Edit file FILENAME, in another window. 1349 "Edit file FILENAME, in another window.
diff --git a/lisp/filesets.el b/lisp/filesets.el
index 269ee331fb2..680a107adfe 100644
--- a/lisp/filesets.el
+++ b/lisp/filesets.el
@@ -267,12 +267,12 @@ SYM to VAL and return t. If INIT-FLAG is non-nil, set with
267 (not ignore-flag))) 267 (not ignore-flag)))
268 268
269(defun filesets-set-default! (sym val) 269(defun filesets-set-default! (sym val)
270 "Call `filestes-set-default' and reset cached data (i.e. rebuild menu)." 270 "Call `filesets-set-default' and reset cached data (i.e. rebuild menu)."
271 (when (filesets-set-default sym val) 271 (when (filesets-set-default sym val)
272 (filesets-reset-fileset))) 272 (filesets-reset-fileset)))
273 273
274(defun filesets-set-default+ (sym val) 274(defun filesets-set-default+ (sym val)
275 "Call `filestes-set-default' and reset filesets' standard menu." 275 "Call `filesets-set-default' and reset filesets' standard menu."
276 (when (filesets-set-default sym val) 276 (when (filesets-set-default sym val)
277 (setq filesets-has-changed-flag t))) 277 (setq filesets-has-changed-flag t)))
278; (filesets-reset-fileset nil t))) 278; (filesets-reset-fileset nil t)))
diff --git a/lisp/follow.el b/lisp/follow.el
index 72a091e8ce2..2273e8920fd 100644
--- a/lisp/follow.el
+++ b/lisp/follow.el
@@ -98,7 +98,7 @@
98;; (global-set-key [f7] 'follow-delete-other-windows-and-split) 98;; (global-set-key [f7] 'follow-delete-other-windows-and-split)
99 99
100 100
101;; There exist two system variables that control the appearence of 101;; There exist two system variables that control the appearance of
102;; lines wider than the window containing them. The default is to 102;; lines wider than the window containing them. The default is to
103;; truncate long lines whenever a window isn't as wide as the frame. 103;; truncate long lines whenever a window isn't as wide as the frame.
104;; 104;;
@@ -351,7 +351,7 @@ After that, changing the prefix key requires manipulating keymaps."
351;; global map. 351;; global map.
352(easy-menu-add-item nil '("Tools") 352(easy-menu-add-item nil '("Tools")
353 '("Follow" 353 '("Follow"
354 ;; The Emacs code used to just grey out operations when follow-mode was 354 ;; The Emacs code used to just gray out operations when follow-mode was
355 ;; not enabled, whereas the XEmacs code used to remove it altogether. 355 ;; not enabled, whereas the XEmacs code used to remove it altogether.
356 ;; Not sure which is preferable, but clearly the preference should not 356 ;; Not sure which is preferable, but clearly the preference should not
357 ;; depend on the flavor. 357 ;; depend on the flavor.
diff --git a/lisp/frame.el b/lisp/frame.el
index f63179de1f1..af668f80961 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -1133,15 +1133,21 @@ To get the frame's current border color, use `frame-parameters'."
1133 (list (cons 'border-color color-name)))) 1133 (list (cons 'border-color color-name))))
1134 1134
1135(define-minor-mode auto-raise-mode 1135(define-minor-mode auto-raise-mode
1136 "Toggle whether or not the selected frame should auto-raise. 1136 "Toggle whether or not selected frames should auto-raise.
1137With a prefix argument ARG, enable Auto Raise mode if ARG is 1137With a prefix argument ARG, enable Auto Raise mode if ARG is
1138positive, and disable it otherwise. If called from Lisp, enable 1138positive, and disable it otherwise. If called from Lisp, enable
1139the mode if ARG is omitted or nil. 1139the mode if ARG is omitted or nil.
1140 1140
1141Note that this controls Emacs's own auto-raise feature. 1141Auto Raise mode does nothing under most window managers, which
1142Some window managers allow you to enable auto-raise for certain windows. 1142switch focus on mouse clicks. It only has an effect if your
1143You can use that for Emacs windows if you wish, but if you do, 1143window manager switches focus on mouse movement (in which case
1144that is beyond the control of Emacs and this command has no effect on it." 1144you should also change `focus-follows-mouse' to t). Then,
1145enabling Auto Raise mode causes any graphical Emacs frame which
1146acquires focus to be automatically raised.
1147
1148Note that this minor mode controls Emacs's own auto-raise
1149feature. Window managers that switch focus on mouse movement
1150often have their own auto-raise feature."
1145 :variable (frame-parameter nil 'auto-raise) 1151 :variable (frame-parameter nil 'auto-raise)
1146 (if (frame-parameter nil 'auto-raise) 1152 (if (frame-parameter nil 'auto-raise)
1147 (raise-frame))) 1153 (raise-frame)))
@@ -1152,10 +1158,16 @@ With a prefix argument ARG, enable Auto Lower mode if ARG is
1152positive, and disable it otherwise. If called from Lisp, enable 1158positive, and disable it otherwise. If called from Lisp, enable
1153the mode if ARG is omitted or nil. 1159the mode if ARG is omitted or nil.
1154 1160
1155Note that this controls Emacs's own auto-lower feature. 1161Auto Lower mode does nothing under most window managers, which
1156Some window managers allow you to enable auto-lower for certain windows. 1162switch focus on mouse clicks. It only has an effect if your
1157You can use that for Emacs windows if you wish, but if you do, 1163window manager switches focus on mouse movement (in which case
1158that is beyond the control of Emacs and this command has no effect on it." 1164you should also change `focus-follows-mouse' to t). Then,
1165enabling Auto Lower Mode causes any graphical Emacs frame which
1166loses focus to be automatically lowered.
1167
1168Note that this minor mode controls Emacs's own auto-lower
1169feature. Window managers that switch focus on mouse movement
1170often have their own features for raising or lowering frames."
1159 :variable (frame-parameter nil 'auto-lower)) 1171 :variable (frame-parameter nil 'auto-lower))
1160 1172
1161(defun set-frame-name (name) 1173(defun set-frame-name (name)
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 889a5230d15..fbfcda57b53 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,45 @@
12011-12-02 Katsumi Yamaoka <yamaoka@jpl.org>
2
3 * compface.el (uncompface):
4 * gnus-art.el (gnus-article-x-face-command): Update the header format
5 of icon data for the most recent icontopbm program.
6
72011-12-01 Katsumi Yamaoka <yamaoka@jpl.org>
8
9 * gnus-msg.el (gnus-inews-do-gcc):
10 * message.el (message-send-mail):
11 * mml.el (mml-generate-mime): Share the value of the buffer-local
12 `message-options' variable between a draft buffer and temprary working
13 buffers.
14
152011-11-30 Stefan Monnier <monnier@iro.umontreal.ca>
16
17 * message.el (message-pop-to-buffer): Revert 2011-09-11 change.
18
192011-11-30 Katsumi Yamaoka <yamaoka@jpl.org>
20
21 * gnus-art.el (gnus-article-browse-html-parts): Convert link file names
22 for Cygwin.
23
242011-11-24 Glenn Morris <rgm@gnu.org>
25
26 * starttls.el: Fix case of "GnuTLS".
27
282011-11-24 Juanma Barranquero <lekktu@gmail.com>
29
30 * gnus-group.el (gnus-group-highlight): Fix typo.
31
322011-11-24 Adam W <adam_w67@yahoo.com> (tiny change)
33
34 * mail-source.el (mail-source-fetch-maildir): Don't expect the return
35 value of `delete-file', that returns nil for a local file but returns t
36 for a remote file using ssh.
37
382011-11-22 Lars Magne Ingebrigtsen <larsi@gnus.org>
39
40 * shr.el (shr-table-horizontal-line): Use "?\s" instead of "? " to
41 avoid later breakage.
42
12011-11-22 Katsumi Yamaoka <yamaoka@jpl.org> 432011-11-22 Katsumi Yamaoka <yamaoka@jpl.org>
2 44
3 * gnus-art.el (gnus-article-setup-buffer): Decode group name used for 45 * gnus-art.el (gnus-article-setup-buffer): Decode group name used for
@@ -2266,7 +2308,7 @@
2266 * gnus-art.el (gnus-article-next-page-1): Because customized mode-line 2308 * gnus-art.el (gnus-article-next-page-1): Because customized mode-line
2267 face with line-width greater than zero will cause RET in gnus summary 2309 face with line-width greater than zero will cause RET in gnus summary
2268 buffer to scroll down article page-wise because auto vscroll happens, 2310 buffer to scroll down article page-wise because auto vscroll happens,
2269 it should be temporalily disabled when doing a scroll-up. 2311 it should be temporally disabled when doing a scroll-up.
2270 2312
22712011-02-19 Lars Ingebrigtsen <larsi@gnus.org> 23132011-02-19 Lars Ingebrigtsen <larsi@gnus.org>
2272 2314
@@ -2759,7 +2801,7 @@
27592011-01-28 Lars Ingebrigtsen <larsi@gnus.org> 28012011-01-28 Lars Ingebrigtsen <larsi@gnus.org>
2760 2802
2761 * gnus-sum.el (gnus-select-newsgroup): Don't try to alter the active 2803 * gnus-sum.el (gnus-select-newsgroup): Don't try to alter the active
2762 data if the group is unactivated. 2804 data if the group is inactive.
2763 2805
27642011-01-28 Julien Danjou <julien@danjou.info> 28062011-01-28 Julien Danjou <julien@danjou.info>
2765 2807
@@ -2850,7 +2892,7 @@
2850 we're using an encrypted connection. 2892 we're using an encrypted connection.
2851 2893
2852 * proto-stream.el: Alter the interface functions to also return the 2894 * proto-stream.el: Alter the interface functions to also return the
2853 actual stream type used: network or tls. 2895 actual stream type used: network or TLS.
2854 2896
28552011-01-25 Julien Danjou <julien@danjou.info> 28972011-01-25 Julien Danjou <julien@danjou.info>
2856 2898
@@ -3579,7 +3621,7 @@
3579 3621
35802010-11-30 Lars Magne Ingebrigtsen <larsi@gnus.org> 36222010-11-30 Lars Magne Ingebrigtsen <larsi@gnus.org>
3581 3623
3582 * proto-stream.el (open-protocol-stream): All starttls connections are 3624 * proto-stream.el (open-protocol-stream): All STARTTLS connections are
3583 handled by the network handler. 3625 handled by the network handler.
3584 3626
35852010-11-30 Julien Danjou <julien@danjou.info> 36272010-11-30 Julien Danjou <julien@danjou.info>
@@ -3668,9 +3710,9 @@
3668 (nnimap-open-connection): Be more backwards-compatible. 3710 (nnimap-open-connection): Be more backwards-compatible.
3669 3711
3670 * proto-stream.el (proto-stream-always-use-starttls): New variable. 3712 * proto-stream.el (proto-stream-always-use-starttls): New variable.
3671 (proto-stream-open-starttls): De-duplicate the starttls code. 3713 (proto-stream-open-starttls): De-duplicate the STARTTLS code.
3672 (proto-stream-open-starttls): Folded back into the main function. 3714 (proto-stream-open-starttls): Folded back into the main function.
3673 (proto-stream-open-network): Fix typo in the gnutls path. 3715 (proto-stream-open-network): Fix typo in the GnuTLS path.
3674 (proto-stream-command): Refactor out. 3716 (proto-stream-command): Refactor out.
3675 3717
3676 * nntp.el (nntp-open-connection): Fix the STARTTLS command syntax. 3718 * nntp.el (nntp-open-connection): Fix the STARTTLS command syntax.
@@ -3682,7 +3724,7 @@
3682 3724
3683 * proto-stream.el (proto-stream-open-tls): Delete output from openssl 3725 * proto-stream.el (proto-stream-open-tls): Delete output from openssl
3684 if we're using tls.el. 3726 if we're using tls.el.
3685 (proto-stream-open-network): If we don't have gnutls-cli or gnutls 3727 (proto-stream-open-network): If we don't have gnutls-cli or GnuTLS
3686 built in, then don't try to establish a STARTTLS connection. 3728 built in, then don't try to establish a STARTTLS connection.
3687 3729
3688 * nntp.el (nntp-open-connection): Switch on STARTTLS on supported 3730 * nntp.el (nntp-open-connection): Switch on STARTTLS on supported
@@ -5082,7 +5124,7 @@
5082 * gnus-sum.el (gnus-summary-set-local-parameters): Ignore the `active' 5124 * gnus-sum.el (gnus-summary-set-local-parameters): Ignore the `active'
5083 non-variable, too. 5125 non-variable, too.
5084 5126
5085 * nnimap.el (nnimap-open-connection): Use gnutls STARTTLS, if 5127 * nnimap.el (nnimap-open-connection): Use GnuTLS STARTTLS, if
5086 available. 5128 available.
5087 (nnimap-update-info): Rely more on the current active than the param 5129 (nnimap-update-info): Rely more on the current active than the param
5088 active to avoid marking articles as read too much. 5130 active to avoid marking articles as read too much.
@@ -5131,8 +5173,8 @@
5131 group is the "last", so that the backends like nnfolder actually save 5173 group is the "last", so that the backends like nnfolder actually save
5132 their folders. 5174 their folders.
5133 5175
5134 * nnimap.el (nnimap-open-connection): If we have gnutls loaded, then 5176 * nnimap.el (nnimap-open-connection): If we have GnuTLS loaded, then
5135 try to use that for the tls stream. 5177 try to use that for the TLS stream.
5136 (nnimap-retrieve-group-data-early): Rework the marks code to heed 5178 (nnimap-retrieve-group-data-early): Rework the marks code to heed
5137 UIDVALIDITY and find out which groups are read-only and not. 5179 UIDVALIDITY and find out which groups are read-only and not.
5138 (nnimap-get-flags): Use the same marks parsing code as the rest of 5180 (nnimap-get-flags): Use the same marks parsing code as the rest of
@@ -6351,8 +6393,8 @@
6351 * gnus-int.el (gnus-request-update-info): Protect against backends not 6393 * gnus-int.el (gnus-request-update-info): Protect against backends not
6352 having the function. 6394 having the function.
6353 6395
6354 * nnimap.el (nnimap-stream): Mention starttls. 6396 * nnimap.el (nnimap-stream): Mention STARTTLS.
6355 (nnimap-open-connection): Add starttls support. 6397 (nnimap-open-connection): Add STARTTLS support.
6356 6398
63572010-09-23 Andrew Cohen <cohen@andy.bu.edu> 63992010-09-23 Andrew Cohen <cohen@andy.bu.edu>
6358 6400
@@ -10942,7 +10984,7 @@
109422007-11-14 Denys Duchier <denys.duchier@univ-orleans.fr> (tiny change) 109842007-11-14 Denys Duchier <denys.duchier@univ-orleans.fr> (tiny change)
10943 10985
10944 * pop3.el (pop3-open-server): Accept and process data more robustly at 10986 * pop3.el (pop3-open-server): Accept and process data more robustly at
10945 connexion start to avoid spurious "POP SSL connexion failed" errors. 10987 connection start to avoid spurious "POP SSL connection failed" errors.
10946 10988
109472007-11-14 Katsumi Yamaoka <yamaoka@jpl.org> 109892007-11-14 Katsumi Yamaoka <yamaoka@jpl.org>
10948 10990
@@ -11689,7 +11731,7 @@
11689 (nntp-open-marks): Decode group names when bootstrapping marks. 11731 (nntp-open-marks): Decode group names when bootstrapping marks.
11690 11732
11691 * rfc2047.el (rfc2047-encode-message-header): Make XEmacs decode 11733 * rfc2047.el (rfc2047-encode-message-header): Make XEmacs decode
11692 Newsgroups and Folowup-To headers. 11734 Newsgroups and Followup-To headers.
11693 11735
116942007-07-13 Katsumi Yamaoka <yamaoka@jpl.org> 117362007-07-13 Katsumi Yamaoka <yamaoka@jpl.org>
11695 11737
@@ -16497,7 +16539,7 @@
164972005-07-01 Katsumi Yamaoka <yamaoka@jpl.org> 165392005-07-01 Katsumi Yamaoka <yamaoka@jpl.org>
16498 16540
16499 * gnus-art.el (article-display-face): Improve the efficiency. 16541 * gnus-art.el (article-display-face): Improve the efficiency.
16500 (article-display-x-face): Ditto; remove grey x-face stuff. 16542 (article-display-x-face): Ditto; remove gray x-face stuff.
16501 16543
165022005-06-30 Katsumi Yamaoka <yamaoka@jpl.org> 165442005-06-30 Katsumi Yamaoka <yamaoka@jpl.org>
16503 16545
@@ -18632,7 +18674,7 @@
186322004-09-28 Kevin Greiner <kgreiner@compsol.cc> 186742004-09-28 Kevin Greiner <kgreiner@compsol.cc>
18633 18675
18634 * gnus-agent.el (gnus-agent-synchronize-group-flags): Replace 18676 * gnus-agent.el (gnus-agent-synchronize-group-flags): Replace
18635 gnus-requst-update-info with explicit code to sync the in-memory 18677 gnus-request-update-info with explicit code to sync the in-memory
18636 info read flags with the marks being sync'd to the backend. 18678 info read flags with the marks being sync'd to the backend.
18637 18679
18638 * gnus-util.el (gnus-pp): Add optional stream to match pp API. 18680 * gnus-util.el (gnus-pp): Add optional stream to match pp API.
@@ -19746,7 +19788,7 @@
19746 19788
197472004-05-26 Simon Josefsson <jas@extundo.com> 197892004-05-26 Simon Josefsson <jas@extundo.com>
19748 19790
19749 * starttls.el: Merge with my GNUTLS based starttls.el. 19791 * starttls.el: Merge with my GnuTLS based starttls.el.
19750 (starttls-gnutls-program, starttls-use-gnutls) 19792 (starttls-gnutls-program, starttls-use-gnutls)
19751 (starttls-extra-arguments, starttls-process-connection-type) 19793 (starttls-extra-arguments, starttls-process-connection-type)
19752 (starttls-connect, starttls-failure, starttls-success): 19794 (starttls-connect, starttls-failure, starttls-success):
diff --git a/lisp/gnus/ChangeLog.1 b/lisp/gnus/ChangeLog.1
index 86c4eea59ab..a2d6d61efd4 100644
--- a/lisp/gnus/ChangeLog.1
+++ b/lisp/gnus/ChangeLog.1
@@ -2346,7 +2346,7 @@
2346 2346
2347 * nnmh.el: Don't call nnmail-activate. 2347 * nnmh.el: Don't call nnmail-activate.
2348 2348
2349 * gnus.el: User-variabelize all custom vars. 2349 * gnus.el: User-variablize all custom vars.
2350 2350
23511998-02-13 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no> 23511998-02-13 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
2352 2352
@@ -3471,7 +3471,7 @@
3471 * pop3.el (pop3-md5): `with-temp-buffer' doesn't exist in Emacs 3471 * pop3.el (pop3-md5): `with-temp-buffer' doesn't exist in Emacs
3472 19.34. 3472 19.34.
3473 3473
3474 * nneething.el (nneething-directory): Defvarred. 3474 * nneething.el (nneething-directory): Defvared.
3475 3475
3476 * message.el: Autoloaded nndraft things. 3476 * message.el: Autoloaded nndraft things.
3477 (message-set-auto-save-file-name): Use it. 3477 (message-set-auto-save-file-name): Use it.
diff --git a/lisp/gnus/ChangeLog.2 b/lisp/gnus/ChangeLog.2
index e519ce340c2..6b11a956a99 100644
--- a/lisp/gnus/ChangeLog.2
+++ b/lisp/gnus/ChangeLog.2
@@ -1396,7 +1396,7 @@
1396 * tls.el (tls-process-connection-type): Doc fix. 1396 * tls.el (tls-process-connection-type): Doc fix.
1397 1397
1398 * imap.el (imap-starttls-open): Rewrite, should support both old 1398 * imap.el (imap-starttls-open): Rewrite, should support both old
1399 starttls.el and new starttls.el that uses GNUTLS. 1399 starttls.el and new starttls.el that uses GnuTLS.
1400 1400
14012003-09-18 Katsumi Yamaoka <yamaoka@jpl.org> 14012003-09-18 Katsumi Yamaoka <yamaoka@jpl.org>
1402 1402
@@ -5120,7 +5120,7 @@
5120 * gnus-util.el (gnus-prin1-to-string): Bind print-length and 5120 * gnus-util.el (gnus-prin1-to-string): Bind print-length and
5121 print-level. 5121 print-level.
5122 5122
5123 * gnus-art.el (article-display-x-face): Removed grey x-face stuff. 5123 * gnus-art.el (article-display-x-face): Removed gray x-face stuff.
5124 (gnus-treat-display-grey-xface): Removed. 5124 (gnus-treat-display-grey-xface): Removed.
5125 5125
5126 * gnus-fun.el (gnus-grab-cam-face): New. 5126 * gnus-fun.el (gnus-grab-cam-face): New.
@@ -9836,7 +9836,7 @@
98362002-02-08 ShengHuo ZHU <zsh@cs.rochester.edu> 98362002-02-08 ShengHuo ZHU <zsh@cs.rochester.edu>
9837 9837
9838 * gnus-art.el (gnus-treat-display-grey-xface): New variable. 9838 * gnus-art.el (gnus-treat-display-grey-xface): New variable.
9839 (article-display-x-face): Use it. Disable grey xface, if 9839 (article-display-x-face): Use it. Disable gray xface, if
9840 uncompface is not found. 9840 uncompface is not found.
9841 9841
9842 * message.el (message-mode): Don't enable multibyte on an indirect 9842 * message.el (message-mode): Don't enable multibyte on an indirect
@@ -11350,7 +11350,7 @@
11350 * gnus-fun.el (gnus-convert-gray-x-face-to-xpm): Renamed. 11350 * gnus-fun.el (gnus-convert-gray-x-face-to-xpm): Renamed.
11351 11351
11352 * gnus-art.el (gnus-ignored-headers): Hide all X-Faces. 11352 * gnus-art.el (gnus-ignored-headers): Hide all X-Faces.
11353 (article-display-x-face): Display grey X-Faces. 11353 (article-display-x-face): Display gray X-Faces.
11354 11354
11355 * gnus-fun.el (gnus-convert-gray-x-face-region): New function. 11355 * gnus-fun.el (gnus-convert-gray-x-face-region): New function.
11356 (gnus-convert-gray-x-face-to-ppm): Ditto. 11356 (gnus-convert-gray-x-face-to-ppm): Ditto.
diff --git a/lisp/gnus/compface.el b/lisp/gnus/compface.el
index 2a2383777cb..e132f736269 100644
--- a/lisp/gnus/compface.el
+++ b/lisp/gnus/compface.el
@@ -42,7 +42,8 @@ or `faces-xface' and `netpbm' or `libgr-progs', for instance."
42 'delete '(t nil) nil)) 42 'delete '(t nil) nil))
43 (progn 43 (progn
44 (goto-char (point-min)) 44 (goto-char (point-min))
45 (insert "/* Width=48, Height=48 */\n") 45 (insert "/* Format_version=1, Width=48, Height=48, Depth=1,\
46 Valid_bits_per_item=16 */\n")
46 ;; I just can't get "icontopbm" to work correctly on its 47 ;; I just can't get "icontopbm" to work correctly on its
47 ;; own in XEmacs. And Emacs doesn't understand un-raw pbm 48 ;; own in XEmacs. And Emacs doesn't understand un-raw pbm
48 ;; files. 49 ;; files.
diff --git a/lisp/gnus/gmm-utils.el b/lisp/gnus/gmm-utils.el
index f913ddb5378..3ee72bc5fc6 100644
--- a/lisp/gnus/gmm-utils.el
+++ b/lisp/gnus/gmm-utils.el
@@ -217,7 +217,7 @@ This is a copy of the `lazy' widget in Emacs 22.1 provided for compatibility."
217 'static-color 'pseudo-color))))) 217 'static-color 'pseudo-color)))))
218 'gnome 218 'gnome
219 'retro) 219 'retro)
220 "Prefered tool bar style." 220 "Preferred tool bar style."
221 :type '(choice (const :tag "GNOME style" gnome) 221 :type '(choice (const :tag "GNOME style" gnome)
222 (const :tag "Retro look" retro)) 222 (const :tag "Retro look" retro))
223 :group 'gmm) 223 :group 'gmm)
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index 0abc802f558..555c715bc2f 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -268,11 +268,14 @@ This can also be a list of the above values."
268 (if (or (gnus-image-type-available-p 'xface) 268 (if (or (gnus-image-type-available-p 'xface)
269 (gnus-image-type-available-p 'pbm)) 269 (gnus-image-type-available-p 'pbm))
270 'gnus-display-x-face-in-from 270 'gnus-display-x-face-in-from
271 "{ echo '/* Width=48, Height=48 */'; uncompface; } | icontopbm | ee -") 271 "{ echo \
272'/* Format_version=1, Width=48, Height=48, Depth=1, Valid_bits_per_item=16 */'\
273; uncompface; } | icontopbm | ee -")
272 (if (gnus-image-type-available-p 'pbm) 274 (if (gnus-image-type-available-p 'pbm)
273 'gnus-display-x-face-in-from 275 'gnus-display-x-face-in-from
274 "{ echo '/* Width=48, Height=48 */'; uncompface; } | icontopbm | \ 276 "{ echo \
275display -")) 277'/* Format_version=1, Width=48, Height=48, Depth=1, Valid_bits_per_item=16 */'\
278; uncompface; } | icontopbm | display -"))
276 "*String or function to be executed to display an X-Face header. 279 "*String or function to be executed to display an X-Face header.
277If it is a string, the command will be executed in a sub-shell 280If it is a string, the command will be executed in a sub-shell
278asynchronously. The compressed face will be piped to this command." 281asynchronously. The compressed face will be piped to this command."
@@ -2879,6 +2882,14 @@ message header will be added to the bodies of the \"text/html\" parts."
2879 (with-current-buffer gnus-article-buffer 2882 (with-current-buffer gnus-article-buffer
2880 gnus-article-mime-handles) 2883 gnus-article-mime-handles)
2881 cid-dir)) 2884 cid-dir))
2885 (when (eq system-type 'cygwin)
2886 (setq cid-file
2887 (concat "/" (substring
2888 (with-output-to-string
2889 (call-process "cygpath" nil
2890 standard-output
2891 nil "-m" cid-file))
2892 0 -1))))
2882 (replace-match (concat "file://" cid-file) 2893 (replace-match (concat "file://" cid-file)
2883 nil nil nil 1)))) 2894 nil nil nil 1))))
2884 (unless content (setq content (buffer-string)))) 2895 (unless content (setq content (buffer-string))))
diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index 6f146644115..694b4d7e8b4 100644
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -362,7 +362,7 @@ If you want to modify the group buffer, you can use this hook."
362 gnus-group-news-low)) 362 gnus-group-news-low))
363 "*Controls the highlighting of group buffer lines. 363 "*Controls the highlighting of group buffer lines.
364 364
365Below is a list of `Form'/`Face' pairs. When deciding how a a 365Below is a list of `Form'/`Face' pairs. When deciding how a
366particular group line should be displayed, each form is 366particular group line should be displayed, each form is
367evaluated. The content of the face field after the first true form is 367evaluated. The content of the face field after the first true form is
368used. You can change how those group lines are displayed by 368used. You can change how those group lines are displayed by
@@ -1354,9 +1354,9 @@ if it is a string, only list groups matching REGEXP."
1354 (predicate t) ; We list all groups? 1354 (predicate t) ; We list all groups?
1355 (t 1355 (t
1356 (or 1356 (or
1357 (if (eq unread t) ; Unactivated? 1357 (if (eq unread t) ; Inactive?
1358 gnus-group-list-inactive-groups 1358 gnus-group-list-inactive-groups
1359 ; We list unactivated 1359 ; We list inactive
1360 (and (numberp unread) (> unread 0))) 1360 (and (numberp unread) (> unread 0)))
1361 ; We list groups with unread articles 1361 ; We list groups with unread articles
1362 (and gnus-list-groups-with-ticked-articles 1362 (and gnus-list-groups-with-ticked-articles
diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el
index e6a06a0500d..e06d475ed6c 100644
--- a/lisp/gnus/gnus-msg.el
+++ b/lisp/gnus/gnus-msg.el
@@ -1549,7 +1549,7 @@ this is a reply."
1549 (message-narrow-to-headers) 1549 (message-narrow-to-headers)
1550 (let ((gcc (or gcc (mail-fetch-field "gcc" nil t))) 1550 (let ((gcc (or gcc (mail-fetch-field "gcc" nil t)))
1551 (cur (current-buffer)) 1551 (cur (current-buffer))
1552 groups group method group-art 1552 groups group method group-art options
1553 mml-externalize-attachments) 1553 mml-externalize-attachments)
1554 (when gcc 1554 (when gcc
1555 (message-remove-header "gcc") 1555 (message-remove-header "gcc")
@@ -1573,6 +1573,7 @@ this is a reply."
1573 gnus-gcc-externalize-attachments)) 1573 gnus-gcc-externalize-attachments))
1574 (save-excursion 1574 (save-excursion
1575 (nnheader-set-temp-buffer " *acc*") 1575 (nnheader-set-temp-buffer " *acc*")
1576 (setq message-options (with-current-buffer cur message-options))
1576 (insert-buffer-substring cur) 1577 (insert-buffer-substring cur)
1577 (message-encode-message-body) 1578 (message-encode-message-body)
1578 (save-restriction 1579 (save-restriction
@@ -1629,6 +1630,8 @@ this is a reply."
1629 (boundp 'gnus-inews-mark-gcc-as-read) 1630 (boundp 'gnus-inews-mark-gcc-as-read)
1630 (symbol-value 'gnus-inews-mark-gcc-as-read)))) 1631 (symbol-value 'gnus-inews-mark-gcc-as-read))))
1631 (gnus-group-mark-article-read group (cdr group-art))) 1632 (gnus-group-mark-article-read group (cdr group-art)))
1633 (setq options message-options)
1634 (with-current-buffer cur (setq message-options options))
1632 (kill-buffer (current-buffer))))))))) 1635 (kill-buffer (current-buffer)))))))))
1633 1636
1634(defun gnus-inews-insert-gcc (&optional group) 1637(defun gnus-inews-insert-gcc (&optional group)
diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el
index b18b78df063..3a9294d58d6 100644
--- a/lisp/gnus/gnus-start.el
+++ b/lisp/gnus/gnus-start.el
@@ -2533,7 +2533,7 @@ If FORCE is non-nil, the .newsrc file is read."
2533 ((or (eq symbol options-symbol) 2533 ((or (eq symbol options-symbol)
2534 (eq symbol Options-symbol)) 2534 (eq symbol Options-symbol))
2535 (setq gnus-newsrc-options 2535 (setq gnus-newsrc-options
2536 ;; This concating is quite inefficient, but since our 2536 ;; This concatting is quite inefficient, but since our
2537 ;; thorough studies show that approx 99.37% of all 2537 ;; thorough studies show that approx 99.37% of all
2538 ;; .newsrc files only contain a single options line, we 2538 ;; .newsrc files only contain a single options line, we
2539 ;; don't give a damn, frankly, my dear. 2539 ;; don't give a damn, frankly, my dear.
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 7cea88e7f54..b3f85cf9366 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -11913,7 +11913,7 @@ will not be marked as saved."
11913 ;; This is a pseudo-article. 11913 ;; This is a pseudo-article.
11914 (if (assq 'name header) 11914 (if (assq 'name header)
11915 (gnus-copy-file (cdr (assq 'name header))) 11915 (gnus-copy-file (cdr (assq 'name header)))
11916 (gnus-message 1 "Article %d is unsaveable" article)) 11916 (gnus-message 1 "Article %d is unsavable" article))
11917 ;; This is a real article. 11917 ;; This is a real article.
11918 (save-window-excursion 11918 (save-window-excursion
11919 (gnus-summary-select-article decode decode nil article) 11919 (gnus-summary-select-article decode decode nil article)
diff --git a/lisp/gnus/gnus-topic.el b/lisp/gnus/gnus-topic.el
index 17af1a38333..87ca27adcf4 100644
--- a/lisp/gnus/gnus-topic.el
+++ b/lisp/gnus/gnus-topic.el
@@ -582,7 +582,7 @@ articles in the topic and its subtopics."
582 (or gnus-topic-display-empty-topics ;We want empty topics 582 (or gnus-topic-display-empty-topics ;We want empty topics
583 (not (zerop unread)) ;Non-empty 583 (not (zerop unread)) ;Non-empty
584 tick ;Ticked articles 584 tick ;Ticked articles
585 (/= point-max (point-max)))) ;Unactivated groups 585 (/= point-max (point-max)))) ;Inactive groups
586 (gnus-extent-start-open (point)) 586 (gnus-extent-start-open (point))
587 (gnus-topic-insert-topic-line 587 (gnus-topic-insert-topic-line
588 (car type) visiblep 588 (car type) visiblep
diff --git a/lisp/gnus/mail-source.el b/lisp/gnus/mail-source.el
index 6e6ef76c0c1..2315cff6261 100644
--- a/lisp/gnus/mail-source.el
+++ b/lisp/gnus/mail-source.el
@@ -1017,6 +1017,7 @@ This only works when `display-time' is enabled."
1017 (dolist (file (directory-files (concat path subdir) t)) 1017 (dolist (file (directory-files (concat path subdir) t))
1018 (when (and (not (file-directory-p file)) 1018 (when (and (not (file-directory-p file))
1019 (not (if function 1019 (not (if function
1020 ;; `function' should return nil if successful.
1020 (funcall function file mail-source-crash-box) 1021 (funcall function file mail-source-crash-box)
1021 (let ((coding-system-for-write 1022 (let ((coding-system-for-write
1022 mm-text-coding-system) 1023 mm-text-coding-system)
@@ -1035,7 +1036,8 @@ This only works when `display-time' is enabled."
1035;;; (insert "\n\n") 1036;;; (insert "\n\n")
1036 ;; MMDF mail format 1037 ;; MMDF mail format
1037 (insert "\001\001\001\001\n")) 1038 (insert "\001\001\001\001\n"))
1038 (delete-file file))))) 1039 (delete-file file)
1040 nil))))
1039 (incf found (mail-source-callback callback file)) 1041 (incf found (mail-source-callback callback file))
1040 (mail-source-delete-crash-box))))) 1042 (mail-source-delete-crash-box)))))
1041 found))) 1043 found)))
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 5d82faee20d..ee9d4992158 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -4507,7 +4507,8 @@ This function could be useful in `message-setup-hook'."
4507 (boundp 'gnus-group-posting-charset-alist)) 4507 (boundp 'gnus-group-posting-charset-alist))
4508 (gnus-setup-posting-charset nil) 4508 (gnus-setup-posting-charset nil)
4509 message-posting-charset)) 4509 message-posting-charset))
4510 (headers message-required-mail-headers)) 4510 (headers message-required-mail-headers)
4511 options)
4511 (when (and message-generate-hashcash 4512 (when (and message-generate-hashcash
4512 (not (eq message-generate-hashcash 'opportunistic))) 4513 (not (eq message-generate-hashcash 'opportunistic)))
4513 (message "Generating hashcash...") 4514 (message "Generating hashcash...")
@@ -4546,9 +4547,11 @@ This function could be useful in `message-setup-hook'."
4546 (error "Failed to send the message"))))) 4547 (error "Failed to send the message")))))
4547 ;; Let the user do all of the above. 4548 ;; Let the user do all of the above.
4548 (run-hooks 'message-header-hook)) 4549 (run-hooks 'message-header-hook))
4550 (setq options message-options)
4549 (unwind-protect 4551 (unwind-protect
4550 (with-current-buffer tembuf 4552 (with-current-buffer tembuf
4551 (erase-buffer) 4553 (erase-buffer)
4554 (setq message-options options)
4552 ;; Avoid copying text props (except hard newlines). 4555 ;; Avoid copying text props (except hard newlines).
4553 (insert (with-current-buffer mailbuf 4556 (insert (with-current-buffer mailbuf
4554 (mml-buffer-substring-no-properties-except-hard-newlines 4557 (mml-buffer-substring-no-properties-except-hard-newlines
@@ -4630,9 +4633,11 @@ If you always want Gnus to send messages in one piece, set
4630 (message "Sending via mail...") 4633 (message "Sending via mail...")
4631 (funcall (or message-send-mail-real-function 4634 (funcall (or message-send-mail-real-function
4632 message-send-mail-function))) 4635 message-send-mail-function)))
4633 (message-send-mail-partially))) 4636 (message-send-mail-partially))
4637 (setq options message-options))
4634 (kill-buffer tembuf)) 4638 (kill-buffer tembuf))
4635 (set-buffer mailbuf) 4639 (set-buffer mailbuf)
4640 (setq message-options options)
4636 (push 'mail message-sent-message-via))) 4641 (push 'mail message-sent-message-via)))
4637 4642
4638(defvar sendmail-program) 4643(defvar sendmail-program)
@@ -6322,6 +6327,7 @@ between beginning of field and beginning of line."
6322 6327
6323(defun message-pop-to-buffer (name &optional switch-function) 6328(defun message-pop-to-buffer (name &optional switch-function)
6324 "Pop to buffer NAME, and warn if it already exists and is modified." 6329 "Pop to buffer NAME, and warn if it already exists and is modified."
6330 (unless switch-function (setq switch-function #'pop-to-buffer))
6325 (let ((buffer (get-buffer name))) 6331 (let ((buffer (get-buffer name)))
6326 (if (and buffer 6332 (if (and buffer
6327 (buffer-name buffer)) 6333 (buffer-name buffer))
@@ -6331,7 +6337,7 @@ between beginning of field and beginning of line."
6331 (progn 6337 (progn
6332 (gnus-select-frame-set-input-focus (window-frame window)) 6338 (gnus-select-frame-set-input-focus (window-frame window))
6333 (select-window window)) 6339 (select-window window))
6334 (funcall (or switch-function 'switch-to-buffer) buffer) 6340 (funcall switch-function buffer)
6335 (set-buffer buffer)) 6341 (set-buffer buffer))
6336 (when (and (buffer-modified-p) 6342 (when (and (buffer-modified-p)
6337 (not (prog1 6343 (not (prog1
@@ -6339,7 +6345,7 @@ between beginning of field and beginning of line."
6339 "Message already being composed; erase? ") 6345 "Message already being composed; erase? ")
6340 (message nil)))) 6346 (message nil))))
6341 (error "Message being composed"))) 6347 (error "Message being composed")))
6342 (funcall (or switch-function 'switch-to-buffer) name) 6348 (funcall switch-function name)
6343 (set-buffer name)) 6349 (set-buffer name))
6344 (erase-buffer) 6350 (erase-buffer)
6345 (message-mode))) 6351 (message-mode)))
diff --git a/lisp/gnus/mm-bodies.el b/lisp/gnus/mm-bodies.el
index 695451ddc45..ee7ba1c193b 100644
--- a/lisp/gnus/mm-bodies.el
+++ b/lisp/gnus/mm-bodies.el
@@ -87,9 +87,9 @@ If no encoding was done, nil is returned."
87 (goto-char (point-min)) 87 (goto-char (point-min))
88 (if (re-search-forward "[^\x0-\x7f]" nil t) 88 (if (re-search-forward "[^\x0-\x7f]" nil t)
89 (or mail-parse-charset 89 (or mail-parse-charset
90 (message-options-get 'mm-encody-body-charset) 90 (message-options-get 'mm-body-charset-encoding-alist)
91 (message-options-set 91 (message-options-set
92 'mm-encody-body-charset 92 'mm-body-charset-encoding-alist
93 (mm-read-coding-system "Charset used in the article: "))) 93 (mm-read-coding-system "Charset used in the article: ")))
94 ;; The logic in `mml-generate-mime-1' confirms that it's OK 94 ;; The logic in `mml-generate-mime-1' confirms that it's OK
95 ;; to return nil here. 95 ;; to return nil here.
diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el
index 36c56e0921b..44e2af5b904 100644
--- a/lisp/gnus/mm-decode.el
+++ b/lisp/gnus/mm-decode.el
@@ -360,7 +360,7 @@ to:
360 (\"text/html\" \"text/richtext\") 360 (\"text/html\" \"text/richtext\")
361 361
362Adding \"image/.*\" might also be useful. Spammers use it as the 362Adding \"image/.*\" might also be useful. Spammers use it as the
363prefered part of multipart/alternative messages. See also 363preferred part of multipart/alternative messages. See also
364`gnus-buttonized-mime-types', to which adding \"multipart/alternative\" 364`gnus-buttonized-mime-types', to which adding \"multipart/alternative\"
365enables you to choose manually one of two types those mails include." 365enables you to choose manually one of two types those mails include."
366 :type '(repeat regexp) ;; See `mm-preferred-alternative-precedence'. 366 :type '(repeat regexp) ;; See `mm-preferred-alternative-precedence'.
diff --git a/lisp/gnus/mml.el b/lisp/gnus/mml.el
index 352fa329e3e..867c3be4b60 100644
--- a/lisp/gnus/mml.el
+++ b/lisp/gnus/mml.el
@@ -466,16 +466,21 @@ If MML is non-nil, return the buffer up till the correspondent mml tag."
466(defun mml-generate-mime () 466(defun mml-generate-mime ()
467 "Generate a MIME message based on the current MML document." 467 "Generate a MIME message based on the current MML document."
468 (let ((cont (mml-parse)) 468 (let ((cont (mml-parse))
469 (mml-multipart-number mml-multipart-number)) 469 (mml-multipart-number mml-multipart-number)
470 (options message-options))
470 (if (not cont) 471 (if (not cont)
471 nil 472 nil
472 (mm-with-multibyte-buffer 473 (prog1
473 (if (and (consp (car cont)) 474 (mm-with-multibyte-buffer
474 (= (length cont) 1)) 475 (setq message-options options)
475 (mml-generate-mime-1 (car cont)) 476 (if (and (consp (car cont))
476 (mml-generate-mime-1 (nconc (list 'multipart '(type . "mixed")) 477 (= (length cont) 1))
477 cont))) 478 (mml-generate-mime-1 (car cont))
478 (buffer-string))))) 479 (mml-generate-mime-1 (nconc (list 'multipart '(type . "mixed"))
480 cont)))
481 (setq options message-options)
482 (buffer-string))
483 (setq message-options options)))))
479 484
480(defun mml-generate-mime-1 (cont) 485(defun mml-generate-mime-1 (cont)
481 (let ((mm-use-ultra-safe-encoding 486 (let ((mm-use-ultra-safe-encoding
@@ -1454,7 +1459,7 @@ Should be adopted if code in `message-send-mail' is changed."
1454 "Display current buffer with Gnus, in a new buffer. 1459 "Display current buffer with Gnus, in a new buffer.
1455If RAW, display a raw encoded MIME message. 1460If RAW, display a raw encoded MIME message.
1456 1461
1457The window layout for the preview buffer is controled by the variables 1462The window layout for the preview buffer is controlled by the variables
1458`special-display-buffer-names', `special-display-regexps', or 1463`special-display-buffer-names', `special-display-regexps', or
1459`gnus-buffer-configuration' (the first match made will be used), 1464`gnus-buffer-configuration' (the first match made will be used),
1460or the `pop-to-buffer' function." 1465or the `pop-to-buffer' function."
diff --git a/lisp/gnus/nnml.el b/lisp/gnus/nnml.el
index 399008cec1b..59e06364f42 100644
--- a/lisp/gnus/nnml.el
+++ b/lisp/gnus/nnml.el
@@ -1213,7 +1213,7 @@ Use the nov database for the current group if available."
1213 ;; #### already belongs to a range, whereas the corresponding 1213 ;; #### already belongs to a range, whereas the corresponding
1214 ;; #### article doesn't exist (for example, if you delete an 1214 ;; #### article doesn't exist (for example, if you delete an
1215 ;; #### article). For that reason, it is important to update 1215 ;; #### article). For that reason, it is important to update
1216 ;; #### the ranges (meaning remove inexistent articles) before 1216 ;; #### the ranges (meaning remove nonexistent articles) before
1217 ;; #### doing anything on them. 1217 ;; #### doing anything on them.
1218 ;; 2 a/ read articles: 1218 ;; 2 a/ read articles:
1219 (let ((read (gnus-info-read info))) 1219 (let ((read (gnus-info-read info)))
diff --git a/lisp/gnus/pop3.el b/lisp/gnus/pop3.el
index ee3e6582e80..0f7a450b30c 100644
--- a/lisp/gnus/pop3.el
+++ b/lisp/gnus/pop3.el
@@ -270,11 +270,11 @@ Use streaming commands."
270 message-count)) 270 message-count))
271 271
272(defcustom pop3-stream-type nil 272(defcustom pop3-stream-type nil
273 "*Transport security type for POP3 connexions. 273 "*Transport security type for POP3 connections.
274This may be either nil (plain connexion), `ssl' (use an 274This may be either nil (plain connection), `ssl' (use an
275SSL/TSL-secured stream) or `starttls' (use the starttls mechanism 275SSL/TSL-secured stream) or `starttls' (use the starttls mechanism
276to turn on TLS security after opening the stream). However, if 276to turn on TLS security after opening the stream). However, if
277this is nil, `ssl' is assumed for connexions to port 277this is nil, `ssl' is assumed for connections to port
278995 (pop3s)." 278995 (pop3s)."
279 :version "23.1" ;; No Gnus 279 :version "23.1" ;; No Gnus
280 :group 'pop3 280 :group 'pop3
diff --git a/lisp/gnus/rfc2047.el b/lisp/gnus/rfc2047.el
index feed078034c..f1cb1f69e56 100644
--- a/lisp/gnus/rfc2047.el
+++ b/lisp/gnus/rfc2047.el
@@ -586,7 +586,7 @@ should not change this value.")
586 ((>= column rfc2047-encode-max-chars) 586 ((>= column rfc2047-encode-max-chars)
587 (when eword 587 (when eword
588 (cond ((string-match "\n[ \t]+\\'" eword) 588 (cond ((string-match "\n[ \t]+\\'" eword)
589 ;; Reomove a superfluous empty line. 589 ;; Remove a superfluous empty line.
590 (setq eword (substring eword 0 (match-beginning 0)))) 590 (setq eword (substring eword 0 (match-beginning 0))))
591 ((string-match "(+\\'" eword) 591 ((string-match "(+\\'" eword)
592 ;; Break the line before the open parenthesis. 592 ;; Break the line before the open parenthesis.
@@ -639,7 +639,7 @@ should not change this value.")
639 (setq crest " " 639 (setq crest " "
640 eword (concat eword next))) 640 eword (concat eword next)))
641 (when (string-match "\n[ \t]+\\'" eword) 641 (when (string-match "\n[ \t]+\\'" eword)
642 ;; Reomove a superfluous empty line. 642 ;; Remove a superfluous empty line.
643 (setq eword (substring eword 0 (match-beginning 0)))) 643 (setq eword (substring eword 0 (match-beginning 0))))
644 (rfc2047-encode-1 (length crest) (substring string index) 644 (rfc2047-encode-1 (length crest) (substring string index)
645 cs encoder start " " tail 645 cs encoder start " " tail
diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el
index 119d8e0a7f3..f2d8f843564 100644
--- a/lisp/gnus/shr.el
+++ b/lisp/gnus/shr.el
@@ -53,17 +53,17 @@ fit these criteria."
53 :group 'shr 53 :group 'shr
54 :type 'regexp) 54 :type 'regexp)
55 55
56(defcustom shr-table-horizontal-line ? ; space 56(defcustom shr-table-horizontal-line ?\s
57 "Character used to draw horizontal table lines." 57 "Character used to draw horizontal table lines."
58 :group 'shr 58 :group 'shr
59 :type 'character) 59 :type 'character)
60 60
61(defcustom shr-table-vertical-line ? ; space 61(defcustom shr-table-vertical-line ?\s
62 "Character used to draw vertical table lines." 62 "Character used to draw vertical table lines."
63 :group 'shr 63 :group 'shr
64 :type 'character) 64 :type 'character)
65 65
66(defcustom shr-table-corner ? ; space 66(defcustom shr-table-corner ?\s
67 "Character used to draw table corners." 67 "Character used to draw table corners."
68 :group 'shr 68 :group 'shr
69 :type 'character) 69 :type 'character)
diff --git a/lisp/gnus/starttls.el b/lisp/gnus/starttls.el
index b995f7478ce..af9fd42c127 100644
--- a/lisp/gnus/starttls.el
+++ b/lisp/gnus/starttls.el
@@ -5,7 +5,7 @@
5;; Author: Daiki Ueno <ueno@unixuser.org> 5;; Author: Daiki Ueno <ueno@unixuser.org>
6;; Author: Simon Josefsson <simon@josefsson.org> 6;; Author: Simon Josefsson <simon@josefsson.org>
7;; Created: 1999/11/20 7;; Created: 1999/11/20
8;; Keywords: TLS, SSL, OpenSSL, GNUTLS, mail, news 8;; Keywords: TLS, SSL, OpenSSL, GnuTLS, mail, news
9 9
10;; This file is part of GNU Emacs. 10;; This file is part of GNU Emacs.
11 11
@@ -33,15 +33,15 @@
33;; implementations both called "starttls.el". The first one is Daiki 33;; implementations both called "starttls.el". The first one is Daiki
34;; Ueno's starttls.el which uses his own "starttls" command line tool, 34;; Ueno's starttls.el which uses his own "starttls" command line tool,
35;; and the second one is Simon Josefsson's starttls.el which uses 35;; and the second one is Simon Josefsson's starttls.el which uses
36;; "gnutls-cli" from GNUTLS. 36;; "gnutls-cli" from GnuTLS.
37;; 37;;
38;; If "starttls" is available, it is prefered by the code over 38;; If "starttls" is available, it is preferred by the code over
39;; "gnutls-cli", for backwards compatibility. Use 39;; "gnutls-cli", for backwards compatibility. Use
40;; `starttls-use-gnutls' to toggle between implementations if you have 40;; `starttls-use-gnutls' to toggle between implementations if you have
41;; both tools installed. It is recommended to use GNUTLS, though, as 41;; both tools installed. It is recommended to use GnuTLS, though, as
42;; it performs more verification of the certificates. 42;; it performs more verification of the certificates.
43 43
44;; The GNUTLS support requires GNUTLS 0.9.90 (released 2003-10-08) or 44;; The GnuTLS support requires GnuTLS 0.9.90 (released 2003-10-08) or
45;; later, from <http://www.gnu.org/software/gnutls/>, or "starttls" 45;; later, from <http://www.gnu.org/software/gnutls/>, or "starttls"
46;; from <ftp://ftp.opaopa.org/pub/elisp/>. 46;; from <ftp://ftp.opaopa.org/pub/elisp/>.
47 47
@@ -121,8 +121,8 @@
121 :group 'mail) 121 :group 'mail)
122 122
123(defcustom starttls-gnutls-program "gnutls-cli" 123(defcustom starttls-gnutls-program "gnutls-cli"
124 "Name of GNUTLS command line tool. 124 "Name of GnuTLS command line tool.
125This program is used when GNUTLS is used, i.e. when 125This program is used when GnuTLS is used, i.e. when
126`starttls-use-gnutls' is non-nil." 126`starttls-use-gnutls' is non-nil."
127 :version "22.1" 127 :version "22.1"
128 :type 'string 128 :type 'string
@@ -136,7 +136,7 @@ i.e. when `starttls-use-gnutls' is nil."
136 :group 'starttls) 136 :group 'starttls)
137 137
138(defcustom starttls-use-gnutls (not (executable-find starttls-program)) 138(defcustom starttls-use-gnutls (not (executable-find starttls-program))
139 "*Whether to use GNUTLS instead of the `starttls' command." 139 "*Whether to use GnuTLS instead of the `starttls' command."
140 :version "22.1" 140 :version "22.1"
141 :type 'boolean 141 :type 'boolean
142 :group 'starttls) 142 :group 'starttls)
@@ -150,7 +150,7 @@ These apply when the `starttls' command is used, i.e. when
150 150
151(defcustom starttls-extra-arguments nil 151(defcustom starttls-extra-arguments nil
152 "Extra arguments to `starttls-program'. 152 "Extra arguments to `starttls-program'.
153These apply when GNUTLS is used, i.e. when `starttls-use-gnutls' is non-nil. 153These apply when GnuTLS is used, i.e. when `starttls-use-gnutls' is non-nil.
154 154
155For example, non-TLS compliant servers may require 155For example, non-TLS compliant servers may require
156'(\"--protocols\" \"ssl3\"). Invoke \"gnutls-cli --help\" to 156'(\"--protocols\" \"ssl3\"). Invoke \"gnutls-cli --help\" to
@@ -167,8 +167,8 @@ find out which parameters are available."
167 167
168(defcustom starttls-connect "- Simple Client Mode:\n\n" 168(defcustom starttls-connect "- Simple Client Mode:\n\n"
169 "*Regular expression indicating successful connection. 169 "*Regular expression indicating successful connection.
170The default is what GNUTLS's \"gnutls-cli\" outputs." 170The default is what GnuTLS's \"gnutls-cli\" outputs."
171 ;; GNUTLS cli.c:main() prints this string when it is starting to run 171 ;; GnuTLS cli.c:main() prints this string when it is starting to run
172 ;; in the application read/write phase. If the logic, or the string 172 ;; in the application read/write phase. If the logic, or the string
173 ;; itself, is modified, this must be updated. 173 ;; itself, is modified, this must be updated.
174 :version "22.1" 174 :version "22.1"
@@ -177,8 +177,8 @@ The default is what GNUTLS's \"gnutls-cli\" outputs."
177 177
178(defcustom starttls-failure "\\*\\*\\* Handshake has failed" 178(defcustom starttls-failure "\\*\\*\\* Handshake has failed"
179 "*Regular expression indicating failed TLS handshake. 179 "*Regular expression indicating failed TLS handshake.
180The default is what GNUTLS's \"gnutls-cli\" outputs." 180The default is what GnuTLS's \"gnutls-cli\" outputs."
181 ;; GNUTLS cli.c:do_handshake() prints this string on failure. If the 181 ;; GnuTLS cli.c:do_handshake() prints this string on failure. If the
182 ;; logic, or the string itself, is modified, this must be updated. 182 ;; logic, or the string itself, is modified, this must be updated.
183 :version "22.1" 183 :version "22.1"
184 :type 'regexp 184 :type 'regexp
@@ -186,8 +186,8 @@ The default is what GNUTLS's \"gnutls-cli\" outputs."
186 186
187(defcustom starttls-success "- Compression: " 187(defcustom starttls-success "- Compression: "
188 "*Regular expression indicating completed TLS handshakes. 188 "*Regular expression indicating completed TLS handshakes.
189The default is what GNUTLS's \"gnutls-cli\" outputs." 189The default is what GnuTLS's \"gnutls-cli\" outputs."
190 ;; GNUTLS cli.c:do_handshake() calls, on success, 190 ;; GnuTLS cli.c:do_handshake() calls, on success,
191 ;; common.c:print_info(), that unconditionally print this string 191 ;; common.c:print_info(), that unconditionally print this string
192 ;; last. If that logic, or the string itself, is modified, this 192 ;; last. If that logic, or the string itself, is modified, this
193 ;; must be updated. 193 ;; must be updated.
@@ -283,7 +283,7 @@ BUFFER is the buffer (or `buffer-name') to associate with the process.
283Third arg is name of the host to connect to, or its IP address. 283Third arg is name of the host to connect to, or its IP address.
284Fourth arg PORT is an integer specifying a port to connect to. 284Fourth arg PORT is an integer specifying a port to connect to.
285If `starttls-use-gnutls' is nil, this may also be a service name, but 285If `starttls-use-gnutls' is nil, this may also be a service name, but
286GNUTLS requires a port number." 286GnuTLS requires a port number."
287 (if starttls-use-gnutls 287 (if starttls-use-gnutls
288 (starttls-open-stream-gnutls name buffer host port) 288 (starttls-open-stream-gnutls name buffer host port)
289 (message "Opening STARTTLS connection to `%s:%s'" host (format "%s" port)) 289 (message "Opening STARTTLS connection to `%s:%s'" host (format "%s" port))
diff --git a/lisp/help.el b/lisp/help.el
index 506889c210e..36d49aae9b3 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -969,7 +969,7 @@ This is effective only when Temp Buffer Resize mode is enabled.
969The value is the maximum height (in lines) which 969The value is the maximum height (in lines) which
970`resize-temp-buffer-window' will give to a window displaying a 970`resize-temp-buffer-window' will give to a window displaying a
971temporary buffer. It can also be a function to be called to 971temporary buffer. It can also be a function to be called to
972choose the height for such a buffer. It gets one argumemt, the 972choose the height for such a buffer. It gets one argument, the
973buffer, and should return a positive integer. At the time the 973buffer, and should return a positive integer. At the time the
974function is called, the window to be resized is selected." 974function is called, the window to be resized is selected."
975 :type '(choice integer function) 975 :type '(choice integer function)
diff --git a/lisp/htmlfontify.el b/lisp/htmlfontify.el
index 056115f57b7..126b616a644 100644
--- a/lisp/htmlfontify.el
+++ b/lisp/htmlfontify.el
@@ -150,11 +150,11 @@ main-content <=MAIN_CONTENT;\\n\" rtfm-section file style rtfm-section file))
150 :prefix "hfy-") 150 :prefix "hfy-")
151 151
152(defcustom hfy-page-header 'hfy-default-header 152(defcustom hfy-page-header 'hfy-default-header
153 "Function called to build the header of the html source. 153 "Function called to build the header of the HTML source.
154This is called with two arguments (the filename relative to the top 154This is called with two arguments (the filename relative to the top
155level source directory being etag'd and fontified), and a string containing 155level source directory being etag'd and fontified), and a string containing
156the <style>...</style> text to embed in the document. 156the <style>...</style> text to embed in the document.
157It should return the string returned will be used as the header for the 157It should return a string that will be used as the header for the
158htmlfontified version of the source file.\n 158htmlfontified version of the source file.\n
159See also `hfy-page-footer'." 159See also `hfy-page-footer'."
160 :group 'htmlfontify 160 :group 'htmlfontify
@@ -166,8 +166,8 @@ See also `hfy-page-footer'."
166(defcustom hfy-split-index nil 166(defcustom hfy-split-index nil
167 "Whether or not to split the index `hfy-index-file' alphabetically. 167 "Whether or not to split the index `hfy-index-file' alphabetically.
168If non-nil, the index is split on the first letter of each tag. 168If non-nil, the index is split on the first letter of each tag.
169Useful when the index would otherwise 169Useful when the index would otherwise be large and take
170be large and take a long time to render or be difficult to navigate." 170a long time to render or be difficult to navigate."
171 :group 'htmlfontify 171 :group 'htmlfontify
172 :tag "split-index" 172 :tag "split-index"
173 :type '(boolean)) 173 :type '(boolean))
@@ -179,7 +179,7 @@ It takes only one argument, the filename."
179 :tag "page-footer" 179 :tag "page-footer"
180 :type '(function)) 180 :type '(function))
181 181
182(defcustom hfy-extn ".html" 182(defcustom hfy-extn ".html"
183 "File extension used for output files." 183 "File extension used for output files."
184 :group 'htmlfontify 184 :group 'htmlfontify
185 :tag "extension" 185 :tag "extension"
@@ -251,7 +251,7 @@ when not running under a window system."
251 251
252(defcustom hfy-post-html-hooks nil 252(defcustom hfy-post-html-hooks nil
253 "List of functions to call after creating and filling the HTML buffer. 253 "List of functions to call after creating and filling the HTML buffer.
254These functions will be called with the html buffer as the current buffer." 254These functions will be called with the HTML buffer as the current buffer."
255 :group 'htmlfontify 255 :group 'htmlfontify
256 :tag "post-html-hooks" 256 :tag "post-html-hooks"
257 :options '(set-auto-mode) 257 :options '(set-auto-mode)
@@ -342,7 +342,7 @@ commands in `hfy-etags-cmd-alist'."
342 :type '(file)) 342 :type '(file))
343 343
344(defcustom hfy-shell-file-name "/bin/sh" 344(defcustom hfy-shell-file-name "/bin/sh"
345 "Shell (bourne or compatible) to invoke for complex shell operations." 345 "Shell (Bourne or compatible) to invoke for complex shell operations."
346 :group 'htmlfontify 346 :group 'htmlfontify
347 :tag "shell-file-name" 347 :tag "shell-file-name"
348 :type '(file)) 348 :type '(file))
@@ -595,7 +595,8 @@ in a windowing system - try to trick it..."
595 (setq cperl-syntaxify-by-font-lock t))) 595 (setq cperl-syntaxify-by-font-lock t)))
596 (setq hfy-cperl-mode-kludged-p t))) ) 596 (setq hfy-cperl-mode-kludged-p t))) )
597 597
598(defun hfy-opt (symbol) "Is option SYMBOL set." 598(defun hfy-opt (symbol)
599 "Is option SYMBOL set."
599 (memq symbol hfy-optimisations)) 600 (memq symbol hfy-optimisations))
600 601
601(defun hfy-default-header (file style) 602(defun hfy-default-header (file style)
@@ -1066,7 +1067,7 @@ See also `hfy-face-to-style-i', `hfy-flatten-style'."
1066 ;; text-decoration is not inherited. 1067 ;; text-decoration is not inherited.
1067 ;; but it's not wrong and if this ever changes it will 1068 ;; but it's not wrong and if this ever changes it will
1068 ;; be needed, so I think it's better to leave it in? -- v 1069 ;; be needed, so I think it's better to leave it in? -- v
1069 (nconc final-style '(("text-decoration"."none")))))) 1070 (nconc final-style '(("text-decoration" . "none"))))))
1070 final-style)) 1071 final-style))
1071 1072
1072;; strip redundant bits from a name. Technically, this could result in 1073;; strip redundant bits from a name. Technically, this could result in
@@ -1992,7 +1993,7 @@ FILE is the specific file we are rendering."
1992 tags-list) ))) 1993 tags-list) )))
1993 1994
1994(defun hfy-shell () 1995(defun hfy-shell ()
1995 "Return `shell-file-name', or \"/bin/sh\" if it is a non-bourne shell." 1996 "Return `shell-file-name', or \"/bin/sh\" if it is a non-Bourne shell."
1996 (if (string-match "\\<bash\\>\\|\\<sh\\>\\|\\<dash\\>" shell-file-name) 1997 (if (string-match "\\<bash\\>\\|\\<sh\\>\\|\\<dash\\>" shell-file-name)
1997 shell-file-name 1998 shell-file-name
1998 (or hfy-shell-file-name "/bin/sh"))) 1999 (or hfy-shell-file-name "/bin/sh")))
diff --git a/lisp/ido.el b/lisp/ido.el
index f425fd5fc63..f2dcba614a9 100644
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -1692,7 +1692,7 @@ This function also adds a hook to the minibuffer."
1692(defun ido-nonreadable-directory-p (dir) 1692(defun ido-nonreadable-directory-p (dir)
1693 ;; Return t if dir is a directory, but not readable 1693 ;; Return t if dir is a directory, but not readable
1694 ;; Do not check for non-readable directories via tramp, as this causes a premature 1694 ;; Do not check for non-readable directories via tramp, as this causes a premature
1695 ;; connect on incomplete tramp paths (after entring just method:). 1695 ;; connect on incomplete tramp paths (after entering just method:).
1696 (let ((ido-enable-tramp-completion nil)) 1696 (let ((ido-enable-tramp-completion nil))
1697 (and (ido-final-slash dir) 1697 (and (ido-final-slash dir)
1698 (not (ido-is-unc-host dir)) 1698 (not (ido-is-unc-host dir))
@@ -1702,7 +1702,7 @@ This function also adds a hook to the minibuffer."
1702(defun ido-directory-too-big-p (dir) 1702(defun ido-directory-too-big-p (dir)
1703 ;; Return t if dir is a directory, but too big to show 1703 ;; Return t if dir is a directory, but too big to show
1704 ;; Do not check for non-readable directories via tramp, as this causes a premature 1704 ;; Do not check for non-readable directories via tramp, as this causes a premature
1705 ;; connect on incomplete tramp paths (after entring just method:). 1705 ;; connect on incomplete tramp paths (after entering just method:).
1706 (let ((ido-enable-tramp-completion nil)) 1706 (let ((ido-enable-tramp-completion nil))
1707 (and (numberp ido-max-directory-size) 1707 (and (numberp ido-max-directory-size)
1708 (ido-final-slash dir) 1708 (ido-final-slash dir)
diff --git a/lisp/indent.el b/lisp/indent.el
index 93218032700..f5850de8b8f 100644
--- a/lisp/indent.el
+++ b/lisp/indent.el
@@ -63,9 +63,11 @@ e.g., `c-tab-always-indent', and do not respect this variable."
63 63
64(defun indent-according-to-mode () 64(defun indent-according-to-mode ()
65 "Indent line in proper way for current major mode. 65 "Indent line in proper way for current major mode.
66The buffer-local variable `indent-line-function' determines how to do this, 66Normally, this is done by calling the function specified by the
67but the functions `indent-relative' and `indent-relative-maybe' are 67variable `indent-line-function'. However, if the value of that
68special; we don't actually use them here." 68variable is `indent-relative' or `indent-relative-maybe', handle
69it specially (since those functions are used for tabbing); in
70that case, indent by aligning to the previous non-blank line."
69 (interactive) 71 (interactive)
70 (syntax-propertize (line-end-position)) 72 (syntax-propertize (line-end-position))
71 (if (memq indent-line-function 73 (if (memq indent-line-function
@@ -84,22 +86,25 @@ special; we don't actually use them here."
84 (funcall indent-line-function))) 86 (funcall indent-line-function)))
85 87
86(defun indent-for-tab-command (&optional arg) 88(defun indent-for-tab-command (&optional arg)
87 "Indent line or region in proper way for current major mode or insert a tab. 89 "Indent the current line or region, or insert a tab, as appropriate.
88Depending on `tab-always-indent', either insert a tab or indent. 90This function either inserts a tab, or indents the current line,
89 91or performs symbol completion, depending on `tab-always-indent'.
90In most major modes, if point was in the current line's indentation, 92The function called to actually indent the line or insert a tab
91it is moved to the first non-whitespace character after indenting; 93is given by the variable `indent-line-function'.
92otherwise it stays at the same position in the text. 94
93 95If a prefix argument is given, after this function indents the
94If a prefix argument is given, also rigidly indent the entire 96current line or inserts a tab, it also rigidly indents the entire
95balanced expression which starts at the beginning of the current 97balanced expression which starts at the beginning of the current
96line to reflect the current line's change in indentation. 98line, to reflect the current line's indentation.
97 99
98If `transient-mark-mode' is turned on and the region is active, 100In most major modes, if point was in the current line's
99indent the region (in this case, any prefix argument is ignored). 101indentation, it is moved to the first non-whitespace character
102after indenting; otherwise it stays at the same position relative
103to the text.
100 104
101The function actually called to indent the line is determined by the value of 105If `transient-mark-mode' is turned on and the region is active,
102`indent-line-function'." 106this function instead calls `indent-region'. In this case, any
107prefix argument is ignored."
103 (interactive "P") 108 (interactive "P")
104 (cond 109 (cond
105 ;; The region is active, indent it. 110 ;; The region is active, indent it.
@@ -393,34 +398,14 @@ indents all the lines with it:
393 with it. 398 with it.
394 2) If `indent-region-function' is non-nil, call that function 399 2) If `indent-region-function' is non-nil, call that function
395 to indent the region. 400 to indent the region.
396 3) Indent each line as specified by the variable `indent-line-function'. 401 3) Indent each line via `indent-according-to-mode'.
397 402
398Called from a program, START and END specify the region to indent. 403Called from a program, START and END specify the region to indent.
399If the third argument COLUMN is an integer, it specifies the 404If the third argument COLUMN is an integer, it specifies the
400column to indent to; if it is nil, use one of the three methods above." 405column to indent to; if it is nil, use one of the three methods above."
401 (interactive "r\nP") 406 (interactive "r\nP")
402 (if (null column) 407 (cond
403 (if fill-prefix 408 (column
404 (save-excursion
405 (goto-char end)
406 (setq end (point-marker))
407 (goto-char start)
408 (let ((regexp (regexp-quote fill-prefix)))
409 (while (< (point) end)
410 (or (looking-at regexp)
411 (and (bolp) (eolp))
412 (insert fill-prefix))
413 (forward-line 1))))
414 (if indent-region-function
415 (funcall indent-region-function start end)
416 (save-excursion
417 (setq end (copy-marker end))
418 (goto-char start)
419 (while (< (point) end)
420 (or (and (bolp) (eolp))
421 (indent-according-to-mode))
422 (forward-line 1))
423 (move-marker end nil))))
424 (setq column (prefix-numeric-value column)) 409 (setq column (prefix-numeric-value column))
425 (save-excursion 410 (save-excursion
426 (goto-char end) 411 (goto-char end)
@@ -433,6 +418,28 @@ column to indent to; if it is nil, use one of the three methods above."
433 (indent-to column 0)) 418 (indent-to column 0))
434 (forward-line 1)) 419 (forward-line 1))
435 (move-marker end nil))) 420 (move-marker end nil)))
421 (fill-prefix
422 (save-excursion
423 (goto-char end)
424 (setq end (point-marker))
425 (goto-char start)
426 (let ((regexp (regexp-quote fill-prefix)))
427 (while (< (point) end)
428 (or (looking-at regexp)
429 (and (bolp) (eolp))
430 (insert fill-prefix))
431 (forward-line 1)))))
432 (indent-region-function
433 (funcall indent-region-function start end))
434 (t
435 (save-excursion
436 (setq end (copy-marker end))
437 (goto-char start)
438 (while (< (point) end)
439 (or (and (bolp) (eolp))
440 (indent-according-to-mode))
441 (forward-line 1))
442 (move-marker end nil))))
436 ;; In most cases, reindenting modifies the buffer, but it may also 443 ;; In most cases, reindenting modifies the buffer, but it may also
437 ;; leave it unmodified, in which case we have to deactivate the mark 444 ;; leave it unmodified, in which case we have to deactivate the mark
438 ;; by hand. 445 ;; by hand.
diff --git a/lisp/info.el b/lisp/info.el
index 4f2f33d017c..c1dae66bea2 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -1769,12 +1769,14 @@ If DIRECTION is `backward', search in the reverse direction."
1769 ;; If no subfiles, give error now. 1769 ;; If no subfiles, give error now.
1770 (if give-up 1770 (if give-up
1771 (if (null Info-current-subfile) 1771 (if (null Info-current-subfile)
1772 (let ((search-spaces-regexp 1772 (if isearch-mode
1773 (if (or (not isearch-mode) isearch-regexp) 1773 (signal 'search-failed (list regexp "end of manual"))
1774 Info-search-whitespace-regexp))) 1774 (let ((search-spaces-regexp
1775 (if backward 1775 (if (or (not isearch-mode) isearch-regexp)
1776 (re-search-backward regexp) 1776 Info-search-whitespace-regexp)))
1777 (re-search-forward regexp))) 1777 (if backward
1778 (re-search-backward regexp)
1779 (re-search-forward regexp))))
1778 (setq found nil))) 1780 (setq found nil)))
1779 1781
1780 (if (and bound (not found)) 1782 (if (and bound (not found))
@@ -1845,7 +1847,7 @@ If DIRECTION is `backward', search in the reverse direction."
1845 (if found 1847 (if found
1846 (message "") 1848 (message "")
1847 (signal 'search-failed (if isearch-mode 1849 (signal 'search-failed (if isearch-mode
1848 (list regexp "end of the manual") 1850 (list regexp "end of manual")
1849 (list regexp))))) 1851 (list regexp)))))
1850 (if (not found) 1852 (if (not found)
1851 (progn (Info-read-subfile osubfile) 1853 (progn (Info-read-subfile osubfile)
@@ -3240,7 +3242,7 @@ search results."
3240 (Info-index topic) 3242 (Info-index topic)
3241 (push (cons (cons Info-current-file topic) Info-index-alternatives) 3243 (push (cons (cons Info-current-file topic) Info-index-alternatives)
3242 Info-virtual-index-nodes) 3244 Info-virtual-index-nodes)
3243 ;; Clean up unneccessary side-effects of `Info-index'. 3245 ;; Clean up unnecessary side-effects of `Info-index'.
3244 (setq Info-history-list ohist-list) 3246 (setq Info-history-list ohist-list)
3245 (Info-goto-node orignode) 3247 (Info-goto-node orignode)
3246 (message ""))) 3248 (message "")))
diff --git a/lisp/international/cp51932.el b/lisp/international/cp51932.el
index d4a347d43aa..a6489268578 100644
--- a/lisp/international/cp51932.el
+++ b/lisp/international/cp51932.el
@@ -1,5 +1,5 @@
1;;; cp51932.el -- translation table for CP51932. -*- no-byte-compile: t -*- 1;;; cp51932.el -- translation table for CP51932. -*- no-byte-compile: t -*-
2;;; Automatically genrated from CP932-2BYTE.map 2;;; Automatically generated from CP932-2BYTE.map
3(let ((map 3(let ((map
4 '(;JISEXT<->UNICODE 4 '(;JISEXT<->UNICODE
5 (#x2D21 . #x2460) 5 (#x2D21 . #x2460)
@@ -468,4 +468,3 @@
468 (setcar x (cdr x)) (setcdr x tmp))) 468 (setcar x (cdr x)) (setcdr x tmp)))
469 map) 469 map)
470 (define-translation-table 'cp51932-encode map)) 470 (define-translation-table 'cp51932-encode map))
471
diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el
index 9f6520c7238..2425ee46eea 100644
--- a/lisp/international/fontset.el
+++ b/lisp/international/fontset.el
@@ -858,9 +858,9 @@ Internal use only. Should be called at startup time."
858(defun x-decompose-font-name (pattern) 858(defun x-decompose-font-name (pattern)
859 "Decompose PATTERN into XLFD fields and return a vector of the fields. 859 "Decompose PATTERN into XLFD fields and return a vector of the fields.
860The length of the vector is 12. 860The length of the vector is 12.
861The FOUNDRY and FAMILY fields are concatinated and stored in the first 861The FOUNDRY and FAMILY fields are concatenated and stored in the first
862element of the vector. 862element of the vector.
863The REGISTRY and ENCODING fields are concatinated and stored in the last 863The REGISTRY and ENCODING fields are concatenated and stored in the last
864element of the vector. 864element of the vector.
865 865
866Return nil if PATTERN doesn't conform to XLFD." 866Return nil if PATTERN doesn't conform to XLFD."
diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 58a08f4506f..d078d98a480 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -703,13 +703,13 @@ If the value is nil, on decoding, don't treat the first two-byte as
703BOM, and on encoding, don't produce BOM bytes. 703BOM, and on encoding, don't produce BOM bytes.
704 704
705If the value is t, on decoding, skip the first two-byte as BOM, and on 705If the value is t, on decoding, skip the first two-byte as BOM, and on
706encoding, produce BOM bytes accoding to the value of `:endian'. 706encoding, produce BOM bytes according to the value of `:endian'.
707 707
708If the value is cons, on decoding, check the first two-byte. If they 708If the value is cons, on decoding, check the first two-byte. If they
709are 0xFE 0xFF, use the car part coding system of the value. If they 709are 0xFE 0xFF, use the car part coding system of the value. If they
710are 0xFF 0xFE, use the cdr part coding system of the value. 710are 0xFF 0xFE, use the cdr part coding system of the value.
711Otherwise, treat them as bytes for a normal character. On encoding, 711Otherwise, treat them as bytes for a normal character. On encoding,
712produce BOM bytes accoding to the value of `:endian'. 712produce BOM bytes according to the value of `:endian'.
713 713
714This attribute has a meaning only when `:coding-type' is `utf-16' or 714This attribute has a meaning only when `:coding-type' is `utf-16' or
715`utf-8'. 715`utf-8'.
diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el
index 0ba0b9085b9..6614ac8b416 100644
--- a/lisp/international/titdic-cnv.el
+++ b/lisp/international/titdic-cnv.el
@@ -128,11 +128,11 @@ SPC, 1, 2, 3, or 4 specifing a tone (SPC:$(0?v(N(B, 1:$(0M=Vy(B, 2:$(0Dm(N
128\\<quail-translation-docstring>") 128\\<quail-translation-docstring>")
129 129
130 ("chinese-punct-b5" "$(0O:(BB" 130 ("chinese-punct-b5" "$(0O:(BB"
131 "Input method for Chinese punctuations and symbols of Big5 131 "Input method for Chinese punctuation and symbols of Big5
132\(`chinese-big5-1' and `chinese-big5-2').") 132\(`chinese-big5-1' and `chinese-big5-2').")
133 133
134 ("chinese-punct" "$A1j(BG" 134 ("chinese-punct" "$A1j(BG"
135 "Input method for Chinese punctuations and symbols of GB2312 135 "Input method for Chinese punctuation and symbols of GB2312
136\(`chinese-gb2312').") 136\(`chinese-gb2312').")
137 137
138 ("chinese-py-b5" "$(03<(BB" 138 ("chinese-py-b5" "$(03<(BB"
@@ -801,36 +801,36 @@ To get complete usage, invoke \"emacs -batch -f batch-titdic-convert -h\"."
801 (setq dic (sort dic (function (lambda (x y) (string< (car x ) (car y)))))) 801 (setq dic (sort dic (function (lambda (x y) (string< (car x ) (car y))))))
802 (dolist (elt dic) 802 (dolist (elt dic)
803 (insert (format "(%S\t%S)\n" (car elt) (cdr elt)))) 803 (insert (format "(%S\t%S)\n" (car elt) (cdr elt))))
804 (let ((punctuations '((";" "$(0!'!2!"!#!.!/(B" "$(G!'!2!"!#!.!/(B") 804 (let ((punctuation '((";" "$(0!'!2!"!#!.!/(B" "$(G!'!2!"!#!.!/(B")
805 (":" "$(0!(!+!3!%!$!&!0!1(B" "$(G!(!+!3!%!$!&!0!1(B") 805 (":" "$(0!(!+!3!%!$!&!0!1(B" "$(G!(!+!3!%!$!&!0!1(B")
806 ("'" "$(0!e!d(B" "$(G!e!d(B") 806 ("'" "$(0!e!d(B" "$(G!e!d(B")
807 ("\"" "$(0!g!f!h!i!q(B" "$(G!g!f!h!i!q(B") 807 ("\"" "$(0!g!f!h!i!q(B" "$(G!g!f!h!i!q(B")
808 ("\\" "$(0"`"b#M(B" "$(G"`"b#M(B") 808 ("\\" "$(0"`"b#M(B" "$(G"`"b#M(B")
809 ("|" "$(0!6!8!:"^(B" "$(G!6!8!:"^(B") 809 ("|" "$(0!6!8!:"^(B" "$(G!6!8!:"^(B")
810 ("/" "$(0"_"a#L(B" "$(G"_"a#L(B") 810 ("/" "$(0"_"a#L(B" "$(G"_"a#L(B")
811 ("?" "$(0!)!4(B" "$(G!)!4(B") 811 ("?" "$(0!)!4(B" "$(G!)!4(B")
812 ("<" "$(0!R"6"A!T"H(B" "$(G!R"6"A!T"H(B") 812 ("<" "$(0!R"6"A!T"H(B" "$(G!R"6"A!T"H(B")
813 (">" "$(0!S"7"B!U(B" "$(G!S"7"B!U(B") 813 (">" "$(0!S"7"B!U(B" "$(G!S"7"B!U(B")
814 ("[" "$(0!F!J!b!H!L!V!Z!X!\(B" "$(G!F!J!b!H!L!V!Z!X!\(B") 814 ("[" "$(0!F!J!b!H!L!V!Z!X!\(B" "$(G!F!J!b!H!L!V!Z!X!\(B")
815 ("]" "$(0!G!K!c!I!M!W![!Y!](B" "$(G!G!K!c!I!M!W![!Y!](B") 815 ("]" "$(0!G!K!c!I!M!W![!Y!](B" "$(G!G!K!c!I!M!W![!Y!](B")
816 ("{" "$(0!B!`!D(B " "$(G!B!`!D(B ") 816 ("{" "$(0!B!`!D(B " "$(G!B!`!D(B ")
817 ("}" "$(0!C!a!E(B" "$(G!C!a!E(B") 817 ("}" "$(0!C!a!E(B" "$(G!C!a!E(B")
818 ("`" "$(0!j!k(B" "$(G!j!k(B") 818 ("`" "$(0!j!k(B" "$(G!j!k(B")
819 ("~" "$(0"D"+",!<!=(B" "$(G"D"+",!<!=(B") 819 ("~" "$(0"D"+",!<!=(B" "$(G"D"+",!<!=(B")
820 ("!" "$(0!*!5(B" "$(G!*!5(B") 820 ("!" "$(0!*!5(B" "$(G!*!5(B")
821 ("@" "$(0"i"n(B" "$(G"i"n(B") 821 ("@" "$(0"i"n(B" "$(G"i"n(B")
822 ("#" "$(0!l"-(B" "$(G!l"-(B") 822 ("#" "$(0!l"-(B" "$(G!l"-(B")
823 ("$" "$(0"c"l(B" "$(G"c"l(B") 823 ("$" "$(0"c"l(B" "$(G"c"l(B")
824 ("%" "$(0"h"m(B" "$(G"h"m(B") 824 ("%" "$(0"h"m(B" "$(G"h"m(B")
825 ("&" "$(0!m".(B" "$(G!m".(B") 825 ("&" "$(0!m".(B" "$(G!m".(B")
826 ("*" "$(0!n"/!o!w!x(B" "$(G!n"/!o!w!x(B") 826 ("*" "$(0!n"/!o!w!x(B" "$(G!n"/!o!w!x(B")
827 ("(" "$(0!>!^!@(B" "$(G!>!^!@(B") 827 ("(" "$(0!>!^!@(B" "$(G!>!^!@(B")
828 (")" "$(0!?!_!A(B" "$(G!?!_!A(B") 828 (")" "$(0!?!_!A(B" "$(G!?!_!A(B")
829 ("-" "$(0!7!9"#"$"1"@(B" "$(G!7!9"#"$"1"@(B") 829 ("-" "$(0!7!9"#"$"1"@(B" "$(G!7!9"#"$"1"@(B")
830 ("_" "$(0"%"&(B" "$(G"%"&(B") 830 ("_" "$(0"%"&(B" "$(G"%"&(B")
831 ("=" "$(0"8"C(B" "$(G"8"C(B") 831 ("=" "$(0"8"C(B" "$(G"8"C(B")
832 ("+" "$(0"0"?(B" "$(G"0"?(B")))) 832 ("+" "$(0"0"?(B" "$(G"0"?(B"))))
833 (dolist (elt punctuations) 833 (dolist (elt punctuation)
834 (insert (format "(%S %S)\n" (concat "z" (car elt)) 834 (insert (format "(%S %S)\n" (concat "z" (car elt))
835 (if big5-p (nth 1 elt) (nth 2 elt)))))) 835 (if big5-p (nth 1 elt) (nth 2 elt))))))
836 (insert ")\n"))) 836 (insert ")\n")))
@@ -1017,7 +1017,7 @@ To input words of more than three letters, you type 4 keys, initials
1017of the first three letters and the last letter. For instance, 1017of the first three letters and the last letter. For instance,
1018\"bjdt\" inputs $A11>)5gJSL((B. 1018\"bjdt\" inputs $A11>)5gJSL((B.
1019 1019
1020To input symbols and punctuations, type `/' followed by one of `a' to 1020To input symbols and punctuation, type `/' followed by one of `a' to
1021`z', then select one of the candidates.")) 1021`z', then select one of the candidates."))
1022 (insert " '((\"\C-?\" . quail-delete-last-char) 1022 (insert " '((\"\C-?\" . quail-delete-last-char)
1023 (\".\" . quail-next-translation) 1023 (\".\" . quail-next-translation)
diff --git a/lisp/isearch.el b/lisp/isearch.el
index 39ed7adc9c4..01dff91a1ff 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -1438,12 +1438,7 @@ string. NLINES has the same meaning as in `occur'."
1438 (interactive 1438 (interactive
1439 (list 1439 (list
1440 (cond 1440 (cond
1441 (isearch-word (concat "\\b" (replace-regexp-in-string 1441 (isearch-word (word-search-regexp isearch-string))
1442 "\\W+" "\\W+"
1443 (replace-regexp-in-string
1444 "^\\W+\\|\\W+$" "" isearch-string)
1445 nil t)
1446 "\\b"))
1447 (isearch-regexp isearch-string) 1442 (isearch-regexp isearch-string)
1448 (t (regexp-quote isearch-string))) 1443 (t (regexp-quote isearch-string)))
1449 (if current-prefix-arg (prefix-numeric-value current-prefix-arg)))) 1444 (if current-prefix-arg (prefix-numeric-value current-prefix-arg))))
@@ -1548,7 +1543,10 @@ If search string is empty, just beep."
1548(defun isearch-yank-x-selection () 1543(defun isearch-yank-x-selection ()
1549 "Pull current X selection into search string." 1544 "Pull current X selection into search string."
1550 (interactive) 1545 (interactive)
1551 (isearch-yank-string (x-get-selection))) 1546 (isearch-yank-string (x-get-selection))
1547 ;; If `x-get-selection' returned the text from the active region,
1548 ;; then it "used" the mark which we should hence deactivate.
1549 (when select-active-regions (deactivate-mark)))
1552 1550
1553 1551
1554(defun isearch-mouse-2 (click) 1552(defun isearch-mouse-2 (click)
@@ -1639,8 +1637,10 @@ Subword is used when `subword-mode' is activated. "
1639 (if (and (eq case-fold-search t) search-upper-case) 1637 (if (and (eq case-fold-search t) search-upper-case)
1640 (setq case-fold-search 1638 (setq case-fold-search
1641 (isearch-no-upper-case-p isearch-string isearch-regexp))) 1639 (isearch-no-upper-case-p isearch-string isearch-regexp)))
1642 (looking-at (if isearch-regexp isearch-string 1640 (looking-at (cond
1643 (regexp-quote isearch-string)))) 1641 (isearch-word (word-search-regexp isearch-string t))
1642 (isearch-regexp isearch-string)
1643 (t (regexp-quote isearch-string)))))
1644 (error nil)) 1644 (error nil))
1645 (or isearch-yank-flag 1645 (or isearch-yank-flag
1646 (<= (match-end 0) 1646 (<= (match-end 0)
@@ -1872,7 +1872,7 @@ the bottom."
1872 (goto-char isearch-point)) 1872 (goto-char isearch-point))
1873 1873
1874(defun isearch-reread-key-sequence-naturally (keylist) 1874(defun isearch-reread-key-sequence-naturally (keylist)
1875 "Reread key sequence KEYLIST with Isearch mode's keymap deactivated. 1875 "Reread key sequence KEYLIST with an inactive Isearch-mode keymap.
1876Return the key sequence as a string/vector." 1876Return the key sequence as a string/vector."
1877 (isearch-unread-key-sequence keylist) 1877 (isearch-unread-key-sequence keylist)
1878 (let (overriding-terminal-local-map) 1878 (let (overriding-terminal-local-map)
@@ -2225,7 +2225,11 @@ If there is no completion possible, say so and continue searching."
2225 (if nonincremental "search" "I-search") 2225 (if nonincremental "search" "I-search")
2226 (if isearch-forward "" " backward") 2226 (if isearch-forward "" " backward")
2227 (if current-input-method 2227 (if current-input-method
2228 (concat " [" current-input-method-title "]: ") 2228 ;; Input methods for RTL languages use RTL
2229 ;; characters for their title, and that messes
2230 ;; up the display of search text after the prompt.
2231 (bidi-string-mark-left-to-right
2232 (concat " [" current-input-method-title "]: "))
2229 ": ") 2233 ": ")
2230 ))) 2234 )))
2231 (propertize (concat (upcase (substring m 0 1)) (substring m 1)) 2235 (propertize (concat (upcase (substring m 0 1)) (substring m 1))
diff --git a/lisp/language/ethio-util.el b/lisp/language/ethio-util.el
index 444f4d519da..1d93d981f8e 100644
--- a/lisp/language/ethio-util.el
+++ b/lisp/language/ethio-util.el
@@ -802,7 +802,7 @@ The 2nd and 3rd arguments BEGIN and END specify the region."
802 (forward-char 1) 802 (forward-char 1)
803 (insert "}"))) 803 (insert "}")))
804 804
805 ;; Special Ethiopic punctuations. 805 ;; Special Ethiopic punctuation.
806 (goto-char (point-min)) 806 (goto-char (point-min))
807 (while (re-search-forward "\\ce[»\\.\\?]\\|«\\ce" nil t) 807 (while (re-search-forward "\\ce[»\\.\\?]\\|«\\ce" nil t)
808 (cond 808 (cond
diff --git a/lisp/language/tibet-util.el b/lisp/language/tibet-util.el
index 8458974e753..fd23bbb6d54 100644
--- a/lisp/language/tibet-util.el
+++ b/lisp/language/tibet-util.el
@@ -27,7 +27,7 @@
27 27
28;;; History: 28;;; History:
29;; 1997.03.13 Modification in treatment of text properties; 29;; 1997.03.13 Modification in treatment of text properties;
30;; Support for some special signs and punctuations. 30;; Support for some special signs and punctuation.
31;; 1999.10.25 Modification for a new composition way by K.Handa. 31;; 1999.10.25 Modification for a new composition way by K.Handa.
32 32
33;;; Commentary: 33;;; Commentary:
diff --git a/lisp/language/tibetan.el b/lisp/language/tibetan.el
index a23645bae1f..1607868dea5 100644
--- a/lisp/language/tibetan.el
+++ b/lisp/language/tibetan.el
@@ -30,7 +30,7 @@
30 30
31;;; History: 31;;; History:
32 32
33;; 1997.03.13 Modification for special signs and punctuations. 33;; 1997.03.13 Modification for special signs and punctuation.
34 34
35;;; Commentary: 35;;; Commentary:
36 36
@@ -44,7 +44,7 @@
44;;; 44;;;
45;;; 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F 45;;; 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F
46;;;2120 // $(7!!(B $(7!"(B $(7!#(B $(7!$(B $(7!%(B $(7!&(B $(7!'(B $(7!((B $(7!)(B $(7!*(B $(7!+(B $(7!,(B $(7!-(B $(7!.(B $(7!/(B ; obsolete glyphs (2123-5) 46;;;2120 // $(7!!(B $(7!"(B $(7!#(B $(7!$(B $(7!%(B $(7!&(B $(7!'(B $(7!((B $(7!)(B $(7!*(B $(7!+(B $(7!,(B $(7!-(B $(7!.(B $(7!/(B ; obsolete glyphs (2123-5)
47;;;2130 $(7!0(B $(7!1(B $(7!2(B $(7!3(B $(7!4(B $(7!5(B $(7!6(B $(7!7(B $(7!8(B $(7!9(B $(7!:(B $(7!;(B $(7!<(B $(7!=(B $(7!>(B $(7!?(B ; Punctuations, 47;;;2130 $(7!0(B $(7!1(B $(7!2(B $(7!3(B $(7!4(B $(7!5(B $(7!6(B $(7!7(B $(7!8(B $(7!9(B $(7!:(B $(7!;(B $(7!<(B $(7!=(B $(7!>(B $(7!?(B ; Punctuation,
48;;;2140 $(7!@(B $(7!A(B $(7!B(B $(7!C(B $(7!D(B $(7!E(B $(7!F(B $(7!G(B $(7!H(B $(7!I(B $(7!J(B $(7!K(B $(7!L(B $(7!M(B $(7!N(B $(7!O(B ; Digits and 48;;;2140 $(7!@(B $(7!A(B $(7!B(B $(7!C(B $(7!D(B $(7!E(B $(7!F(B $(7!G(B $(7!H(B $(7!I(B $(7!J(B $(7!K(B $(7!L(B $(7!M(B $(7!N(B $(7!O(B ; Digits and
49;;;2150 $(7!P(B $(7!Q(B $(7!R(B $(7!S(B $(7!T(B $(7!U(B $(7!V(B $(7!W(B $(7!X(B $(7!Y(B $(7!Z(B $(7![(B $(7!\(B $(7!](B $(7!^(B $(7!_(B ; Special signs. 49;;;2150 $(7!P(B $(7!Q(B $(7!R(B $(7!S(B $(7!T(B $(7!U(B $(7!V(B $(7!W(B $(7!X(B $(7!Y(B $(7!Z(B $(7![(B $(7!\(B $(7!](B $(7!^(B $(7!_(B ; Special signs.
50;;;2160 $(7!`(B $(7!a(B $(7!b(B $(7!c(B $(7!d(B $(7!e(B $(7!f(B $(7!g(B $(7!h(B $(7!i(B $(7!j(B $(7!k(B $(7!l(B $(7!m(B $(7!n(B $(7!o(B ; 50;;;2160 $(7!`(B $(7!a(B $(7!b(B $(7!c(B $(7!d(B $(7!e(B $(7!f(B $(7!g(B $(7!h(B $(7!i(B $(7!j(B $(7!k(B $(7!l(B $(7!m(B $(7!n(B $(7!o(B ;
@@ -424,7 +424,7 @@
424 )) 424 ))
425 425
426;;; alist for Tibetan composite vowels (long i, vocalic r, etc.) 426;;; alist for Tibetan composite vowels (long i, vocalic r, etc.)
427;;; New varialble. created by Tomabechi 2000/06/08 427;;; New variable. created by Tomabechi 2000/06/08
428(defconst tibetan-composite-vowel-alist 428(defconst tibetan-composite-vowel-alist
429 '(;; LONG A 429 '(;; LONG A
430 ;; ("$(7"R(B" . ((bc . tc) ?$(7"R(B)) 430 ;; ("$(7"R(B" . ((bc . tc) ?$(7"R(B))
@@ -604,7 +604,7 @@ This also matches some punctuation characters which need conversion.")
604(defvar tibetan-decomposed-temp nil) 604(defvar tibetan-decomposed-temp nil)
605 605
606;; For automatic composition. 606;; For automatic composition.
607(set-char-table-range 607(set-char-table-range
608 composition-function-table '(#xF00 . #xFD1) 608 composition-function-table '(#xF00 . #xFD1)
609 (list (vector tibetan-composable-pattern 0 'font-shape-gstring))) 609 (list (vector tibetan-composable-pattern 0 'font-shape-gstring)))
610 610
diff --git a/lisp/ldefs-boot.el b/lisp/ldefs-boot.el
index 7f595db4814..858cfa85a6f 100644
--- a/lisp/ldefs-boot.el
+++ b/lisp/ldefs-boot.el
@@ -5,7 +5,7 @@
5 5
6;;;### (autoloads (5x5-crack 5x5-crack-xor-mutate 5x5-crack-mutating-best 6;;;### (autoloads (5x5-crack 5x5-crack-xor-mutate 5x5-crack-mutating-best
7;;;;;; 5x5-crack-mutating-current 5x5-crack-randomly 5x5) "5x5" 7;;;;;; 5x5-crack-mutating-current 5x5-crack-randomly 5x5) "5x5"
8;;;;;; "play/5x5.el" (20119 34052)) 8;;;;;; "play/5x5.el" (20168 57844))
9;;; Generated autoloads from play/5x5.el 9;;; Generated autoloads from play/5x5.el
10 10
11(autoload '5x5 "5x5" "\ 11(autoload '5x5 "5x5" "\
@@ -68,7 +68,7 @@ should return a grid vector array that is the new solution.
68;;;*** 68;;;***
69 69
70;;;### (autoloads (ada-mode ada-add-extensions) "ada-mode" "progmodes/ada-mode.el" 70;;;### (autoloads (ada-mode ada-add-extensions) "ada-mode" "progmodes/ada-mode.el"
71;;;;;; (20119 34052)) 71;;;;;; (20178 7273))
72;;; Generated autoloads from progmodes/ada-mode.el 72;;; Generated autoloads from progmodes/ada-mode.el
73 73
74(autoload 'ada-add-extensions "ada-mode" "\ 74(autoload 'ada-add-extensions "ada-mode" "\
@@ -88,7 +88,7 @@ Ada mode is the major mode for editing Ada code.
88;;;*** 88;;;***
89 89
90;;;### (autoloads (ada-header) "ada-stmt" "progmodes/ada-stmt.el" 90;;;### (autoloads (ada-header) "ada-stmt" "progmodes/ada-stmt.el"
91;;;;;; (20119 34052)) 91;;;;;; (19845 45374))
92;;; Generated autoloads from progmodes/ada-stmt.el 92;;; Generated autoloads from progmodes/ada-stmt.el
93 93
94(autoload 'ada-header "ada-stmt" "\ 94(autoload 'ada-header "ada-stmt" "\
@@ -99,7 +99,7 @@ Insert a descriptive header at the top of the file.
99;;;*** 99;;;***
100 100
101;;;### (autoloads (ada-find-file) "ada-xref" "progmodes/ada-xref.el" 101;;;### (autoloads (ada-find-file) "ada-xref" "progmodes/ada-xref.el"
102;;;;;; (20140 44371)) 102;;;;;; (20176 51947))
103;;; Generated autoloads from progmodes/ada-xref.el 103;;; Generated autoloads from progmodes/ada-xref.el
104 104
105(autoload 'ada-find-file "ada-xref" "\ 105(autoload 'ada-find-file "ada-xref" "\
@@ -114,7 +114,7 @@ Completion is available.
114;;;;;; add-change-log-entry-other-window add-change-log-entry find-change-log 114;;;;;; add-change-log-entry-other-window add-change-log-entry find-change-log
115;;;;;; prompt-for-change-log-name add-log-mailing-address add-log-full-name 115;;;;;; prompt-for-change-log-name add-log-mailing-address add-log-full-name
116;;;;;; add-log-current-defun-function) "add-log" "vc/add-log.el" 116;;;;;; add-log-current-defun-function) "add-log" "vc/add-log.el"
117;;;;;; (20119 34052)) 117;;;;;; (20033 22846))
118;;; Generated autoloads from vc/add-log.el 118;;; Generated autoloads from vc/add-log.el
119 119
120(put 'change-log-default-name 'safe-local-variable 'string-or-null-p) 120(put 'change-log-default-name 'safe-local-variable 'string-or-null-p)
@@ -253,7 +253,7 @@ old-style time formats for entries are supported.
253 253
254;;;### (autoloads (defadvice ad-activate ad-add-advice ad-disable-advice 254;;;### (autoloads (defadvice ad-activate ad-add-advice ad-disable-advice
255;;;;;; ad-enable-advice ad-default-compilation-action ad-redefinition-action) 255;;;;;; ad-enable-advice ad-default-compilation-action ad-redefinition-action)
256;;;;;; "advice" "emacs-lisp/advice.el" (20119 34052)) 256;;;;;; "advice" "emacs-lisp/advice.el" (20179 28130))
257;;; Generated autoloads from emacs-lisp/advice.el 257;;; Generated autoloads from emacs-lisp/advice.el
258 258
259(defvar ad-redefinition-action 'warn "\ 259(defvar ad-redefinition-action 'warn "\
@@ -398,7 +398,7 @@ usage: (defadvice FUNCTION (CLASS NAME [POSITION] [ARGLIST] FLAG...)
398 398
399;;;### (autoloads (align-newline-and-indent align-unhighlight-rule 399;;;### (autoloads (align-newline-and-indent align-unhighlight-rule
400;;;;;; align-highlight-rule align-current align-entire align-regexp 400;;;;;; align-highlight-rule align-current align-entire align-regexp
401;;;;;; align) "align" "align.el" (20119 34052)) 401;;;;;; align) "align" "align.el" (20182 4358))
402;;; Generated autoloads from align.el 402;;; Generated autoloads from align.el
403 403
404(autoload 'align "align" "\ 404(autoload 'align "align" "\
@@ -489,7 +489,7 @@ A replacement function for `newline-and-indent', aligning as it goes.
489 489
490;;;### (autoloads (outlineify-sticky allout-mode allout-mode-p allout-auto-activation 490;;;### (autoloads (outlineify-sticky allout-mode allout-mode-p allout-auto-activation
491;;;;;; allout-setup allout-auto-activation-helper) "allout" "allout.el" 491;;;;;; allout-setup allout-auto-activation-helper) "allout" "allout.el"
492;;;;;; (20126 50779)) 492;;;;;; (20178 7273))
493;;; Generated autoloads from allout.el 493;;; Generated autoloads from allout.el
494 494
495(autoload 'allout-auto-activation-helper "allout" "\ 495(autoload 'allout-auto-activation-helper "allout" "\
@@ -500,7 +500,7 @@ Intended to be used as the `allout-auto-activation' :set function.
500\(fn VAR VALUE)" nil nil) 500\(fn VAR VALUE)" nil nil)
501 501
502(autoload 'allout-setup "allout" "\ 502(autoload 'allout-setup "allout" "\
503Do fundamental emacs session for allout auto-activation. 503Do fundamental Emacs session for allout auto-activation.
504 504
505Establishes allout processing as part of visiting a file if 505Establishes allout processing as part of visiting a file if
506`allout-auto-activation' is non-nil, or removes it otherwise. 506`allout-auto-activation' is non-nil, or removes it otherwise.
@@ -600,7 +600,7 @@ Below is a description of the key bindings, and then description
600of special `allout-mode' features and terminology. See also the 600of special `allout-mode' features and terminology. See also the
601outline menubar additions for quick reference to many of the 601outline menubar additions for quick reference to many of the
602features. Customize `allout-auto-activation' to prepare your 602features. Customize `allout-auto-activation' to prepare your
603emacs session for automatic activation of `allout-mode'. 603Emacs session for automatic activation of `allout-mode'.
604 604
605The bindings are those listed in `allout-prefixed-keybindings' 605The bindings are those listed in `allout-prefixed-keybindings'
606and `allout-unprefixed-keybindings'. We recommend customizing 606and `allout-unprefixed-keybindings'. We recommend customizing
@@ -648,7 +648,7 @@ the HOT-SPOT Operation section.
648\\[allout-rebullet-current-heading] `allout-rebullet-current-heading' Prompt for alternate bullet for 648\\[allout-rebullet-current-heading] `allout-rebullet-current-heading' Prompt for alternate bullet for
649 current topic 649 current topic
650\\[allout-rebullet-topic] `allout-rebullet-topic' Reconcile bullets of topic and 650\\[allout-rebullet-topic] `allout-rebullet-topic' Reconcile bullets of topic and
651 its' offspring -- distinctive bullets are not changed, others 651 its offspring -- distinctive bullets are not changed, others
652 are alternated according to nesting depth. 652 are alternated according to nesting depth.
653\\[allout-number-siblings] `allout-number-siblings' Number bullets of topic and siblings -- 653\\[allout-number-siblings] `allout-number-siblings' Number bullets of topic and siblings --
654 the offspring are not affected. 654 the offspring are not affected.
@@ -658,12 +658,12 @@ the HOT-SPOT Operation section.
658 ---------------------------------- 658 ----------------------------------
659\\[allout-kill-topic] `allout-kill-topic' Kill current topic, including offspring. 659\\[allout-kill-topic] `allout-kill-topic' Kill current topic, including offspring.
660\\[allout-copy-topic-as-kill] `allout-copy-topic-as-kill' Copy current topic, including offspring. 660\\[allout-copy-topic-as-kill] `allout-copy-topic-as-kill' Copy current topic, including offspring.
661\\[allout-kill-line] `allout-kill-line' kill-line, attending to outline structure. 661\\[allout-kill-line] `allout-kill-line' Kill line, attending to outline structure.
662\\[allout-copy-line-as-kill] `allout-copy-line-as-kill' Copy line but don't delete it. 662\\[allout-copy-line-as-kill] `allout-copy-line-as-kill' Copy line but don't delete it.
663\\[allout-yank] `allout-yank' Yank, adjusting depth of yanked topic to 663\\[allout-yank] `allout-yank' Yank, adjusting depth of yanked topic to
664 depth of heading if yanking into bare topic 664 depth of heading if yanking into bare topic
665 heading (ie, prefix sans text). 665 heading (ie, prefix sans text).
666\\[allout-yank-pop] `allout-yank-pop' Is to allout-yank as yank-pop is to yank 666\\[allout-yank-pop] `allout-yank-pop' Is to `allout-yank' as `yank-pop' is to `yank'.
667 667
668 Topic-oriented Encryption: 668 Topic-oriented Encryption:
669 ------------------------- 669 -------------------------
@@ -806,7 +806,7 @@ PREFIX-LEAD:
806 When the PREFIX-LEAD is set to the comment-string of a 806 When the PREFIX-LEAD is set to the comment-string of a
807 programming language, outline structuring can be embedded in 807 programming language, outline structuring can be embedded in
808 program code without interfering with processing of the text 808 program code without interfering with processing of the text
809 (by emacs or the language processor) as program code. This 809 (by Emacs or the language processor) as program code. This
810 setting happens automatically when allout mode is used in 810 setting happens automatically when allout mode is used in
811 programming-mode buffers. See `allout-use-mode-specific-leader' 811 programming-mode buffers. See `allout-use-mode-specific-leader'
812 docstring for more detail. 812 docstring for more detail.
@@ -818,8 +818,8 @@ BULLET: A character at the end of the ITEM PREFIX, it must be one of
818 `allout-distinctive-bullets-string'. When creating a TOPIC, 818 `allout-distinctive-bullets-string'. When creating a TOPIC,
819 plain BULLETs are by default used, according to the DEPTH of the 819 plain BULLETs are by default used, according to the DEPTH of the
820 TOPIC. Choice among the distinctive BULLETs is offered when you 820 TOPIC. Choice among the distinctive BULLETs is offered when you
821 provide a universal argugment (\\[universal-argument]) to the 821 provide a universal argument (\\[universal-argument]) to the
822 TOPIC creation command, or when explictly rebulleting a TOPIC. The 822 TOPIC creation command, or when explicitly rebulleting a TOPIC. The
823 significance of the various distinctive bullets is purely by 823 significance of the various distinctive bullets is purely by
824 convention. See the documentation for the above bullet strings for 824 convention. See the documentation for the above bullet strings for
825 more details. 825 more details.
@@ -842,7 +842,7 @@ OPEN: A TOPIC that is not CLOSED, though its OFFSPRING or BODY may be.
842Activate outline mode and establish file var so it is started subsequently. 842Activate outline mode and establish file var so it is started subsequently.
843 843
844See `allout-layout' and customization of `allout-auto-activation' 844See `allout-layout' and customization of `allout-auto-activation'
845for details on preparing emacs for automatic allout activation. 845for details on preparing Emacs for automatic allout activation.
846 846
847\(fn &optional ARG)" t nil) 847\(fn &optional ARG)" t nil)
848 848
@@ -850,7 +850,7 @@ for details on preparing emacs for automatic allout activation.
850 850
851;;;### (autoloads (allout-widgets-mode allout-widgets-auto-activation 851;;;### (autoloads (allout-widgets-mode allout-widgets-auto-activation
852;;;;;; allout-widgets-setup allout-widgets) "allout-widgets" "allout-widgets.el" 852;;;;;; allout-widgets-setup allout-widgets) "allout-widgets" "allout-widgets.el"
853;;;;;; (20126 50769)) 853;;;;;; (20167 36967))
854;;; Generated autoloads from allout-widgets.el 854;;; Generated autoloads from allout-widgets.el
855 855
856(let ((loads (get 'allout-widgets 'custom-loads))) (if (member '"allout-widgets" loads) nil (put 'allout-widgets 'custom-loads (cons '"allout-widgets" loads)))) 856(let ((loads (get 'allout-widgets 'custom-loads))) (if (member '"allout-widgets" loads) nil (put 'allout-widgets 'custom-loads (cons '"allout-widgets" loads))))
@@ -910,7 +910,7 @@ outline hot-spot navigation (see `allout-mode').
910;;;*** 910;;;***
911 911
912;;;### (autoloads (ange-ftp-hook-function ange-ftp-reread-dir) "ange-ftp" 912;;;### (autoloads (ange-ftp-hook-function ange-ftp-reread-dir) "ange-ftp"
913;;;;;; "net/ange-ftp.el" (20119 34052)) 913;;;;;; "net/ange-ftp.el" (20178 7273))
914;;; Generated autoloads from net/ange-ftp.el 914;;; Generated autoloads from net/ange-ftp.el
915 915
916(defalias 'ange-ftp-re-read-dir 'ange-ftp-reread-dir) 916(defalias 'ange-ftp-re-read-dir 'ange-ftp-reread-dir)
@@ -932,7 +932,7 @@ directory, so that Emacs will know its current contents.
932;;;*** 932;;;***
933 933
934;;;### (autoloads (animate-birthday-present animate-sequence animate-string) 934;;;### (autoloads (animate-birthday-present animate-sequence animate-string)
935;;;;;; "animate" "play/animate.el" (20119 34052)) 935;;;;;; "animate" "play/animate.el" (20164 60780))
936;;; Generated autoloads from play/animate.el 936;;; Generated autoloads from play/animate.el
937 937
938(autoload 'animate-string "animate" "\ 938(autoload 'animate-string "animate" "\
@@ -965,7 +965,7 @@ the buffer *Birthday-Present-for-Name*.
965;;;*** 965;;;***
966 966
967;;;### (autoloads (ansi-color-process-output ansi-color-for-comint-mode-on) 967;;;### (autoloads (ansi-color-process-output ansi-color-for-comint-mode-on)
968;;;;;; "ansi-color" "ansi-color.el" (20119 34052)) 968;;;;;; "ansi-color" "ansi-color.el" (20164 60780))
969;;; Generated autoloads from ansi-color.el 969;;; Generated autoloads from ansi-color.el
970 970
971(autoload 'ansi-color-for-comint-mode-on "ansi-color" "\ 971(autoload 'ansi-color-for-comint-mode-on "ansi-color" "\
@@ -991,7 +991,7 @@ This is a good function to put in `comint-output-filter-functions'.
991;;;*** 991;;;***
992 992
993;;;### (autoloads (antlr-set-tabs antlr-mode antlr-show-makefile-rules) 993;;;### (autoloads (antlr-set-tabs antlr-mode antlr-show-makefile-rules)
994;;;;;; "antlr-mode" "progmodes/antlr-mode.el" (20119 34052)) 994;;;;;; "antlr-mode" "progmodes/antlr-mode.el" (19890 42850))
995;;; Generated autoloads from progmodes/antlr-mode.el 995;;; Generated autoloads from progmodes/antlr-mode.el
996 996
997(autoload 'antlr-show-makefile-rules "antlr-mode" "\ 997(autoload 'antlr-show-makefile-rules "antlr-mode" "\
@@ -1027,7 +1027,7 @@ Used in `antlr-mode'. Also a useful function in `java-mode-hook'.
1027;;;*** 1027;;;***
1028 1028
1029;;;### (autoloads (appt-activate appt-add) "appt" "calendar/appt.el" 1029;;;### (autoloads (appt-activate appt-add) "appt" "calendar/appt.el"
1030;;;;;; (20119 34052)) 1030;;;;;; (19956 37456))
1031;;; Generated autoloads from calendar/appt.el 1031;;; Generated autoloads from calendar/appt.el
1032 1032
1033(autoload 'appt-add "appt" "\ 1033(autoload 'appt-add "appt" "\
@@ -1050,7 +1050,7 @@ ARG is positive, otherwise off.
1050 1050
1051;;;### (autoloads (apropos-documentation apropos-value apropos-library 1051;;;### (autoloads (apropos-documentation apropos-value apropos-library
1052;;;;;; apropos apropos-documentation-property apropos-command apropos-variable 1052;;;;;; apropos apropos-documentation-property apropos-command apropos-variable
1053;;;;;; apropos-read-pattern) "apropos" "apropos.el" (20119 34052)) 1053;;;;;; apropos-read-pattern) "apropos" "apropos.el" (20161 45793))
1054;;; Generated autoloads from apropos.el 1054;;; Generated autoloads from apropos.el
1055 1055
1056(autoload 'apropos-read-pattern "apropos" "\ 1056(autoload 'apropos-read-pattern "apropos" "\
@@ -1120,7 +1120,8 @@ Returns list of symbols and documentation found.
1120(autoload 'apropos-library "apropos" "\ 1120(autoload 'apropos-library "apropos" "\
1121List the variables and functions defined by library FILE. 1121List the variables and functions defined by library FILE.
1122FILE should be one of the libraries currently loaded and should 1122FILE should be one of the libraries currently loaded and should
1123thus be found in `load-history'. 1123thus be found in `load-history'. If `apropos-do-all' is non-nil,
1124the output includes key-bindings of commands.
1124 1125
1125\(fn FILE)" t nil) 1126\(fn FILE)" t nil)
1126 1127
@@ -1132,7 +1133,9 @@ search for matches for that word as a substring. If it is a list of words,
1132search for matches for any two (or more) of those words. 1133search for matches for any two (or more) of those words.
1133 1134
1134With \\[universal-argument] prefix, or if `apropos-do-all' is non-nil, also looks 1135With \\[universal-argument] prefix, or if `apropos-do-all' is non-nil, also looks
1135at the function and at the names and values of properties. 1136at function definitions (arguments, documentation and body) and at the
1137names and values of properties.
1138
1136Returns list of symbols and values found. 1139Returns list of symbols and values found.
1137 1140
1138\(fn PATTERN &optional DO-ALL)" t nil) 1141\(fn PATTERN &optional DO-ALL)" t nil)
@@ -1144,17 +1147,19 @@ or a regexp (using some regexp special characters). If it is a word,
1144search for matches for that word as a substring. If it is a list of words, 1147search for matches for that word as a substring. If it is a list of words,
1145search for matches for any two (or more) of those words. 1148search for matches for any two (or more) of those words.
1146 1149
1147With \\[universal-argument] prefix, or if `apropos-do-all' is non-nil, also use 1150Note that by default this command only searches in the file specified by
1148documentation that is not stored in the documentation file and show key 1151`internal-doc-file-name'; i.e., the etc/DOC file. With \\[universal-argument] prefix,
1149bindings. 1152or if `apropos-do-all' is non-nil, it searches all currently defined
1153documentation strings.
1154
1150Returns list of symbols and documentation found. 1155Returns list of symbols and documentation found.
1151 1156
1152\(fn PATTERN &optional DO-ALL)" t nil) 1157\(fn PATTERN &optional DO-ALL)" t nil)
1153 1158
1154;;;*** 1159;;;***
1155 1160
1156;;;### (autoloads (archive-mode) "arc-mode" "arc-mode.el" (20119 1161;;;### (autoloads (archive-mode) "arc-mode" "arc-mode.el" (20165
1157;;;;;; 34052)) 1162;;;;;; 31925))
1158;;; Generated autoloads from arc-mode.el 1163;;; Generated autoloads from arc-mode.el
1159 1164
1160(autoload 'archive-mode "arc-mode" "\ 1165(autoload 'archive-mode "arc-mode" "\
@@ -1174,7 +1179,7 @@ archive.
1174 1179
1175;;;*** 1180;;;***
1176 1181
1177;;;### (autoloads (array-mode) "array" "array.el" (20119 34052)) 1182;;;### (autoloads (array-mode) "array" "array.el" (19845 45374))
1178;;; Generated autoloads from array.el 1183;;; Generated autoloads from array.el
1179 1184
1180(autoload 'array-mode "array" "\ 1185(autoload 'array-mode "array" "\
@@ -1245,8 +1250,8 @@ Entering array mode calls the function `array-mode-hook'.
1245 1250
1246;;;*** 1251;;;***
1247 1252
1248;;;### (autoloads (artist-mode) "artist" "textmodes/artist.el" (20119 1253;;;### (autoloads (artist-mode) "artist" "textmodes/artist.el" (20172
1249;;;;;; 34052)) 1254;;;;;; 54913))
1250;;; Generated autoloads from textmodes/artist.el 1255;;; Generated autoloads from textmodes/artist.el
1251 1256
1252(autoload 'artist-mode "artist" "\ 1257(autoload 'artist-mode "artist" "\
@@ -1452,8 +1457,8 @@ Keymap summary
1452 1457
1453;;;*** 1458;;;***
1454 1459
1455;;;### (autoloads (asm-mode) "asm-mode" "progmodes/asm-mode.el" (20119 1460;;;### (autoloads (asm-mode) "asm-mode" "progmodes/asm-mode.el" (19890
1456;;;;;; 34052)) 1461;;;;;; 42850))
1457;;; Generated autoloads from progmodes/asm-mode.el 1462;;; Generated autoloads from progmodes/asm-mode.el
1458 1463
1459(autoload 'asm-mode "asm-mode" "\ 1464(autoload 'asm-mode "asm-mode" "\
@@ -1481,7 +1486,7 @@ Special commands:
1481;;;*** 1486;;;***
1482 1487
1483;;;### (autoloads (auth-source-cache-expiry) "auth-source" "gnus/auth-source.el" 1488;;;### (autoloads (auth-source-cache-expiry) "auth-source" "gnus/auth-source.el"
1484;;;;;; (20119 34052)) 1489;;;;;; (20089 47591))
1485;;; Generated autoloads from gnus/auth-source.el 1490;;; Generated autoloads from gnus/auth-source.el
1486 1491
1487(defvar auth-source-cache-expiry 7200 "\ 1492(defvar auth-source-cache-expiry 7200 "\
@@ -1494,7 +1499,7 @@ let-binding.")
1494;;;*** 1499;;;***
1495 1500
1496;;;### (autoloads (autoarg-kp-mode autoarg-mode) "autoarg" "autoarg.el" 1501;;;### (autoloads (autoarg-kp-mode autoarg-mode) "autoarg" "autoarg.el"
1497;;;;;; (20126 50800)) 1502;;;;;; (20127 62865))
1498;;; Generated autoloads from autoarg.el 1503;;; Generated autoloads from autoarg.el
1499 1504
1500(defvar autoarg-mode nil "\ 1505(defvar autoarg-mode nil "\
@@ -1555,7 +1560,7 @@ This is similar to `autoarg-mode' but rebinds the keypad keys
1555;;;*** 1560;;;***
1556 1561
1557;;;### (autoloads (autoconf-mode) "autoconf" "progmodes/autoconf.el" 1562;;;### (autoloads (autoconf-mode) "autoconf" "progmodes/autoconf.el"
1558;;;;;; (20119 34052)) 1563;;;;;; (20163 39903))
1559;;; Generated autoloads from progmodes/autoconf.el 1564;;; Generated autoloads from progmodes/autoconf.el
1560 1565
1561(autoload 'autoconf-mode "autoconf" "\ 1566(autoload 'autoconf-mode "autoconf" "\
@@ -1566,7 +1571,7 @@ Major mode for editing Autoconf configure.in files.
1566;;;*** 1571;;;***
1567 1572
1568;;;### (autoloads (auto-insert-mode define-auto-insert auto-insert) 1573;;;### (autoloads (auto-insert-mode define-auto-insert auto-insert)
1569;;;;;; "autoinsert" "autoinsert.el" (20126 50812)) 1574;;;;;; "autoinsert" "autoinsert.el" (20127 62865))
1570;;; Generated autoloads from autoinsert.el 1575;;; Generated autoloads from autoinsert.el
1571 1576
1572(autoload 'auto-insert "autoinsert" "\ 1577(autoload 'auto-insert "autoinsert" "\
@@ -1606,7 +1611,7 @@ insert a template for the file depending on the mode of the buffer.
1606 1611
1607;;;### (autoloads (batch-update-autoloads update-directory-autoloads 1612;;;### (autoloads (batch-update-autoloads update-directory-autoloads
1608;;;;;; update-file-autoloads) "autoload" "emacs-lisp/autoload.el" 1613;;;;;; update-file-autoloads) "autoload" "emacs-lisp/autoload.el"
1609;;;;;; (20119 34052)) 1614;;;;;; (20173 35732))
1610;;; Generated autoloads from emacs-lisp/autoload.el 1615;;; Generated autoloads from emacs-lisp/autoload.el
1611 1616
1612(put 'generated-autoload-file 'safe-local-variable 'stringp) 1617(put 'generated-autoload-file 'safe-local-variable 'stringp)
@@ -1657,7 +1662,7 @@ should be non-nil).
1657 1662
1658;;;### (autoloads (global-auto-revert-mode turn-on-auto-revert-tail-mode 1663;;;### (autoloads (global-auto-revert-mode turn-on-auto-revert-tail-mode
1659;;;;;; auto-revert-tail-mode turn-on-auto-revert-mode auto-revert-mode) 1664;;;;;; auto-revert-tail-mode turn-on-auto-revert-mode auto-revert-mode)
1660;;;;;; "autorevert" "autorevert.el" (20126 50846)) 1665;;;;;; "autorevert" "autorevert.el" (20168 57844))
1661;;; Generated autoloads from autorevert.el 1666;;; Generated autoloads from autorevert.el
1662 1667
1663(autoload 'auto-revert-mode "autorevert" "\ 1668(autoload 'auto-revert-mode "autorevert" "\
@@ -1746,7 +1751,7 @@ specifies in the mode line.
1746;;;*** 1751;;;***
1747 1752
1748;;;### (autoloads (mouse-avoidance-mode mouse-avoidance-mode) "avoid" 1753;;;### (autoloads (mouse-avoidance-mode mouse-avoidance-mode) "avoid"
1749;;;;;; "avoid.el" (20119 34052)) 1754;;;;;; "avoid.el" (19845 45374))
1750;;; Generated autoloads from avoid.el 1755;;; Generated autoloads from avoid.el
1751 1756
1752(defvar mouse-avoidance-mode nil "\ 1757(defvar mouse-avoidance-mode nil "\
@@ -1787,7 +1792,7 @@ definition of \"random distance\".)
1787;;;*** 1792;;;***
1788 1793
1789;;;### (autoloads (display-battery-mode battery) "battery" "battery.el" 1794;;;### (autoloads (display-battery-mode battery) "battery" "battery.el"
1790;;;;;; (20126 50857)) 1795;;;;;; (20127 62865))
1791;;; Generated autoloads from battery.el 1796;;; Generated autoloads from battery.el
1792 (put 'battery-mode-line-string 'risky-local-variable t) 1797 (put 'battery-mode-line-string 'risky-local-variable t)
1793 1798
@@ -1823,7 +1828,7 @@ seconds.
1823;;;*** 1828;;;***
1824 1829
1825;;;### (autoloads (benchmark benchmark-run-compiled benchmark-run) 1830;;;### (autoloads (benchmark benchmark-run-compiled benchmark-run)
1826;;;;;; "benchmark" "emacs-lisp/benchmark.el" (20119 34052)) 1831;;;;;; "benchmark" "emacs-lisp/benchmark.el" (19981 40664))
1827;;; Generated autoloads from emacs-lisp/benchmark.el 1832;;; Generated autoloads from emacs-lisp/benchmark.el
1828 1833
1829(autoload 'benchmark-run "benchmark" "\ 1834(autoload 'benchmark-run "benchmark" "\
@@ -1856,7 +1861,7 @@ For non-interactive use see also `benchmark-run' and
1856;;;*** 1861;;;***
1857 1862
1858;;;### (autoloads (bibtex-search-entry bibtex-mode bibtex-initialize) 1863;;;### (autoloads (bibtex-search-entry bibtex-mode bibtex-initialize)
1859;;;;;; "bibtex" "textmodes/bibtex.el" (20119 34052)) 1864;;;;;; "bibtex" "textmodes/bibtex.el" (20174 10230))
1860;;; Generated autoloads from textmodes/bibtex.el 1865;;; Generated autoloads from textmodes/bibtex.el
1861 1866
1862(autoload 'bibtex-initialize "bibtex" "\ 1867(autoload 'bibtex-initialize "bibtex" "\
@@ -1945,7 +1950,7 @@ A prefix arg negates the value of `bibtex-search-entry-globally'.
1945;;;*** 1950;;;***
1946 1951
1947;;;### (autoloads (bibtex-style-mode) "bibtex-style" "textmodes/bibtex-style.el" 1952;;;### (autoloads (bibtex-style-mode) "bibtex-style" "textmodes/bibtex-style.el"
1948;;;;;; (20119 34052)) 1953;;;;;; (19863 8742))
1949;;; Generated autoloads from textmodes/bibtex-style.el 1954;;; Generated autoloads from textmodes/bibtex-style.el
1950 1955
1951(autoload 'bibtex-style-mode "bibtex-style" "\ 1956(autoload 'bibtex-style-mode "bibtex-style" "\
@@ -1957,10 +1962,11 @@ Major mode for editing BibTeX style files.
1957 1962
1958;;;### (autoloads (binhex-decode-region binhex-decode-region-external 1963;;;### (autoloads (binhex-decode-region binhex-decode-region-external
1959;;;;;; binhex-decode-region-internal) "binhex" "mail/binhex.el" 1964;;;;;; binhex-decode-region-internal) "binhex" "mail/binhex.el"
1960;;;;;; (20119 34052)) 1965;;;;;; (20174 10230))
1961;;; Generated autoloads from mail/binhex.el 1966;;; Generated autoloads from mail/binhex.el
1962 1967
1963(defconst binhex-begin-line "^:...............................................................$") 1968(defconst binhex-begin-line "^:...............................................................$" "\
1969Regular expression matching the start of a BinHex encoded region.")
1964 1970
1965(autoload 'binhex-decode-region-internal "binhex" "\ 1971(autoload 'binhex-decode-region-internal "binhex" "\
1966Binhex decode region between START and END without using an external program. 1972Binhex decode region between START and END without using an external program.
@@ -1980,8 +1986,8 @@ Binhex decode region between START and END.
1980 1986
1981;;;*** 1987;;;***
1982 1988
1983;;;### (autoloads (blackbox) "blackbox" "play/blackbox.el" (20119 1989;;;### (autoloads (blackbox) "blackbox" "play/blackbox.el" (19845
1984;;;;;; 34052)) 1990;;;;;; 45374))
1985;;; Generated autoloads from play/blackbox.el 1991;;; Generated autoloads from play/blackbox.el
1986 1992
1987(autoload 'blackbox "blackbox" "\ 1993(autoload 'blackbox "blackbox" "\
@@ -2104,7 +2110,7 @@ a reflection.
2104;;;;;; bookmark-save bookmark-write bookmark-delete bookmark-insert 2110;;;;;; bookmark-save bookmark-write bookmark-delete bookmark-insert
2105;;;;;; bookmark-rename bookmark-insert-location bookmark-relocate 2111;;;;;; bookmark-rename bookmark-insert-location bookmark-relocate
2106;;;;;; bookmark-jump-other-window bookmark-jump bookmark-set) "bookmark" 2112;;;;;; bookmark-jump-other-window bookmark-jump bookmark-set) "bookmark"
2107;;;;;; "bookmark.el" (20119 34052)) 2113;;;;;; "bookmark.el" (20178 7273))
2108;;; Generated autoloads from bookmark.el 2114;;; Generated autoloads from bookmark.el
2109 (define-key ctl-x-r-map "b" 'bookmark-jump) 2115 (define-key ctl-x-r-map "b" 'bookmark-jump)
2110 (define-key ctl-x-r-map "m" 'bookmark-set) 2116 (define-key ctl-x-r-map "m" 'bookmark-set)
@@ -2305,7 +2311,7 @@ Incremental search of bookmarks, hiding the non-matches as we go.
2305;;;;;; browse-url-xdg-open browse-url-at-mouse browse-url-at-point 2311;;;;;; browse-url-xdg-open browse-url-at-mouse browse-url-at-point
2306;;;;;; browse-url browse-url-of-region browse-url-of-dired-file 2312;;;;;; browse-url browse-url-of-region browse-url-of-dired-file
2307;;;;;; browse-url-of-buffer browse-url-of-file browse-url-browser-function) 2313;;;;;; browse-url-of-buffer browse-url-of-file browse-url-browser-function)
2308;;;;;; "browse-url" "net/browse-url.el" (20126 51279)) 2314;;;;;; "browse-url" "net/browse-url.el" (20168 57844))
2309;;; Generated autoloads from net/browse-url.el 2315;;; Generated autoloads from net/browse-url.el
2310 2316
2311(defvar browse-url-browser-function 'browse-url-default-browser "\ 2317(defvar browse-url-browser-function 'browse-url-default-browser "\
@@ -2618,8 +2624,8 @@ from `browse-url-elinks-wrapper'.
2618 2624
2619;;;*** 2625;;;***
2620 2626
2621;;;### (autoloads (snarf-bruces bruce) "bruce" "play/bruce.el" (20119 2627;;;### (autoloads (snarf-bruces bruce) "bruce" "play/bruce.el" (20165
2622;;;;;; 34052)) 2628;;;;;; 31925))
2623;;; Generated autoloads from play/bruce.el 2629;;; Generated autoloads from play/bruce.el
2624 2630
2625(autoload 'bruce "bruce" "\ 2631(autoload 'bruce "bruce" "\
@@ -2635,7 +2641,7 @@ Return a vector containing the lines from `bruce-phrases-file'.
2635;;;*** 2641;;;***
2636 2642
2637;;;### (autoloads (bs-show bs-customize bs-cycle-previous bs-cycle-next) 2643;;;### (autoloads (bs-show bs-customize bs-cycle-previous bs-cycle-next)
2638;;;;;; "bs" "bs.el" (20140 44207)) 2644;;;;;; "bs" "bs.el" (20161 45793))
2639;;; Generated autoloads from bs.el 2645;;; Generated autoloads from bs.el
2640 2646
2641(autoload 'bs-cycle-next "bs" "\ 2647(autoload 'bs-cycle-next "bs" "\
@@ -2675,7 +2681,7 @@ name of buffer configuration.
2675 2681
2676;;;*** 2682;;;***
2677 2683
2678;;;### (autoloads (bubbles) "bubbles" "play/bubbles.el" (20119 34052)) 2684;;;### (autoloads (bubbles) "bubbles" "play/bubbles.el" (20166 16092))
2679;;; Generated autoloads from play/bubbles.el 2685;;; Generated autoloads from play/bubbles.el
2680 2686
2681(autoload 'bubbles "bubbles" "\ 2687(autoload 'bubbles "bubbles" "\
@@ -2697,7 +2703,7 @@ columns on its right towards the left.
2697;;;*** 2703;;;***
2698 2704
2699;;;### (autoloads (bug-reference-prog-mode bug-reference-mode) "bug-reference" 2705;;;### (autoloads (bug-reference-prog-mode bug-reference-mode) "bug-reference"
2700;;;;;; "progmodes/bug-reference.el" (20127 25733)) 2706;;;;;; "progmodes/bug-reference.el" (20127 62865))
2701;;; Generated autoloads from progmodes/bug-reference.el 2707;;; Generated autoloads from progmodes/bug-reference.el
2702 2708
2703(put 'bug-reference-url-format 'safe-local-variable (lambda (s) (or (stringp s) (and (symbolp s) (get s 'bug-reference-url-format))))) 2709(put 'bug-reference-url-format 'safe-local-variable (lambda (s) (or (stringp s) (and (symbolp s) (get s 'bug-reference-url-format)))))
@@ -2721,7 +2727,7 @@ Like `bug-reference-mode', but only buttonize in comments and strings.
2721;;;;;; batch-byte-compile-if-not-done display-call-tree byte-compile 2727;;;;;; batch-byte-compile-if-not-done display-call-tree byte-compile
2722;;;;;; compile-defun byte-compile-file byte-recompile-directory 2728;;;;;; compile-defun byte-compile-file byte-recompile-directory
2723;;;;;; byte-force-recompile byte-compile-enable-warning byte-compile-disable-warning) 2729;;;;;; byte-force-recompile byte-compile-enable-warning byte-compile-disable-warning)
2724;;;;;; "bytecomp" "emacs-lisp/bytecomp.el" (20119 34052)) 2730;;;;;; "bytecomp" "emacs-lisp/bytecomp.el" (20178 7273))
2725;;; Generated autoloads from emacs-lisp/bytecomp.el 2731;;; Generated autoloads from emacs-lisp/bytecomp.el
2726(put 'byte-compile-dynamic 'safe-local-variable 'booleanp) 2732(put 'byte-compile-dynamic 'safe-local-variable 'booleanp)
2727(put 'byte-compile-disable-print-circle 'safe-local-variable 'booleanp) 2733(put 'byte-compile-disable-print-circle 'safe-local-variable 'booleanp)
@@ -2841,8 +2847,8 @@ and corresponding effects.
2841 2847
2842;;;*** 2848;;;***
2843 2849
2844;;;### (autoloads nil "cal-china" "calendar/cal-china.el" (20119 2850;;;### (autoloads nil "cal-china" "calendar/cal-china.el" (19885
2845;;;;;; 34052)) 2851;;;;;; 24894))
2846;;; Generated autoloads from calendar/cal-china.el 2852;;; Generated autoloads from calendar/cal-china.el
2847 2853
2848(put 'calendar-chinese-time-zone 'risky-local-variable t) 2854(put 'calendar-chinese-time-zone 'risky-local-variable t)
@@ -2851,7 +2857,7 @@ and corresponding effects.
2851 2857
2852;;;*** 2858;;;***
2853 2859
2854;;;### (autoloads nil "cal-dst" "calendar/cal-dst.el" (20119 34052)) 2860;;;### (autoloads nil "cal-dst" "calendar/cal-dst.el" (19885 24894))
2855;;; Generated autoloads from calendar/cal-dst.el 2861;;; Generated autoloads from calendar/cal-dst.el
2856 2862
2857(put 'calendar-daylight-savings-starts 'risky-local-variable t) 2863(put 'calendar-daylight-savings-starts 'risky-local-variable t)
@@ -2863,7 +2869,7 @@ and corresponding effects.
2863;;;*** 2869;;;***
2864 2870
2865;;;### (autoloads (calendar-hebrew-list-yahrzeits) "cal-hebrew" "calendar/cal-hebrew.el" 2871;;;### (autoloads (calendar-hebrew-list-yahrzeits) "cal-hebrew" "calendar/cal-hebrew.el"
2866;;;;;; (20119 34052)) 2872;;;;;; (19885 24894))
2867;;; Generated autoloads from calendar/cal-hebrew.el 2873;;; Generated autoloads from calendar/cal-hebrew.el
2868 2874
2869(autoload 'calendar-hebrew-list-yahrzeits "cal-hebrew" "\ 2875(autoload 'calendar-hebrew-list-yahrzeits "cal-hebrew" "\
@@ -2879,8 +2885,8 @@ from the cursor position.
2879 2885
2880;;;### (autoloads (defmath calc-embedded-activate calc-embedded calc-grab-rectangle 2886;;;### (autoloads (defmath calc-embedded-activate calc-embedded calc-grab-rectangle
2881;;;;;; calc-grab-region full-calc-keypad calc-keypad calc-eval quick-calc 2887;;;;;; calc-grab-region full-calc-keypad calc-keypad calc-eval quick-calc
2882;;;;;; full-calc calc calc-dispatch) "calc" "calc/calc.el" (20119 2888;;;;;; full-calc calc calc-dispatch) "calc" "calc/calc.el" (20172
2883;;;;;; 34052)) 2889;;;;;; 54913))
2884;;; Generated autoloads from calc/calc.el 2890;;; Generated autoloads from calc/calc.el
2885 (define-key ctl-x-map "*" 'calc-dispatch) 2891 (define-key ctl-x-map "*" 'calc-dispatch)
2886 2892
@@ -2964,8 +2970,8 @@ See Info node `(calc)Defining Functions'.
2964 2970
2965;;;*** 2971;;;***
2966 2972
2967;;;### (autoloads (calc-undo) "calc-undo" "calc/calc-undo.el" (20119 2973;;;### (autoloads (calc-undo) "calc-undo" "calc/calc-undo.el" (19845
2968;;;;;; 34052)) 2974;;;;;; 45374))
2969;;; Generated autoloads from calc/calc-undo.el 2975;;; Generated autoloads from calc/calc-undo.el
2970 2976
2971(autoload 'calc-undo "calc-undo" "\ 2977(autoload 'calc-undo "calc-undo" "\
@@ -2975,8 +2981,8 @@ See Info node `(calc)Defining Functions'.
2975 2981
2976;;;*** 2982;;;***
2977 2983
2978;;;### (autoloads (calculator) "calculator" "calculator.el" (20140 2984;;;### (autoloads (calculator) "calculator" "calculator.el" (20141
2979;;;;;; 44219)) 2985;;;;;; 9296))
2980;;; Generated autoloads from calculator.el 2986;;; Generated autoloads from calculator.el
2981 2987
2982(autoload 'calculator "calculator" "\ 2988(autoload 'calculator "calculator" "\
@@ -2988,7 +2994,7 @@ See the documentation for `calculator-mode' for more information.
2988;;;*** 2994;;;***
2989 2995
2990;;;### (autoloads (calendar) "calendar" "calendar/calendar.el" (20141 2996;;;### (autoloads (calendar) "calendar" "calendar/calendar.el" (20141
2991;;;;;; 25678)) 2997;;;;;; 9296))
2992;;; Generated autoloads from calendar/calendar.el 2998;;; Generated autoloads from calendar/calendar.el
2993 2999
2994(autoload 'calendar "calendar" "\ 3000(autoload 'calendar "calendar" "\
@@ -3032,7 +3038,7 @@ This function is suitable for execution in a .emacs file.
3032;;;*** 3038;;;***
3033 3039
3034;;;### (autoloads (canlock-verify canlock-insert-header) "canlock" 3040;;;### (autoloads (canlock-verify canlock-insert-header) "canlock"
3035;;;;;; "gnus/canlock.el" (20119 34052)) 3041;;;;;; "gnus/canlock.el" (19845 45374))
3036;;; Generated autoloads from gnus/canlock.el 3042;;; Generated autoloads from gnus/canlock.el
3037 3043
3038(autoload 'canlock-insert-header "canlock" "\ 3044(autoload 'canlock-insert-header "canlock" "\
@@ -3050,7 +3056,7 @@ it fails.
3050;;;*** 3056;;;***
3051 3057
3052;;;### (autoloads (capitalized-words-mode) "cap-words" "progmodes/cap-words.el" 3058;;;### (autoloads (capitalized-words-mode) "cap-words" "progmodes/cap-words.el"
3053;;;;;; (20127 25639)) 3059;;;;;; (20127 62865))
3054;;; Generated autoloads from progmodes/cap-words.el 3060;;; Generated autoloads from progmodes/cap-words.el
3055 3061
3056(autoload 'capitalized-words-mode "cap-words" "\ 3062(autoload 'capitalized-words-mode "cap-words" "\
@@ -3089,15 +3095,15 @@ Obsoletes `c-forward-into-nomenclature'.
3089 3095
3090;;;*** 3096;;;***
3091 3097
3092;;;### (autoloads nil "cc-compat" "progmodes/cc-compat.el" (20119 3098;;;### (autoloads nil "cc-compat" "progmodes/cc-compat.el" (19845
3093;;;;;; 34052)) 3099;;;;;; 45374))
3094;;; Generated autoloads from progmodes/cc-compat.el 3100;;; Generated autoloads from progmodes/cc-compat.el
3095(put 'c-indent-level 'safe-local-variable 'integerp) 3101(put 'c-indent-level 'safe-local-variable 'integerp)
3096 3102
3097;;;*** 3103;;;***
3098 3104
3099;;;### (autoloads (c-guess-basic-syntax) "cc-engine" "progmodes/cc-engine.el" 3105;;;### (autoloads (c-guess-basic-syntax) "cc-engine" "progmodes/cc-engine.el"
3100;;;;;; (20139 28158)) 3106;;;;;; (20172 54913))
3101;;; Generated autoloads from progmodes/cc-engine.el 3107;;; Generated autoloads from progmodes/cc-engine.el
3102 3108
3103(autoload 'c-guess-basic-syntax "cc-engine" "\ 3109(autoload 'c-guess-basic-syntax "cc-engine" "\
@@ -3109,7 +3115,7 @@ Return the syntactic context of the current line.
3109 3115
3110;;;### (autoloads (c-guess-install c-guess-region-no-install c-guess-region 3116;;;### (autoloads (c-guess-install c-guess-region-no-install c-guess-region
3111;;;;;; c-guess-buffer-no-install c-guess-buffer c-guess-no-install 3117;;;;;; c-guess-buffer-no-install c-guess-buffer c-guess-no-install
3112;;;;;; c-guess) "cc-guess" "progmodes/cc-guess.el" (20119 34052)) 3118;;;;;; c-guess) "cc-guess" "progmodes/cc-guess.el" (19981 40664))
3113;;; Generated autoloads from progmodes/cc-guess.el 3119;;; Generated autoloads from progmodes/cc-guess.el
3114 3120
3115(defvar c-guess-guessed-offsets-alist nil "\ 3121(defvar c-guess-guessed-offsets-alist nil "\
@@ -3209,7 +3215,7 @@ the absolute file name of the file if STYLE-NAME is nil.
3209 3215
3210;;;### (autoloads (awk-mode pike-mode idl-mode java-mode objc-mode 3216;;;### (autoloads (awk-mode pike-mode idl-mode java-mode objc-mode
3211;;;;;; c++-mode c-mode c-initialize-cc-mode) "cc-mode" "progmodes/cc-mode.el" 3217;;;;;; c++-mode c-mode c-initialize-cc-mode) "cc-mode" "progmodes/cc-mode.el"
3212;;;;;; (20138 48832)) 3218;;;;;; (20168 57844))
3213;;; Generated autoloads from progmodes/cc-mode.el 3219;;; Generated autoloads from progmodes/cc-mode.el
3214 3220
3215(autoload 'c-initialize-cc-mode "cc-mode" "\ 3221(autoload 'c-initialize-cc-mode "cc-mode" "\
@@ -3386,7 +3392,7 @@ Key bindings:
3386;;;*** 3392;;;***
3387 3393
3388;;;### (autoloads (c-set-offset c-add-style c-set-style) "cc-styles" 3394;;;### (autoloads (c-set-offset c-add-style c-set-style) "cc-styles"
3389;;;;;; "progmodes/cc-styles.el" (20119 34052)) 3395;;;;;; "progmodes/cc-styles.el" (19981 40664))
3390;;; Generated autoloads from progmodes/cc-styles.el 3396;;; Generated autoloads from progmodes/cc-styles.el
3391 3397
3392(autoload 'c-set-style "cc-styles" "\ 3398(autoload 'c-set-style "cc-styles" "\
@@ -3437,7 +3443,7 @@ and exists only for compatibility reasons.
3437 3443
3438;;;*** 3444;;;***
3439 3445
3440;;;### (autoloads nil "cc-vars" "progmodes/cc-vars.el" (20139 28158)) 3446;;;### (autoloads nil "cc-vars" "progmodes/cc-vars.el" (20167 36967))
3441;;; Generated autoloads from progmodes/cc-vars.el 3447;;; Generated autoloads from progmodes/cc-vars.el
3442(put 'c-basic-offset 'safe-local-variable 'integerp) 3448(put 'c-basic-offset 'safe-local-variable 'integerp)
3443(put 'c-backslash-column 'safe-local-variable 'integerp) 3449(put 'c-backslash-column 'safe-local-variable 'integerp)
@@ -3447,7 +3453,7 @@ and exists only for compatibility reasons.
3447 3453
3448;;;### (autoloads (ccl-execute-with-args check-ccl-program define-ccl-program 3454;;;### (autoloads (ccl-execute-with-args check-ccl-program define-ccl-program
3449;;;;;; declare-ccl-program ccl-dump ccl-compile) "ccl" "international/ccl.el" 3455;;;;;; declare-ccl-program ccl-dump ccl-compile) "ccl" "international/ccl.el"
3450;;;;;; (20119 34052)) 3456;;;;;; (19943 25429))
3451;;; Generated autoloads from international/ccl.el 3457;;; Generated autoloads from international/ccl.el
3452 3458
3453(autoload 'ccl-compile "ccl" "\ 3459(autoload 'ccl-compile "ccl" "\
@@ -3708,7 +3714,7 @@ See the documentation of `define-ccl-program' for the detail of CCL program.
3708;;;*** 3714;;;***
3709 3715
3710;;;### (autoloads (cconv-closure-convert) "cconv" "emacs-lisp/cconv.el" 3716;;;### (autoloads (cconv-closure-convert) "cconv" "emacs-lisp/cconv.el"
3711;;;;;; (20119 34052)) 3717;;;;;; (20178 7273))
3712;;; Generated autoloads from emacs-lisp/cconv.el 3718;;; Generated autoloads from emacs-lisp/cconv.el
3713 3719
3714(autoload 'cconv-closure-convert "cconv" "\ 3720(autoload 'cconv-closure-convert "cconv" "\
@@ -3723,7 +3729,7 @@ Returns a form where all lambdas don't have any free variables.
3723;;;*** 3729;;;***
3724 3730
3725;;;### (autoloads (cfengine-auto-mode cfengine-mode cfengine3-mode) 3731;;;### (autoloads (cfengine-auto-mode cfengine-mode cfengine3-mode)
3726;;;;;; "cfengine" "progmodes/cfengine.el" (20119 34052)) 3732;;;;;; "cfengine" "progmodes/cfengine.el" (20168 57844))
3727;;; Generated autoloads from progmodes/cfengine.el 3733;;; Generated autoloads from progmodes/cfengine.el
3728 3734
3729(autoload 'cfengine3-mode "cfengine" "\ 3735(autoload 'cfengine3-mode "cfengine" "\
@@ -3753,7 +3759,7 @@ on the buffer contents
3753;;;*** 3759;;;***
3754 3760
3755;;;### (autoloads (check-declare-directory check-declare-file) "check-declare" 3761;;;### (autoloads (check-declare-directory check-declare-file) "check-declare"
3756;;;;;; "emacs-lisp/check-declare.el" (20119 34052)) 3762;;;;;; "emacs-lisp/check-declare.el" (19906 31087))
3757;;; Generated autoloads from emacs-lisp/check-declare.el 3763;;; Generated autoloads from emacs-lisp/check-declare.el
3758 3764
3759(autoload 'check-declare-file "check-declare" "\ 3765(autoload 'check-declare-file "check-declare" "\
@@ -3778,7 +3784,7 @@ Returns non-nil if any false statements are found.
3778;;;;;; checkdoc-comments checkdoc-continue checkdoc-start checkdoc-current-buffer 3784;;;;;; checkdoc-comments checkdoc-continue checkdoc-start checkdoc-current-buffer
3779;;;;;; checkdoc-eval-current-buffer checkdoc-message-interactive 3785;;;;;; checkdoc-eval-current-buffer checkdoc-message-interactive
3780;;;;;; checkdoc-interactive checkdoc checkdoc-list-of-strings-p) 3786;;;;;; checkdoc-interactive checkdoc checkdoc-list-of-strings-p)
3781;;;;;; "checkdoc" "emacs-lisp/checkdoc.el" (20127 23374)) 3787;;;;;; "checkdoc" "emacs-lisp/checkdoc.el" (20168 57844))
3782;;; Generated autoloads from emacs-lisp/checkdoc.el 3788;;; Generated autoloads from emacs-lisp/checkdoc.el
3783(put 'checkdoc-force-docstrings-flag 'safe-local-variable 'booleanp) 3789(put 'checkdoc-force-docstrings-flag 'safe-local-variable 'booleanp)
3784(put 'checkdoc-force-history-flag 'safe-local-variable 'booleanp) 3790(put 'checkdoc-force-history-flag 'safe-local-variable 'booleanp)
@@ -3974,7 +3980,7 @@ checking of documentation strings.
3974 3980
3975;;;### (autoloads (pre-write-encode-hz post-read-decode-hz encode-hz-buffer 3981;;;### (autoloads (pre-write-encode-hz post-read-decode-hz encode-hz-buffer
3976;;;;;; encode-hz-region decode-hz-buffer decode-hz-region) "china-util" 3982;;;;;; encode-hz-region decode-hz-buffer decode-hz-region) "china-util"
3977;;;;;; "language/china-util.el" (20119 34052)) 3983;;;;;; "language/china-util.el" (19845 45374))
3978;;; Generated autoloads from language/china-util.el 3984;;; Generated autoloads from language/china-util.el
3979 3985
3980(autoload 'decode-hz-region "china-util" "\ 3986(autoload 'decode-hz-region "china-util" "\
@@ -4012,7 +4018,7 @@ Encode the text in the current buffer to HZ.
4012;;;*** 4018;;;***
4013 4019
4014;;;### (autoloads (command-history list-command-history repeat-matching-complex-command) 4020;;;### (autoloads (command-history list-command-history repeat-matching-complex-command)
4015;;;;;; "chistory" "chistory.el" (20119 34052)) 4021;;;;;; "chistory" "chistory.el" (19845 45374))
4016;;; Generated autoloads from chistory.el 4022;;; Generated autoloads from chistory.el
4017 4023
4018(autoload 'repeat-matching-complex-command "chistory" "\ 4024(autoload 'repeat-matching-complex-command "chistory" "\
@@ -4051,7 +4057,7 @@ and runs the normal hook `command-history-hook'.
4051 4057
4052;;;*** 4058;;;***
4053 4059
4054;;;### (autoloads nil "cl" "emacs-lisp/cl.el" (20138 48832)) 4060;;;### (autoloads nil "cl" "emacs-lisp/cl.el" (20137 45833))
4055;;; Generated autoloads from emacs-lisp/cl.el 4061;;; Generated autoloads from emacs-lisp/cl.el
4056 4062
4057(defvar custom-print-functions nil "\ 4063(defvar custom-print-functions nil "\
@@ -4067,7 +4073,7 @@ a future Emacs interpreter will be able to use it.")
4067;;;*** 4073;;;***
4068 4074
4069;;;### (autoloads (common-lisp-indent-function) "cl-indent" "emacs-lisp/cl-indent.el" 4075;;;### (autoloads (common-lisp-indent-function) "cl-indent" "emacs-lisp/cl-indent.el"
4070;;;;;; (20119 34052)) 4076;;;;;; (20170 64186))
4071;;; Generated autoloads from emacs-lisp/cl-indent.el 4077;;; Generated autoloads from emacs-lisp/cl-indent.el
4072 4078
4073(autoload 'common-lisp-indent-function "cl-indent" "\ 4079(autoload 'common-lisp-indent-function "cl-indent" "\
@@ -4146,7 +4152,7 @@ For example, the function `case' has an indent property
4146;;;*** 4152;;;***
4147 4153
4148;;;### (autoloads (c-macro-expand) "cmacexp" "progmodes/cmacexp.el" 4154;;;### (autoloads (c-macro-expand) "cmacexp" "progmodes/cmacexp.el"
4149;;;;;; (20119 34052)) 4155;;;;;; (19845 45374))
4150;;; Generated autoloads from progmodes/cmacexp.el 4156;;; Generated autoloads from progmodes/cmacexp.el
4151 4157
4152(autoload 'c-macro-expand "cmacexp" "\ 4158(autoload 'c-macro-expand "cmacexp" "\
@@ -4166,8 +4172,8 @@ For use inside Lisp programs, see also `c-macro-expansion'.
4166 4172
4167;;;*** 4173;;;***
4168 4174
4169;;;### (autoloads (run-scheme) "cmuscheme" "cmuscheme.el" (20119 4175;;;### (autoloads (run-scheme) "cmuscheme" "cmuscheme.el" (20092
4170;;;;;; 34052)) 4176;;;;;; 23754))
4171;;; Generated autoloads from cmuscheme.el 4177;;; Generated autoloads from cmuscheme.el
4172 4178
4173(autoload 'run-scheme "cmuscheme" "\ 4179(autoload 'run-scheme "cmuscheme" "\
@@ -4187,7 +4193,7 @@ is run).
4187 4193
4188;;;*** 4194;;;***
4189 4195
4190;;;### (autoloads (color-name-to-rgb) "color" "color.el" (20119 34052)) 4196;;;### (autoloads (color-name-to-rgb) "color" "color.el" (20175 31160))
4191;;; Generated autoloads from color.el 4197;;; Generated autoloads from color.el
4192 4198
4193(autoload 'color-name-to-rgb "color" "\ 4199(autoload 'color-name-to-rgb "color" "\
@@ -4209,7 +4215,7 @@ If FRAME cannot display COLOR, return nil.
4209;;;### (autoloads (comint-redirect-results-list-from-process comint-redirect-results-list 4215;;;### (autoloads (comint-redirect-results-list-from-process comint-redirect-results-list
4210;;;;;; comint-redirect-send-command-to-process comint-redirect-send-command 4216;;;;;; comint-redirect-send-command-to-process comint-redirect-send-command
4211;;;;;; comint-run make-comint make-comint-in-buffer) "comint" "comint.el" 4217;;;;;; comint-run make-comint make-comint-in-buffer) "comint" "comint.el"
4212;;;;;; (20135 20784)) 4218;;;;;; (20168 57844))
4213;;; Generated autoloads from comint.el 4219;;; Generated autoloads from comint.el
4214 4220
4215(defvar comint-output-filter-functions '(comint-postoutput-scroll-to-bottom comint-watch-for-password-prompt) "\ 4221(defvar comint-output-filter-functions '(comint-postoutput-scroll-to-bottom comint-watch-for-password-prompt) "\
@@ -4304,7 +4310,7 @@ REGEXP-GROUP is the regular expression group in REGEXP to use.
4304;;;*** 4310;;;***
4305 4311
4306;;;### (autoloads (compare-windows) "compare-w" "vc/compare-w.el" 4312;;;### (autoloads (compare-windows) "compare-w" "vc/compare-w.el"
4307;;;;;; (20119 34052)) 4313;;;;;; (19845 45374))
4308;;; Generated autoloads from vc/compare-w.el 4314;;; Generated autoloads from vc/compare-w.el
4309 4315
4310(autoload 'compare-windows "compare-w" "\ 4316(autoload 'compare-windows "compare-w" "\
@@ -4341,8 +4347,8 @@ on third call it again advances points to the next difference and so on.
4341;;;;;; compilation-shell-minor-mode compilation-mode compilation-start 4347;;;;;; compilation-shell-minor-mode compilation-mode compilation-start
4342;;;;;; compile compilation-disable-input compile-command compilation-search-path 4348;;;;;; compile compilation-disable-input compile-command compilation-search-path
4343;;;;;; compilation-ask-about-save compilation-window-height compilation-start-hook 4349;;;;;; compilation-ask-about-save compilation-window-height compilation-start-hook
4344;;;;;; compilation-mode-hook) "compile" "progmodes/compile.el" (20127 4350;;;;;; compilation-mode-hook) "compile" "progmodes/compile.el" (20167
4345;;;;;; 25602)) 4351;;;;;; 36967))
4346;;; Generated autoloads from progmodes/compile.el 4352;;; Generated autoloads from progmodes/compile.el
4347 4353
4348(defvar compilation-mode-hook nil "\ 4354(defvar compilation-mode-hook nil "\
@@ -4522,7 +4528,7 @@ This is the value of `next-error-function' in Compilation buffers.
4522;;;*** 4528;;;***
4523 4529
4524;;;### (autoloads (dynamic-completion-mode) "completion" "completion.el" 4530;;;### (autoloads (dynamic-completion-mode) "completion" "completion.el"
4525;;;;;; (20119 34052)) 4531;;;;;; (19886 45771))
4526;;; Generated autoloads from completion.el 4532;;; Generated autoloads from completion.el
4527 4533
4528(defvar dynamic-completion-mode nil "\ 4534(defvar dynamic-completion-mode nil "\
@@ -4544,7 +4550,7 @@ Enable dynamic word-completion.
4544;;;### (autoloads (conf-xdefaults-mode conf-ppd-mode conf-colon-mode 4550;;;### (autoloads (conf-xdefaults-mode conf-ppd-mode conf-colon-mode
4545;;;;;; conf-space-keywords conf-space-mode conf-javaprop-mode conf-windows-mode 4551;;;;;; conf-space-keywords conf-space-mode conf-javaprop-mode conf-windows-mode
4546;;;;;; conf-unix-mode conf-mode) "conf-mode" "textmodes/conf-mode.el" 4552;;;;;; conf-unix-mode conf-mode) "conf-mode" "textmodes/conf-mode.el"
4547;;;;;; (20119 34052)) 4553;;;;;; (20178 7273))
4548;;; Generated autoloads from textmodes/conf-mode.el 4554;;; Generated autoloads from textmodes/conf-mode.el
4549 4555
4550(autoload 'conf-mode "conf-mode" "\ 4556(autoload 'conf-mode "conf-mode" "\
@@ -4700,7 +4706,7 @@ For details see `conf-mode'. Example:
4700;;;*** 4706;;;***
4701 4707
4702;;;### (autoloads (shuffle-vector cookie-snarf cookie-insert cookie) 4708;;;### (autoloads (shuffle-vector cookie-snarf cookie-insert cookie)
4703;;;;;; "cookie1" "play/cookie1.el" (20119 34052)) 4709;;;;;; "cookie1" "play/cookie1.el" (19845 45374))
4704;;; Generated autoloads from play/cookie1.el 4710;;; Generated autoloads from play/cookie1.el
4705 4711
4706(autoload 'cookie "cookie1" "\ 4712(autoload 'cookie "cookie1" "\
@@ -4732,8 +4738,8 @@ Randomly permute the elements of VECTOR (all permutations equally likely).
4732;;;*** 4738;;;***
4733 4739
4734;;;### (autoloads (copyright-update-directory copyright copyright-fix-years 4740;;;### (autoloads (copyright-update-directory copyright copyright-fix-years
4735;;;;;; copyright-update) "copyright" "emacs-lisp/copyright.el" (20119 4741;;;;;; copyright-update) "copyright" "emacs-lisp/copyright.el" (19845
4736;;;;;; 34052)) 4742;;;;;; 45374))
4737;;; Generated autoloads from emacs-lisp/copyright.el 4743;;; Generated autoloads from emacs-lisp/copyright.el
4738(put 'copyright-at-end-flag 'safe-local-variable 'booleanp) 4744(put 'copyright-at-end-flag 'safe-local-variable 'booleanp)
4739(put 'copyright-names-regexp 'safe-local-variable 'stringp) 4745(put 'copyright-names-regexp 'safe-local-variable 'stringp)
@@ -4772,7 +4778,7 @@ If FIX is non-nil, run `copyright-fix-years' instead.
4772;;;*** 4778;;;***
4773 4779
4774;;;### (autoloads (cperl-perldoc-at-point cperl-perldoc cperl-mode) 4780;;;### (autoloads (cperl-perldoc-at-point cperl-perldoc cperl-mode)
4775;;;;;; "cperl-mode" "progmodes/cperl-mode.el" (20119 34052)) 4781;;;;;; "cperl-mode" "progmodes/cperl-mode.el" (20178 7273))
4776;;; Generated autoloads from progmodes/cperl-mode.el 4782;;; Generated autoloads from progmodes/cperl-mode.el
4777(put 'cperl-indent-level 'safe-local-variable 'integerp) 4783(put 'cperl-indent-level 'safe-local-variable 'integerp)
4778(put 'cperl-brace-offset 'safe-local-variable 'integerp) 4784(put 'cperl-brace-offset 'safe-local-variable 'integerp)
@@ -4971,7 +4977,7 @@ Run a `perldoc' on the word around point.
4971;;;*** 4977;;;***
4972 4978
4973;;;### (autoloads (cpp-parse-edit cpp-highlight-buffer) "cpp" "progmodes/cpp.el" 4979;;;### (autoloads (cpp-parse-edit cpp-highlight-buffer) "cpp" "progmodes/cpp.el"
4974;;;;;; (20119 34052)) 4980;;;;;; (20104 14925))
4975;;; Generated autoloads from progmodes/cpp.el 4981;;; Generated autoloads from progmodes/cpp.el
4976 4982
4977(autoload 'cpp-highlight-buffer "cpp" "\ 4983(autoload 'cpp-highlight-buffer "cpp" "\
@@ -4990,7 +4996,7 @@ Edit display information for cpp conditionals.
4990;;;*** 4996;;;***
4991 4997
4992;;;### (autoloads (crisp-mode crisp-mode) "crisp" "emulation/crisp.el" 4998;;;### (autoloads (crisp-mode crisp-mode) "crisp" "emulation/crisp.el"
4993;;;;;; (20140 44288)) 4999;;;;;; (20161 45793))
4994;;; Generated autoloads from emulation/crisp.el 5000;;; Generated autoloads from emulation/crisp.el
4995 5001
4996(defvar crisp-mode nil "\ 5002(defvar crisp-mode nil "\
@@ -5016,7 +5022,7 @@ if ARG is omitted or nil.
5016;;;*** 5022;;;***
5017 5023
5018;;;### (autoloads (completing-read-multiple) "crm" "emacs-lisp/crm.el" 5024;;;### (autoloads (completing-read-multiple) "crm" "emacs-lisp/crm.el"
5019;;;;;; (20119 34052)) 5025;;;;;; (19845 45374))
5020;;; Generated autoloads from emacs-lisp/crm.el 5026;;; Generated autoloads from emacs-lisp/crm.el
5021 5027
5022(autoload 'completing-read-multiple "crm" "\ 5028(autoload 'completing-read-multiple "crm" "\
@@ -5051,8 +5057,8 @@ INHERIT-INPUT-METHOD.
5051 5057
5052;;;*** 5058;;;***
5053 5059
5054;;;### (autoloads (css-mode) "css-mode" "textmodes/css-mode.el" (20119 5060;;;### (autoloads (css-mode) "css-mode" "textmodes/css-mode.el" (19978
5055;;;;;; 34052)) 5061;;;;;; 37530))
5056;;; Generated autoloads from textmodes/css-mode.el 5062;;; Generated autoloads from textmodes/css-mode.el
5057 5063
5058(autoload 'css-mode "css-mode" "\ 5064(autoload 'css-mode "css-mode" "\
@@ -5063,7 +5069,7 @@ Major mode to edit Cascading Style Sheets.
5063;;;*** 5069;;;***
5064 5070
5065;;;### (autoloads (cua-selection-mode cua-mode) "cua-base" "emulation/cua-base.el" 5071;;;### (autoloads (cua-selection-mode cua-mode) "cua-base" "emulation/cua-base.el"
5066;;;;;; (20128 38948)) 5072;;;;;; (20127 62865))
5067;;; Generated autoloads from emulation/cua-base.el 5073;;; Generated autoloads from emulation/cua-base.el
5068 5074
5069(defvar cua-mode nil "\ 5075(defvar cua-mode nil "\
@@ -5123,7 +5129,7 @@ Enable CUA selection mode without the C-z/C-x/C-c/C-v bindings.
5123;;;;;; customize-mode customize customize-push-and-save customize-save-variable 5129;;;;;; customize-mode customize customize-push-and-save customize-save-variable
5124;;;;;; customize-set-variable customize-set-value custom-menu-sort-alphabetically 5130;;;;;; customize-set-variable customize-set-value custom-menu-sort-alphabetically
5125;;;;;; custom-buffer-sort-alphabetically custom-browse-sort-alphabetically) 5131;;;;;; custom-buffer-sort-alphabetically custom-browse-sort-alphabetically)
5126;;;;;; "cus-edit" "cus-edit.el" (20119 34052)) 5132;;;;;; "cus-edit" "cus-edit.el" (20179 28130))
5127;;; Generated autoloads from cus-edit.el 5133;;; Generated autoloads from cus-edit.el
5128 5134
5129(defvar custom-browse-sort-alphabetically nil "\ 5135(defvar custom-browse-sort-alphabetically nil "\
@@ -5439,8 +5445,8 @@ The format is suitable for use with `easy-menu-define'.
5439;;;*** 5445;;;***
5440 5446
5441;;;### (autoloads (customize-themes describe-theme custom-theme-visit-theme 5447;;;### (autoloads (customize-themes describe-theme custom-theme-visit-theme
5442;;;;;; customize-create-theme) "cus-theme" "cus-theme.el" (20119 5448;;;;;; customize-create-theme) "cus-theme" "cus-theme.el" (20059
5443;;;;;; 34052)) 5449;;;;;; 26455))
5444;;; Generated autoloads from cus-theme.el 5450;;; Generated autoloads from cus-theme.el
5445 5451
5446(autoload 'customize-create-theme "cus-theme" "\ 5452(autoload 'customize-create-theme "cus-theme" "\
@@ -5472,7 +5478,7 @@ omitted, a buffer named *Custom Themes* is used.
5472;;;*** 5478;;;***
5473 5479
5474;;;### (autoloads (cvs-status-mode) "cvs-status" "vc/cvs-status.el" 5480;;;### (autoloads (cvs-status-mode) "cvs-status" "vc/cvs-status.el"
5475;;;;;; (20119 34052)) 5481;;;;;; (20174 10230))
5476;;; Generated autoloads from vc/cvs-status.el 5482;;; Generated autoloads from vc/cvs-status.el
5477 5483
5478(autoload 'cvs-status-mode "cvs-status" "\ 5484(autoload 'cvs-status-mode "cvs-status" "\
@@ -5483,7 +5489,7 @@ Mode used for cvs status output.
5483;;;*** 5489;;;***
5484 5490
5485;;;### (autoloads (global-cwarn-mode turn-on-cwarn-mode cwarn-mode) 5491;;;### (autoloads (global-cwarn-mode turn-on-cwarn-mode cwarn-mode)
5486;;;;;; "cwarn" "progmodes/cwarn.el" (20119 34052)) 5492;;;;;; "cwarn" "progmodes/cwarn.el" (20168 57844))
5487;;; Generated autoloads from progmodes/cwarn.el 5493;;; Generated autoloads from progmodes/cwarn.el
5488 5494
5489(autoload 'cwarn-mode "cwarn" "\ 5495(autoload 'cwarn-mode "cwarn" "\
@@ -5532,7 +5538,7 @@ See `cwarn-mode' for more information on Cwarn mode.
5532 5538
5533;;;### (autoloads (standard-display-cyrillic-translit cyrillic-encode-alternativnyj-char 5539;;;### (autoloads (standard-display-cyrillic-translit cyrillic-encode-alternativnyj-char
5534;;;;;; cyrillic-encode-koi8-r-char) "cyril-util" "language/cyril-util.el" 5540;;;;;; cyrillic-encode-koi8-r-char) "cyril-util" "language/cyril-util.el"
5535;;;;;; (20119 34052)) 5541;;;;;; (19845 45374))
5536;;; Generated autoloads from language/cyril-util.el 5542;;; Generated autoloads from language/cyril-util.el
5537 5543
5538(autoload 'cyrillic-encode-koi8-r-char "cyril-util" "\ 5544(autoload 'cyrillic-encode-koi8-r-char "cyril-util" "\
@@ -5561,7 +5567,7 @@ If the argument is nil, we return the display table to its standard state.
5561;;;*** 5567;;;***
5562 5568
5563;;;### (autoloads (dabbrev-expand dabbrev-completion) "dabbrev" "dabbrev.el" 5569;;;### (autoloads (dabbrev-expand dabbrev-completion) "dabbrev" "dabbrev.el"
5564;;;;;; (20119 34052)) 5570;;;;;; (19989 34789))
5565;;; Generated autoloads from dabbrev.el 5571;;; Generated autoloads from dabbrev.el
5566(put 'dabbrev-case-fold-search 'risky-local-variable t) 5572(put 'dabbrev-case-fold-search 'risky-local-variable t)
5567(put 'dabbrev-case-replace 'risky-local-variable t) 5573(put 'dabbrev-case-replace 'risky-local-variable t)
@@ -5608,7 +5614,7 @@ See also `dabbrev-abbrev-char-regexp' and \\[dabbrev-completion].
5608;;;*** 5614;;;***
5609 5615
5610;;;### (autoloads (data-debug-new-buffer) "data-debug" "cedet/data-debug.el" 5616;;;### (autoloads (data-debug-new-buffer) "data-debug" "cedet/data-debug.el"
5611;;;;;; (20119 34052)) 5617;;;;;; (20168 57844))
5612;;; Generated autoloads from cedet/data-debug.el 5618;;; Generated autoloads from cedet/data-debug.el
5613 5619
5614(autoload 'data-debug-new-buffer "data-debug" "\ 5620(autoload 'data-debug-new-buffer "data-debug" "\
@@ -5618,8 +5624,8 @@ Create a new data-debug buffer with NAME.
5618 5624
5619;;;*** 5625;;;***
5620 5626
5621;;;### (autoloads (dbus-handle-event) "dbus" "net/dbus.el" (20119 5627;;;### (autoloads (dbus-handle-event) "dbus" "net/dbus.el" (20176
5622;;;;;; 34052)) 5628;;;;;; 51947))
5623;;; Generated autoloads from net/dbus.el 5629;;; Generated autoloads from net/dbus.el
5624 5630
5625(autoload 'dbus-handle-event "dbus" "\ 5631(autoload 'dbus-handle-event "dbus" "\
@@ -5632,8 +5638,8 @@ If the HANDLER returns a `dbus-error', it is propagated as return message.
5632 5638
5633;;;*** 5639;;;***
5634 5640
5635;;;### (autoloads (dcl-mode) "dcl-mode" "progmodes/dcl-mode.el" (20119 5641;;;### (autoloads (dcl-mode) "dcl-mode" "progmodes/dcl-mode.el" (20162
5636;;;;;; 34052)) 5642;;;;;; 63140))
5637;;; Generated autoloads from progmodes/dcl-mode.el 5643;;; Generated autoloads from progmodes/dcl-mode.el
5638 5644
5639(autoload 'dcl-mode "dcl-mode" "\ 5645(autoload 'dcl-mode "dcl-mode" "\
@@ -5677,7 +5683,7 @@ Variables controlling indentation style and extra features:
5677 dcl-block-begin-regexp 5683 dcl-block-begin-regexp
5678 dcl-block-end-regexp 5684 dcl-block-end-regexp
5679 Regexps that match command lines that begin and end, respectively, 5685 Regexps that match command lines that begin and end, respectively,
5680 a block of commmand lines that will be given extra indentation. 5686 a block of command lines that will be given extra indentation.
5681 Command lines between THEN-ELSE-ENDIF are always indented; these variables 5687 Command lines between THEN-ELSE-ENDIF are always indented; these variables
5682 make it possible to define other places to indent. 5688 make it possible to define other places to indent.
5683 Set to nil to disable this feature. 5689 Set to nil to disable this feature.
@@ -5760,7 +5766,7 @@ There is some minimal font-lock support (see vars
5760;;;*** 5766;;;***
5761 5767
5762;;;### (autoloads (cancel-debug-on-entry debug-on-entry debug) "debug" 5768;;;### (autoloads (cancel-debug-on-entry debug-on-entry debug) "debug"
5763;;;;;; "emacs-lisp/debug.el" (20119 34052)) 5769;;;;;; "emacs-lisp/debug.el" (20098 62550))
5764;;; Generated autoloads from emacs-lisp/debug.el 5770;;; Generated autoloads from emacs-lisp/debug.el
5765 5771
5766(setq debugger 'debug) 5772(setq debugger 'debug)
@@ -5804,7 +5810,7 @@ To specify a nil argument interactively, exit with an empty minibuffer.
5804;;;*** 5810;;;***
5805 5811
5806;;;### (autoloads (decipher-mode decipher) "decipher" "play/decipher.el" 5812;;;### (autoloads (decipher-mode decipher) "decipher" "play/decipher.el"
5807;;;;;; (20119 34052)) 5813;;;;;; (20164 60780))
5808;;; Generated autoloads from play/decipher.el 5814;;; Generated autoloads from play/decipher.el
5809 5815
5810(autoload 'decipher "decipher" "\ 5816(autoload 'decipher "decipher" "\
@@ -5833,8 +5839,8 @@ The most useful commands are:
5833;;;*** 5839;;;***
5834 5840
5835;;;### (autoloads (delimit-columns-rectangle delimit-columns-region 5841;;;### (autoloads (delimit-columns-rectangle delimit-columns-region
5836;;;;;; delimit-columns-customize) "delim-col" "delim-col.el" (20119 5842;;;;;; delimit-columns-customize) "delim-col" "delim-col.el" (20154
5837;;;;;; 34052)) 5843;;;;;; 24929))
5838;;; Generated autoloads from delim-col.el 5844;;; Generated autoloads from delim-col.el
5839 5845
5840(autoload 'delimit-columns-customize "delim-col" "\ 5846(autoload 'delimit-columns-customize "delim-col" "\
@@ -5858,8 +5864,8 @@ START and END delimits the corners of text rectangle.
5858 5864
5859;;;*** 5865;;;***
5860 5866
5861;;;### (autoloads (delphi-mode) "delphi" "progmodes/delphi.el" (20119 5867;;;### (autoloads (delphi-mode) "delphi" "progmodes/delphi.el" (20153
5862;;;;;; 34052)) 5868;;;;;; 32900))
5863;;; Generated autoloads from progmodes/delphi.el 5869;;; Generated autoloads from progmodes/delphi.el
5864 5870
5865(autoload 'delphi-mode "delphi" "\ 5871(autoload 'delphi-mode "delphi" "\
@@ -5910,8 +5916,8 @@ with no args, if that value is non-nil.
5910 5916
5911;;;*** 5917;;;***
5912 5918
5913;;;### (autoloads (delete-selection-mode) "delsel" "delsel.el" (20126 5919;;;### (autoloads (delete-selection-mode) "delsel" "delsel.el" (20127
5914;;;;;; 50889)) 5920;;;;;; 62865))
5915;;; Generated autoloads from delsel.el 5921;;; Generated autoloads from delsel.el
5916 5922
5917(defalias 'pending-delete-mode 'delete-selection-mode) 5923(defalias 'pending-delete-mode 'delete-selection-mode)
@@ -5941,7 +5947,7 @@ any selection.
5941;;;*** 5947;;;***
5942 5948
5943;;;### (autoloads (derived-mode-init-mode-variables define-derived-mode) 5949;;;### (autoloads (derived-mode-init-mode-variables define-derived-mode)
5944;;;;;; "derived" "emacs-lisp/derived.el" (20134 8296)) 5950;;;;;; "derived" "emacs-lisp/derived.el" (20137 12290))
5945;;; Generated autoloads from emacs-lisp/derived.el 5951;;; Generated autoloads from emacs-lisp/derived.el
5946 5952
5947(autoload 'define-derived-mode "derived" "\ 5953(autoload 'define-derived-mode "derived" "\
@@ -6008,7 +6014,7 @@ the first time the mode is used.
6008;;;*** 6014;;;***
6009 6015
6010;;;### (autoloads (describe-char describe-text-properties) "descr-text" 6016;;;### (autoloads (describe-char describe-text-properties) "descr-text"
6011;;;;;; "descr-text.el" (20127 27092)) 6017;;;;;; "descr-text.el" (20170 13157))
6012;;; Generated autoloads from descr-text.el 6018;;; Generated autoloads from descr-text.el
6013 6019
6014(autoload 'describe-text-properties "descr-text" "\ 6020(autoload 'describe-text-properties "descr-text" "\
@@ -6036,7 +6042,7 @@ as well as widgets, buttons, overlays, and text properties.
6036;;;### (autoloads (desktop-revert desktop-save-in-desktop-dir desktop-change-dir 6042;;;### (autoloads (desktop-revert desktop-save-in-desktop-dir desktop-change-dir
6037;;;;;; desktop-load-default desktop-read desktop-remove desktop-save 6043;;;;;; desktop-load-default desktop-read desktop-remove desktop-save
6038;;;;;; desktop-clear desktop-locals-to-save desktop-save-mode) "desktop" 6044;;;;;; desktop-clear desktop-locals-to-save desktop-save-mode) "desktop"
6039;;;;;; "desktop.el" (20126 50898)) 6045;;;;;; "desktop.el" (20165 31925))
6040;;; Generated autoloads from desktop.el 6046;;; Generated autoloads from desktop.el
6041 6047
6042(defvar desktop-save-mode nil "\ 6048(defvar desktop-save-mode nil "\
@@ -6223,7 +6229,7 @@ Revert to the last loaded desktop.
6223 6229
6224;;;### (autoloads (gnus-article-outlook-deuglify-article gnus-outlook-deuglify-article 6230;;;### (autoloads (gnus-article-outlook-deuglify-article gnus-outlook-deuglify-article
6225;;;;;; gnus-article-outlook-repair-attribution gnus-article-outlook-unwrap-lines) 6231;;;;;; gnus-article-outlook-repair-attribution gnus-article-outlook-unwrap-lines)
6226;;;;;; "deuglify" "gnus/deuglify.el" (20119 34052)) 6232;;;;;; "deuglify" "gnus/deuglify.el" (19845 45374))
6227;;; Generated autoloads from gnus/deuglify.el 6233;;; Generated autoloads from gnus/deuglify.el
6228 6234
6229(autoload 'gnus-article-outlook-unwrap-lines "deuglify" "\ 6235(autoload 'gnus-article-outlook-unwrap-lines "deuglify" "\
@@ -6256,7 +6262,7 @@ Deuglify broken Outlook (Express) articles and redisplay.
6256;;;*** 6262;;;***
6257 6263
6258;;;### (autoloads (diary-mode diary-mail-entries diary) "diary-lib" 6264;;;### (autoloads (diary-mode diary-mail-entries diary) "diary-lib"
6259;;;;;; "calendar/diary-lib.el" (20119 34052)) 6265;;;;;; "calendar/diary-lib.el" (20168 57844))
6260;;; Generated autoloads from calendar/diary-lib.el 6266;;; Generated autoloads from calendar/diary-lib.el
6261 6267
6262(autoload 'diary "diary-lib" "\ 6268(autoload 'diary "diary-lib" "\
@@ -6299,7 +6305,7 @@ Major mode for editing the diary file.
6299;;;*** 6305;;;***
6300 6306
6301;;;### (autoloads (diff-buffer-with-file diff-backup diff diff-command 6307;;;### (autoloads (diff-buffer-with-file diff-backup diff diff-command
6302;;;;;; diff-switches) "diff" "vc/diff.el" (20119 34052)) 6308;;;;;; diff-switches) "diff" "vc/diff.el" (19999 41597))
6303;;; Generated autoloads from vc/diff.el 6309;;; Generated autoloads from vc/diff.el
6304 6310
6305(defvar diff-switches (purecopy "-c") "\ 6311(defvar diff-switches (purecopy "-c") "\
@@ -6343,7 +6349,7 @@ This requires the external program `diff' to be in your `exec-path'.
6343;;;*** 6349;;;***
6344 6350
6345;;;### (autoloads (diff-minor-mode diff-mode) "diff-mode" "vc/diff-mode.el" 6351;;;### (autoloads (diff-minor-mode diff-mode) "diff-mode" "vc/diff-mode.el"
6346;;;;;; (20127 23725)) 6352;;;;;; (20181 13366))
6347;;; Generated autoloads from vc/diff-mode.el 6353;;; Generated autoloads from vc/diff-mode.el
6348 6354
6349(autoload 'diff-mode "diff-mode" "\ 6355(autoload 'diff-mode "diff-mode" "\
@@ -6375,7 +6381,7 @@ the mode if ARG is omitted or nil.
6375 6381
6376;;;*** 6382;;;***
6377 6383
6378;;;### (autoloads (dig) "dig" "net/dig.el" (20119 34052)) 6384;;;### (autoloads (dig) "dig" "net/dig.el" (19845 45374))
6379;;; Generated autoloads from net/dig.el 6385;;; Generated autoloads from net/dig.el
6380 6386
6381(autoload 'dig "dig" "\ 6387(autoload 'dig "dig" "\
@@ -6387,7 +6393,7 @@ Optional arguments are passed to `dig-invoke'.
6387;;;*** 6393;;;***
6388 6394
6389;;;### (autoloads (dired-mode dired-noselect dired-other-frame dired-other-window 6395;;;### (autoloads (dired-mode dired-noselect dired-other-frame dired-other-window
6390;;;;;; dired dired-listing-switches) "dired" "dired.el" (20140 44600)) 6396;;;;;; dired dired-listing-switches) "dired" "dired.el" (20167 36967))
6391;;; Generated autoloads from dired.el 6397;;; Generated autoloads from dired.el
6392 6398
6393(defvar dired-listing-switches (purecopy "-al") "\ 6399(defvar dired-listing-switches (purecopy "-al") "\
@@ -6509,7 +6515,7 @@ Keybindings:
6509;;;*** 6515;;;***
6510 6516
6511;;;### (autoloads (dirtrack dirtrack-mode) "dirtrack" "dirtrack.el" 6517;;;### (autoloads (dirtrack dirtrack-mode) "dirtrack" "dirtrack.el"
6512;;;;;; (20126 50922)) 6518;;;;;; (20127 62865))
6513;;; Generated autoloads from dirtrack.el 6519;;; Generated autoloads from dirtrack.el
6514 6520
6515(autoload 'dirtrack-mode "dirtrack" "\ 6521(autoload 'dirtrack-mode "dirtrack" "\
@@ -6539,8 +6545,8 @@ function `dirtrack-debug-mode' to turn on debugging output.
6539 6545
6540;;;*** 6546;;;***
6541 6547
6542;;;### (autoloads (disassemble) "disass" "emacs-lisp/disass.el" (20119 6548;;;### (autoloads (disassemble) "disass" "emacs-lisp/disass.el" (19931
6543;;;;;; 34052)) 6549;;;;;; 11784))
6544;;; Generated autoloads from emacs-lisp/disass.el 6550;;; Generated autoloads from emacs-lisp/disass.el
6545 6551
6546(autoload 'disassemble "disass" "\ 6552(autoload 'disassemble "disass" "\
@@ -6559,7 +6565,7 @@ redefine OBJECT if it is a symbol.
6559;;;;;; standard-display-g1 standard-display-ascii standard-display-default 6565;;;;;; standard-display-g1 standard-display-ascii standard-display-default
6560;;;;;; standard-display-8bit describe-current-display-table describe-display-table 6566;;;;;; standard-display-8bit describe-current-display-table describe-display-table
6561;;;;;; set-display-table-slot display-table-slot make-display-table) 6567;;;;;; set-display-table-slot display-table-slot make-display-table)
6562;;;;;; "disp-table" "disp-table.el" (20119 34052)) 6568;;;;;; "disp-table" "disp-table.el" (19984 16846))
6563;;; Generated autoloads from disp-table.el 6569;;; Generated autoloads from disp-table.el
6564 6570
6565(autoload 'make-display-table "disp-table" "\ 6571(autoload 'make-display-table "disp-table" "\
@@ -6681,7 +6687,7 @@ in `.emacs'.
6681;;;*** 6687;;;***
6682 6688
6683;;;### (autoloads (dissociated-press) "dissociate" "play/dissociate.el" 6689;;;### (autoloads (dissociated-press) "dissociate" "play/dissociate.el"
6684;;;;;; (20119 34052)) 6690;;;;;; (19845 45374))
6685;;; Generated autoloads from play/dissociate.el 6691;;; Generated autoloads from play/dissociate.el
6686 6692
6687(autoload 'dissociated-press "dissociate" "\ 6693(autoload 'dissociated-press "dissociate" "\
@@ -6697,7 +6703,7 @@ Default is 2.
6697 6703
6698;;;*** 6704;;;***
6699 6705
6700;;;### (autoloads (dnd-protocol-alist) "dnd" "dnd.el" (20119 34052)) 6706;;;### (autoloads (dnd-protocol-alist) "dnd" "dnd.el" (19886 45771))
6701;;; Generated autoloads from dnd.el 6707;;; Generated autoloads from dnd.el
6702 6708
6703(defvar dnd-protocol-alist `((,(purecopy "^file:///") . dnd-open-local-file) (,(purecopy "^file://") . dnd-open-file) (,(purecopy "^file:") . dnd-open-local-file) (,(purecopy "^\\(https?\\|ftp\\|file\\|nfs\\)://") . dnd-open-file)) "\ 6709(defvar dnd-protocol-alist `((,(purecopy "^file:///") . dnd-open-local-file) (,(purecopy "^file://") . dnd-open-file) (,(purecopy "^file:") . dnd-open-local-file) (,(purecopy "^\\(https?\\|ftp\\|file\\|nfs\\)://") . dnd-open-file)) "\
@@ -6718,7 +6724,7 @@ if some action was made, or nil if the URL is ignored.")
6718;;;*** 6724;;;***
6719 6725
6720;;;### (autoloads (dns-mode-soa-increment-serial dns-mode) "dns-mode" 6726;;;### (autoloads (dns-mode-soa-increment-serial dns-mode) "dns-mode"
6721;;;;;; "textmodes/dns-mode.el" (20119 34052)) 6727;;;;;; "textmodes/dns-mode.el" (19845 45374))
6722;;; Generated autoloads from textmodes/dns-mode.el 6728;;; Generated autoloads from textmodes/dns-mode.el
6723 6729
6724(autoload 'dns-mode "dns-mode" "\ 6730(autoload 'dns-mode "dns-mode" "\
@@ -6742,8 +6748,8 @@ Locate SOA record and increment the serial field.
6742;;;*** 6748;;;***
6743 6749
6744;;;### (autoloads (doc-view-bookmark-jump doc-view-minor-mode doc-view-mode-maybe 6750;;;### (autoloads (doc-view-bookmark-jump doc-view-minor-mode doc-view-mode-maybe
6745;;;;;; doc-view-mode doc-view-mode-p) "doc-view" "doc-view.el" (20139 6751;;;;;; doc-view-mode doc-view-mode-p) "doc-view" "doc-view.el" (20172
6746;;;;;; 28158)) 6752;;;;;; 54913))
6747;;; Generated autoloads from doc-view.el 6753;;; Generated autoloads from doc-view.el
6748 6754
6749(autoload 'doc-view-mode-p "doc-view" "\ 6755(autoload 'doc-view-mode-p "doc-view" "\
@@ -6789,7 +6795,7 @@ See the command `doc-view-mode' for more information on this mode.
6789 6795
6790;;;*** 6796;;;***
6791 6797
6792;;;### (autoloads (doctor) "doctor" "play/doctor.el" (20119 34052)) 6798;;;### (autoloads (doctor) "doctor" "play/doctor.el" (20077 56412))
6793;;; Generated autoloads from play/doctor.el 6799;;; Generated autoloads from play/doctor.el
6794 6800
6795(autoload 'doctor "doctor" "\ 6801(autoload 'doctor "doctor" "\
@@ -6799,7 +6805,7 @@ Switch to *doctor* buffer and start giving psychotherapy.
6799 6805
6800;;;*** 6806;;;***
6801 6807
6802;;;### (autoloads (double-mode) "double" "double.el" (20126 50942)) 6808;;;### (autoloads (double-mode) "double" "double.el" (20127 62865))
6803;;; Generated autoloads from double.el 6809;;; Generated autoloads from double.el
6804 6810
6805(autoload 'double-mode "double" "\ 6811(autoload 'double-mode "double" "\
@@ -6815,7 +6821,7 @@ strings when pressed twice. See `double-map' for details.
6815 6821
6816;;;*** 6822;;;***
6817 6823
6818;;;### (autoloads (dunnet) "dunnet" "play/dunnet.el" (20119 34052)) 6824;;;### (autoloads (dunnet) "dunnet" "play/dunnet.el" (19845 45374))
6819;;; Generated autoloads from play/dunnet.el 6825;;; Generated autoloads from play/dunnet.el
6820 6826
6821(autoload 'dunnet "dunnet" "\ 6827(autoload 'dunnet "dunnet" "\
@@ -6827,7 +6833,7 @@ Switch to *dungeon* buffer and start game.
6827 6833
6828;;;### (autoloads (easy-mmode-defsyntax easy-mmode-defmap easy-mmode-define-keymap 6834;;;### (autoloads (easy-mmode-defsyntax easy-mmode-defmap easy-mmode-define-keymap
6829;;;;;; define-globalized-minor-mode define-minor-mode) "easy-mmode" 6835;;;;;; define-globalized-minor-mode define-minor-mode) "easy-mmode"
6830;;;;;; "emacs-lisp/easy-mmode.el" (20136 49226)) 6836;;;;;; "emacs-lisp/easy-mmode.el" (20179 28130))
6831;;; Generated autoloads from emacs-lisp/easy-mmode.el 6837;;; Generated autoloads from emacs-lisp/easy-mmode.el
6832 6838
6833(defalias 'easy-mmode-define-minor-mode 'define-minor-mode) 6839(defalias 'easy-mmode-define-minor-mode 'define-minor-mode)
@@ -6938,8 +6944,8 @@ CSS contains a list of syntax specifications of the form (CHAR . SYNTAX).
6938;;;*** 6944;;;***
6939 6945
6940;;;### (autoloads (easy-menu-change easy-menu-create-menu easy-menu-do-define 6946;;;### (autoloads (easy-menu-change easy-menu-create-menu easy-menu-do-define
6941;;;;;; easy-menu-define) "easymenu" "emacs-lisp/easymenu.el" (20119 6947;;;;;; easy-menu-define) "easymenu" "emacs-lisp/easymenu.el" (19845
6942;;;;;; 34052)) 6948;;;;;; 45374))
6943;;; Generated autoloads from emacs-lisp/easymenu.el 6949;;; Generated autoloads from emacs-lisp/easymenu.el
6944 6950
6945(autoload 'easy-menu-define "easymenu" "\ 6951(autoload 'easy-menu-define "easymenu" "\
@@ -7093,7 +7099,7 @@ To implement dynamic menus, either call this from
7093;;;;;; ebnf-eps-file ebnf-eps-directory ebnf-spool-region ebnf-spool-buffer 7099;;;;;; ebnf-eps-file ebnf-eps-directory ebnf-spool-region ebnf-spool-buffer
7094;;;;;; ebnf-spool-file ebnf-spool-directory ebnf-print-region ebnf-print-buffer 7100;;;;;; ebnf-spool-file ebnf-spool-directory ebnf-print-region ebnf-print-buffer
7095;;;;;; ebnf-print-file ebnf-print-directory ebnf-customize) "ebnf2ps" 7101;;;;;; ebnf-print-file ebnf-print-directory ebnf-customize) "ebnf2ps"
7096;;;;;; "progmodes/ebnf2ps.el" (20119 34052)) 7102;;;;;; "progmodes/ebnf2ps.el" (20166 16092))
7097;;; Generated autoloads from progmodes/ebnf2ps.el 7103;;; Generated autoloads from progmodes/ebnf2ps.el
7098 7104
7099(autoload 'ebnf-customize "ebnf2ps" "\ 7105(autoload 'ebnf-customize "ebnf2ps" "\
@@ -7367,8 +7373,8 @@ See `ebnf-style-database' documentation.
7367;;;;;; ebrowse-tags-find-declaration-other-window ebrowse-tags-find-definition 7373;;;;;; ebrowse-tags-find-declaration-other-window ebrowse-tags-find-definition
7368;;;;;; ebrowse-tags-view-definition ebrowse-tags-find-declaration 7374;;;;;; ebrowse-tags-view-definition ebrowse-tags-find-declaration
7369;;;;;; ebrowse-tags-view-declaration ebrowse-member-mode ebrowse-electric-choose-tree 7375;;;;;; ebrowse-tags-view-declaration ebrowse-member-mode ebrowse-electric-choose-tree
7370;;;;;; ebrowse-tree-mode) "ebrowse" "progmodes/ebrowse.el" (20119 7376;;;;;; ebrowse-tree-mode) "ebrowse" "progmodes/ebrowse.el" (20104
7371;;;;;; 34052)) 7377;;;;;; 14925))
7372;;; Generated autoloads from progmodes/ebrowse.el 7378;;; Generated autoloads from progmodes/ebrowse.el
7373 7379
7374(autoload 'ebrowse-tree-mode "ebrowse" "\ 7380(autoload 'ebrowse-tree-mode "ebrowse" "\
@@ -7517,7 +7523,7 @@ Display statistics for a class tree.
7517;;;*** 7523;;;***
7518 7524
7519;;;### (autoloads (electric-buffer-list) "ebuff-menu" "ebuff-menu.el" 7525;;;### (autoloads (electric-buffer-list) "ebuff-menu" "ebuff-menu.el"
7520;;;;;; (20119 34052)) 7526;;;;;; (20104 14925))
7521;;; Generated autoloads from ebuff-menu.el 7527;;; Generated autoloads from ebuff-menu.el
7522 7528
7523(autoload 'electric-buffer-list "ebuff-menu" "\ 7529(autoload 'electric-buffer-list "ebuff-menu" "\
@@ -7542,7 +7548,7 @@ Run hooks in `electric-buffer-menu-mode-hook' on entry.
7542;;;*** 7548;;;***
7543 7549
7544;;;### (autoloads (Electric-command-history-redo-expression) "echistory" 7550;;;### (autoloads (Electric-command-history-redo-expression) "echistory"
7545;;;;;; "echistory.el" (20119 34052)) 7551;;;;;; "echistory.el" (19886 45771))
7546;;; Generated autoloads from echistory.el 7552;;; Generated autoloads from echistory.el
7547 7553
7548(autoload 'Electric-command-history-redo-expression "echistory" "\ 7554(autoload 'Electric-command-history-redo-expression "echistory" "\
@@ -7554,7 +7560,7 @@ With prefix arg NOCONFIRM, execute current line as-is without editing.
7554;;;*** 7560;;;***
7555 7561
7556;;;### (autoloads (ecomplete-setup) "ecomplete" "gnus/ecomplete.el" 7562;;;### (autoloads (ecomplete-setup) "ecomplete" "gnus/ecomplete.el"
7557;;;;;; (20119 34052)) 7563;;;;;; (20110 24804))
7558;;; Generated autoloads from gnus/ecomplete.el 7564;;; Generated autoloads from gnus/ecomplete.el
7559 7565
7560(autoload 'ecomplete-setup "ecomplete" "\ 7566(autoload 'ecomplete-setup "ecomplete" "\
@@ -7564,7 +7570,7 @@ With prefix arg NOCONFIRM, execute current line as-is without editing.
7564 7570
7565;;;*** 7571;;;***
7566 7572
7567;;;### (autoloads (global-ede-mode) "ede" "cedet/ede.el" (20131 35255)) 7573;;;### (autoloads (global-ede-mode) "ede" "cedet/ede.el" (20168 57844))
7568;;; Generated autoloads from cedet/ede.el 7574;;; Generated autoloads from cedet/ede.el
7569 7575
7570(defvar global-ede-mode nil "\ 7576(defvar global-ede-mode nil "\
@@ -7591,7 +7597,7 @@ an EDE controlled project.
7591 7597
7592;;;### (autoloads (edebug-all-forms edebug-all-defs edebug-eval-top-level-form 7598;;;### (autoloads (edebug-all-forms edebug-all-defs edebug-eval-top-level-form
7593;;;;;; edebug-basic-spec edebug-all-forms edebug-all-defs) "edebug" 7599;;;;;; edebug-basic-spec edebug-all-forms edebug-all-defs) "edebug"
7594;;;;;; "emacs-lisp/edebug.el" (20119 34052)) 7600;;;;;; "emacs-lisp/edebug.el" (20166 16092))
7595;;; Generated autoloads from emacs-lisp/edebug.el 7601;;; Generated autoloads from emacs-lisp/edebug.el
7596 7602
7597(defvar edebug-all-defs nil "\ 7603(defvar edebug-all-defs nil "\
@@ -7664,7 +7670,7 @@ Toggle edebugging of all forms.
7664;;;;;; ediff-merge-directories-with-ancestor ediff-merge-directories 7670;;;;;; ediff-merge-directories-with-ancestor ediff-merge-directories
7665;;;;;; ediff-directories3 ediff-directory-revisions ediff-directories 7671;;;;;; ediff-directories3 ediff-directory-revisions ediff-directories
7666;;;;;; ediff-buffers3 ediff-buffers ediff-backup ediff-current-file 7672;;;;;; ediff-buffers3 ediff-buffers ediff-backup ediff-current-file
7667;;;;;; ediff-files3 ediff-files) "ediff" "vc/ediff.el" (20119 34052)) 7673;;;;;; ediff-files3 ediff-files) "ediff" "vc/ediff.el" (19996 8027))
7668;;; Generated autoloads from vc/ediff.el 7674;;; Generated autoloads from vc/ediff.el
7669 7675
7670(autoload 'ediff-files "ediff" "\ 7676(autoload 'ediff-files "ediff" "\
@@ -7896,7 +7902,7 @@ With optional NODE, goes to that node.
7896;;;*** 7902;;;***
7897 7903
7898;;;### (autoloads (ediff-customize) "ediff-help" "vc/ediff-help.el" 7904;;;### (autoloads (ediff-customize) "ediff-help" "vc/ediff-help.el"
7899;;;;;; (20119 34052)) 7905;;;;;; (20178 7273))
7900;;; Generated autoloads from vc/ediff-help.el 7906;;; Generated autoloads from vc/ediff-help.el
7901 7907
7902(autoload 'ediff-customize "ediff-help" "\ 7908(autoload 'ediff-customize "ediff-help" "\
@@ -7907,7 +7913,7 @@ With optional NODE, goes to that node.
7907;;;*** 7913;;;***
7908 7914
7909;;;### (autoloads (ediff-show-registry) "ediff-mult" "vc/ediff-mult.el" 7915;;;### (autoloads (ediff-show-registry) "ediff-mult" "vc/ediff-mult.el"
7910;;;;;; (20119 34052)) 7916;;;;;; (20168 57844))
7911;;; Generated autoloads from vc/ediff-mult.el 7917;;; Generated autoloads from vc/ediff-mult.el
7912 7918
7913(autoload 'ediff-show-registry "ediff-mult" "\ 7919(autoload 'ediff-show-registry "ediff-mult" "\
@@ -7920,7 +7926,7 @@ Display Ediff's registry.
7920;;;*** 7926;;;***
7921 7927
7922;;;### (autoloads (ediff-toggle-use-toolbar ediff-toggle-multiframe) 7928;;;### (autoloads (ediff-toggle-use-toolbar ediff-toggle-multiframe)
7923;;;;;; "ediff-util" "vc/ediff-util.el" (20140 44390)) 7929;;;;;; "ediff-util" "vc/ediff-util.el" (20175 31160))
7924;;; Generated autoloads from vc/ediff-util.el 7930;;; Generated autoloads from vc/ediff-util.el
7925 7931
7926(autoload 'ediff-toggle-multiframe "ediff-util" "\ 7932(autoload 'ediff-toggle-multiframe "ediff-util" "\
@@ -7941,7 +7947,7 @@ To change the default, set the variable `ediff-use-toolbar-p', which see.
7941 7947
7942;;;### (autoloads (format-kbd-macro read-kbd-macro edit-named-kbd-macro 7948;;;### (autoloads (format-kbd-macro read-kbd-macro edit-named-kbd-macro
7943;;;;;; edit-last-kbd-macro edit-kbd-macro) "edmacro" "edmacro.el" 7949;;;;;; edit-last-kbd-macro edit-kbd-macro) "edmacro" "edmacro.el"
7944;;;;;; (20119 34052)) 7950;;;;;; (19886 45771))
7945;;; Generated autoloads from edmacro.el 7951;;; Generated autoloads from edmacro.el
7946 7952
7947(autoload 'edit-kbd-macro "edmacro" "\ 7953(autoload 'edit-kbd-macro "edmacro" "\
@@ -7990,7 +7996,7 @@ or nil, use a compact 80-column format.
7990;;;*** 7996;;;***
7991 7997
7992;;;### (autoloads (edt-emulation-on edt-set-scroll-margins) "edt" 7998;;;### (autoloads (edt-emulation-on edt-set-scroll-margins) "edt"
7993;;;;;; "emulation/edt.el" (20140 44303)) 7999;;;;;; "emulation/edt.el" (20154 24929))
7994;;; Generated autoloads from emulation/edt.el 8000;;; Generated autoloads from emulation/edt.el
7995 8001
7996(autoload 'edt-set-scroll-margins "edt" "\ 8002(autoload 'edt-set-scroll-margins "edt" "\
@@ -8008,7 +8014,7 @@ Turn on EDT Emulation.
8008;;;*** 8014;;;***
8009 8015
8010;;;### (autoloads (electric-helpify with-electric-help) "ehelp" "ehelp.el" 8016;;;### (autoloads (electric-helpify with-electric-help) "ehelp" "ehelp.el"
8011;;;;;; (20119 34052)) 8017;;;;;; (19865 50420))
8012;;; Generated autoloads from ehelp.el 8018;;; Generated autoloads from ehelp.el
8013 8019
8014(autoload 'with-electric-help "ehelp" "\ 8020(autoload 'with-electric-help "ehelp" "\
@@ -8045,7 +8051,7 @@ BUFFER is put back into its original major mode.
8045;;;*** 8051;;;***
8046 8052
8047;;;### (autoloads (turn-on-eldoc-mode eldoc-mode eldoc-minor-mode-string) 8053;;;### (autoloads (turn-on-eldoc-mode eldoc-mode eldoc-minor-mode-string)
8048;;;;;; "eldoc" "emacs-lisp/eldoc.el" (20127 23532)) 8054;;;;;; "eldoc" "emacs-lisp/eldoc.el" (20161 45793))
8049;;; Generated autoloads from emacs-lisp/eldoc.el 8055;;; Generated autoloads from emacs-lisp/eldoc.el
8050 8056
8051(defvar eldoc-minor-mode-string (purecopy " ElDoc") "\ 8057(defvar eldoc-minor-mode-string (purecopy " ElDoc") "\
@@ -8092,11 +8098,15 @@ Emacs Lisp mode) that support ElDoc.")
8092;;;*** 8098;;;***
8093 8099
8094;;;### (autoloads (electric-layout-mode electric-pair-mode electric-indent-mode) 8100;;;### (autoloads (electric-layout-mode electric-pair-mode electric-indent-mode)
8095;;;;;; "electric" "electric.el" (20126 50965)) 8101;;;;;; "electric" "electric.el" (20168 57844))
8096;;; Generated autoloads from electric.el 8102;;; Generated autoloads from electric.el
8097 8103
8098(defvar electric-indent-chars '(10) "\ 8104(defvar electric-indent-chars '(10) "\
8099Characters that should cause automatic reindentation.") 8105Characters that should cause automatic reindentation.
8106Each entry of the list can be either a character or a cons of the
8107form (CHAR . PREDICATE) which means that CHAR should cause reindentation
8108only if PREDICATE returns non-nil. PREDICATE is called with no arguments
8109and with point before the inserted char.")
8100 8110
8101(defvar electric-indent-mode nil "\ 8111(defvar electric-indent-mode nil "\
8102Non-nil if Electric-Indent mode is enabled. 8112Non-nil if Electric-Indent mode is enabled.
@@ -8156,8 +8166,8 @@ Automatically insert newlines around some chars.
8156 8166
8157;;;*** 8167;;;***
8158 8168
8159;;;### (autoloads (elide-head) "elide-head" "elide-head.el" (20119 8169;;;### (autoloads (elide-head) "elide-head" "elide-head.el" (19845
8160;;;;;; 34052)) 8170;;;;;; 45374))
8161;;; Generated autoloads from elide-head.el 8171;;; Generated autoloads from elide-head.el
8162 8172
8163(autoload 'elide-head "elide-head" "\ 8173(autoload 'elide-head "elide-head" "\
@@ -8174,7 +8184,7 @@ This is suitable as an entry on `find-file-hook' or appropriate mode hooks.
8174 8184
8175;;;### (autoloads (elint-initialize elint-defun elint-current-buffer 8185;;;### (autoloads (elint-initialize elint-defun elint-current-buffer
8176;;;;;; elint-directory elint-file) "elint" "emacs-lisp/elint.el" 8186;;;;;; elint-directory elint-file) "elint" "emacs-lisp/elint.el"
8177;;;;;; (20119 34052)) 8187;;;;;; (20172 54913))
8178;;; Generated autoloads from emacs-lisp/elint.el 8188;;; Generated autoloads from emacs-lisp/elint.el
8179 8189
8180(autoload 'elint-file "elint" "\ 8190(autoload 'elint-file "elint" "\
@@ -8210,8 +8220,8 @@ optional prefix argument REINIT is non-nil.
8210;;;*** 8220;;;***
8211 8221
8212;;;### (autoloads (elp-results elp-instrument-package elp-instrument-list 8222;;;### (autoloads (elp-results elp-instrument-package elp-instrument-list
8213;;;;;; elp-instrument-function) "elp" "emacs-lisp/elp.el" (20119 8223;;;;;; elp-instrument-function) "elp" "emacs-lisp/elp.el" (19981
8214;;;;;; 34052)) 8224;;;;;; 40664))
8215;;; Generated autoloads from emacs-lisp/elp.el 8225;;; Generated autoloads from emacs-lisp/elp.el
8216 8226
8217(autoload 'elp-instrument-function "elp" "\ 8227(autoload 'elp-instrument-function "elp" "\
@@ -8246,7 +8256,7 @@ displayed.
8246;;;*** 8256;;;***
8247 8257
8248;;;### (autoloads (emacs-lock-mode) "emacs-lock" "emacs-lock.el" 8258;;;### (autoloads (emacs-lock-mode) "emacs-lock" "emacs-lock.el"
8249;;;;;; (20126 50977)) 8259;;;;;; (20127 62865))
8250;;; Generated autoloads from emacs-lock.el 8260;;; Generated autoloads from emacs-lock.el
8251 8261
8252(autoload 'emacs-lock-mode "emacs-lock" "\ 8262(autoload 'emacs-lock-mode "emacs-lock" "\
@@ -8274,7 +8284,7 @@ Other values are interpreted as usual.
8274;;;*** 8284;;;***
8275 8285
8276;;;### (autoloads (report-emacs-bug-query-existing-bugs report-emacs-bug) 8286;;;### (autoloads (report-emacs-bug-query-existing-bugs report-emacs-bug)
8277;;;;;; "emacsbug" "mail/emacsbug.el" (20119 34052)) 8287;;;;;; "emacsbug" "mail/emacsbug.el" (20093 44623))
8278;;; Generated autoloads from mail/emacsbug.el 8288;;; Generated autoloads from mail/emacsbug.el
8279 8289
8280(autoload 'report-emacs-bug "emacsbug" "\ 8290(autoload 'report-emacs-bug "emacsbug" "\
@@ -8295,7 +8305,7 @@ The result is an alist with items of the form (URL SUBJECT NO).
8295;;;;;; emerge-revisions emerge-files-with-ancestor-remote emerge-files-remote 8305;;;;;; emerge-revisions emerge-files-with-ancestor-remote emerge-files-remote
8296;;;;;; emerge-files-with-ancestor-command emerge-files-command emerge-buffers-with-ancestor 8306;;;;;; emerge-files-with-ancestor-command emerge-files-command emerge-buffers-with-ancestor
8297;;;;;; emerge-buffers emerge-files-with-ancestor emerge-files) "emerge" 8307;;;;;; emerge-buffers emerge-files-with-ancestor emerge-files) "emerge"
8298;;;;;; "vc/emerge.el" (20140 44401)) 8308;;;;;; "vc/emerge.el" (20141 9296))
8299;;; Generated autoloads from vc/emerge.el 8309;;; Generated autoloads from vc/emerge.el
8300 8310
8301(autoload 'emerge-files "emerge" "\ 8311(autoload 'emerge-files "emerge" "\
@@ -8356,7 +8366,7 @@ Emerge two RCS revisions of a file, with another revision as ancestor.
8356;;;*** 8366;;;***
8357 8367
8358;;;### (autoloads (enriched-decode enriched-encode enriched-mode) 8368;;;### (autoloads (enriched-decode enriched-encode enriched-mode)
8359;;;;;; "enriched" "textmodes/enriched.el" (20127 24788)) 8369;;;;;; "enriched" "textmodes/enriched.el" (19845 45374))
8360;;; Generated autoloads from textmodes/enriched.el 8370;;; Generated autoloads from textmodes/enriched.el
8361 8371
8362(autoload 'enriched-mode "enriched" "\ 8372(autoload 'enriched-mode "enriched" "\
@@ -8391,8 +8401,8 @@ Commands:
8391;;;;;; epa-sign-region epa-verify-cleartext-in-region epa-verify-region 8401;;;;;; epa-sign-region epa-verify-cleartext-in-region epa-verify-region
8392;;;;;; epa-decrypt-armor-in-region epa-decrypt-region epa-encrypt-file 8402;;;;;; epa-decrypt-armor-in-region epa-decrypt-region epa-encrypt-file
8393;;;;;; epa-sign-file epa-verify-file epa-decrypt-file epa-select-keys 8403;;;;;; epa-sign-file epa-verify-file epa-decrypt-file epa-select-keys
8394;;;;;; epa-list-secret-keys epa-list-keys) "epa" "epa.el" (20119 8404;;;;;; epa-list-secret-keys epa-list-keys) "epa" "epa.el" (20104
8395;;;;;; 34052)) 8405;;;;;; 14925))
8396;;; Generated autoloads from epa.el 8406;;; Generated autoloads from epa.el
8397 8407
8398(autoload 'epa-list-keys "epa" "\ 8408(autoload 'epa-list-keys "epa" "\
@@ -8570,7 +8580,7 @@ Insert selected KEYS after the point.
8570;;;*** 8580;;;***
8571 8581
8572;;;### (autoloads (epa-dired-do-encrypt epa-dired-do-sign epa-dired-do-verify 8582;;;### (autoloads (epa-dired-do-encrypt epa-dired-do-sign epa-dired-do-verify
8573;;;;;; epa-dired-do-decrypt) "epa-dired" "epa-dired.el" (20119 34052)) 8583;;;;;; epa-dired-do-decrypt) "epa-dired" "epa-dired.el" (19865 50420))
8574;;; Generated autoloads from epa-dired.el 8584;;; Generated autoloads from epa-dired.el
8575 8585
8576(autoload 'epa-dired-do-decrypt "epa-dired" "\ 8586(autoload 'epa-dired-do-decrypt "epa-dired" "\
@@ -8596,7 +8606,7 @@ Encrypt marked files.
8596;;;*** 8606;;;***
8597 8607
8598;;;### (autoloads (epa-file-disable epa-file-enable epa-file-handler) 8608;;;### (autoloads (epa-file-disable epa-file-enable epa-file-handler)
8599;;;;;; "epa-file" "epa-file.el" (20119 34052)) 8609;;;;;; "epa-file" "epa-file.el" (20038 20303))
8600;;; Generated autoloads from epa-file.el 8610;;; Generated autoloads from epa-file.el
8601 8611
8602(autoload 'epa-file-handler "epa-file" "\ 8612(autoload 'epa-file-handler "epa-file" "\
@@ -8618,7 +8628,7 @@ Encrypt marked files.
8618 8628
8619;;;### (autoloads (epa-global-mail-mode epa-mail-import-keys epa-mail-encrypt 8629;;;### (autoloads (epa-global-mail-mode epa-mail-import-keys epa-mail-encrypt
8620;;;;;; epa-mail-sign epa-mail-verify epa-mail-decrypt epa-mail-mode) 8630;;;;;; epa-mail-sign epa-mail-verify epa-mail-decrypt epa-mail-mode)
8621;;;;;; "epa-mail" "epa-mail.el" (20119 34052)) 8631;;;;;; "epa-mail" "epa-mail.el" (20043 38232))
8622;;; Generated autoloads from epa-mail.el 8632;;; Generated autoloads from epa-mail.el
8623 8633
8624(autoload 'epa-mail-mode "epa-mail" "\ 8634(autoload 'epa-mail-mode "epa-mail" "\
@@ -8682,7 +8692,7 @@ Minor mode to hook EasyPG into Mail mode.
8682 8692
8683;;;*** 8693;;;***
8684 8694
8685;;;### (autoloads (epg-make-context) "epg" "epg.el" (20119 34052)) 8695;;;### (autoloads (epg-make-context) "epg" "epg.el" (20172 54913))
8686;;; Generated autoloads from epg.el 8696;;; Generated autoloads from epg.el
8687 8697
8688(autoload 'epg-make-context "epg" "\ 8698(autoload 'epg-make-context "epg" "\
@@ -8693,7 +8703,7 @@ Return a context object.
8693;;;*** 8703;;;***
8694 8704
8695;;;### (autoloads (epg-expand-group epg-check-configuration epg-configuration) 8705;;;### (autoloads (epg-expand-group epg-check-configuration epg-configuration)
8696;;;;;; "epg-config" "epg-config.el" (20119 34052)) 8706;;;;;; "epg-config" "epg-config.el" (19845 45374))
8697;;; Generated autoloads from epg-config.el 8707;;; Generated autoloads from epg-config.el
8698 8708
8699(autoload 'epg-configuration "epg-config" "\ 8709(autoload 'epg-configuration "epg-config" "\
@@ -8714,7 +8724,7 @@ Look at CONFIG and try to expand GROUP.
8714;;;*** 8724;;;***
8715 8725
8716;;;### (autoloads (erc-handle-irc-url erc erc-select-read-args) "erc" 8726;;;### (autoloads (erc-handle-irc-url erc erc-select-read-args) "erc"
8717;;;;;; "erc/erc.el" (20127 26333)) 8727;;;;;; "erc/erc.el" (20172 54913))
8718;;; Generated autoloads from erc/erc.el 8728;;; Generated autoloads from erc/erc.el
8719 8729
8720(autoload 'erc-select-read-args "erc" "\ 8730(autoload 'erc-select-read-args "erc" "\
@@ -8756,33 +8766,33 @@ Otherwise, connect to HOST:PORT as USER and /join CHANNEL.
8756 8766
8757;;;*** 8767;;;***
8758 8768
8759;;;### (autoloads nil "erc-autoaway" "erc/erc-autoaway.el" (20119 8769;;;### (autoloads nil "erc-autoaway" "erc/erc-autoaway.el" (20161
8760;;;;;; 34052)) 8770;;;;;; 45793))
8761;;; Generated autoloads from erc/erc-autoaway.el 8771;;; Generated autoloads from erc/erc-autoaway.el
8762 (autoload 'erc-autoaway-mode "erc-autoaway") 8772 (autoload 'erc-autoaway-mode "erc-autoaway")
8763 8773
8764;;;*** 8774;;;***
8765 8775
8766;;;### (autoloads nil "erc-button" "erc/erc-button.el" (20119 34052)) 8776;;;### (autoloads nil "erc-button" "erc/erc-button.el" (20093 44623))
8767;;; Generated autoloads from erc/erc-button.el 8777;;; Generated autoloads from erc/erc-button.el
8768 (autoload 'erc-button-mode "erc-button" nil t) 8778 (autoload 'erc-button-mode "erc-button" nil t)
8769 8779
8770;;;*** 8780;;;***
8771 8781
8772;;;### (autoloads nil "erc-capab" "erc/erc-capab.el" (20119 34052)) 8782;;;### (autoloads nil "erc-capab" "erc/erc-capab.el" (19845 45374))
8773;;; Generated autoloads from erc/erc-capab.el 8783;;; Generated autoloads from erc/erc-capab.el
8774 (autoload 'erc-capab-identify-mode "erc-capab" nil t) 8784 (autoload 'erc-capab-identify-mode "erc-capab" nil t)
8775 8785
8776;;;*** 8786;;;***
8777 8787
8778;;;### (autoloads nil "erc-compat" "erc/erc-compat.el" (20119 34052)) 8788;;;### (autoloads nil "erc-compat" "erc/erc-compat.el" (19845 45374))
8779;;; Generated autoloads from erc/erc-compat.el 8789;;; Generated autoloads from erc/erc-compat.el
8780 (autoload 'erc-define-minor-mode "erc-compat") 8790 (autoload 'erc-define-minor-mode "erc-compat")
8781 8791
8782;;;*** 8792;;;***
8783 8793
8784;;;### (autoloads (erc-ctcp-query-DCC pcomplete/erc-mode/DCC erc-cmd-DCC) 8794;;;### (autoloads (erc-ctcp-query-DCC pcomplete/erc-mode/DCC erc-cmd-DCC)
8785;;;;;; "erc-dcc" "erc/erc-dcc.el" (20119 34052)) 8795;;;;;; "erc-dcc" "erc/erc-dcc.el" (20179 28130))
8786;;; Generated autoloads from erc/erc-dcc.el 8796;;; Generated autoloads from erc/erc-dcc.el
8787 (autoload 'erc-dcc-mode "erc-dcc") 8797 (autoload 'erc-dcc-mode "erc-dcc")
8788 8798
@@ -8815,7 +8825,7 @@ that subcommand.
8815;;;;;; erc-ezb-add-session erc-ezb-end-of-session-list erc-ezb-init-session-list 8825;;;;;; erc-ezb-add-session erc-ezb-end-of-session-list erc-ezb-init-session-list
8816;;;;;; erc-ezb-identify erc-ezb-notice-autodetect erc-ezb-lookup-action 8826;;;;;; erc-ezb-identify erc-ezb-notice-autodetect erc-ezb-lookup-action
8817;;;;;; erc-ezb-get-login erc-cmd-ezb) "erc-ezbounce" "erc/erc-ezbounce.el" 8827;;;;;; erc-ezb-get-login erc-cmd-ezb) "erc-ezbounce" "erc/erc-ezbounce.el"
8818;;;;;; (20119 34052)) 8828;;;;;; (19845 45374))
8819;;; Generated autoloads from erc/erc-ezbounce.el 8829;;; Generated autoloads from erc/erc-ezbounce.el
8820 8830
8821(autoload 'erc-cmd-ezb "erc-ezbounce" "\ 8831(autoload 'erc-cmd-ezb "erc-ezbounce" "\
@@ -8878,7 +8888,7 @@ Add EZBouncer convenience functions to ERC.
8878;;;*** 8888;;;***
8879 8889
8880;;;### (autoloads (erc-fill) "erc-fill" "erc/erc-fill.el" (20127 8890;;;### (autoloads (erc-fill) "erc-fill" "erc/erc-fill.el" (20127
8881;;;;;; 26298)) 8891;;;;;; 62865))
8882;;; Generated autoloads from erc/erc-fill.el 8892;;; Generated autoloads from erc/erc-fill.el
8883 (autoload 'erc-fill-mode "erc-fill" nil t) 8893 (autoload 'erc-fill-mode "erc-fill" nil t)
8884 8894
@@ -8891,7 +8901,7 @@ You can put this on `erc-insert-modify-hook' and/or `erc-send-modify-hook'.
8891;;;*** 8901;;;***
8892 8902
8893;;;### (autoloads (erc-identd-stop erc-identd-start) "erc-identd" 8903;;;### (autoloads (erc-identd-stop erc-identd-start) "erc-identd"
8894;;;;;; "erc/erc-identd.el" (20119 34052)) 8904;;;;;; "erc/erc-identd.el" (19845 45374))
8895;;; Generated autoloads from erc/erc-identd.el 8905;;; Generated autoloads from erc/erc-identd.el
8896 (autoload 'erc-identd-mode "erc-identd") 8906 (autoload 'erc-identd-mode "erc-identd")
8897 8907
@@ -8913,7 +8923,7 @@ system.
8913;;;*** 8923;;;***
8914 8924
8915;;;### (autoloads (erc-create-imenu-index) "erc-imenu" "erc/erc-imenu.el" 8925;;;### (autoloads (erc-create-imenu-index) "erc-imenu" "erc/erc-imenu.el"
8916;;;;;; (20119 34052)) 8926;;;;;; (19845 45374))
8917;;; Generated autoloads from erc/erc-imenu.el 8927;;; Generated autoloads from erc/erc-imenu.el
8918 8928
8919(autoload 'erc-create-imenu-index "erc-imenu" "\ 8929(autoload 'erc-create-imenu-index "erc-imenu" "\
@@ -8923,20 +8933,20 @@ system.
8923 8933
8924;;;*** 8934;;;***
8925 8935
8926;;;### (autoloads nil "erc-join" "erc/erc-join.el" (20119 34052)) 8936;;;### (autoloads nil "erc-join" "erc/erc-join.el" (19845 45374))
8927;;; Generated autoloads from erc/erc-join.el 8937;;; Generated autoloads from erc/erc-join.el
8928 (autoload 'erc-autojoin-mode "erc-join" nil t) 8938 (autoload 'erc-autojoin-mode "erc-join" nil t)
8929 8939
8930;;;*** 8940;;;***
8931 8941
8932;;;### (autoloads nil "erc-list" "erc/erc-list.el" (20119 34052)) 8942;;;### (autoloads nil "erc-list" "erc/erc-list.el" (19845 45374))
8933;;; Generated autoloads from erc/erc-list.el 8943;;; Generated autoloads from erc/erc-list.el
8934 (autoload 'erc-list-mode "erc-list") 8944 (autoload 'erc-list-mode "erc-list")
8935 8945
8936;;;*** 8946;;;***
8937 8947
8938;;;### (autoloads (erc-save-buffer-in-logs erc-logging-enabled) "erc-log" 8948;;;### (autoloads (erc-save-buffer-in-logs erc-logging-enabled) "erc-log"
8939;;;;;; "erc/erc-log.el" (20119 34052)) 8949;;;;;; "erc/erc-log.el" (20168 57844))
8940;;; Generated autoloads from erc/erc-log.el 8950;;; Generated autoloads from erc/erc-log.el
8941 (autoload 'erc-log-mode "erc-log" nil t) 8951 (autoload 'erc-log-mode "erc-log" nil t)
8942 8952
@@ -8944,7 +8954,7 @@ system.
8944Return non-nil if logging is enabled for BUFFER. 8954Return non-nil if logging is enabled for BUFFER.
8945If BUFFER is nil, the value of `current-buffer' is used. 8955If BUFFER is nil, the value of `current-buffer' is used.
8946Logging is enabled if `erc-log-channels-directory' is non-nil, the directory 8956Logging is enabled if `erc-log-channels-directory' is non-nil, the directory
8947is writeable (it will be created as necessary) and 8957is writable (it will be created as necessary) and
8948`erc-enable-logging' returns a non-nil value. 8958`erc-enable-logging' returns a non-nil value.
8949 8959
8950\(fn &optional BUFFER)" nil nil) 8960\(fn &optional BUFFER)" nil nil)
@@ -8968,7 +8978,7 @@ You can save every individual message by putting this function on
8968;;;### (autoloads (erc-delete-dangerous-host erc-add-dangerous-host 8978;;;### (autoloads (erc-delete-dangerous-host erc-add-dangerous-host
8969;;;;;; erc-delete-keyword erc-add-keyword erc-delete-fool erc-add-fool 8979;;;;;; erc-delete-keyword erc-add-keyword erc-delete-fool erc-add-fool
8970;;;;;; erc-delete-pal erc-add-pal) "erc-match" "erc/erc-match.el" 8980;;;;;; erc-delete-pal erc-add-pal) "erc-match" "erc/erc-match.el"
8971;;;;;; (20119 34052)) 8981;;;;;; (20168 57844))
8972;;; Generated autoloads from erc/erc-match.el 8982;;; Generated autoloads from erc/erc-match.el
8973 (autoload 'erc-match-mode "erc-match") 8983 (autoload 'erc-match-mode "erc-match")
8974 8984
@@ -9014,14 +9024,14 @@ Delete dangerous-host interactively to `erc-dangerous-hosts'.
9014 9024
9015;;;*** 9025;;;***
9016 9026
9017;;;### (autoloads nil "erc-menu" "erc/erc-menu.el" (20119 34052)) 9027;;;### (autoloads nil "erc-menu" "erc/erc-menu.el" (19845 45374))
9018;;; Generated autoloads from erc/erc-menu.el 9028;;; Generated autoloads from erc/erc-menu.el
9019 (autoload 'erc-menu-mode "erc-menu" nil t) 9029 (autoload 'erc-menu-mode "erc-menu" nil t)
9020 9030
9021;;;*** 9031;;;***
9022 9032
9023;;;### (autoloads (erc-cmd-WHOLEFT) "erc-netsplit" "erc/erc-netsplit.el" 9033;;;### (autoloads (erc-cmd-WHOLEFT) "erc-netsplit" "erc/erc-netsplit.el"
9024;;;;;; (20119 34052)) 9034;;;;;; (19845 45374))
9025;;; Generated autoloads from erc/erc-netsplit.el 9035;;; Generated autoloads from erc/erc-netsplit.el
9026 (autoload 'erc-netsplit-mode "erc-netsplit") 9036 (autoload 'erc-netsplit-mode "erc-netsplit")
9027 9037
@@ -9033,7 +9043,7 @@ Show who's gone.
9033;;;*** 9043;;;***
9034 9044
9035;;;### (autoloads (erc-server-select erc-determine-network) "erc-networks" 9045;;;### (autoloads (erc-server-select erc-determine-network) "erc-networks"
9036;;;;;; "erc/erc-networks.el" (20119 34052)) 9046;;;;;; "erc/erc-networks.el" (19845 45374))
9037;;; Generated autoloads from erc/erc-networks.el 9047;;; Generated autoloads from erc/erc-networks.el
9038 9048
9039(autoload 'erc-determine-network "erc-networks" "\ 9049(autoload 'erc-determine-network "erc-networks" "\
@@ -9051,13 +9061,13 @@ Interactively select a server to connect to using `erc-server-alist'.
9051;;;*** 9061;;;***
9052 9062
9053;;;### (autoloads (pcomplete/erc-mode/NOTIFY erc-cmd-NOTIFY) "erc-notify" 9063;;;### (autoloads (pcomplete/erc-mode/NOTIFY erc-cmd-NOTIFY) "erc-notify"
9054;;;;;; "erc/erc-notify.el" (20119 34052)) 9064;;;;;; "erc/erc-notify.el" (20161 45793))
9055;;; Generated autoloads from erc/erc-notify.el 9065;;; Generated autoloads from erc/erc-notify.el
9056 (autoload 'erc-notify-mode "erc-notify" nil t) 9066 (autoload 'erc-notify-mode "erc-notify" nil t)
9057 9067
9058(autoload 'erc-cmd-NOTIFY "erc-notify" "\ 9068(autoload 'erc-cmd-NOTIFY "erc-notify" "\
9059Change `erc-notify-list' or list current notify-list members online. 9069Change `erc-notify-list' or list current notify-list members online.
9060Without args, list the current list of notificated people online, 9070Without args, list the current list of notified people online,
9061with args, toggle notify status of people. 9071with args, toggle notify status of people.
9062 9072
9063\(fn &rest ARGS)" nil nil) 9073\(fn &rest ARGS)" nil nil)
@@ -9069,33 +9079,33 @@ with args, toggle notify status of people.
9069 9079
9070;;;*** 9080;;;***
9071 9081
9072;;;### (autoloads nil "erc-page" "erc/erc-page.el" (20119 34052)) 9082;;;### (autoloads nil "erc-page" "erc/erc-page.el" (19845 45374))
9073;;; Generated autoloads from erc/erc-page.el 9083;;; Generated autoloads from erc/erc-page.el
9074 (autoload 'erc-page-mode "erc-page") 9084 (autoload 'erc-page-mode "erc-page")
9075 9085
9076;;;*** 9086;;;***
9077 9087
9078;;;### (autoloads nil "erc-pcomplete" "erc/erc-pcomplete.el" (20119 9088;;;### (autoloads nil "erc-pcomplete" "erc/erc-pcomplete.el" (19936
9079;;;;;; 34052)) 9089;;;;;; 52203))
9080;;; Generated autoloads from erc/erc-pcomplete.el 9090;;; Generated autoloads from erc/erc-pcomplete.el
9081 (autoload 'erc-completion-mode "erc-pcomplete" nil t) 9091 (autoload 'erc-completion-mode "erc-pcomplete" nil t)
9082 9092
9083;;;*** 9093;;;***
9084 9094
9085;;;### (autoloads nil "erc-replace" "erc/erc-replace.el" (20119 34052)) 9095;;;### (autoloads nil "erc-replace" "erc/erc-replace.el" (19845 45374))
9086;;; Generated autoloads from erc/erc-replace.el 9096;;; Generated autoloads from erc/erc-replace.el
9087 (autoload 'erc-replace-mode "erc-replace") 9097 (autoload 'erc-replace-mode "erc-replace")
9088 9098
9089;;;*** 9099;;;***
9090 9100
9091;;;### (autoloads nil "erc-ring" "erc/erc-ring.el" (20119 34052)) 9101;;;### (autoloads nil "erc-ring" "erc/erc-ring.el" (19845 45374))
9092;;; Generated autoloads from erc/erc-ring.el 9102;;; Generated autoloads from erc/erc-ring.el
9093 (autoload 'erc-ring-mode "erc-ring" nil t) 9103 (autoload 'erc-ring-mode "erc-ring" nil t)
9094 9104
9095;;;*** 9105;;;***
9096 9106
9097;;;### (autoloads (erc-nickserv-identify erc-nickserv-identify-mode) 9107;;;### (autoloads (erc-nickserv-identify erc-nickserv-identify-mode)
9098;;;;;; "erc-services" "erc/erc-services.el" (20119 34052)) 9108;;;;;; "erc-services" "erc/erc-services.el" (19845 45374))
9099;;; Generated autoloads from erc/erc-services.el 9109;;; Generated autoloads from erc/erc-services.el
9100 (autoload 'erc-services-mode "erc-services" nil t) 9110 (autoload 'erc-services-mode "erc-services" nil t)
9101 9111
@@ -9112,14 +9122,14 @@ When called interactively, read the password using `read-passwd'.
9112 9122
9113;;;*** 9123;;;***
9114 9124
9115;;;### (autoloads nil "erc-sound" "erc/erc-sound.el" (20119 34052)) 9125;;;### (autoloads nil "erc-sound" "erc/erc-sound.el" (19845 45374))
9116;;; Generated autoloads from erc/erc-sound.el 9126;;; Generated autoloads from erc/erc-sound.el
9117 (autoload 'erc-sound-mode "erc-sound") 9127 (autoload 'erc-sound-mode "erc-sound")
9118 9128
9119;;;*** 9129;;;***
9120 9130
9121;;;### (autoloads (erc-speedbar-browser) "erc-speedbar" "erc/erc-speedbar.el" 9131;;;### (autoloads (erc-speedbar-browser) "erc-speedbar" "erc/erc-speedbar.el"
9122;;;;;; (20119 34052)) 9132;;;;;; (19845 45374))
9123;;; Generated autoloads from erc/erc-speedbar.el 9133;;; Generated autoloads from erc/erc-speedbar.el
9124 9134
9125(autoload 'erc-speedbar-browser "erc-speedbar" "\ 9135(autoload 'erc-speedbar-browser "erc-speedbar" "\
@@ -9130,21 +9140,21 @@ This will add a speedbar major display mode.
9130 9140
9131;;;*** 9141;;;***
9132 9142
9133;;;### (autoloads nil "erc-spelling" "erc/erc-spelling.el" (20119 9143;;;### (autoloads nil "erc-spelling" "erc/erc-spelling.el" (19845
9134;;;;;; 34052)) 9144;;;;;; 45374))
9135;;; Generated autoloads from erc/erc-spelling.el 9145;;; Generated autoloads from erc/erc-spelling.el
9136 (autoload 'erc-spelling-mode "erc-spelling" nil t) 9146 (autoload 'erc-spelling-mode "erc-spelling" nil t)
9137 9147
9138;;;*** 9148;;;***
9139 9149
9140;;;### (autoloads nil "erc-stamp" "erc/erc-stamp.el" (20119 34052)) 9150;;;### (autoloads nil "erc-stamp" "erc/erc-stamp.el" (19845 45374))
9141;;; Generated autoloads from erc/erc-stamp.el 9151;;; Generated autoloads from erc/erc-stamp.el
9142 (autoload 'erc-timestamp-mode "erc-stamp" nil t) 9152 (autoload 'erc-timestamp-mode "erc-stamp" nil t)
9143 9153
9144;;;*** 9154;;;***
9145 9155
9146;;;### (autoloads (erc-track-minor-mode) "erc-track" "erc/erc-track.el" 9156;;;### (autoloads (erc-track-minor-mode) "erc-track" "erc/erc-track.el"
9147;;;;;; (20127 26257)) 9157;;;;;; (20168 57844))
9148;;; Generated autoloads from erc/erc-track.el 9158;;; Generated autoloads from erc/erc-track.el
9149 9159
9150(defvar erc-track-minor-mode nil "\ 9160(defvar erc-track-minor-mode nil "\
@@ -9170,7 +9180,7 @@ keybindings will not do anything useful.
9170;;;*** 9180;;;***
9171 9181
9172;;;### (autoloads (erc-truncate-buffer erc-truncate-buffer-to-size) 9182;;;### (autoloads (erc-truncate-buffer erc-truncate-buffer-to-size)
9173;;;;;; "erc-truncate" "erc/erc-truncate.el" (20119 34052)) 9183;;;;;; "erc-truncate" "erc/erc-truncate.el" (19845 45374))
9174;;; Generated autoloads from erc/erc-truncate.el 9184;;; Generated autoloads from erc/erc-truncate.el
9175 (autoload 'erc-truncate-mode "erc-truncate" nil t) 9185 (autoload 'erc-truncate-mode "erc-truncate" nil t)
9176 9186
@@ -9190,7 +9200,7 @@ Meant to be used in hooks, like `erc-insert-post-hook'.
9190;;;*** 9200;;;***
9191 9201
9192;;;### (autoloads (erc-xdcc-add-file) "erc-xdcc" "erc/erc-xdcc.el" 9202;;;### (autoloads (erc-xdcc-add-file) "erc-xdcc" "erc/erc-xdcc.el"
9193;;;;;; (20119 34052)) 9203;;;;;; (19845 45374))
9194;;; Generated autoloads from erc/erc-xdcc.el 9204;;; Generated autoloads from erc/erc-xdcc.el
9195 (autoload 'erc-xdcc-mode "erc-xdcc") 9205 (autoload 'erc-xdcc-mode "erc-xdcc")
9196 9206
@@ -9203,7 +9213,7 @@ Add a file to `erc-xdcc-files'.
9203 9213
9204;;;### (autoloads (ert-describe-test ert-run-tests-interactively 9214;;;### (autoloads (ert-describe-test ert-run-tests-interactively
9205;;;;;; ert-run-tests-batch-and-exit ert-run-tests-batch ert-deftest) 9215;;;;;; ert-run-tests-batch-and-exit ert-run-tests-batch ert-deftest)
9206;;;;;; "ert" "emacs-lisp/ert.el" (20123 28776)) 9216;;;;;; "ert" "emacs-lisp/ert.el" (20168 57844))
9207;;; Generated autoloads from emacs-lisp/ert.el 9217;;; Generated autoloads from emacs-lisp/ert.el
9208 9218
9209(autoload 'ert-deftest "ert" "\ 9219(autoload 'ert-deftest "ert" "\
@@ -9273,7 +9283,7 @@ Display the documentation for TEST-OR-TEST-NAME (a symbol or ert-test).
9273;;;*** 9283;;;***
9274 9284
9275;;;### (autoloads (ert-kill-all-test-buffers) "ert-x" "emacs-lisp/ert-x.el" 9285;;;### (autoloads (ert-kill-all-test-buffers) "ert-x" "emacs-lisp/ert-x.el"
9276;;;;;; (20119 34052)) 9286;;;;;; (19845 45374))
9277;;; Generated autoloads from emacs-lisp/ert-x.el 9287;;; Generated autoloads from emacs-lisp/ert-x.el
9278 9288
9279(put 'ert-with-test-buffer 'lisp-indent-function 1) 9289(put 'ert-with-test-buffer 'lisp-indent-function 1)
@@ -9285,8 +9295,8 @@ Kill all test buffers that are still live.
9285 9295
9286;;;*** 9296;;;***
9287 9297
9288;;;### (autoloads (eshell-mode) "esh-mode" "eshell/esh-mode.el" (20119 9298;;;### (autoloads (eshell-mode) "esh-mode" "eshell/esh-mode.el" (20164
9289;;;;;; 34052)) 9299;;;;;; 60780))
9290;;; Generated autoloads from eshell/esh-mode.el 9300;;; Generated autoloads from eshell/esh-mode.el
9291 9301
9292(autoload 'eshell-mode "esh-mode" "\ 9302(autoload 'eshell-mode "esh-mode" "\
@@ -9299,7 +9309,7 @@ Emacs shell interactive mode.
9299;;;*** 9309;;;***
9300 9310
9301;;;### (autoloads (eshell-command-result eshell-command eshell) "eshell" 9311;;;### (autoloads (eshell-command-result eshell-command eshell) "eshell"
9302;;;;;; "eshell/eshell.el" (20119 34052)) 9312;;;;;; "eshell/eshell.el" (20116 6099))
9303;;; Generated autoloads from eshell/eshell.el 9313;;; Generated autoloads from eshell/eshell.el
9304 9314
9305(autoload 'eshell "eshell" "\ 9315(autoload 'eshell "eshell" "\
@@ -9340,7 +9350,7 @@ corresponding to a successful execution.
9340;;;;;; visit-tags-table tags-table-mode find-tag-default-function 9350;;;;;; visit-tags-table tags-table-mode find-tag-default-function
9341;;;;;; find-tag-hook tags-add-tables tags-compression-info-list 9351;;;;;; find-tag-hook tags-add-tables tags-compression-info-list
9342;;;;;; tags-table-list tags-case-fold-search) "etags" "progmodes/etags.el" 9352;;;;;; tags-table-list tags-case-fold-search) "etags" "progmodes/etags.el"
9343;;;;;; (20119 34052)) 9353;;;;;; (20168 57844))
9344;;; Generated autoloads from progmodes/etags.el 9354;;; Generated autoloads from progmodes/etags.el
9345 9355
9346(defvar tags-file-name nil "\ 9356(defvar tags-file-name nil "\
@@ -9658,7 +9668,7 @@ for \\[find-tag] (which see).
9658;;;;;; ethio-fidel-to-sera-marker ethio-fidel-to-sera-region ethio-fidel-to-sera-buffer 9668;;;;;; ethio-fidel-to-sera-marker ethio-fidel-to-sera-region ethio-fidel-to-sera-buffer
9659;;;;;; ethio-sera-to-fidel-marker ethio-sera-to-fidel-region ethio-sera-to-fidel-buffer 9669;;;;;; ethio-sera-to-fidel-marker ethio-sera-to-fidel-region ethio-sera-to-fidel-buffer
9660;;;;;; setup-ethiopic-environment-internal) "ethio-util" "language/ethio-util.el" 9670;;;;;; setup-ethiopic-environment-internal) "ethio-util" "language/ethio-util.el"
9661;;;;;; (20119 34052)) 9671;;;;;; (20175 31160))
9662;;; Generated autoloads from language/ethio-util.el 9672;;; Generated autoloads from language/ethio-util.el
9663 9673
9664(autoload 'setup-ethiopic-environment-internal "ethio-util" "\ 9674(autoload 'setup-ethiopic-environment-internal "ethio-util" "\
@@ -9828,7 +9838,7 @@ With ARG, insert that many delimiters.
9828 9838
9829;;;### (autoloads (eudc-load-eudc eudc-query-form eudc-expand-inline 9839;;;### (autoloads (eudc-load-eudc eudc-query-form eudc-expand-inline
9830;;;;;; eudc-get-phone eudc-get-email eudc-set-server) "eudc" "net/eudc.el" 9840;;;;;; eudc-get-phone eudc-get-email eudc-set-server) "eudc" "net/eudc.el"
9831;;;;;; (20119 34052)) 9841;;;;;; (19931 11784))
9832;;; Generated autoloads from net/eudc.el 9842;;; Generated autoloads from net/eudc.el
9833 9843
9834(autoload 'eudc-set-server "eudc" "\ 9844(autoload 'eudc-set-server "eudc" "\
@@ -9884,7 +9894,7 @@ This does nothing except loading eudc by autoload side-effect.
9884 9894
9885;;;### (autoloads (eudc-display-jpeg-as-button eudc-display-jpeg-inline 9895;;;### (autoloads (eudc-display-jpeg-as-button eudc-display-jpeg-inline
9886;;;;;; eudc-display-sound eudc-display-mail eudc-display-url eudc-display-generic-binary) 9896;;;;;; eudc-display-sound eudc-display-mail eudc-display-url eudc-display-generic-binary)
9887;;;;;; "eudc-bob" "net/eudc-bob.el" (20119 34052)) 9897;;;;;; "eudc-bob" "net/eudc-bob.el" (19845 45374))
9888;;; Generated autoloads from net/eudc-bob.el 9898;;; Generated autoloads from net/eudc-bob.el
9889 9899
9890(autoload 'eudc-display-generic-binary "eudc-bob" "\ 9900(autoload 'eudc-display-generic-binary "eudc-bob" "\
@@ -9920,7 +9930,7 @@ Display a button for the JPEG DATA.
9920;;;*** 9930;;;***
9921 9931
9922;;;### (autoloads (eudc-try-bbdb-insert eudc-insert-record-at-point-into-bbdb) 9932;;;### (autoloads (eudc-try-bbdb-insert eudc-insert-record-at-point-into-bbdb)
9923;;;;;; "eudc-export" "net/eudc-export.el" (20119 34052)) 9933;;;;;; "eudc-export" "net/eudc-export.el" (20175 31160))
9924;;; Generated autoloads from net/eudc-export.el 9934;;; Generated autoloads from net/eudc-export.el
9925 9935
9926(autoload 'eudc-insert-record-at-point-into-bbdb "eudc-export" "\ 9936(autoload 'eudc-insert-record-at-point-into-bbdb "eudc-export" "\
@@ -9937,7 +9947,7 @@ Call `eudc-insert-record-at-point-into-bbdb' if on a record.
9937;;;*** 9947;;;***
9938 9948
9939;;;### (autoloads (eudc-edit-hotlist) "eudc-hotlist" "net/eudc-hotlist.el" 9949;;;### (autoloads (eudc-edit-hotlist) "eudc-hotlist" "net/eudc-hotlist.el"
9940;;;;;; (20119 34052)) 9950;;;;;; (20162 19074))
9941;;; Generated autoloads from net/eudc-hotlist.el 9951;;; Generated autoloads from net/eudc-hotlist.el
9942 9952
9943(autoload 'eudc-edit-hotlist "eudc-hotlist" "\ 9953(autoload 'eudc-edit-hotlist "eudc-hotlist" "\
@@ -9947,8 +9957,8 @@ Edit the hotlist of directory servers in a specialized buffer.
9947 9957
9948;;;*** 9958;;;***
9949 9959
9950;;;### (autoloads (ewoc-create) "ewoc" "emacs-lisp/ewoc.el" (20119 9960;;;### (autoloads (ewoc-create) "ewoc" "emacs-lisp/ewoc.el" (19845
9951;;;;;; 34052)) 9961;;;;;; 45374))
9952;;; Generated autoloads from emacs-lisp/ewoc.el 9962;;; Generated autoloads from emacs-lisp/ewoc.el
9953 9963
9954(autoload 'ewoc-create "ewoc" "\ 9964(autoload 'ewoc-create "ewoc" "\
@@ -9977,7 +9987,7 @@ fourth arg NOSEP non-nil inhibits this.
9977;;;### (autoloads (executable-make-buffer-file-executable-if-script-p 9987;;;### (autoloads (executable-make-buffer-file-executable-if-script-p
9978;;;;;; executable-self-display executable-set-magic executable-interpret 9988;;;;;; executable-self-display executable-set-magic executable-interpret
9979;;;;;; executable-command-find-posix-p) "executable" "progmodes/executable.el" 9989;;;;;; executable-command-find-posix-p) "executable" "progmodes/executable.el"
9980;;;;;; (20119 34052)) 9990;;;;;; (20160 63745))
9981;;; Generated autoloads from progmodes/executable.el 9991;;; Generated autoloads from progmodes/executable.el
9982 9992
9983(autoload 'executable-command-find-posix-p "executable" "\ 9993(autoload 'executable-command-find-posix-p "executable" "\
@@ -10020,18 +10030,18 @@ file modes.
10020 10030
10021;;;### (autoloads (expand-jump-to-next-slot expand-jump-to-previous-slot 10031;;;### (autoloads (expand-jump-to-next-slot expand-jump-to-previous-slot
10022;;;;;; expand-abbrev-hook expand-add-abbrevs) "expand" "expand.el" 10032;;;;;; expand-abbrev-hook expand-add-abbrevs) "expand" "expand.el"
10023;;;;;; (20119 34052)) 10033;;;;;; (20164 29468))
10024;;; Generated autoloads from expand.el 10034;;; Generated autoloads from expand.el
10025 10035
10026(autoload 'expand-add-abbrevs "expand" "\ 10036(autoload 'expand-add-abbrevs "expand" "\
10027Add a list of abbrev to abbrev table TABLE. 10037Add a list of abbreviations to abbrev table TABLE.
10028ABBREVS is a list of abbrev definitions; each abbrev description entry 10038ABBREVS is a list of abbrev definitions; each abbrev description entry
10029has the form (ABBREV EXPANSION ARG). 10039has the form (ABBREV EXPANSION ARG).
10030 10040
10031ABBREV is the abbreviation to replace. 10041ABBREV is the abbreviation to replace.
10032 10042
10033EXPANSION is the replacement string or a function which will make the 10043EXPANSION is the replacement string or a function which will make the
10034expansion. For example you, could use the DMacros or skeleton packages 10044expansion. For example, you could use the DMacros or skeleton packages
10035to generate such functions. 10045to generate such functions.
10036 10046
10037ARG is an optional argument which can be a number or a list of 10047ARG is an optional argument which can be a number or a list of
@@ -10040,7 +10050,7 @@ beginning of the expanded text.
10040 10050
10041If ARG is a list of numbers, point is placed according to the first 10051If ARG is a list of numbers, point is placed according to the first
10042member of the list, but you can visit the other specified positions 10052member of the list, but you can visit the other specified positions
10043cyclicaly with the functions `expand-jump-to-previous-slot' and 10053cyclically with the functions `expand-jump-to-previous-slot' and
10044`expand-jump-to-next-slot'. 10054`expand-jump-to-next-slot'.
10045 10055
10046If ARG is omitted, point is placed at the end of the expanded text. 10056If ARG is omitted, point is placed at the end of the expanded text.
@@ -10069,7 +10079,7 @@ This is used only in conjunction with `expand-add-abbrevs'.
10069 10079
10070;;;*** 10080;;;***
10071 10081
10072;;;### (autoloads (f90-mode) "f90" "progmodes/f90.el" (20119 34052)) 10082;;;### (autoloads (f90-mode) "f90" "progmodes/f90.el" (20178 7273))
10073;;; Generated autoloads from progmodes/f90.el 10083;;; Generated autoloads from progmodes/f90.el
10074 10084
10075(autoload 'f90-mode "f90" "\ 10085(autoload 'f90-mode "f90" "\
@@ -10139,8 +10149,8 @@ with no args, if that value is non-nil.
10139;;;### (autoloads (variable-pitch-mode buffer-face-toggle buffer-face-set 10149;;;### (autoloads (variable-pitch-mode buffer-face-toggle buffer-face-set
10140;;;;;; buffer-face-mode text-scale-adjust text-scale-decrease text-scale-increase 10150;;;;;; buffer-face-mode text-scale-adjust text-scale-decrease text-scale-increase
10141;;;;;; text-scale-set face-remap-set-base face-remap-reset-base 10151;;;;;; text-scale-set face-remap-set-base face-remap-reset-base
10142;;;;;; face-remap-add-relative) "face-remap" "face-remap.el" (20126 10152;;;;;; face-remap-add-relative) "face-remap" "face-remap.el" (20127
10143;;;;;; 41069)) 10153;;;;;; 62865))
10144;;; Generated autoloads from face-remap.el 10154;;; Generated autoloads from face-remap.el
10145 10155
10146(autoload 'face-remap-add-relative "face-remap" "\ 10156(autoload 'face-remap-add-relative "face-remap" "\
@@ -10280,7 +10290,7 @@ Besides the choice of face, it is the same as `buffer-face-mode'.
10280 10290
10281;;;### (autoloads (feedmail-queue-reminder feedmail-run-the-queue 10291;;;### (autoloads (feedmail-queue-reminder feedmail-run-the-queue
10282;;;;;; feedmail-run-the-queue-global-prompt feedmail-run-the-queue-no-prompts 10292;;;;;; feedmail-run-the-queue-global-prompt feedmail-run-the-queue-no-prompts
10283;;;;;; feedmail-send-it) "feedmail" "mail/feedmail.el" (20119 34052)) 10293;;;;;; feedmail-send-it) "feedmail" "mail/feedmail.el" (20172 54913))
10284;;; Generated autoloads from mail/feedmail.el 10294;;; Generated autoloads from mail/feedmail.el
10285 10295
10286(autoload 'feedmail-send-it "feedmail" "\ 10296(autoload 'feedmail-send-it "feedmail" "\
@@ -10334,7 +10344,7 @@ you can set `feedmail-queue-reminder-alist' to nil.
10334;;;*** 10344;;;***
10335 10345
10336;;;### (autoloads (ffap-bindings dired-at-point ffap-at-mouse ffap-menu 10346;;;### (autoloads (ffap-bindings dired-at-point ffap-at-mouse ffap-menu
10337;;;;;; find-file-at-point ffap-next) "ffap" "ffap.el" (20119 34052)) 10347;;;;;; find-file-at-point ffap-next) "ffap" "ffap.el" (20164 60780))
10338;;; Generated autoloads from ffap.el 10348;;; Generated autoloads from ffap.el
10339 10349
10340(autoload 'ffap-next "ffap" "\ 10350(autoload 'ffap-next "ffap" "\
@@ -10398,7 +10408,7 @@ Evaluate the forms in variable `ffap-bindings'.
10398;;;### (autoloads (file-cache-minibuffer-complete file-cache-add-directory-recursively 10408;;;### (autoloads (file-cache-minibuffer-complete file-cache-add-directory-recursively
10399;;;;;; file-cache-add-directory-using-locate file-cache-add-directory-using-find 10409;;;;;; file-cache-add-directory-using-locate file-cache-add-directory-using-find
10400;;;;;; file-cache-add-file file-cache-add-directory-list file-cache-add-directory) 10410;;;;;; file-cache-add-file file-cache-add-directory-list file-cache-add-directory)
10401;;;;;; "filecache" "filecache.el" (20119 34052)) 10411;;;;;; "filecache" "filecache.el" (19845 45374))
10402;;; Generated autoloads from filecache.el 10412;;; Generated autoloads from filecache.el
10403 10413
10404(autoload 'file-cache-add-directory "filecache" "\ 10414(autoload 'file-cache-add-directory "filecache" "\
@@ -10458,7 +10468,7 @@ the name is considered already unique; only the second substitution
10458;;;;;; copy-file-locals-to-dir-locals delete-dir-local-variable 10468;;;;;; copy-file-locals-to-dir-locals delete-dir-local-variable
10459;;;;;; add-dir-local-variable delete-file-local-variable-prop-line 10469;;;;;; add-dir-local-variable delete-file-local-variable-prop-line
10460;;;;;; add-file-local-variable-prop-line delete-file-local-variable 10470;;;;;; add-file-local-variable-prop-line delete-file-local-variable
10461;;;;;; add-file-local-variable) "files-x" "files-x.el" (20119 34052)) 10471;;;;;; add-file-local-variable) "files-x" "files-x.el" (20167 36967))
10462;;; Generated autoloads from files-x.el 10472;;; Generated autoloads from files-x.el
10463 10473
10464(autoload 'add-file-local-variable "files-x" "\ 10474(autoload 'add-file-local-variable "files-x" "\
@@ -10523,8 +10533,8 @@ Copy directory-local variables to the -*- line.
10523 10533
10524;;;*** 10534;;;***
10525 10535
10526;;;### (autoloads (filesets-init) "filesets" "filesets.el" (20119 10536;;;### (autoloads (filesets-init) "filesets" "filesets.el" (20178
10527;;;;;; 34052)) 10537;;;;;; 7273))
10528;;; Generated autoloads from filesets.el 10538;;; Generated autoloads from filesets.el
10529 10539
10530(autoload 'filesets-init "filesets" "\ 10540(autoload 'filesets-init "filesets" "\
@@ -10535,7 +10545,7 @@ Set up hooks, load the cache file -- if existing -- and build the menu.
10535 10545
10536;;;*** 10546;;;***
10537 10547
10538;;;### (autoloads (find-cmd) "find-cmd" "find-cmd.el" (20119 34052)) 10548;;;### (autoloads (find-cmd) "find-cmd" "find-cmd.el" (19845 45374))
10539;;; Generated autoloads from find-cmd.el 10549;;; Generated autoloads from find-cmd.el
10540 10550
10541(autoload 'find-cmd "find-cmd" "\ 10551(autoload 'find-cmd "find-cmd" "\
@@ -10555,7 +10565,7 @@ result is a string that should be ready for the command line.
10555;;;*** 10565;;;***
10556 10566
10557;;;### (autoloads (find-grep-dired find-name-dired find-dired) "find-dired" 10567;;;### (autoloads (find-grep-dired find-name-dired find-dired) "find-dired"
10558;;;;;; "find-dired.el" (20119 34052)) 10568;;;;;; "find-dired.el" (19980 19797))
10559;;; Generated autoloads from find-dired.el 10569;;; Generated autoloads from find-dired.el
10560 10570
10561(autoload 'find-dired "find-dired" "\ 10571(autoload 'find-dired "find-dired" "\
@@ -10595,7 +10605,7 @@ use in place of \"-ls\" as the final argument.
10595 10605
10596;;;### (autoloads (ff-mouse-find-other-file-other-window ff-mouse-find-other-file 10606;;;### (autoloads (ff-mouse-find-other-file-other-window ff-mouse-find-other-file
10597;;;;;; ff-find-other-file ff-get-other-file) "find-file" "find-file.el" 10607;;;;;; ff-find-other-file ff-get-other-file) "find-file" "find-file.el"
10598;;;;;; (20119 34052)) 10608;;;;;; (19845 45374))
10599;;; Generated autoloads from find-file.el 10609;;; Generated autoloads from find-file.el
10600 10610
10601(defvar ff-special-constructs `((,(purecopy "^#\\s *\\(include\\|import\\)\\s +[<\"]\\(.*\\)[>\"]") lambda nil (buffer-substring (match-beginning 2) (match-end 2)))) "\ 10611(defvar ff-special-constructs `((,(purecopy "^#\\s *\\(include\\|import\\)\\s +[<\"]\\(.*\\)[>\"]") lambda nil (buffer-substring (match-beginning 2) (match-end 2)))) "\
@@ -10689,7 +10699,7 @@ Visit the file you click on in another window.
10689;;;;;; find-variable find-variable-noselect find-function-other-frame 10699;;;;;; find-variable find-variable-noselect find-function-other-frame
10690;;;;;; find-function-other-window find-function find-function-noselect 10700;;;;;; find-function-other-window find-function find-function-noselect
10691;;;;;; find-function-search-for-symbol find-library) "find-func" 10701;;;;;; find-function-search-for-symbol find-library) "find-func"
10692;;;;;; "emacs-lisp/find-func.el" (20119 34052)) 10702;;;;;; "emacs-lisp/find-func.el" (20153 32815))
10693;;; Generated autoloads from emacs-lisp/find-func.el 10703;;; Generated autoloads from emacs-lisp/find-func.el
10694 10704
10695(autoload 'find-library "find-func" "\ 10705(autoload 'find-library "find-func" "\
@@ -10848,7 +10858,7 @@ Define some key bindings for the find-function family of functions.
10848;;;*** 10858;;;***
10849 10859
10850;;;### (autoloads (find-lisp-find-dired-filter find-lisp-find-dired-subdirectories 10860;;;### (autoloads (find-lisp-find-dired-filter find-lisp-find-dired-subdirectories
10851;;;;;; find-lisp-find-dired) "find-lisp" "find-lisp.el" (20119 34052)) 10861;;;;;; find-lisp-find-dired) "find-lisp" "find-lisp.el" (19886 45771))
10852;;; Generated autoloads from find-lisp.el 10862;;; Generated autoloads from find-lisp.el
10853 10863
10854(autoload 'find-lisp-find-dired "find-lisp" "\ 10864(autoload 'find-lisp-find-dired "find-lisp" "\
@@ -10869,7 +10879,7 @@ Change the filter on a find-lisp-find-dired buffer to REGEXP.
10869;;;*** 10879;;;***
10870 10880
10871;;;### (autoloads (finder-by-keyword finder-commentary finder-list-keywords) 10881;;;### (autoloads (finder-by-keyword finder-commentary finder-list-keywords)
10872;;;;;; "finder" "finder.el" (20119 34052)) 10882;;;;;; "finder" "finder.el" (19893 19022))
10873;;; Generated autoloads from finder.el 10883;;; Generated autoloads from finder.el
10874 10884
10875(autoload 'finder-list-keywords "finder" "\ 10885(autoload 'finder-list-keywords "finder" "\
@@ -10891,7 +10901,7 @@ Find packages matching a given keyword.
10891;;;*** 10901;;;***
10892 10902
10893;;;### (autoloads (enable-flow-control-on enable-flow-control) "flow-ctrl" 10903;;;### (autoloads (enable-flow-control-on enable-flow-control) "flow-ctrl"
10894;;;;;; "flow-ctrl.el" (20119 34052)) 10904;;;;;; "flow-ctrl.el" (19845 45374))
10895;;; Generated autoloads from flow-ctrl.el 10905;;; Generated autoloads from flow-ctrl.el
10896 10906
10897(autoload 'enable-flow-control "flow-ctrl" "\ 10907(autoload 'enable-flow-control "flow-ctrl" "\
@@ -10913,7 +10923,7 @@ to get the effect of a C-q.
10913;;;*** 10923;;;***
10914 10924
10915;;;### (autoloads (fill-flowed fill-flowed-encode) "flow-fill" "gnus/flow-fill.el" 10925;;;### (autoloads (fill-flowed fill-flowed-encode) "flow-fill" "gnus/flow-fill.el"
10916;;;;;; (20119 34052)) 10926;;;;;; (19845 45374))
10917;;; Generated autoloads from gnus/flow-fill.el 10927;;; Generated autoloads from gnus/flow-fill.el
10918 10928
10919(autoload 'fill-flowed-encode "flow-fill" "\ 10929(autoload 'fill-flowed-encode "flow-fill" "\
@@ -10929,7 +10939,7 @@ to get the effect of a C-q.
10929;;;*** 10939;;;***
10930 10940
10931;;;### (autoloads (flymake-find-file-hook flymake-mode-off flymake-mode-on 10941;;;### (autoloads (flymake-find-file-hook flymake-mode-off flymake-mode-on
10932;;;;;; flymake-mode) "flymake" "progmodes/flymake.el" (20119 34052)) 10942;;;;;; flymake-mode) "flymake" "progmodes/flymake.el" (19984 16846))
10933;;; Generated autoloads from progmodes/flymake.el 10943;;; Generated autoloads from progmodes/flymake.el
10934 10944
10935(autoload 'flymake-mode "flymake" "\ 10945(autoload 'flymake-mode "flymake" "\
@@ -10958,14 +10968,14 @@ Turn flymake mode off.
10958 10968
10959;;;### (autoloads (flyspell-buffer flyspell-region flyspell-mode-off 10969;;;### (autoloads (flyspell-buffer flyspell-region flyspell-mode-off
10960;;;;;; turn-off-flyspell turn-on-flyspell flyspell-mode flyspell-prog-mode) 10970;;;;;; turn-off-flyspell turn-on-flyspell flyspell-mode flyspell-prog-mode)
10961;;;;;; "flyspell" "textmodes/flyspell.el" (20139 33526)) 10971;;;;;; "flyspell" "textmodes/flyspell.el" (20174 10230))
10962;;; Generated autoloads from textmodes/flyspell.el 10972;;; Generated autoloads from textmodes/flyspell.el
10963 10973
10964(autoload 'flyspell-prog-mode "flyspell" "\ 10974(autoload 'flyspell-prog-mode "flyspell" "\
10965Turn on `flyspell-mode' for comments and strings. 10975Turn on `flyspell-mode' for comments and strings.
10966 10976
10967\(fn)" t nil) 10977\(fn)" t nil)
10968(defvar flyspell-mode nil) 10978(defvar flyspell-mode nil "Non-nil if Flyspell mode is enabled.")
10969 10979
10970(autoload 'flyspell-mode "flyspell" "\ 10980(autoload 'flyspell-mode "flyspell" "\
10971Toggle on-the-fly spell checking (Flyspell mode). 10981Toggle on-the-fly spell checking (Flyspell mode).
@@ -11030,7 +11040,7 @@ Flyspell whole buffer.
11030 11040
11031;;;### (autoloads (follow-delete-other-windows-and-split follow-mode 11041;;;### (autoloads (follow-delete-other-windows-and-split follow-mode
11032;;;;;; turn-off-follow-mode turn-on-follow-mode) "follow" "follow.el" 11042;;;;;; turn-off-follow-mode turn-on-follow-mode) "follow" "follow.el"
11033;;;;;; (20140 43930)) 11043;;;;;; (20178 7273))
11034;;; Generated autoloads from follow.el 11044;;; Generated autoloads from follow.el
11035 11045
11036(autoload 'turn-on-follow-mode "follow" "\ 11046(autoload 'turn-on-follow-mode "follow" "\
@@ -11106,8 +11116,8 @@ in your `~/.emacs' file, replacing [f7] by your favorite key:
11106 11116
11107;;;*** 11117;;;***
11108 11118
11109;;;### (autoloads (footnote-mode) "footnote" "mail/footnote.el" (20127 11119;;;### (autoloads (footnote-mode) "footnote" "mail/footnote.el" (20170
11110;;;;;; 26006)) 11120;;;;;; 13157))
11111;;; Generated autoloads from mail/footnote.el 11121;;; Generated autoloads from mail/footnote.el
11112 11122
11113(autoload 'footnote-mode "footnote" "\ 11123(autoload 'footnote-mode "footnote" "\
@@ -11126,7 +11136,7 @@ play around with the following keys:
11126;;;*** 11136;;;***
11127 11137
11128;;;### (autoloads (forms-find-file-other-window forms-find-file forms-mode) 11138;;;### (autoloads (forms-find-file-other-window forms-find-file forms-mode)
11129;;;;;; "forms" "forms.el" (20119 34052)) 11139;;;;;; "forms" "forms.el" (20168 57844))
11130;;; Generated autoloads from forms.el 11140;;; Generated autoloads from forms.el
11131 11141
11132(autoload 'forms-mode "forms" "\ 11142(autoload 'forms-mode "forms" "\
@@ -11163,7 +11173,7 @@ Visit a file in Forms mode in other window.
11163;;;*** 11173;;;***
11164 11174
11165;;;### (autoloads (fortran-mode) "fortran" "progmodes/fortran.el" 11175;;;### (autoloads (fortran-mode) "fortran" "progmodes/fortran.el"
11166;;;;;; (20140 44048)) 11176;;;;;; (20178 7273))
11167;;; Generated autoloads from progmodes/fortran.el 11177;;; Generated autoloads from progmodes/fortran.el
11168 11178
11169(autoload 'fortran-mode "fortran" "\ 11179(autoload 'fortran-mode "fortran" "\
@@ -11241,7 +11251,7 @@ with no args, if that value is non-nil.
11241;;;*** 11251;;;***
11242 11252
11243;;;### (autoloads (fortune fortune-to-signature fortune-compile fortune-from-region 11253;;;### (autoloads (fortune fortune-to-signature fortune-compile fortune-from-region
11244;;;;;; fortune-add-fortune) "fortune" "play/fortune.el" (20119 34052)) 11254;;;;;; fortune-add-fortune) "fortune" "play/fortune.el" (20165 31925))
11245;;; Generated autoloads from play/fortune.el 11255;;; Generated autoloads from play/fortune.el
11246 11256
11247(autoload 'fortune-add-fortune "fortune" "\ 11257(autoload 'fortune-add-fortune "fortune" "\
@@ -11290,7 +11300,7 @@ and choose the directory as the fortune-file.
11290;;;*** 11300;;;***
11291 11301
11292;;;### (autoloads (gdb gdb-enable-debug) "gdb-mi" "progmodes/gdb-mi.el" 11302;;;### (autoloads (gdb gdb-enable-debug) "gdb-mi" "progmodes/gdb-mi.el"
11293;;;;;; (20140 44067)) 11303;;;;;; (20182 4358))
11294;;; Generated autoloads from progmodes/gdb-mi.el 11304;;; Generated autoloads from progmodes/gdb-mi.el
11295 11305
11296(defvar gdb-enable-debug nil "\ 11306(defvar gdb-enable-debug nil "\
@@ -11357,8 +11367,8 @@ detailed description of this mode.
11357;;;*** 11367;;;***
11358 11368
11359;;;### (autoloads (generic-make-keywords-list generic-mode generic-mode-internal 11369;;;### (autoloads (generic-make-keywords-list generic-mode generic-mode-internal
11360;;;;;; define-generic-mode) "generic" "emacs-lisp/generic.el" (20119 11370;;;;;; define-generic-mode) "generic" "emacs-lisp/generic.el" (19845
11361;;;;;; 34052)) 11371;;;;;; 45374))
11362;;; Generated autoloads from emacs-lisp/generic.el 11372;;; Generated autoloads from emacs-lisp/generic.el
11363 11373
11364(defvar generic-mode-list nil "\ 11374(defvar generic-mode-list nil "\
@@ -11435,7 +11445,7 @@ regular expression that can be used as an element of
11435;;;*** 11445;;;***
11436 11446
11437;;;### (autoloads (glasses-mode) "glasses" "progmodes/glasses.el" 11447;;;### (autoloads (glasses-mode) "glasses" "progmodes/glasses.el"
11438;;;;;; (20119 34052)) 11448;;;;;; (19906 31087))
11439;;; Generated autoloads from progmodes/glasses.el 11449;;; Generated autoloads from progmodes/glasses.el
11440 11450
11441(autoload 'glasses-mode "glasses" "\ 11451(autoload 'glasses-mode "glasses" "\
@@ -11449,7 +11459,7 @@ at places they belong to.
11449 11459
11450;;;### (autoloads (gmm-tool-bar-from-list gmm-widget-p gmm-error 11460;;;### (autoloads (gmm-tool-bar-from-list gmm-widget-p gmm-error
11451;;;;;; gmm-message gmm-regexp-concat) "gmm-utils" "gnus/gmm-utils.el" 11461;;;;;; gmm-message gmm-regexp-concat) "gmm-utils" "gnus/gmm-utils.el"
11452;;;;;; (20119 34052)) 11462;;;;;; (20175 31160))
11453;;; Generated autoloads from gnus/gmm-utils.el 11463;;; Generated autoloads from gnus/gmm-utils.el
11454 11464
11455(autoload 'gmm-regexp-concat "gmm-utils" "\ 11465(autoload 'gmm-regexp-concat "gmm-utils" "\
@@ -11504,7 +11514,7 @@ DEFAULT-MAP specifies the default key map for ICON-LIST.
11504;;;*** 11514;;;***
11505 11515
11506;;;### (autoloads (gnus gnus-other-frame gnus-slave gnus-no-server 11516;;;### (autoloads (gnus gnus-other-frame gnus-slave gnus-no-server
11507;;;;;; gnus-slave-no-server) "gnus" "gnus/gnus.el" (20119 34052)) 11517;;;;;; gnus-slave-no-server) "gnus" "gnus/gnus.el" (20164 60780))
11508;;; Generated autoloads from gnus/gnus.el 11518;;; Generated autoloads from gnus/gnus.el
11509(when (fboundp 'custom-autoload) 11519(when (fboundp 'custom-autoload)
11510 (custom-autoload 'gnus-select-method "gnus")) 11520 (custom-autoload 'gnus-select-method "gnus"))
@@ -11557,7 +11567,7 @@ prompt the user for the name of an NNTP server to use.
11557;;;;;; gnus-agent-get-undownloaded-list gnus-agent-delete-group 11567;;;;;; gnus-agent-get-undownloaded-list gnus-agent-delete-group
11558;;;;;; gnus-agent-rename-group gnus-agent-possibly-save-gcc gnus-agentize 11568;;;;;; gnus-agent-rename-group gnus-agent-possibly-save-gcc gnus-agentize
11559;;;;;; gnus-slave-unplugged gnus-plugged gnus-unplugged) "gnus-agent" 11569;;;;;; gnus-slave-unplugged gnus-plugged gnus-unplugged) "gnus-agent"
11560;;;;;; "gnus/gnus-agent.el" (20119 34052)) 11570;;;;;; "gnus/gnus-agent.el" (20168 57844))
11561;;; Generated autoloads from gnus/gnus-agent.el 11571;;; Generated autoloads from gnus/gnus-agent.el
11562 11572
11563(autoload 'gnus-unplugged "gnus-agent" "\ 11573(autoload 'gnus-unplugged "gnus-agent" "\
@@ -11648,7 +11658,7 @@ If CLEAN, obsolete (ignore).
11648;;;*** 11658;;;***
11649 11659
11650;;;### (autoloads (gnus-article-prepare-display) "gnus-art" "gnus/gnus-art.el" 11660;;;### (autoloads (gnus-article-prepare-display) "gnus-art" "gnus/gnus-art.el"
11651;;;;;; (20119 34052)) 11661;;;;;; (20182 4358))
11652;;; Generated autoloads from gnus/gnus-art.el 11662;;; Generated autoloads from gnus/gnus-art.el
11653 11663
11654(autoload 'gnus-article-prepare-display "gnus-art" "\ 11664(autoload 'gnus-article-prepare-display "gnus-art" "\
@@ -11659,7 +11669,7 @@ Make the current buffer look like a nice article.
11659;;;*** 11669;;;***
11660 11670
11661;;;### (autoloads (gnus-bookmark-bmenu-list gnus-bookmark-jump gnus-bookmark-set) 11671;;;### (autoloads (gnus-bookmark-bmenu-list gnus-bookmark-jump gnus-bookmark-set)
11662;;;;;; "gnus-bookmark" "gnus/gnus-bookmark.el" (20119 34052)) 11672;;;;;; "gnus-bookmark" "gnus/gnus-bookmark.el" (19845 45374))
11663;;; Generated autoloads from gnus/gnus-bookmark.el 11673;;; Generated autoloads from gnus/gnus-bookmark.el
11664 11674
11665(autoload 'gnus-bookmark-set "gnus-bookmark" "\ 11675(autoload 'gnus-bookmark-set "gnus-bookmark" "\
@@ -11684,8 +11694,8 @@ deletion, or > if it is flagged for displaying.
11684 11694
11685;;;### (autoloads (gnus-cache-delete-group gnus-cache-rename-group 11695;;;### (autoloads (gnus-cache-delete-group gnus-cache-rename-group
11686;;;;;; gnus-cache-generate-nov-databases gnus-cache-generate-active 11696;;;;;; gnus-cache-generate-nov-databases gnus-cache-generate-active
11687;;;;;; gnus-jog-cache) "gnus-cache" "gnus/gnus-cache.el" (20119 11697;;;;;; gnus-jog-cache) "gnus-cache" "gnus/gnus-cache.el" (19845
11688;;;;;; 34052)) 11698;;;;;; 45374))
11689;;; Generated autoloads from gnus/gnus-cache.el 11699;;; Generated autoloads from gnus/gnus-cache.el
11690 11700
11691(autoload 'gnus-jog-cache "gnus-cache" "\ 11701(autoload 'gnus-jog-cache "gnus-cache" "\
@@ -11727,7 +11737,7 @@ supported.
11727;;;*** 11737;;;***
11728 11738
11729;;;### (autoloads (gnus-delay-initialize gnus-delay-send-queue gnus-delay-article) 11739;;;### (autoloads (gnus-delay-initialize gnus-delay-send-queue gnus-delay-article)
11730;;;;;; "gnus-delay" "gnus/gnus-delay.el" (20119 34052)) 11740;;;;;; "gnus-delay" "gnus/gnus-delay.el" (19931 11784))
11731;;; Generated autoloads from gnus/gnus-delay.el 11741;;; Generated autoloads from gnus/gnus-delay.el
11732 11742
11733(autoload 'gnus-delay-article "gnus-delay" "\ 11743(autoload 'gnus-delay-article "gnus-delay" "\
@@ -11763,7 +11773,7 @@ Checking delayed messages is skipped if optional arg NO-CHECK is non-nil.
11763;;;*** 11773;;;***
11764 11774
11765;;;### (autoloads (gnus-user-format-function-D gnus-user-format-function-d) 11775;;;### (autoloads (gnus-user-format-function-D gnus-user-format-function-d)
11766;;;;;; "gnus-diary" "gnus/gnus-diary.el" (20119 34052)) 11776;;;;;; "gnus-diary" "gnus/gnus-diary.el" (20161 45793))
11767;;; Generated autoloads from gnus/gnus-diary.el 11777;;; Generated autoloads from gnus/gnus-diary.el
11768 11778
11769(autoload 'gnus-user-format-function-d "gnus-diary" "\ 11779(autoload 'gnus-user-format-function-d "gnus-diary" "\
@@ -11779,7 +11789,7 @@ Checking delayed messages is skipped if optional arg NO-CHECK is non-nil.
11779;;;*** 11789;;;***
11780 11790
11781;;;### (autoloads (turn-on-gnus-dired-mode) "gnus-dired" "gnus/gnus-dired.el" 11791;;;### (autoloads (turn-on-gnus-dired-mode) "gnus-dired" "gnus/gnus-dired.el"
11782;;;;;; (20119 34052)) 11792;;;;;; (20167 36967))
11783;;; Generated autoloads from gnus/gnus-dired.el 11793;;; Generated autoloads from gnus/gnus-dired.el
11784 11794
11785(autoload 'turn-on-gnus-dired-mode "gnus-dired" "\ 11795(autoload 'turn-on-gnus-dired-mode "gnus-dired" "\
@@ -11790,7 +11800,7 @@ Convenience method to turn on gnus-dired-mode.
11790;;;*** 11800;;;***
11791 11801
11792;;;### (autoloads (gnus-draft-reminder) "gnus-draft" "gnus/gnus-draft.el" 11802;;;### (autoloads (gnus-draft-reminder) "gnus-draft" "gnus/gnus-draft.el"
11793;;;;;; (20119 34052)) 11803;;;;;; (19981 40664))
11794;;; Generated autoloads from gnus/gnus-draft.el 11804;;; Generated autoloads from gnus/gnus-draft.el
11795 11805
11796(autoload 'gnus-draft-reminder "gnus-draft" "\ 11806(autoload 'gnus-draft-reminder "gnus-draft" "\
@@ -11802,8 +11812,8 @@ Reminder user if there are unsent drafts.
11802 11812
11803;;;### (autoloads (gnus-convert-png-to-face gnus-convert-face-to-png 11813;;;### (autoloads (gnus-convert-png-to-face gnus-convert-face-to-png
11804;;;;;; gnus-face-from-file gnus-x-face-from-file gnus-insert-random-x-face-header 11814;;;;;; gnus-face-from-file gnus-x-face-from-file gnus-insert-random-x-face-header
11805;;;;;; gnus-random-x-face) "gnus-fun" "gnus/gnus-fun.el" (20119 11815;;;;;; gnus-random-x-face) "gnus-fun" "gnus/gnus-fun.el" (20088
11806;;;;;; 34052)) 11816;;;;;; 26718))
11807;;; Generated autoloads from gnus/gnus-fun.el 11817;;; Generated autoloads from gnus/gnus-fun.el
11808 11818
11809(autoload 'gnus-random-x-face "gnus-fun" "\ 11819(autoload 'gnus-random-x-face "gnus-fun" "\
@@ -11848,7 +11858,7 @@ FILE should be a PNG file that's 48x48 and smaller than or equal to
11848;;;*** 11858;;;***
11849 11859
11850;;;### (autoloads (gnus-treat-mail-gravatar gnus-treat-from-gravatar) 11860;;;### (autoloads (gnus-treat-mail-gravatar gnus-treat-from-gravatar)
11851;;;;;; "gnus-gravatar" "gnus/gnus-gravatar.el" (20119 34052)) 11861;;;;;; "gnus-gravatar" "gnus/gnus-gravatar.el" (19845 45374))
11852;;; Generated autoloads from gnus/gnus-gravatar.el 11862;;; Generated autoloads from gnus/gnus-gravatar.el
11853 11863
11854(autoload 'gnus-treat-from-gravatar "gnus-gravatar" "\ 11864(autoload 'gnus-treat-from-gravatar "gnus-gravatar" "\
@@ -11866,7 +11876,7 @@ If gravatars are already displayed, remove them.
11866;;;*** 11876;;;***
11867 11877
11868;;;### (autoloads (gnus-fetch-group-other-frame gnus-fetch-group) 11878;;;### (autoloads (gnus-fetch-group-other-frame gnus-fetch-group)
11869;;;;;; "gnus-group" "gnus/gnus-group.el" (20119 34052)) 11879;;;;;; "gnus-group" "gnus/gnus-group.el" (20179 28130))
11870;;; Generated autoloads from gnus/gnus-group.el 11880;;; Generated autoloads from gnus/gnus-group.el
11871 11881
11872(autoload 'gnus-fetch-group "gnus-group" "\ 11882(autoload 'gnus-fetch-group "gnus-group" "\
@@ -11884,7 +11894,7 @@ Pop up a frame and enter GROUP.
11884;;;*** 11894;;;***
11885 11895
11886;;;### (autoloads (gnus-html-prefetch-images gnus-article-html) "gnus-html" 11896;;;### (autoloads (gnus-html-prefetch-images gnus-article-html) "gnus-html"
11887;;;;;; "gnus/gnus-html.el" (20119 34052)) 11897;;;;;; "gnus/gnus-html.el" (20050 11479))
11888;;; Generated autoloads from gnus/gnus-html.el 11898;;; Generated autoloads from gnus/gnus-html.el
11889 11899
11890(autoload 'gnus-article-html "gnus-html" "\ 11900(autoload 'gnus-article-html "gnus-html" "\
@@ -11900,7 +11910,7 @@ Pop up a frame and enter GROUP.
11900;;;*** 11910;;;***
11901 11911
11902;;;### (autoloads (gnus-batch-score) "gnus-kill" "gnus/gnus-kill.el" 11912;;;### (autoloads (gnus-batch-score) "gnus-kill" "gnus/gnus-kill.el"
11903;;;;;; (20119 34052)) 11913;;;;;; (19845 45374))
11904;;; Generated autoloads from gnus/gnus-kill.el 11914;;; Generated autoloads from gnus/gnus-kill.el
11905 11915
11906(defalias 'gnus-batch-kill 'gnus-batch-score) 11916(defalias 'gnus-batch-kill 'gnus-batch-score)
@@ -11915,7 +11925,7 @@ Usage: emacs -batch -l ~/.emacs -l gnus -f gnus-batch-score
11915 11925
11916;;;### (autoloads (gnus-mailing-list-mode gnus-mailing-list-insinuate 11926;;;### (autoloads (gnus-mailing-list-mode gnus-mailing-list-insinuate
11917;;;;;; turn-on-gnus-mailing-list-mode) "gnus-ml" "gnus/gnus-ml.el" 11927;;;;;; turn-on-gnus-mailing-list-mode) "gnus-ml" "gnus/gnus-ml.el"
11918;;;;;; (20119 34052)) 11928;;;;;; (19845 45374))
11919;;; Generated autoloads from gnus/gnus-ml.el 11929;;; Generated autoloads from gnus/gnus-ml.el
11920 11930
11921(autoload 'turn-on-gnus-mailing-list-mode "gnus-ml" "\ 11931(autoload 'turn-on-gnus-mailing-list-mode "gnus-ml" "\
@@ -11940,7 +11950,7 @@ Minor mode for providing mailing-list commands.
11940 11950
11941;;;### (autoloads (gnus-group-split-fancy gnus-group-split gnus-group-split-update 11951;;;### (autoloads (gnus-group-split-fancy gnus-group-split gnus-group-split-update
11942;;;;;; gnus-group-split-setup) "gnus-mlspl" "gnus/gnus-mlspl.el" 11952;;;;;; gnus-group-split-setup) "gnus-mlspl" "gnus/gnus-mlspl.el"
11943;;;;;; (20119 34052)) 11953;;;;;; (19845 45374))
11944;;; Generated autoloads from gnus/gnus-mlspl.el 11954;;; Generated autoloads from gnus/gnus-mlspl.el
11945 11955
11946(autoload 'gnus-group-split-setup "gnus-mlspl" "\ 11956(autoload 'gnus-group-split-setup "gnus-mlspl" "\
@@ -12041,7 +12051,7 @@ Calling (gnus-group-split-fancy nil nil \"mail.others\") returns:
12041;;;*** 12051;;;***
12042 12052
12043;;;### (autoloads (gnus-button-reply gnus-button-mailto gnus-msg-mail) 12053;;;### (autoloads (gnus-button-reply gnus-button-mailto gnus-msg-mail)
12044;;;;;; "gnus-msg" "gnus/gnus-msg.el" (20119 34052)) 12054;;;;;; "gnus-msg" "gnus/gnus-msg.el" (20183 25152))
12045;;; Generated autoloads from gnus/gnus-msg.el 12055;;; Generated autoloads from gnus/gnus-msg.el
12046 12056
12047(autoload 'gnus-msg-mail "gnus-msg" "\ 12057(autoload 'gnus-msg-mail "gnus-msg" "\
@@ -12067,7 +12077,7 @@ Like `message-reply'.
12067 12077
12068;;;### (autoloads (gnus-treat-newsgroups-picon gnus-treat-mail-picon 12078;;;### (autoloads (gnus-treat-newsgroups-picon gnus-treat-mail-picon
12069;;;;;; gnus-treat-from-picon) "gnus-picon" "gnus/gnus-picon.el" 12079;;;;;; gnus-treat-from-picon) "gnus-picon" "gnus/gnus-picon.el"
12070;;;;;; (20119 34052)) 12080;;;;;; (19845 45374))
12071;;; Generated autoloads from gnus/gnus-picon.el 12081;;; Generated autoloads from gnus/gnus-picon.el
12072 12082
12073(autoload 'gnus-treat-from-picon "gnus-picon" "\ 12083(autoload 'gnus-treat-from-picon "gnus-picon" "\
@@ -12094,7 +12104,7 @@ If picons are already displayed, remove them.
12094;;;;;; gnus-sorted-nintersection gnus-sorted-range-intersection 12104;;;;;; gnus-sorted-nintersection gnus-sorted-range-intersection
12095;;;;;; gnus-sorted-intersection gnus-intersection gnus-sorted-complement 12105;;;;;; gnus-sorted-intersection gnus-intersection gnus-sorted-complement
12096;;;;;; gnus-sorted-ndifference gnus-sorted-difference) "gnus-range" 12106;;;;;; gnus-sorted-ndifference gnus-sorted-difference) "gnus-range"
12097;;;;;; "gnus/gnus-range.el" (20119 34052)) 12107;;;;;; "gnus/gnus-range.el" (19845 45374))
12098;;; Generated autoloads from gnus/gnus-range.el 12108;;; Generated autoloads from gnus/gnus-range.el
12099 12109
12100(autoload 'gnus-sorted-difference "gnus-range" "\ 12110(autoload 'gnus-sorted-difference "gnus-range" "\
@@ -12162,7 +12172,7 @@ Add NUM into sorted LIST by side effect.
12162;;;*** 12172;;;***
12163 12173
12164;;;### (autoloads (gnus-registry-install-hooks gnus-registry-initialize) 12174;;;### (autoloads (gnus-registry-install-hooks gnus-registry-initialize)
12165;;;;;; "gnus-registry" "gnus/gnus-registry.el" (20124 52030)) 12175;;;;;; "gnus-registry" "gnus/gnus-registry.el" (20143 51029))
12166;;; Generated autoloads from gnus/gnus-registry.el 12176;;; Generated autoloads from gnus/gnus-registry.el
12167 12177
12168(autoload 'gnus-registry-initialize "gnus-registry" "\ 12178(autoload 'gnus-registry-initialize "gnus-registry" "\
@@ -12178,8 +12188,8 @@ Install the registry hooks.
12178;;;*** 12188;;;***
12179 12189
12180;;;### (autoloads (gnus-sieve-article-add-rule gnus-sieve-generate 12190;;;### (autoloads (gnus-sieve-article-add-rule gnus-sieve-generate
12181;;;;;; gnus-sieve-update) "gnus-sieve" "gnus/gnus-sieve.el" (20119 12191;;;;;; gnus-sieve-update) "gnus-sieve" "gnus/gnus-sieve.el" (19845
12182;;;;;; 34052)) 12192;;;;;; 45374))
12183;;; Generated autoloads from gnus/gnus-sieve.el 12193;;; Generated autoloads from gnus/gnus-sieve.el
12184 12194
12185(autoload 'gnus-sieve-update "gnus-sieve" "\ 12195(autoload 'gnus-sieve-update "gnus-sieve" "\
@@ -12207,7 +12217,7 @@ See the documentation for these variables and functions for details.
12207;;;*** 12217;;;***
12208 12218
12209;;;### (autoloads (gnus-update-format) "gnus-spec" "gnus/gnus-spec.el" 12219;;;### (autoloads (gnus-update-format) "gnus-spec" "gnus/gnus-spec.el"
12210;;;;;; (20119 34052)) 12220;;;;;; (20076 35541))
12211;;; Generated autoloads from gnus/gnus-spec.el 12221;;; Generated autoloads from gnus/gnus-spec.el
12212 12222
12213(autoload 'gnus-update-format "gnus-spec" "\ 12223(autoload 'gnus-update-format "gnus-spec" "\
@@ -12218,7 +12228,7 @@ Update the format specification near point.
12218;;;*** 12228;;;***
12219 12229
12220;;;### (autoloads (gnus-declare-backend) "gnus-start" "gnus/gnus-start.el" 12230;;;### (autoloads (gnus-declare-backend) "gnus-start" "gnus/gnus-start.el"
12221;;;;;; (20119 34052)) 12231;;;;;; (20176 51947))
12222;;; Generated autoloads from gnus/gnus-start.el 12232;;; Generated autoloads from gnus/gnus-start.el
12223 12233
12224(autoload 'gnus-declare-backend "gnus-start" "\ 12234(autoload 'gnus-declare-backend "gnus-start" "\
@@ -12229,7 +12239,7 @@ Declare back end NAME with ABILITIES as a Gnus back end.
12229;;;*** 12239;;;***
12230 12240
12231;;;### (autoloads (gnus-summary-bookmark-jump) "gnus-sum" "gnus/gnus-sum.el" 12241;;;### (autoloads (gnus-summary-bookmark-jump) "gnus-sum" "gnus/gnus-sum.el"
12232;;;;;; (20119 34052)) 12242;;;;;; (20172 54913))
12233;;; Generated autoloads from gnus/gnus-sum.el 12243;;; Generated autoloads from gnus/gnus-sum.el
12234 12244
12235(autoload 'gnus-summary-bookmark-jump "gnus-sum" "\ 12245(autoload 'gnus-summary-bookmark-jump "gnus-sum" "\
@@ -12241,7 +12251,7 @@ BOOKMARK is a bookmark name or a bookmark record.
12241;;;*** 12251;;;***
12242 12252
12243;;;### (autoloads (gnus-sync-install-hooks gnus-sync-initialize) 12253;;;### (autoloads (gnus-sync-install-hooks gnus-sync-initialize)
12244;;;;;; "gnus-sync" "gnus/gnus-sync.el" (20119 34052)) 12254;;;;;; "gnus-sync" "gnus/gnus-sync.el" (19845 45374))
12245;;; Generated autoloads from gnus/gnus-sync.el 12255;;; Generated autoloads from gnus/gnus-sync.el
12246 12256
12247(autoload 'gnus-sync-initialize "gnus-sync" "\ 12257(autoload 'gnus-sync-initialize "gnus-sync" "\
@@ -12257,7 +12267,7 @@ Install the sync hooks.
12257;;;*** 12267;;;***
12258 12268
12259;;;### (autoloads (gnus-add-configuration) "gnus-win" "gnus/gnus-win.el" 12269;;;### (autoloads (gnus-add-configuration) "gnus-win" "gnus/gnus-win.el"
12260;;;;;; (20119 34052)) 12270;;;;;; (20161 45793))
12261;;; Generated autoloads from gnus/gnus-win.el 12271;;; Generated autoloads from gnus/gnus-win.el
12262 12272
12263(autoload 'gnus-add-configuration "gnus-win" "\ 12273(autoload 'gnus-add-configuration "gnus-win" "\
@@ -12268,7 +12278,7 @@ Add the window configuration CONF to `gnus-buffer-configuration'.
12268;;;*** 12278;;;***
12269 12279
12270;;;### (autoloads (gnutls-min-prime-bits) "gnutls" "net/gnutls.el" 12280;;;### (autoloads (gnutls-min-prime-bits) "gnutls" "net/gnutls.el"
12271;;;;;; (20119 34052)) 12281;;;;;; (20176 51947))
12272;;; Generated autoloads from net/gnutls.el 12282;;; Generated autoloads from net/gnutls.el
12273 12283
12274(defvar gnutls-min-prime-bits nil "\ 12284(defvar gnutls-min-prime-bits nil "\
@@ -12284,7 +12294,7 @@ A value of nil says to use the default gnutls value.")
12284 12294
12285;;;*** 12295;;;***
12286 12296
12287;;;### (autoloads (gomoku) "gomoku" "play/gomoku.el" (20119 34052)) 12297;;;### (autoloads (gomoku) "gomoku" "play/gomoku.el" (20178 7273))
12288;;; Generated autoloads from play/gomoku.el 12298;;; Generated autoloads from play/gomoku.el
12289 12299
12290(autoload 'gomoku "gomoku" "\ 12300(autoload 'gomoku "gomoku" "\
@@ -12312,7 +12322,7 @@ Use \\[describe-mode] for more info.
12312 12322
12313;;;### (autoloads (goto-address-prog-mode goto-address-mode goto-address 12323;;;### (autoloads (goto-address-prog-mode goto-address-mode goto-address
12314;;;;;; goto-address-at-point) "goto-addr" "net/goto-addr.el" (20127 12324;;;;;; goto-address-at-point) "goto-addr" "net/goto-addr.el" (20127
12315;;;;;; 25813)) 12325;;;;;; 62865))
12316;;; Generated autoloads from net/goto-addr.el 12326;;; Generated autoloads from net/goto-addr.el
12317 12327
12318(define-obsolete-function-alias 'goto-address-at-mouse 'goto-address-at-point "22.1") 12328(define-obsolete-function-alias 'goto-address-at-mouse 'goto-address-at-point "22.1")
@@ -12351,7 +12361,7 @@ Like `goto-address-mode', but only for comments and strings.
12351;;;*** 12361;;;***
12352 12362
12353;;;### (autoloads (gravatar-retrieve-synchronously gravatar-retrieve) 12363;;;### (autoloads (gravatar-retrieve-synchronously gravatar-retrieve)
12354;;;;;; "gravatar" "gnus/gravatar.el" (20119 34052)) 12364;;;;;; "gravatar" "gnus/gravatar.el" (19845 45374))
12355;;; Generated autoloads from gnus/gravatar.el 12365;;; Generated autoloads from gnus/gravatar.el
12356 12366
12357(autoload 'gravatar-retrieve "gravatar" "\ 12367(autoload 'gravatar-retrieve "gravatar" "\
@@ -12369,7 +12379,7 @@ Retrieve MAIL-ADDRESS gravatar and returns it.
12369 12379
12370;;;### (autoloads (zrgrep rgrep lgrep grep-find grep grep-mode grep-compute-defaults 12380;;;### (autoloads (zrgrep rgrep lgrep grep-find grep grep-mode grep-compute-defaults
12371;;;;;; grep-process-setup grep-setup-hook grep-find-command grep-command 12381;;;;;; grep-process-setup grep-setup-hook grep-find-command grep-command
12372;;;;;; grep-window-height) "grep" "progmodes/grep.el" (20119 34052)) 12382;;;;;; grep-window-height) "grep" "progmodes/grep.el" (20174 10230))
12373;;; Generated autoloads from progmodes/grep.el 12383;;; Generated autoloads from progmodes/grep.el
12374 12384
12375(defvar grep-window-height nil "\ 12385(defvar grep-window-height nil "\
@@ -12427,9 +12437,11 @@ Any other value means to use `find -print' and `xargs'.
12427 12437
12428This variable's value takes effect when `grep-compute-defaults' is called.") 12438This variable's value takes effect when `grep-compute-defaults' is called.")
12429 12439
12430(defvar grep-history nil) 12440(defvar grep-history nil "\
12441History list for grep.")
12431 12442
12432(defvar grep-find-history nil) 12443(defvar grep-find-history nil "\
12444History list for grep-find.")
12433 12445
12434(autoload 'grep-process-setup "grep" "\ 12446(autoload 'grep-process-setup "grep" "\
12435Setup compilation variables and buffer for `grep'. 12447Setup compilation variables and buffer for `grep'.
@@ -12526,7 +12538,7 @@ file name to `*.gz', and sets `grep-highlight-matches' to `always'.
12526 12538
12527;;;*** 12539;;;***
12528 12540
12529;;;### (autoloads (gs-load-image) "gs" "gs.el" (20119 34052)) 12541;;;### (autoloads (gs-load-image) "gs" "gs.el" (19845 45374))
12530;;; Generated autoloads from gs.el 12542;;; Generated autoloads from gs.el
12531 12543
12532(autoload 'gs-load-image "gs" "\ 12544(autoload 'gs-load-image "gs" "\
@@ -12540,7 +12552,7 @@ the form \"WINDOW-ID PIXMAP-ID\". Value is non-nil if successful.
12540;;;*** 12552;;;***
12541 12553
12542;;;### (autoloads (gud-tooltip-mode gdb-script-mode jdb pdb perldb 12554;;;### (autoloads (gud-tooltip-mode gdb-script-mode jdb pdb perldb
12543;;;;;; xdb dbx sdb gud-gdb) "gud" "progmodes/gud.el" (20127 25495)) 12555;;;;;; xdb dbx sdb gud-gdb) "gud" "progmodes/gud.el" (20178 7273))
12544;;; Generated autoloads from progmodes/gud.el 12556;;; Generated autoloads from progmodes/gud.el
12545 12557
12546(autoload 'gud-gdb "gud" "\ 12558(autoload 'gud-gdb "gud" "\
@@ -12628,8 +12640,8 @@ it if ARG is omitted or nil.
12628 12640
12629;;;*** 12641;;;***
12630 12642
12631;;;### (autoloads (handwrite) "handwrite" "play/handwrite.el" (20119 12643;;;### (autoloads (handwrite) "handwrite" "play/handwrite.el" (19889
12632;;;;;; 34052)) 12644;;;;;; 21967))
12633;;; Generated autoloads from play/handwrite.el 12645;;; Generated autoloads from play/handwrite.el
12634 12646
12635(autoload 'handwrite "handwrite" "\ 12647(autoload 'handwrite "handwrite" "\
@@ -12647,7 +12659,7 @@ Variables: `handwrite-linespace' (default 12)
12647;;;*** 12659;;;***
12648 12660
12649;;;### (autoloads (hanoi-unix-64 hanoi-unix hanoi) "hanoi" "play/hanoi.el" 12661;;;### (autoloads (hanoi-unix-64 hanoi-unix hanoi) "hanoi" "play/hanoi.el"
12650;;;;;; (20119 34052)) 12662;;;;;; (19981 40664))
12651;;; Generated autoloads from play/hanoi.el 12663;;; Generated autoloads from play/hanoi.el
12652 12664
12653(autoload 'hanoi "hanoi" "\ 12665(autoload 'hanoi "hanoi" "\
@@ -12676,7 +12688,7 @@ to be updated.
12676 12688
12677;;;### (autoloads (mail-check-payment mail-add-payment-async mail-add-payment 12689;;;### (autoloads (mail-check-payment mail-add-payment-async mail-add-payment
12678;;;;;; hashcash-verify-payment hashcash-insert-payment-async hashcash-insert-payment) 12690;;;;;; hashcash-verify-payment hashcash-insert-payment-async hashcash-insert-payment)
12679;;;;;; "hashcash" "mail/hashcash.el" (20119 34052)) 12691;;;;;; "hashcash" "mail/hashcash.el" (19845 45374))
12680;;; Generated autoloads from mail/hashcash.el 12692;;; Generated autoloads from mail/hashcash.el
12681 12693
12682(autoload 'hashcash-insert-payment "hashcash" "\ 12694(autoload 'hashcash-insert-payment "hashcash" "\
@@ -12721,7 +12733,7 @@ Prefix arg sets default accept amount temporarily.
12721;;;### (autoloads (scan-buf-previous-region scan-buf-next-region 12733;;;### (autoloads (scan-buf-previous-region scan-buf-next-region
12722;;;;;; scan-buf-move-to-region help-at-pt-display-when-idle help-at-pt-set-timer 12734;;;;;; scan-buf-move-to-region help-at-pt-display-when-idle help-at-pt-set-timer
12723;;;;;; help-at-pt-cancel-timer display-local-help help-at-pt-kbd-string 12735;;;;;; help-at-pt-cancel-timer display-local-help help-at-pt-kbd-string
12724;;;;;; help-at-pt-string) "help-at-pt" "help-at-pt.el" (20119 34052)) 12736;;;;;; help-at-pt-string) "help-at-pt" "help-at-pt.el" (19845 45374))
12725;;; Generated autoloads from help-at-pt.el 12737;;; Generated autoloads from help-at-pt.el
12726 12738
12727(autoload 'help-at-pt-string "help-at-pt" "\ 12739(autoload 'help-at-pt-string "help-at-pt" "\
@@ -12851,7 +12863,7 @@ different regions. With numeric argument ARG, behaves like
12851;;;### (autoloads (doc-file-to-info doc-file-to-man describe-categories 12863;;;### (autoloads (doc-file-to-info doc-file-to-man describe-categories
12852;;;;;; describe-syntax describe-variable variable-at-point describe-function-1 12864;;;;;; describe-syntax describe-variable variable-at-point describe-function-1
12853;;;;;; find-lisp-object-file-name help-C-file-name describe-function) 12865;;;;;; find-lisp-object-file-name help-C-file-name describe-function)
12854;;;;;; "help-fns" "help-fns.el" (20119 34052)) 12866;;;;;; "help-fns" "help-fns.el" (20161 45793))
12855;;; Generated autoloads from help-fns.el 12867;;; Generated autoloads from help-fns.el
12856 12868
12857(autoload 'describe-function "help-fns" "\ 12869(autoload 'describe-function "help-fns" "\
@@ -12931,7 +12943,7 @@ Produce a texinfo buffer with sorted doc-strings from the DOC file.
12931;;;*** 12943;;;***
12932 12944
12933;;;### (autoloads (three-step-help) "help-macro" "help-macro.el" 12945;;;### (autoloads (three-step-help) "help-macro" "help-macro.el"
12934;;;;;; (20119 34052)) 12946;;;;;; (19845 45374))
12935;;; Generated autoloads from help-macro.el 12947;;; Generated autoloads from help-macro.el
12936 12948
12937(defvar three-step-help nil "\ 12949(defvar three-step-help nil "\
@@ -12947,8 +12959,8 @@ gives the window that lists the options.")
12947 12959
12948;;;### (autoloads (help-xref-on-pp help-insert-xref-button help-xref-button 12960;;;### (autoloads (help-xref-on-pp help-insert-xref-button help-xref-button
12949;;;;;; help-make-xrefs help-buffer help-setup-xref help-mode-finish 12961;;;;;; help-make-xrefs help-buffer help-setup-xref help-mode-finish
12950;;;;;; help-mode-setup help-mode) "help-mode" "help-mode.el" (20119 12962;;;;;; help-mode-setup help-mode) "help-mode" "help-mode.el" (20167
12951;;;;;; 34052)) 12963;;;;;; 36967))
12952;;; Generated autoloads from help-mode.el 12964;;; Generated autoloads from help-mode.el
12953 12965
12954(autoload 'help-mode "help-mode" "\ 12966(autoload 'help-mode "help-mode" "\
@@ -13041,7 +13053,7 @@ Add xrefs for symbols in `pp's output between FROM and TO.
13041;;;*** 13053;;;***
13042 13054
13043;;;### (autoloads (Helper-help Helper-describe-bindings) "helper" 13055;;;### (autoloads (Helper-help Helper-describe-bindings) "helper"
13044;;;;;; "emacs-lisp/helper.el" (20119 34052)) 13056;;;;;; "emacs-lisp/helper.el" (19845 45374))
13045;;; Generated autoloads from emacs-lisp/helper.el 13057;;; Generated autoloads from emacs-lisp/helper.el
13046 13058
13047(autoload 'Helper-describe-bindings "helper" "\ 13059(autoload 'Helper-describe-bindings "helper" "\
@@ -13057,7 +13069,7 @@ Provide help for current mode.
13057;;;*** 13069;;;***
13058 13070
13059;;;### (autoloads (hexlify-buffer hexl-find-file hexl-mode) "hexl" 13071;;;### (autoloads (hexlify-buffer hexl-find-file hexl-mode) "hexl"
13060;;;;;; "hexl.el" (20119 34052)) 13072;;;;;; "hexl.el" (19865 50420))
13061;;; Generated autoloads from hexl.el 13073;;; Generated autoloads from hexl.el
13062 13074
13063(autoload 'hexl-mode "hexl" "\ 13075(autoload 'hexl-mode "hexl" "\
@@ -13154,7 +13166,7 @@ This discards the buffer's undo information.
13154;;;### (autoloads (hi-lock-write-interactive-patterns hi-lock-unface-buffer 13166;;;### (autoloads (hi-lock-write-interactive-patterns hi-lock-unface-buffer
13155;;;;;; hi-lock-face-phrase-buffer hi-lock-face-buffer hi-lock-line-face-buffer 13167;;;;;; hi-lock-face-phrase-buffer hi-lock-face-buffer hi-lock-line-face-buffer
13156;;;;;; global-hi-lock-mode hi-lock-mode) "hi-lock" "hi-lock.el" 13168;;;;;; global-hi-lock-mode hi-lock-mode) "hi-lock" "hi-lock.el"
13157;;;;;; (20126 50093)) 13169;;;;;; (20127 62865))
13158;;; Generated autoloads from hi-lock.el 13170;;; Generated autoloads from hi-lock.el
13159 13171
13160(autoload 'hi-lock-mode "hi-lock" "\ 13172(autoload 'hi-lock-mode "hi-lock" "\
@@ -13293,7 +13305,7 @@ be found in variable `hi-lock-interactive-patterns'.
13293;;;*** 13305;;;***
13294 13306
13295;;;### (autoloads (hide-ifdef-mode) "hideif" "progmodes/hideif.el" 13307;;;### (autoloads (hide-ifdef-mode) "hideif" "progmodes/hideif.el"
13296;;;;;; (20127 25465)) 13308;;;;;; (20127 62865))
13297;;; Generated autoloads from progmodes/hideif.el 13309;;; Generated autoloads from progmodes/hideif.el
13298 13310
13299(autoload 'hide-ifdef-mode "hideif" "\ 13311(autoload 'hide-ifdef-mode "hideif" "\
@@ -13337,7 +13349,7 @@ Several variables affect how the hiding is done:
13337;;;*** 13349;;;***
13338 13350
13339;;;### (autoloads (turn-off-hideshow hs-minor-mode) "hideshow" "progmodes/hideshow.el" 13351;;;### (autoloads (turn-off-hideshow hs-minor-mode) "hideshow" "progmodes/hideshow.el"
13340;;;;;; (20119 34052)) 13352;;;;;; (20172 54913))
13341;;; Generated autoloads from progmodes/hideshow.el 13353;;; Generated autoloads from progmodes/hideshow.el
13342 13354
13343(defvar hs-special-modes-alist (mapcar 'purecopy '((c-mode "{" "}" "/[*/]" nil nil) (c++-mode "{" "}" "/[*/]" nil nil) (bibtex-mode ("@\\S(*\\(\\s(\\)" 1)) (java-mode "{" "}" "/[*/]" nil nil) (js-mode "{" "}" "/[*/]" nil))) "\ 13355(defvar hs-special-modes-alist (mapcar 'purecopy '((c-mode "{" "}" "/[*/]" nil nil) (c++-mode "{" "}" "/[*/]" nil nil) (bibtex-mode ("@\\S(*\\(\\s(\\)" 1)) (java-mode "{" "}" "/[*/]" nil nil) (js-mode "{" "}" "/[*/]" nil))) "\
@@ -13399,8 +13411,8 @@ Unconditionally turn off `hs-minor-mode'.
13399;;;;;; highlight-compare-buffers highlight-changes-rotate-faces 13411;;;;;; highlight-compare-buffers highlight-changes-rotate-faces
13400;;;;;; highlight-changes-previous-change highlight-changes-next-change 13412;;;;;; highlight-changes-previous-change highlight-changes-next-change
13401;;;;;; highlight-changes-remove-highlight highlight-changes-visible-mode 13413;;;;;; highlight-changes-remove-highlight highlight-changes-visible-mode
13402;;;;;; highlight-changes-mode) "hilit-chg" "hilit-chg.el" (20126 13414;;;;;; highlight-changes-mode) "hilit-chg" "hilit-chg.el" (20164
13403;;;;;; 50110)) 13415;;;;;; 60780))
13404;;; Generated autoloads from hilit-chg.el 13416;;; Generated autoloads from hilit-chg.el
13405 13417
13406(autoload 'highlight-changes-mode "hilit-chg" "\ 13418(autoload 'highlight-changes-mode "hilit-chg" "\
@@ -13535,7 +13547,7 @@ See `highlight-changes-mode' for more information on Highlight-Changes mode.
13535;;;;;; hippie-expand-ignore-buffers hippie-expand-max-buffers hippie-expand-no-restriction 13547;;;;;; hippie-expand-ignore-buffers hippie-expand-max-buffers hippie-expand-no-restriction
13536;;;;;; hippie-expand-dabbrev-as-symbol hippie-expand-dabbrev-skip-space 13548;;;;;; hippie-expand-dabbrev-as-symbol hippie-expand-dabbrev-skip-space
13537;;;;;; hippie-expand-verbose hippie-expand-try-functions-list) "hippie-exp" 13549;;;;;; hippie-expand-verbose hippie-expand-try-functions-list) "hippie-exp"
13538;;;;;; "hippie-exp.el" (20119 34052)) 13550;;;;;; "hippie-exp.el" (20167 36967))
13539;;; Generated autoloads from hippie-exp.el 13551;;; Generated autoloads from hippie-exp.el
13540 13552
13541(defvar hippie-expand-try-functions-list '(try-complete-file-name-partially try-complete-file-name try-expand-all-abbrevs try-expand-list try-expand-line try-expand-dabbrev try-expand-dabbrev-all-buffers try-expand-dabbrev-from-kill try-complete-lisp-symbol-partially try-complete-lisp-symbol) "\ 13553(defvar hippie-expand-try-functions-list '(try-complete-file-name-partially try-complete-file-name try-expand-all-abbrevs try-expand-list try-expand-line try-expand-dabbrev try-expand-dabbrev-all-buffers try-expand-dabbrev-from-kill try-complete-lisp-symbol-partially try-complete-lisp-symbol) "\
@@ -13608,7 +13620,7 @@ argument VERBOSE non-nil makes the function verbose.
13608;;;*** 13620;;;***
13609 13621
13610;;;### (autoloads (global-hl-line-mode hl-line-mode) "hl-line" "hl-line.el" 13622;;;### (autoloads (global-hl-line-mode hl-line-mode) "hl-line" "hl-line.el"
13611;;;;;; (20126 50128)) 13623;;;;;; (20127 62865))
13612;;; Generated autoloads from hl-line.el 13624;;; Generated autoloads from hl-line.el
13613 13625
13614(autoload 'hl-line-mode "hl-line" "\ 13626(autoload 'hl-line-mode "hl-line" "\
@@ -13661,7 +13673,7 @@ Global-Hl-Line mode uses the functions `global-hl-line-unhighlight' and
13661;;;;;; holiday-bahai-holidays holiday-islamic-holidays holiday-christian-holidays 13673;;;;;; holiday-bahai-holidays holiday-islamic-holidays holiday-christian-holidays
13662;;;;;; holiday-hebrew-holidays holiday-other-holidays holiday-local-holidays 13674;;;;;; holiday-hebrew-holidays holiday-other-holidays holiday-local-holidays
13663;;;;;; holiday-oriental-holidays holiday-general-holidays) "holidays" 13675;;;;;; holiday-oriental-holidays holiday-general-holidays) "holidays"
13664;;;;;; "calendar/holidays.el" (20119 34052)) 13676;;;;;; "calendar/holidays.el" (20107 16822))
13665;;; Generated autoloads from calendar/holidays.el 13677;;; Generated autoloads from calendar/holidays.el
13666 13678
13667(define-obsolete-variable-alias 'general-holidays 'holiday-general-holidays "23.1") 13679(define-obsolete-variable-alias 'general-holidays 'holiday-general-holidays "23.1")
@@ -13809,8 +13821,8 @@ The optional LABEL is used to label the buffer created.
13809 13821
13810;;;*** 13822;;;***
13811 13823
13812;;;### (autoloads (html2text) "html2text" "gnus/html2text.el" (20119 13824;;;### (autoloads (html2text) "html2text" "gnus/html2text.el" (20164
13813;;;;;; 34052)) 13825;;;;;; 60780))
13814;;; Generated autoloads from gnus/html2text.el 13826;;; Generated autoloads from gnus/html2text.el
13815 13827
13816(autoload 'html2text "html2text" "\ 13828(autoload 'html2text "html2text" "\
@@ -13821,7 +13833,7 @@ Convert HTML to plain text in the current buffer.
13821;;;*** 13833;;;***
13822 13834
13823;;;### (autoloads (htmlfontify-copy-and-link-dir htmlfontify-buffer) 13835;;;### (autoloads (htmlfontify-copy-and-link-dir htmlfontify-buffer)
13824;;;;;; "htmlfontify" "htmlfontify.el" (20119 34052)) 13836;;;;;; "htmlfontify" "htmlfontify.el" (20183 25152))
13825;;; Generated autoloads from htmlfontify.el 13837;;; Generated autoloads from htmlfontify.el
13826 13838
13827(autoload 'htmlfontify-buffer "htmlfontify" "\ 13839(autoload 'htmlfontify-buffer "htmlfontify" "\
@@ -13854,8 +13866,8 @@ You may also want to set `hfy-page-header' and `hfy-page-footer'.
13854;;;*** 13866;;;***
13855 13867
13856;;;### (autoloads (define-ibuffer-filter define-ibuffer-op define-ibuffer-sorter 13868;;;### (autoloads (define-ibuffer-filter define-ibuffer-op define-ibuffer-sorter
13857;;;;;; define-ibuffer-column) "ibuf-macs" "ibuf-macs.el" (20119 13869;;;;;; define-ibuffer-column) "ibuf-macs" "ibuf-macs.el" (19845
13858;;;;;; 34052)) 13870;;;;;; 45374))
13859;;; Generated autoloads from ibuf-macs.el 13871;;; Generated autoloads from ibuf-macs.el
13860 13872
13861(autoload 'define-ibuffer-column "ibuf-macs" "\ 13873(autoload 'define-ibuffer-column "ibuf-macs" "\
@@ -13952,7 +13964,7 @@ bound to the current value of the filter.
13952;;;*** 13964;;;***
13953 13965
13954;;;### (autoloads (ibuffer ibuffer-other-window ibuffer-list-buffers) 13966;;;### (autoloads (ibuffer ibuffer-other-window ibuffer-list-buffers)
13955;;;;;; "ibuffer" "ibuffer.el" (20126 50992)) 13967;;;;;; "ibuffer" "ibuffer.el" (20162 19074))
13956;;; Generated autoloads from ibuffer.el 13968;;; Generated autoloads from ibuffer.el
13957 13969
13958(autoload 'ibuffer-list-buffers "ibuffer" "\ 13970(autoload 'ibuffer-list-buffers "ibuffer" "\
@@ -13993,7 +14005,7 @@ FORMATS is the value to use for `ibuffer-formats'.
13993 14005
13994;;;### (autoloads (icalendar-import-buffer icalendar-import-file 14006;;;### (autoloads (icalendar-import-buffer icalendar-import-file
13995;;;;;; icalendar-export-region icalendar-export-file) "icalendar" 14007;;;;;; icalendar-export-region icalendar-export-file) "icalendar"
13996;;;;;; "calendar/icalendar.el" (20119 34052)) 14008;;;;;; "calendar/icalendar.el" (20164 29468))
13997;;; Generated autoloads from calendar/icalendar.el 14009;;; Generated autoloads from calendar/icalendar.el
13998 14010
13999(autoload 'icalendar-export-file "icalendar" "\ 14011(autoload 'icalendar-export-file "icalendar" "\
@@ -14045,8 +14057,8 @@ buffer `*icalendar-errors*'.
14045 14057
14046;;;*** 14058;;;***
14047 14059
14048;;;### (autoloads (icomplete-mode) "icomplete" "icomplete.el" (20126 14060;;;### (autoloads (icomplete-mode) "icomplete" "icomplete.el" (20127
14049;;;;;; 50158)) 14061;;;;;; 62865))
14050;;; Generated autoloads from icomplete.el 14062;;; Generated autoloads from icomplete.el
14051 14063
14052(defvar icomplete-mode nil "\ 14064(defvar icomplete-mode nil "\
@@ -14068,7 +14080,7 @@ the mode if ARG is omitted or nil.
14068 14080
14069;;;*** 14081;;;***
14070 14082
14071;;;### (autoloads (icon-mode) "icon" "progmodes/icon.el" (20119 34052)) 14083;;;### (autoloads (icon-mode) "icon" "progmodes/icon.el" (19890 42850))
14072;;; Generated autoloads from progmodes/icon.el 14084;;; Generated autoloads from progmodes/icon.el
14073 14085
14074(autoload 'icon-mode "icon" "\ 14086(autoload 'icon-mode "icon" "\
@@ -14109,7 +14121,7 @@ with no args, if that value is non-nil.
14109;;;*** 14121;;;***
14110 14122
14111;;;### (autoloads (idlwave-shell) "idlw-shell" "progmodes/idlw-shell.el" 14123;;;### (autoloads (idlwave-shell) "idlw-shell" "progmodes/idlw-shell.el"
14112;;;;;; (20127 25340)) 14124;;;;;; (20178 7273))
14113;;; Generated autoloads from progmodes/idlw-shell.el 14125;;; Generated autoloads from progmodes/idlw-shell.el
14114 14126
14115(autoload 'idlwave-shell "idlw-shell" "\ 14127(autoload 'idlwave-shell "idlw-shell" "\
@@ -14135,7 +14147,7 @@ See also the variable `idlwave-shell-prompt-pattern'.
14135;;;*** 14147;;;***
14136 14148
14137;;;### (autoloads (idlwave-mode) "idlwave" "progmodes/idlwave.el" 14149;;;### (autoloads (idlwave-mode) "idlwave" "progmodes/idlwave.el"
14138;;;;;; (20129 34279)) 14150;;;;;; (20168 57844))
14139;;; Generated autoloads from progmodes/idlwave.el 14151;;; Generated autoloads from progmodes/idlwave.el
14140 14152
14141(autoload 'idlwave-mode "idlwave" "\ 14153(autoload 'idlwave-mode "idlwave" "\
@@ -14269,8 +14281,8 @@ The main features of this mode are
14269;;;;;; ido-find-alternate-file ido-find-file-other-window ido-find-file 14281;;;;;; ido-find-alternate-file ido-find-file-other-window ido-find-file
14270;;;;;; ido-find-file-in-dir ido-switch-buffer-other-frame ido-insert-buffer 14282;;;;;; ido-find-file-in-dir ido-switch-buffer-other-frame ido-insert-buffer
14271;;;;;; ido-kill-buffer ido-display-buffer ido-switch-buffer-other-window 14283;;;;;; ido-kill-buffer ido-display-buffer ido-switch-buffer-other-window
14272;;;;;; ido-switch-buffer ido-mode ido-mode) "ido" "ido.el" (20139 14284;;;;;; ido-switch-buffer ido-mode ido-mode) "ido" "ido.el" (20178
14273;;;;;; 37519)) 14285;;;;;; 7273))
14274;;; Generated autoloads from ido.el 14286;;; Generated autoloads from ido.el
14275 14287
14276(defvar ido-mode nil "\ 14288(defvar ido-mode nil "\
@@ -14531,7 +14543,7 @@ DEF, if non-nil, is the default value.
14531 14543
14532;;;*** 14544;;;***
14533 14545
14534;;;### (autoloads (ielm) "ielm" "ielm.el" (20119 34052)) 14546;;;### (autoloads (ielm) "ielm" "ielm.el" (20077 56412))
14535;;; Generated autoloads from ielm.el 14547;;; Generated autoloads from ielm.el
14536 14548
14537(autoload 'ielm "ielm" "\ 14549(autoload 'ielm "ielm" "\
@@ -14542,7 +14554,7 @@ Switches to the buffer `*ielm*', or creates it if it does not exist.
14542 14554
14543;;;*** 14555;;;***
14544 14556
14545;;;### (autoloads (iimage-mode) "iimage" "iimage.el" (20119 34052)) 14557;;;### (autoloads (iimage-mode) "iimage" "iimage.el" (19845 45374))
14546;;; Generated autoloads from iimage.el 14558;;; Generated autoloads from iimage.el
14547 14559
14548(define-obsolete-function-alias 'turn-on-iimage-mode 'iimage-mode "24.1") 14560(define-obsolete-function-alias 'turn-on-iimage-mode 'iimage-mode "24.1")
@@ -14559,7 +14571,7 @@ Toggle inline image minor mode.
14559;;;;;; create-image image-type-auto-detected-p image-type-available-p 14571;;;;;; create-image image-type-auto-detected-p image-type-available-p
14560;;;;;; image-type image-type-from-file-name image-type-from-file-header 14572;;;;;; image-type image-type-from-file-name image-type-from-file-header
14561;;;;;; image-type-from-buffer image-type-from-data) "image" "image.el" 14573;;;;;; image-type-from-buffer image-type-from-data) "image" "image.el"
14562;;;;;; (20119 34052)) 14574;;;;;; (20084 29660))
14563;;; Generated autoloads from image.el 14575;;; Generated autoloads from image.el
14564 14576
14565(autoload 'image-type-from-data "image" "\ 14577(autoload 'image-type-from-data "image" "\
@@ -14756,7 +14768,7 @@ If Emacs is compiled without ImageMagick support, do nothing.
14756;;;;;; image-dired-jump-thumbnail-buffer image-dired-delete-tag 14768;;;;;; image-dired-jump-thumbnail-buffer image-dired-delete-tag
14757;;;;;; image-dired-tag-files image-dired-show-all-from-dir image-dired-display-thumbs 14769;;;;;; image-dired-tag-files image-dired-show-all-from-dir image-dired-display-thumbs
14758;;;;;; image-dired-dired-with-window-configuration image-dired-dired-toggle-marked-thumbs) 14770;;;;;; image-dired-dired-with-window-configuration image-dired-dired-toggle-marked-thumbs)
14759;;;;;; "image-dired" "image-dired.el" (20140 44252)) 14771;;;;;; "image-dired" "image-dired.el" (20168 57844))
14760;;; Generated autoloads from image-dired.el 14772;;; Generated autoloads from image-dired.el
14761 14773
14762(autoload 'image-dired-dired-toggle-marked-thumbs "image-dired" "\ 14774(autoload 'image-dired-dired-toggle-marked-thumbs "image-dired" "\
@@ -14894,7 +14906,7 @@ easy-to-use form.
14894 14906
14895;;;### (autoloads (auto-image-file-mode insert-image-file image-file-name-regexp 14907;;;### (autoloads (auto-image-file-mode insert-image-file image-file-name-regexp
14896;;;;;; image-file-name-regexps image-file-name-extensions) "image-file" 14908;;;;;; image-file-name-regexps image-file-name-extensions) "image-file"
14897;;;;;; "image-file.el" (20126 50176)) 14909;;;;;; "image-file.el" (20127 62865))
14898;;; Generated autoloads from image-file.el 14910;;; Generated autoloads from image-file.el
14899 14911
14900(defvar image-file-name-extensions (purecopy '("png" "jpeg" "jpg" "gif" "tiff" "tif" "xbm" "xpm" "pbm" "pgm" "ppm" "pnm" "svg")) "\ 14912(defvar image-file-name-extensions (purecopy '("png" "jpeg" "jpg" "gif" "tiff" "tif" "xbm" "xpm" "pbm" "pgm" "ppm" "pnm" "svg")) "\
@@ -14957,7 +14969,7 @@ An image file is one whose name has an extension in
14957;;;*** 14969;;;***
14958 14970
14959;;;### (autoloads (image-bookmark-jump image-mode-as-text image-minor-mode 14971;;;### (autoloads (image-bookmark-jump image-mode-as-text image-minor-mode
14960;;;;;; image-mode) "image-mode" "image-mode.el" (20126 50186)) 14972;;;;;; image-mode) "image-mode" "image-mode.el" (20160 63745))
14961;;; Generated autoloads from image-mode.el 14973;;; Generated autoloads from image-mode.el
14962 14974
14963(autoload 'image-mode "image-mode" "\ 14975(autoload 'image-mode "image-mode" "\
@@ -15002,7 +15014,7 @@ on these modes.
15002;;;*** 15014;;;***
15003 15015
15004;;;### (autoloads (imenu imenu-add-menubar-index imenu-add-to-menubar 15016;;;### (autoloads (imenu imenu-add-menubar-index imenu-add-to-menubar
15005;;;;;; imenu-sort-function) "imenu" "imenu.el" (20119 34052)) 15017;;;;;; imenu-sort-function) "imenu" "imenu.el" (19845 45374))
15006;;; Generated autoloads from imenu.el 15018;;; Generated autoloads from imenu.el
15007 15019
15008(defvar imenu-sort-function nil "\ 15020(defvar imenu-sort-function nil "\
@@ -15119,7 +15131,7 @@ for more information.
15119 15131
15120;;;### (autoloads (indian-2-column-to-ucs-region in-is13194-pre-write-conversion 15132;;;### (autoloads (indian-2-column-to-ucs-region in-is13194-pre-write-conversion
15121;;;;;; in-is13194-post-read-conversion indian-compose-string indian-compose-region) 15133;;;;;; in-is13194-post-read-conversion indian-compose-string indian-compose-region)
15122;;;;;; "ind-util" "language/ind-util.el" (20119 34052)) 15134;;;;;; "ind-util" "language/ind-util.el" (20097 41737))
15123;;; Generated autoloads from language/ind-util.el 15135;;; Generated autoloads from language/ind-util.el
15124 15136
15125(autoload 'indian-compose-region "ind-util" "\ 15137(autoload 'indian-compose-region "ind-util" "\
@@ -15151,7 +15163,7 @@ Convert old Emacs Devanagari characters to UCS.
15151 15163
15152;;;### (autoloads (inferior-lisp inferior-lisp-prompt inferior-lisp-load-command 15164;;;### (autoloads (inferior-lisp inferior-lisp-prompt inferior-lisp-load-command
15153;;;;;; inferior-lisp-program inferior-lisp-filter-regexp) "inf-lisp" 15165;;;;;; inferior-lisp-program inferior-lisp-filter-regexp) "inf-lisp"
15154;;;;;; "progmodes/inf-lisp.el" (20119 34052)) 15166;;;;;; "progmodes/inf-lisp.el" (20168 57844))
15155;;; Generated autoloads from progmodes/inf-lisp.el 15167;;; Generated autoloads from progmodes/inf-lisp.el
15156 15168
15157(defvar inferior-lisp-filter-regexp (purecopy "\\`\\s *\\(:\\(\\w\\|\\s_\\)\\)?\\s *\\'") "\ 15169(defvar inferior-lisp-filter-regexp (purecopy "\\`\\s *\\(:\\(\\w\\|\\s_\\)\\)?\\s *\\'") "\
@@ -15218,7 +15230,7 @@ of `inferior-lisp-program'). Runs the hooks from
15218;;;;;; Info-goto-emacs-key-command-node Info-goto-emacs-command-node 15230;;;;;; Info-goto-emacs-key-command-node Info-goto-emacs-command-node
15219;;;;;; Info-mode info-finder info-apropos Info-index Info-directory 15231;;;;;; Info-mode info-finder info-apropos Info-index Info-directory
15220;;;;;; Info-on-current-buffer info-standalone info-emacs-manual 15232;;;;;; Info-on-current-buffer info-standalone info-emacs-manual
15221;;;;;; info info-other-window) "info" "info.el" (20134 14214)) 15233;;;;;; info info-other-window) "info" "info.el" (20172 54913))
15222;;; Generated autoloads from info.el 15234;;; Generated autoloads from info.el
15223 15235
15224(autoload 'info-other-window "info" "\ 15236(autoload 'info-other-window "info" "\
@@ -15404,7 +15416,7 @@ Go to Info buffer that displays MANUAL, creating it if none already exists.
15404 15416
15405;;;### (autoloads (info-complete-file info-complete-symbol info-lookup-file 15417;;;### (autoloads (info-complete-file info-complete-symbol info-lookup-file
15406;;;;;; info-lookup-symbol info-lookup-reset) "info-look" "info-look.el" 15418;;;;;; info-lookup-symbol info-lookup-reset) "info-look" "info-look.el"
15407;;;;;; (20119 34052)) 15419;;;;;; (19984 16846))
15408;;; Generated autoloads from info-look.el 15420;;; Generated autoloads from info-look.el
15409 15421
15410(autoload 'info-lookup-reset "info-look" "\ 15422(autoload 'info-lookup-reset "info-look" "\
@@ -15453,7 +15465,7 @@ Perform completion on file preceding point.
15453 15465
15454;;;### (autoloads (info-xref-docstrings info-xref-check-all-custom 15466;;;### (autoloads (info-xref-docstrings info-xref-check-all-custom
15455;;;;;; info-xref-check-all info-xref-check) "info-xref" "info-xref.el" 15467;;;;;; info-xref-check-all info-xref-check) "info-xref" "info-xref.el"
15456;;;;;; (20119 34052)) 15468;;;;;; (20168 57844))
15457;;; Generated autoloads from info-xref.el 15469;;; Generated autoloads from info-xref.el
15458 15470
15459(autoload 'info-xref-check "info-xref" "\ 15471(autoload 'info-xref-check "info-xref" "\
@@ -15536,7 +15548,7 @@ the sources handy.
15536;;;*** 15548;;;***
15537 15549
15538;;;### (autoloads (batch-info-validate Info-validate Info-split Info-split-threshold 15550;;;### (autoloads (batch-info-validate Info-validate Info-split Info-split-threshold
15539;;;;;; Info-tagify) "informat" "informat.el" (20119 34052)) 15551;;;;;; Info-tagify) "informat" "informat.el" (19886 45771))
15540;;; Generated autoloads from informat.el 15552;;; Generated autoloads from informat.el
15541 15553
15542(autoload 'Info-tagify "informat" "\ 15554(autoload 'Info-tagify "informat" "\
@@ -15583,7 +15595,7 @@ For example, invoke \"emacs -batch -f batch-info-validate $info/ ~/*.info\"
15583 15595
15584;;;### (autoloads (isearch-process-search-multibyte-characters isearch-toggle-input-method 15596;;;### (autoloads (isearch-process-search-multibyte-characters isearch-toggle-input-method
15585;;;;;; isearch-toggle-specified-input-method) "isearch-x" "international/isearch-x.el" 15597;;;;;; isearch-toggle-specified-input-method) "isearch-x" "international/isearch-x.el"
15586;;;;;; (20119 34052)) 15598;;;;;; (19845 45374))
15587;;; Generated autoloads from international/isearch-x.el 15599;;; Generated autoloads from international/isearch-x.el
15588 15600
15589(autoload 'isearch-toggle-specified-input-method "isearch-x" "\ 15601(autoload 'isearch-toggle-specified-input-method "isearch-x" "\
@@ -15603,8 +15615,8 @@ Toggle input method in interactive search.
15603 15615
15604;;;*** 15616;;;***
15605 15617
15606;;;### (autoloads (isearchb-activate) "isearchb" "isearchb.el" (20119 15618;;;### (autoloads (isearchb-activate) "isearchb" "isearchb.el" (19845
15607;;;;;; 34052)) 15619;;;;;; 45374))
15608;;; Generated autoloads from isearchb.el 15620;;; Generated autoloads from isearchb.el
15609 15621
15610(autoload 'isearchb-activate "isearchb" "\ 15622(autoload 'isearchb-activate "isearchb" "\
@@ -15620,7 +15632,7 @@ accessed via isearchb.
15620;;;### (autoloads (iso-cvt-define-menu iso-cvt-write-only iso-cvt-read-only 15632;;;### (autoloads (iso-cvt-define-menu iso-cvt-write-only iso-cvt-read-only
15621;;;;;; iso-sgml2iso iso-iso2sgml iso-iso2duden iso-iso2gtex iso-gtex2iso 15633;;;;;; iso-sgml2iso iso-iso2sgml iso-iso2duden iso-iso2gtex iso-gtex2iso
15622;;;;;; iso-tex2iso iso-iso2tex iso-german iso-spanish) "iso-cvt" 15634;;;;;; iso-tex2iso iso-iso2tex iso-german iso-spanish) "iso-cvt"
15623;;;;;; "international/iso-cvt.el" (20119 34052)) 15635;;;;;; "international/iso-cvt.el" (19845 45374))
15624;;; Generated autoloads from international/iso-cvt.el 15636;;; Generated autoloads from international/iso-cvt.el
15625 15637
15626(autoload 'iso-spanish "iso-cvt" "\ 15638(autoload 'iso-spanish "iso-cvt" "\
@@ -15711,7 +15723,7 @@ Add submenus to the File menu, to convert to and from various formats.
15711;;;*** 15723;;;***
15712 15724
15713;;;### (autoloads nil "iso-transl" "international/iso-transl.el" 15725;;;### (autoloads nil "iso-transl" "international/iso-transl.el"
15714;;;;;; (20119 34052)) 15726;;;;;; (19845 45374))
15715;;; Generated autoloads from international/iso-transl.el 15727;;; Generated autoloads from international/iso-transl.el
15716 (or key-translation-map (setq key-translation-map (make-sparse-keymap))) 15728 (or key-translation-map (setq key-translation-map (make-sparse-keymap)))
15717 (define-key key-translation-map "\C-x8" 'iso-transl-ctl-x-8-map) 15729 (define-key key-translation-map "\C-x8" 'iso-transl-ctl-x-8-map)
@@ -15723,7 +15735,7 @@ Add submenus to the File menu, to convert to and from various formats.
15723;;;;;; ispell-complete-word ispell-continue ispell-buffer ispell-comments-and-strings 15735;;;;;; ispell-complete-word ispell-continue ispell-buffer ispell-comments-and-strings
15724;;;;;; ispell-region ispell-change-dictionary ispell-kill-ispell 15736;;;;;; ispell-region ispell-change-dictionary ispell-kill-ispell
15725;;;;;; ispell-help ispell-pdict-save ispell-word ispell-personal-dictionary) 15737;;;;;; ispell-help ispell-pdict-save ispell-word ispell-personal-dictionary)
15726;;;;;; "ispell" "textmodes/ispell.el" (20139 33409)) 15738;;;;;; "ispell" "textmodes/ispell.el" (20178 7273))
15727;;; Generated autoloads from textmodes/ispell.el 15739;;; Generated autoloads from textmodes/ispell.el
15728 15740
15729(put 'ispell-check-comments 'safe-local-variable (lambda (a) (memq a '(nil t exclusive)))) 15741(put 'ispell-check-comments 'safe-local-variable (lambda (a) (memq a '(nil t exclusive))))
@@ -15949,8 +15961,8 @@ You can bind this to the key C-c i in GNUS or mail by adding to
15949 15961
15950;;;*** 15962;;;***
15951 15963
15952;;;### (autoloads (iswitchb-mode) "iswitchb" "iswitchb.el" (20126 15964;;;### (autoloads (iswitchb-mode) "iswitchb" "iswitchb.el" (20168
15953;;;;;; 50194)) 15965;;;;;; 57844))
15954;;; Generated autoloads from iswitchb.el 15966;;; Generated autoloads from iswitchb.el
15955 15967
15956(defvar iswitchb-mode nil "\ 15968(defvar iswitchb-mode nil "\
@@ -15978,7 +15990,7 @@ between buffers using substrings. See `iswitchb' for details.
15978;;;### (autoloads (read-hiragana-string japanese-zenkaku-region japanese-hankaku-region 15990;;;### (autoloads (read-hiragana-string japanese-zenkaku-region japanese-hankaku-region
15979;;;;;; japanese-hiragana-region japanese-katakana-region japanese-zenkaku 15991;;;;;; japanese-hiragana-region japanese-katakana-region japanese-zenkaku
15980;;;;;; japanese-hankaku japanese-hiragana japanese-katakana setup-japanese-environment-internal) 15992;;;;;; japanese-hankaku japanese-hiragana japanese-katakana setup-japanese-environment-internal)
15981;;;;;; "japan-util" "language/japan-util.el" (20119 34052)) 15993;;;;;; "japan-util" "language/japan-util.el" (19845 45374))
15982;;; Generated autoloads from language/japan-util.el 15994;;; Generated autoloads from language/japan-util.el
15983 15995
15984(autoload 'setup-japanese-environment-internal "japan-util" "\ 15996(autoload 'setup-japanese-environment-internal "japan-util" "\
@@ -16056,7 +16068,7 @@ If non-nil, second arg INITIAL-INPUT is a string to insert before reading.
16056;;;*** 16068;;;***
16057 16069
16058;;;### (autoloads (jka-compr-uninstall jka-compr-handler) "jka-compr" 16070;;;### (autoloads (jka-compr-uninstall jka-compr-handler) "jka-compr"
16059;;;;;; "jka-compr.el" (20119 34052)) 16071;;;;;; "jka-compr.el" (20000 30139))
16060;;; Generated autoloads from jka-compr.el 16072;;; Generated autoloads from jka-compr.el
16061 16073
16062(defvar jka-compr-inhibit nil "\ 16074(defvar jka-compr-inhibit nil "\
@@ -16079,7 +16091,7 @@ by `jka-compr-installed'.
16079 16091
16080;;;*** 16092;;;***
16081 16093
16082;;;### (autoloads (js-mode) "js" "progmodes/js.el" (20119 34052)) 16094;;;### (autoloads (js-mode) "js" "progmodes/js.el" (20167 36967))
16083;;; Generated autoloads from progmodes/js.el 16095;;; Generated autoloads from progmodes/js.el
16084 16096
16085(autoload 'js-mode "js" "\ 16097(autoload 'js-mode "js" "\
@@ -16093,7 +16105,7 @@ Major mode for editing JavaScript.
16093 16105
16094;;;### (autoloads (keypad-setup keypad-numlock-shifted-setup keypad-shifted-setup 16106;;;### (autoloads (keypad-setup keypad-numlock-shifted-setup keypad-shifted-setup
16095;;;;;; keypad-numlock-setup keypad-setup) "keypad" "emulation/keypad.el" 16107;;;;;; keypad-numlock-setup keypad-setup) "keypad" "emulation/keypad.el"
16096;;;;;; (20119 34052)) 16108;;;;;; (19845 45374))
16097;;; Generated autoloads from emulation/keypad.el 16109;;; Generated autoloads from emulation/keypad.el
16098 16110
16099(defvar keypad-setup nil "\ 16111(defvar keypad-setup nil "\
@@ -16149,7 +16161,7 @@ the decimal key on the keypad is mapped to DECIMAL instead of `.'
16149;;;*** 16161;;;***
16150 16162
16151;;;### (autoloads (kinsoku) "kinsoku" "international/kinsoku.el" 16163;;;### (autoloads (kinsoku) "kinsoku" "international/kinsoku.el"
16152;;;;;; (20119 34052)) 16164;;;;;; (19845 45374))
16153;;; Generated autoloads from international/kinsoku.el 16165;;; Generated autoloads from international/kinsoku.el
16154 16166
16155(autoload 'kinsoku "kinsoku" "\ 16167(autoload 'kinsoku "kinsoku" "\
@@ -16170,8 +16182,8 @@ the context of text formatting.
16170 16182
16171;;;*** 16183;;;***
16172 16184
16173;;;### (autoloads (kkc-region) "kkc" "international/kkc.el" (20119 16185;;;### (autoloads (kkc-region) "kkc" "international/kkc.el" (19845
16174;;;;;; 34052)) 16186;;;;;; 45374))
16175;;; Generated autoloads from international/kkc.el 16187;;; Generated autoloads from international/kkc.el
16176 16188
16177(defvar kkc-after-update-conversion-functions nil "\ 16189(defvar kkc-after-update-conversion-functions nil "\
@@ -16196,7 +16208,7 @@ and the return value is the length of the conversion.
16196;;;### (autoloads (kmacro-end-call-mouse kmacro-end-and-call-macro 16208;;;### (autoloads (kmacro-end-call-mouse kmacro-end-and-call-macro
16197;;;;;; kmacro-end-or-call-macro kmacro-start-macro-or-insert-counter 16209;;;;;; kmacro-end-or-call-macro kmacro-start-macro-or-insert-counter
16198;;;;;; kmacro-call-macro kmacro-end-macro kmacro-start-macro kmacro-exec-ring-item) 16210;;;;;; kmacro-call-macro kmacro-end-macro kmacro-start-macro kmacro-exec-ring-item)
16199;;;;;; "kmacro" "kmacro.el" (20119 34052)) 16211;;;;;; "kmacro" "kmacro.el" (20164 60780))
16200;;; Generated autoloads from kmacro.el 16212;;; Generated autoloads from kmacro.el
16201 (global-set-key "\C-x(" 'kmacro-start-macro) 16213 (global-set-key "\C-x(" 'kmacro-start-macro)
16202 (global-set-key "\C-x)" 'kmacro-end-macro) 16214 (global-set-key "\C-x)" 'kmacro-end-macro)
@@ -16307,7 +16319,7 @@ If kbd macro currently being defined end it before activating it.
16307;;;*** 16319;;;***
16308 16320
16309;;;### (autoloads (setup-korean-environment-internal) "korea-util" 16321;;;### (autoloads (setup-korean-environment-internal) "korea-util"
16310;;;;;; "language/korea-util.el" (20119 34052)) 16322;;;;;; "language/korea-util.el" (19845 45374))
16311;;; Generated autoloads from language/korea-util.el 16323;;; Generated autoloads from language/korea-util.el
16312 16324
16313(defvar default-korean-keyboard (purecopy (if (string-match "3" (or (getenv "HANGUL_KEYBOARD_TYPE") "")) "3" "")) "\ 16325(defvar default-korean-keyboard (purecopy (if (string-match "3" (or (getenv "HANGUL_KEYBOARD_TYPE") "")) "3" "")) "\
@@ -16322,7 +16334,7 @@ If kbd macro currently being defined end it before activating it.
16322;;;*** 16334;;;***
16323 16335
16324;;;### (autoloads (landmark landmark-test-run) "landmark" "play/landmark.el" 16336;;;### (autoloads (landmark landmark-test-run) "landmark" "play/landmark.el"
16325;;;;;; (20119 34052)) 16337;;;;;; (20178 7273))
16326;;; Generated autoloads from play/landmark.el 16338;;; Generated autoloads from play/landmark.el
16327 16339
16328(defalias 'landmark-repeat 'landmark-test-run) 16340(defalias 'landmark-repeat 'landmark-test-run)
@@ -16354,7 +16366,7 @@ Use \\[describe-mode] for more info.
16354 16366
16355;;;### (autoloads (lao-compose-region lao-composition-function lao-transcribe-roman-to-lao-string 16367;;;### (autoloads (lao-compose-region lao-composition-function lao-transcribe-roman-to-lao-string
16356;;;;;; lao-transcribe-single-roman-syllable-to-lao lao-compose-string) 16368;;;;;; lao-transcribe-single-roman-syllable-to-lao lao-compose-string)
16357;;;;;; "lao-util" "language/lao-util.el" (20119 34052)) 16369;;;;;; "lao-util" "language/lao-util.el" (20165 31925))
16358;;; Generated autoloads from language/lao-util.el 16370;;; Generated autoloads from language/lao-util.el
16359 16371
16360(autoload 'lao-compose-string "lao-util" "\ 16372(autoload 'lao-compose-string "lao-util" "\
@@ -16393,7 +16405,7 @@ Transcribe Romanized Lao string STR to Lao character string.
16393 16405
16394;;;### (autoloads (latexenc-find-file-coding-system latexenc-coding-system-to-inputenc 16406;;;### (autoloads (latexenc-find-file-coding-system latexenc-coding-system-to-inputenc
16395;;;;;; latexenc-inputenc-to-coding-system latex-inputenc-coding-alist) 16407;;;;;; latexenc-inputenc-to-coding-system latex-inputenc-coding-alist)
16396;;;;;; "latexenc" "international/latexenc.el" (20119 34052)) 16408;;;;;; "latexenc" "international/latexenc.el" (19845 45374))
16397;;; Generated autoloads from international/latexenc.el 16409;;; Generated autoloads from international/latexenc.el
16398 16410
16399(defvar latex-inputenc-coding-alist (purecopy '(("ansinew" . windows-1252) ("applemac" . mac-roman) ("ascii" . us-ascii) ("cp1250" . windows-1250) ("cp1252" . windows-1252) ("cp1257" . cp1257) ("cp437de" . cp437) ("cp437" . cp437) ("cp850" . cp850) ("cp852" . cp852) ("cp858" . cp858) ("cp865" . cp865) ("latin1" . iso-8859-1) ("latin2" . iso-8859-2) ("latin3" . iso-8859-3) ("latin4" . iso-8859-4) ("latin5" . iso-8859-5) ("latin9" . iso-8859-15) ("next" . next) ("utf8" . utf-8) ("utf8x" . utf-8))) "\ 16411(defvar latex-inputenc-coding-alist (purecopy '(("ansinew" . windows-1252) ("applemac" . mac-roman) ("ascii" . us-ascii) ("cp1250" . windows-1250) ("cp1252" . windows-1252) ("cp1257" . cp1257) ("cp437de" . cp437) ("cp437" . cp437) ("cp850" . cp850) ("cp852" . cp852) ("cp858" . cp858) ("cp865" . cp865) ("latin1" . iso-8859-1) ("latin2" . iso-8859-2) ("latin3" . iso-8859-3) ("latin4" . iso-8859-4) ("latin5" . iso-8859-5) ("latin9" . iso-8859-15) ("next" . next) ("utf8" . utf-8) ("utf8x" . utf-8))) "\
@@ -16425,7 +16437,7 @@ coding system names is determined from `latex-inputenc-coding-alist'.
16425;;;*** 16437;;;***
16426 16438
16427;;;### (autoloads (latin1-display-ucs-per-lynx latin1-display latin1-display) 16439;;;### (autoloads (latin1-display-ucs-per-lynx latin1-display latin1-display)
16428;;;;;; "latin1-disp" "international/latin1-disp.el" (20119 34052)) 16440;;;;;; "latin1-disp" "international/latin1-disp.el" (19845 45374))
16429;;; Generated autoloads from international/latin1-disp.el 16441;;; Generated autoloads from international/latin1-disp.el
16430 16442
16431(defvar latin1-display nil "\ 16443(defvar latin1-display nil "\
@@ -16467,7 +16479,7 @@ use either \\[customize] or the function `latin1-display'.")
16467;;;*** 16479;;;***
16468 16480
16469;;;### (autoloads (ld-script-mode) "ld-script" "progmodes/ld-script.el" 16481;;;### (autoloads (ld-script-mode) "ld-script" "progmodes/ld-script.el"
16470;;;;;; (20119 34052)) 16482;;;;;; (19961 55377))
16471;;; Generated autoloads from progmodes/ld-script.el 16483;;; Generated autoloads from progmodes/ld-script.el
16472 16484
16473(autoload 'ld-script-mode "ld-script" "\ 16485(autoload 'ld-script-mode "ld-script" "\
@@ -16478,7 +16490,7 @@ A major mode to edit GNU ld script files
16478;;;*** 16490;;;***
16479 16491
16480;;;### (autoloads (ledit-from-lisp-mode ledit-mode) "ledit" "ledit.el" 16492;;;### (autoloads (ledit-from-lisp-mode ledit-mode) "ledit" "ledit.el"
16481;;;;;; (20119 34052)) 16493;;;;;; (19845 45374))
16482;;; Generated autoloads from ledit.el 16494;;; Generated autoloads from ledit.el
16483 16495
16484(defconst ledit-save-files t "\ 16496(defconst ledit-save-files t "\
@@ -16513,7 +16525,7 @@ do (setq lisp-mode-hook 'ledit-from-lisp-mode)
16513 16525
16514;;;*** 16526;;;***
16515 16527
16516;;;### (autoloads (life) "life" "play/life.el" (20119 34052)) 16528;;;### (autoloads (life) "life" "play/life.el" (19845 45374))
16517;;; Generated autoloads from play/life.el 16529;;; Generated autoloads from play/life.el
16518 16530
16519(autoload 'life "life" "\ 16531(autoload 'life "life" "\
@@ -16527,7 +16539,7 @@ generations (this defaults to 1).
16527;;;*** 16539;;;***
16528 16540
16529;;;### (autoloads (global-linum-mode linum-mode linum-format) "linum" 16541;;;### (autoloads (global-linum-mode linum-mode linum-format) "linum"
16530;;;;;; "linum.el" (20126 50215)) 16542;;;;;; "linum.el" (20127 62865))
16531;;; Generated autoloads from linum.el 16543;;; Generated autoloads from linum.el
16532 16544
16533(defvar linum-format 'dynamic "\ 16545(defvar linum-format 'dynamic "\
@@ -16572,8 +16584,8 @@ See `linum-mode' for more information on Linum mode.
16572 16584
16573;;;*** 16585;;;***
16574 16586
16575;;;### (autoloads (unload-feature) "loadhist" "loadhist.el" (20119 16587;;;### (autoloads (unload-feature) "loadhist" "loadhist.el" (20168
16576;;;;;; 34052)) 16588;;;;;; 57844))
16577;;; Generated autoloads from loadhist.el 16589;;; Generated autoloads from loadhist.el
16578 16590
16579(autoload 'unload-feature "loadhist" "\ 16591(autoload 'unload-feature "loadhist" "\
@@ -16605,7 +16617,7 @@ something strange, such as redefining an Emacs function.
16605;;;*** 16617;;;***
16606 16618
16607;;;### (autoloads (locate-with-filter locate locate-ls-subdir-switches) 16619;;;### (autoloads (locate-with-filter locate locate-ls-subdir-switches)
16608;;;;;; "locate" "locate.el" (20119 34052)) 16620;;;;;; "locate" "locate.el" (19886 45771))
16609;;; Generated autoloads from locate.el 16621;;; Generated autoloads from locate.el
16610 16622
16611(defvar locate-ls-subdir-switches (purecopy "-al") "\ 16623(defvar locate-ls-subdir-switches (purecopy "-al") "\
@@ -16657,7 +16669,7 @@ except that FILTER is not optional.
16657 16669
16658;;;*** 16670;;;***
16659 16671
16660;;;### (autoloads (log-edit) "log-edit" "vc/log-edit.el" (20138 48832)) 16672;;;### (autoloads (log-edit) "log-edit" "vc/log-edit.el" (20138 33157))
16661;;; Generated autoloads from vc/log-edit.el 16673;;; Generated autoloads from vc/log-edit.el
16662 16674
16663(autoload 'log-edit "log-edit" "\ 16675(autoload 'log-edit "log-edit" "\
@@ -16684,8 +16696,8 @@ uses the current buffer.
16684 16696
16685;;;*** 16697;;;***
16686 16698
16687;;;### (autoloads (log-view-mode) "log-view" "vc/log-view.el" (20119 16699;;;### (autoloads (log-view-mode) "log-view" "vc/log-view.el" (19946
16688;;;;;; 34052)) 16700;;;;;; 1612))
16689;;; Generated autoloads from vc/log-view.el 16701;;; Generated autoloads from vc/log-view.el
16690 16702
16691(autoload 'log-view-mode "log-view" "\ 16703(autoload 'log-view-mode "log-view" "\
@@ -16695,8 +16707,8 @@ Major mode for browsing CVS log output.
16695 16707
16696;;;*** 16708;;;***
16697 16709
16698;;;### (autoloads (longlines-mode) "longlines" "longlines.el" (20126 16710;;;### (autoloads (longlines-mode) "longlines" "longlines.el" (20127
16699;;;;;; 50224)) 16711;;;;;; 62865))
16700;;; Generated autoloads from longlines.el 16712;;; Generated autoloads from longlines.el
16701 16713
16702(autoload 'longlines-mode "longlines" "\ 16714(autoload 'longlines-mode "longlines" "\
@@ -16722,13 +16734,15 @@ newlines are indicated with a symbol.
16722;;;*** 16734;;;***
16723 16735
16724;;;### (autoloads (print-region lpr-region print-buffer lpr-buffer 16736;;;### (autoloads (print-region lpr-region print-buffer lpr-buffer
16725;;;;;; lpr-command lpr-switches printer-name) "lpr" "lpr.el" (20119 16737;;;;;; lpr-command lpr-switches printer-name) "lpr" "lpr.el" (20174
16726;;;;;; 34052)) 16738;;;;;; 10230))
16727;;; Generated autoloads from lpr.el 16739;;; Generated autoloads from lpr.el
16728 16740
16729(defvar lpr-windows-system (memq system-type '(ms-dos windows-nt))) 16741(defvar lpr-windows-system (memq system-type '(ms-dos windows-nt)) "\
16742Non-nil if running on MS-DOS or MS Windows.")
16730 16743
16731(defvar lpr-lp-system (memq system-type '(usg-unix-v hpux irix))) 16744(defvar lpr-lp-system (memq system-type '(usg-unix-v hpux irix)) "\
16745Non-nil if running on a system type that uses the \"lp\" command.")
16732 16746
16733(defvar printer-name (and (eq system-type 'ms-dos) "PRN") "\ 16747(defvar printer-name (and (eq system-type 'ms-dos) "PRN") "\
16734The name of a local printer to which data is sent for printing. 16748The name of a local printer to which data is sent for printing.
@@ -16817,7 +16831,7 @@ for further customization of the printer command.
16817;;;*** 16831;;;***
16818 16832
16819;;;### (autoloads (ls-lisp-support-shell-wildcards) "ls-lisp" "ls-lisp.el" 16833;;;### (autoloads (ls-lisp-support-shell-wildcards) "ls-lisp" "ls-lisp.el"
16820;;;;;; (20119 34052)) 16834;;;;;; (19886 45771))
16821;;; Generated autoloads from ls-lisp.el 16835;;; Generated autoloads from ls-lisp.el
16822 16836
16823(defvar ls-lisp-support-shell-wildcards t "\ 16837(defvar ls-lisp-support-shell-wildcards t "\
@@ -16828,8 +16842,8 @@ Otherwise they are treated as Emacs regexps (for backward compatibility).")
16828 16842
16829;;;*** 16843;;;***
16830 16844
16831;;;### (autoloads (lunar-phases) "lunar" "calendar/lunar.el" (20119 16845;;;### (autoloads (lunar-phases) "lunar" "calendar/lunar.el" (19845
16832;;;;;; 34052)) 16846;;;;;; 45374))
16833;;; Generated autoloads from calendar/lunar.el 16847;;; Generated autoloads from calendar/lunar.el
16834 16848
16835(autoload 'lunar-phases "lunar" "\ 16849(autoload 'lunar-phases "lunar" "\
@@ -16843,8 +16857,8 @@ This function is suitable for execution in a .emacs file.
16843 16857
16844;;;*** 16858;;;***
16845 16859
16846;;;### (autoloads (m4-mode) "m4-mode" "progmodes/m4-mode.el" (20119 16860;;;### (autoloads (m4-mode) "m4-mode" "progmodes/m4-mode.el" (19845
16847;;;;;; 34052)) 16861;;;;;; 45374))
16848;;; Generated autoloads from progmodes/m4-mode.el 16862;;; Generated autoloads from progmodes/m4-mode.el
16849 16863
16850(autoload 'm4-mode "m4-mode" "\ 16864(autoload 'm4-mode "m4-mode" "\
@@ -16855,7 +16869,7 @@ A major mode to edit m4 macro files.
16855;;;*** 16869;;;***
16856 16870
16857;;;### (autoloads (macroexpand-all) "macroexp" "emacs-lisp/macroexp.el" 16871;;;### (autoloads (macroexpand-all) "macroexp" "emacs-lisp/macroexp.el"
16858;;;;;; (20119 34052)) 16872;;;;;; (19930 13389))
16859;;; Generated autoloads from emacs-lisp/macroexp.el 16873;;; Generated autoloads from emacs-lisp/macroexp.el
16860 16874
16861(autoload 'macroexpand-all "macroexp" "\ 16875(autoload 'macroexpand-all "macroexp" "\
@@ -16869,7 +16883,7 @@ definitions to shadow the loaded ones for use in file byte-compilation.
16869;;;*** 16883;;;***
16870 16884
16871;;;### (autoloads (apply-macro-to-region-lines kbd-macro-query insert-kbd-macro 16885;;;### (autoloads (apply-macro-to-region-lines kbd-macro-query insert-kbd-macro
16872;;;;;; name-last-kbd-macro) "macros" "macros.el" (20119 34052)) 16886;;;;;; name-last-kbd-macro) "macros" "macros.el" (19886 45771))
16873;;; Generated autoloads from macros.el 16887;;; Generated autoloads from macros.el
16874 16888
16875(autoload 'name-last-kbd-macro "macros" "\ 16889(autoload 'name-last-kbd-macro "macros" "\
@@ -16958,7 +16972,7 @@ and then select the region of un-tablified names and use
16958;;;*** 16972;;;***
16959 16973
16960;;;### (autoloads (what-domain mail-extract-address-components) "mail-extr" 16974;;;### (autoloads (what-domain mail-extract-address-components) "mail-extr"
16961;;;;;; "mail/mail-extr.el" (20119 34052)) 16975;;;;;; "mail/mail-extr.el" (20160 63745))
16962;;; Generated autoloads from mail/mail-extr.el 16976;;; Generated autoloads from mail/mail-extr.el
16963 16977
16964(autoload 'mail-extract-address-components "mail-extr" "\ 16978(autoload 'mail-extract-address-components "mail-extr" "\
@@ -16990,7 +17004,7 @@ Convert mail domain DOMAIN to the country it corresponds to.
16990 17004
16991;;;### (autoloads (mail-hist-put-headers-into-history mail-hist-keep-history 17005;;;### (autoloads (mail-hist-put-headers-into-history mail-hist-keep-history
16992;;;;;; mail-hist-enable mail-hist-define-keys) "mail-hist" "mail/mail-hist.el" 17006;;;;;; mail-hist-enable mail-hist-define-keys) "mail-hist" "mail/mail-hist.el"
16993;;;;;; (20119 34052)) 17007;;;;;; (19845 45374))
16994;;; Generated autoloads from mail/mail-hist.el 17008;;; Generated autoloads from mail/mail-hist.el
16995 17009
16996(autoload 'mail-hist-define-keys "mail-hist" "\ 17010(autoload 'mail-hist-define-keys "mail-hist" "\
@@ -17022,7 +17036,7 @@ This function normally would be called when the message is sent.
17022;;;### (autoloads (mail-fetch-field mail-unquote-printable-region 17036;;;### (autoloads (mail-fetch-field mail-unquote-printable-region
17023;;;;;; mail-unquote-printable mail-quote-printable-region mail-quote-printable 17037;;;;;; mail-unquote-printable mail-quote-printable-region mail-quote-printable
17024;;;;;; mail-file-babyl-p mail-dont-reply-to-names mail-use-rfc822) 17038;;;;;; mail-file-babyl-p mail-dont-reply-to-names mail-use-rfc822)
17025;;;;;; "mail-utils" "mail/mail-utils.el" (20119 34052)) 17039;;;;;; "mail-utils" "mail/mail-utils.el" (19922 19303))
17026;;; Generated autoloads from mail/mail-utils.el 17040;;; Generated autoloads from mail/mail-utils.el
17027 17041
17028(defvar mail-use-rfc822 nil "\ 17042(defvar mail-use-rfc822 nil "\
@@ -17095,7 +17109,7 @@ matches may be returned from the message body.
17095 17109
17096;;;### (autoloads (define-mail-abbrev build-mail-abbrevs mail-abbrevs-setup 17110;;;### (autoloads (define-mail-abbrev build-mail-abbrevs mail-abbrevs-setup
17097;;;;;; mail-abbrevs-mode) "mailabbrev" "mail/mailabbrev.el" (20127 17111;;;;;; mail-abbrevs-mode) "mailabbrev" "mail/mailabbrev.el" (20127
17098;;;;;; 25972)) 17112;;;;;; 62865))
17099;;; Generated autoloads from mail/mailabbrev.el 17113;;; Generated autoloads from mail/mailabbrev.el
17100 17114
17101(defvar mail-abbrevs-mode nil "\ 17115(defvar mail-abbrevs-mode nil "\
@@ -17146,7 +17160,7 @@ double-quotes.
17146 17160
17147;;;### (autoloads (mail-complete mail-completion-at-point-function 17161;;;### (autoloads (mail-complete mail-completion-at-point-function
17148;;;;;; define-mail-alias expand-mail-aliases mail-complete-style) 17162;;;;;; define-mail-alias expand-mail-aliases mail-complete-style)
17149;;;;;; "mailalias" "mail/mailalias.el" (20119 34052)) 17163;;;;;; "mailalias" "mail/mailalias.el" (19881 27850))
17150;;; Generated autoloads from mail/mailalias.el 17164;;; Generated autoloads from mail/mailalias.el
17151 17165
17152(defvar mail-complete-style 'angles "\ 17166(defvar mail-complete-style 'angles "\
@@ -17198,7 +17212,7 @@ current header, calls `mail-complete-function' and passes prefix ARG if any.
17198;;;*** 17212;;;***
17199 17213
17200;;;### (autoloads (mailclient-send-it) "mailclient" "mail/mailclient.el" 17214;;;### (autoloads (mailclient-send-it) "mailclient" "mail/mailclient.el"
17201;;;;;; (20119 34052)) 17215;;;;;; (19845 45374))
17202;;; Generated autoloads from mail/mailclient.el 17216;;; Generated autoloads from mail/mailclient.el
17203 17217
17204(autoload 'mailclient-send-it "mailclient" "\ 17218(autoload 'mailclient-send-it "mailclient" "\
@@ -17212,7 +17226,7 @@ The mail client is taken to be the handler of mailto URLs.
17212 17226
17213;;;### (autoloads (makefile-imake-mode makefile-bsdmake-mode makefile-makepp-mode 17227;;;### (autoloads (makefile-imake-mode makefile-bsdmake-mode makefile-makepp-mode
17214;;;;;; makefile-gmake-mode makefile-automake-mode makefile-mode) 17228;;;;;; makefile-gmake-mode makefile-automake-mode makefile-mode)
17215;;;;;; "make-mode" "progmodes/make-mode.el" (20119 34052)) 17229;;;;;; "make-mode" "progmodes/make-mode.el" (20176 51947))
17216;;; Generated autoloads from progmodes/make-mode.el 17230;;; Generated autoloads from progmodes/make-mode.el
17217 17231
17218(autoload 'makefile-mode "make-mode" "\ 17232(autoload 'makefile-mode "make-mode" "\
@@ -17329,8 +17343,8 @@ An adapted `makefile-mode' that knows about imake.
17329 17343
17330;;;*** 17344;;;***
17331 17345
17332;;;### (autoloads (make-command-summary) "makesum" "makesum.el" (20119 17346;;;### (autoloads (make-command-summary) "makesum" "makesum.el" (19886
17333;;;;;; 34052)) 17347;;;;;; 45771))
17334;;; Generated autoloads from makesum.el 17348;;; Generated autoloads from makesum.el
17335 17349
17336(autoload 'make-command-summary "makesum" "\ 17350(autoload 'make-command-summary "makesum" "\
@@ -17342,7 +17356,7 @@ Previous contents of that buffer are killed first.
17342;;;*** 17356;;;***
17343 17357
17344;;;### (autoloads (Man-bookmark-jump man-follow man) "man" "man.el" 17358;;;### (autoloads (Man-bookmark-jump man-follow man) "man" "man.el"
17345;;;;;; (20119 34052)) 17359;;;;;; (20178 7273))
17346;;; Generated autoloads from man.el 17360;;; Generated autoloads from man.el
17347 17361
17348(defalias 'manual-entry 'man) 17362(defalias 'manual-entry 'man)
@@ -17396,7 +17410,7 @@ Default bookmark handler for Man buffers.
17396 17410
17397;;;*** 17411;;;***
17398 17412
17399;;;### (autoloads (master-mode) "master" "master.el" (20126 50238)) 17413;;;### (autoloads (master-mode) "master" "master.el" (20127 62865))
17400;;; Generated autoloads from master.el 17414;;; Generated autoloads from master.el
17401 17415
17402(autoload 'master-mode "master" "\ 17416(autoload 'master-mode "master" "\
@@ -17419,7 +17433,7 @@ yourself the value of `master-of' by calling `master-show-slave'.
17419;;;*** 17433;;;***
17420 17434
17421;;;### (autoloads (minibuffer-depth-indicate-mode) "mb-depth" "mb-depth.el" 17435;;;### (autoloads (minibuffer-depth-indicate-mode) "mb-depth" "mb-depth.el"
17422;;;;;; (20126 50247)) 17436;;;;;; (20127 62865))
17423;;; Generated autoloads from mb-depth.el 17437;;; Generated autoloads from mb-depth.el
17424 17438
17425(defvar minibuffer-depth-indicate-mode nil "\ 17439(defvar minibuffer-depth-indicate-mode nil "\
@@ -17452,7 +17466,7 @@ recursion depth in the minibuffer prompt. This is only useful if
17452;;;;;; message-forward-make-body message-forward message-recover 17466;;;;;; message-forward-make-body message-forward message-recover
17453;;;;;; message-supersede message-cancel-news message-followup message-wide-reply 17467;;;;;; message-supersede message-cancel-news message-followup message-wide-reply
17454;;;;;; message-reply message-news message-mail message-mode) "message" 17468;;;;;; message-reply message-news message-mail message-mode) "message"
17455;;;;;; "gnus/message.el" (20136 50092)) 17469;;;;;; "gnus/message.el" (20183 25152))
17456;;; Generated autoloads from gnus/message.el 17470;;; Generated autoloads from gnus/message.el
17457 17471
17458(define-mail-user-agent 'message-user-agent 'message-mail 'message-send-and-exit 'message-kill-buffer 'message-send-hook) 17472(define-mail-user-agent 'message-user-agent 'message-mail 'message-send-and-exit 'message-kill-buffer 'message-send-hook)
@@ -17618,7 +17632,7 @@ which specify the range to operate on.
17618;;;*** 17632;;;***
17619 17633
17620;;;### (autoloads (metapost-mode metafont-mode) "meta-mode" "progmodes/meta-mode.el" 17634;;;### (autoloads (metapost-mode metafont-mode) "meta-mode" "progmodes/meta-mode.el"
17621;;;;;; (20119 34052)) 17635;;;;;; (20164 60780))
17622;;; Generated autoloads from progmodes/meta-mode.el 17636;;; Generated autoloads from progmodes/meta-mode.el
17623 17637
17624(autoload 'metafont-mode "meta-mode" "\ 17638(autoload 'metafont-mode "meta-mode" "\
@@ -17635,7 +17649,7 @@ Major mode for editing MetaPost sources.
17635 17649
17636;;;### (autoloads (metamail-region metamail-buffer metamail-interpret-body 17650;;;### (autoloads (metamail-region metamail-buffer metamail-interpret-body
17637;;;;;; metamail-interpret-header) "metamail" "mail/metamail.el" 17651;;;;;; metamail-interpret-header) "metamail" "mail/metamail.el"
17638;;;;;; (20119 34052)) 17652;;;;;; (20168 57844))
17639;;; Generated autoloads from mail/metamail.el 17653;;; Generated autoloads from mail/metamail.el
17640 17654
17641(autoload 'metamail-interpret-header "metamail" "\ 17655(autoload 'metamail-interpret-header "metamail" "\
@@ -17680,7 +17694,7 @@ redisplayed as output is inserted.
17680 17694
17681;;;### (autoloads (mh-fully-kill-draft mh-send-letter mh-user-agent-compose 17695;;;### (autoloads (mh-fully-kill-draft mh-send-letter mh-user-agent-compose
17682;;;;;; mh-smail-batch mh-smail-other-window mh-smail) "mh-comp" 17696;;;;;; mh-smail-batch mh-smail-other-window mh-smail) "mh-comp"
17683;;;;;; "mh-e/mh-comp.el" (20119 34052)) 17697;;;;;; "mh-e/mh-comp.el" (20160 63745))
17684;;; Generated autoloads from mh-e/mh-comp.el 17698;;; Generated autoloads from mh-e/mh-comp.el
17685 17699
17686(autoload 'mh-smail "mh-comp" "\ 17700(autoload 'mh-smail "mh-comp" "\
@@ -17770,7 +17784,7 @@ delete the draft message.
17770 17784
17771;;;*** 17785;;;***
17772 17786
17773;;;### (autoloads (mh-version) "mh-e" "mh-e/mh-e.el" (20119 34052)) 17787;;;### (autoloads (mh-version) "mh-e" "mh-e/mh-e.el" (20170 13157))
17774;;; Generated autoloads from mh-e/mh-e.el 17788;;; Generated autoloads from mh-e/mh-e.el
17775 17789
17776(put 'mh-progs 'risky-local-variable t) 17790(put 'mh-progs 'risky-local-variable t)
@@ -17787,7 +17801,7 @@ Display version information about MH-E and the MH mail handling system.
17787;;;*** 17801;;;***
17788 17802
17789;;;### (autoloads (mh-folder-mode mh-nmail mh-rmail) "mh-folder" 17803;;;### (autoloads (mh-folder-mode mh-nmail mh-rmail) "mh-folder"
17790;;;;;; "mh-e/mh-folder.el" (20119 34052)) 17804;;;;;; "mh-e/mh-folder.el" (20004 2139))
17791;;; Generated autoloads from mh-e/mh-folder.el 17805;;; Generated autoloads from mh-e/mh-folder.el
17792 17806
17793(autoload 'mh-rmail "mh-folder" "\ 17807(autoload 'mh-rmail "mh-folder" "\
@@ -17869,7 +17883,7 @@ perform the operation on all messages in that region.
17869;;;*** 17883;;;***
17870 17884
17871;;;### (autoloads (midnight-delay-set clean-buffer-list) "midnight" 17885;;;### (autoloads (midnight-delay-set clean-buffer-list) "midnight"
17872;;;;;; "midnight.el" (20119 34052)) 17886;;;;;; "midnight.el" (19853 59245))
17873;;; Generated autoloads from midnight.el 17887;;; Generated autoloads from midnight.el
17874 17888
17875(autoload 'clean-buffer-list "midnight" "\ 17889(autoload 'clean-buffer-list "midnight" "\
@@ -17896,7 +17910,7 @@ to its second argument TM.
17896;;;*** 17910;;;***
17897 17911
17898;;;### (autoloads (minibuffer-electric-default-mode) "minibuf-eldef" 17912;;;### (autoloads (minibuffer-electric-default-mode) "minibuf-eldef"
17899;;;;;; "minibuf-eldef.el" (20126 50271)) 17913;;;;;; "minibuf-eldef.el" (20127 62865))
17900;;; Generated autoloads from minibuf-eldef.el 17914;;; Generated autoloads from minibuf-eldef.el
17901 17915
17902(defvar minibuffer-electric-default-mode nil "\ 17916(defvar minibuffer-electric-default-mode nil "\
@@ -17926,7 +17940,7 @@ is modified to remove the default indication.
17926;;;*** 17940;;;***
17927 17941
17928;;;### (autoloads (list-dynamic-libraries butterfly) "misc" "misc.el" 17942;;;### (autoloads (list-dynamic-libraries butterfly) "misc" "misc.el"
17929;;;;;; (20119 34052)) 17943;;;;;; (19968 28627))
17930;;; Generated autoloads from misc.el 17944;;; Generated autoloads from misc.el
17931 17945
17932(autoload 'butterfly "misc" "\ 17946(autoload 'butterfly "misc" "\
@@ -17956,7 +17970,7 @@ The return value is always nil.
17956 17970
17957;;;### (autoloads (multi-isearch-files-regexp multi-isearch-files 17971;;;### (autoloads (multi-isearch-files-regexp multi-isearch-files
17958;;;;;; multi-isearch-buffers-regexp multi-isearch-buffers multi-isearch-setup) 17972;;;;;; multi-isearch-buffers-regexp multi-isearch-buffers multi-isearch-setup)
17959;;;;;; "misearch" "misearch.el" (20119 34052)) 17973;;;;;; "misearch" "misearch.el" (20168 57844))
17960;;; Generated autoloads from misearch.el 17974;;; Generated autoloads from misearch.el
17961 (add-hook 'isearch-mode-hook 'multi-isearch-setup) 17975 (add-hook 'isearch-mode-hook 'multi-isearch-setup)
17962 17976
@@ -18038,7 +18052,7 @@ whose file names match the specified wildcard.
18038;;;*** 18052;;;***
18039 18053
18040;;;### (autoloads (mixal-mode) "mixal-mode" "progmodes/mixal-mode.el" 18054;;;### (autoloads (mixal-mode) "mixal-mode" "progmodes/mixal-mode.el"
18041;;;;;; (20119 34052)) 18055;;;;;; (20162 19074))
18042;;; Generated autoloads from progmodes/mixal-mode.el 18056;;; Generated autoloads from progmodes/mixal-mode.el
18043 18057
18044(autoload 'mixal-mode "mixal-mode" "\ 18058(autoload 'mixal-mode "mixal-mode" "\
@@ -18049,7 +18063,7 @@ Major mode for the mixal asm language.
18049;;;*** 18063;;;***
18050 18064
18051;;;### (autoloads (mm-default-file-encoding) "mm-encode" "gnus/mm-encode.el" 18065;;;### (autoloads (mm-default-file-encoding) "mm-encode" "gnus/mm-encode.el"
18052;;;;;; (20119 34052)) 18066;;;;;; (20075 14682))
18053;;; Generated autoloads from gnus/mm-encode.el 18067;;; Generated autoloads from gnus/mm-encode.el
18054 18068
18055(autoload 'mm-default-file-encoding "mm-encode" "\ 18069(autoload 'mm-default-file-encoding "mm-encode" "\
@@ -18060,7 +18074,7 @@ Return a default encoding for FILE.
18060;;;*** 18074;;;***
18061 18075
18062;;;### (autoloads (mm-inline-external-body mm-extern-cache-contents) 18076;;;### (autoloads (mm-inline-external-body mm-extern-cache-contents)
18063;;;;;; "mm-extern" "gnus/mm-extern.el" (20119 34052)) 18077;;;;;; "mm-extern" "gnus/mm-extern.el" (19845 45374))
18064;;; Generated autoloads from gnus/mm-extern.el 18078;;; Generated autoloads from gnus/mm-extern.el
18065 18079
18066(autoload 'mm-extern-cache-contents "mm-extern" "\ 18080(autoload 'mm-extern-cache-contents "mm-extern" "\
@@ -18079,7 +18093,7 @@ If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing.
18079;;;*** 18093;;;***
18080 18094
18081;;;### (autoloads (mm-inline-partial) "mm-partial" "gnus/mm-partial.el" 18095;;;### (autoloads (mm-inline-partial) "mm-partial" "gnus/mm-partial.el"
18082;;;;;; (20119 34052)) 18096;;;;;; (19845 45374))
18083;;; Generated autoloads from gnus/mm-partial.el 18097;;; Generated autoloads from gnus/mm-partial.el
18084 18098
18085(autoload 'mm-inline-partial "mm-partial" "\ 18099(autoload 'mm-inline-partial "mm-partial" "\
@@ -18093,7 +18107,7 @@ If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing.
18093;;;*** 18107;;;***
18094 18108
18095;;;### (autoloads (mm-url-insert-file-contents-external mm-url-insert-file-contents) 18109;;;### (autoloads (mm-url-insert-file-contents-external mm-url-insert-file-contents)
18096;;;;;; "mm-url" "gnus/mm-url.el" (20119 34052)) 18110;;;;;; "mm-url" "gnus/mm-url.el" (19877 30798))
18097;;; Generated autoloads from gnus/mm-url.el 18111;;; Generated autoloads from gnus/mm-url.el
18098 18112
18099(autoload 'mm-url-insert-file-contents "mm-url" "\ 18113(autoload 'mm-url-insert-file-contents "mm-url" "\
@@ -18110,7 +18124,7 @@ Insert file contents of URL using `mm-url-program'.
18110;;;*** 18124;;;***
18111 18125
18112;;;### (autoloads (mm-uu-dissect-text-parts mm-uu-dissect) "mm-uu" 18126;;;### (autoloads (mm-uu-dissect-text-parts mm-uu-dissect) "mm-uu"
18113;;;;;; "gnus/mm-uu.el" (20119 34052)) 18127;;;;;; "gnus/mm-uu.el" (19845 45374))
18114;;; Generated autoloads from gnus/mm-uu.el 18128;;; Generated autoloads from gnus/mm-uu.el
18115 18129
18116(autoload 'mm-uu-dissect "mm-uu" "\ 18130(autoload 'mm-uu-dissect "mm-uu" "\
@@ -18130,7 +18144,7 @@ Assume text has been decoded if DECODED is non-nil.
18130;;;*** 18144;;;***
18131 18145
18132;;;### (autoloads (mml-attach-file mml-to-mime) "mml" "gnus/mml.el" 18146;;;### (autoloads (mml-attach-file mml-to-mime) "mml" "gnus/mml.el"
18133;;;;;; (20136 50092)) 18147;;;;;; (20183 25152))
18134;;; Generated autoloads from gnus/mml.el 18148;;; Generated autoloads from gnus/mml.el
18135 18149
18136(autoload 'mml-to-mime "mml" "\ 18150(autoload 'mml-to-mime "mml" "\
@@ -18155,7 +18169,7 @@ body) or \"attachment\" (separate from the body).
18155;;;*** 18169;;;***
18156 18170
18157;;;### (autoloads (mml1991-sign mml1991-encrypt) "mml1991" "gnus/mml1991.el" 18171;;;### (autoloads (mml1991-sign mml1991-encrypt) "mml1991" "gnus/mml1991.el"
18158;;;;;; (20124 17058)) 18172;;;;;; (20124 236))
18159;;; Generated autoloads from gnus/mml1991.el 18173;;; Generated autoloads from gnus/mml1991.el
18160 18174
18161(autoload 'mml1991-encrypt "mml1991" "\ 18175(autoload 'mml1991-encrypt "mml1991" "\
@@ -18172,7 +18186,7 @@ body) or \"attachment\" (separate from the body).
18172 18186
18173;;;### (autoloads (mml2015-self-encrypt mml2015-sign mml2015-encrypt 18187;;;### (autoloads (mml2015-self-encrypt mml2015-sign mml2015-encrypt
18174;;;;;; mml2015-verify-test mml2015-verify mml2015-decrypt-test mml2015-decrypt) 18188;;;;;; mml2015-verify-test mml2015-verify mml2015-decrypt-test mml2015-decrypt)
18175;;;;;; "mml2015" "gnus/mml2015.el" (20124 17058)) 18189;;;;;; "mml2015" "gnus/mml2015.el" (20124 236))
18176;;; Generated autoloads from gnus/mml2015.el 18190;;; Generated autoloads from gnus/mml2015.el
18177 18191
18178(autoload 'mml2015-decrypt "mml2015" "\ 18192(autoload 'mml2015-decrypt "mml2015" "\
@@ -18212,8 +18226,8 @@ body) or \"attachment\" (separate from the body).
18212 18226
18213;;;*** 18227;;;***
18214 18228
18215;;;### (autoloads (m2-mode) "modula2" "progmodes/modula2.el" (20119 18229;;;### (autoloads (m2-mode) "modula2" "progmodes/modula2.el" (20159
18216;;;;;; 34052)) 18230;;;;;; 42847))
18217;;; Generated autoloads from progmodes/modula2.el 18231;;; Generated autoloads from progmodes/modula2.el
18218 18232
18219(defalias 'modula-2-mode 'm2-mode) 18233(defalias 'modula-2-mode 'm2-mode)
@@ -18247,7 +18261,7 @@ followed by the first character of the construct.
18247;;;*** 18261;;;***
18248 18262
18249;;;### (autoloads (denato-region nato-region unmorse-region morse-region) 18263;;;### (autoloads (denato-region nato-region unmorse-region morse-region)
18250;;;;;; "morse" "play/morse.el" (20119 34052)) 18264;;;;;; "morse" "play/morse.el" (19869 36706))
18251;;; Generated autoloads from play/morse.el 18265;;; Generated autoloads from play/morse.el
18252 18266
18253(autoload 'morse-region "morse" "\ 18267(autoload 'morse-region "morse" "\
@@ -18273,7 +18287,7 @@ Convert NATO phonetic alphabet in region to ordinary ASCII text.
18273;;;*** 18287;;;***
18274 18288
18275;;;### (autoloads (mouse-drag-drag mouse-drag-throw) "mouse-drag" 18289;;;### (autoloads (mouse-drag-drag mouse-drag-throw) "mouse-drag"
18276;;;;;; "mouse-drag.el" (20119 34052)) 18290;;;;;; "mouse-drag.el" (19890 42850))
18277;;; Generated autoloads from mouse-drag.el 18291;;; Generated autoloads from mouse-drag.el
18278 18292
18279(autoload 'mouse-drag-throw "mouse-drag" "\ 18293(autoload 'mouse-drag-throw "mouse-drag" "\
@@ -18320,8 +18334,8 @@ To test this function, evaluate:
18320 18334
18321;;;*** 18335;;;***
18322 18336
18323;;;### (autoloads (mouse-sel-mode) "mouse-sel" "mouse-sel.el" (20126 18337;;;### (autoloads (mouse-sel-mode) "mouse-sel" "mouse-sel.el" (20168
18324;;;;;; 50277)) 18338;;;;;; 57844))
18325;;; Generated autoloads from mouse-sel.el 18339;;; Generated autoloads from mouse-sel.el
18326 18340
18327(defvar mouse-sel-mode nil "\ 18341(defvar mouse-sel-mode nil "\
@@ -18364,7 +18378,7 @@ kill ring; mouse-1 or mouse-3 kills it.
18364 18378
18365;;;*** 18379;;;***
18366 18380
18367;;;### (autoloads (mpc) "mpc" "mpc.el" (20120 43280)) 18381;;;### (autoloads (mpc) "mpc" "mpc.el" (20178 7273))
18368;;; Generated autoloads from mpc.el 18382;;; Generated autoloads from mpc.el
18369 18383
18370(autoload 'mpc "mpc" "\ 18384(autoload 'mpc "mpc" "\
@@ -18374,7 +18388,7 @@ Main entry point for MPC.
18374 18388
18375;;;*** 18389;;;***
18376 18390
18377;;;### (autoloads (mpuz) "mpuz" "play/mpuz.el" (20119 34052)) 18391;;;### (autoloads (mpuz) "mpuz" "play/mpuz.el" (19890 42850))
18378;;; Generated autoloads from play/mpuz.el 18392;;; Generated autoloads from play/mpuz.el
18379 18393
18380(autoload 'mpuz "mpuz" "\ 18394(autoload 'mpuz "mpuz" "\
@@ -18384,7 +18398,7 @@ Multiplication puzzle with GNU Emacs.
18384 18398
18385;;;*** 18399;;;***
18386 18400
18387;;;### (autoloads (msb-mode) "msb" "msb.el" (20126 50286)) 18401;;;### (autoloads (msb-mode) "msb" "msb.el" (20127 62865))
18388;;; Generated autoloads from msb.el 18402;;; Generated autoloads from msb.el
18389 18403
18390(defvar msb-mode nil "\ 18404(defvar msb-mode nil "\
@@ -18414,7 +18428,7 @@ different buffer menu using the function `msb'.
18414;;;;;; describe-current-coding-system describe-current-coding-system-briefly 18428;;;;;; describe-current-coding-system describe-current-coding-system-briefly
18415;;;;;; describe-coding-system describe-character-set list-charset-chars 18429;;;;;; describe-coding-system describe-character-set list-charset-chars
18416;;;;;; read-charset list-character-sets) "mule-diag" "international/mule-diag.el" 18430;;;;;; read-charset list-character-sets) "mule-diag" "international/mule-diag.el"
18417;;;;;; (20119 34052)) 18431;;;;;; (20160 63745))
18418;;; Generated autoloads from international/mule-diag.el 18432;;; Generated autoloads from international/mule-diag.el
18419 18433
18420(autoload 'list-character-sets "mule-diag" "\ 18434(autoload 'list-character-sets "mule-diag" "\
@@ -18551,7 +18565,7 @@ The default is 20. If LIMIT is negative, do not limit the listing.
18551;;;;;; coding-system-translation-table-for-decode coding-system-pre-write-conversion 18565;;;;;; coding-system-translation-table-for-decode coding-system-pre-write-conversion
18552;;;;;; coding-system-post-read-conversion lookup-nested-alist set-nested-alist 18566;;;;;; coding-system-post-read-conversion lookup-nested-alist set-nested-alist
18553;;;;;; truncate-string-to-width store-substring string-to-sequence) 18567;;;;;; truncate-string-to-width store-substring string-to-sequence)
18554;;;;;; "mule-util" "international/mule-util.el" (20119 34052)) 18568;;;;;; "mule-util" "international/mule-util.el" (19845 45374))
18555;;; Generated autoloads from international/mule-util.el 18569;;; Generated autoloads from international/mule-util.el
18556 18570
18557(autoload 'string-to-sequence "mule-util" "\ 18571(autoload 'string-to-sequence "mule-util" "\
@@ -18691,8 +18705,8 @@ per-character basis, this may not be accurate.
18691;;;### (autoloads (network-connection network-connection-to-service 18705;;;### (autoloads (network-connection network-connection-to-service
18692;;;;;; whois-reverse-lookup whois finger ftp run-dig dns-lookup-host 18706;;;;;; whois-reverse-lookup whois finger ftp run-dig dns-lookup-host
18693;;;;;; nslookup nslookup-host ping traceroute route arp netstat 18707;;;;;; nslookup nslookup-host ping traceroute route arp netstat
18694;;;;;; iwconfig ifconfig) "net-utils" "net/net-utils.el" (20119 18708;;;;;; iwconfig ifconfig) "net-utils" "net/net-utils.el" (19845
18695;;;;;; 34052)) 18709;;;;;; 45374))
18696;;; Generated autoloads from net/net-utils.el 18710;;; Generated autoloads from net/net-utils.el
18697 18711
18698(autoload 'ifconfig "net-utils" "\ 18712(autoload 'ifconfig "net-utils" "\
@@ -18786,8 +18800,8 @@ Open a network connection to HOST on PORT.
18786 18800
18787;;;*** 18801;;;***
18788 18802
18789;;;### (autoloads (netrc-credentials) "netrc" "net/netrc.el" (20119 18803;;;### (autoloads (netrc-credentials) "netrc" "net/netrc.el" (19845
18790;;;;;; 34052)) 18804;;;;;; 45374))
18791;;; Generated autoloads from net/netrc.el 18805;;; Generated autoloads from net/netrc.el
18792 18806
18793(autoload 'netrc-credentials "netrc" "\ 18807(autoload 'netrc-credentials "netrc" "\
@@ -18800,7 +18814,7 @@ listed in the PORTS list.
18800;;;*** 18814;;;***
18801 18815
18802;;;### (autoloads (open-network-stream) "network-stream" "net/network-stream.el" 18816;;;### (autoloads (open-network-stream) "network-stream" "net/network-stream.el"
18803;;;;;; (20121 47865)) 18817;;;;;; (20122 44898))
18804;;; Generated autoloads from net/network-stream.el 18818;;; Generated autoloads from net/network-stream.el
18805 18819
18806(autoload 'open-network-stream "network-stream" "\ 18820(autoload 'open-network-stream "network-stream" "\
@@ -18896,7 +18910,7 @@ functionality.
18896;;;;;; uncomment-region comment-kill comment-set-column comment-indent 18910;;;;;; uncomment-region comment-kill comment-set-column comment-indent
18897;;;;;; comment-indent-default comment-normalize-vars comment-multi-line 18911;;;;;; comment-indent-default comment-normalize-vars comment-multi-line
18898;;;;;; comment-padding comment-style comment-column) "newcomment" 18912;;;;;; comment-padding comment-style comment-column) "newcomment"
18899;;;;;; "newcomment.el" (20119 34052)) 18913;;;;;; "newcomment.el" (20087 5852))
18900;;; Generated autoloads from newcomment.el 18914;;; Generated autoloads from newcomment.el
18901 18915
18902(defalias 'indent-for-comment 'comment-indent) 18916(defalias 'indent-for-comment 'comment-indent)
@@ -19096,7 +19110,7 @@ unless optional argument SOFT is non-nil.
19096;;;*** 19110;;;***
19097 19111
19098;;;### (autoloads (newsticker-start newsticker-running-p) "newst-backend" 19112;;;### (autoloads (newsticker-start newsticker-running-p) "newst-backend"
19099;;;;;; "net/newst-backend.el" (20119 34052)) 19113;;;;;; "net/newst-backend.el" (19918 22236))
19100;;; Generated autoloads from net/newst-backend.el 19114;;; Generated autoloads from net/newst-backend.el
19101 19115
19102(autoload 'newsticker-running-p "newst-backend" "\ 19116(autoload 'newsticker-running-p "newst-backend" "\
@@ -19118,7 +19132,7 @@ Run `newsticker-start-hook' if newsticker was not running already.
19118;;;*** 19132;;;***
19119 19133
19120;;;### (autoloads (newsticker-plainview) "newst-plainview" "net/newst-plainview.el" 19134;;;### (autoloads (newsticker-plainview) "newst-plainview" "net/newst-plainview.el"
19121;;;;;; (20119 34052)) 19135;;;;;; (20167 36967))
19122;;; Generated autoloads from net/newst-plainview.el 19136;;; Generated autoloads from net/newst-plainview.el
19123 19137
19124(autoload 'newsticker-plainview "newst-plainview" "\ 19138(autoload 'newsticker-plainview "newst-plainview" "\
@@ -19129,7 +19143,7 @@ Start newsticker plainview.
19129;;;*** 19143;;;***
19130 19144
19131;;;### (autoloads (newsticker-show-news) "newst-reader" "net/newst-reader.el" 19145;;;### (autoloads (newsticker-show-news) "newst-reader" "net/newst-reader.el"
19132;;;;;; (20139 41953)) 19146;;;;;; (20094 65493))
19133;;; Generated autoloads from net/newst-reader.el 19147;;; Generated autoloads from net/newst-reader.el
19134 19148
19135(autoload 'newsticker-show-news "newst-reader" "\ 19149(autoload 'newsticker-show-news "newst-reader" "\
@@ -19140,7 +19154,7 @@ Start reading news. You may want to bind this to a key.
19140;;;*** 19154;;;***
19141 19155
19142;;;### (autoloads (newsticker-start-ticker newsticker-ticker-running-p) 19156;;;### (autoloads (newsticker-start-ticker newsticker-ticker-running-p)
19143;;;;;; "newst-ticker" "net/newst-ticker.el" (20119 34052)) 19157;;;;;; "newst-ticker" "net/newst-ticker.el" (19845 45374))
19144;;; Generated autoloads from net/newst-ticker.el 19158;;; Generated autoloads from net/newst-ticker.el
19145 19159
19146(autoload 'newsticker-ticker-running-p "newst-ticker" "\ 19160(autoload 'newsticker-ticker-running-p "newst-ticker" "\
@@ -19161,7 +19175,7 @@ running already.
19161;;;*** 19175;;;***
19162 19176
19163;;;### (autoloads (newsticker-treeview) "newst-treeview" "net/newst-treeview.el" 19177;;;### (autoloads (newsticker-treeview) "newst-treeview" "net/newst-treeview.el"
19164;;;;;; (20141 61905)) 19178;;;;;; (20168 57844))
19165;;; Generated autoloads from net/newst-treeview.el 19179;;; Generated autoloads from net/newst-treeview.el
19166 19180
19167(autoload 'newsticker-treeview "newst-treeview" "\ 19181(autoload 'newsticker-treeview "newst-treeview" "\
@@ -19172,7 +19186,7 @@ Start newsticker treeview.
19172;;;*** 19186;;;***
19173 19187
19174;;;### (autoloads (nndiary-generate-nov-databases) "nndiary" "gnus/nndiary.el" 19188;;;### (autoloads (nndiary-generate-nov-databases) "nndiary" "gnus/nndiary.el"
19175;;;;;; (20119 34052)) 19189;;;;;; (20168 57844))
19176;;; Generated autoloads from gnus/nndiary.el 19190;;; Generated autoloads from gnus/nndiary.el
19177 19191
19178(autoload 'nndiary-generate-nov-databases "nndiary" "\ 19192(autoload 'nndiary-generate-nov-databases "nndiary" "\
@@ -19182,8 +19196,8 @@ Generate NOV databases in all nndiary directories.
19182 19196
19183;;;*** 19197;;;***
19184 19198
19185;;;### (autoloads (nndoc-add-type) "nndoc" "gnus/nndoc.el" (20119 19199;;;### (autoloads (nndoc-add-type) "nndoc" "gnus/nndoc.el" (19845
19186;;;;;; 34052)) 19200;;;;;; 45374))
19187;;; Generated autoloads from gnus/nndoc.el 19201;;; Generated autoloads from gnus/nndoc.el
19188 19202
19189(autoload 'nndoc-add-type "nndoc" "\ 19203(autoload 'nndoc-add-type "nndoc" "\
@@ -19198,7 +19212,7 @@ symbol in the alist.
19198;;;*** 19212;;;***
19199 19213
19200;;;### (autoloads (nnfolder-generate-active-file) "nnfolder" "gnus/nnfolder.el" 19214;;;### (autoloads (nnfolder-generate-active-file) "nnfolder" "gnus/nnfolder.el"
19201;;;;;; (20119 34052)) 19215;;;;;; (19845 45374))
19202;;; Generated autoloads from gnus/nnfolder.el 19216;;; Generated autoloads from gnus/nnfolder.el
19203 19217
19204(autoload 'nnfolder-generate-active-file "nnfolder" "\ 19218(autoload 'nnfolder-generate-active-file "nnfolder" "\
@@ -19210,7 +19224,7 @@ This command does not work if you use short group names.
19210;;;*** 19224;;;***
19211 19225
19212;;;### (autoloads (nnml-generate-nov-databases) "nnml" "gnus/nnml.el" 19226;;;### (autoloads (nnml-generate-nov-databases) "nnml" "gnus/nnml.el"
19213;;;;;; (20119 34052)) 19227;;;;;; (20178 7273))
19214;;; Generated autoloads from gnus/nnml.el 19228;;; Generated autoloads from gnus/nnml.el
19215 19229
19216(autoload 'nnml-generate-nov-databases "nnml" "\ 19230(autoload 'nnml-generate-nov-databases "nnml" "\
@@ -19221,7 +19235,7 @@ Generate NOV databases in all nnml directories.
19221;;;*** 19235;;;***
19222 19236
19223;;;### (autoloads (disable-command enable-command disabled-command-function) 19237;;;### (autoloads (disable-command enable-command disabled-command-function)
19224;;;;;; "novice" "novice.el" (20119 34052)) 19238;;;;;; "novice" "novice.el" (19845 45374))
19225;;; Generated autoloads from novice.el 19239;;; Generated autoloads from novice.el
19226 19240
19227(defvar disabled-command-function 'disabled-command-function "\ 19241(defvar disabled-command-function 'disabled-command-function "\
@@ -19254,7 +19268,7 @@ to future sessions.
19254;;;*** 19268;;;***
19255 19269
19256;;;### (autoloads (nroff-mode) "nroff-mode" "textmodes/nroff-mode.el" 19270;;;### (autoloads (nroff-mode) "nroff-mode" "textmodes/nroff-mode.el"
19257;;;;;; (20127 24590)) 19271;;;;;; (20127 62865))
19258;;; Generated autoloads from textmodes/nroff-mode.el 19272;;; Generated autoloads from textmodes/nroff-mode.el
19259 19273
19260(autoload 'nroff-mode "nroff-mode" "\ 19274(autoload 'nroff-mode "nroff-mode" "\
@@ -19269,7 +19283,7 @@ closing requests for requests that are used in matched pairs.
19269;;;*** 19283;;;***
19270 19284
19271;;;### (autoloads (nxml-glyph-display-string) "nxml-glyph" "nxml/nxml-glyph.el" 19285;;;### (autoloads (nxml-glyph-display-string) "nxml-glyph" "nxml/nxml-glyph.el"
19272;;;;;; (20119 34052)) 19286;;;;;; (19845 45374))
19273;;; Generated autoloads from nxml/nxml-glyph.el 19287;;; Generated autoloads from nxml/nxml-glyph.el
19274 19288
19275(autoload 'nxml-glyph-display-string "nxml-glyph" "\ 19289(autoload 'nxml-glyph-display-string "nxml-glyph" "\
@@ -19281,8 +19295,8 @@ Return nil if the face cannot display a glyph for N.
19281 19295
19282;;;*** 19296;;;***
19283 19297
19284;;;### (autoloads (nxml-mode) "nxml-mode" "nxml/nxml-mode.el" (20119 19298;;;### (autoloads (nxml-mode) "nxml-mode" "nxml/nxml-mode.el" (19927
19285;;;;;; 34052)) 19299;;;;;; 37225))
19286;;; Generated autoloads from nxml/nxml-mode.el 19300;;; Generated autoloads from nxml/nxml-mode.el
19287 19301
19288(autoload 'nxml-mode "nxml-mode" "\ 19302(autoload 'nxml-mode "nxml-mode" "\
@@ -19344,7 +19358,7 @@ Many aspects this mode can be customized using
19344;;;*** 19358;;;***
19345 19359
19346;;;### (autoloads (nxml-enable-unicode-char-name-sets) "nxml-uchnm" 19360;;;### (autoloads (nxml-enable-unicode-char-name-sets) "nxml-uchnm"
19347;;;;;; "nxml/nxml-uchnm.el" (20119 34052)) 19361;;;;;; "nxml/nxml-uchnm.el" (19845 45374))
19348;;; Generated autoloads from nxml/nxml-uchnm.el 19362;;; Generated autoloads from nxml/nxml-uchnm.el
19349 19363
19350(autoload 'nxml-enable-unicode-char-name-sets "nxml-uchnm" "\ 19364(autoload 'nxml-enable-unicode-char-name-sets "nxml-uchnm" "\
@@ -19367,7 +19381,7 @@ the variable `nxml-enabled-unicode-blocks'.
19367;;;;;; org-babel-pop-to-session-maybe org-babel-load-in-session-maybe 19381;;;;;; org-babel-pop-to-session-maybe org-babel-load-in-session-maybe
19368;;;;;; org-babel-expand-src-block-maybe org-babel-view-src-block-info 19382;;;;;; org-babel-expand-src-block-maybe org-babel-view-src-block-info
19369;;;;;; org-babel-execute-maybe org-babel-execute-safely-maybe) "ob" 19383;;;;;; org-babel-execute-maybe org-babel-execute-safely-maybe) "ob"
19370;;;;;; "org/ob.el" (20119 34052)) 19384;;;;;; "org/ob.el" (20174 10230))
19371;;; Generated autoloads from org/ob.el 19385;;; Generated autoloads from org/ob.el
19372 19386
19373(autoload 'org-babel-execute-safely-maybe "ob" "\ 19387(autoload 'org-babel-execute-safely-maybe "ob" "\
@@ -19414,7 +19428,7 @@ Insert the results of execution into the buffer. Source code
19414execution and the collection and formatting of results can be 19428execution and the collection and formatting of results can be
19415controlled through a variety of header arguments. 19429controlled through a variety of header arguments.
19416 19430
19417With prefix argument ARG, force re-execution even if a an 19431With prefix argument ARG, force re-execution even if an
19418existing result cached in the buffer would otherwise have been 19432existing result cached in the buffer would otherwise have been
19419returned. 19433returned.
19420 19434
@@ -19570,7 +19584,7 @@ Mark current src block
19570;;;*** 19584;;;***
19571 19585
19572;;;### (autoloads (org-babel-describe-bindings) "ob-keys" "org/ob-keys.el" 19586;;;### (autoloads (org-babel-describe-bindings) "ob-keys" "org/ob-keys.el"
19573;;;;;; (20119 34052)) 19587;;;;;; (20045 30710))
19574;;; Generated autoloads from org/ob-keys.el 19588;;; Generated autoloads from org/ob-keys.el
19575 19589
19576(autoload 'org-babel-describe-bindings "ob-keys" "\ 19590(autoload 'org-babel-describe-bindings "ob-keys" "\
@@ -19581,7 +19595,7 @@ Describe all keybindings behind `org-babel-key-prefix'.
19581;;;*** 19595;;;***
19582 19596
19583;;;### (autoloads (org-babel-lob-get-info org-babel-lob-execute-maybe 19597;;;### (autoloads (org-babel-lob-get-info org-babel-lob-execute-maybe
19584;;;;;; org-babel-lob-ingest) "ob-lob" "org/ob-lob.el" (20119 34052)) 19598;;;;;; org-babel-lob-ingest) "ob-lob" "org/ob-lob.el" (20045 31431))
19585;;; Generated autoloads from org/ob-lob.el 19599;;; Generated autoloads from org/ob-lob.el
19586 19600
19587(autoload 'org-babel-lob-ingest "ob-lob" "\ 19601(autoload 'org-babel-lob-ingest "ob-lob" "\
@@ -19606,7 +19620,7 @@ Return a Library of Babel function call as a string.
19606 19620
19607;;;### (autoloads (org-babel-tangle org-babel-tangle-file org-babel-load-file 19621;;;### (autoloads (org-babel-tangle org-babel-tangle-file org-babel-load-file
19608;;;;;; org-babel-tangle-lang-exts) "ob-tangle" "org/ob-tangle.el" 19622;;;;;; org-babel-tangle-lang-exts) "ob-tangle" "org/ob-tangle.el"
19609;;;;;; (20119 34052)) 19623;;;;;; (20045 30712))
19610;;; Generated autoloads from org/ob-tangle.el 19624;;; Generated autoloads from org/ob-tangle.el
19611 19625
19612(defvar org-babel-tangle-lang-exts '(("emacs-lisp" . "el")) "\ 19626(defvar org-babel-tangle-lang-exts '(("emacs-lisp" . "el")) "\
@@ -19648,7 +19662,7 @@ exported source code blocks by language.
19648;;;*** 19662;;;***
19649 19663
19650;;;### (autoloads (inferior-octave) "octave-inf" "progmodes/octave-inf.el" 19664;;;### (autoloads (inferior-octave) "octave-inf" "progmodes/octave-inf.el"
19651;;;;;; (20136 50092)) 19665;;;;;; (20135 56947))
19652;;; Generated autoloads from progmodes/octave-inf.el 19666;;; Generated autoloads from progmodes/octave-inf.el
19653 19667
19654(autoload 'inferior-octave "octave-inf" "\ 19668(autoload 'inferior-octave "octave-inf" "\
@@ -19671,7 +19685,7 @@ startup file, `~/.emacs-octave'.
19671;;;*** 19685;;;***
19672 19686
19673;;;### (autoloads (octave-mode) "octave-mod" "progmodes/octave-mod.el" 19687;;;### (autoloads (octave-mode) "octave-mod" "progmodes/octave-mod.el"
19674;;;;;; (20136 50092)) 19688;;;;;; (20135 56947))
19675;;; Generated autoloads from progmodes/octave-mod.el 19689;;; Generated autoloads from progmodes/octave-mod.el
19676 19690
19677(autoload 'octave-mode "octave-mod" "\ 19691(autoload 'octave-mode "octave-mod" "\
@@ -19759,7 +19773,7 @@ including a reproducible test case and send the message.
19759;;;;;; org-insert-link-global org-store-link org-run-like-in-org-mode 19773;;;;;; org-insert-link-global org-store-link org-run-like-in-org-mode
19760;;;;;; turn-on-orgstruct++ turn-on-orgstruct orgstruct-mode org-global-cycle 19774;;;;;; turn-on-orgstruct++ turn-on-orgstruct orgstruct-mode org-global-cycle
19761;;;;;; org-mode org-babel-do-load-languages) "org" "org/org.el" 19775;;;;;; org-mode org-babel-do-load-languages) "org" "org/org.el"
19762;;;;;; (20119 34052)) 19776;;;;;; (20170 13157))
19763;;; Generated autoloads from org/org.el 19777;;; Generated autoloads from org/org.el
19764 19778
19765(autoload 'org-babel-do-load-languages "org" "\ 19779(autoload 'org-babel-do-load-languages "org" "\
@@ -19983,7 +19997,7 @@ Call the customize function with org as argument.
19983;;;;;; org-diary org-agenda-list-stuck-projects org-tags-view org-todo-list 19997;;;;;; org-diary org-agenda-list-stuck-projects org-tags-view org-todo-list
19984;;;;;; org-search-view org-agenda-list org-batch-store-agenda-views 19998;;;;;; org-search-view org-agenda-list org-batch-store-agenda-views
19985;;;;;; org-store-agenda-views org-batch-agenda-csv org-batch-agenda 19999;;;;;; org-store-agenda-views org-batch-agenda-csv org-batch-agenda
19986;;;;;; org-agenda) "org-agenda" "org/org-agenda.el" (20119 34052)) 20000;;;;;; org-agenda) "org-agenda" "org/org-agenda.el" (20178 7273))
19987;;; Generated autoloads from org/org-agenda.el 20001;;; Generated autoloads from org/org-agenda.el
19988 20002
19989(autoload 'org-agenda "org-agenda" "\ 20003(autoload 'org-agenda "org-agenda" "\
@@ -20228,7 +20242,7 @@ belonging to the \"Work\" category.
20228 20242
20229;;;### (autoloads (org-archive-subtree-default-with-confirmation 20243;;;### (autoloads (org-archive-subtree-default-with-confirmation
20230;;;;;; org-archive-subtree-default) "org-archive" "org/org-archive.el" 20244;;;;;; org-archive-subtree-default) "org-archive" "org/org-archive.el"
20231;;;;;; (20119 34052)) 20245;;;;;; (20045 30713))
20232;;; Generated autoloads from org/org-archive.el 20246;;; Generated autoloads from org/org-archive.el
20233 20247
20234(autoload 'org-archive-subtree-default "org-archive" "\ 20248(autoload 'org-archive-subtree-default "org-archive" "\
@@ -20248,8 +20262,8 @@ This command is set with the variable `org-archive-default-command'.
20248;;;### (autoloads (org-export-as-ascii org-export-region-as-ascii 20262;;;### (autoloads (org-export-as-ascii org-export-region-as-ascii
20249;;;;;; org-replace-region-by-ascii org-export-as-ascii-to-buffer 20263;;;;;; org-replace-region-by-ascii org-export-as-ascii-to-buffer
20250;;;;;; org-export-as-utf8-to-buffer org-export-as-utf8 org-export-as-latin1-to-buffer 20264;;;;;; org-export-as-utf8-to-buffer org-export-as-utf8 org-export-as-latin1-to-buffer
20251;;;;;; org-export-as-latin1) "org-ascii" "org/org-ascii.el" (20119 20265;;;;;; org-export-as-latin1) "org-ascii" "org/org-ascii.el" (20045
20252;;;;;; 34052)) 20266;;;;;; 30713))
20253;;; Generated autoloads from org/org-ascii.el 20267;;; Generated autoloads from org/org-ascii.el
20254 20268
20255(autoload 'org-export-as-latin1 "org-ascii" "\ 20269(autoload 'org-export-as-latin1 "org-ascii" "\
@@ -20322,8 +20336,8 @@ publishing directory.
20322 20336
20323;;;*** 20337;;;***
20324 20338
20325;;;### (autoloads (org-attach) "org-attach" "org/org-attach.el" (20119 20339;;;### (autoloads (org-attach) "org-attach" "org/org-attach.el" (20045
20326;;;;;; 34052)) 20340;;;;;; 30713))
20327;;; Generated autoloads from org/org-attach.el 20341;;; Generated autoloads from org/org-attach.el
20328 20342
20329(autoload 'org-attach "org-attach" "\ 20343(autoload 'org-attach "org-attach" "\
@@ -20335,7 +20349,7 @@ Shows a list of commands and prompts for another key to execute a command.
20335;;;*** 20349;;;***
20336 20350
20337;;;### (autoloads (org-bbdb-anniversaries) "org-bbdb" "org/org-bbdb.el" 20351;;;### (autoloads (org-bbdb-anniversaries) "org-bbdb" "org/org-bbdb.el"
20338;;;;;; (20119 34052)) 20352;;;;;; (20164 29468))
20339;;; Generated autoloads from org/org-bbdb.el 20353;;; Generated autoloads from org/org-bbdb.el
20340 20354
20341(autoload 'org-bbdb-anniversaries "org-bbdb" "\ 20355(autoload 'org-bbdb-anniversaries "org-bbdb" "\
@@ -20346,7 +20360,7 @@ Extract anniversaries from BBDB for display in the agenda.
20346;;;*** 20360;;;***
20347 20361
20348;;;### (autoloads (org-capture-import-remember-templates org-capture-insert-template-here 20362;;;### (autoloads (org-capture-import-remember-templates org-capture-insert-template-here
20349;;;;;; org-capture) "org-capture" "org/org-capture.el" (20119 34052)) 20363;;;;;; org-capture) "org-capture" "org/org-capture.el" (20168 57844))
20350;;; Generated autoloads from org/org-capture.el 20364;;; Generated autoloads from org/org-capture.el
20351 20365
20352(autoload 'org-capture "org-capture" "\ 20366(autoload 'org-capture "org-capture" "\
@@ -20384,7 +20398,7 @@ Set org-capture-templates to be similar to `org-remember-templates'.
20384;;;*** 20398;;;***
20385 20399
20386;;;### (autoloads (org-clock-persistence-insinuate org-get-clocktable) 20400;;;### (autoloads (org-clock-persistence-insinuate org-get-clocktable)
20387;;;;;; "org-clock" "org/org-clock.el" (20119 34052)) 20401;;;;;; "org-clock" "org/org-clock.el" (20172 54913))
20388;;; Generated autoloads from org/org-clock.el 20402;;; Generated autoloads from org/org-clock.el
20389 20403
20390(autoload 'org-get-clocktable "org-clock" "\ 20404(autoload 'org-get-clocktable "org-clock" "\
@@ -20402,7 +20416,7 @@ Set up hooks for clock persistence.
20402;;;*** 20416;;;***
20403 20417
20404;;;### (autoloads (org-datetree-find-date-create) "org-datetree" 20418;;;### (autoloads (org-datetree-find-date-create) "org-datetree"
20405;;;;;; "org/org-datetree.el" (20119 34052)) 20419;;;;;; "org/org-datetree.el" (20045 30713))
20406;;; Generated autoloads from org/org-datetree.el 20420;;; Generated autoloads from org/org-datetree.el
20407 20421
20408(autoload 'org-datetree-find-date-create "org-datetree" "\ 20422(autoload 'org-datetree-find-date-create "org-datetree" "\
@@ -20418,7 +20432,7 @@ tree can be found.
20418;;;### (autoloads (org-export-as-docbook org-export-as-docbook-pdf-and-open 20432;;;### (autoloads (org-export-as-docbook org-export-as-docbook-pdf-and-open
20419;;;;;; org-export-as-docbook-pdf org-export-region-as-docbook org-replace-region-by-docbook 20433;;;;;; org-export-as-docbook-pdf org-export-region-as-docbook org-replace-region-by-docbook
20420;;;;;; org-export-as-docbook-to-buffer org-export-as-docbook-batch) 20434;;;;;; org-export-as-docbook-to-buffer org-export-as-docbook-batch)
20421;;;;;; "org-docbook" "org/org-docbook.el" (20119 34052)) 20435;;;;;; "org-docbook" "org/org-docbook.el" (20045 30713))
20422;;; Generated autoloads from org/org-docbook.el 20436;;; Generated autoloads from org/org-docbook.el
20423 20437
20424(autoload 'org-export-as-docbook-batch "org-docbook" "\ 20438(autoload 'org-export-as-docbook-batch "org-docbook" "\
@@ -20495,7 +20509,7 @@ publishing directory.
20495 20509
20496;;;### (autoloads (org-insert-export-options-template org-export-as-org 20510;;;### (autoloads (org-insert-export-options-template org-export-as-org
20497;;;;;; org-export-visible org-export) "org-exp" "org/org-exp.el" 20511;;;;;; org-export-visible org-export) "org-exp" "org/org-exp.el"
20498;;;;;; (20119 34052)) 20512;;;;;; (20167 36967))
20499;;; Generated autoloads from org/org-exp.el 20513;;; Generated autoloads from org/org-exp.el
20500 20514
20501(autoload 'org-export "org-exp" "\ 20515(autoload 'org-export "org-exp" "\
@@ -20556,8 +20570,8 @@ Insert into the buffer a template with information for exporting.
20556;;;*** 20570;;;***
20557 20571
20558;;;### (autoloads (org-feed-show-raw-feed org-feed-goto-inbox org-feed-update 20572;;;### (autoloads (org-feed-show-raw-feed org-feed-goto-inbox org-feed-update
20559;;;;;; org-feed-update-all) "org-feed" "org/org-feed.el" (20119 20573;;;;;; org-feed-update-all) "org-feed" "org/org-feed.el" (20065
20560;;;;;; 34052)) 20574;;;;;; 65310))
20561;;; Generated autoloads from org/org-feed.el 20575;;; Generated autoloads from org/org-feed.el
20562 20576
20563(autoload 'org-feed-update-all "org-feed" "\ 20577(autoload 'org-feed-update-all "org-feed" "\
@@ -20585,7 +20599,7 @@ Show the raw feed buffer of a feed.
20585;;;*** 20599;;;***
20586 20600
20587;;;### (autoloads (org-footnote-normalize org-footnote-action) "org-footnote" 20601;;;### (autoloads (org-footnote-normalize org-footnote-action) "org-footnote"
20588;;;;;; "org/org-footnote.el" (20119 34052)) 20602;;;;;; "org/org-footnote.el" (20161 45793))
20589;;; Generated autoloads from org/org-footnote.el 20603;;; Generated autoloads from org/org-footnote.el
20590 20604
20591(autoload 'org-footnote-action "org-footnote" "\ 20605(autoload 'org-footnote-action "org-footnote" "\
@@ -20636,7 +20650,7 @@ Additional note on `org-footnote-insert-pos-for-preprocessor':
20636;;;### (autoloads (org-freemind-to-org-mode org-freemind-from-org-sparse-tree 20650;;;### (autoloads (org-freemind-to-org-mode org-freemind-from-org-sparse-tree
20637;;;;;; org-freemind-from-org-mode org-freemind-from-org-mode-node 20651;;;;;; org-freemind-from-org-mode org-freemind-from-org-mode-node
20638;;;;;; org-freemind-show org-export-as-freemind) "org-freemind" 20652;;;;;; org-freemind-show org-export-as-freemind) "org-freemind"
20639;;;;;; "org/org-freemind.el" (20119 34052)) 20653;;;;;; "org/org-freemind.el" (20172 54913))
20640;;; Generated autoloads from org/org-freemind.el 20654;;; Generated autoloads from org/org-freemind.el
20641 20655
20642(autoload 'org-export-as-freemind "org-freemind" "\ 20656(autoload 'org-export-as-freemind "org-freemind" "\
@@ -20697,7 +20711,7 @@ Convert FreeMind file MM-FILE to `org-mode' file ORG-FILE.
20697;;;### (autoloads (org-export-htmlize-generate-css org-export-as-html 20711;;;### (autoloads (org-export-htmlize-generate-css org-export-as-html
20698;;;;;; org-export-region-as-html org-replace-region-by-html org-export-as-html-to-buffer 20712;;;;;; org-export-region-as-html org-replace-region-by-html org-export-as-html-to-buffer
20699;;;;;; org-export-as-html-batch org-export-as-html-and-open) "org-html" 20713;;;;;; org-export-as-html-batch org-export-as-html-and-open) "org-html"
20700;;;;;; "org/org-html.el" (20119 34052)) 20714;;;;;; "org/org-html.el" (20065 65310))
20701;;; Generated autoloads from org/org-html.el 20715;;; Generated autoloads from org/org-html.el
20702 20716
20703(put 'org-export-html-style-include-default 'safe-local-variable 'booleanp) 20717(put 'org-export-html-style-include-default 'safe-local-variable 'booleanp)
@@ -20791,7 +20805,7 @@ that uses these same face definitions.
20791 20805
20792;;;### (autoloads (org-export-icalendar-combine-agenda-files org-export-icalendar-all-agenda-files 20806;;;### (autoloads (org-export-icalendar-combine-agenda-files org-export-icalendar-all-agenda-files
20793;;;;;; org-export-icalendar-this-file) "org-icalendar" "org/org-icalendar.el" 20807;;;;;; org-export-icalendar-this-file) "org-icalendar" "org/org-icalendar.el"
20794;;;;;; (20119 34052)) 20808;;;;;; (20164 29468))
20795;;; Generated autoloads from org/org-icalendar.el 20809;;; Generated autoloads from org/org-icalendar.el
20796 20810
20797(autoload 'org-export-icalendar-this-file "org-icalendar" "\ 20811(autoload 'org-export-icalendar-this-file "org-icalendar" "\
@@ -20819,7 +20833,7 @@ The file is stored under the name `org-combined-agenda-icalendar-file'.
20819;;;### (autoloads (org-id-store-link org-id-find-id-file org-id-find 20833;;;### (autoloads (org-id-store-link org-id-find-id-file org-id-find
20820;;;;;; org-id-goto org-id-get-with-outline-drilling org-id-get-with-outline-path-completion 20834;;;;;; org-id-goto org-id-get-with-outline-drilling org-id-get-with-outline-path-completion
20821;;;;;; org-id-get org-id-copy org-id-get-create) "org-id" "org/org-id.el" 20835;;;;;; org-id-get org-id-copy org-id-get-create) "org-id" "org/org-id.el"
20822;;;;;; (20119 34052)) 20836;;;;;; (20065 65310))
20823;;; Generated autoloads from org/org-id.el 20837;;; Generated autoloads from org/org-id.el
20824 20838
20825(autoload 'org-id-get-create "org-id" "\ 20839(autoload 'org-id-get-create "org-id" "\
@@ -20888,7 +20902,7 @@ Store a link to the current entry, using its ID.
20888;;;*** 20902;;;***
20889 20903
20890;;;### (autoloads (org-indent-mode) "org-indent" "org/org-indent.el" 20904;;;### (autoloads (org-indent-mode) "org-indent" "org/org-indent.el"
20891;;;;;; (20119 34052)) 20905;;;;;; (20045 30716))
20892;;; Generated autoloads from org/org-indent.el 20906;;; Generated autoloads from org/org-indent.el
20893 20907
20894(autoload 'org-indent-mode "org-indent" "\ 20908(autoload 'org-indent-mode "org-indent" "\
@@ -20903,7 +20917,7 @@ FIXME: How to update when broken?
20903;;;*** 20917;;;***
20904 20918
20905;;;### (autoloads (org-irc-store-link) "org-irc" "org/org-irc.el" 20919;;;### (autoloads (org-irc-store-link) "org-irc" "org/org-irc.el"
20906;;;;;; (20119 34052)) 20920;;;;;; (20065 65310))
20907;;; Generated autoloads from org/org-irc.el 20921;;; Generated autoloads from org/org-irc.el
20908 20922
20909(autoload 'org-irc-store-link "org-irc" "\ 20923(autoload 'org-irc-store-link "org-irc" "\
@@ -20916,7 +20930,7 @@ Dispatch to the appropriate function to store a link to an IRC session.
20916;;;### (autoloads (org-export-as-pdf-and-open org-export-as-pdf org-export-as-latex 20930;;;### (autoloads (org-export-as-pdf-and-open org-export-as-pdf org-export-as-latex
20917;;;;;; org-export-region-as-latex org-replace-region-by-latex org-export-as-latex-to-buffer 20931;;;;;; org-export-region-as-latex org-replace-region-by-latex org-export-as-latex-to-buffer
20918;;;;;; org-export-as-latex-batch) "org-latex" "org/org-latex.el" 20932;;;;;; org-export-as-latex-batch) "org-latex" "org/org-latex.el"
20919;;;;;; (20119 34052)) 20933;;;;;; (20164 29468))
20920;;; Generated autoloads from org/org-latex.el 20934;;; Generated autoloads from org/org-latex.el
20921 20935
20922(autoload 'org-export-as-latex-batch "org-latex" "\ 20936(autoload 'org-export-as-latex-batch "org-latex" "\
@@ -20996,8 +21010,8 @@ Export as LaTeX, then process through to PDF, and open.
20996;;;*** 21010;;;***
20997 21011
20998;;;### (autoloads (org-mobile-create-sumo-agenda org-mobile-pull 21012;;;### (autoloads (org-mobile-create-sumo-agenda org-mobile-pull
20999;;;;;; org-mobile-push) "org-mobile" "org/org-mobile.el" (20119 21013;;;;;; org-mobile-push) "org-mobile" "org/org-mobile.el" (20065
21000;;;;;; 34052)) 21014;;;;;; 65310))
21001;;; Generated autoloads from org/org-mobile.el 21015;;; Generated autoloads from org/org-mobile.el
21002 21016
21003(autoload 'org-mobile-push "org-mobile" "\ 21017(autoload 'org-mobile-push "org-mobile" "\
@@ -21022,7 +21036,7 @@ Create a file that contains all custom agenda views.
21022;;;*** 21036;;;***
21023 21037
21024;;;### (autoloads (org-plot/gnuplot) "org-plot" "org/org-plot.el" 21038;;;### (autoloads (org-plot/gnuplot) "org-plot" "org/org-plot.el"
21025;;;;;; (20119 34052)) 21039;;;;;; (20157 54694))
21026;;; Generated autoloads from org/org-plot.el 21040;;; Generated autoloads from org/org-plot.el
21027 21041
21028(autoload 'org-plot/gnuplot "org-plot" "\ 21042(autoload 'org-plot/gnuplot "org-plot" "\
@@ -21036,7 +21050,7 @@ line directly before or after the table.
21036 21050
21037;;;### (autoloads (org-publish-current-project org-publish-current-file 21051;;;### (autoloads (org-publish-current-project org-publish-current-file
21038;;;;;; org-publish-all org-publish) "org-publish" "org/org-publish.el" 21052;;;;;; org-publish-all org-publish) "org-publish" "org/org-publish.el"
21039;;;;;; (20119 34052)) 21053;;;;;; (20161 45793))
21040;;; Generated autoloads from org/org-publish.el 21054;;; Generated autoloads from org/org-publish.el
21041 21055
21042(defalias 'org-publish-project 'org-publish) 21056(defalias 'org-publish-project 'org-publish)
@@ -21070,7 +21084,7 @@ the project.
21070 21084
21071;;;### (autoloads (org-remember-handler org-remember org-remember-apply-template 21085;;;### (autoloads (org-remember-handler org-remember org-remember-apply-template
21072;;;;;; org-remember-annotation org-remember-insinuate) "org-remember" 21086;;;;;; org-remember-annotation org-remember-insinuate) "org-remember"
21073;;;;;; "org/org-remember.el" (20119 34052)) 21087;;;;;; "org/org-remember.el" (20165 31925))
21074;;; Generated autoloads from org/org-remember.el 21088;;; Generated autoloads from org/org-remember.el
21075 21089
21076(autoload 'org-remember-insinuate "org-remember" "\ 21090(autoload 'org-remember-insinuate "org-remember" "\
@@ -21146,7 +21160,7 @@ See also the variable `org-reverse-note-order'.
21146;;;*** 21160;;;***
21147 21161
21148;;;### (autoloads (org-table-to-lisp orgtbl-mode turn-on-orgtbl) 21162;;;### (autoloads (org-table-to-lisp orgtbl-mode turn-on-orgtbl)
21149;;;;;; "org-table" "org/org-table.el" (20119 34052)) 21163;;;;;; "org-table" "org/org-table.el" (20168 57844))
21150;;; Generated autoloads from org/org-table.el 21164;;; Generated autoloads from org/org-table.el
21151 21165
21152(autoload 'turn-on-orgtbl "org-table" "\ 21166(autoload 'turn-on-orgtbl "org-table" "\
@@ -21170,7 +21184,7 @@ The table is taken from the parameter TXT, or from the buffer at point.
21170;;;*** 21184;;;***
21171 21185
21172;;;### (autoloads (org-export-as-taskjuggler-and-open org-export-as-taskjuggler) 21186;;;### (autoloads (org-export-as-taskjuggler-and-open org-export-as-taskjuggler)
21173;;;;;; "org-taskjuggler" "org/org-taskjuggler.el" (20119 34052)) 21187;;;;;; "org-taskjuggler" "org/org-taskjuggler.el" (20166 16092))
21174;;; Generated autoloads from org/org-taskjuggler.el 21188;;; Generated autoloads from org/org-taskjuggler.el
21175 21189
21176(autoload 'org-export-as-taskjuggler "org-taskjuggler" "\ 21190(autoload 'org-export-as-taskjuggler "org-taskjuggler" "\
@@ -21198,7 +21212,7 @@ with the TaskJuggler GUI.
21198 21212
21199;;;### (autoloads (org-timer-set-timer org-timer-item org-timer-change-times-in-region 21213;;;### (autoloads (org-timer-set-timer org-timer-item org-timer-change-times-in-region
21200;;;;;; org-timer org-timer-start) "org-timer" "org/org-timer.el" 21214;;;;;; org-timer org-timer-start) "org-timer" "org/org-timer.el"
21201;;;;;; (20119 34052)) 21215;;;;;; (20045 30718))
21202;;; Generated autoloads from org/org-timer.el 21216;;; Generated autoloads from org/org-timer.el
21203 21217
21204(autoload 'org-timer-start "org-timer" "\ 21218(autoload 'org-timer-start "org-timer" "\
@@ -21259,7 +21273,7 @@ replace any running timer.
21259;;;*** 21273;;;***
21260 21274
21261;;;### (autoloads (org-export-as-xoxo) "org-xoxo" "org/org-xoxo.el" 21275;;;### (autoloads (org-export-as-xoxo) "org-xoxo" "org/org-xoxo.el"
21262;;;;;; (20119 34052)) 21276;;;;;; (20045 30719))
21263;;; Generated autoloads from org/org-xoxo.el 21277;;; Generated autoloads from org/org-xoxo.el
21264 21278
21265(autoload 'org-export-as-xoxo "org-xoxo" "\ 21279(autoload 'org-export-as-xoxo "org-xoxo" "\
@@ -21271,7 +21285,7 @@ The XOXO buffer is named *xoxo-<source buffer name>*
21271;;;*** 21285;;;***
21272 21286
21273;;;### (autoloads (outline-minor-mode outline-mode) "outline" "outline.el" 21287;;;### (autoloads (outline-minor-mode outline-mode) "outline" "outline.el"
21274;;;;;; (20126 50306)) 21288;;;;;; (20162 63140))
21275;;; Generated autoloads from outline.el 21289;;; Generated autoloads from outline.el
21276(put 'outline-regexp 'safe-local-variable 'stringp) 21290(put 'outline-regexp 'safe-local-variable 'stringp)
21277(put 'outline-heading-end-regexp 'safe-local-variable 'stringp) 21291(put 'outline-heading-end-regexp 'safe-local-variable 'stringp)
@@ -21335,7 +21349,7 @@ See the command `outline-mode' for more information on this mode.
21335;;;### (autoloads (list-packages describe-package package-initialize 21349;;;### (autoloads (list-packages describe-package package-initialize
21336;;;;;; package-refresh-contents package-install-file package-install-from-buffer 21350;;;;;; package-refresh-contents package-install-file package-install-from-buffer
21337;;;;;; package-install package-enable-at-startup) "package" "emacs-lisp/package.el" 21351;;;;;; package-install package-enable-at-startup) "package" "emacs-lisp/package.el"
21338;;;;;; (20139 30186)) 21352;;;;;; (20168 57844))
21339;;; Generated autoloads from emacs-lisp/package.el 21353;;; Generated autoloads from emacs-lisp/package.el
21340 21354
21341(defvar package-enable-at-startup t "\ 21355(defvar package-enable-at-startup t "\
@@ -21405,7 +21419,7 @@ The list is displayed in a buffer named `*Packages*'.
21405 21419
21406;;;*** 21420;;;***
21407 21421
21408;;;### (autoloads (show-paren-mode) "paren" "paren.el" (20126 50320)) 21422;;;### (autoloads (show-paren-mode) "paren" "paren.el" (20127 62865))
21409;;; Generated autoloads from paren.el 21423;;; Generated autoloads from paren.el
21410 21424
21411(defvar show-paren-mode nil "\ 21425(defvar show-paren-mode nil "\
@@ -21432,7 +21446,7 @@ matching parenthesis is highlighted in `show-paren-style' after
21432;;;*** 21446;;;***
21433 21447
21434;;;### (autoloads (parse-time-string) "parse-time" "calendar/parse-time.el" 21448;;;### (autoloads (parse-time-string) "parse-time" "calendar/parse-time.el"
21435;;;;;; (20119 34052)) 21449;;;;;; (19845 45374))
21436;;; Generated autoloads from calendar/parse-time.el 21450;;; Generated autoloads from calendar/parse-time.el
21437(put 'parse-time-rules 'risky-local-variable t) 21451(put 'parse-time-rules 'risky-local-variable t)
21438 21452
@@ -21445,8 +21459,8 @@ unknown are returned as nil.
21445 21459
21446;;;*** 21460;;;***
21447 21461
21448;;;### (autoloads (pascal-mode) "pascal" "progmodes/pascal.el" (20119 21462;;;### (autoloads (pascal-mode) "pascal" "progmodes/pascal.el" (20168
21449;;;;;; 34052)) 21463;;;;;; 57844))
21450;;; Generated autoloads from progmodes/pascal.el 21464;;; Generated autoloads from progmodes/pascal.el
21451 21465
21452(autoload 'pascal-mode "pascal" "\ 21466(autoload 'pascal-mode "pascal" "\
@@ -21499,7 +21513,7 @@ no args, if that value is non-nil.
21499;;;*** 21513;;;***
21500 21514
21501;;;### (autoloads (password-in-cache-p password-cache-expiry password-cache) 21515;;;### (autoloads (password-in-cache-p password-cache-expiry password-cache)
21502;;;;;; "password-cache" "password-cache.el" (20119 34052)) 21516;;;;;; "password-cache" "password-cache.el" (20089 47591))
21503;;; Generated autoloads from password-cache.el 21517;;; Generated autoloads from password-cache.el
21504 21518
21505(defvar password-cache t "\ 21519(defvar password-cache t "\
@@ -21521,7 +21535,7 @@ Check if KEY is in the cache.
21521;;;*** 21535;;;***
21522 21536
21523;;;### (autoloads (pcase-let pcase-let* pcase) "pcase" "emacs-lisp/pcase.el" 21537;;;### (autoloads (pcase-let pcase-let* pcase) "pcase" "emacs-lisp/pcase.el"
21524;;;;;; (20119 34052)) 21538;;;;;; (19863 8742))
21525;;; Generated autoloads from emacs-lisp/pcase.el 21539;;; Generated autoloads from emacs-lisp/pcase.el
21526 21540
21527(autoload 'pcase "pcase" "\ 21541(autoload 'pcase "pcase" "\
@@ -21580,8 +21594,8 @@ of the form (UPAT EXP).
21580 21594
21581;;;*** 21595;;;***
21582 21596
21583;;;### (autoloads (pcomplete/cvs) "pcmpl-cvs" "pcmpl-cvs.el" (20119 21597;;;### (autoloads (pcomplete/cvs) "pcmpl-cvs" "pcmpl-cvs.el" (20100
21584;;;;;; 34052)) 21598;;;;;; 17869))
21585;;; Generated autoloads from pcmpl-cvs.el 21599;;; Generated autoloads from pcmpl-cvs.el
21586 21600
21587(autoload 'pcomplete/cvs "pcmpl-cvs" "\ 21601(autoload 'pcomplete/cvs "pcmpl-cvs" "\
@@ -21592,7 +21606,7 @@ Completion rules for the `cvs' command.
21592;;;*** 21606;;;***
21593 21607
21594;;;### (autoloads (pcomplete/tar pcomplete/make pcomplete/bzip2 pcomplete/gzip) 21608;;;### (autoloads (pcomplete/tar pcomplete/make pcomplete/bzip2 pcomplete/gzip)
21595;;;;;; "pcmpl-gnu" "pcmpl-gnu.el" (20119 34052)) 21609;;;;;; "pcmpl-gnu" "pcmpl-gnu.el" (20104 14925))
21596;;; Generated autoloads from pcmpl-gnu.el 21610;;; Generated autoloads from pcmpl-gnu.el
21597 21611
21598(autoload 'pcomplete/gzip "pcmpl-gnu" "\ 21612(autoload 'pcomplete/gzip "pcmpl-gnu" "\
@@ -21620,7 +21634,7 @@ Completion for the GNU tar utility.
21620;;;*** 21634;;;***
21621 21635
21622;;;### (autoloads (pcomplete/mount pcomplete/umount pcomplete/kill) 21636;;;### (autoloads (pcomplete/mount pcomplete/umount pcomplete/kill)
21623;;;;;; "pcmpl-linux" "pcmpl-linux.el" (20119 34052)) 21637;;;;;; "pcmpl-linux" "pcmpl-linux.el" (19986 58615))
21624;;; Generated autoloads from pcmpl-linux.el 21638;;; Generated autoloads from pcmpl-linux.el
21625 21639
21626(autoload 'pcomplete/kill "pcmpl-linux" "\ 21640(autoload 'pcomplete/kill "pcmpl-linux" "\
@@ -21640,8 +21654,8 @@ Completion for GNU/Linux `mount'.
21640 21654
21641;;;*** 21655;;;***
21642 21656
21643;;;### (autoloads (pcomplete/rpm) "pcmpl-rpm" "pcmpl-rpm.el" (20119 21657;;;### (autoloads (pcomplete/rpm) "pcmpl-rpm" "pcmpl-rpm.el" (19961
21644;;;;;; 34052)) 21658;;;;;; 55377))
21645;;; Generated autoloads from pcmpl-rpm.el 21659;;; Generated autoloads from pcmpl-rpm.el
21646 21660
21647(autoload 'pcomplete/rpm "pcmpl-rpm" "\ 21661(autoload 'pcomplete/rpm "pcmpl-rpm" "\
@@ -21653,7 +21667,7 @@ Completion for the `rpm' command.
21653 21667
21654;;;### (autoloads (pcomplete/scp pcomplete/ssh pcomplete/chgrp pcomplete/chown 21668;;;### (autoloads (pcomplete/scp pcomplete/ssh pcomplete/chgrp pcomplete/chown
21655;;;;;; pcomplete/which pcomplete/xargs pcomplete/rm pcomplete/rmdir 21669;;;;;; pcomplete/which pcomplete/xargs pcomplete/rm pcomplete/rmdir
21656;;;;;; pcomplete/cd) "pcmpl-unix" "pcmpl-unix.el" (20120 43280)) 21670;;;;;; pcomplete/cd) "pcmpl-unix" "pcmpl-unix.el" (20121 24048))
21657;;; Generated autoloads from pcmpl-unix.el 21671;;; Generated autoloads from pcmpl-unix.el
21658 21672
21659(autoload 'pcomplete/cd "pcmpl-unix" "\ 21673(autoload 'pcomplete/cd "pcmpl-unix" "\
@@ -21710,8 +21724,8 @@ Includes files as well as host names followed by a colon.
21710 21724
21711;;;### (autoloads (pcomplete-shell-setup pcomplete-comint-setup pcomplete-list 21725;;;### (autoloads (pcomplete-shell-setup pcomplete-comint-setup pcomplete-list
21712;;;;;; pcomplete-help pcomplete-expand pcomplete-continue pcomplete-expand-and-complete 21726;;;;;; pcomplete-help pcomplete-expand pcomplete-continue pcomplete-expand-and-complete
21713;;;;;; pcomplete-reverse pcomplete) "pcomplete" "pcomplete.el" (20119 21727;;;;;; pcomplete-reverse pcomplete) "pcomplete" "pcomplete.el" (20106
21714;;;;;; 34052)) 21728;;;;;; 17429))
21715;;; Generated autoloads from pcomplete.el 21729;;; Generated autoloads from pcomplete.el
21716 21730
21717(autoload 'pcomplete "pcomplete" "\ 21731(autoload 'pcomplete "pcomplete" "\
@@ -21770,7 +21784,7 @@ Setup `shell-mode' to use pcomplete.
21770 21784
21771;;;### (autoloads (cvs-dired-use-hook cvs-dired-action cvs-status 21785;;;### (autoloads (cvs-dired-use-hook cvs-dired-action cvs-status
21772;;;;;; cvs-update cvs-examine cvs-quickdir cvs-checkout) "pcvs" 21786;;;;;; cvs-update cvs-examine cvs-quickdir cvs-checkout) "pcvs"
21773;;;;;; "vc/pcvs.el" (20119 34052)) 21787;;;;;; "vc/pcvs.el" (20164 60780))
21774;;; Generated autoloads from vc/pcvs.el 21788;;; Generated autoloads from vc/pcvs.el
21775 21789
21776(autoload 'cvs-checkout "pcvs" "\ 21790(autoload 'cvs-checkout "pcvs" "\
@@ -21845,15 +21859,16 @@ The exact behavior is determined also by `cvs-dired-use-hook'." (when (stringp d
21845 21859
21846;;;*** 21860;;;***
21847 21861
21848;;;### (autoloads nil "pcvs-defs" "vc/pcvs-defs.el" (20119 34052)) 21862;;;### (autoloads nil "pcvs-defs" "vc/pcvs-defs.el" (20174 10230))
21849;;; Generated autoloads from vc/pcvs-defs.el 21863;;; Generated autoloads from vc/pcvs-defs.el
21850 21864
21851(defvar cvs-global-menu (let ((m (make-sparse-keymap "PCL-CVS"))) (define-key m [status] `(menu-item ,(purecopy "Directory Status") cvs-status :help ,(purecopy "A more verbose status of a workarea"))) (define-key m [checkout] `(menu-item ,(purecopy "Checkout Module") cvs-checkout :help ,(purecopy "Check out a module from the repository"))) (define-key m [update] `(menu-item ,(purecopy "Update Directory") cvs-update :help ,(purecopy "Fetch updates from the repository"))) (define-key m [examine] `(menu-item ,(purecopy "Examine Directory") cvs-examine :help ,(purecopy "Examine the current state of a workarea"))) (fset 'cvs-global-menu m))) 21865(defvar cvs-global-menu (let ((m (make-sparse-keymap "PCL-CVS"))) (define-key m [status] `(menu-item ,(purecopy "Directory Status") cvs-status :help ,(purecopy "A more verbose status of a workarea"))) (define-key m [checkout] `(menu-item ,(purecopy "Checkout Module") cvs-checkout :help ,(purecopy "Check out a module from the repository"))) (define-key m [update] `(menu-item ,(purecopy "Update Directory") cvs-update :help ,(purecopy "Fetch updates from the repository"))) (define-key m [examine] `(menu-item ,(purecopy "Examine Directory") cvs-examine :help ,(purecopy "Examine the current state of a workarea"))) (fset 'cvs-global-menu m)) "\
21866Global menu used by PCL-CVS.")
21852 21867
21853;;;*** 21868;;;***
21854 21869
21855;;;### (autoloads (perl-mode) "perl-mode" "progmodes/perl-mode.el" 21870;;;### (autoloads (perl-mode) "perl-mode" "progmodes/perl-mode.el"
21856;;;;;; (20119 34052)) 21871;;;;;; (20108 12033))
21857;;; Generated autoloads from progmodes/perl-mode.el 21872;;; Generated autoloads from progmodes/perl-mode.el
21858(put 'perl-indent-level 'safe-local-variable 'integerp) 21873(put 'perl-indent-level 'safe-local-variable 'integerp)
21859(put 'perl-continued-statement-offset 'safe-local-variable 'integerp) 21874(put 'perl-continued-statement-offset 'safe-local-variable 'integerp)
@@ -21915,7 +21930,7 @@ Turning on Perl mode runs the normal hook `perl-mode-hook'.
21915;;;*** 21930;;;***
21916 21931
21917;;;### (autoloads (picture-mode) "picture" "textmodes/picture.el" 21932;;;### (autoloads (picture-mode) "picture" "textmodes/picture.el"
21918;;;;;; (20119 34052)) 21933;;;;;; (20093 44623))
21919;;; Generated autoloads from textmodes/picture.el 21934;;; Generated autoloads from textmodes/picture.el
21920 21935
21921(autoload 'picture-mode "picture" "\ 21936(autoload 'picture-mode "picture" "\
@@ -21995,8 +22010,8 @@ they are not defaultly assigned to keys.
21995 22010
21996;;;*** 22011;;;***
21997 22012
21998;;;### (autoloads (plstore-open) "plstore" "gnus/plstore.el" (20119 22013;;;### (autoloads (plstore-open) "plstore" "gnus/plstore.el" (20097
21999;;;;;; 34052)) 22014;;;;;; 41737))
22000;;; Generated autoloads from gnus/plstore.el 22015;;; Generated autoloads from gnus/plstore.el
22001 22016
22002(autoload 'plstore-open "plstore" "\ 22017(autoload 'plstore-open "plstore" "\
@@ -22007,7 +22022,7 @@ Create a plstore instance associated with FILE.
22007;;;*** 22022;;;***
22008 22023
22009;;;### (autoloads (po-find-file-coding-system) "po" "textmodes/po.el" 22024;;;### (autoloads (po-find-file-coding-system) "po" "textmodes/po.el"
22010;;;;;; (20119 34052)) 22025;;;;;; (19845 45374))
22011;;; Generated autoloads from textmodes/po.el 22026;;; Generated autoloads from textmodes/po.el
22012 22027
22013(autoload 'po-find-file-coding-system "po" "\ 22028(autoload 'po-find-file-coding-system "po" "\
@@ -22018,7 +22033,7 @@ Called through `file-coding-system-alist', before the file is visited for real.
22018 22033
22019;;;*** 22034;;;***
22020 22035
22021;;;### (autoloads (pong) "pong" "play/pong.el" (20119 34052)) 22036;;;### (autoloads (pong) "pong" "play/pong.el" (19845 45374))
22022;;; Generated autoloads from play/pong.el 22037;;; Generated autoloads from play/pong.el
22023 22038
22024(autoload 'pong "pong" "\ 22039(autoload 'pong "pong" "\
@@ -22034,7 +22049,7 @@ pong-mode keybindings:\\<pong-mode-map>
22034 22049
22035;;;*** 22050;;;***
22036 22051
22037;;;### (autoloads (pop3-movemail) "pop3" "gnus/pop3.el" (20119 34052)) 22052;;;### (autoloads (pop3-movemail) "pop3" "gnus/pop3.el" (20178 7273))
22038;;; Generated autoloads from gnus/pop3.el 22053;;; Generated autoloads from gnus/pop3.el
22039 22054
22040(autoload 'pop3-movemail "pop3" "\ 22055(autoload 'pop3-movemail "pop3" "\
@@ -22047,7 +22062,7 @@ Use streaming commands.
22047 22062
22048;;;### (autoloads (pp-macroexpand-last-sexp pp-eval-last-sexp pp-macroexpand-expression 22063;;;### (autoloads (pp-macroexpand-last-sexp pp-eval-last-sexp pp-macroexpand-expression
22049;;;;;; pp-eval-expression pp pp-buffer pp-to-string) "pp" "emacs-lisp/pp.el" 22064;;;;;; pp-eval-expression pp pp-buffer pp-to-string) "pp" "emacs-lisp/pp.el"
22050;;;;;; (20119 34052)) 22065;;;;;; (19845 45374))
22051;;; Generated autoloads from emacs-lisp/pp.el 22066;;; Generated autoloads from emacs-lisp/pp.el
22052 22067
22053(autoload 'pp-to-string "pp" "\ 22068(autoload 'pp-to-string "pp" "\
@@ -22115,7 +22130,7 @@ Ignores leading comment characters.
22115;;;;;; pr-ps-buffer-print pr-ps-buffer-using-ghostscript pr-ps-buffer-preview 22130;;;;;; pr-ps-buffer-print pr-ps-buffer-using-ghostscript pr-ps-buffer-preview
22116;;;;;; pr-ps-directory-ps-print pr-ps-directory-print pr-ps-directory-using-ghostscript 22131;;;;;; pr-ps-directory-ps-print pr-ps-directory-print pr-ps-directory-using-ghostscript
22117;;;;;; pr-ps-directory-preview pr-interface) "printing" "printing.el" 22132;;;;;; pr-ps-directory-preview pr-interface) "printing" "printing.el"
22118;;;;;; (20119 34052)) 22133;;;;;; (20175 31160))
22119;;; Generated autoloads from printing.el 22134;;; Generated autoloads from printing.el
22120 22135
22121(autoload 'pr-interface "printing" "\ 22136(autoload 'pr-interface "printing" "\
@@ -22702,7 +22717,7 @@ are both set to t.
22702 22717
22703;;;*** 22718;;;***
22704 22719
22705;;;### (autoloads (proced) "proced" "proced.el" (20119 34052)) 22720;;;### (autoloads (proced) "proced" "proced.el" (20053 39261))
22706;;; Generated autoloads from proced.el 22721;;; Generated autoloads from proced.el
22707 22722
22708(autoload 'proced "proced" "\ 22723(autoload 'proced "proced" "\
@@ -22718,7 +22733,7 @@ See `proced-mode' for a description of features available in Proced buffers.
22718;;;*** 22733;;;***
22719 22734
22720;;;### (autoloads (run-prolog mercury-mode prolog-mode) "prolog" 22735;;;### (autoloads (run-prolog mercury-mode prolog-mode) "prolog"
22721;;;;;; "progmodes/prolog.el" (20119 34052)) 22736;;;;;; "progmodes/prolog.el" (20176 51947))
22722;;; Generated autoloads from progmodes/prolog.el 22737;;; Generated autoloads from progmodes/prolog.el
22723 22738
22724(autoload 'prolog-mode "prolog" "\ 22739(autoload 'prolog-mode "prolog" "\
@@ -22753,8 +22768,8 @@ With prefix argument ARG, restart the Prolog process if running before.
22753 22768
22754;;;*** 22769;;;***
22755 22770
22756;;;### (autoloads (bdf-directory-list) "ps-bdf" "ps-bdf.el" (20119 22771;;;### (autoloads (bdf-directory-list) "ps-bdf" "ps-bdf.el" (19845
22757;;;;;; 34052)) 22772;;;;;; 45374))
22758;;; Generated autoloads from ps-bdf.el 22773;;; Generated autoloads from ps-bdf.el
22759 22774
22760(defvar bdf-directory-list (if (memq system-type '(ms-dos windows-nt)) (list (expand-file-name "fonts/bdf" installation-directory)) '("/usr/local/share/emacs/fonts/bdf")) "\ 22775(defvar bdf-directory-list (if (memq system-type '(ms-dos windows-nt)) (list (expand-file-name "fonts/bdf" installation-directory)) '("/usr/local/share/emacs/fonts/bdf")) "\
@@ -22765,8 +22780,8 @@ The default value is '(\"/usr/local/share/emacs/fonts/bdf\").")
22765 22780
22766;;;*** 22781;;;***
22767 22782
22768;;;### (autoloads (ps-mode) "ps-mode" "progmodes/ps-mode.el" (20119 22783;;;### (autoloads (ps-mode) "ps-mode" "progmodes/ps-mode.el" (20167
22769;;;;;; 34052)) 22784;;;;;; 36967))
22770;;; Generated autoloads from progmodes/ps-mode.el 22785;;; Generated autoloads from progmodes/ps-mode.el
22771 22786
22772(autoload 'ps-mode "ps-mode" "\ 22787(autoload 'ps-mode "ps-mode" "\
@@ -22817,8 +22832,8 @@ Typing \\<ps-run-mode-map>\\[ps-run-goto-error] when the cursor is at the number
22817;;;;;; ps-spool-region ps-spool-buffer-with-faces ps-spool-buffer 22832;;;;;; ps-spool-region ps-spool-buffer-with-faces ps-spool-buffer
22818;;;;;; ps-print-region-with-faces ps-print-region ps-print-buffer-with-faces 22833;;;;;; ps-print-region-with-faces ps-print-region ps-print-buffer-with-faces
22819;;;;;; ps-print-buffer ps-print-customize ps-print-color-p ps-paper-type 22834;;;;;; ps-print-buffer ps-print-customize ps-print-color-p ps-paper-type
22820;;;;;; ps-page-dimensions-database) "ps-print" "ps-print.el" (20119 22835;;;;;; ps-page-dimensions-database) "ps-print" "ps-print.el" (20172
22821;;;;;; 34052)) 22836;;;;;; 55048))
22822;;; Generated autoloads from ps-print.el 22837;;; Generated autoloads from ps-print.el
22823 22838
22824(defvar ps-page-dimensions-database (purecopy (list (list 'a4 (/ (* 72 21.0) 2.54) (/ (* 72 29.7) 2.54) "A4") (list 'a3 (/ (* 72 29.7) 2.54) (/ (* 72 42.0) 2.54) "A3") (list 'letter (* 72 8.5) (* 72 11.0) "Letter") (list 'legal (* 72 8.5) (* 72 14.0) "Legal") (list 'letter-small (* 72 7.68) (* 72 10.16) "LetterSmall") (list 'tabloid (* 72 11.0) (* 72 17.0) "Tabloid") (list 'ledger (* 72 17.0) (* 72 11.0) "Ledger") (list 'statement (* 72 5.5) (* 72 8.5) "Statement") (list 'executive (* 72 7.5) (* 72 10.0) "Executive") (list 'a4small (* 72 7.47) (* 72 10.85) "A4Small") (list 'b4 (* 72 10.125) (* 72 14.33) "B4") (list 'b5 (* 72 7.16) (* 72 10.125) "B5") '(addresslarge 236.0 99.0 "AddressLarge") '(addresssmall 236.0 68.0 "AddressSmall") '(cuthanging13 90.0 222.0 "CutHanging13") '(cuthanging15 90.0 114.0 "CutHanging15") '(diskette 181.0 136.0 "Diskette") '(eurofilefolder 139.0 112.0 "EuropeanFilefolder") '(eurofoldernarrow 526.0 107.0 "EuroFolderNarrow") '(eurofolderwide 526.0 136.0 "EuroFolderWide") '(euronamebadge 189.0 108.0 "EuroNameBadge") '(euronamebadgelarge 223.0 136.0 "EuroNameBadgeLarge") '(filefolder 230.0 37.0 "FileFolder") '(jewelry 76.0 136.0 "Jewelry") '(mediabadge 180.0 136.0 "MediaBadge") '(multipurpose 126.0 68.0 "MultiPurpose") '(retaillabel 90.0 104.0 "RetailLabel") '(shipping 271.0 136.0 "Shipping") '(slide35mm 26.0 104.0 "Slide35mm") '(spine8mm 187.0 26.0 "Spine8mm") '(topcoated 425.19685 136.0 "TopCoatedPaper") '(topcoatedpaper 396.0 136.0 "TopcoatedPaper150") '(vhsface 205.0 127.0 "VHSFace") '(vhsspine 400.0 50.0 "VHSSpine") '(zipdisk 156.0 136.0 "ZipDisk"))) "\ 22839(defvar ps-page-dimensions-database (purecopy (list (list 'a4 (/ (* 72 21.0) 2.54) (/ (* 72 29.7) 2.54) "A4") (list 'a3 (/ (* 72 29.7) 2.54) (/ (* 72 42.0) 2.54) "A3") (list 'letter (* 72 8.5) (* 72 11.0) "Letter") (list 'legal (* 72 8.5) (* 72 14.0) "Legal") (list 'letter-small (* 72 7.68) (* 72 10.16) "LetterSmall") (list 'tabloid (* 72 11.0) (* 72 17.0) "Tabloid") (list 'ledger (* 72 17.0) (* 72 11.0) "Ledger") (list 'statement (* 72 5.5) (* 72 8.5) "Statement") (list 'executive (* 72 7.5) (* 72 10.0) "Executive") (list 'a4small (* 72 7.47) (* 72 10.85) "A4Small") (list 'b4 (* 72 10.125) (* 72 14.33) "B4") (list 'b5 (* 72 7.16) (* 72 10.125) "B5") '(addresslarge 236.0 99.0 "AddressLarge") '(addresssmall 236.0 68.0 "AddressSmall") '(cuthanging13 90.0 222.0 "CutHanging13") '(cuthanging15 90.0 114.0 "CutHanging15") '(diskette 181.0 136.0 "Diskette") '(eurofilefolder 139.0 112.0 "EuropeanFilefolder") '(eurofoldernarrow 526.0 107.0 "EuroFolderNarrow") '(eurofolderwide 526.0 136.0 "EuroFolderWide") '(euronamebadge 189.0 108.0 "EuroNameBadge") '(euronamebadgelarge 223.0 136.0 "EuroNameBadgeLarge") '(filefolder 230.0 37.0 "FileFolder") '(jewelry 76.0 136.0 "Jewelry") '(mediabadge 180.0 136.0 "MediaBadge") '(multipurpose 126.0 68.0 "MultiPurpose") '(retaillabel 90.0 104.0 "RetailLabel") '(shipping 271.0 136.0 "Shipping") '(slide35mm 26.0 104.0 "Slide35mm") '(spine8mm 187.0 26.0 "Spine8mm") '(topcoated 425.19685 136.0 "TopCoatedPaper") '(topcoatedpaper 396.0 136.0 "TopcoatedPaper150") '(vhsface 205.0 127.0 "VHSFace") '(vhsspine 400.0 50.0 "VHSSpine") '(zipdisk 156.0 136.0 "ZipDisk"))) "\
@@ -23015,7 +23030,7 @@ If EXTENSION is any other symbol, it is ignored.
23015;;;*** 23030;;;***
23016 23031
23017;;;### (autoloads (jython-mode python-mode python-after-info-look 23032;;;### (autoloads (jython-mode python-mode python-after-info-look
23018;;;;;; run-python) "python" "progmodes/python.el" (20119 34052)) 23033;;;;;; run-python) "python" "progmodes/python.el" (20170 13157))
23019;;; Generated autoloads from progmodes/python.el 23034;;; Generated autoloads from progmodes/python.el
23020 23035
23021(add-to-list 'interpreter-mode-alist (cons (purecopy "jython") 'jython-mode)) 23036(add-to-list 'interpreter-mode-alist (cons (purecopy "jython") 'jython-mode))
@@ -23101,7 +23116,7 @@ Runs `jython-mode-hook' after `python-mode-hook'.
23101;;;*** 23116;;;***
23102 23117
23103;;;### (autoloads (quoted-printable-decode-region) "qp" "gnus/qp.el" 23118;;;### (autoloads (quoted-printable-decode-region) "qp" "gnus/qp.el"
23104;;;;;; (20119 34052)) 23119;;;;;; (19845 45374))
23105;;; Generated autoloads from gnus/qp.el 23120;;; Generated autoloads from gnus/qp.el
23106 23121
23107(autoload 'quoted-printable-decode-region "qp" "\ 23122(autoload 'quoted-printable-decode-region "qp" "\
@@ -23124,7 +23139,7 @@ them into characters should be done separately.
23124;;;;;; quail-defrule quail-install-decode-map quail-install-map 23139;;;;;; quail-defrule quail-install-decode-map quail-install-map
23125;;;;;; quail-define-rules quail-show-keyboard-layout quail-set-keyboard-layout 23140;;;;;; quail-define-rules quail-show-keyboard-layout quail-set-keyboard-layout
23126;;;;;; quail-define-package quail-use-package quail-title) "quail" 23141;;;;;; quail-define-package quail-use-package quail-title) "quail"
23127;;;;;; "international/quail.el" (20119 34052)) 23142;;;;;; "international/quail.el" (20166 16092))
23128;;; Generated autoloads from international/quail.el 23143;;; Generated autoloads from international/quail.el
23129 23144
23130(autoload 'quail-title "quail" "\ 23145(autoload 'quail-title "quail" "\
@@ -23355,8 +23370,8 @@ of each directory.
23355 23370
23356;;;### (autoloads (quickurl-list quickurl-list-mode quickurl-edit-urls 23371;;;### (autoloads (quickurl-list quickurl-list-mode quickurl-edit-urls
23357;;;;;; quickurl-browse-url-ask quickurl-browse-url quickurl-add-url 23372;;;;;; quickurl-browse-url-ask quickurl-browse-url quickurl-add-url
23358;;;;;; quickurl-ask quickurl) "quickurl" "net/quickurl.el" (20119 23373;;;;;; quickurl-ask quickurl) "quickurl" "net/quickurl.el" (20168
23359;;;;;; 34052)) 23374;;;;;; 57844))
23360;;; Generated autoloads from net/quickurl.el 23375;;; Generated autoloads from net/quickurl.el
23361 23376
23362(defconst quickurl-reread-hook-postfix "\n;; Local Variables:\n;; eval: (progn (require 'quickurl) (add-hook 'local-write-file-hooks (lambda () (quickurl-read) nil)))\n;; End:\n" "\ 23377(defconst quickurl-reread-hook-postfix "\n;; Local Variables:\n;; eval: (progn (require 'quickurl) (add-hook 'local-write-file-hooks (lambda () (quickurl-read) nil)))\n;; End:\n" "\
@@ -23428,7 +23443,7 @@ Display `quickurl-list' as a formatted list using `quickurl-list-mode'.
23428;;;*** 23443;;;***
23429 23444
23430;;;### (autoloads (rcirc-track-minor-mode rcirc-connect rcirc) "rcirc" 23445;;;### (autoloads (rcirc-track-minor-mode rcirc-connect rcirc) "rcirc"
23431;;;;;; "net/rcirc.el" (20138 51043)) 23446;;;;;; "net/rcirc.el" (20170 13157))
23432;;; Generated autoloads from net/rcirc.el 23447;;; Generated autoloads from net/rcirc.el
23433 23448
23434(autoload 'rcirc "rcirc" "\ 23449(autoload 'rcirc "rcirc" "\
@@ -23463,8 +23478,8 @@ Global minor mode for tracking activity in rcirc buffers.
23463 23478
23464;;;*** 23479;;;***
23465 23480
23466;;;### (autoloads (remote-compile) "rcompile" "net/rcompile.el" (20119 23481;;;### (autoloads (remote-compile) "rcompile" "net/rcompile.el" (19845
23467;;;;;; 34052)) 23482;;;;;; 45374))
23468;;; Generated autoloads from net/rcompile.el 23483;;; Generated autoloads from net/rcompile.el
23469 23484
23470(autoload 'remote-compile "rcompile" "\ 23485(autoload 'remote-compile "rcompile" "\
@@ -23476,7 +23491,7 @@ See \\[compile].
23476;;;*** 23491;;;***
23477 23492
23478;;;### (autoloads (re-builder) "re-builder" "emacs-lisp/re-builder.el" 23493;;;### (autoloads (re-builder) "re-builder" "emacs-lisp/re-builder.el"
23479;;;;;; (20119 34052)) 23494;;;;;; (19975 1875))
23480;;; Generated autoloads from emacs-lisp/re-builder.el 23495;;; Generated autoloads from emacs-lisp/re-builder.el
23481 23496
23482(defalias 'regexp-builder 're-builder) 23497(defalias 'regexp-builder 're-builder)
@@ -23494,7 +23509,7 @@ matching parts of the target buffer will be highlighted.
23494 23509
23495;;;*** 23510;;;***
23496 23511
23497;;;### (autoloads (recentf-mode) "recentf" "recentf.el" (20126 50335)) 23512;;;### (autoloads (recentf-mode) "recentf" "recentf.el" (20167 36967))
23498;;; Generated autoloads from recentf.el 23513;;; Generated autoloads from recentf.el
23499 23514
23500(defvar recentf-mode nil "\ 23515(defvar recentf-mode nil "\
@@ -23524,7 +23539,7 @@ were operated on recently.
23524;;;;;; string-rectangle delete-whitespace-rectangle open-rectangle 23539;;;;;; string-rectangle delete-whitespace-rectangle open-rectangle
23525;;;;;; insert-rectangle yank-rectangle kill-rectangle extract-rectangle 23540;;;;;; insert-rectangle yank-rectangle kill-rectangle extract-rectangle
23526;;;;;; delete-extract-rectangle delete-rectangle) "rect" "rect.el" 23541;;;;;; delete-extract-rectangle delete-rectangle) "rect" "rect.el"
23527;;;;;; (20119 34052)) 23542;;;;;; (19999 41597))
23528;;; Generated autoloads from rect.el 23543;;; Generated autoloads from rect.el
23529 (define-key ctl-x-r-map "c" 'clear-rectangle) 23544 (define-key ctl-x-r-map "c" 'clear-rectangle)
23530 (define-key ctl-x-r-map "k" 'kill-rectangle) 23545 (define-key ctl-x-r-map "k" 'kill-rectangle)
@@ -23661,7 +23676,7 @@ with a prefix argument, prompt for START-AT and FORMAT.
23661;;;*** 23676;;;***
23662 23677
23663;;;### (autoloads (refill-mode) "refill" "textmodes/refill.el" (20127 23678;;;### (autoloads (refill-mode) "refill" "textmodes/refill.el" (20127
23664;;;;;; 24416)) 23679;;;;;; 62865))
23665;;; Generated autoloads from textmodes/refill.el 23680;;; Generated autoloads from textmodes/refill.el
23666 23681
23667(autoload 'refill-mode "refill" "\ 23682(autoload 'refill-mode "refill" "\
@@ -23682,7 +23697,7 @@ For true \"word wrap\" behavior, use `visual-line-mode' instead.
23682;;;*** 23697;;;***
23683 23698
23684;;;### (autoloads (reftex-reset-scanning-information reftex-mode 23699;;;### (autoloads (reftex-reset-scanning-information reftex-mode
23685;;;;;; turn-on-reftex) "reftex" "textmodes/reftex.el" (20136 50092)) 23700;;;;;; turn-on-reftex) "reftex" "textmodes/reftex.el" (20164 60780))
23686;;; Generated autoloads from textmodes/reftex.el 23701;;; Generated autoloads from textmodes/reftex.el
23687 23702
23688(autoload 'turn-on-reftex "reftex" "\ 23703(autoload 'turn-on-reftex "reftex" "\
@@ -23738,7 +23753,7 @@ This enforces rescanning the buffer on next use.
23738;;;*** 23753;;;***
23739 23754
23740;;;### (autoloads (reftex-citation) "reftex-cite" "textmodes/reftex-cite.el" 23755;;;### (autoloads (reftex-citation) "reftex-cite" "textmodes/reftex-cite.el"
23741;;;;;; (20119 34052)) 23756;;;;;; (20168 57844))
23742;;; Generated autoloads from textmodes/reftex-cite.el 23757;;; Generated autoloads from textmodes/reftex-cite.el
23743 23758
23744(autoload 'reftex-citation "reftex-cite" "\ 23759(autoload 'reftex-citation "reftex-cite" "\
@@ -23768,7 +23783,7 @@ While entering the regexp, completion on knows citation keys is possible.
23768;;;*** 23783;;;***
23769 23784
23770;;;### (autoloads (reftex-isearch-minor-mode) "reftex-global" "textmodes/reftex-global.el" 23785;;;### (autoloads (reftex-isearch-minor-mode) "reftex-global" "textmodes/reftex-global.el"
23771;;;;;; (20119 34052)) 23786;;;;;; (20164 60780))
23772;;; Generated autoloads from textmodes/reftex-global.el 23787;;; Generated autoloads from textmodes/reftex-global.el
23773 23788
23774(autoload 'reftex-isearch-minor-mode "reftex-global" "\ 23789(autoload 'reftex-isearch-minor-mode "reftex-global" "\
@@ -23785,7 +23800,7 @@ With no argument, this command toggles
23785;;;*** 23800;;;***
23786 23801
23787;;;### (autoloads (reftex-index-phrases-mode) "reftex-index" "textmodes/reftex-index.el" 23802;;;### (autoloads (reftex-index-phrases-mode) "reftex-index" "textmodes/reftex-index.el"
23788;;;;;; (20119 34052)) 23803;;;;;; (20162 63140))
23789;;; Generated autoloads from textmodes/reftex-index.el 23804;;; Generated autoloads from textmodes/reftex-index.el
23790 23805
23791(autoload 'reftex-index-phrases-mode "reftex-index" "\ 23806(autoload 'reftex-index-phrases-mode "reftex-index" "\
@@ -23818,7 +23833,7 @@ Here are all local bindings.
23818;;;*** 23833;;;***
23819 23834
23820;;;### (autoloads (reftex-all-document-files) "reftex-parse" "textmodes/reftex-parse.el" 23835;;;### (autoloads (reftex-all-document-files) "reftex-parse" "textmodes/reftex-parse.el"
23821;;;;;; (20119 34052)) 23836;;;;;; (20161 45793))
23822;;; Generated autoloads from textmodes/reftex-parse.el 23837;;; Generated autoloads from textmodes/reftex-parse.el
23823 23838
23824(autoload 'reftex-all-document-files "reftex-parse" "\ 23839(autoload 'reftex-all-document-files "reftex-parse" "\
@@ -23830,8 +23845,8 @@ of master file.
23830 23845
23831;;;*** 23846;;;***
23832 23847
23833;;;### (autoloads nil "reftex-vars" "textmodes/reftex-vars.el" (20119 23848;;;### (autoloads nil "reftex-vars" "textmodes/reftex-vars.el" (19845
23834;;;;;; 34052)) 23849;;;;;; 45374))
23835;;; Generated autoloads from textmodes/reftex-vars.el 23850;;; Generated autoloads from textmodes/reftex-vars.el
23836(put 'reftex-vref-is-default 'safe-local-variable (lambda (x) (or (stringp x) (symbolp x)))) 23851(put 'reftex-vref-is-default 'safe-local-variable (lambda (x) (or (stringp x) (symbolp x))))
23837(put 'reftex-fref-is-default 'safe-local-variable (lambda (x) (or (stringp x) (symbolp x)))) 23852(put 'reftex-fref-is-default 'safe-local-variable (lambda (x) (or (stringp x) (symbolp x))))
@@ -23841,7 +23856,7 @@ of master file.
23841;;;*** 23856;;;***
23842 23857
23843;;;### (autoloads (regexp-opt-depth regexp-opt) "regexp-opt" "emacs-lisp/regexp-opt.el" 23858;;;### (autoloads (regexp-opt-depth regexp-opt) "regexp-opt" "emacs-lisp/regexp-opt.el"
23844;;;;;; (20119 34052)) 23859;;;;;; (19845 45374))
23845;;; Generated autoloads from emacs-lisp/regexp-opt.el 23860;;; Generated autoloads from emacs-lisp/regexp-opt.el
23846 23861
23847(autoload 'regexp-opt "regexp-opt" "\ 23862(autoload 'regexp-opt "regexp-opt" "\
@@ -23872,7 +23887,7 @@ This means the number of non-shy regexp grouping constructs
23872 23887
23873;;;### (autoloads (remember-diary-extract-entries remember-clipboard 23888;;;### (autoloads (remember-diary-extract-entries remember-clipboard
23874;;;;;; remember-other-frame remember) "remember" "textmodes/remember.el" 23889;;;;;; remember-other-frame remember) "remember" "textmodes/remember.el"
23875;;;;;; (20119 34052)) 23890;;;;;; (20161 45793))
23876;;; Generated autoloads from textmodes/remember.el 23891;;; Generated autoloads from textmodes/remember.el
23877 23892
23878(autoload 'remember "remember" "\ 23893(autoload 'remember "remember" "\
@@ -23903,7 +23918,7 @@ Extract diary entries from the region.
23903 23918
23904;;;*** 23919;;;***
23905 23920
23906;;;### (autoloads (repeat) "repeat" "repeat.el" (20119 34052)) 23921;;;### (autoloads (repeat) "repeat" "repeat.el" (20172 54913))
23907;;; Generated autoloads from repeat.el 23922;;; Generated autoloads from repeat.el
23908 23923
23909(autoload 'repeat "repeat" "\ 23924(autoload 'repeat "repeat" "\
@@ -23926,7 +23941,7 @@ recently executed command not bound to an input event\".
23926;;;*** 23941;;;***
23927 23942
23928;;;### (autoloads (reporter-submit-bug-report) "reporter" "mail/reporter.el" 23943;;;### (autoloads (reporter-submit-bug-report) "reporter" "mail/reporter.el"
23929;;;;;; (20119 34052)) 23944;;;;;; (20076 35541))
23930;;; Generated autoloads from mail/reporter.el 23945;;; Generated autoloads from mail/reporter.el
23931 23946
23932(autoload 'reporter-submit-bug-report "reporter" "\ 23947(autoload 'reporter-submit-bug-report "reporter" "\
@@ -23958,7 +23973,7 @@ mail-sending package is used for editing and sending the message.
23958;;;*** 23973;;;***
23959 23974
23960;;;### (autoloads (reposition-window) "reposition" "reposition.el" 23975;;;### (autoloads (reposition-window) "reposition" "reposition.el"
23961;;;;;; (20119 34052)) 23976;;;;;; (19845 45374))
23962;;; Generated autoloads from reposition.el 23977;;; Generated autoloads from reposition.el
23963 23978
23964(autoload 'reposition-window "reposition" "\ 23979(autoload 'reposition-window "reposition" "\
@@ -23985,7 +24000,7 @@ first comment line visible (if point is in a comment).
23985;;;*** 24000;;;***
23986 24001
23987;;;### (autoloads (global-reveal-mode reveal-mode) "reveal" "reveal.el" 24002;;;### (autoloads (global-reveal-mode reveal-mode) "reveal" "reveal.el"
23988;;;;;; (20126 50360)) 24003;;;;;; (20127 62865))
23989;;; Generated autoloads from reveal.el 24004;;; Generated autoloads from reveal.el
23990 24005
23991(autoload 'reveal-mode "reveal" "\ 24006(autoload 'reveal-mode "reveal" "\
@@ -24021,7 +24036,7 @@ the mode if ARG is omitted or nil.
24021;;;*** 24036;;;***
24022 24037
24023;;;### (autoloads (make-ring ring-p) "ring" "emacs-lisp/ring.el" 24038;;;### (autoloads (make-ring ring-p) "ring" "emacs-lisp/ring.el"
24024;;;;;; (20119 34052)) 24039;;;;;; (19845 45374))
24025;;; Generated autoloads from emacs-lisp/ring.el 24040;;; Generated autoloads from emacs-lisp/ring.el
24026 24041
24027(autoload 'ring-p "ring" "\ 24042(autoload 'ring-p "ring" "\
@@ -24036,7 +24051,7 @@ Make a ring that can contain SIZE elements.
24036 24051
24037;;;*** 24052;;;***
24038 24053
24039;;;### (autoloads (rlogin) "rlogin" "net/rlogin.el" (20119 34052)) 24054;;;### (autoloads (rlogin) "rlogin" "net/rlogin.el" (20077 56412))
24040;;; Generated autoloads from net/rlogin.el 24055;;; Generated autoloads from net/rlogin.el
24041 24056
24042(autoload 'rlogin "rlogin" "\ 24057(autoload 'rlogin "rlogin" "\
@@ -24085,7 +24100,7 @@ variable.
24085;;;;;; rmail-secondary-file-directory rmail-primary-inbox-list rmail-highlighted-headers 24100;;;;;; rmail-secondary-file-directory rmail-primary-inbox-list rmail-highlighted-headers
24086;;;;;; rmail-retry-ignored-headers rmail-displayed-headers rmail-ignored-headers 24101;;;;;; rmail-retry-ignored-headers rmail-displayed-headers rmail-ignored-headers
24087;;;;;; rmail-user-mail-address-regexp rmail-movemail-variant-p) 24102;;;;;; rmail-user-mail-address-regexp rmail-movemail-variant-p)
24088;;;;;; "rmail" "mail/rmail.el" (20138 48832)) 24103;;;;;; "rmail" "mail/rmail.el" (20174 10633))
24089;;; Generated autoloads from mail/rmail.el 24104;;; Generated autoloads from mail/rmail.el
24090 24105
24091(autoload 'rmail-movemail-variant-p "rmail" "\ 24106(autoload 'rmail-movemail-variant-p "rmail" "\
@@ -24183,8 +24198,8 @@ This is set to nil by default.")
24183 24198
24184(defvar rmail-insert-mime-forwarded-message-function nil "\ 24199(defvar rmail-insert-mime-forwarded-message-function nil "\
24185Function to insert a message in MIME format so it can be forwarded. 24200Function to insert a message in MIME format so it can be forwarded.
24186This function is called if `rmail-enable-mime' or 24201This function is called if `rmail-enable-mime' and
24187`rmail-enable-mime-composing' is non-nil. 24202`rmail-enable-mime-composing' are non-nil.
24188It is called with one argument FORWARD-BUFFER, which is a 24203It is called with one argument FORWARD-BUFFER, which is a
24189buffer containing the message to forward. The current buffer 24204buffer containing the message to forward. The current buffer
24190is the outgoing mail buffer.") 24205is the outgoing mail buffer.")
@@ -24269,7 +24284,7 @@ Set PASSWORD to be used for retrieving mail from a POP or IMAP server.
24269;;;*** 24284;;;***
24270 24285
24271;;;### (autoloads (rmail-output-body-to-file rmail-output-as-seen 24286;;;### (autoloads (rmail-output-body-to-file rmail-output-as-seen
24272;;;;;; rmail-output) "rmailout" "mail/rmailout.el" (20119 34052)) 24287;;;;;; rmail-output) "rmailout" "mail/rmailout.el" (20172 54913))
24273;;; Generated autoloads from mail/rmailout.el 24288;;; Generated autoloads from mail/rmailout.el
24274(put 'rmail-output-file-alist 'risky-local-variable t) 24289(put 'rmail-output-file-alist 'risky-local-variable t)
24275 24290
@@ -24334,7 +24349,7 @@ than appending to it. Deletes the message after writing if
24334;;;*** 24349;;;***
24335 24350
24336;;;### (autoloads (rng-c-load-schema) "rng-cmpct" "nxml/rng-cmpct.el" 24351;;;### (autoloads (rng-c-load-schema) "rng-cmpct" "nxml/rng-cmpct.el"
24337;;;;;; (20119 34052)) 24352;;;;;; (19845 45374))
24338;;; Generated autoloads from nxml/rng-cmpct.el 24353;;; Generated autoloads from nxml/rng-cmpct.el
24339 24354
24340(autoload 'rng-c-load-schema "rng-cmpct" "\ 24355(autoload 'rng-c-load-schema "rng-cmpct" "\
@@ -24346,7 +24361,7 @@ Return a pattern.
24346;;;*** 24361;;;***
24347 24362
24348;;;### (autoloads (rng-nxml-mode-init) "rng-nxml" "nxml/rng-nxml.el" 24363;;;### (autoloads (rng-nxml-mode-init) "rng-nxml" "nxml/rng-nxml.el"
24349;;;;;; (20119 34052)) 24364;;;;;; (19845 45374))
24350;;; Generated autoloads from nxml/rng-nxml.el 24365;;; Generated autoloads from nxml/rng-nxml.el
24351 24366
24352(autoload 'rng-nxml-mode-init "rng-nxml" "\ 24367(autoload 'rng-nxml-mode-init "rng-nxml" "\
@@ -24359,7 +24374,7 @@ Validation will be enabled if `rng-nxml-auto-validate-flag' is non-nil.
24359;;;*** 24374;;;***
24360 24375
24361;;;### (autoloads (rng-validate-mode) "rng-valid" "nxml/rng-valid.el" 24376;;;### (autoloads (rng-validate-mode) "rng-valid" "nxml/rng-valid.el"
24362;;;;;; (20119 34052)) 24377;;;;;; (20178 7273))
24363;;; Generated autoloads from nxml/rng-valid.el 24378;;; Generated autoloads from nxml/rng-valid.el
24364 24379
24365(autoload 'rng-validate-mode "rng-valid" "\ 24380(autoload 'rng-validate-mode "rng-valid" "\
@@ -24377,7 +24392,7 @@ will be automatically rechecked when Emacs becomes idle; the
24377rechecking will be paused whenever there is input pending. 24392rechecking will be paused whenever there is input pending.
24378 24393
24379By default, uses a vacuous schema that allows any well-formed XML 24394By default, uses a vacuous schema that allows any well-formed XML
24380document. A schema can be specified explictly using 24395document. A schema can be specified explicitly using
24381\\[rng-set-schema-file-and-validate], or implicitly based on the buffer's 24396\\[rng-set-schema-file-and-validate], or implicitly based on the buffer's
24382file name or on the root element name. In each case the schema must 24397file name or on the root element name. In each case the schema must
24383be a RELAX NG schema using the compact schema (such schemas 24398be a RELAX NG schema using the compact schema (such schemas
@@ -24389,8 +24404,8 @@ to use for finding the schema.
24389 24404
24390;;;*** 24405;;;***
24391 24406
24392;;;### (autoloads (rng-xsd-compile) "rng-xsd" "nxml/rng-xsd.el" (20119 24407;;;### (autoloads (rng-xsd-compile) "rng-xsd" "nxml/rng-xsd.el" (19930
24393;;;;;; 34052)) 24408;;;;;; 13389))
24394;;; Generated autoloads from nxml/rng-xsd.el 24409;;; Generated autoloads from nxml/rng-xsd.el
24395 24410
24396(put 'http://www\.w3\.org/2001/XMLSchema-datatypes 'rng-dt-compile 'rng-xsd-compile) 24411(put 'http://www\.w3\.org/2001/XMLSchema-datatypes 'rng-dt-compile 'rng-xsd-compile)
@@ -24418,7 +24433,7 @@ must be equal.
24418;;;*** 24433;;;***
24419 24434
24420;;;### (autoloads (robin-use-package robin-modify-package robin-define-package) 24435;;;### (autoloads (robin-use-package robin-modify-package robin-define-package)
24421;;;;;; "robin" "international/robin.el" (20119 34052)) 24436;;;;;; "robin" "international/robin.el" (20159 42847))
24422;;; Generated autoloads from international/robin.el 24437;;; Generated autoloads from international/robin.el
24423 24438
24424(autoload 'robin-define-package "robin" "\ 24439(autoload 'robin-define-package "robin" "\
@@ -24451,7 +24466,7 @@ Start using robin package NAME, which is a string.
24451;;;*** 24466;;;***
24452 24467
24453;;;### (autoloads (toggle-rot13-mode rot13-other-window rot13-region 24468;;;### (autoloads (toggle-rot13-mode rot13-other-window rot13-region
24454;;;;;; rot13-string rot13) "rot13" "rot13.el" (20119 34052)) 24469;;;;;; rot13-string rot13) "rot13" "rot13.el" (20154 24929))
24455;;; Generated autoloads from rot13.el 24470;;; Generated autoloads from rot13.el
24456 24471
24457(autoload 'rot13 "rot13" "\ 24472(autoload 'rot13 "rot13" "\
@@ -24489,7 +24504,7 @@ Toggle the use of ROT13 encoding for the current window.
24489;;;*** 24504;;;***
24490 24505
24491;;;### (autoloads (rst-minor-mode rst-mode) "rst" "textmodes/rst.el" 24506;;;### (autoloads (rst-minor-mode rst-mode) "rst" "textmodes/rst.el"
24492;;;;;; (20127 24234)) 24507;;;;;; (20178 7273))
24493;;; Generated autoloads from textmodes/rst.el 24508;;; Generated autoloads from textmodes/rst.el
24494 (add-to-list 'auto-mode-alist (purecopy '("\\.re?st\\'" . rst-mode))) 24509 (add-to-list 'auto-mode-alist (purecopy '("\\.re?st\\'" . rst-mode)))
24495 24510
@@ -24526,7 +24541,7 @@ for modes derived from Text mode, like Mail mode.
24526;;;*** 24541;;;***
24527 24542
24528;;;### (autoloads (ruby-mode) "ruby-mode" "progmodes/ruby-mode.el" 24543;;;### (autoloads (ruby-mode) "ruby-mode" "progmodes/ruby-mode.el"
24529;;;;;; (20119 34052)) 24544;;;;;; (19845 45374))
24530;;; Generated autoloads from progmodes/ruby-mode.el 24545;;; Generated autoloads from progmodes/ruby-mode.el
24531 24546
24532(autoload 'ruby-mode "ruby-mode" "\ 24547(autoload 'ruby-mode "ruby-mode" "\
@@ -24547,8 +24562,8 @@ The variable `ruby-indent-level' controls the amount of indentation.
24547 24562
24548;;;*** 24563;;;***
24549 24564
24550;;;### (autoloads (ruler-mode) "ruler-mode" "ruler-mode.el" (20126 24565;;;### (autoloads (ruler-mode) "ruler-mode" "ruler-mode.el" (20127
24551;;;;;; 50390)) 24566;;;;;; 62865))
24552;;; Generated autoloads from ruler-mode.el 24567;;; Generated autoloads from ruler-mode.el
24553 24568
24554(defvar ruler-mode nil "\ 24569(defvar ruler-mode nil "\
@@ -24565,8 +24580,8 @@ if ARG is omitted or nil.
24565 24580
24566;;;*** 24581;;;***
24567 24582
24568;;;### (autoloads (rx rx-to-string) "rx" "emacs-lisp/rx.el" (20119 24583;;;### (autoloads (rx rx-to-string) "rx" "emacs-lisp/rx.el" (20161
24569;;;;;; 34052)) 24584;;;;;; 45793))
24570;;; Generated autoloads from emacs-lisp/rx.el 24585;;; Generated autoloads from emacs-lisp/rx.el
24571 24586
24572(autoload 'rx-to-string "rx" "\ 24587(autoload 'rx-to-string "rx" "\
@@ -24877,8 +24892,8 @@ enclosed in `(and ...)'.
24877 24892
24878;;;*** 24893;;;***
24879 24894
24880;;;### (autoloads (savehist-mode) "savehist" "savehist.el" (20126 24895;;;### (autoloads (savehist-mode) "savehist" "savehist.el" (20127
24881;;;;;; 50398)) 24896;;;;;; 62865))
24882;;; Generated autoloads from savehist.el 24897;;; Generated autoloads from savehist.el
24883 24898
24884(defvar savehist-mode nil "\ 24899(defvar savehist-mode nil "\
@@ -24910,7 +24925,7 @@ histories, which is probably undesirable.
24910;;;*** 24925;;;***
24911 24926
24912;;;### (autoloads (dsssl-mode scheme-mode) "scheme" "progmodes/scheme.el" 24927;;;### (autoloads (dsssl-mode scheme-mode) "scheme" "progmodes/scheme.el"
24913;;;;;; (20119 34052)) 24928;;;;;; (20079 39251))
24914;;; Generated autoloads from progmodes/scheme.el 24929;;; Generated autoloads from progmodes/scheme.el
24915 24930
24916(autoload 'scheme-mode "scheme" "\ 24931(autoload 'scheme-mode "scheme" "\
@@ -24952,7 +24967,7 @@ that variable's value is a string.
24952;;;*** 24967;;;***
24953 24968
24954;;;### (autoloads (gnus-score-mode) "score-mode" "gnus/score-mode.el" 24969;;;### (autoloads (gnus-score-mode) "score-mode" "gnus/score-mode.el"
24955;;;;;; (20119 34052)) 24970;;;;;; (19845 45374))
24956;;; Generated autoloads from gnus/score-mode.el 24971;;; Generated autoloads from gnus/score-mode.el
24957 24972
24958(autoload 'gnus-score-mode "score-mode" "\ 24973(autoload 'gnus-score-mode "score-mode" "\
@@ -24966,7 +24981,7 @@ This mode is an extended emacs-lisp mode.
24966;;;*** 24981;;;***
24967 24982
24968;;;### (autoloads (scroll-all-mode) "scroll-all" "scroll-all.el" 24983;;;### (autoloads (scroll-all-mode) "scroll-all" "scroll-all.el"
24969;;;;;; (20126 50406)) 24984;;;;;; (20127 62865))
24970;;; Generated autoloads from scroll-all.el 24985;;; Generated autoloads from scroll-all.el
24971 24986
24972(defvar scroll-all-mode nil "\ 24987(defvar scroll-all-mode nil "\
@@ -24992,7 +25007,7 @@ one window apply to all visible windows in the same frame.
24992;;;*** 25007;;;***
24993 25008
24994;;;### (autoloads (scroll-lock-mode) "scroll-lock" "scroll-lock.el" 25009;;;### (autoloads (scroll-lock-mode) "scroll-lock" "scroll-lock.el"
24995;;;;;; (20126 43719)) 25010;;;;;; (19845 45374))
24996;;; Generated autoloads from scroll-lock.el 25011;;; Generated autoloads from scroll-lock.el
24997 25012
24998(autoload 'scroll-lock-mode "scroll-lock" "\ 25013(autoload 'scroll-lock-mode "scroll-lock" "\
@@ -25006,7 +25021,7 @@ during scrolling.
25006 25021
25007;;;*** 25022;;;***
25008 25023
25009;;;### (autoloads nil "secrets" "net/secrets.el" (20119 34052)) 25024;;;### (autoloads nil "secrets" "net/secrets.el" (20175 31160))
25010;;; Generated autoloads from net/secrets.el 25025;;; Generated autoloads from net/secrets.el
25011(when (featurep 'dbusbind) 25026(when (featurep 'dbusbind)
25012 (autoload 'secrets-show-secrets "secrets" nil t)) 25027 (autoload 'secrets-show-secrets "secrets" nil t))
@@ -25014,7 +25029,7 @@ during scrolling.
25014;;;*** 25029;;;***
25015 25030
25016;;;### (autoloads (semantic-mode semantic-default-submodes) "semantic" 25031;;;### (autoloads (semantic-mode semantic-default-submodes) "semantic"
25017;;;;;; "cedet/semantic.el" (20127 23255)) 25032;;;;;; "cedet/semantic.el" (20172 54913))
25018;;; Generated autoloads from cedet/semantic.el 25033;;; Generated autoloads from cedet/semantic.el
25019 25034
25020(defvar semantic-default-submodes '(global-semantic-idle-scheduler-mode global-semanticdb-minor-mode) "\ 25035(defvar semantic-default-submodes '(global-semantic-idle-scheduler-mode global-semanticdb-minor-mode) "\
@@ -25068,7 +25083,7 @@ Semantic mode.
25068;;;;;; mail-personal-alias-file mail-default-reply-to mail-archive-file-name 25083;;;;;; mail-personal-alias-file mail-default-reply-to mail-archive-file-name
25069;;;;;; mail-header-separator send-mail-function mail-interactive 25084;;;;;; mail-header-separator send-mail-function mail-interactive
25070;;;;;; mail-self-blind mail-specify-envelope-from mail-from-style) 25085;;;;;; mail-self-blind mail-specify-envelope-from mail-from-style)
25071;;;;;; "sendmail" "mail/sendmail.el" (20121 46524)) 25086;;;;;; "sendmail" "mail/sendmail.el" (20122 44898))
25072;;; Generated autoloads from mail/sendmail.el 25087;;; Generated autoloads from mail/sendmail.el
25073 25088
25074(defvar mail-from-style 'default "\ 25089(defvar mail-from-style 'default "\
@@ -25350,8 +25365,8 @@ Like `mail' command, but display mail buffer in another frame.
25350;;;*** 25365;;;***
25351 25366
25352;;;### (autoloads (server-save-buffers-kill-terminal server-mode 25367;;;### (autoloads (server-save-buffers-kill-terminal server-mode
25353;;;;;; server-force-delete server-start) "server" "server.el" (20126 25368;;;;;; server-force-delete server-start) "server" "server.el" (20172
25354;;;;;; 50430)) 25369;;;;;; 54913))
25355;;; Generated autoloads from server.el 25370;;; Generated autoloads from server.el
25356 25371
25357(put 'server-host 'risky-local-variable t) 25372(put 'server-host 'risky-local-variable t)
@@ -25418,7 +25433,7 @@ only these files will be asked to be saved.
25418 25433
25419;;;*** 25434;;;***
25420 25435
25421;;;### (autoloads (ses-mode) "ses" "ses.el" (20119 34052)) 25436;;;### (autoloads (ses-mode) "ses" "ses.el" (20172 54913))
25422;;; Generated autoloads from ses.el 25437;;; Generated autoloads from ses.el
25423 25438
25424(autoload 'ses-mode "ses" "\ 25439(autoload 'ses-mode "ses" "\
@@ -25437,7 +25452,7 @@ These are active only in the minibuffer, when entering or editing a formula:
25437;;;*** 25452;;;***
25438 25453
25439;;;### (autoloads (html-mode sgml-mode) "sgml-mode" "textmodes/sgml-mode.el" 25454;;;### (autoloads (html-mode sgml-mode) "sgml-mode" "textmodes/sgml-mode.el"
25440;;;;;; (20127 24193)) 25455;;;;;; (20167 36967))
25441;;; Generated autoloads from textmodes/sgml-mode.el 25456;;; Generated autoloads from textmodes/sgml-mode.el
25442 25457
25443(autoload 'sgml-mode "sgml-mode" "\ 25458(autoload 'sgml-mode "sgml-mode" "\
@@ -25503,7 +25518,7 @@ To work around that, do:
25503;;;*** 25518;;;***
25504 25519
25505;;;### (autoloads (sh-mode) "sh-script" "progmodes/sh-script.el" 25520;;;### (autoloads (sh-mode) "sh-script" "progmodes/sh-script.el"
25506;;;;;; (20120 43373)) 25521;;;;;; (20168 57844))
25507;;; Generated autoloads from progmodes/sh-script.el 25522;;; Generated autoloads from progmodes/sh-script.el
25508(put 'sh-shell 'safe-local-variable 'symbolp) 25523(put 'sh-shell 'safe-local-variable 'symbolp)
25509 25524
@@ -25568,7 +25583,7 @@ with your script for an edit-interpret-debug cycle.
25568;;;*** 25583;;;***
25569 25584
25570;;;### (autoloads (list-load-path-shadows) "shadow" "emacs-lisp/shadow.el" 25585;;;### (autoloads (list-load-path-shadows) "shadow" "emacs-lisp/shadow.el"
25571;;;;;; (20119 34052)) 25586;;;;;; (19845 45374))
25572;;; Generated autoloads from emacs-lisp/shadow.el 25587;;; Generated autoloads from emacs-lisp/shadow.el
25573 25588
25574(autoload 'list-load-path-shadows "shadow" "\ 25589(autoload 'list-load-path-shadows "shadow" "\
@@ -25618,8 +25633,8 @@ function, `load-path-shadows-find'.
25618;;;*** 25633;;;***
25619 25634
25620;;;### (autoloads (shadow-initialize shadow-define-regexp-group shadow-define-literal-group 25635;;;### (autoloads (shadow-initialize shadow-define-regexp-group shadow-define-literal-group
25621;;;;;; shadow-define-cluster) "shadowfile" "shadowfile.el" (20119 25636;;;;;; shadow-define-cluster) "shadowfile" "shadowfile.el" (19886
25622;;;;;; 34052)) 25637;;;;;; 45771))
25623;;; Generated autoloads from shadowfile.el 25638;;; Generated autoloads from shadowfile.el
25624 25639
25625(autoload 'shadow-define-cluster "shadowfile" "\ 25640(autoload 'shadow-define-cluster "shadowfile" "\
@@ -25658,7 +25673,7 @@ Set up file shadowing.
25658;;;*** 25673;;;***
25659 25674
25660;;;### (autoloads (shell shell-dumb-shell-regexp) "shell" "shell.el" 25675;;;### (autoloads (shell shell-dumb-shell-regexp) "shell" "shell.el"
25661;;;;;; (20126 50438)) 25676;;;;;; (20168 57844))
25662;;; Generated autoloads from shell.el 25677;;; Generated autoloads from shell.el
25663 25678
25664(defvar shell-dumb-shell-regexp (purecopy "cmd\\(proxy\\)?\\.exe") "\ 25679(defvar shell-dumb-shell-regexp (purecopy "cmd\\(proxy\\)?\\.exe") "\
@@ -25706,8 +25721,8 @@ Otherwise, one argument `-i' is passed to the shell.
25706 25721
25707;;;*** 25722;;;***
25708 25723
25709;;;### (autoloads (shr-insert-document) "shr" "gnus/shr.el" (20119 25724;;;### (autoloads (shr-insert-document) "shr" "gnus/shr.el" (20172
25710;;;;;; 34052)) 25725;;;;;; 54913))
25711;;; Generated autoloads from gnus/shr.el 25726;;; Generated autoloads from gnus/shr.el
25712 25727
25713(autoload 'shr-insert-document "shr" "\ 25728(autoload 'shr-insert-document "shr" "\
@@ -25718,7 +25733,7 @@ Otherwise, one argument `-i' is passed to the shell.
25718;;;*** 25733;;;***
25719 25734
25720;;;### (autoloads (sieve-upload-and-bury sieve-upload sieve-manage) 25735;;;### (autoloads (sieve-upload-and-bury sieve-upload sieve-manage)
25721;;;;;; "sieve" "gnus/sieve.el" (20119 34052)) 25736;;;;;; "sieve" "gnus/sieve.el" (20165 31925))
25722;;; Generated autoloads from gnus/sieve.el 25737;;; Generated autoloads from gnus/sieve.el
25723 25738
25724(autoload 'sieve-manage "sieve" "\ 25739(autoload 'sieve-manage "sieve" "\
@@ -25739,7 +25754,7 @@ Otherwise, one argument `-i' is passed to the shell.
25739;;;*** 25754;;;***
25740 25755
25741;;;### (autoloads (sieve-mode) "sieve-mode" "gnus/sieve-mode.el" 25756;;;### (autoloads (sieve-mode) "sieve-mode" "gnus/sieve-mode.el"
25742;;;;;; (20119 34052)) 25757;;;;;; (19845 45374))
25743;;; Generated autoloads from gnus/sieve-mode.el 25758;;; Generated autoloads from gnus/sieve-mode.el
25744 25759
25745(autoload 'sieve-mode "sieve-mode" "\ 25760(autoload 'sieve-mode "sieve-mode" "\
@@ -25754,8 +25769,8 @@ Turning on Sieve mode runs `sieve-mode-hook'.
25754 25769
25755;;;*** 25770;;;***
25756 25771
25757;;;### (autoloads (simula-mode) "simula" "progmodes/simula.el" (20119 25772;;;### (autoloads (simula-mode) "simula" "progmodes/simula.el" (19890
25758;;;;;; 34052)) 25773;;;;;; 42850))
25759;;; Generated autoloads from progmodes/simula.el 25774;;; Generated autoloads from progmodes/simula.el
25760 25775
25761(autoload 'simula-mode "simula" "\ 25776(autoload 'simula-mode "simula" "\
@@ -25804,7 +25819,7 @@ with no arguments, if that value is non-nil.
25804;;;*** 25819;;;***
25805 25820
25806;;;### (autoloads (skeleton-pair-insert-maybe skeleton-insert skeleton-proxy-new 25821;;;### (autoloads (skeleton-pair-insert-maybe skeleton-insert skeleton-proxy-new
25807;;;;;; define-skeleton) "skeleton" "skeleton.el" (20119 34052)) 25822;;;;;; define-skeleton) "skeleton" "skeleton.el" (19845 45374))
25808;;; Generated autoloads from skeleton.el 25823;;; Generated autoloads from skeleton.el
25809 25824
25810(defvar skeleton-filter-function 'identity "\ 25825(defvar skeleton-filter-function 'identity "\
@@ -25914,7 +25929,7 @@ symmetrical ones, and the same character twice for the others.
25914;;;*** 25929;;;***
25915 25930
25916;;;### (autoloads (smerge-start-session smerge-mode smerge-ediff) 25931;;;### (autoloads (smerge-start-session smerge-mode smerge-ediff)
25917;;;;;; "smerge-mode" "vc/smerge-mode.el" (20119 34052)) 25932;;;;;; "smerge-mode" "vc/smerge-mode.el" (19946 1612))
25918;;; Generated autoloads from vc/smerge-mode.el 25933;;; Generated autoloads from vc/smerge-mode.el
25919 25934
25920(autoload 'smerge-ediff "smerge-mode" "\ 25935(autoload 'smerge-ediff "smerge-mode" "\
@@ -25939,7 +25954,7 @@ If no conflict maker is found, turn off `smerge-mode'.
25939;;;*** 25954;;;***
25940 25955
25941;;;### (autoloads (smiley-buffer smiley-region) "smiley" "gnus/smiley.el" 25956;;;### (autoloads (smiley-buffer smiley-region) "smiley" "gnus/smiley.el"
25942;;;;;; (20119 34052)) 25957;;;;;; (19939 28373))
25943;;; Generated autoloads from gnus/smiley.el 25958;;; Generated autoloads from gnus/smiley.el
25944 25959
25945(autoload 'smiley-region "smiley" "\ 25960(autoload 'smiley-region "smiley" "\
@@ -25957,7 +25972,7 @@ interactively. If there's no argument, do it at the current buffer.
25957;;;*** 25972;;;***
25958 25973
25959;;;### (autoloads (smtpmail-send-queued-mail smtpmail-send-it) "smtpmail" 25974;;;### (autoloads (smtpmail-send-queued-mail smtpmail-send-it) "smtpmail"
25960;;;;;; "mail/smtpmail.el" (20119 34052)) 25975;;;;;; "mail/smtpmail.el" (20168 57844))
25961;;; Generated autoloads from mail/smtpmail.el 25976;;; Generated autoloads from mail/smtpmail.el
25962 25977
25963(autoload 'smtpmail-send-it "smtpmail" "\ 25978(autoload 'smtpmail-send-it "smtpmail" "\
@@ -25972,7 +25987,7 @@ Send mail that was queued as a result of setting `smtpmail-queue-mail'.
25972 25987
25973;;;*** 25988;;;***
25974 25989
25975;;;### (autoloads (snake) "snake" "play/snake.el" (20119 34052)) 25990;;;### (autoloads (snake) "snake" "play/snake.el" (19845 45374))
25976;;; Generated autoloads from play/snake.el 25991;;; Generated autoloads from play/snake.el
25977 25992
25978(autoload 'snake "snake" "\ 25993(autoload 'snake "snake" "\
@@ -25996,7 +26011,7 @@ Snake mode keybindings:
25996;;;*** 26011;;;***
25997 26012
25998;;;### (autoloads (snmpv2-mode snmp-mode) "snmp-mode" "net/snmp-mode.el" 26013;;;### (autoloads (snmpv2-mode snmp-mode) "snmp-mode" "net/snmp-mode.el"
25999;;;;;; (20119 34052)) 26014;;;;;; (20161 45793))
26000;;; Generated autoloads from net/snmp-mode.el 26015;;; Generated autoloads from net/snmp-mode.el
26001 26016
26002(autoload 'snmp-mode "snmp-mode" "\ 26017(autoload 'snmp-mode "snmp-mode" "\
@@ -26025,8 +26040,8 @@ then `snmpv2-mode-hook'.
26025 26040
26026;;;*** 26041;;;***
26027 26042
26028;;;### (autoloads (sunrise-sunset) "solar" "calendar/solar.el" (20119 26043;;;### (autoloads (sunrise-sunset) "solar" "calendar/solar.el" (19886
26029;;;;;; 34052)) 26044;;;;;; 45771))
26030;;; Generated autoloads from calendar/solar.el 26045;;; Generated autoloads from calendar/solar.el
26031 26046
26032(autoload 'sunrise-sunset "solar" "\ 26047(autoload 'sunrise-sunset "solar" "\
@@ -26041,8 +26056,8 @@ This function is suitable for execution in a .emacs file.
26041 26056
26042;;;*** 26057;;;***
26043 26058
26044;;;### (autoloads (solitaire) "solitaire" "play/solitaire.el" (20119 26059;;;### (autoloads (solitaire) "solitaire" "play/solitaire.el" (20165
26045;;;;;; 34052)) 26060;;;;;; 31925))
26046;;; Generated autoloads from play/solitaire.el 26061;;; Generated autoloads from play/solitaire.el
26047 26062
26048(autoload 'solitaire "solitaire" "\ 26063(autoload 'solitaire "solitaire" "\
@@ -26119,7 +26134,7 @@ Pick your favorite shortcuts:
26119 26134
26120;;;### (autoloads (reverse-region sort-columns sort-regexp-fields 26135;;;### (autoloads (reverse-region sort-columns sort-regexp-fields
26121;;;;;; sort-fields sort-numeric-fields sort-pages sort-paragraphs 26136;;;;;; sort-fields sort-numeric-fields sort-pages sort-paragraphs
26122;;;;;; sort-lines sort-subr) "sort" "sort.el" (20119 34052)) 26137;;;;;; sort-lines sort-subr) "sort" "sort.el" (19845 45374))
26123;;; Generated autoloads from sort.el 26138;;; Generated autoloads from sort.el
26124(put 'sort-fold-case 'safe-local-variable 'booleanp) 26139(put 'sort-fold-case 'safe-local-variable 'booleanp)
26125 26140
@@ -26263,8 +26278,8 @@ From a program takes two point or marker arguments, BEG and END.
26263 26278
26264;;;*** 26279;;;***
26265 26280
26266;;;### (autoloads (spam-initialize) "spam" "gnus/spam.el" (20119 26281;;;### (autoloads (spam-initialize) "spam" "gnus/spam.el" (20167
26267;;;;;; 34052)) 26282;;;;;; 36967))
26268;;; Generated autoloads from gnus/spam.el 26283;;; Generated autoloads from gnus/spam.el
26269 26284
26270(autoload 'spam-initialize "spam" "\ 26285(autoload 'spam-initialize "spam" "\
@@ -26280,7 +26295,7 @@ installed through `spam-necessary-extra-headers'.
26280 26295
26281;;;### (autoloads (spam-report-deagentize spam-report-agentize spam-report-url-to-file 26296;;;### (autoloads (spam-report-deagentize spam-report-agentize spam-report-url-to-file
26282;;;;;; spam-report-url-ping-mm-url spam-report-process-queue) "spam-report" 26297;;;;;; spam-report-url-ping-mm-url spam-report-process-queue) "spam-report"
26283;;;;;; "gnus/spam-report.el" (20119 34052)) 26298;;;;;; "gnus/spam-report.el" (20166 16092))
26284;;; Generated autoloads from gnus/spam-report.el 26299;;; Generated autoloads from gnus/spam-report.el
26285 26300
26286(autoload 'spam-report-process-queue "spam-report" "\ 26301(autoload 'spam-report-process-queue "spam-report" "\
@@ -26323,7 +26338,7 @@ Spam reports will be queued with the method used when
26323;;;*** 26338;;;***
26324 26339
26325;;;### (autoloads (speedbar-get-focus speedbar-frame-mode) "speedbar" 26340;;;### (autoloads (speedbar-get-focus speedbar-frame-mode) "speedbar"
26326;;;;;; "speedbar.el" (20119 34052)) 26341;;;;;; "speedbar.el" (20178 7273))
26327;;; Generated autoloads from speedbar.el 26342;;; Generated autoloads from speedbar.el
26328 26343
26329(defalias 'speedbar 'speedbar-frame-mode) 26344(defalias 'speedbar 'speedbar-frame-mode)
@@ -26347,8 +26362,8 @@ selected. If the speedbar frame is active, then select the attached frame.
26347 26362
26348;;;*** 26363;;;***
26349 26364
26350;;;### (autoloads (snarf-spooks spook) "spook" "play/spook.el" (20119 26365;;;### (autoloads (snarf-spooks spook) "spook" "play/spook.el" (19845
26351;;;;;; 34052)) 26366;;;;;; 45374))
26352;;; Generated autoloads from play/spook.el 26367;;; Generated autoloads from play/spook.el
26353 26368
26354(autoload 'spook "spook" "\ 26369(autoload 'spook "spook" "\
@@ -26367,7 +26382,7 @@ Return a vector containing the lines from `spook-phrases-file'.
26367;;;;;; sql-ms sql-ingres sql-solid sql-mysql sql-sqlite sql-informix 26382;;;;;; sql-ms sql-ingres sql-solid sql-mysql sql-sqlite sql-informix
26368;;;;;; sql-sybase sql-oracle sql-product-interactive sql-connect 26383;;;;;; sql-sybase sql-oracle sql-product-interactive sql-connect
26369;;;;;; sql-mode sql-help sql-add-product-keywords) "sql" "progmodes/sql.el" 26384;;;;;; sql-mode sql-help sql-add-product-keywords) "sql" "progmodes/sql.el"
26370;;;;;; (20119 34052)) 26385;;;;;; (20178 7273))
26371;;; Generated autoloads from progmodes/sql.el 26386;;; Generated autoloads from progmodes/sql.el
26372 26387
26373(autoload 'sql-add-product-keywords "sql" "\ 26388(autoload 'sql-add-product-keywords "sql" "\
@@ -26863,7 +26878,7 @@ buffer.
26863;;;*** 26878;;;***
26864 26879
26865;;;### (autoloads (srecode-template-mode) "srecode/srt-mode" "cedet/srecode/srt-mode.el" 26880;;;### (autoloads (srecode-template-mode) "srecode/srt-mode" "cedet/srecode/srt-mode.el"
26866;;;;;; (20119 34052)) 26881;;;;;; (20160 63745))
26867;;; Generated autoloads from cedet/srecode/srt-mode.el 26882;;; Generated autoloads from cedet/srecode/srt-mode.el
26868 26883
26869(autoload 'srecode-template-mode "srecode/srt-mode" "\ 26884(autoload 'srecode-template-mode "srecode/srt-mode" "\
@@ -26876,7 +26891,7 @@ Major-mode for writing SRecode macros.
26876;;;*** 26891;;;***
26877 26892
26878;;;### (autoloads (starttls-open-stream) "starttls" "gnus/starttls.el" 26893;;;### (autoloads (starttls-open-stream) "starttls" "gnus/starttls.el"
26879;;;;;; (20119 34052)) 26894;;;;;; (20175 31160))
26880;;; Generated autoloads from gnus/starttls.el 26895;;; Generated autoloads from gnus/starttls.el
26881 26896
26882(autoload 'starttls-open-stream "starttls" "\ 26897(autoload 'starttls-open-stream "starttls" "\
@@ -26893,7 +26908,7 @@ BUFFER is the buffer (or `buffer-name') to associate with the process.
26893Third arg is name of the host to connect to, or its IP address. 26908Third arg is name of the host to connect to, or its IP address.
26894Fourth arg PORT is an integer specifying a port to connect to. 26909Fourth arg PORT is an integer specifying a port to connect to.
26895If `starttls-use-gnutls' is nil, this may also be a service name, but 26910If `starttls-use-gnutls' is nil, this may also be a service name, but
26896GNUTLS requires a port number. 26911GnuTLS requires a port number.
26897 26912
26898\(fn NAME BUFFER HOST PORT)" nil nil) 26913\(fn NAME BUFFER HOST PORT)" nil nil)
26899 26914
@@ -26903,8 +26918,8 @@ GNUTLS requires a port number.
26903;;;;;; strokes-mode strokes-list-strokes strokes-load-user-strokes 26918;;;;;; strokes-mode strokes-list-strokes strokes-load-user-strokes
26904;;;;;; strokes-help strokes-describe-stroke strokes-do-complex-stroke 26919;;;;;; strokes-help strokes-describe-stroke strokes-do-complex-stroke
26905;;;;;; strokes-do-stroke strokes-read-complex-stroke strokes-read-stroke 26920;;;;;; strokes-do-stroke strokes-read-complex-stroke strokes-read-stroke
26906;;;;;; strokes-global-set-stroke) "strokes" "strokes.el" (20126 26921;;;;;; strokes-global-set-stroke) "strokes" "strokes.el" (20127
26907;;;;;; 50576)) 26922;;;;;; 62865))
26908;;; Generated autoloads from strokes.el 26923;;; Generated autoloads from strokes.el
26909 26924
26910(autoload 'strokes-global-set-stroke "strokes" "\ 26925(autoload 'strokes-global-set-stroke "strokes" "\
@@ -27018,7 +27033,7 @@ Read a complex stroke and insert its glyph into the current buffer.
27018;;;*** 27033;;;***
27019 27034
27020;;;### (autoloads (studlify-buffer studlify-word studlify-region) 27035;;;### (autoloads (studlify-buffer studlify-word studlify-region)
27021;;;;;; "studly" "play/studly.el" (20119 34052)) 27036;;;;;; "studly" "play/studly.el" (19845 45374))
27022;;; Generated autoloads from play/studly.el 27037;;; Generated autoloads from play/studly.el
27023 27038
27024(autoload 'studlify-region "studly" "\ 27039(autoload 'studlify-region "studly" "\
@@ -27039,7 +27054,7 @@ Studlify-case the current buffer.
27039;;;*** 27054;;;***
27040 27055
27041;;;### (autoloads (global-subword-mode subword-mode) "subword" "progmodes/subword.el" 27056;;;### (autoloads (global-subword-mode subword-mode) "subword" "progmodes/subword.el"
27042;;;;;; (20127 25236)) 27057;;;;;; (20127 62865))
27043;;; Generated autoloads from progmodes/subword.el 27058;;; Generated autoloads from progmodes/subword.el
27044 27059
27045(autoload 'subword-mode "subword" "\ 27060(autoload 'subword-mode "subword" "\
@@ -27095,7 +27110,7 @@ See `subword-mode' for more information on Subword mode.
27095;;;*** 27110;;;***
27096 27111
27097;;;### (autoloads (sc-cite-original) "supercite" "mail/supercite.el" 27112;;;### (autoloads (sc-cite-original) "supercite" "mail/supercite.el"
27098;;;;;; (20119 34052)) 27113;;;;;; (19931 11784))
27099;;; Generated autoloads from mail/supercite.el 27114;;; Generated autoloads from mail/supercite.el
27100 27115
27101(autoload 'sc-cite-original "supercite" "\ 27116(autoload 'sc-cite-original "supercite" "\
@@ -27127,8 +27142,8 @@ and `sc-post-hook' is run after the guts of this function.
27127 27142
27128;;;*** 27143;;;***
27129 27144
27130;;;### (autoloads (gpm-mouse-mode) "t-mouse" "t-mouse.el" (20126 27145;;;### (autoloads (gpm-mouse-mode) "t-mouse" "t-mouse.el" (20127
27131;;;;;; 50587)) 27146;;;;;; 62865))
27132;;; Generated autoloads from t-mouse.el 27147;;; Generated autoloads from t-mouse.el
27133 27148
27134(define-obsolete-function-alias 't-mouse-mode 'gpm-mouse-mode "23.1") 27149(define-obsolete-function-alias 't-mouse-mode 'gpm-mouse-mode "23.1")
@@ -27156,7 +27171,7 @@ It relies on the `gpm' daemon being activated.
27156 27171
27157;;;*** 27172;;;***
27158 27173
27159;;;### (autoloads (tabify untabify) "tabify" "tabify.el" (20119 34052)) 27174;;;### (autoloads (tabify untabify) "tabify" "tabify.el" (19998 49767))
27160;;; Generated autoloads from tabify.el 27175;;; Generated autoloads from tabify.el
27161 27176
27162(autoload 'untabify "tabify" "\ 27177(autoload 'untabify "tabify" "\
@@ -27191,7 +27206,7 @@ The variable `tab-width' controls the spacing of tab stops.
27191;;;;;; table-recognize table-insert-row-column table-insert-column 27206;;;;;; table-recognize table-insert-row-column table-insert-column
27192;;;;;; table-insert-row table-insert table-point-left-cell-hook 27207;;;;;; table-insert-row table-insert table-point-left-cell-hook
27193;;;;;; table-point-entered-cell-hook table-load-hook table-cell-map-hook) 27208;;;;;; table-point-entered-cell-hook table-load-hook table-cell-map-hook)
27194;;;;;; "table" "textmodes/table.el" (20119 34052)) 27209;;;;;; "table" "textmodes/table.el" (20179 28130))
27195;;; Generated autoloads from textmodes/table.el 27210;;; Generated autoloads from textmodes/table.el
27196 27211
27197(defvar table-cell-map-hook nil "\ 27212(defvar table-cell-map-hook nil "\
@@ -27771,7 +27786,7 @@ companion command to `table-capture' this way.
27771 27786
27772(autoload 'table-release "table" "\ 27787(autoload 'table-release "table" "\
27773Convert a table into plain text by removing the frame from a table. 27788Convert a table into plain text by removing the frame from a table.
27774Remove the frame from a table and inactivate the table. This command 27789Remove the frame from a table and deactivate the table. This command
27775converts a table into plain text without frames. It is a companion to 27790converts a table into plain text without frames. It is a companion to
27776`table-capture' which does the opposite process. 27791`table-capture' which does the opposite process.
27777 27792
@@ -27780,7 +27795,7 @@ converts a table into plain text without frames. It is a companion to
27780;;;*** 27795;;;***
27781 27796
27782;;;### (autoloads (tabulated-list-mode) "tabulated-list" "emacs-lisp/tabulated-list.el" 27797;;;### (autoloads (tabulated-list-mode) "tabulated-list" "emacs-lisp/tabulated-list.el"
27783;;;;;; (20119 34052)) 27798;;;;;; (20170 13157))
27784;;; Generated autoloads from emacs-lisp/tabulated-list.el 27799;;; Generated autoloads from emacs-lisp/tabulated-list.el
27785 27800
27786(autoload 'tabulated-list-mode "tabulated-list" "\ 27801(autoload 'tabulated-list-mode "tabulated-list" "\
@@ -27822,7 +27837,7 @@ as the ewoc pretty-printer.
27822 27837
27823;;;*** 27838;;;***
27824 27839
27825;;;### (autoloads (talk talk-connect) "talk" "talk.el" (20140 44272)) 27840;;;### (autoloads (talk talk-connect) "talk" "talk.el" (20141 9296))
27826;;; Generated autoloads from talk.el 27841;;; Generated autoloads from talk.el
27827 27842
27828(autoload 'talk-connect "talk" "\ 27843(autoload 'talk-connect "talk" "\
@@ -27837,7 +27852,7 @@ Connect to the Emacs talk group from the current X display or tty frame.
27837 27852
27838;;;*** 27853;;;***
27839 27854
27840;;;### (autoloads (tar-mode) "tar-mode" "tar-mode.el" (20129 34168)) 27855;;;### (autoloads (tar-mode) "tar-mode" "tar-mode.el" (20161 45793))
27841;;; Generated autoloads from tar-mode.el 27856;;; Generated autoloads from tar-mode.el
27842 27857
27843(autoload 'tar-mode "tar-mode" "\ 27858(autoload 'tar-mode "tar-mode" "\
@@ -27861,7 +27876,7 @@ See also: variables `tar-update-datestamp' and `tar-anal-blocksize'.
27861;;;*** 27876;;;***
27862 27877
27863;;;### (autoloads (tcl-help-on-word inferior-tcl tcl-mode) "tcl" 27878;;;### (autoloads (tcl-help-on-word inferior-tcl tcl-mode) "tcl"
27864;;;;;; "progmodes/tcl.el" (20119 34052)) 27879;;;;;; "progmodes/tcl.el" (20164 29468))
27865;;; Generated autoloads from progmodes/tcl.el 27880;;; Generated autoloads from progmodes/tcl.el
27866 27881
27867(autoload 'tcl-mode "tcl" "\ 27882(autoload 'tcl-mode "tcl" "\
@@ -27909,7 +27924,7 @@ Prefix argument means invert sense of `tcl-use-smart-word-finder'.
27909 27924
27910;;;*** 27925;;;***
27911 27926
27912;;;### (autoloads (rsh telnet) "telnet" "net/telnet.el" (20119 34052)) 27927;;;### (autoloads (rsh telnet) "telnet" "net/telnet.el" (20077 56412))
27913;;; Generated autoloads from net/telnet.el 27928;;; Generated autoloads from net/telnet.el
27914 27929
27915(autoload 'telnet "telnet" "\ 27930(autoload 'telnet "telnet" "\
@@ -27935,7 +27950,7 @@ Normally input is edited in Emacs and sent a line at a time.
27935;;;*** 27950;;;***
27936 27951
27937;;;### (autoloads (serial-term ansi-term term make-term) "term" "term.el" 27952;;;### (autoloads (serial-term ansi-term term make-term) "term" "term.el"
27938;;;;;; (20119 34052)) 27953;;;;;; (20178 7273))
27939;;; Generated autoloads from term.el 27954;;; Generated autoloads from term.el
27940 27955
27941(autoload 'make-term "term" "\ 27956(autoload 'make-term "term" "\
@@ -27977,8 +27992,8 @@ use in that buffer.
27977 27992
27978;;;*** 27993;;;***
27979 27994
27980;;;### (autoloads (terminal-emulator) "terminal" "terminal.el" (20119 27995;;;### (autoloads (terminal-emulator) "terminal" "terminal.el" (20167
27981;;;;;; 34052)) 27996;;;;;; 36967))
27982;;; Generated autoloads from terminal.el 27997;;; Generated autoloads from terminal.el
27983 27998
27984(autoload 'terminal-emulator "terminal" "\ 27999(autoload 'terminal-emulator "terminal" "\
@@ -28015,7 +28030,7 @@ subprocess started.
28015;;;*** 28030;;;***
28016 28031
28017;;;### (autoloads (testcover-this-defun) "testcover" "emacs-lisp/testcover.el" 28032;;;### (autoloads (testcover-this-defun) "testcover" "emacs-lisp/testcover.el"
28018;;;;;; (20119 34052)) 28033;;;;;; (20172 54913))
28019;;; Generated autoloads from emacs-lisp/testcover.el 28034;;; Generated autoloads from emacs-lisp/testcover.el
28020 28035
28021(autoload 'testcover-this-defun "testcover" "\ 28036(autoload 'testcover-this-defun "testcover" "\
@@ -28025,7 +28040,7 @@ Start coverage on function under point.
28025 28040
28026;;;*** 28041;;;***
28027 28042
28028;;;### (autoloads (tetris) "tetris" "play/tetris.el" (20119 34052)) 28043;;;### (autoloads (tetris) "tetris" "play/tetris.el" (19889 21967))
28029;;; Generated autoloads from play/tetris.el 28044;;; Generated autoloads from play/tetris.el
28030 28045
28031(autoload 'tetris "tetris" "\ 28046(autoload 'tetris "tetris" "\
@@ -28056,7 +28071,7 @@ tetris-mode keybindings:
28056;;;;;; tex-start-commands tex-start-options slitex-run-command latex-run-command 28071;;;;;; tex-start-commands tex-start-options slitex-run-command latex-run-command
28057;;;;;; tex-run-command tex-offer-save tex-main-file tex-first-line-header-regexp 28072;;;;;; tex-run-command tex-offer-save tex-main-file tex-first-line-header-regexp
28058;;;;;; tex-directory tex-shell-file-name) "tex-mode" "textmodes/tex-mode.el" 28073;;;;;; tex-directory tex-shell-file-name) "tex-mode" "textmodes/tex-mode.el"
28059;;;;;; (20134 8463)) 28074;;;;;; (20178 7273))
28060;;; Generated autoloads from textmodes/tex-mode.el 28075;;; Generated autoloads from textmodes/tex-mode.el
28061 28076
28062(defvar tex-shell-file-name nil "\ 28077(defvar tex-shell-file-name nil "\
@@ -28358,7 +28373,7 @@ Major mode to edit DocTeX files.
28358;;;*** 28373;;;***
28359 28374
28360;;;### (autoloads (texi2info texinfo-format-region texinfo-format-buffer) 28375;;;### (autoloads (texi2info texinfo-format-region texinfo-format-buffer)
28361;;;;;; "texinfmt" "textmodes/texinfmt.el" (20119 34052)) 28376;;;;;; "texinfmt" "textmodes/texinfmt.el" (20183 25152))
28362;;; Generated autoloads from textmodes/texinfmt.el 28377;;; Generated autoloads from textmodes/texinfmt.el
28363 28378
28364(autoload 'texinfo-format-buffer "texinfmt" "\ 28379(autoload 'texinfo-format-buffer "texinfmt" "\
@@ -28398,7 +28413,7 @@ if large. You can use `Info-split' to do this manually.
28398;;;*** 28413;;;***
28399 28414
28400;;;### (autoloads (texinfo-mode texinfo-close-quote texinfo-open-quote) 28415;;;### (autoloads (texinfo-mode texinfo-close-quote texinfo-open-quote)
28401;;;;;; "texinfo" "textmodes/texinfo.el" (20119 34052)) 28416;;;;;; "texinfo" "textmodes/texinfo.el" (19845 45374))
28402;;; Generated autoloads from textmodes/texinfo.el 28417;;; Generated autoloads from textmodes/texinfo.el
28403 28418
28404(defvar texinfo-open-quote (purecopy "``") "\ 28419(defvar texinfo-open-quote (purecopy "``") "\
@@ -28484,7 +28499,7 @@ value of `texinfo-mode-hook'.
28484 28499
28485;;;### (autoloads (thai-composition-function thai-compose-buffer 28500;;;### (autoloads (thai-composition-function thai-compose-buffer
28486;;;;;; thai-compose-string thai-compose-region) "thai-util" "language/thai-util.el" 28501;;;;;; thai-compose-string thai-compose-region) "thai-util" "language/thai-util.el"
28487;;;;;; (20119 34052)) 28502;;;;;; (20168 57844))
28488;;; Generated autoloads from language/thai-util.el 28503;;; Generated autoloads from language/thai-util.el
28489 28504
28490(autoload 'thai-compose-region "thai-util" "\ 28505(autoload 'thai-compose-region "thai-util" "\
@@ -28513,7 +28528,7 @@ Compose Thai characters in the current buffer.
28513 28528
28514;;;### (autoloads (list-at-point number-at-point symbol-at-point 28529;;;### (autoloads (list-at-point number-at-point symbol-at-point
28515;;;;;; sexp-at-point thing-at-point bounds-of-thing-at-point forward-thing) 28530;;;;;; sexp-at-point thing-at-point bounds-of-thing-at-point forward-thing)
28516;;;;;; "thingatpt" "thingatpt.el" (20119 34052)) 28531;;;;;; "thingatpt" "thingatpt.el" (19990 55648))
28517;;; Generated autoloads from thingatpt.el 28532;;; Generated autoloads from thingatpt.el
28518 28533
28519(autoload 'forward-thing "thingatpt" "\ 28534(autoload 'forward-thing "thingatpt" "\
@@ -28576,7 +28591,7 @@ Return the Lisp list at point, or nil if none is found.
28576 28591
28577;;;### (autoloads (thumbs-dired-setroot thumbs-dired-show thumbs-dired-show-marked 28592;;;### (autoloads (thumbs-dired-setroot thumbs-dired-show thumbs-dired-show-marked
28578;;;;;; thumbs-show-from-dir thumbs-find-thumb) "thumbs" "thumbs.el" 28593;;;;;; thumbs-show-from-dir thumbs-find-thumb) "thumbs" "thumbs.el"
28579;;;;;; (20119 34052)) 28594;;;;;; (20168 57844))
28580;;; Generated autoloads from thumbs.el 28595;;; Generated autoloads from thumbs.el
28581 28596
28582(autoload 'thumbs-find-thumb "thumbs" "\ 28597(autoload 'thumbs-find-thumb "thumbs" "\
@@ -28614,8 +28629,8 @@ In dired, call the setroot program on the image at point.
28614;;;;;; tibetan-post-read-conversion tibetan-compose-buffer tibetan-decompose-buffer 28629;;;;;; tibetan-post-read-conversion tibetan-compose-buffer tibetan-decompose-buffer
28615;;;;;; tibetan-decompose-string tibetan-decompose-region tibetan-compose-region 28630;;;;;; tibetan-decompose-string tibetan-decompose-region tibetan-compose-region
28616;;;;;; tibetan-compose-string tibetan-transcription-to-tibetan tibetan-tibetan-to-transcription 28631;;;;;; tibetan-compose-string tibetan-transcription-to-tibetan tibetan-tibetan-to-transcription
28617;;;;;; tibetan-char-p) "tibet-util" "language/tibet-util.el" (20119 28632;;;;;; tibetan-char-p) "tibet-util" "language/tibet-util.el" (20175
28618;;;;;; 34052)) 28633;;;;;; 31160))
28619;;; Generated autoloads from language/tibet-util.el 28634;;; Generated autoloads from language/tibet-util.el
28620 28635
28621(autoload 'tibetan-char-p "tibet-util" "\ 28636(autoload 'tibetan-char-p "tibet-util" "\
@@ -28689,7 +28704,7 @@ See also docstring of the function tibetan-compose-region.
28689;;;*** 28704;;;***
28690 28705
28691;;;### (autoloads (tildify-buffer tildify-region) "tildify" "textmodes/tildify.el" 28706;;;### (autoloads (tildify-buffer tildify-region) "tildify" "textmodes/tildify.el"
28692;;;;;; (20119 34052)) 28707;;;;;; (19845 45374))
28693;;; Generated autoloads from textmodes/tildify.el 28708;;; Generated autoloads from textmodes/tildify.el
28694 28709
28695(autoload 'tildify-region "tildify" "\ 28710(autoload 'tildify-region "tildify" "\
@@ -28714,7 +28729,7 @@ This function performs no refilling of the changed text.
28714 28729
28715;;;### (autoloads (emacs-init-time emacs-uptime display-time-world 28730;;;### (autoloads (emacs-init-time emacs-uptime display-time-world
28716;;;;;; display-time-mode display-time display-time-day-and-date) 28731;;;;;; display-time-mode display-time display-time-day-and-date)
28717;;;;;; "time" "time.el" (20126 50604)) 28732;;;;;; "time" "time.el" (20127 62865))
28718;;; Generated autoloads from time.el 28733;;; Generated autoloads from time.el
28719 28734
28720(defvar display-time-day-and-date nil "\ 28735(defvar display-time-day-and-date nil "\
@@ -28780,7 +28795,7 @@ Return a string giving the duration of the Emacs initialization.
28780;;;;;; time-to-day-in-year date-leap-year-p days-between date-to-day 28795;;;;;; time-to-day-in-year date-leap-year-p days-between date-to-day
28781;;;;;; time-add time-subtract time-since days-to-time time-less-p 28796;;;;;; time-add time-subtract time-since days-to-time time-less-p
28782;;;;;; seconds-to-time date-to-time) "time-date" "calendar/time-date.el" 28797;;;;;; seconds-to-time date-to-time) "time-date" "calendar/time-date.el"
28783;;;;;; (20119 34052)) 28798;;;;;; (19885 24894))
28784;;; Generated autoloads from calendar/time-date.el 28799;;; Generated autoloads from calendar/time-date.el
28785 28800
28786(autoload 'date-to-time "time-date" "\ 28801(autoload 'date-to-time "time-date" "\
@@ -28894,7 +28909,7 @@ This function does not work for SECONDS greater than `most-positive-fixnum'.
28894;;;*** 28909;;;***
28895 28910
28896;;;### (autoloads (time-stamp-toggle-active time-stamp) "time-stamp" 28911;;;### (autoloads (time-stamp-toggle-active time-stamp) "time-stamp"
28897;;;;;; "time-stamp.el" (20119 34052)) 28912;;;;;; "time-stamp.el" (20033 22846))
28898;;; Generated autoloads from time-stamp.el 28913;;; Generated autoloads from time-stamp.el
28899(put 'time-stamp-format 'safe-local-variable 'stringp) 28914(put 'time-stamp-format 'safe-local-variable 'stringp)
28900(put 'time-stamp-time-zone 'safe-local-variable 'string-or-null-p) 28915(put 'time-stamp-time-zone 'safe-local-variable 'string-or-null-p)
@@ -28938,7 +28953,7 @@ With ARG, turn time stamping on if and only if arg is positive.
28938;;;;;; timeclock-workday-remaining-string timeclock-reread-log timeclock-query-out 28953;;;;;; timeclock-workday-remaining-string timeclock-reread-log timeclock-query-out
28939;;;;;; timeclock-change timeclock-status-string timeclock-out timeclock-in 28954;;;;;; timeclock-change timeclock-status-string timeclock-out timeclock-in
28940;;;;;; timeclock-modeline-display) "timeclock" "calendar/timeclock.el" 28955;;;;;; timeclock-modeline-display) "timeclock" "calendar/timeclock.el"
28941;;;;;; (20119 34052)) 28956;;;;;; (20165 31925))
28942;;; Generated autoloads from calendar/timeclock.el 28957;;; Generated autoloads from calendar/timeclock.el
28943 28958
28944(autoload 'timeclock-modeline-display "timeclock" "\ 28959(autoload 'timeclock-modeline-display "timeclock" "\
@@ -29038,7 +29053,7 @@ relative only to the time worked today, and not to past time.
29038;;;*** 29053;;;***
29039 29054
29040;;;### (autoloads (batch-titdic-convert titdic-convert) "titdic-cnv" 29055;;;### (autoloads (batch-titdic-convert titdic-convert) "titdic-cnv"
29041;;;;;; "international/titdic-cnv.el" (20119 34052)) 29056;;;;;; "international/titdic-cnv.el" (20175 31160))
29042;;; Generated autoloads from international/titdic-cnv.el 29057;;; Generated autoloads from international/titdic-cnv.el
29043 29058
29044(autoload 'titdic-convert "titdic-cnv" "\ 29059(autoload 'titdic-convert "titdic-cnv" "\
@@ -29061,7 +29076,7 @@ To get complete usage, invoke \"emacs -batch -f batch-titdic-convert -h\".
29061;;;*** 29076;;;***
29062 29077
29063;;;### (autoloads (tmm-prompt tmm-menubar-mouse tmm-menubar) "tmm" 29078;;;### (autoloads (tmm-prompt tmm-menubar-mouse tmm-menubar) "tmm"
29064;;;;;; "tmm.el" (20119 34052)) 29079;;;;;; "tmm.el" (20163 39903))
29065;;; Generated autoloads from tmm.el 29080;;; Generated autoloads from tmm.el
29066 (define-key global-map "\M-`" 'tmm-menubar) 29081 (define-key global-map "\M-`" 'tmm-menubar)
29067 (define-key global-map [menu-bar mouse-1] 'tmm-menubar-mouse) 29082 (define-key global-map [menu-bar mouse-1] 'tmm-menubar-mouse)
@@ -29101,7 +29116,7 @@ Its value should be an event that has a binding in MENU.
29101 29116
29102;;;### (autoloads (todo-show todo-cp todo-mode todo-print todo-top-priorities 29117;;;### (autoloads (todo-show todo-cp todo-mode todo-print todo-top-priorities
29103;;;;;; todo-insert-item todo-add-item-non-interactively todo-add-category) 29118;;;;;; todo-insert-item todo-add-item-non-interactively todo-add-category)
29104;;;;;; "todo-mode" "calendar/todo-mode.el" (20119 34052)) 29119;;;;;; "todo-mode" "calendar/todo-mode.el" (20168 57844))
29105;;; Generated autoloads from calendar/todo-mode.el 29120;;; Generated autoloads from calendar/todo-mode.el
29106 29121
29107(autoload 'todo-add-category "todo-mode" "\ 29122(autoload 'todo-add-category "todo-mode" "\
@@ -29161,7 +29176,7 @@ Show TODO list.
29161 29176
29162;;;### (autoloads (tool-bar-local-item-from-menu tool-bar-add-item-from-menu 29177;;;### (autoloads (tool-bar-local-item-from-menu tool-bar-add-item-from-menu
29163;;;;;; tool-bar-local-item tool-bar-add-item toggle-tool-bar-mode-from-frame) 29178;;;;;; tool-bar-local-item tool-bar-add-item toggle-tool-bar-mode-from-frame)
29164;;;;;; "tool-bar" "tool-bar.el" (20126 50619)) 29179;;;;;; "tool-bar" "tool-bar.el" (20127 62865))
29165;;; Generated autoloads from tool-bar.el 29180;;; Generated autoloads from tool-bar.el
29166 29181
29167(autoload 'toggle-tool-bar-mode-from-frame "tool-bar" "\ 29182(autoload 'toggle-tool-bar-mode-from-frame "tool-bar" "\
@@ -29232,7 +29247,7 @@ holds a keymap.
29232;;;*** 29247;;;***
29233 29248
29234;;;### (autoloads (tpu-edt-on tpu-edt-mode) "tpu-edt" "emulation/tpu-edt.el" 29249;;;### (autoloads (tpu-edt-on tpu-edt-mode) "tpu-edt" "emulation/tpu-edt.el"
29235;;;;;; (20140 44316)) 29250;;;;;; (20141 9296))
29236;;; Generated autoloads from emulation/tpu-edt.el 29251;;; Generated autoloads from emulation/tpu-edt.el
29237 29252
29238(defvar tpu-edt-mode nil "\ 29253(defvar tpu-edt-mode nil "\
@@ -29259,7 +29274,7 @@ Turn on TPU/edt emulation.
29259;;;*** 29274;;;***
29260 29275
29261;;;### (autoloads (tpu-mapper) "tpu-mapper" "emulation/tpu-mapper.el" 29276;;;### (autoloads (tpu-mapper) "tpu-mapper" "emulation/tpu-mapper.el"
29262;;;;;; (20119 34052)) 29277;;;;;; (19845 45374))
29263;;; Generated autoloads from emulation/tpu-mapper.el 29278;;; Generated autoloads from emulation/tpu-mapper.el
29264 29279
29265(autoload 'tpu-mapper "tpu-mapper" "\ 29280(autoload 'tpu-mapper "tpu-mapper" "\
@@ -29293,7 +29308,7 @@ your local X guru can try to figure out why the key is being ignored.
29293 29308
29294;;;*** 29309;;;***
29295 29310
29296;;;### (autoloads (tq-create) "tq" "emacs-lisp/tq.el" (20119 34052)) 29311;;;### (autoloads (tq-create) "tq" "emacs-lisp/tq.el" (19845 45374))
29297;;; Generated autoloads from emacs-lisp/tq.el 29312;;; Generated autoloads from emacs-lisp/tq.el
29298 29313
29299(autoload 'tq-create "tq" "\ 29314(autoload 'tq-create "tq" "\
@@ -29307,7 +29322,7 @@ to a tcp server on another machine.
29307;;;*** 29322;;;***
29308 29323
29309;;;### (autoloads (trace-function-background trace-function trace-buffer) 29324;;;### (autoloads (trace-function-background trace-function trace-buffer)
29310;;;;;; "trace" "emacs-lisp/trace.el" (20119 34052)) 29325;;;;;; "trace" "emacs-lisp/trace.el" (19845 45374))
29311;;; Generated autoloads from emacs-lisp/trace.el 29326;;; Generated autoloads from emacs-lisp/trace.el
29312 29327
29313(defvar trace-buffer (purecopy "*trace-output*") "\ 29328(defvar trace-buffer (purecopy "*trace-output*") "\
@@ -29344,7 +29359,7 @@ BUFFER defaults to `trace-buffer'.
29344;;;### (autoloads (tramp-unload-tramp tramp-completion-handle-file-name-completion 29359;;;### (autoloads (tramp-unload-tramp tramp-completion-handle-file-name-completion
29345;;;;;; tramp-completion-handle-file-name-all-completions tramp-unload-file-name-handlers 29360;;;;;; tramp-completion-handle-file-name-all-completions tramp-unload-file-name-handlers
29346;;;;;; tramp-file-name-handler tramp-syntax tramp-mode) "tramp" 29361;;;;;; tramp-file-name-handler tramp-syntax tramp-mode) "tramp"
29347;;;;;; "net/tramp.el" (20127 27092)) 29362;;;;;; "net/tramp.el" (20179 28130))
29348;;; Generated autoloads from net/tramp.el 29363;;; Generated autoloads from net/tramp.el
29349 29364
29350(defvar tramp-mode t "\ 29365(defvar tramp-mode t "\
@@ -29477,7 +29492,7 @@ Discard Tramp from loading remote files.
29477;;;*** 29492;;;***
29478 29493
29479;;;### (autoloads (tramp-ftp-enable-ange-ftp) "tramp-ftp" "net/tramp-ftp.el" 29494;;;### (autoloads (tramp-ftp-enable-ange-ftp) "tramp-ftp" "net/tramp-ftp.el"
29480;;;;;; (20119 34052)) 29495;;;;;; (19946 29209))
29481;;; Generated autoloads from net/tramp-ftp.el 29496;;; Generated autoloads from net/tramp-ftp.el
29482 29497
29483(autoload 'tramp-ftp-enable-ange-ftp "tramp-ftp" "\ 29498(autoload 'tramp-ftp-enable-ange-ftp "tramp-ftp" "\
@@ -29487,8 +29502,8 @@ Discard Tramp from loading remote files.
29487 29502
29488;;;*** 29503;;;***
29489 29504
29490;;;### (autoloads (help-with-tutorial) "tutorial" "tutorial.el" (20140 29505;;;### (autoloads (help-with-tutorial) "tutorial" "tutorial.el" (20176
29491;;;;;; 41907)) 29506;;;;;; 51947))
29492;;; Generated autoloads from tutorial.el 29507;;; Generated autoloads from tutorial.el
29493 29508
29494(autoload 'help-with-tutorial "tutorial" "\ 29509(autoload 'help-with-tutorial "tutorial" "\
@@ -29513,7 +29528,7 @@ resumed later.
29513;;;*** 29528;;;***
29514 29529
29515;;;### (autoloads (tai-viet-composition-function) "tv-util" "language/tv-util.el" 29530;;;### (autoloads (tai-viet-composition-function) "tv-util" "language/tv-util.el"
29516;;;;;; (20119 34052)) 29531;;;;;; (19845 45374))
29517;;; Generated autoloads from language/tv-util.el 29532;;; Generated autoloads from language/tv-util.el
29518 29533
29519(autoload 'tai-viet-composition-function "tv-util" "\ 29534(autoload 'tai-viet-composition-function "tv-util" "\
@@ -29524,7 +29539,7 @@ resumed later.
29524;;;*** 29539;;;***
29525 29540
29526;;;### (autoloads (2C-split 2C-associate-buffer 2C-two-columns) "two-column" 29541;;;### (autoloads (2C-split 2C-associate-buffer 2C-two-columns) "two-column"
29527;;;;;; "textmodes/two-column.el" (20140 44080)) 29542;;;;;; "textmodes/two-column.el" (20141 9296))
29528;;; Generated autoloads from textmodes/two-column.el 29543;;; Generated autoloads from textmodes/two-column.el
29529 (autoload '2C-command "two-column" () t 'keymap) 29544 (autoload '2C-command "two-column" () t 'keymap)
29530 (global-set-key "\C-x6" '2C-command) 29545 (global-set-key "\C-x6" '2C-command)
@@ -29575,7 +29590,7 @@ First column's text sSs Second column's text
29575;;;;;; type-break type-break-mode type-break-keystroke-threshold 29590;;;;;; type-break type-break-mode type-break-keystroke-threshold
29576;;;;;; type-break-good-break-interval type-break-good-rest-interval 29591;;;;;; type-break-good-break-interval type-break-good-rest-interval
29577;;;;;; type-break-interval type-break-mode) "type-break" "type-break.el" 29592;;;;;; type-break-interval type-break-mode) "type-break" "type-break.el"
29578;;;;;; (20126 50662)) 29593;;;;;; (20127 62865))
29579;;; Generated autoloads from type-break.el 29594;;; Generated autoloads from type-break.el
29580 29595
29581(defvar type-break-mode nil "\ 29596(defvar type-break-mode nil "\
@@ -29757,7 +29772,7 @@ FRAC should be the inverse of the fractional value; for example, a value of
29757 29772
29758;;;*** 29773;;;***
29759 29774
29760;;;### (autoloads (uce-reply-to-uce) "uce" "mail/uce.el" (20119 34052)) 29775;;;### (autoloads (uce-reply-to-uce) "uce" "mail/uce.el" (19845 45374))
29761;;; Generated autoloads from mail/uce.el 29776;;; Generated autoloads from mail/uce.el
29762 29777
29763(autoload 'uce-reply-to-uce "uce" "\ 29778(autoload 'uce-reply-to-uce "uce" "\
@@ -29775,7 +29790,7 @@ You might need to set `uce-mail-reader' before using this.
29775;;;;;; ucs-normalize-NFKC-string ucs-normalize-NFKC-region ucs-normalize-NFKD-string 29790;;;;;; ucs-normalize-NFKC-string ucs-normalize-NFKC-region ucs-normalize-NFKD-string
29776;;;;;; ucs-normalize-NFKD-region ucs-normalize-NFC-string ucs-normalize-NFC-region 29791;;;;;; ucs-normalize-NFKD-region ucs-normalize-NFC-string ucs-normalize-NFC-region
29777;;;;;; ucs-normalize-NFD-string ucs-normalize-NFD-region) "ucs-normalize" 29792;;;;;; ucs-normalize-NFD-string ucs-normalize-NFD-region) "ucs-normalize"
29778;;;;;; "international/ucs-normalize.el" (20119 34052)) 29793;;;;;; "international/ucs-normalize.el" (20052 53218))
29779;;; Generated autoloads from international/ucs-normalize.el 29794;;; Generated autoloads from international/ucs-normalize.el
29780 29795
29781(autoload 'ucs-normalize-NFD-region "ucs-normalize" "\ 29796(autoload 'ucs-normalize-NFD-region "ucs-normalize" "\
@@ -29841,7 +29856,7 @@ Normalize the string STR by the Unicode NFC and Mac OS's HFS Plus.
29841;;;*** 29856;;;***
29842 29857
29843;;;### (autoloads (ununderline-region underline-region) "underline" 29858;;;### (autoloads (ununderline-region underline-region) "underline"
29844;;;;;; "textmodes/underline.el" (20119 34052)) 29859;;;;;; "textmodes/underline.el" (19845 45374))
29845;;; Generated autoloads from textmodes/underline.el 29860;;; Generated autoloads from textmodes/underline.el
29846 29861
29847(autoload 'underline-region "underline" "\ 29862(autoload 'underline-region "underline" "\
@@ -29862,7 +29877,7 @@ which specify the range to operate on.
29862;;;*** 29877;;;***
29863 29878
29864;;;### (autoloads (unrmail batch-unrmail) "unrmail" "mail/unrmail.el" 29879;;;### (autoloads (unrmail batch-unrmail) "unrmail" "mail/unrmail.el"
29865;;;;;; (20119 34052)) 29880;;;;;; (20172 54913))
29866;;; Generated autoloads from mail/unrmail.el 29881;;; Generated autoloads from mail/unrmail.el
29867 29882
29868(autoload 'batch-unrmail "unrmail" "\ 29883(autoload 'batch-unrmail "unrmail" "\
@@ -29881,8 +29896,8 @@ Convert old-style Rmail Babyl file FILE to system inbox format file TO-FILE.
29881 29896
29882;;;*** 29897;;;***
29883 29898
29884;;;### (autoloads (unsafep) "unsafep" "emacs-lisp/unsafep.el" (20119 29899;;;### (autoloads (unsafep) "unsafep" "emacs-lisp/unsafep.el" (19845
29885;;;;;; 34052)) 29900;;;;;; 45374))
29886;;; Generated autoloads from emacs-lisp/unsafep.el 29901;;; Generated autoloads from emacs-lisp/unsafep.el
29887 29902
29888(autoload 'unsafep "unsafep" "\ 29903(autoload 'unsafep "unsafep" "\
@@ -29895,7 +29910,7 @@ UNSAFEP-VARS is a list of symbols with local bindings.
29895;;;*** 29910;;;***
29896 29911
29897;;;### (autoloads (url-retrieve-synchronously url-retrieve) "url" 29912;;;### (autoloads (url-retrieve-synchronously url-retrieve) "url"
29898;;;;;; "url/url.el" (20119 34052)) 29913;;;;;; "url/url.el" (20162 19074))
29899;;; Generated autoloads from url/url.el 29914;;; Generated autoloads from url/url.el
29900 29915
29901(autoload 'url-retrieve "url" "\ 29916(autoload 'url-retrieve "url" "\
@@ -29937,7 +29952,7 @@ no further processing). URL is either a string or a parsed URL.
29937;;;*** 29952;;;***
29938 29953
29939;;;### (autoloads (url-register-auth-scheme url-get-authentication) 29954;;;### (autoloads (url-register-auth-scheme url-get-authentication)
29940;;;;;; "url-auth" "url/url-auth.el" (20119 34052)) 29955;;;;;; "url-auth" "url/url-auth.el" (19845 45374))
29941;;; Generated autoloads from url/url-auth.el 29956;;; Generated autoloads from url/url-auth.el
29942 29957
29943(autoload 'url-get-authentication "url-auth" "\ 29958(autoload 'url-get-authentication "url-auth" "\
@@ -29979,7 +29994,7 @@ RATING a rating between 1 and 10 of the strength of the authentication.
29979;;;*** 29994;;;***
29980 29995
29981;;;### (autoloads (url-cache-extract url-is-cached url-store-in-cache) 29996;;;### (autoloads (url-cache-extract url-is-cached url-store-in-cache)
29982;;;;;; "url-cache" "url/url-cache.el" (20119 34052)) 29997;;;;;; "url-cache" "url/url-cache.el" (19988 13913))
29983;;; Generated autoloads from url/url-cache.el 29998;;; Generated autoloads from url/url-cache.el
29984 29999
29985(autoload 'url-store-in-cache "url-cache" "\ 30000(autoload 'url-store-in-cache "url-cache" "\
@@ -30000,7 +30015,7 @@ Extract FNAM from the local disk cache.
30000 30015
30001;;;*** 30016;;;***
30002 30017
30003;;;### (autoloads (url-cid) "url-cid" "url/url-cid.el" (20119 34052)) 30018;;;### (autoloads (url-cid) "url-cid" "url/url-cid.el" (19845 45374))
30004;;; Generated autoloads from url/url-cid.el 30019;;; Generated autoloads from url/url-cid.el
30005 30020
30006(autoload 'url-cid "url-cid" "\ 30021(autoload 'url-cid "url-cid" "\
@@ -30011,7 +30026,7 @@ Extract FNAM from the local disk cache.
30011;;;*** 30026;;;***
30012 30027
30013;;;### (autoloads (url-dav-vc-registered url-dav-supported-p) "url-dav" 30028;;;### (autoloads (url-dav-vc-registered url-dav-supported-p) "url-dav"
30014;;;;;; "url/url-dav.el" (20119 34052)) 30029;;;;;; "url/url-dav.el" (20168 57844))
30015;;; Generated autoloads from url/url-dav.el 30030;;; Generated autoloads from url/url-dav.el
30016 30031
30017(autoload 'url-dav-supported-p "url-dav" "\ 30032(autoload 'url-dav-supported-p "url-dav" "\
@@ -30026,8 +30041,8 @@ Extract FNAM from the local disk cache.
30026 30041
30027;;;*** 30042;;;***
30028 30043
30029;;;### (autoloads (url-file) "url-file" "url/url-file.el" (20119 30044;;;### (autoloads (url-file) "url-file" "url/url-file.el" (19845
30030;;;;;; 34052)) 30045;;;;;; 45374))
30031;;; Generated autoloads from url/url-file.el 30046;;; Generated autoloads from url/url-file.el
30032 30047
30033(autoload 'url-file "url-file" "\ 30048(autoload 'url-file "url-file" "\
@@ -30038,7 +30053,7 @@ Handle file: and ftp: URLs.
30038;;;*** 30053;;;***
30039 30054
30040;;;### (autoloads (url-open-stream url-gateway-nslookup-host) "url-gw" 30055;;;### (autoloads (url-open-stream url-gateway-nslookup-host) "url-gw"
30041;;;;;; "url/url-gw.el" (20119 34052)) 30056;;;;;; "url/url-gw.el" (19864 29553))
30042;;; Generated autoloads from url/url-gw.el 30057;;; Generated autoloads from url/url-gw.el
30043 30058
30044(autoload 'url-gateway-nslookup-host "url-gw" "\ 30059(autoload 'url-gateway-nslookup-host "url-gw" "\
@@ -30058,7 +30073,7 @@ Might do a non-blocking connection; use `process-status' to check.
30058 30073
30059;;;### (autoloads (url-insert-file-contents url-file-local-copy url-copy-file 30074;;;### (autoloads (url-insert-file-contents url-file-local-copy url-copy-file
30060;;;;;; url-file-handler url-handler-mode) "url-handlers" "url/url-handlers.el" 30075;;;;;; url-file-handler url-handler-mode) "url-handlers" "url/url-handlers.el"
30061;;;;;; (20127 23866)) 30076;;;;;; (20127 62865))
30062;;; Generated autoloads from url/url-handlers.el 30077;;; Generated autoloads from url/url-handlers.el
30063 30078
30064(defvar url-handler-mode nil "\ 30079(defvar url-handler-mode nil "\
@@ -30113,7 +30128,7 @@ accessible.
30113;;;*** 30128;;;***
30114 30129
30115;;;### (autoloads (url-http-options url-http-file-attributes url-http-file-exists-p 30130;;;### (autoloads (url-http-options url-http-file-attributes url-http-file-exists-p
30116;;;;;; url-http) "url-http" "url/url-http.el" (20119 34052)) 30131;;;;;; url-http) "url-http" "url/url-http.el" (20167 36967))
30117;;; Generated autoloads from url/url-http.el 30132;;; Generated autoloads from url/url-http.el
30118 30133
30119(autoload 'url-http "url-http" "\ 30134(autoload 'url-http "url-http" "\
@@ -30179,7 +30194,7 @@ HTTPS retrievals are asynchronous.")
30179 30194
30180;;;*** 30195;;;***
30181 30196
30182;;;### (autoloads (url-irc) "url-irc" "url/url-irc.el" (20119 34052)) 30197;;;### (autoloads (url-irc) "url-irc" "url/url-irc.el" (19845 45374))
30183;;; Generated autoloads from url/url-irc.el 30198;;; Generated autoloads from url/url-irc.el
30184 30199
30185(autoload 'url-irc "url-irc" "\ 30200(autoload 'url-irc "url-irc" "\
@@ -30189,8 +30204,8 @@ HTTPS retrievals are asynchronous.")
30189 30204
30190;;;*** 30205;;;***
30191 30206
30192;;;### (autoloads (url-ldap) "url-ldap" "url/url-ldap.el" (20119 30207;;;### (autoloads (url-ldap) "url-ldap" "url/url-ldap.el" (20164
30193;;;;;; 34052)) 30208;;;;;; 60780))
30194;;; Generated autoloads from url/url-ldap.el 30209;;; Generated autoloads from url/url-ldap.el
30195 30210
30196(autoload 'url-ldap "url-ldap" "\ 30211(autoload 'url-ldap "url-ldap" "\
@@ -30204,7 +30219,7 @@ URL can be a URL string, or a URL vector of the type returned by
30204;;;*** 30219;;;***
30205 30220
30206;;;### (autoloads (url-mailto url-mail) "url-mailto" "url/url-mailto.el" 30221;;;### (autoloads (url-mailto url-mail) "url-mailto" "url/url-mailto.el"
30207;;;;;; (20119 34052)) 30222;;;;;; (19845 45374))
30208;;; Generated autoloads from url/url-mailto.el 30223;;; Generated autoloads from url/url-mailto.el
30209 30224
30210(autoload 'url-mail "url-mailto" "\ 30225(autoload 'url-mail "url-mailto" "\
@@ -30220,7 +30235,7 @@ Handle the mailto: URL syntax.
30220;;;*** 30235;;;***
30221 30236
30222;;;### (autoloads (url-data url-generic-emulator-loader url-info 30237;;;### (autoloads (url-data url-generic-emulator-loader url-info
30223;;;;;; url-man) "url-misc" "url/url-misc.el" (20119 34052)) 30238;;;;;; url-man) "url-misc" "url/url-misc.el" (19845 45374))
30224;;; Generated autoloads from url/url-misc.el 30239;;; Generated autoloads from url/url-misc.el
30225 30240
30226(autoload 'url-man "url-misc" "\ 30241(autoload 'url-man "url-misc" "\
@@ -30252,7 +30267,7 @@ Fetch a data URL (RFC 2397).
30252;;;*** 30267;;;***
30253 30268
30254;;;### (autoloads (url-snews url-news) "url-news" "url/url-news.el" 30269;;;### (autoloads (url-snews url-news) "url-news" "url/url-news.el"
30255;;;;;; (20119 34052)) 30270;;;;;; (19845 45374))
30256;;; Generated autoloads from url/url-news.el 30271;;; Generated autoloads from url/url-news.el
30257 30272
30258(autoload 'url-news "url-news" "\ 30273(autoload 'url-news "url-news" "\
@@ -30269,7 +30284,7 @@ Fetch a data URL (RFC 2397).
30269 30284
30270;;;### (autoloads (url-ns-user-pref url-ns-prefs isInNet isResolvable 30285;;;### (autoloads (url-ns-user-pref url-ns-prefs isInNet isResolvable
30271;;;;;; dnsResolve dnsDomainIs isPlainHostName) "url-ns" "url/url-ns.el" 30286;;;;;; dnsResolve dnsDomainIs isPlainHostName) "url-ns" "url/url-ns.el"
30272;;;;;; (20119 34052)) 30287;;;;;; (19845 45374))
30273;;; Generated autoloads from url/url-ns.el 30288;;; Generated autoloads from url/url-ns.el
30274 30289
30275(autoload 'isPlainHostName "url-ns" "\ 30290(autoload 'isPlainHostName "url-ns" "\
@@ -30310,7 +30325,7 @@ Fetch a data URL (RFC 2397).
30310;;;*** 30325;;;***
30311 30326
30312;;;### (autoloads (url-generic-parse-url url-recreate-url) "url-parse" 30327;;;### (autoloads (url-generic-parse-url url-recreate-url) "url-parse"
30313;;;;;; "url/url-parse.el" (20119 34052)) 30328;;;;;; "url/url-parse.el" (19845 45374))
30314;;; Generated autoloads from url/url-parse.el 30329;;; Generated autoloads from url/url-parse.el
30315 30330
30316(autoload 'url-recreate-url "url-parse" "\ 30331(autoload 'url-recreate-url "url-parse" "\
@@ -30328,7 +30343,7 @@ TYPE USER PASSWORD HOST PORTSPEC FILENAME TARGET ATTRIBUTES FULLNESS.
30328;;;*** 30343;;;***
30329 30344
30330;;;### (autoloads (url-setup-privacy-info) "url-privacy" "url/url-privacy.el" 30345;;;### (autoloads (url-setup-privacy-info) "url-privacy" "url/url-privacy.el"
30331;;;;;; (20119 34052)) 30346;;;;;; (19845 45374))
30332;;; Generated autoloads from url/url-privacy.el 30347;;; Generated autoloads from url/url-privacy.el
30333 30348
30334(autoload 'url-setup-privacy-info "url-privacy" "\ 30349(autoload 'url-setup-privacy-info "url-privacy" "\
@@ -30339,7 +30354,7 @@ Setup variables that expose info about you and your system.
30339;;;*** 30354;;;***
30340 30355
30341;;;### (autoloads (url-queue-retrieve) "url-queue" "url/url-queue.el" 30356;;;### (autoloads (url-queue-retrieve) "url-queue" "url/url-queue.el"
30342;;;;;; (20119 34052)) 30357;;;;;; (19943 25429))
30343;;; Generated autoloads from url/url-queue.el 30358;;; Generated autoloads from url/url-queue.el
30344 30359
30345(autoload 'url-queue-retrieve "url-queue" "\ 30360(autoload 'url-queue-retrieve "url-queue" "\
@@ -30358,7 +30373,7 @@ controls the level of parallelism via the
30358;;;;;; url-pretty-length url-strip-leading-spaces url-eat-trailing-space 30373;;;;;; url-pretty-length url-strip-leading-spaces url-eat-trailing-space
30359;;;;;; url-get-normalized-date url-lazy-message url-normalize-url 30374;;;;;; url-get-normalized-date url-lazy-message url-normalize-url
30360;;;;;; url-insert-entities-in-string url-parse-args url-debug url-debug) 30375;;;;;; url-insert-entities-in-string url-parse-args url-debug url-debug)
30361;;;;;; "url-util" "url/url-util.el" (20119 34052)) 30376;;;;;; "url-util" "url/url-util.el" (19867 59212))
30362;;; Generated autoloads from url/url-util.el 30377;;; Generated autoloads from url/url-util.el
30363 30378
30364(defvar url-debug nil "\ 30379(defvar url-debug nil "\
@@ -30494,7 +30509,7 @@ This uses `url-current-object', set locally to the buffer.
30494;;;*** 30509;;;***
30495 30510
30496;;;### (autoloads (ask-user-about-supersession-threat ask-user-about-lock) 30511;;;### (autoloads (ask-user-about-supersession-threat ask-user-about-lock)
30497;;;;;; "userlock" "userlock.el" (20119 34052)) 30512;;;;;; "userlock" "userlock.el" (19845 45374))
30498;;; Generated autoloads from userlock.el 30513;;; Generated autoloads from userlock.el
30499 30514
30500(autoload 'ask-user-about-lock "userlock" "\ 30515(autoload 'ask-user-about-lock "userlock" "\
@@ -30524,7 +30539,7 @@ The buffer in question is current when this function is called.
30524 30539
30525;;;### (autoloads (utf-7-imap-pre-write-conversion utf-7-pre-write-conversion 30540;;;### (autoloads (utf-7-imap-pre-write-conversion utf-7-pre-write-conversion
30526;;;;;; utf-7-imap-post-read-conversion utf-7-post-read-conversion) 30541;;;;;; utf-7-imap-post-read-conversion utf-7-post-read-conversion)
30527;;;;;; "utf-7" "international/utf-7.el" (20119 34052)) 30542;;;;;; "utf-7" "international/utf-7.el" (19845 45374))
30528;;; Generated autoloads from international/utf-7.el 30543;;; Generated autoloads from international/utf-7.el
30529 30544
30530(autoload 'utf-7-post-read-conversion "utf-7" "\ 30545(autoload 'utf-7-post-read-conversion "utf-7" "\
@@ -30549,7 +30564,7 @@ The buffer in question is current when this function is called.
30549 30564
30550;;;*** 30565;;;***
30551 30566
30552;;;### (autoloads (utf7-encode) "utf7" "gnus/utf7.el" (20119 34052)) 30567;;;### (autoloads (utf7-encode) "utf7" "gnus/utf7.el" (19845 45374))
30553;;; Generated autoloads from gnus/utf7.el 30568;;; Generated autoloads from gnus/utf7.el
30554 30569
30555(autoload 'utf7-encode "utf7" "\ 30570(autoload 'utf7-encode "utf7" "\
@@ -30561,7 +30576,7 @@ Encode UTF-7 STRING. Use IMAP modification if FOR-IMAP is non-nil.
30561 30576
30562;;;### (autoloads (uudecode-decode-region uudecode-decode-region-internal 30577;;;### (autoloads (uudecode-decode-region uudecode-decode-region-internal
30563;;;;;; uudecode-decode-region-external) "uudecode" "mail/uudecode.el" 30578;;;;;; uudecode-decode-region-external) "uudecode" "mail/uudecode.el"
30564;;;;;; (20119 34052)) 30579;;;;;; (19845 45374))
30565;;; Generated autoloads from mail/uudecode.el 30580;;; Generated autoloads from mail/uudecode.el
30566 30581
30567(autoload 'uudecode-decode-region-external "uudecode" "\ 30582(autoload 'uudecode-decode-region-external "uudecode" "\
@@ -30591,8 +30606,8 @@ If FILE-NAME is non-nil, save the result to FILE-NAME.
30591;;;;;; vc-print-log vc-retrieve-tag vc-create-tag vc-merge vc-insert-headers 30606;;;;;; vc-print-log vc-retrieve-tag vc-create-tag vc-merge vc-insert-headers
30592;;;;;; vc-revision-other-window vc-root-diff vc-ediff vc-version-ediff 30607;;;;;; vc-revision-other-window vc-root-diff vc-ediff vc-version-ediff
30593;;;;;; vc-diff vc-version-diff vc-register vc-next-action vc-before-checkin-hook 30608;;;;;; vc-diff vc-version-diff vc-register vc-next-action vc-before-checkin-hook
30594;;;;;; vc-checkin-hook vc-checkout-hook) "vc" "vc/vc.el" (20128 30609;;;;;; vc-checkin-hook vc-checkout-hook) "vc" "vc/vc.el" (20172
30595;;;;;; 38948)) 30610;;;;;; 54913))
30596;;; Generated autoloads from vc/vc.el 30611;;; Generated autoloads from vc/vc.el
30597 30612
30598(defvar vc-checkout-hook nil "\ 30613(defvar vc-checkout-hook nil "\
@@ -30875,7 +30890,7 @@ Return the branch part of a revision number REV.
30875;;;*** 30890;;;***
30876 30891
30877;;;### (autoloads (vc-annotate) "vc-annotate" "vc/vc-annotate.el" 30892;;;### (autoloads (vc-annotate) "vc-annotate" "vc/vc-annotate.el"
30878;;;;;; (20119 34052)) 30893;;;;;; (19920 63959))
30879;;; Generated autoloads from vc/vc-annotate.el 30894;;; Generated autoloads from vc/vc-annotate.el
30880 30895
30881(autoload 'vc-annotate "vc-annotate" "\ 30896(autoload 'vc-annotate "vc-annotate" "\
@@ -30912,7 +30927,7 @@ mode-specific menu. `vc-annotate-color-map' and
30912 30927
30913;;;*** 30928;;;***
30914 30929
30915;;;### (autoloads nil "vc-arch" "vc/vc-arch.el" (20119 34052)) 30930;;;### (autoloads nil "vc-arch" "vc/vc-arch.el" (20168 57844))
30916;;; Generated autoloads from vc/vc-arch.el 30931;;; Generated autoloads from vc/vc-arch.el
30917 (defun vc-arch-registered (file) 30932 (defun vc-arch-registered (file)
30918 (if (vc-find-root file "{arch}/=tagging-method") 30933 (if (vc-find-root file "{arch}/=tagging-method")
@@ -30922,13 +30937,14 @@ mode-specific menu. `vc-annotate-color-map' and
30922 30937
30923;;;*** 30938;;;***
30924 30939
30925;;;### (autoloads nil "vc-bzr" "vc/vc-bzr.el" (20127 27092)) 30940;;;### (autoloads nil "vc-bzr" "vc/vc-bzr.el" (20174 10230))
30926;;; Generated autoloads from vc/vc-bzr.el 30941;;; Generated autoloads from vc/vc-bzr.el
30927 30942
30928(defconst vc-bzr-admin-dirname ".bzr" "\ 30943(defconst vc-bzr-admin-dirname ".bzr" "\
30929Name of the directory containing Bzr repository status files.") 30944Name of the directory containing Bzr repository status files.")
30930 30945
30931(defconst vc-bzr-admin-checkout-format-file (concat vc-bzr-admin-dirname "/checkout/format")) 30946(defconst vc-bzr-admin-checkout-format-file (concat vc-bzr-admin-dirname "/checkout/format") "\
30947Name of the format file in a .bzr directory.")
30932 (defun vc-bzr-registered (file) 30948 (defun vc-bzr-registered (file)
30933 (if (vc-find-root file vc-bzr-admin-checkout-format-file) 30949 (if (vc-find-root file vc-bzr-admin-checkout-format-file)
30934 (progn 30950 (progn
@@ -30937,9 +30953,10 @@ Name of the directory containing Bzr repository status files.")
30937 30953
30938;;;*** 30954;;;***
30939 30955
30940;;;### (autoloads nil "vc-cvs" "vc/vc-cvs.el" (20119 34052)) 30956;;;### (autoloads nil "vc-cvs" "vc/vc-cvs.el" (20174 10230))
30941;;; Generated autoloads from vc/vc-cvs.el 30957;;; Generated autoloads from vc/vc-cvs.el
30942 (defun vc-cvs-registered (f) 30958(defun vc-cvs-registered (f)
30959 "Return non-nil if file F is registered with CVS."
30943 (when (file-readable-p (expand-file-name 30960 (when (file-readable-p (expand-file-name
30944 "CVS/Entries" (file-name-directory f))) 30961 "CVS/Entries" (file-name-directory f)))
30945 (load "vc-cvs") 30962 (load "vc-cvs")
@@ -30947,7 +30964,7 @@ Name of the directory containing Bzr repository status files.")
30947 30964
30948;;;*** 30965;;;***
30949 30966
30950;;;### (autoloads (vc-dir) "vc-dir" "vc/vc-dir.el" (20119 34052)) 30967;;;### (autoloads (vc-dir) "vc-dir" "vc/vc-dir.el" (20168 57844))
30951;;; Generated autoloads from vc/vc-dir.el 30968;;; Generated autoloads from vc/vc-dir.el
30952 30969
30953(autoload 'vc-dir "vc-dir" "\ 30970(autoload 'vc-dir "vc-dir" "\
@@ -30972,7 +30989,7 @@ These are the commands available for use in the file status buffer:
30972;;;*** 30989;;;***
30973 30990
30974;;;### (autoloads (vc-do-command) "vc-dispatcher" "vc/vc-dispatcher.el" 30991;;;### (autoloads (vc-do-command) "vc-dispatcher" "vc/vc-dispatcher.el"
30975;;;;;; (20119 34052)) 30992;;;;;; (20168 57844))
30976;;; Generated autoloads from vc/vc-dispatcher.el 30993;;; Generated autoloads from vc/vc-dispatcher.el
30977 30994
30978(autoload 'vc-do-command "vc-dispatcher" "\ 30995(autoload 'vc-do-command "vc-dispatcher" "\
@@ -30995,7 +31012,7 @@ case, and the process object in the asynchronous case.
30995 31012
30996;;;*** 31013;;;***
30997 31014
30998;;;### (autoloads nil "vc-git" "vc/vc-git.el" (20119 34052)) 31015;;;### (autoloads nil "vc-git" "vc/vc-git.el" (20087 5852))
30999;;; Generated autoloads from vc/vc-git.el 31016;;; Generated autoloads from vc/vc-git.el
31000 (defun vc-git-registered (file) 31017 (defun vc-git-registered (file)
31001 "Return non-nil if FILE is registered with git." 31018 "Return non-nil if FILE is registered with git."
@@ -31006,7 +31023,7 @@ case, and the process object in the asynchronous case.
31006 31023
31007;;;*** 31024;;;***
31008 31025
31009;;;### (autoloads nil "vc-hg" "vc/vc-hg.el" (20119 34052)) 31026;;;### (autoloads nil "vc-hg" "vc/vc-hg.el" (19845 45374))
31010;;; Generated autoloads from vc/vc-hg.el 31027;;; Generated autoloads from vc/vc-hg.el
31011 (defun vc-hg-registered (file) 31028 (defun vc-hg-registered (file)
31012 "Return non-nil if FILE is registered with hg." 31029 "Return non-nil if FILE is registered with hg."
@@ -31017,12 +31034,14 @@ case, and the process object in the asynchronous case.
31017 31034
31018;;;*** 31035;;;***
31019 31036
31020;;;### (autoloads nil "vc-mtn" "vc/vc-mtn.el" (20119 34052)) 31037;;;### (autoloads nil "vc-mtn" "vc/vc-mtn.el" (20174 10230))
31021;;; Generated autoloads from vc/vc-mtn.el 31038;;; Generated autoloads from vc/vc-mtn.el
31022 31039
31023(defconst vc-mtn-admin-dir "_MTN") 31040(defconst vc-mtn-admin-dir "_MTN" "\
31041Name of the monotone directory.")
31024 31042
31025(defconst vc-mtn-admin-format (concat vc-mtn-admin-dir "/format")) 31043(defconst vc-mtn-admin-format (concat vc-mtn-admin-dir "/format") "\
31044Name of the monotone directory's format file.")
31026 (defun vc-mtn-registered (file) 31045 (defun vc-mtn-registered (file)
31027 (if (vc-find-root file vc-mtn-admin-format) 31046 (if (vc-find-root file vc-mtn-admin-format)
31028 (progn 31047 (progn
@@ -31032,7 +31051,7 @@ case, and the process object in the asynchronous case.
31032;;;*** 31051;;;***
31033 31052
31034;;;### (autoloads (vc-rcs-master-templates) "vc-rcs" "vc/vc-rcs.el" 31053;;;### (autoloads (vc-rcs-master-templates) "vc-rcs" "vc/vc-rcs.el"
31035;;;;;; (20119 34052)) 31054;;;;;; (20161 45793))
31036;;; Generated autoloads from vc/vc-rcs.el 31055;;; Generated autoloads from vc/vc-rcs.el
31037 31056
31038(defvar vc-rcs-master-templates (purecopy '("%sRCS/%s,v" "%s%s,v" "%sRCS/%s")) "\ 31057(defvar vc-rcs-master-templates (purecopy '("%sRCS/%s,v" "%s%s,v" "%sRCS/%s")) "\
@@ -31046,7 +31065,7 @@ For a description of possible values, see `vc-check-master-templates'.")
31046;;;*** 31065;;;***
31047 31066
31048;;;### (autoloads (vc-sccs-master-templates) "vc-sccs" "vc/vc-sccs.el" 31067;;;### (autoloads (vc-sccs-master-templates) "vc-sccs" "vc/vc-sccs.el"
31049;;;;;; (20119 34052)) 31068;;;;;; (19845 45374))
31050;;; Generated autoloads from vc/vc-sccs.el 31069;;; Generated autoloads from vc/vc-sccs.el
31051 31070
31052(defvar vc-sccs-master-templates (purecopy '("%sSCCS/s.%s" "%ss.%s" vc-sccs-search-project-dir)) "\ 31071(defvar vc-sccs-master-templates (purecopy '("%sSCCS/s.%s" "%ss.%s" vc-sccs-search-project-dir)) "\
@@ -31063,7 +31082,7 @@ find any project directory." (let ((project-dir (getenv "PROJECTDIR")) dirs dir)
31063 31082
31064;;;*** 31083;;;***
31065 31084
31066;;;### (autoloads nil "vc-svn" "vc/vc-svn.el" (20119 34052)) 31085;;;### (autoloads nil "vc-svn" "vc/vc-svn.el" (20162 19074))
31067;;; Generated autoloads from vc/vc-svn.el 31086;;; Generated autoloads from vc/vc-svn.el
31068 (defun vc-svn-registered (f) 31087 (defun vc-svn-registered (f)
31069 (let ((admin-dir (cond ((and (eq system-type 'windows-nt) 31088 (let ((admin-dir (cond ((and (eq system-type 'windows-nt)
@@ -31077,7 +31096,7 @@ find any project directory." (let ((project-dir (getenv "PROJECTDIR")) dirs dir)
31077;;;*** 31096;;;***
31078 31097
31079;;;### (autoloads (vera-mode) "vera-mode" "progmodes/vera-mode.el" 31098;;;### (autoloads (vera-mode) "vera-mode" "progmodes/vera-mode.el"
31080;;;;;; (20129 34267)) 31099;;;;;; (20131 59880))
31081;;; Generated autoloads from progmodes/vera-mode.el 31100;;; Generated autoloads from progmodes/vera-mode.el
31082 (add-to-list 'auto-mode-alist (cons (purecopy "\\.vr[hi]?\\'") 'vera-mode)) 31101 (add-to-list 'auto-mode-alist (cons (purecopy "\\.vr[hi]?\\'") 'vera-mode))
31083 31102
@@ -31135,7 +31154,7 @@ Key bindings:
31135;;;*** 31154;;;***
31136 31155
31137;;;### (autoloads (verilog-mode) "verilog-mode" "progmodes/verilog-mode.el" 31156;;;### (autoloads (verilog-mode) "verilog-mode" "progmodes/verilog-mode.el"
31138;;;;;; (20119 34052)) 31157;;;;;; (20183 25152))
31139;;; Generated autoloads from progmodes/verilog-mode.el 31158;;; Generated autoloads from progmodes/verilog-mode.el
31140 31159
31141(autoload 'verilog-mode "verilog-mode" "\ 31160(autoload 'verilog-mode "verilog-mode" "\
@@ -31242,6 +31261,8 @@ Some other functions are:
31242 \\[verilog-sk-initial] Insert an initial begin .. end block. 31261 \\[verilog-sk-initial] Insert an initial begin .. end block.
31243 \\[verilog-sk-fork] Insert a fork begin .. end .. join block. 31262 \\[verilog-sk-fork] Insert a fork begin .. end .. join block.
31244 \\[verilog-sk-module] Insert a module .. (/*AUTOARG*/);.. endmodule block. 31263 \\[verilog-sk-module] Insert a module .. (/*AUTOARG*/);.. endmodule block.
31264 \\[verilog-sk-ovm-class] Insert an OVM Class block.
31265 \\[verilog-sk-uvm-class] Insert an UVM Class block.
31245 \\[verilog-sk-primitive] Insert a primitive .. (.. );.. endprimitive block. 31266 \\[verilog-sk-primitive] Insert a primitive .. (.. );.. endprimitive block.
31246 \\[verilog-sk-repeat] Insert a repeat (..) begin .. end block. 31267 \\[verilog-sk-repeat] Insert a repeat (..) begin .. end block.
31247 \\[verilog-sk-specify] Insert a specify .. endspecify block. 31268 \\[verilog-sk-specify] Insert a specify .. endspecify block.
@@ -31272,7 +31293,7 @@ Key bindings specific to `verilog-mode-map' are:
31272;;;*** 31293;;;***
31273 31294
31274;;;### (autoloads (vhdl-mode) "vhdl-mode" "progmodes/vhdl-mode.el" 31295;;;### (autoloads (vhdl-mode) "vhdl-mode" "progmodes/vhdl-mode.el"
31275;;;;;; (20127 25049)) 31296;;;;;; (20168 57844))
31276;;; Generated autoloads from progmodes/vhdl-mode.el 31297;;; Generated autoloads from progmodes/vhdl-mode.el
31277 31298
31278(autoload 'vhdl-mode "vhdl-mode" "\ 31299(autoload 'vhdl-mode "vhdl-mode" "\
@@ -31724,10 +31745,10 @@ Usage:
31724 31745
31725 31746
31726 PRINTING: 31747 PRINTING:
31727 Postscript printing with different faces (an optimized set of faces is 31748 PostScript printing with different faces (an optimized set of faces is
31728 used if `vhdl-print-customize-faces' is non-nil) or colors (if 31749 used if `vhdl-print-customize-faces' is non-nil) or colors (if
31729 `ps-print-color-p' is non-nil) is possible using the standard Emacs 31750 `ps-print-color-p' is non-nil) is possible using the standard Emacs
31730 postscript printing commands. Option `vhdl-print-two-column' defines 31751 PostScript printing commands. Option `vhdl-print-two-column' defines
31731 appropriate default settings for nice landscape two-column printing. 31752 appropriate default settings for nice landscape two-column printing.
31732 The paper format can be set by option `ps-paper-type'. Do not forget to 31753 The paper format can be set by option `ps-paper-type'. Do not forget to
31733 switch `ps-print-color-p' to nil for printing on black-and-white 31754 switch `ps-print-color-p' to nil for printing on black-and-white
@@ -31813,7 +31834,7 @@ Key bindings:
31813 31834
31814;;;*** 31835;;;***
31815 31836
31816;;;### (autoloads (vi-mode) "vi" "emulation/vi.el" (20119 34052)) 31837;;;### (autoloads (vi-mode) "vi" "emulation/vi.el" (20104 14925))
31817;;; Generated autoloads from emulation/vi.el 31838;;; Generated autoloads from emulation/vi.el
31818 31839
31819(autoload 'vi-mode "vi" "\ 31840(autoload 'vi-mode "vi" "\
@@ -31868,7 +31889,7 @@ Syntax table and abbrevs while in vi mode remain as they were in Emacs.
31868;;;### (autoloads (viqr-pre-write-conversion viqr-post-read-conversion 31889;;;### (autoloads (viqr-pre-write-conversion viqr-post-read-conversion
31869;;;;;; viet-encode-viqr-buffer viet-encode-viqr-region viet-decode-viqr-buffer 31890;;;;;; viet-encode-viqr-buffer viet-encode-viqr-region viet-decode-viqr-buffer
31870;;;;;; viet-decode-viqr-region viet-encode-viscii-char) "viet-util" 31891;;;;;; viet-decode-viqr-region viet-encode-viscii-char) "viet-util"
31871;;;;;; "language/viet-util.el" (20119 34052)) 31892;;;;;; "language/viet-util.el" (19845 45374))
31872;;; Generated autoloads from language/viet-util.el 31893;;; Generated autoloads from language/viet-util.el
31873 31894
31874(autoload 'viet-encode-viscii-char "viet-util" "\ 31895(autoload 'viet-encode-viscii-char "viet-util" "\
@@ -31916,7 +31937,7 @@ Convert Vietnamese characters of the current buffer to `VIQR' mnemonics.
31916;;;;;; view-mode view-buffer-other-frame view-buffer-other-window 31937;;;;;; view-mode view-buffer-other-frame view-buffer-other-window
31917;;;;;; view-buffer view-file-other-frame view-file-other-window 31938;;;;;; view-buffer view-file-other-frame view-file-other-window
31918;;;;;; view-file kill-buffer-if-not-modified view-remove-frame-by-deleting) 31939;;;;;; view-file kill-buffer-if-not-modified view-remove-frame-by-deleting)
31919;;;;;; "view" "view.el" (20126 50686)) 31940;;;;;; "view" "view.el" (20174 10230))
31920;;; Generated autoloads from view.el 31941;;; Generated autoloads from view.el
31921 31942
31922(defvar view-remove-frame-by-deleting t "\ 31943(defvar view-remove-frame-by-deleting t "\
@@ -32158,8 +32179,8 @@ Exit View mode and make the current buffer editable.
32158 32179
32159;;;*** 32180;;;***
32160 32181
32161;;;### (autoloads (vip-mode vip-setup) "vip" "emulation/vip.el" (20140 32182;;;### (autoloads (vip-mode vip-setup) "vip" "emulation/vip.el" (20141
32162;;;;;; 44329)) 32183;;;;;; 9296))
32163;;; Generated autoloads from emulation/vip.el 32184;;; Generated autoloads from emulation/vip.el
32164 32185
32165(autoload 'vip-setup "vip" "\ 32186(autoload 'vip-setup "vip" "\
@@ -32175,7 +32196,7 @@ Turn on VIP emulation of VI.
32175;;;*** 32196;;;***
32176 32197
32177;;;### (autoloads (viper-mode toggle-viper-mode) "viper" "emulation/viper.el" 32198;;;### (autoloads (viper-mode toggle-viper-mode) "viper" "emulation/viper.el"
32178;;;;;; (20119 34052)) 32199;;;;;; (20167 36967))
32179;;; Generated autoloads from emulation/viper.el 32200;;; Generated autoloads from emulation/viper.el
32180 32201
32181(autoload 'toggle-viper-mode "viper" "\ 32202(autoload 'toggle-viper-mode "viper" "\
@@ -32192,7 +32213,7 @@ Turn on Viper emulation of Vi in Emacs. See Info node `(viper)Top'.
32192;;;*** 32213;;;***
32193 32214
32194;;;### (autoloads (warn lwarn display-warning) "warnings" "emacs-lisp/warnings.el" 32215;;;### (autoloads (warn lwarn display-warning) "warnings" "emacs-lisp/warnings.el"
32195;;;;;; (20119 34052)) 32216;;;;;; (19906 31087))
32196;;; Generated autoloads from emacs-lisp/warnings.el 32217;;; Generated autoloads from emacs-lisp/warnings.el
32197 32218
32198(defvar warning-prefix-function nil "\ 32219(defvar warning-prefix-function nil "\
@@ -32282,7 +32303,7 @@ this is equivalent to `display-warning', using
32282;;;*** 32303;;;***
32283 32304
32284;;;### (autoloads (wdired-change-to-wdired-mode) "wdired" "wdired.el" 32305;;;### (autoloads (wdired-change-to-wdired-mode) "wdired" "wdired.el"
32285;;;;;; (20119 34052)) 32306;;;;;; (20174 10230))
32286;;; Generated autoloads from wdired.el 32307;;; Generated autoloads from wdired.el
32287 32308
32288(autoload 'wdired-change-to-wdired-mode "wdired" "\ 32309(autoload 'wdired-change-to-wdired-mode "wdired" "\
@@ -32298,7 +32319,7 @@ See `wdired-mode'.
32298 32319
32299;;;*** 32320;;;***
32300 32321
32301;;;### (autoloads (webjump) "webjump" "net/webjump.el" (20119 34052)) 32322;;;### (autoloads (webjump) "webjump" "net/webjump.el" (20159 42847))
32302;;; Generated autoloads from net/webjump.el 32323;;; Generated autoloads from net/webjump.el
32303 32324
32304(autoload 'webjump "webjump" "\ 32325(autoload 'webjump "webjump" "\
@@ -32315,7 +32336,7 @@ Please submit bug reports and other feedback to the author, Neil W. Van Dyke
32315;;;*** 32336;;;***
32316 32337
32317;;;### (autoloads (which-function-mode) "which-func" "progmodes/which-func.el" 32338;;;### (autoloads (which-function-mode) "which-func" "progmodes/which-func.el"
32318;;;;;; (20127 25007)) 32339;;;;;; (20127 62865))
32319;;; Generated autoloads from progmodes/which-func.el 32340;;; Generated autoloads from progmodes/which-func.el
32320 (put 'which-func-format 'risky-local-variable t) 32341 (put 'which-func-format 'risky-local-variable t)
32321 (put 'which-func-current 'risky-local-variable t) 32342 (put 'which-func-current 'risky-local-variable t)
@@ -32348,7 +32369,7 @@ in certain major modes.
32348;;;### (autoloads (whitespace-report-region whitespace-report whitespace-cleanup-region 32369;;;### (autoloads (whitespace-report-region whitespace-report whitespace-cleanup-region
32349;;;;;; whitespace-cleanup global-whitespace-toggle-options whitespace-toggle-options 32370;;;;;; whitespace-cleanup global-whitespace-toggle-options whitespace-toggle-options
32350;;;;;; global-whitespace-newline-mode global-whitespace-mode whitespace-newline-mode 32371;;;;;; global-whitespace-newline-mode global-whitespace-mode whitespace-newline-mode
32351;;;;;; whitespace-mode) "whitespace" "whitespace.el" (20142 405)) 32372;;;;;; whitespace-mode) "whitespace" "whitespace.el" (20176 51947))
32352;;; Generated autoloads from whitespace.el 32373;;; Generated autoloads from whitespace.el
32353 32374
32354(autoload 'whitespace-mode "whitespace" "\ 32375(autoload 'whitespace-mode "whitespace" "\
@@ -32747,7 +32768,7 @@ cleaning up these problems.
32747;;;*** 32768;;;***
32748 32769
32749;;;### (autoloads (widget-minor-mode widget-browse-other-window widget-browse 32770;;;### (autoloads (widget-minor-mode widget-browse-other-window widget-browse
32750;;;;;; widget-browse-at) "wid-browse" "wid-browse.el" (20126 45211)) 32771;;;;;; widget-browse-at) "wid-browse" "wid-browse.el" (20127 62865))
32751;;; Generated autoloads from wid-browse.el 32772;;; Generated autoloads from wid-browse.el
32752 32773
32753(autoload 'widget-browse-at "wid-browse" "\ 32774(autoload 'widget-browse-at "wid-browse" "\
@@ -32773,8 +32794,8 @@ Minor mode for traversing widgets.
32773;;;*** 32794;;;***
32774 32795
32775;;;### (autoloads (widget-setup widget-insert widget-delete widget-create 32796;;;### (autoloads (widget-setup widget-insert widget-delete widget-create
32776;;;;;; widget-prompt-value widgetp) "wid-edit" "wid-edit.el" (20119 32797;;;;;; widget-prompt-value widgetp) "wid-edit" "wid-edit.el" (20162
32777;;;;;; 34052)) 32798;;;;;; 19074))
32778;;; Generated autoloads from wid-edit.el 32799;;; Generated autoloads from wid-edit.el
32779 32800
32780(autoload 'widgetp "wid-edit" "\ 32801(autoload 'widgetp "wid-edit" "\
@@ -32817,8 +32838,8 @@ Setup current buffer so editing string widgets works.
32817;;;*** 32838;;;***
32818 32839
32819;;;### (autoloads (windmove-default-keybindings windmove-down windmove-right 32840;;;### (autoloads (windmove-default-keybindings windmove-down windmove-right
32820;;;;;; windmove-up windmove-left) "windmove" "windmove.el" (20119 32841;;;;;; windmove-up windmove-left) "windmove" "windmove.el" (20161
32821;;;;;; 34052)) 32842;;;;;; 45793))
32822;;; Generated autoloads from windmove.el 32843;;; Generated autoloads from windmove.el
32823 32844
32824(autoload 'windmove-left "windmove" "\ 32845(autoload 'windmove-left "windmove" "\
@@ -32871,7 +32892,7 @@ Default MODIFIER is 'shift.
32871;;;*** 32892;;;***
32872 32893
32873;;;### (autoloads (winner-mode winner-mode) "winner" "winner.el" 32894;;;### (autoloads (winner-mode winner-mode) "winner" "winner.el"
32874;;;;;; (20119 34052)) 32895;;;;;; (19998 49767))
32875;;; Generated autoloads from winner.el 32896;;; Generated autoloads from winner.el
32876 32897
32877(defvar winner-mode nil "\ 32898(defvar winner-mode nil "\
@@ -32890,7 +32911,7 @@ With arg, turn Winner mode on if and only if arg is positive.
32890;;;*** 32911;;;***
32891 32912
32892;;;### (autoloads (woman-bookmark-jump woman-find-file woman-dired-find-file 32913;;;### (autoloads (woman-bookmark-jump woman-find-file woman-dired-find-file
32893;;;;;; woman woman-locale) "woman" "woman.el" (20119 34052)) 32914;;;;;; woman woman-locale) "woman" "woman.el" (20168 57844))
32894;;; Generated autoloads from woman.el 32915;;; Generated autoloads from woman.el
32895 32916
32896(defvar woman-locale nil "\ 32917(defvar woman-locale nil "\
@@ -32939,7 +32960,7 @@ Default bookmark handler for Woman buffers.
32939;;;*** 32960;;;***
32940 32961
32941;;;### (autoloads (wordstar-mode) "ws-mode" "emulation/ws-mode.el" 32962;;;### (autoloads (wordstar-mode) "ws-mode" "emulation/ws-mode.el"
32942;;;;;; (20140 44344)) 32963;;;;;; (20141 9296))
32943;;; Generated autoloads from emulation/ws-mode.el 32964;;; Generated autoloads from emulation/ws-mode.el
32944 32965
32945(autoload 'wordstar-mode "ws-mode" "\ 32966(autoload 'wordstar-mode "ws-mode" "\
@@ -33051,7 +33072,7 @@ The key bindings are:
33051 33072
33052;;;*** 33073;;;***
33053 33074
33054;;;### (autoloads (xesam-search) "xesam" "net/xesam.el" (20127 25788)) 33075;;;### (autoloads (xesam-search) "xesam" "net/xesam.el" (20175 31160))
33055;;; Generated autoloads from net/xesam.el 33076;;; Generated autoloads from net/xesam.el
33056 33077
33057(autoload 'xesam-search "xesam" "\ 33078(autoload 'xesam-search "xesam" "\
@@ -33071,7 +33092,7 @@ Example:
33071;;;*** 33092;;;***
33072 33093
33073;;;### (autoloads (xml-parse-region xml-parse-file) "xml" "xml.el" 33094;;;### (autoloads (xml-parse-region xml-parse-file) "xml" "xml.el"
33074;;;;;; (20119 34052)) 33095;;;;;; (20168 57844))
33075;;; Generated autoloads from xml.el 33096;;; Generated autoloads from xml.el
33076 33097
33077(autoload 'xml-parse-file "xml" "\ 33098(autoload 'xml-parse-file "xml" "\
@@ -33097,7 +33118,7 @@ If PARSE-NS is non-nil, then QNAMES are expanded.
33097;;;*** 33118;;;***
33098 33119
33099;;;### (autoloads (xmltok-get-declared-encoding-position) "xmltok" 33120;;;### (autoloads (xmltok-get-declared-encoding-position) "xmltok"
33100;;;;;; "nxml/xmltok.el" (20119 34052)) 33121;;;;;; "nxml/xmltok.el" (19845 45374))
33101;;; Generated autoloads from nxml/xmltok.el 33122;;; Generated autoloads from nxml/xmltok.el
33102 33123
33103(autoload 'xmltok-get-declared-encoding-position "xmltok" "\ 33124(autoload 'xmltok-get-declared-encoding-position "xmltok" "\
@@ -33115,8 +33136,8 @@ If LIMIT is non-nil, then do not consider characters beyond LIMIT.
33115 33136
33116;;;*** 33137;;;***
33117 33138
33118;;;### (autoloads (xterm-mouse-mode) "xt-mouse" "xt-mouse.el" (20126 33139;;;### (autoloads (xterm-mouse-mode) "xt-mouse" "xt-mouse.el" (20127
33119;;;;;; 50742)) 33140;;;;;; 62865))
33120;;; Generated autoloads from xt-mouse.el 33141;;; Generated autoloads from xt-mouse.el
33121 33142
33122(defvar xterm-mouse-mode nil "\ 33143(defvar xterm-mouse-mode nil "\
@@ -33146,7 +33167,7 @@ down the SHIFT key while pressing the mouse button.
33146;;;*** 33167;;;***
33147 33168
33148;;;### (autoloads (yenc-extract-filename yenc-decode-region) "yenc" 33169;;;### (autoloads (yenc-extract-filename yenc-decode-region) "yenc"
33149;;;;;; "gnus/yenc.el" (20119 34052)) 33170;;;;;; "gnus/yenc.el" (19845 45374))
33150;;; Generated autoloads from gnus/yenc.el 33171;;; Generated autoloads from gnus/yenc.el
33151 33172
33152(autoload 'yenc-decode-region "yenc" "\ 33173(autoload 'yenc-decode-region "yenc" "\
@@ -33162,7 +33183,7 @@ Extract file name from an yenc header.
33162;;;*** 33183;;;***
33163 33184
33164;;;### (autoloads (psychoanalyze-pinhead apropos-zippy insert-zippyism 33185;;;### (autoloads (psychoanalyze-pinhead apropos-zippy insert-zippyism
33165;;;;;; yow) "yow" "play/yow.el" (20119 34052)) 33186;;;;;; yow) "yow" "play/yow.el" (19845 45374))
33166;;; Generated autoloads from play/yow.el 33187;;; Generated autoloads from play/yow.el
33167 33188
33168(autoload 'yow "yow" "\ 33189(autoload 'yow "yow" "\
@@ -33188,7 +33209,7 @@ Zippy goes to the analyst.
33188 33209
33189;;;*** 33210;;;***
33190 33211
33191;;;### (autoloads (zone) "zone" "play/zone.el" (20119 34052)) 33212;;;### (autoloads (zone) "zone" "play/zone.el" (19889 21967))
33192;;; Generated autoloads from play/zone.el 33213;;; Generated autoloads from play/zone.el
33193 33214
33194(autoload 'zone "zone" "\ 33215(autoload 'zone "zone" "\
@@ -33204,46 +33225,47 @@ Zone out, completely.
33204;;;;;; "calc/calc-fin.el" "calc/calc-forms.el" "calc/calc-frac.el" 33225;;;;;; "calc/calc-fin.el" "calc/calc-forms.el" "calc/calc-frac.el"
33205;;;;;; "calc/calc-funcs.el" "calc/calc-graph.el" "calc/calc-help.el" 33226;;;;;; "calc/calc-funcs.el" "calc/calc-graph.el" "calc/calc-help.el"
33206;;;;;; "calc/calc-incom.el" "calc/calc-keypd.el" "calc/calc-lang.el" 33227;;;;;; "calc/calc-incom.el" "calc/calc-keypd.el" "calc/calc-lang.el"
33207;;;;;; "calc/calc-macs.el" "calc/calc-map.el" "calc/calc-math.el" 33228;;;;;; "calc/calc-loaddefs.el" "calc/calc-macs.el" "calc/calc-map.el"
33208;;;;;; "calc/calc-menu.el" "calc/calc-misc.el" "calc/calc-mode.el" 33229;;;;;; "calc/calc-math.el" "calc/calc-menu.el" "calc/calc-misc.el"
33209;;;;;; "calc/calc-mtx.el" "calc/calc-nlfit.el" "calc/calc-poly.el" 33230;;;;;; "calc/calc-mode.el" "calc/calc-mtx.el" "calc/calc-nlfit.el"
33210;;;;;; "calc/calc-prog.el" "calc/calc-rewr.el" "calc/calc-rules.el" 33231;;;;;; "calc/calc-poly.el" "calc/calc-prog.el" "calc/calc-rewr.el"
33211;;;;;; "calc/calc-sel.el" "calc/calc-stat.el" "calc/calc-store.el" 33232;;;;;; "calc/calc-rules.el" "calc/calc-sel.el" "calc/calc-stat.el"
33212;;;;;; "calc/calc-stuff.el" "calc/calc-trail.el" "calc/calc-units.el" 33233;;;;;; "calc/calc-store.el" "calc/calc-stuff.el" "calc/calc-trail.el"
33213;;;;;; "calc/calc-vec.el" "calc/calc-yank.el" "calc/calcalg2.el" 33234;;;;;; "calc/calc-units.el" "calc/calc-vec.el" "calc/calc-yank.el"
33214;;;;;; "calc/calcalg3.el" "calc/calccomp.el" "calc/calcsel2.el" 33235;;;;;; "calc/calcalg2.el" "calc/calcalg3.el" "calc/calccomp.el"
33215;;;;;; "calendar/cal-bahai.el" "calendar/cal-coptic.el" "calendar/cal-french.el" 33236;;;;;; "calc/calcsel2.el" "calendar/cal-bahai.el" "calendar/cal-coptic.el"
33216;;;;;; "calendar/cal-html.el" "calendar/cal-islam.el" "calendar/cal-iso.el" 33237;;;;;; "calendar/cal-french.el" "calendar/cal-html.el" "calendar/cal-islam.el"
33217;;;;;; "calendar/cal-julian.el" "calendar/cal-loaddefs.el" "calendar/cal-mayan.el" 33238;;;;;; "calendar/cal-iso.el" "calendar/cal-julian.el" "calendar/cal-loaddefs.el"
33218;;;;;; "calendar/cal-menu.el" "calendar/cal-move.el" "calendar/cal-persia.el" 33239;;;;;; "calendar/cal-mayan.el" "calendar/cal-menu.el" "calendar/cal-move.el"
33219;;;;;; "calendar/cal-tex.el" "calendar/cal-x.el" "calendar/diary-loaddefs.el" 33240;;;;;; "calendar/cal-persia.el" "calendar/cal-tex.el" "calendar/cal-x.el"
33220;;;;;; "calendar/hol-loaddefs.el" "cdl.el" "cedet/cedet-cscope.el" 33241;;;;;; "calendar/diary-loaddefs.el" "calendar/hol-loaddefs.el" "cdl.el"
33221;;;;;; "cedet/cedet-files.el" "cedet/cedet-global.el" "cedet/cedet-idutils.el" 33242;;;;;; "cedet/cedet-cscope.el" "cedet/cedet-files.el" "cedet/cedet-global.el"
33222;;;;;; "cedet/cedet.el" "cedet/ede/auto.el" "cedet/ede/autoconf-edit.el" 33243;;;;;; "cedet/cedet-idutils.el" "cedet/cedet.el" "cedet/ede/auto.el"
33223;;;;;; "cedet/ede/base.el" "cedet/ede/cpp-root.el" "cedet/ede/custom.el" 33244;;;;;; "cedet/ede/autoconf-edit.el" "cedet/ede/base.el" "cedet/ede/cpp-root.el"
33224;;;;;; "cedet/ede/dired.el" "cedet/ede/emacs.el" "cedet/ede/files.el" 33245;;;;;; "cedet/ede/custom.el" "cedet/ede/dired.el" "cedet/ede/emacs.el"
33225;;;;;; "cedet/ede/generic.el" "cedet/ede/linux.el" "cedet/ede/locate.el" 33246;;;;;; "cedet/ede/files.el" "cedet/ede/generic.el" "cedet/ede/linux.el"
33226;;;;;; "cedet/ede/make.el" "cedet/ede/makefile-edit.el" "cedet/ede/pconf.el" 33247;;;;;; "cedet/ede/loaddefs.el" "cedet/ede/locate.el" "cedet/ede/make.el"
33227;;;;;; "cedet/ede/pmake.el" "cedet/ede/proj-archive.el" "cedet/ede/proj-aux.el" 33248;;;;;; "cedet/ede/makefile-edit.el" "cedet/ede/pconf.el" "cedet/ede/pmake.el"
33228;;;;;; "cedet/ede/proj-comp.el" "cedet/ede/proj-elisp.el" "cedet/ede/proj-info.el" 33249;;;;;; "cedet/ede/proj-archive.el" "cedet/ede/proj-aux.el" "cedet/ede/proj-comp.el"
33229;;;;;; "cedet/ede/proj-misc.el" "cedet/ede/proj-obj.el" "cedet/ede/proj-prog.el" 33250;;;;;; "cedet/ede/proj-elisp.el" "cedet/ede/proj-info.el" "cedet/ede/proj-misc.el"
33230;;;;;; "cedet/ede/proj-scheme.el" "cedet/ede/proj-shared.el" "cedet/ede/proj.el" 33251;;;;;; "cedet/ede/proj-obj.el" "cedet/ede/proj-prog.el" "cedet/ede/proj-scheme.el"
33231;;;;;; "cedet/ede/project-am.el" "cedet/ede/shell.el" "cedet/ede/simple.el" 33252;;;;;; "cedet/ede/proj-shared.el" "cedet/ede/proj.el" "cedet/ede/project-am.el"
33232;;;;;; "cedet/ede/source.el" "cedet/ede/speedbar.el" "cedet/ede/srecode.el" 33253;;;;;; "cedet/ede/shell.el" "cedet/ede/simple.el" "cedet/ede/source.el"
33233;;;;;; "cedet/ede/system.el" "cedet/ede/util.el" "cedet/inversion.el" 33254;;;;;; "cedet/ede/speedbar.el" "cedet/ede/srecode.el" "cedet/ede/system.el"
33234;;;;;; "cedet/mode-local.el" "cedet/pulse.el" "cedet/semantic/analyze.el" 33255;;;;;; "cedet/ede/util.el" "cedet/inversion.el" "cedet/mode-local.el"
33235;;;;;; "cedet/semantic/analyze/complete.el" "cedet/semantic/analyze/debug.el" 33256;;;;;; "cedet/pulse.el" "cedet/semantic/analyze.el" "cedet/semantic/analyze/complete.el"
33236;;;;;; "cedet/semantic/analyze/fcn.el" "cedet/semantic/analyze/refs.el" 33257;;;;;; "cedet/semantic/analyze/debug.el" "cedet/semantic/analyze/fcn.el"
33237;;;;;; "cedet/semantic/bovine.el" "cedet/semantic/bovine/c-by.el" 33258;;;;;; "cedet/semantic/analyze/refs.el" "cedet/semantic/bovine.el"
33238;;;;;; "cedet/semantic/bovine/c.el" "cedet/semantic/bovine/debug.el" 33259;;;;;; "cedet/semantic/bovine/c-by.el" "cedet/semantic/bovine/c.el"
33239;;;;;; "cedet/semantic/bovine/el.el" "cedet/semantic/bovine/gcc.el" 33260;;;;;; "cedet/semantic/bovine/debug.el" "cedet/semantic/bovine/el.el"
33240;;;;;; "cedet/semantic/bovine/make-by.el" "cedet/semantic/bovine/make.el" 33261;;;;;; "cedet/semantic/bovine/gcc.el" "cedet/semantic/bovine/make-by.el"
33241;;;;;; "cedet/semantic/bovine/scm-by.el" "cedet/semantic/bovine/scm.el" 33262;;;;;; "cedet/semantic/bovine/make.el" "cedet/semantic/bovine/scm-by.el"
33242;;;;;; "cedet/semantic/chart.el" "cedet/semantic/complete.el" "cedet/semantic/ctxt.el" 33263;;;;;; "cedet/semantic/bovine/scm.el" "cedet/semantic/chart.el"
33243;;;;;; "cedet/semantic/db-debug.el" "cedet/semantic/db-ebrowse.el" 33264;;;;;; "cedet/semantic/complete.el" "cedet/semantic/ctxt.el" "cedet/semantic/db-debug.el"
33244;;;;;; "cedet/semantic/db-el.el" "cedet/semantic/db-file.el" "cedet/semantic/db-find.el" 33265;;;;;; "cedet/semantic/db-ebrowse.el" "cedet/semantic/db-el.el"
33245;;;;;; "cedet/semantic/db-global.el" "cedet/semantic/db-javascript.el" 33266;;;;;; "cedet/semantic/db-file.el" "cedet/semantic/db-find.el" "cedet/semantic/db-global.el"
33246;;;;;; "cedet/semantic/db-mode.el" "cedet/semantic/db-ref.el" "cedet/semantic/db-typecache.el" 33267;;;;;; "cedet/semantic/db-javascript.el" "cedet/semantic/db-mode.el"
33268;;;;;; "cedet/semantic/db-ref.el" "cedet/semantic/db-typecache.el"
33247;;;;;; "cedet/semantic/db.el" "cedet/semantic/debug.el" "cedet/semantic/decorate.el" 33269;;;;;; "cedet/semantic/db.el" "cedet/semantic/debug.el" "cedet/semantic/decorate.el"
33248;;;;;; "cedet/semantic/decorate/include.el" "cedet/semantic/decorate/mode.el" 33270;;;;;; "cedet/semantic/decorate/include.el" "cedet/semantic/decorate/mode.el"
33249;;;;;; "cedet/semantic/dep.el" "cedet/semantic/doc.el" "cedet/semantic/ede-grammar.el" 33271;;;;;; "cedet/semantic/dep.el" "cedet/semantic/doc.el" "cedet/semantic/ede-grammar.el"
@@ -33251,13 +33273,13 @@ Zone out, completely.
33251;;;;;; "cedet/semantic/fw.el" "cedet/semantic/grammar-wy.el" "cedet/semantic/grammar.el" 33273;;;;;; "cedet/semantic/fw.el" "cedet/semantic/grammar-wy.el" "cedet/semantic/grammar.el"
33252;;;;;; "cedet/semantic/html.el" "cedet/semantic/ia-sb.el" "cedet/semantic/ia.el" 33274;;;;;; "cedet/semantic/html.el" "cedet/semantic/ia-sb.el" "cedet/semantic/ia.el"
33253;;;;;; "cedet/semantic/idle.el" "cedet/semantic/imenu.el" "cedet/semantic/java.el" 33275;;;;;; "cedet/semantic/idle.el" "cedet/semantic/imenu.el" "cedet/semantic/java.el"
33254;;;;;; "cedet/semantic/lex-spp.el" "cedet/semantic/lex.el" "cedet/semantic/mru-bookmark.el" 33276;;;;;; "cedet/semantic/lex-spp.el" "cedet/semantic/lex.el" "cedet/semantic/loaddefs.el"
33255;;;;;; "cedet/semantic/sb.el" "cedet/semantic/scope.el" "cedet/semantic/senator.el" 33277;;;;;; "cedet/semantic/mru-bookmark.el" "cedet/semantic/sb.el" "cedet/semantic/scope.el"
33256;;;;;; "cedet/semantic/sort.el" "cedet/semantic/symref.el" "cedet/semantic/symref/cscope.el" 33278;;;;;; "cedet/semantic/senator.el" "cedet/semantic/sort.el" "cedet/semantic/symref.el"
33257;;;;;; "cedet/semantic/symref/filter.el" "cedet/semantic/symref/global.el" 33279;;;;;; "cedet/semantic/symref/cscope.el" "cedet/semantic/symref/filter.el"
33258;;;;;; "cedet/semantic/symref/grep.el" "cedet/semantic/symref/idutils.el" 33280;;;;;; "cedet/semantic/symref/global.el" "cedet/semantic/symref/grep.el"
33259;;;;;; "cedet/semantic/symref/list.el" "cedet/semantic/tag-file.el" 33281;;;;;; "cedet/semantic/symref/idutils.el" "cedet/semantic/symref/list.el"
33260;;;;;; "cedet/semantic/tag-ls.el" "cedet/semantic/tag-write.el" 33282;;;;;; "cedet/semantic/tag-file.el" "cedet/semantic/tag-ls.el" "cedet/semantic/tag-write.el"
33261;;;;;; "cedet/semantic/tag.el" "cedet/semantic/texi.el" "cedet/semantic/util-modes.el" 33283;;;;;; "cedet/semantic/tag.el" "cedet/semantic/texi.el" "cedet/semantic/util-modes.el"
33262;;;;;; "cedet/semantic/util.el" "cedet/semantic/wisent.el" "cedet/semantic/wisent/comp.el" 33284;;;;;; "cedet/semantic/util.el" "cedet/semantic/wisent.el" "cedet/semantic/wisent/comp.el"
33263;;;;;; "cedet/semantic/wisent/java-tags.el" "cedet/semantic/wisent/javascript.el" 33285;;;;;; "cedet/semantic/wisent/java-tags.el" "cedet/semantic/wisent/javascript.el"
@@ -33269,32 +33291,33 @@ Zone out, completely.
33269;;;;;; "cedet/srecode/el.el" "cedet/srecode/expandproto.el" "cedet/srecode/extract.el" 33291;;;;;; "cedet/srecode/el.el" "cedet/srecode/expandproto.el" "cedet/srecode/extract.el"
33270;;;;;; "cedet/srecode/fields.el" "cedet/srecode/filters.el" "cedet/srecode/find.el" 33292;;;;;; "cedet/srecode/fields.el" "cedet/srecode/filters.el" "cedet/srecode/find.el"
33271;;;;;; "cedet/srecode/getset.el" "cedet/srecode/insert.el" "cedet/srecode/java.el" 33293;;;;;; "cedet/srecode/getset.el" "cedet/srecode/insert.el" "cedet/srecode/java.el"
33272;;;;;; "cedet/srecode/map.el" "cedet/srecode/mode.el" "cedet/srecode/semantic.el" 33294;;;;;; "cedet/srecode/loaddefs.el" "cedet/srecode/map.el" "cedet/srecode/mode.el"
33273;;;;;; "cedet/srecode/srt-wy.el" "cedet/srecode/srt.el" "cedet/srecode/table.el" 33295;;;;;; "cedet/srecode/semantic.el" "cedet/srecode/srt-wy.el" "cedet/srecode/srt.el"
33274;;;;;; "cedet/srecode/template.el" "cedet/srecode/texi.el" "cus-dep.el" 33296;;;;;; "cedet/srecode/table.el" "cedet/srecode/template.el" "cedet/srecode/texi.el"
33275;;;;;; "dframe.el" "dired-aux.el" "dired-x.el" "dos-fns.el" "dos-vars.el" 33297;;;;;; "cus-dep.el" "dframe.el" "dired-aux.el" "dired-x.el" "dos-fns.el"
33276;;;;;; "dos-w32.el" "dynamic-setting.el" "emacs-lisp/assoc.el" "emacs-lisp/authors.el" 33298;;;;;; "dos-vars.el" "dos-w32.el" "dynamic-setting.el" "emacs-lisp/assoc.el"
33277;;;;;; "emacs-lisp/avl-tree.el" "emacs-lisp/bindat.el" "emacs-lisp/byte-opt.el" 33299;;;;;; "emacs-lisp/authors.el" "emacs-lisp/avl-tree.el" "emacs-lisp/bindat.el"
33278;;;;;; "emacs-lisp/chart.el" "emacs-lisp/cl-extra.el" "emacs-lisp/cl-loaddefs.el" 33300;;;;;; "emacs-lisp/byte-opt.el" "emacs-lisp/chart.el" "emacs-lisp/cl-extra.el"
33279;;;;;; "emacs-lisp/cl-macs.el" "emacs-lisp/cl-seq.el" "emacs-lisp/cl-specs.el" 33301;;;;;; "emacs-lisp/cl-loaddefs.el" "emacs-lisp/cl-macs.el" "emacs-lisp/cl-seq.el"
33280;;;;;; "emacs-lisp/cust-print.el" "emacs-lisp/eieio-base.el" "emacs-lisp/eieio-custom.el" 33302;;;;;; "emacs-lisp/cl-specs.el" "emacs-lisp/cust-print.el" "emacs-lisp/eieio-base.el"
33281;;;;;; "emacs-lisp/eieio-datadebug.el" "emacs-lisp/eieio-opt.el" 33303;;;;;; "emacs-lisp/eieio-custom.el" "emacs-lisp/eieio-datadebug.el"
33282;;;;;; "emacs-lisp/eieio-speedbar.el" "emacs-lisp/eieio.el" "emacs-lisp/find-gc.el" 33304;;;;;; "emacs-lisp/eieio-opt.el" "emacs-lisp/eieio-speedbar.el"
33283;;;;;; "emacs-lisp/gulp.el" "emacs-lisp/lisp-mnt.el" "emacs-lisp/package-x.el" 33305;;;;;; "emacs-lisp/eieio.el" "emacs-lisp/find-gc.el" "emacs-lisp/gulp.el"
33284;;;;;; "emacs-lisp/regi.el" "emacs-lisp/smie.el" "emacs-lisp/tcover-ses.el" 33306;;;;;; "emacs-lisp/lisp-mnt.el" "emacs-lisp/package-x.el" "emacs-lisp/regi.el"
33285;;;;;; "emacs-lisp/tcover-unsafep.el" "emulation/cua-gmrk.el" "emulation/cua-rect.el" 33307;;;;;; "emacs-lisp/smie.el" "emacs-lisp/tcover-ses.el" "emacs-lisp/tcover-unsafep.el"
33286;;;;;; "emulation/edt-lk201.el" "emulation/edt-mapper.el" "emulation/edt-pc.el" 33308;;;;;; "emulation/cua-gmrk.el" "emulation/cua-rect.el" "emulation/edt-lk201.el"
33287;;;;;; "emulation/edt-vt100.el" "emulation/tpu-extras.el" "emulation/viper-cmd.el" 33309;;;;;; "emulation/edt-mapper.el" "emulation/edt-pc.el" "emulation/edt-vt100.el"
33288;;;;;; "emulation/viper-ex.el" "emulation/viper-init.el" "emulation/viper-keym.el" 33310;;;;;; "emulation/tpu-extras.el" "emulation/viper-cmd.el" "emulation/viper-ex.el"
33289;;;;;; "emulation/viper-macs.el" "emulation/viper-mous.el" "emulation/viper-util.el" 33311;;;;;; "emulation/viper-init.el" "emulation/viper-keym.el" "emulation/viper-macs.el"
33290;;;;;; "erc/erc-backend.el" "erc/erc-goodies.el" "erc/erc-ibuffer.el" 33312;;;;;; "emulation/viper-mous.el" "emulation/viper-util.el" "erc/erc-backend.el"
33291;;;;;; "erc/erc-lang.el" "eshell/em-alias.el" "eshell/em-banner.el" 33313;;;;;; "erc/erc-goodies.el" "erc/erc-ibuffer.el" "erc/erc-lang.el"
33292;;;;;; "eshell/em-basic.el" "eshell/em-cmpl.el" "eshell/em-dirs.el" 33314;;;;;; "eshell/em-alias.el" "eshell/em-banner.el" "eshell/em-basic.el"
33293;;;;;; "eshell/em-glob.el" "eshell/em-hist.el" "eshell/em-ls.el" 33315;;;;;; "eshell/em-cmpl.el" "eshell/em-dirs.el" "eshell/em-glob.el"
33294;;;;;; "eshell/em-pred.el" "eshell/em-prompt.el" "eshell/em-rebind.el" 33316;;;;;; "eshell/em-hist.el" "eshell/em-ls.el" "eshell/em-pred.el"
33295;;;;;; "eshell/em-script.el" "eshell/em-smart.el" "eshell/em-term.el" 33317;;;;;; "eshell/em-prompt.el" "eshell/em-rebind.el" "eshell/em-script.el"
33296;;;;;; "eshell/em-unix.el" "eshell/em-xtra.el" "eshell/esh-arg.el" 33318;;;;;; "eshell/em-smart.el" "eshell/em-term.el" "eshell/em-unix.el"
33297;;;;;; "eshell/esh-cmd.el" "eshell/esh-ext.el" "eshell/esh-io.el" 33319;;;;;; "eshell/em-xtra.el" "eshell/esh-arg.el" "eshell/esh-cmd.el"
33320;;;;;; "eshell/esh-ext.el" "eshell/esh-groups.el" "eshell/esh-io.el"
33298;;;;;; "eshell/esh-module.el" "eshell/esh-opt.el" "eshell/esh-proc.el" 33321;;;;;; "eshell/esh-module.el" "eshell/esh-opt.el" "eshell/esh-proc.el"
33299;;;;;; "eshell/esh-util.el" "eshell/esh-var.el" "ezimage.el" "foldout.el" 33322;;;;;; "eshell/esh-util.el" "eshell/esh-var.el" "ezimage.el" "foldout.el"
33300;;;;;; "format-spec.el" "forms-d2.el" "forms-pass.el" "fringe.el" 33323;;;;;; "format-spec.el" "forms-d2.el" "forms-pass.el" "fringe.el"
@@ -33397,8 +33420,8 @@ Zone out, completely.
33397;;;;;; "vc/ediff-init.el" "vc/ediff-merg.el" "vc/ediff-ptch.el" 33420;;;;;; "vc/ediff-init.el" "vc/ediff-merg.el" "vc/ediff-ptch.el"
33398;;;;;; "vc/ediff-vers.el" "vc/ediff-wind.el" "vc/pcvs-info.el" "vc/pcvs-parse.el" 33421;;;;;; "vc/ediff-vers.el" "vc/ediff-wind.el" "vc/pcvs-info.el" "vc/pcvs-parse.el"
33399;;;;;; "vc/pcvs-util.el" "vc/vc-dav.el" "vcursor.el" "vt-control.el" 33422;;;;;; "vc/pcvs-util.el" "vc/vc-dav.el" "vcursor.el" "vt-control.el"
33400;;;;;; "vt100-led.el" "w32-fns.el" "w32-vars.el" "x-dnd.el") (20142 33423;;;;;; "vt100-led.el" "w32-fns.el" "w32-vars.el" "x-dnd.el") (20183
33401;;;;;; 850 416521)) 33424;;;;;; 25444 347950))
33402 33425
33403;;;*** 33426;;;***
33404 33427
diff --git a/lisp/lpr.el b/lisp/lpr.el
index 76c69f3308c..296063549fc 100644
--- a/lisp/lpr.el
+++ b/lisp/lpr.el
@@ -33,11 +33,13 @@
33 33
34;;;###autoload 34;;;###autoload
35(defvar lpr-windows-system 35(defvar lpr-windows-system
36 (memq system-type '(ms-dos windows-nt))) 36 (memq system-type '(ms-dos windows-nt))
37 "Non-nil if running on MS-DOS or MS Windows.")
37 38
38;;;###autoload 39;;;###autoload
39(defvar lpr-lp-system 40(defvar lpr-lp-system
40 (memq system-type '(usg-unix-v hpux irix))) 41 (memq system-type '(usg-unix-v hpux irix))
42 "Non-nil if running on a system type that uses the \"lp\" command.")
41 43
42 44
43(defgroup lpr nil 45(defgroup lpr nil
diff --git a/lisp/mail/binhex.el b/lisp/mail/binhex.el
index 5332c0f14ba..32593462062 100644
--- a/lisp/mail/binhex.el
+++ b/lisp/mail/binhex.el
@@ -79,10 +79,11 @@ input and write the converted data to its standard output."
79 79
80;;;###autoload 80;;;###autoload
81(defconst binhex-begin-line 81(defconst binhex-begin-line
82 "^:...............................................................$") 82 "^:...............................................................$"
83 "Regular expression matching the start of a BinHex encoded region.")
83(defconst binhex-body-line 84(defconst binhex-body-line
84 "^[^:]...............................................................$") 85 "^[^:]...............................................................$")
85(defconst binhex-end-line ":$") 86(defconst binhex-end-line ":$") ; unused
86 87
87(defvar binhex-temporary-file-directory 88(defvar binhex-temporary-file-directory
88 (cond ((fboundp 'temp-directory) (temp-directory)) 89 (cond ((fboundp 'temp-directory) (temp-directory))
diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el
index 7167fa567d3..7e3d983a76c 100644
--- a/lisp/mail/feedmail.el
+++ b/lisp/mail/feedmail.el
@@ -2026,7 +2026,7 @@ backup file names and the like)."
2026 (if (looking-at ".*\r\n.*\r\n") 2026 (if (looking-at ".*\r\n.*\r\n")
2027 (while (search-forward "\r\n" nil t) 2027 (while (search-forward "\r\n" nil t)
2028 (replace-match "\n" nil t))) 2028 (replace-match "\n" nil t)))
2029;; ;; work around text-vs-binary wierdness 2029;; ;; work around text-vs-binary weirdness
2030;; ;; if we don't find the normal M-H-S, try reading the file a different way 2030;; ;; if we don't find the normal M-H-S, try reading the file a different way
2031;; (if (not (feedmail-find-eoh t)) 2031;; (if (not (feedmail-find-eoh t))
2032;; (let ((file-name-buffer-file-type-alist nil) (default-buffer-file-type nil)) 2032;; (let ((file-name-buffer-file-type-alist nil) (default-buffer-file-type nil))
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 184eaca6c4b..230424c1920 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -482,6 +482,7 @@ still the current message in the Rmail buffer.")
482;; It's not clear what it should do now, since there is nothing that 482;; It's not clear what it should do now, since there is nothing that
483;; records when a message is shown for the first time (unseen is not 483;; records when a message is shown for the first time (unseen is not
484;; necessarily the same thing). 484;; necessarily the same thing).
485;; See http://lists.gnu.org/archive/html/emacs-devel/2009-03/msg00013.html
485(defcustom rmail-message-filter nil 486(defcustom rmail-message-filter nil
486 "If non-nil, a filter function for new messages in RMAIL. 487 "If non-nil, a filter function for new messages in RMAIL.
487Called with region narrowed to the message, including headers, 488Called with region narrowed to the message, including headers,
@@ -489,30 +490,41 @@ before obeying `rmail-ignored-headers'."
489 :group 'rmail-headers 490 :group 'rmail-headers
490 :type '(choice (const nil) function)) 491 :type '(choice (const nil) function))
491 492
493(make-obsolete-variable 'rmail-message-filter
494 "it is not used (try `rmail-show-message-hook')."
495 "23.1")
496
492(defcustom rmail-automatic-folder-directives nil 497(defcustom rmail-automatic-folder-directives nil
493 "List of directives specifying where to put a message. 498 "List of directives specifying how to automatically file messages.
499Whenever Rmail shows a message in the folder that `rmail-file-name'
500specifies, it calls `rmail-auto-file' to maybe file the message in
501another folder according to this list. Messages that are already
502marked as `filed', or are in different folders, are left alone.
503
494Each element of the list is of the form: 504Each element of the list is of the form:
495 505
496 (FOLDERNAME FIELD REGEXP [ FIELD REGEXP ] ... ) 506 (FOLDERNAME FIELD REGEXP [ FIELD REGEXP ] ... )
497 507
498Where FOLDERNAME is the name of a folder to put the message. 508FOLDERNAME is the name of a folder in which to put the message.
499If any of the field regexp's are nil, then it is ignored. 509If FOLDERNAME is nil then Rmail deletes the message, and moves on to
510the next. If FOLDERNAME is \"/dev/null\", Rmail deletes the message,
511but does not move to the next.
500 512
501If FOLDERNAME is \"/dev/null\", it is deleted. 513FIELD is the name of a header field in the message, such as
502If FOLDERNAME is nil then it is deleted, and skipped. 514\"subject\" or \"from\". A FIELD of \"to\" includes all text
515from both the \"to\" and \"cc\" headers.
503 516
504FIELD is the plain text name of a field in the message, such as 517REGEXP is a regular expression to match (case-sensitively) against
505\"subject\" or \"from\". A FIELD of \"to\" will automatically include 518the preceding specified FIELD.
506all text from the \"cc\" field as well.
507 519
508REGEXP is an expression to match in the preceding specified FIELD. 520There may be any number of FIELD/REGEXP pairs.
509FIELD/REGEXP pairs continue in the list. 521All pairs must match for a directive to apply to a message.
522For a given message, Rmail applies only the first matching directive.
510 523
511examples: 524Examples:
512 (\"/dev/null\" \"from\" \"@spam.com\") ; delete all mail from spam.com 525 (\"/dev/null\" \"from\" \"@spam.com\") ; delete all mail from spam.com
513 (\"RMS\" \"from\" \"rms@\") ; save all mail from RMS. 526 (\"RMS\" \"from\" \"rms@\") ; save all mail from RMS.
514 527"
515Note that this is only applied in the folder specifed by `rmail-file-name'."
516 :group 'rmail 528 :group 'rmail
517 :version "21.1" 529 :version "21.1"
518 :type '(repeat (sexp :tag "Directive"))) 530 :type '(repeat (sexp :tag "Directive")))
@@ -552,7 +564,9 @@ In a summary buffer, this holds the RMAIL buffer it is a summary for.")
552;; Message counters and markers. Deleted flags. 564;; Message counters and markers. Deleted flags.
553 565
554(defvar rmail-current-message nil 566(defvar rmail-current-message nil
555 "Integer specifying the message currently being displayed in this folder.") 567 "Integer specifying the message currently being displayed in this folder.
568Counts messages from 1 to `rmail-total-messages'. A value of 0
569means there are no messages in the folder.")
556(put 'rmail-current-message 'permanent-local t) 570(put 'rmail-current-message 'permanent-local t)
557 571
558(defvar rmail-total-messages nil 572(defvar rmail-total-messages nil
@@ -2934,8 +2948,11 @@ Uses the face specified by `rmail-highlight-face'."
2934 (cons overlay rmail-overlay-list)))))))))) 2948 (cons overlay rmail-overlay-list))))))))))
2935 2949
2936(defun rmail-auto-file () 2950(defun rmail-auto-file ()
2937 "Automatically move a message into a sub-folder based on criteria. 2951 "Automatically move a message into another sfolder based on criteria.
2938Called when a new message is displayed." 2952This moves messages according to `rmail-automatic-folder-directives'.
2953It only does something in the folder that `rmail-file-name' specifies.
2954The function `rmail-show-message' calls this whenever it shows a message.
2955This leaves a message alone if it already has the `filed' attribute."
2939 (if (or (zerop rmail-total-messages) 2956 (if (or (zerop rmail-total-messages)
2940 (rmail-message-attr-p rmail-current-message "...F") 2957 (rmail-message-attr-p rmail-current-message "...F")
2941 (not (string= (buffer-file-name) 2958 (not (string= (buffer-file-name)
@@ -2955,10 +2972,14 @@ Called when a new message is displayed."
2955 directive-loop (cdr (car d))) 2972 directive-loop (cdr (car d)))
2956 (while (and (car directive-loop) 2973 (while (and (car directive-loop)
2957 (let ((f (cond 2974 (let ((f (cond
2958 ((string= (car directive-loop) "from") from) 2975 ((string= (downcase (car directive-loop)) "from")
2959 ((string= (car directive-loop) "to") to) 2976 from)
2960 ((string= (car directive-loop) "subject") subj) 2977 ((string= (downcase (car directive-loop)) "to")
2978 to)
2979 ((string= (downcase (car directive-loop))
2980 "subject") subj)
2961 (t (mail-fetch-field (car directive-loop)))))) 2981 (t (mail-fetch-field (car directive-loop))))))
2982 ;; FIXME - shouldn't this ignore case?
2962 (and f (string-match (car (cdr directive-loop)) f)))) 2983 (and f (string-match (car (cdr directive-loop)) f))))
2963 (setq directive-loop (cdr (cdr directive-loop)))) 2984 (setq directive-loop (cdr (cdr directive-loop))))
2964 ;; If there are no directives left, then it was a complete match. 2985 ;; If there are no directives left, then it was a complete match.
@@ -3779,6 +3800,8 @@ which is an element of rmail-msgref-vector."
3779With prefix argument, \"resend\" the message instead of forwarding it; 3800With prefix argument, \"resend\" the message instead of forwarding it;
3780see the documentation of `rmail-resend'." 3801see the documentation of `rmail-resend'."
3781 (interactive "P") 3802 (interactive "P")
3803 (if (zerop rmail-current-message)
3804 (error "No message to forward"))
3782 (if resend 3805 (if resend
3783 (call-interactively 'rmail-resend) 3806 (call-interactively 'rmail-resend)
3784 (let ((forward-buffer rmail-buffer) 3807 (let ((forward-buffer rmail-buffer)
@@ -4461,7 +4484,7 @@ Edit the contents of this message.
4461 4484
4462;;;### (autoloads (rmail-next-labeled-message rmail-previous-labeled-message 4485;;;### (autoloads (rmail-next-labeled-message rmail-previous-labeled-message
4463;;;;;; rmail-read-label rmail-kill-label rmail-add-label) "rmailkwd" 4486;;;;;; rmail-read-label rmail-kill-label rmail-add-label) "rmailkwd"
4464;;;;;; "rmailkwd.el" "08c288c88cfe7be50830122c064e3884") 4487;;;;;; "rmailkwd.el" "ec13237a2b0a9e9c1893e38d36b11134")
4465;;; Generated autoloads from rmailkwd.el 4488;;; Generated autoloads from rmailkwd.el
4466 4489
4467(autoload 'rmail-add-label "rmailkwd" "\ 4490(autoload 'rmail-add-label "rmailkwd" "\
@@ -4504,7 +4527,7 @@ With prefix argument N moves forward N messages with these labels.
4504 4527
4505;;;*** 4528;;;***
4506 4529
4507;;;### (autoloads (rmail-mime) "rmailmm" "rmailmm.el" "5ecb69456c4d86a4e905eb3008602a95") 4530;;;### (autoloads (rmail-mime) "rmailmm" "rmailmm.el" "2cb1f29b88b0c724fdba389fd7b98b00")
4508;;; Generated autoloads from rmailmm.el 4531;;; Generated autoloads from rmailmm.el
4509 4532
4510(autoload 'rmail-mime "rmailmm" "\ 4533(autoload 'rmail-mime "rmailmm" "\
diff --git a/lisp/mail/rmailkwd.el b/lisp/mail/rmailkwd.el
index 73542578bf6..472740aefd8 100644
--- a/lisp/mail/rmailkwd.el
+++ b/lisp/mail/rmailkwd.el
@@ -96,7 +96,8 @@ LABEL may be a symbol or string."
96 (error "More than one label specified")) 96 (error "More than one label specified"))
97 (with-current-buffer rmail-buffer 97 (with-current-buffer rmail-buffer
98 (rmail-maybe-set-message-counters) 98 (rmail-maybe-set-message-counters)
99 (or msg (setq msg rmail-current-message)) 99 (if (zerop (or msg (setq msg rmail-current-message)))
100 (error "No message"))
100 ;; Force recalculation of summary for this message. 101 ;; Force recalculation of summary for this message.
101 (aset rmail-summary-vector (1- msg) nil) 102 (aset rmail-summary-vector (1- msg) nil)
102 (let (attr-index) 103 (let (attr-index)
diff --git a/lisp/mail/rmailmm.el b/lisp/mail/rmailmm.el
index e53e0c0744e..d01cfc7f2c8 100644
--- a/lisp/mail/rmailmm.el
+++ b/lisp/mail/rmailmm.el
@@ -1269,7 +1269,8 @@ The arguments ARG and STATE have no effect in this case."
1269 (or arg (goto-char (point-min))) 1269 (or arg (goto-char (point-min)))
1270 (point)) 'rmail-mime-entity))) 1270 (point)) 'rmail-mime-entity)))
1271 (if (or (not arg) entity) (rmail-mime-toggle-raw state))) 1271 (if (or (not arg) entity) (rmail-mime-toggle-raw state)))
1272 (message "Not a MIME message"))) 1272 (message "Not a MIME message, just toggling headers")
1273 (rmail-toggle-header)))
1273 (let* ((data (rmail-apply-in-message rmail-current-message 'buffer-string)) 1274 (let* ((data (rmail-apply-in-message rmail-current-message 'buffer-string))
1274 (buf (get-buffer-create "*RMAIL*")) 1275 (buf (get-buffer-create "*RMAIL*"))
1275 (rmail-mime-mbox-buffer rmail-view-buffer) 1276 (rmail-mime-mbox-buffer rmail-view-buffer)
diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el
index c168ca9d8f5..ad76a493483 100644
--- a/lisp/mail/rmailout.el
+++ b/lisp/mail/rmailout.el
@@ -468,6 +468,8 @@ from a non-Rmail buffer. In this case, COUNT is ignored."
468 (if rmail-buffer 468 (if rmail-buffer
469 (set-buffer rmail-buffer) 469 (set-buffer rmail-buffer)
470 (error "There is no Rmail buffer")) 470 (error "There is no Rmail buffer"))
471 (if (zerop rmail-total-messages)
472 (error "No messages to output"))
471 (let ((orig-count count) 473 (let ((orig-count count)
472 beg end) 474 beg end)
473 (while (> count 0) 475 (while (> count 0)
@@ -533,6 +535,8 @@ so you should call `rmail-output' directly in that case."
533 (if rmail-buffer 535 (if rmail-buffer
534 (set-buffer rmail-buffer) 536 (set-buffer rmail-buffer)
535 (error "There is no Rmail buffer")) 537 (error "There is no Rmail buffer"))
538 (if (zerop rmail-total-messages)
539 (error "No messages to output"))
536 (let ((orig-count count) 540 (let ((orig-count count)
537 (cur (current-buffer))) 541 (cur (current-buffer)))
538 (while (> count 0) 542 (while (> count 0)
@@ -594,6 +598,8 @@ than appending to it. Deletes the message after writing if
594 (expand-file-name file-name 598 (expand-file-name file-name
595 (and rmail-default-body-file 599 (and rmail-default-body-file
596 (file-name-directory rmail-default-body-file)))) 600 (file-name-directory rmail-default-body-file))))
601 (if (zerop rmail-current-message)
602 (error "No message to output"))
597 (save-excursion 603 (save-excursion
598 (goto-char (point-min)) 604 (goto-char (point-min))
599 (search-forward "\n\n") 605 (search-forward "\n\n")
diff --git a/lisp/mail/unrmail.el b/lisp/mail/unrmail.el
index 9ed2e90b456..652693209e8 100644
--- a/lisp/mail/unrmail.el
+++ b/lisp/mail/unrmail.el
@@ -231,10 +231,9 @@ For example, invoke `emacs -batch -f batch-unrmail RMAIL'."
231 (while (search-forward "\nFrom " nil t) 231 (while (search-forward "\nFrom " nil t)
232 (forward-char -5) 232 (forward-char -5)
233 (insert ?>))) 233 (insert ?>)))
234 ;; Make sure the message ends with two newlines
235 (goto-char (point-max)) 234 (goto-char (point-max))
236 (unless (looking-back "\n\n") 235 ;; Add terminator blank line to message.
237 (insert "\n")) 236 (insert "\n")
238 ;; Write it to the output file, suitably encoded. 237 ;; Write it to the output file, suitably encoded.
239 (let ((coding-system-for-write coding)) 238 (let ((coding-system-for-write coding))
240 (write-region (point-min) (point-max) to-file t 239 (write-region (point-min) (point-max) to-file t
diff --git a/lisp/man.el b/lisp/man.el
index 14fdac4e5da..c9ba64bf5e0 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -754,8 +754,10 @@ POS defaults to `point'."
754 754
755(defun Man-completion-table (string pred action) 755(defun Man-completion-table (string pred action)
756 (cond 756 (cond
757 ((eq action 'lambda) 757 ;; This ends up returning t for pretty much any string, and hence leads to
758 (not (string-match "([^)]*\\'" string))) 758 ;; spurious "complete but not unique" messages. And since `man' doesn't
759 ;; require-match anyway, there's not point being clever.
760 ;;((eq action 'lambda) (not (string-match "([^)]*\\'" string)))
759 ((equal string "-k") 761 ((equal string "-k")
760 ;; Let SPC (minibuffer-complete-word) insert the space. 762 ;; Let SPC (minibuffer-complete-word) insert the space.
761 (complete-with-action action '("-k ") string pred)) 763 (complete-with-action action '("-k ") string pred))
@@ -1095,7 +1097,7 @@ Same for the ANSI bold and normal escape sequences."
1095 (replace-match "+") 1097 (replace-match "+")
1096 (put-text-property (1- (point)) (point) 'face 'bold)) 1098 (put-text-property (1- (point)) (point) 'face 'bold))
1097 ;; When the header is longer than the manpage name, groff tries to 1099 ;; When the header is longer than the manpage name, groff tries to
1098 ;; condense it to a shorter line interspered with ^H. Remove ^H with 1100 ;; condense it to a shorter line interspersed with ^H. Remove ^H with
1099 ;; their preceding chars (but don't put Man-overstrike-face). (Bug#5566) 1101 ;; their preceding chars (but don't put Man-overstrike-face). (Bug#5566)
1100 (goto-char (point-min)) 1102 (goto-char (point-min))
1101 (while (re-search-forward ".\b" nil t) (backward-delete-char 2)) 1103 (while (re-search-forward ".\b" nil t) (backward-delete-char 2))
@@ -1189,7 +1191,7 @@ script would have done them."
1189 (goto-char (point-min)) 1191 (goto-char (point-min))
1190 (while (re-search-forward "[-|]\\(\b[-|]\\)+" nil t) (replace-match "+")) 1192 (while (re-search-forward "[-|]\\(\b[-|]\\)+" nil t) (replace-match "+"))
1191 ;; When the header is longer than the manpage name, groff tries to 1193 ;; When the header is longer than the manpage name, groff tries to
1192 ;; condense it to a shorter line interspered with ^H. Remove ^H with 1194 ;; condense it to a shorter line interspersed with ^H. Remove ^H with
1193 ;; their preceding chars (but don't put Man-overstrike-face). (Bug#5566) 1195 ;; their preceding chars (but don't put Man-overstrike-face). (Bug#5566)
1194 (goto-char (point-min)) 1196 (goto-char (point-min))
1195 (while (re-search-forward ".\b" nil t) (backward-delete-char 2)) 1197 (while (re-search-forward ".\b" nil t) (backward-delete-char 2))
diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index 6bdd96c0fcc..02e531120be 100644
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -2674,7 +2674,7 @@
2674 2674
2675 Follow MH-E Developers Guide conventions. Use `' quotes for Help 2675 Follow MH-E Developers Guide conventions. Use `' quotes for Help
2676 hyperlinks such as symbols, Info nodes, or URLs. Use \" quotes for 2676 hyperlinks such as symbols, Info nodes, or URLs. Use \" quotes for
2677 everything else. Otherwise, you can accidently get links to 2677 everything else. Otherwise, you can accidentally get links to
2678 nonsense symbols. 2678 nonsense symbols.
2679 2679
26802005-12-22 Bill Wohler <wohler@newt.com> 26802005-12-22 Bill Wohler <wohler@newt.com>
@@ -3456,4 +3456,3 @@
3456;; sentence-end-double-space: nil 3456;; sentence-end-double-space: nil
3457;; add-log-time-zone-rule: t 3457;; add-log-time-zone-rule: t
3458;; End: 3458;; End:
3459
diff --git a/lisp/mh-e/ChangeLog.1 b/lisp/mh-e/ChangeLog.1
index d35d7d4c676..871b84dd039 100644
--- a/lisp/mh-e/ChangeLog.1
+++ b/lisp/mh-e/ChangeLog.1
@@ -2553,7 +2553,7 @@
2553 for users who have customized it to a long list now redundant with 2553 for users who have customized it to a long list now redundant with
2554 `mh-invisible-header-fields-default'. 2554 `mh-invisible-header-fields-default'.
2555 (mh-invisible-header-fields-default-override): New defcustom. 2555 (mh-invisible-header-fields-default-override): New defcustom.
2556 Users check off the fields they want displyed from what we 2556 Users check off the fields they want displayed from what we
2557 included in `mh-invisible-header-fields-default'. 2557 included in `mh-invisible-header-fields-default'.
2558 (mh-invisible-headers): Function adapted to new variables. 2558 (mh-invisible-headers): Function adapted to new variables.
2559 2559
@@ -7385,7 +7385,7 @@
7385 (mh-visit-folder) alias, and v (mh-visit-folder). 7385 (mh-visit-folder) alias, and v (mh-visit-folder).
7386 (mh-index-folder-mode-help-messages): Changes for above. 7386 (mh-index-folder-mode-help-messages): Changes for above.
7387 (mh-index-folder-message-menu, mh-index-folder-folder-menu): New 7387 (mh-index-folder-message-menu, mh-index-folder-folder-menu): New
7388 menus. I decided to delete the unavailable items since greying out 7388 menus. I decided to delete the unavailable items since graying out
7389 implies that the user can do something to access them. In this 7389 implies that the user can do something to access them. In this
7390 case, that's not the case. Well, that's not entirely true--the 7390 case, that's not the case. Well, that's not entirely true--the
7391 user could write code for those functions ;-). 7391 user could write code for those functions ;-).
@@ -9150,7 +9150,7 @@
9150 %number(msg). 9150 %number(msg).
9151 (mh-scan-msg-format-string): Format to be used with the current 9151 (mh-scan-msg-format-string): Format to be used with the current
9152 maximum width of message number for the folder in the 9152 maximum width of message number for the folder in the
9153 `mh-upate-scan-format' function. 9153 `mh-update-scan-format' function.
9154 (mh-update-scan-format): Use `mh-scan-msg-format-regexp' for greater 9154 (mh-update-scan-format): Use `mh-scan-msg-format-regexp' for greater
9155 flexibility. The message number is no longer anchored to the 9155 flexibility. The message number is no longer anchored to the
9156 beginning of the `mh-scan-format-nmh' or `mh-scan-format-mh' format 9156 beginning of the `mh-scan-format-nmh' or `mh-scan-format-mh' format
diff --git a/lisp/mh-e/mh-tool-bar.el b/lisp/mh-e/mh-tool-bar.el
index ddc9b3ffe94..4469c043b15 100644
--- a/lisp/mh-e/mh-tool-bar.el
+++ b/lisp/mh-e/mh-tool-bar.el
@@ -127,7 +127,7 @@ where,
127 first line is useful and complete without the rest of the string. 127 first line is useful and complete without the rest of the string.
128 128
129 Optional item ENABLE-EXPR is an arbitrary lisp expression. If it 129 Optional item ENABLE-EXPR is an arbitrary lisp expression. If it
130 evaluates to nil, then the button is deactivated, otherwise it is 130 evaluates to nil, then the button is inactive, otherwise it is
131 active. If it isn't present then the button is always active." 131 active. If it isn't present then the button is always active."
132 ;; The following variable names have been carefully chosen to make code 132 ;; The following variable names have been carefully chosen to make code
133 ;; generation easier. Modifying the names should be done carefully. 133 ;; generation easier. Modifying the names should be done carefully.
diff --git a/lisp/mpc.el b/lisp/mpc.el
index 6c2556b1f39..224131623f4 100644
--- a/lisp/mpc.el
+++ b/lisp/mpc.el
@@ -1651,7 +1651,7 @@ Return non-nil if a selection was deactivated."
1651;;; Hierarchical tagbrowser ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 1651;;; Hierarchical tagbrowser ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1652;; Todo: 1652;; Todo:
1653;; - Add a button on each dir to open/close it (?) 1653;; - Add a button on each dir to open/close it (?)
1654;; - add the parent dir on the previous line, greyed-out, if it's not 1654;; - add the parent dir on the previous line, grayed-out, if it's not
1655;; present (because we're in the non-selected part and the parent is 1655;; present (because we're in the non-selected part and the parent is
1656;; in the selected part). 1656;; in the selected part).
1657 1657
diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index f6a5b53ae7f..7ae6912cf8f 100644
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -49,7 +49,7 @@
49;; 'user@' part may be omitted. This syntax can be customized to a certain 49;; 'user@' part may be omitted. This syntax can be customized to a certain
50;; extent by changing ange-ftp-name-format. There are limitations. 50;; extent by changing ange-ftp-name-format. There are limitations.
51;; The `host' part has an optional suffix `#port' which may be used to 51;; The `host' part has an optional suffix `#port' which may be used to
52;; specify a non-default port number for the connexion. 52;; specify a non-default port number for the connection.
53;; 53;;
54;; If the user part is omitted then ange-ftp generates a default user 54;; If the user part is omitted then ange-ftp generates a default user
55;; instead whose value depends on the variable ange-ftp-default-user. 55;; instead whose value depends on the variable ange-ftp-default-user.
@@ -5995,7 +5995,7 @@ Other orders of $ and _ seem to all work just fine.")
5995 (concat 5995 (concat
5996 pubset 5996 pubset
5997 (and userid (concat userid ".")) 5997 (and userid (concat userid "."))
5998 ;; change every '/' in filename to a '.', normally not neccessary 5998 ;; change every '/' in filename to a '.', normally not necessary
5999 (and filename 5999 (and filename
6000 (subst-char-in-string ?/ ?. filename))))) 6000 (subst-char-in-string ?/ ?. filename)))))
6001 ;; Let's hope that BS2000 recognize this anyway: 6001 ;; Let's hope that BS2000 recognize this anyway:
diff --git a/lisp/net/dbus.el b/lisp/net/dbus.el
index 03b84a45ea3..8a8d9e6332f 100644
--- a/lisp/net/dbus.el
+++ b/lisp/net/dbus.el
@@ -150,7 +150,7 @@ association to the service from D-Bus."
150 ;; entry has the structure ((UNAME SERVICE PATH MEMBER [RULE]) ...). 150 ;; entry has the structure ((UNAME SERVICE PATH MEMBER [RULE]) ...).
151 ;; MEMBER is either a string (the handler), or a cons cell (a 151 ;; MEMBER is either a string (the handler), or a cons cell (a
152 ;; property value). UNAME and property values are not taken into 152 ;; property value). UNAME and property values are not taken into
153 ;; account for comparision. 153 ;; account for comparison.
154 154
155 ;; Loop over the registered functions. 155 ;; Loop over the registered functions.
156 (dolist (elt entry) 156 (dolist (elt entry)
diff --git a/lisp/net/eudc-export.el b/lisp/net/eudc-export.el
index 87ff0b4060f..af8bc084b57 100644
--- a/lisp/net/eudc-export.el
+++ b/lisp/net/eudc-export.el
@@ -128,7 +128,7 @@ LOCATION is used as the address location for bbdb."
128 zip city state) 128 zip city state)
129 (setq addr-components (nreverse addr-components)) 129 (setq addr-components (nreverse addr-components))
130 ;; If not containing the zip code the last line is supposed to contain a 130 ;; If not containing the zip code the last line is supposed to contain a
131 ;; country name and the addres is supposed to be in european style 131 ;; country name and the address is supposed to be in european style
132 (if (not (string-match "[0-9][0-9][0-9]" last1)) 132 (if (not (string-match "[0-9][0-9][0-9]" last1))
133 (progn 133 (progn
134 (setq state last1) 134 (setq state last1)
diff --git a/lisp/net/gnutls.el b/lisp/net/gnutls.el
index 9cb071b185d..18471782f2c 100644
--- a/lisp/net/gnutls.el
+++ b/lisp/net/gnutls.el
@@ -108,7 +108,7 @@ trust and key files, and priority string."
108 trustfiles crlfiles keylist min-prime-bits 108 trustfiles crlfiles keylist min-prime-bits
109 verify-flags verify-error verify-hostname-error 109 verify-flags verify-error verify-hostname-error
110 &allow-other-keys) 110 &allow-other-keys)
111 "Negotiate a SSL/TLS connection. Returns proc. Signals gnutls-error. 111 "Negotiate a SSL/TLS connection. Returns proc. Signals gnutls-error.
112 112
113Note arguments are passed CL style, :type TYPE instead of just TYPE. 113Note arguments are passed CL style, :type TYPE instead of just TYPE.
114 114
diff --git a/lisp/net/secrets.el b/lisp/net/secrets.el
index 7e0eaff1dce..1a48e8863f1 100644
--- a/lisp/net/secrets.el
+++ b/lisp/net/secrets.el
@@ -729,7 +729,7 @@ to their attributes."
729 ;; Create the search buffer. 729 ;; Create the search buffer.
730 (with-current-buffer (get-buffer-create "*Secrets*") 730 (with-current-buffer (get-buffer-create "*Secrets*")
731 (switch-to-buffer-other-window (current-buffer)) 731 (switch-to-buffer-other-window (current-buffer))
732 ;; Inialize buffer with `secrets-mode'. 732 ;; Initialize buffer with `secrets-mode'.
733 (secrets-mode) 733 (secrets-mode)
734 (secrets-show-collections)))) 734 (secrets-show-collections))))
735 735
diff --git a/lisp/net/tls.el b/lisp/net/tls.el
index 42ae5920eee..6f66156a7e2 100644
--- a/lisp/net/tls.el
+++ b/lisp/net/tls.el
@@ -123,7 +123,7 @@ successful negotiation."
123 123
124(defcustom tls-success "- Handshake was completed\\|SSL handshake has read " 124(defcustom tls-success "- Handshake was completed\\|SSL handshake has read "
125 "Regular expression indicating completed TLS handshakes. 125 "Regular expression indicating completed TLS handshakes.
126The default is what GNUTLS's \"gnutls-cli\" or OpenSSL's 126The default is what GnuTLS's \"gnutls-cli\" or OpenSSL's
127\"openssl s_client\" outputs." 127\"openssl s_client\" outputs."
128 :version "22.1" 128 :version "22.1"
129 :type 'regexp 129 :type 'regexp
@@ -150,7 +150,7 @@ consider trustworthy, e.g.:
150(defcustom tls-untrusted 150(defcustom tls-untrusted
151 "- Peer's certificate is NOT trusted\\|Verify return code: \\([^0] \\|.[^ ]\\)" 151 "- Peer's certificate is NOT trusted\\|Verify return code: \\([^0] \\|.[^ ]\\)"
152 "Regular expression indicating failure of TLS certificate verification. 152 "Regular expression indicating failure of TLS certificate verification.
153The default is what GNUTLS's \"gnutls-cli\" or OpenSSL's 153The default is what GnuTLS's \"gnutls-cli\" or OpenSSL's
154\"openssl s_client\" return in the event of unsuccessful 154\"openssl s_client\" return in the event of unsuccessful
155verification." 155verification."
156 :type 'regexp 156 :type 'regexp
diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el
index fda88351253..df841bade79 100644
--- a/lisp/net/tramp-gvfs.el
+++ b/lisp/net/tramp-gvfs.el
@@ -996,7 +996,7 @@ ADDRESS can have the form \"xx:xx:xx:xx:xx:xx\" or \"[xx:xx:xx:xx:xx:xx]\"."
996 (let ((signal-name (dbus-event-member-name last-input-event)) 996 (let ((signal-name (dbus-event-member-name last-input-event))
997 (elt mount-info)) 997 (elt mount-info))
998 ;; Jump over the first elements of the mount info. Since there 998 ;; Jump over the first elements of the mount info. Since there
999 ;; were changes in the antries, we cannot access dedicated 999 ;; were changes in the entries, we cannot access dedicated
1000 ;; elements. 1000 ;; elements.
1001 (while (stringp (car elt)) (setq elt (cdr elt))) 1001 (while (stringp (car elt)) (setq elt (cdr elt)))
1002 (let* ((fuse-mountpoint (dbus-byte-array-to-string (cadr elt))) 1002 (let* ((fuse-mountpoint (dbus-byte-array-to-string (cadr elt)))
@@ -1066,7 +1066,7 @@ ADDRESS can have the form \"xx:xx:xx:xx:xx:xx\" or \"[xx:xx:xx:xx:xx:xx]\"."
1066 tramp-gvfs-interface-mounttracker "listMounts")) 1066 tramp-gvfs-interface-mounttracker "listMounts"))
1067 nil) 1067 nil)
1068 ;; Jump over the first elements of the mount info. Since there 1068 ;; Jump over the first elements of the mount info. Since there
1069 ;; were changes in the antries, we cannot access dedicated 1069 ;; were changes in the entries, we cannot access dedicated
1070 ;; elements. 1070 ;; elements.
1071 (while (stringp (car elt)) (setq elt (cdr elt))) 1071 (while (stringp (car elt)) (setq elt (cdr elt)))
1072 (let* ((fuse-mountpoint (dbus-byte-array-to-string (cadr elt))) 1072 (let* ((fuse-mountpoint (dbus-byte-array-to-string (cadr elt)))
diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el
index 941b788ae4d..ee4c8966626 100644
--- a/lisp/net/tramp-sh.el
+++ b/lisp/net/tramp-sh.el
@@ -1042,9 +1042,9 @@ target of the symlink differ."
1042 (tramp-flush-file-property l (file-name-directory l-localname)) 1042 (tramp-flush-file-property l (file-name-directory l-localname))
1043 (tramp-flush-file-property l l-localname) 1043 (tramp-flush-file-property l l-localname)
1044 1044
1045 ;; Right, they are on the same host, regardless of user, method, etc. 1045 ;; Right, they are on the same host, regardless of user, method,
1046 ;; We now make the link on the remote machine. This will occur as the user 1046 ;; etc. We now make the link on the remote machine. This will
1047 ;; that FILENAME belongs to. 1047 ;; occur as the user that FILENAME belongs to.
1048 (tramp-send-command-and-check 1048 (tramp-send-command-and-check
1049 l 1049 l
1050 (format 1050 (format
@@ -4224,148 +4224,166 @@ connection if a previous connection has died for some reason."
4224 (setq p nil))) 4224 (setq p nil)))
4225 4225
4226 ;; New connection must be opened. 4226 ;; New connection must be opened.
4227 (unless (and p (processp p) (memq (process-status p) '(run open))) 4227 (condition-case err
4228 4228 (unless (and p (processp p) (memq (process-status p) '(run open)))
4229 ;; We call `tramp-get-buffer' in order to get a debug buffer for 4229
4230 ;; messages from the beginning. 4230 ;; We call `tramp-get-buffer' in order to get a debug
4231 (tramp-get-buffer vec) 4231 ;; buffer for messages from the beginning.
4232 (tramp-with-progress-reporter 4232 (tramp-get-buffer vec)
4233 vec 3 4233 (tramp-with-progress-reporter
4234 (if (zerop (length (tramp-file-name-user vec))) 4234 vec 3
4235 (format "Opening connection for %s using %s" 4235 (if (zerop (length (tramp-file-name-user vec)))
4236 (tramp-file-name-host vec) 4236 (format "Opening connection for %s using %s"
4237 (tramp-file-name-method vec)) 4237 (tramp-file-name-host vec)
4238 (format "Opening connection for %s@%s using %s" 4238 (tramp-file-name-method vec))
4239 (tramp-file-name-user vec) 4239 (format "Opening connection for %s@%s using %s"
4240 (tramp-file-name-host vec) 4240 (tramp-file-name-user vec)
4241 (tramp-file-name-method vec))) 4241 (tramp-file-name-host vec)
4242 4242 (tramp-file-name-method vec)))
4243 ;; Start new process. 4243
4244 (when (and p (processp p)) 4244 ;; Start new process.
4245 (delete-process p)) 4245 (when (and p (processp p))
4246 (setenv "TERM" tramp-terminal-type) 4246 (delete-process p))
4247 (setenv "LC_ALL" "C") 4247 (setenv "TERM" tramp-terminal-type)
4248 (setenv "PROMPT_COMMAND") 4248 (setenv "LC_ALL" "C")
4249 (setenv "PS1" tramp-initial-end-of-output) 4249 (setenv "PROMPT_COMMAND")
4250 (let* ((target-alist (tramp-compute-multi-hops vec)) 4250 (setenv "PS1" tramp-initial-end-of-output)
4251 (process-connection-type tramp-process-connection-type) 4251 (let* ((target-alist (tramp-compute-multi-hops vec))
4252 (process-adaptive-read-buffering nil) 4252 (process-connection-type tramp-process-connection-type)
4253 (coding-system-for-read nil) 4253 (process-adaptive-read-buffering nil)
4254 ;; This must be done in order to avoid our file name handler. 4254 (coding-system-for-read nil)
4255 (p (let ((default-directory 4255 ;; This must be done in order to avoid our file
4256 (tramp-compat-temporary-file-directory))) 4256 ;; name handler.
4257 (apply 4257 (p (let ((default-directory
4258 'start-process 4258 (tramp-compat-temporary-file-directory)))
4259 (tramp-get-connection-name vec) 4259 (apply
4260 (tramp-get-connection-buffer vec) 4260 'start-process
4261 (if tramp-encoding-command-interactive 4261 (tramp-get-connection-name vec)
4262 (list tramp-encoding-shell 4262 (tramp-get-connection-buffer vec)
4263 tramp-encoding-command-interactive) 4263 (if tramp-encoding-command-interactive
4264 (list tramp-encoding-shell)))))) 4264 (list tramp-encoding-shell
4265 4265 tramp-encoding-command-interactive)
4266 ;; Set sentinel and query flag. 4266 (list tramp-encoding-shell))))))
4267 (tramp-set-connection-property p "vector" vec) 4267
4268 (set-process-sentinel p 'tramp-process-sentinel) 4268 ;; Set sentinel and query flag.
4269 (tramp-compat-set-process-query-on-exit-flag p nil) 4269 (tramp-set-connection-property p "vector" vec)
4270 (set-process-sentinel p 'tramp-process-sentinel)
4271 (tramp-compat-set-process-query-on-exit-flag p nil)
4270 4272
4271 (tramp-message
4272 vec 6 "%s" (mapconcat 'identity (process-command p) " "))
4273
4274 ;; Check whether process is alive.
4275 (tramp-barf-if-no-shell-prompt
4276 p 60 "Couldn't find local shell prompt %s" tramp-encoding-shell)
4277
4278 ;; Now do all the connections as specified.
4279 (while target-alist
4280 (let* ((hop (car target-alist))
4281 (l-method (tramp-file-name-method hop))
4282 (l-user (tramp-file-name-user hop))
4283 (l-host (tramp-file-name-host hop))
4284 (l-port nil)
4285 (login-program
4286 (tramp-get-method-parameter
4287 l-method 'tramp-login-program))
4288 (login-args
4289 (tramp-get-method-parameter l-method 'tramp-login-args))
4290 (async-args
4291 (tramp-get-method-parameter l-method 'tramp-async-args))
4292 (gw-args
4293 (tramp-get-method-parameter l-method 'tramp-gw-args))
4294 (gw (tramp-get-file-property hop "" "gateway" nil))
4295 (g-method (and gw (tramp-file-name-method gw)))
4296 (g-user (and gw (tramp-file-name-user gw)))
4297 (g-host (and gw (tramp-file-name-real-host gw)))
4298 (command login-program)
4299 ;; We don't create the temporary file. In fact,
4300 ;; it is just a prefix for the ControlPath option
4301 ;; of ssh; the real temporary file has another
4302 ;; name, and it is created and protected by ssh.
4303 ;; It is also removed by ssh when the connection
4304 ;; is closed.
4305 (tmpfile
4306 (tramp-set-connection-property
4307 p "temp-file"
4308 (make-temp-name
4309 (expand-file-name
4310 tramp-temp-name-prefix
4311 (tramp-compat-temporary-file-directory)))))
4312 spec)
4313
4314 ;; Add arguments for asynchronous processes.
4315 (when (and process-name async-args)
4316 (setq login-args (append async-args login-args)))
4317
4318 ;; Add gateway arguments if necessary.
4319 (when (and gw gw-args)
4320 (setq login-args (append gw-args login-args)))
4321
4322 ;; Check for port number. Until now, there's no need
4323 ;; for handling like method, user, host.
4324 (when (string-match tramp-host-with-port-regexp l-host)
4325 (setq l-port (match-string 2 l-host)
4326 l-host (match-string 1 l-host)))
4327
4328 ;; Set variables for computing the prompt for reading
4329 ;; password. They can also be derived from a gateway.
4330 (setq tramp-current-method (or g-method l-method)
4331 tramp-current-user (or g-user l-user)
4332 tramp-current-host (or g-host l-host))
4333
4334 ;; Replace login-args place holders.
4335 (setq
4336 l-host (or l-host "")
4337 l-user (or l-user "")
4338 l-port (or l-port "")
4339 spec (format-spec-make
4340 ?h l-host ?u l-user ?p l-port ?t tmpfile)
4341 command
4342 (concat
4343 ;; We do not want to see the trailing local prompt in
4344 ;; `start-file-process'.
4345 (unless (memq system-type '(windows-nt)) "exec ")
4346 command " "
4347 (mapconcat
4348 (lambda (x)
4349 (setq x (mapcar (lambda (y) (format-spec y spec)) x))
4350 (unless (member "" x) (mapconcat 'identity x " ")))
4351 login-args " ")
4352 ;; Local shell could be a Windows COMSPEC. It
4353 ;; doesn't know the ";" syntax, but we must exit
4354 ;; always for `start-file-process'. "exec" does not
4355 ;; work either.
4356 (if (memq system-type '(windows-nt)) " && exit || exit")))
4357
4358 ;; Send the command.
4359 (tramp-message vec 3 "Sending command `%s'" command)
4360 (tramp-send-command vec command t t)
4361 (tramp-process-actions p vec pos tramp-actions-before-shell 60)
4362 (tramp-message 4273 (tramp-message
4363 vec 3 "Found remote shell prompt on `%s'" l-host)) 4274 vec 6 "%s" (mapconcat 'identity (process-command p) " "))
4364 ;; Next hop. 4275
4365 (setq target-alist (cdr target-alist))) 4276 ;; Check whether process is alive.
4366 4277 (tramp-barf-if-no-shell-prompt
4367 ;; Make initial shell settings. 4278 p 60
4368 (tramp-open-connection-setup-interactive-shell p vec))))))) 4279 "Couldn't find local shell prompt %s" tramp-encoding-shell)
4280
4281 ;; Now do all the connections as specified.
4282 (while target-alist
4283 (let* ((hop (car target-alist))
4284 (l-method (tramp-file-name-method hop))
4285 (l-user (tramp-file-name-user hop))
4286 (l-host (tramp-file-name-host hop))
4287 (l-port nil)
4288 (login-program
4289 (tramp-get-method-parameter
4290 l-method 'tramp-login-program))
4291 (login-args
4292 (tramp-get-method-parameter
4293 l-method 'tramp-login-args))
4294 (async-args
4295 (tramp-get-method-parameter
4296 l-method 'tramp-async-args))
4297 (gw-args
4298 (tramp-get-method-parameter l-method 'tramp-gw-args))
4299 (gw (tramp-get-file-property hop "" "gateway" nil))
4300 (g-method (and gw (tramp-file-name-method gw)))
4301 (g-user (and gw (tramp-file-name-user gw)))
4302 (g-host (and gw (tramp-file-name-real-host gw)))
4303 (command login-program)
4304 ;; We don't create the temporary file. In
4305 ;; fact, it is just a prefix for the
4306 ;; ControlPath option of ssh; the real
4307 ;; temporary file has another name, and it is
4308 ;; created and protected by ssh. It is also
4309 ;; removed by ssh when the connection is
4310 ;; closed.
4311 (tmpfile
4312 (tramp-set-connection-property
4313 p "temp-file"
4314 (make-temp-name
4315 (expand-file-name
4316 tramp-temp-name-prefix
4317 (tramp-compat-temporary-file-directory)))))
4318 spec)
4319
4320 ;; Add arguments for asynchronous processes.
4321 (when (and process-name async-args)
4322 (setq login-args (append async-args login-args)))
4323
4324 ;; Add gateway arguments if necessary.
4325 (when (and gw gw-args)
4326 (setq login-args (append gw-args login-args)))
4327
4328 ;; Check for port number. Until now, there's no
4329 ;; need for handling like method, user, host.
4330 (when (string-match tramp-host-with-port-regexp l-host)
4331 (setq l-port (match-string 2 l-host)
4332 l-host (match-string 1 l-host)))
4333
4334 ;; Set variables for computing the prompt for
4335 ;; reading password. They can also be derived
4336 ;; from a gateway.
4337 (setq tramp-current-method (or g-method l-method)
4338 tramp-current-user (or g-user l-user)
4339 tramp-current-host (or g-host l-host))
4340
4341 ;; Replace login-args place holders.
4342 (setq
4343 l-host (or l-host "")
4344 l-user (or l-user "")
4345 l-port (or l-port "")
4346 spec (format-spec-make
4347 ?h l-host ?u l-user ?p l-port ?t tmpfile)
4348 command
4349 (concat
4350 ;; We do not want to see the trailing local
4351 ;; prompt in `start-file-process'.
4352 (unless (memq system-type '(windows-nt)) "exec ")
4353 command " "
4354 (mapconcat
4355 (lambda (x)
4356 (setq x (mapcar (lambda (y) (format-spec y spec)) x))
4357 (unless (member "" x) (mapconcat 'identity x " ")))
4358 login-args " ")
4359 ;; Local shell could be a Windows COMSPEC. It
4360 ;; doesn't know the ";" syntax, but we must exit
4361 ;; always for `start-file-process'. "exec" does
4362 ;; not work either.
4363 (if (memq system-type '(windows-nt)) " && exit || exit")))
4364
4365 ;; Send the command.
4366 (tramp-message vec 3 "Sending command `%s'" command)
4367 (tramp-send-command vec command t t)
4368 (tramp-process-actions
4369 p vec pos tramp-actions-before-shell 60)
4370 (tramp-message
4371 vec 3 "Found remote shell prompt on `%s'" l-host))
4372 ;; Next hop.
4373 (setq target-alist (cdr target-alist)))
4374
4375 ;; Make initial shell settings.
4376 (tramp-open-connection-setup-interactive-shell p vec))))
4377
4378 ;; When the user did interrupt, we must cleanup.
4379 (quit
4380 (let ((p (tramp-get-connection-process vec)))
4381 (when (and p (processp p))
4382 (tramp-flush-connection-property vec)
4383 (tramp-flush-connection-property p)
4384 (delete-process p)))
4385 ;; Propagate the quit signal.
4386 (signal (car err) (cdr err)))))))
4369 4387
4370(defun tramp-send-command (vec command &optional neveropen nooutput) 4388(defun tramp-send-command (vec command &optional neveropen nooutput)
4371 "Send the COMMAND to connection VEC. 4389 "Send the COMMAND to connection VEC.
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 0ee6ad8dea4..c89b61c2eb1 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -1331,7 +1331,7 @@ ARGS to actually emit the message (if applicable)."
1331 (setq fn nil))) 1331 (setq fn nil)))
1332 (setq btn (1+ btn)))) 1332 (setq btn (1+ btn))))
1333 ;; The following code inserts filename and line number. 1333 ;; The following code inserts filename and line number.
1334 ;; Should be deactivated by default, because it is time 1334 ;; Should be inactive by default, because it is time
1335 ;; consuming. 1335 ;; consuming.
1336; (let ((ffn (find-function-noselect (intern fn)))) 1336; (let ((ffn (find-function-noselect (intern fn))))
1337; (insert 1337; (insert
diff --git a/lisp/net/xesam.el b/lisp/net/xesam.el
index ea4a887898e..ab817a43885 100644
--- a/lisp/net/xesam.el
+++ b/lisp/net/xesam.el
@@ -196,7 +196,7 @@ be different at least in one face property not set in that face."
196(defconst xesam-all-fields 196(defconst xesam-all-fields
197 '("xesam:35mmEquivalent" "xesam:aimContactMedium" "xesam:aperture" 197 '("xesam:35mmEquivalent" "xesam:aimContactMedium" "xesam:aperture"
198 "xesam:aspectRatio" "xesam:attachmentEncoding" "xesam:attendee" 198 "xesam:aspectRatio" "xesam:attachmentEncoding" "xesam:attendee"
199 "xesam:audioBirate" "xesam:audioChannels" "xesam:audioCodec" 199 "xesam:audioBitrate" "xesam:audioChannels" "xesam:audioCodec"
200 "xesam:audioCodecType" "xesam:audioSampleFormat" "xesam:audioSampleRate" 200 "xesam:audioCodecType" "xesam:audioSampleFormat" "xesam:audioSampleRate"
201 "xesam:author" "xesam:bcc" "xesam:birthDate" "xesam:blogContactURL" 201 "xesam:author" "xesam:bcc" "xesam:birthDate" "xesam:blogContactURL"
202 "xesam:cameraManufacturer" "xesam:cameraModel" "xesam:cc" "xesam:ccdWidth" 202 "xesam:cameraManufacturer" "xesam:cameraModel" "xesam:cc" "xesam:ccdWidth"
@@ -240,7 +240,8 @@ be different at least in one face property not set in that face."
240 "xesam:subject" "xesam:supercedes" "xesam:title" "xesam:to" 240 "xesam:subject" "xesam:supercedes" "xesam:title" "xesam:to"
241 "xesam:totalSpace" "xesam:totalUncompressedSize" "xesam:url" 241 "xesam:totalSpace" "xesam:totalUncompressedSize" "xesam:url"
242 "xesam:usageIntensity" "xesam:userComment" "xesam:userKeyword" 242 "xesam:usageIntensity" "xesam:userComment" "xesam:userKeyword"
243 "xesam:uuid" "xesam:version" "xesam:verticalResolution" "xesam:videoBirate" 243 "xesam:uuid" "xesam:version" "xesam:verticalResolution"
244 "xesam:videoBitrate"
244 "xesam:videoCodec" "xesam:videoCodecType" "xesam:whiteBalance" 245 "xesam:videoCodec" "xesam:videoCodecType" "xesam:whiteBalance"
245 "xesam:width" "xesam:wordCount" "xesam:workEmailAddress" 246 "xesam:width" "xesam:wordCount" "xesam:workEmailAddress"
246 "xesam:workPhoneNumber" "xesam:workPostalAddress" 247 "xesam:workPhoneNumber" "xesam:workPostalAddress"
@@ -819,7 +820,7 @@ search, is returned."
819 (with-current-buffer 820 (with-current-buffer
820 (generate-new-buffer (xesam-buffer-name service search)) 821 (generate-new-buffer (xesam-buffer-name service search))
821 (switch-to-buffer-other-window (current-buffer)) 822 (switch-to-buffer-other-window (current-buffer))
822 ;; Inialize buffer with `xesam-mode'. `xesam-vendor' must be 823 ;; Initialize buffer with `xesam-mode'. `xesam-vendor' must be
823 ;; set before calling `xesam-mode', because we want to give the 824 ;; set before calling `xesam-mode', because we want to give the
824 ;; hook functions a chance to identify their search engine. 825 ;; hook functions a chance to identify their search engine.
825 (setq xesam-vendor (xesam-get-cached-property engine "vendor.id")) 826 (setq xesam-vendor (xesam-get-cached-property engine "vendor.id"))
diff --git a/lisp/nxml/rng-valid.el b/lisp/nxml/rng-valid.el
index 876e582ed21..9a29e3d4cca 100644
--- a/lisp/nxml/rng-valid.el
+++ b/lisp/nxml/rng-valid.el
@@ -230,7 +230,7 @@ will be automatically rechecked when Emacs becomes idle; the
230rechecking will be paused whenever there is input pending. 230rechecking will be paused whenever there is input pending.
231 231
232By default, uses a vacuous schema that allows any well-formed XML 232By default, uses a vacuous schema that allows any well-formed XML
233document. A schema can be specified explictly using 233document. A schema can be specified explicitly using
234\\[rng-set-schema-file-and-validate], or implicitly based on the buffer's 234\\[rng-set-schema-file-and-validate], or implicitly based on the buffer's
235file name or on the root element name. In each case the schema must 235file name or on the root element name. In each case the schema must
236be a RELAX NG schema using the compact schema \(such schemas 236be a RELAX NG schema using the compact schema \(such schemas
diff --git a/lisp/obsolete/fast-lock.el b/lisp/obsolete/fast-lock.el
index 9c750ca5e89..c42c2309413 100644
--- a/lisp/obsolete/fast-lock.el
+++ b/lisp/obsolete/fast-lock.el
@@ -144,7 +144,7 @@
144;; 3.07--3.08: 144;; 3.07--3.08:
145;; - Made `fast-lock-read-cache' set `fast-lock-cache-filename' 145;; - Made `fast-lock-read-cache' set `fast-lock-cache-filename'
146;; 3.08--3.09: 146;; 3.08--3.09:
147;; - Made `fast-lock-save-cache' cope if `fast-lock-minimum-size' is an a list 147;; - Made `fast-lock-save-cache' cope if `fast-lock-minimum-size' is a list
148;; - Made `fast-lock-mode' respect the value of `font-lock-inhibit-thing-lock' 148;; - Made `fast-lock-mode' respect the value of `font-lock-inhibit-thing-lock'
149;; - Added `fast-lock-after-unfontify-buffer' 149;; - Added `fast-lock-after-unfontify-buffer'
150;; 3.09--3.10: 150;; 3.09--3.10:
diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog
index 1cdb0a6f574..1c8a3e72956 100644
--- a/lisp/org/ChangeLog
+++ b/lisp/org/ChangeLog
@@ -1,3 +1,7 @@
12011-11-24 Juanma Barranquero <lekktu@gmail.com>
2
3 * ob.el (org-babel-execute-src-block): Fix typo.
4
12011-11-20 Juanma Barranquero <lekktu@gmail.com> 52011-11-20 Juanma Barranquero <lekktu@gmail.com>
2 6
3 * org.el (org-link-unescape, org-link-unescape-compound): Fix typos. 7 * org.el (org-link-unescape, org-link-unescape-compound): Fix typos.
@@ -15461,7 +15465,7 @@
15461 15465
15462 * org.el (org-enforce-todo-checkbox-dependencies): New option. 15466 * org.el (org-enforce-todo-checkbox-dependencies): New option.
15463 (org-block-todo-from-checkboxes): New function. 15467 (org-block-todo-from-checkboxes): New function.
15464 (org-todo): Make tripple prefix arg circumvent blocking. 15468 (org-todo): Make triple prefix arg circumvent blocking.
15465 15469
154662009-01-30 Glenn Morris <rgm@gnu.org> 154702009-01-30 Glenn Morris <rgm@gnu.org>
15467 15471
@@ -17592,7 +17596,7 @@
175922008-06-17 Carsten Dominik <dominik@science.uva.nl> 175962008-06-17 Carsten Dominik <dominik@science.uva.nl>
17593 17597
17594 * org.el (org-schedule, org-deadline): Protect scheduled and 17598 * org.el (org-schedule, org-deadline): Protect scheduled and
17595 deadline tasks against changes that accidently remove the 17599 deadline tasks against changes that accidentally remove the
17596 repeater. Also show a message with the new date when done. 17600 repeater. Also show a message with the new date when done.
17597 17601
175982008-06-17 Carsten Dominik <dominik@science.uva.nl> 176022008-06-17 Carsten Dominik <dominik@science.uva.nl>
diff --git a/lisp/org/ob.el b/lisp/org/ob.el
index 728c6c5cb5e..f34d1fbda9e 100644
--- a/lisp/org/ob.el
+++ b/lisp/org/ob.el
@@ -380,7 +380,7 @@ Insert the results of execution into the buffer. Source code
380execution and the collection and formatting of results can be 380execution and the collection and formatting of results can be
381controlled through a variety of header arguments. 381controlled through a variety of header arguments.
382 382
383With prefix argument ARG, force re-execution even if a an 383With prefix argument ARG, force re-execution even if an
384existing result cached in the buffer would otherwise have been 384existing result cached in the buffer would otherwise have been
385returned. 385returned.
386 386
diff --git a/lisp/org/org-agenda.el b/lisp/org/org-agenda.el
index 50761ede7cb..2f4617f5146 100644
--- a/lisp/org/org-agenda.el
+++ b/lisp/org/org-agenda.el
@@ -800,7 +800,7 @@ will only be dimmed."
800 :group 'org-agenda-todo-list 800 :group 'org-agenda-todo-list
801 :type '(choice 801 :type '(choice
802 (const :tag "Do not dim" nil) 802 (const :tag "Do not dim" nil)
803 (const :tag "Dim to a grey face" t) 803 (const :tag "Dim to a gray face" t)
804 (const :tag "Make invisible" invisible))) 804 (const :tag "Make invisible" invisible)))
805 805
806(defcustom org-timeline-show-empty-dates 3 806(defcustom org-timeline-show-empty-dates 3
diff --git a/lisp/org/org-bibtex.el b/lisp/org/org-bibtex.el
index 138d99a36d9..3607458a410 100644
--- a/lisp/org/org-bibtex.el
+++ b/lisp/org/org-bibtex.el
@@ -215,7 +215,7 @@
215 "List to hold parsed bibtex entries.") 215 "List to hold parsed bibtex entries.")
216 216
217(defcustom org-bibtex-autogen-keys nil 217(defcustom org-bibtex-autogen-keys nil
218 "Set to a truthy value to use `bibtex-generate-autokey' to generate keys." 218 "Set to a truth value to use `bibtex-generate-autokey' to generate keys."
219 :group 'org-bibtex 219 :group 'org-bibtex
220 :type 'boolean) 220 :type 'boolean)
221 221
diff --git a/lisp/org/org-clock.el b/lisp/org/org-clock.el
index 6279ed3df0d..6d82d4529b6 100644
--- a/lisp/org/org-clock.el
+++ b/lisp/org/org-clock.el
@@ -1919,7 +1919,7 @@ the returned times will be formatted strings."
1919 shiftedm (- 13 (* 3 (nth 1 tmp))) 1919 shiftedm (- 13 (* 3 (nth 1 tmp)))
1920 shiftedq (- 5 (nth 1 tmp)))) 1920 shiftedq (- 5 (nth 1 tmp))))
1921 (setq d 1 h 0 m 0 d1 1 month shiftedm month1 (+ 3 shiftedm) h1 0 m1 0 y shiftedy)) 1921 (setq d 1 h 0 m 0 d1 1 month shiftedm month1 (+ 3 shiftedm) h1 0 m1 0 y shiftedy))
1922 ((> (+ q shift) 0) ; shift is whitin this year 1922 ((> (+ q shift) 0) ; shift is within this year
1923 (setq shiftedq (+ q shift)) 1923 (setq shiftedq (+ q shift))
1924 (setq shiftedy y) 1924 (setq shiftedy y)
1925 (setq d 1 h 0 m 0 d1 1 month (+ 1 (* 3 (- (+ q shift) 1))) month1 (+ 4 (* 3 (- (+ q shift) 1))) h1 0 m1 0)))) 1925 (setq d 1 h 0 m 0 d1 1 month (+ 1 (* 3 (- (+ q shift) 1))) month1 (+ 4 (* 3 (- (+ q shift) 1))) h1 0 m1 0))))
diff --git a/lisp/org/org-colview.el b/lisp/org/org-colview.el
index 05df6bb7524..0f6fc0bed6a 100644
--- a/lisp/org/org-colview.el
+++ b/lisp/org/org-colview.el
@@ -474,7 +474,7 @@ Where possible, use the standard interface for changing this line."
474 ((equal major-mode 'org-agenda-mode) 474 ((equal major-mode 'org-agenda-mode)
475 (org-columns-eval eval) 475 (org-columns-eval eval)
476 ;; The following let preserves the current format, and makes sure 476 ;; The following let preserves the current format, and makes sure
477 ;; that in only a single file things need to be upated. 477 ;; that in only a single file things need to be updated.
478 (let* ((org-agenda-overriding-columns-format org-columns-current-fmt) 478 (let* ((org-agenda-overriding-columns-format org-columns-current-fmt)
479 (buffer (marker-buffer pom)) 479 (buffer (marker-buffer pom))
480 (org-agenda-contributing-files 480 (org-agenda-contributing-files
@@ -605,7 +605,7 @@ an integer, select that value."
605 ((equal major-mode 'org-agenda-mode) 605 ((equal major-mode 'org-agenda-mode)
606 (org-columns-eval '(org-entry-put pom key nval)) 606 (org-columns-eval '(org-entry-put pom key nval))
607 ;; The following let preserves the current format, and makes sure 607 ;; The following let preserves the current format, and makes sure
608 ;; that in only a single file things need to be upated. 608 ;; that in only a single file things need to be updated.
609 (let* ((org-agenda-overriding-columns-format org-columns-current-fmt) 609 (let* ((org-agenda-overriding-columns-format org-columns-current-fmt)
610 (buffer (marker-buffer pom)) 610 (buffer (marker-buffer pom))
611 (org-agenda-contributing-files 611 (org-agenda-contributing-files
diff --git a/lisp/org/org-freemind.el b/lisp/org/org-freemind.el
index 91a1e5e59cb..b01f6d9fa6e 100644
--- a/lisp/org/org-freemind.el
+++ b/lisp/org/org-freemind.el
@@ -660,7 +660,7 @@ Otherwise give an error say the file exists."
660 (with-current-buffer mm-buffer 660 (with-current-buffer mm-buffer
661 (erase-buffer) 661 (erase-buffer)
662 (setq buffer-file-coding-system 'utf-8) 662 (setq buffer-file-coding-system 'utf-8)
663 ;; Fix-me: Currentl Freemind (ver 0.9.0 RC9) does not support this: 663 ;; Fix-me: Currently Freemind (ver 0.9.0 RC9) does not support this:
664 ;;(insert "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n") 664 ;;(insert "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n")
665 (insert "<map version=\"0.9.0\">\n") 665 (insert "<map version=\"0.9.0\">\n")
666 (insert "<!-- To view this file, download free mind mapping software FreeMind from http://freemind.sourceforge.net -->\n")) 666 (insert "<!-- To view this file, download free mind mapping software FreeMind from http://freemind.sourceforge.net -->\n"))
diff --git a/lisp/pcmpl-gnu.el b/lisp/pcmpl-gnu.el
index b2c8de6ec2f..608a9dc2e88 100644
--- a/lisp/pcmpl-gnu.el
+++ b/lisp/pcmpl-gnu.el
@@ -309,7 +309,8 @@
309 (let* ((fa (file-attributes (pcomplete-arg 1))) 309 (let* ((fa (file-attributes (pcomplete-arg 1)))
310 (size (nth 7 fa))) 310 (size (nth 7 fa)))
311 (and (numberp size) 311 (and (numberp size)
312 (< size large-file-warning-threshold)))) 312 (or (null large-file-warning-threshold)
313 (< size large-file-warning-threshold)))))
313 (let ((file (pcomplete-arg 1))) 314 (let ((file (pcomplete-arg 1)))
314 (completion-table-dynamic 315 (completion-table-dynamic
315 (lambda (_string) 316 (lambda (_string)
diff --git a/lisp/play/gomoku.el b/lisp/play/gomoku.el
index 33fcf451ebb..ee6b67e6109 100644
--- a/lisp/play/gomoku.el
+++ b/lisp/play/gomoku.el
@@ -379,7 +379,7 @@ Other useful commands:\n
379 best-square square 379 best-square square
380 score-max score) 380 score-max score)
381 (aset gomoku-score-table square -1))) ; no: kill it ! 381 (aset gomoku-score-table square -1))) ; no: kill it !
382 ;; If score is equally good, choose randomly. But first check freeness: 382 ;; If score is equally good, choose randomly. But first check freedom:
383 ((not (zerop (aref gomoku-board square))) 383 ((not (zerop (aref gomoku-board square)))
384 (aset gomoku-score-table square -1)) 384 (aset gomoku-score-table square -1))
385 ((zerop (random (setq count (1+ count)))) 385 ((zerop (random (setq count (1+ count))))
diff --git a/lisp/play/landmark.el b/lisp/play/landmark.el
index 8629baf35d3..9ef03725c60 100644
--- a/lisp/play/landmark.el
+++ b/lisp/play/landmark.el
@@ -385,7 +385,7 @@ is non-nil. One interesting value is `turn-on-font-lock'."
385 best-square square 385 best-square square
386 score-max score) 386 score-max score)
387 (aset landmark-score-table square -1))) ; no: kill it ! 387 (aset landmark-score-table square -1))) ; no: kill it !
388 ;; If score is equally good, choose randomly. But first check freeness: 388 ;; If score is equally good, choose randomly. But first check freedom:
389 ((not (zerop (aref landmark-board square))) 389 ((not (zerop (aref landmark-board square)))
390 (aset landmark-score-table square -1)) 390 (aset landmark-score-table square -1))
391 ((zerop (random (setq count (1+ count)))) 391 ((zerop (random (setq count (1+ count))))
diff --git a/lisp/printing.el b/lisp/printing.el
index d6c67cc68a6..2dea24149a7 100644
--- a/lisp/printing.el
+++ b/lisp/printing.el
@@ -547,7 +547,7 @@ Please send all bug fixes and enhancements to
547;; `pr-auto-region' Non-nil means region is automagically detected. 547;; `pr-auto-region' Non-nil means region is automagically detected.
548;; 548;;
549;; `pr-auto-mode' Non-nil means major-mode specific printing is 549;; `pr-auto-mode' Non-nil means major-mode specific printing is
550;; prefered over normal printing. 550;; preferred over normal printing.
551;; 551;;
552;; `pr-mode-alist' Specify an alist for a major-mode and printing 552;; `pr-mode-alist' Specify an alist for a major-mode and printing
553;; function. 553;; function.
@@ -2426,7 +2426,7 @@ marked instead of all buffer."
2426 2426
2427 2427
2428(defcustom pr-auto-mode t 2428(defcustom pr-auto-mode t
2429 "Non-nil means major-mode specific printing is prefered over normal printing. 2429 "Non-nil means major-mode specific printing is preferred over normal printing.
2430 2430
2431That is, if current major-mode is declared in `pr-mode-alist', the `*-buffer*' 2431That is, if current major-mode is declared in `pr-mode-alist', the `*-buffer*'
2432and `*-region*' commands will behave like `*-mode*' commands; otherwise, 2432and `*-region*' commands will behave like `*-mode*' commands; otherwise,
@@ -5458,7 +5458,7 @@ If menu binding was not done, calls `pr-menu-bind'."
5458 5458
5459 5459
5460(defun pr-toggle-mode-menu (&optional no-menu) 5460(defun pr-toggle-mode-menu (&optional no-menu)
5461 "Toggle whether major-mode specific printing is prefered over normal printing." 5461 "Toggle whether major-mode specific printing is preferred over normal printing."
5462 (interactive) 5462 (interactive)
5463 (pr-toggle 'pr-auto-mode "Auto mode" 5463 (pr-toggle 'pr-auto-mode "Auto mode"
5464 'printing 1 12 'toggle nil no-menu)) 5464 'printing 1 12 'toggle nil no-menu))
diff --git a/lisp/progmodes/ada-mode.el b/lisp/progmodes/ada-mode.el
index b8bf62d90b4..64734420a8c 100644
--- a/lisp/progmodes/ada-mode.el
+++ b/lisp/progmodes/ada-mode.el
@@ -1694,7 +1694,7 @@ ARG is ignored, and is there for compatibility with `capitalize-word' only."
1694(defun ada-no-auto-case (&optional _arg) 1694(defun ada-no-auto-case (&optional _arg)
1695 "Do nothing. ARG is ignored. 1695 "Do nothing. ARG is ignored.
1696This function can be used for the auto-casing variables in Ada mode, to 1696This function can be used for the auto-casing variables in Ada mode, to
1697adapt to unusal auto-casing schemes. Since it does nothing, you can for 1697adapt to unusual auto-casing schemes. Since it does nothing, you can for
1698instance use it for `ada-case-identifier' if you don't want any special 1698instance use it for `ada-case-identifier' if you don't want any special
1699auto-casing for identifiers, whereas keywords have to be lower-cased. 1699auto-casing for identifiers, whereas keywords have to be lower-cased.
1700See also `ada-auto-case' to disable auto casing altogether." 1700See also `ada-auto-case' to disable auto casing altogether."
@@ -3939,7 +3939,7 @@ If NOERROR is non-nil, it only returns nil if no matching start found."
3939 ;; processing them recursively avoids the need for any special 3939 ;; processing them recursively avoids the need for any special
3940 ;; handling. 3940 ;; handling.
3941 ;; Nothing should be done if we have only the specs or a 3941 ;; Nothing should be done if we have only the specs or a
3942 ;; generic instantion. 3942 ;; generic instantiation.
3943 3943
3944 ((and (looking-at "\\<procedure\\|function\\>")) 3944 ((and (looking-at "\\<procedure\\|function\\>"))
3945 (if first 3945 (if first
@@ -4401,7 +4401,7 @@ Moves to 'begin' if in a declarative part."
4401 (ada-goto-matching-end 1)) 4401 (ada-goto-matching-end 1))
4402 4402
4403 ;; on first line of subprogram body 4403 ;; on first line of subprogram body
4404 ;; Do nothing for specs or generic instantion, since these are 4404 ;; Do nothing for specs or generic instantiation, since these are
4405 ;; handled as the general case (find the enclosing block) 4405 ;; handled as the general case (find the enclosing block)
4406 ;; We also need to make sure that we ignore nested subprograms 4406 ;; We also need to make sure that we ignore nested subprograms
4407 ((save-excursion 4407 ((save-excursion
diff --git a/lisp/progmodes/ada-xref.el b/lisp/progmodes/ada-xref.el
index 0cfdab23702..2f6a7be393a 100644
--- a/lisp/progmodes/ada-xref.el
+++ b/lisp/progmodes/ada-xref.el
@@ -1357,7 +1357,7 @@ project file."
1357 (or executable-name 1357 (or executable-name
1358 (file-name-sans-extension (buffer-file-name)))))) 1358 (file-name-sans-extension (buffer-file-name))))))
1359 1359
1360 ;; For gvd, add an extra switch so that the Emacs window is completly 1360 ;; For gvd, add an extra switch so that the Emacs window is completely
1361 ;; swallowed inside the Gvd one 1361 ;; swallowed inside the Gvd one
1362 (if (and ada-tight-gvd-integration 1362 (if (and ada-tight-gvd-integration
1363 (string-match "^[^ \t]*gvd" cmd)) 1363 (string-match "^[^ \t]*gvd" cmd))
@@ -1783,7 +1783,7 @@ Information is extracted from the ali file."
1783 ) 1783 )
1784 ) 1784 )
1785 1785
1786 ;; Last check to be completly sure we have found the correct line (the 1786 ;; Last check to be completely sure we have found the correct line (the
1787 ;; ali might not be up to date for instance) 1787 ;; ali might not be up to date for instance)
1788 (if declaration-found 1788 (if declaration-found
1789 (progn 1789 (progn
diff --git a/lisp/progmodes/cc-cmds.el b/lisp/progmodes/cc-cmds.el
index 1eaf8910d14..8e4ac92d96f 100644
--- a/lisp/progmodes/cc-cmds.el
+++ b/lisp/progmodes/cc-cmds.el
@@ -2316,7 +2316,7 @@ function does not require the declaration to contain a brace block."
2316 2316
2317(defun c-after-statement-terminator-p () ; Should we pass in LIM here? 2317(defun c-after-statement-terminator-p () ; Should we pass in LIM here?
2318 ;; Does point immediately follow a statement "terminator"? A virtual 2318 ;; Does point immediately follow a statement "terminator"? A virtual
2319 ;; semicolon is regarded here as such. So is a an opening brace ;-) 2319 ;; semicolon is regarded here as such. So is an opening brace ;-)
2320 ;; 2320 ;;
2321 ;; This function might do hidden buffer changes. 2321 ;; This function might do hidden buffer changes.
2322 (or (save-excursion 2322 (or (save-excursion
diff --git a/lisp/progmodes/cc-engine.el b/lisp/progmodes/cc-engine.el
index c794cad65db..9544c4f8728 100644
--- a/lisp/progmodes/cc-engine.el
+++ b/lisp/progmodes/cc-engine.el
@@ -6467,7 +6467,7 @@ comment at the start of cc-engine.el for more info."
6467 (when (c-keyword-member kwd-sym 'c-typeless-decl-kwds) 6467 (when (c-keyword-member kwd-sym 'c-typeless-decl-kwds)
6468 (setq maybe-typeless t)) 6468 (setq maybe-typeless t))
6469 6469
6470 ;; Haven't matched a type so it's an umambiguous 6470 ;; Haven't matched a type so it's an unambiguous
6471 ;; specifier keyword and we know we're in a 6471 ;; specifier keyword and we know we're in a
6472 ;; declaration. 6472 ;; declaration.
6473 (setq at-decl-or-cast t) 6473 (setq at-decl-or-cast t)
diff --git a/lisp/progmodes/cc-langs.el b/lisp/progmodes/cc-langs.el
index 4a6344727b4..37818638d41 100644
--- a/lisp/progmodes/cc-langs.el
+++ b/lisp/progmodes/cc-langs.el
@@ -433,7 +433,7 @@ element is a cons where the car is the character to modify and the cdr
433the new syntax, as accepted by `modify-syntax-entry'." 433the new syntax, as accepted by `modify-syntax-entry'."
434 ;; The $ character is not allowed in most languages (one exception 434 ;; The $ character is not allowed in most languages (one exception
435 ;; is Java which allows it for legacy reasons) but we still classify 435 ;; is Java which allows it for legacy reasons) but we still classify
436 ;; it as an indentifier character since it's often used in various 436 ;; it as an identifier character since it's often used in various
437 ;; machine generated identifiers. 437 ;; machine generated identifiers.
438 t '((?_ . "w") (?$ . "w")) 438 t '((?_ . "w") (?$ . "w"))
439 (objc java) (append '((?@ . "w")) 439 (objc java) (append '((?@ . "w"))
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index 0e649480dda..13fa310106c 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -1388,12 +1388,12 @@ The expansion is entirely correct because it uses the C preprocessor."
1388 1388
1389;;; These two must be unwound, otherwise take exponential time 1389;;; These two must be unwound, otherwise take exponential time
1390(defconst cperl-maybe-white-and-comment-rex "[ \t\n]*\\(#[^\n]*\n[ \t\n]*\\)*" 1390(defconst cperl-maybe-white-and-comment-rex "[ \t\n]*\\(#[^\n]*\n[ \t\n]*\\)*"
1391"Regular expression to match optional whitespace with interpspersed comments. 1391"Regular expression to match optional whitespace with interspersed comments.
1392Should contain exactly one group.") 1392Should contain exactly one group.")
1393 1393
1394;;; This one is tricky to unwind; still very inefficient... 1394;;; This one is tricky to unwind; still very inefficient...
1395(defconst cperl-white-and-comment-rex "\\([ \t\n]\\|#[^\n]*\n\\)+" 1395(defconst cperl-white-and-comment-rex "\\([ \t\n]\\|#[^\n]*\n\\)+"
1396"Regular expression to match whitespace with interpspersed comments. 1396"Regular expression to match whitespace with interspersed comments.
1397Should contain exactly one group.") 1397Should contain exactly one group.")
1398 1398
1399 1399
@@ -1811,7 +1811,7 @@ or as help on variables `cperl-tips', `cperl-problems',
1811 (funcall f)) 1811 (funcall f))
1812 (make-local-variable 'compilation-error-regexp-alist) 1812 (make-local-variable 'compilation-error-regexp-alist)
1813 (push 'cperl compilation-error-regexp-alist))) 1813 (push 'cperl compilation-error-regexp-alist)))
1814 ((boundp 'compilation-error-regexp-alist);; xmeacs 19.x 1814 ((boundp 'compilation-error-regexp-alist);; xemacs 19.x
1815 (make-local-variable 'compilation-error-regexp-alist) 1815 (make-local-variable 'compilation-error-regexp-alist)
1816 (set 'compilation-error-regexp-alist 1816 (set 'compilation-error-regexp-alist
1817 (append cperl-compilation-error-regexp-alist 1817 (append cperl-compilation-error-regexp-alist
@@ -7650,7 +7650,7 @@ $~ The name of the current report format.
7650... &= ... Bitwise and assignment. 7650... &= ... Bitwise and assignment.
7651... * ... Multiplication. 7651... * ... Multiplication.
7652... ** ... Exponentiation. 7652... ** ... Exponentiation.
7653*NAME Glob: all objects refered by NAME. *NAM1 = *NAM2 aliases NAM1 to NAM2. 7653*NAME Glob: all objects referred by NAME. *NAM1 = *NAM2 aliases NAM1 to NAM2.
7654&NAME(arg0, ...) Subroutine call. Arguments go to @_. 7654&NAME(arg0, ...) Subroutine call. Arguments go to @_.
7655... + ... Addition. +EXPR Makes EXPR into scalar context. 7655... + ... Addition. +EXPR Makes EXPR into scalar context.
7656++ Auto-increment (magical on strings). ++EXPR EXPR++ 7656++ Auto-increment (magical on strings). ++EXPR EXPR++
diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el
index ce04d8b390e..95b8d810028 100644
--- a/lisp/progmodes/f90.el
+++ b/lisp/progmodes/f90.el
@@ -724,7 +724,7 @@ Can be overridden by the value of `font-lock-maximum-decoration'.")
724 ["Reset to Saved" Custom-reset-saved :active t 724 ["Reset to Saved" Custom-reset-saved :active t
725 :help "Reset all edited or set settings to saved"] 725 :help "Reset all edited or set settings to saved"]
726 ["Reset to Standard Settings" Custom-reset-standard :active t 726 ["Reset to Standard Settings" Custom-reset-standard :active t
727 :help "Erase all cusomizations in buffer"] 727 :help "Erase all customizations in buffer"]
728 ) 728 )
729 "--" 729 "--"
730 ["Indent Subprogram" f90-indent-subprogram t] 730 ["Indent Subprogram" f90-indent-subprogram t]
diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el
index e98ca58f3e0..2dac46a6d5b 100644
--- a/lisp/progmodes/fortran.el
+++ b/lisp/progmodes/fortran.el
@@ -665,7 +665,7 @@ Used in the Fortran entry in `hs-special-modes-alist'.")
665 ["Reset to Saved" Custom-reset-saved :active t 665 ["Reset to Saved" Custom-reset-saved :active t
666 :help "Reset all edited or set settings to saved"] 666 :help "Reset all edited or set settings to saved"]
667 ["Reset to Standard Settings" Custom-reset-standard :active t 667 ["Reset to Standard Settings" Custom-reset-standard :active t
668 :help "Erase all cusomizations in buffer"] 668 :help "Erase all customizations in buffer"]
669 ) 669 )
670 "--" 670 "--"
671 ["Comment Region" fortran-comment-region mark-active] 671 ["Comment Region" fortran-comment-region mark-active]
diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el
index a1a41bd0b1b..ab40dff24f1 100644
--- a/lisp/progmodes/gdb-mi.el
+++ b/lisp/progmodes/gdb-mi.el
@@ -214,7 +214,7 @@ Emacs can't find.")
214(defvar gdb-source-window nil) 214(defvar gdb-source-window nil)
215(defvar gdb-inferior-status nil) 215(defvar gdb-inferior-status nil)
216(defvar gdb-continuation nil) 216(defvar gdb-continuation nil)
217(defvar gdb-version nil) 217(defvar gdb-supports-non-stop nil)
218(defvar gdb-filter-output nil 218(defvar gdb-filter-output nil
219 "Message to be shown in GUD console. 219 "Message to be shown in GUD console.
220 220
@@ -574,7 +574,7 @@ When `gdb-non-stop' is nil, return COMMAND unchanged."
574 (if gdb-non-stop 574 (if gdb-non-stop
575 (if (and gdb-gud-control-all-threads 575 (if (and gdb-gud-control-all-threads
576 (not noall) 576 (not noall)
577 (string-equal gdb-version "7.0+")) 577 gdb-supports-non-stop)
578 (concat command " --all ") 578 (concat command " --all ")
579 (gdb-current-context-command command)) 579 (gdb-current-context-command command))
580 command)) 580 command))
@@ -872,14 +872,16 @@ detailed description of this mode.
872 (when gdb-non-stop 872 (when gdb-non-stop
873 (gdb-input (list "-gdb-set non-stop 1" 'gdb-non-stop-handler))) 873 (gdb-input (list "-gdb-set non-stop 1" 'gdb-non-stop-handler)))
874 874
875 (gdb-input (list "-enable-pretty-printing" 'ignore))
876
875 ;; find source file and compilation directory here 877 ;; find source file and compilation directory here
876 (gdb-input
877 ; Needs GDB 6.2 onwards.
878 (list "-file-list-exec-source-files" 'gdb-get-source-file-list))
879 (if gdb-create-source-file-list 878 (if gdb-create-source-file-list
880 (gdb-input 879 (gdb-input
880 ; Needs GDB 6.2 onwards.
881 (list "-file-list-exec-source-files" 'gdb-get-source-file-list)))
882 (gdb-input
881 ; Needs GDB 6.0 onwards. 883 ; Needs GDB 6.0 onwards.
882 (list "-file-list-exec-source-file" 'gdb-get-source-file))) 884 (list "-file-list-exec-source-file" 'gdb-get-source-file))
883 (gdb-input 885 (gdb-input
884 (list "-gdb-show prompt" 'gdb-get-prompt))) 886 (list "-gdb-show prompt" 'gdb-get-prompt)))
885 887
@@ -890,10 +892,18 @@ detailed description of this mode.
890 (message 892 (message
891 "This version of GDB doesn't support non-stop mode. Turning it off.") 893 "This version of GDB doesn't support non-stop mode. Turning it off.")
892 (setq gdb-non-stop nil) 894 (setq gdb-non-stop nil)
893 (setq gdb-version "pre-7.0")) 895 (setq gdb-supports-non-stop nil))
894 (setq gdb-version "7.0+") 896 (setq gdb-supports-non-stop t)
895 (gdb-input (list "-gdb-set target-async 1" 'ignore)) 897 (gdb-input (list "-gdb-set target-async 1" 'ignore))
896 (gdb-input (list "-enable-pretty-printing" 'ignore)))) 898 (gdb-input (list "-list-target-features" 'gdb-check-target-async))))
899
900(defun gdb-check-target-async ()
901 (goto-char (point-min))
902 (unless (re-search-forward "async" nil t)
903 (message
904 "Target doesn't support non-stop mode. Turning it off.")
905 (setq gdb-non-stop nil)
906 (gdb-input (list "-gdb-set non-stop 0" 'ignore))))
897 907
898(defvar gdb-define-alist nil "Alist of #define directives for GUD tooltips.") 908(defvar gdb-define-alist nil "Alist of #define directives for GUD tooltips.")
899 909
@@ -1071,7 +1081,7 @@ With arg, enter name of variable to be watched in the minibuffer."
1071 (tooltip-identifier-from-point (point))))))) 1081 (tooltip-identifier-from-point (point)))))))
1072 (set-text-properties 0 (length expr) nil expr) 1082 (set-text-properties 0 (length expr) nil expr)
1073 (gdb-input 1083 (gdb-input
1074 (list (concat"-var-create - * " expr "") 1084 (list (concat "-var-create - * " expr "")
1075 `(lambda () (gdb-var-create-handler ,expr))))))) 1085 `(lambda () (gdb-var-create-handler ,expr)))))))
1076 (message "gud-watch is a no-op in this mode.")))) 1086 (message "gud-watch is a no-op in this mode."))))
1077 1087
@@ -1699,7 +1709,7 @@ static char *magick[] = {
1699(defun gdb-current-context-command (command) 1709(defun gdb-current-context-command (command)
1700 "Add --thread to gdb COMMAND when needed." 1710 "Add --thread to gdb COMMAND when needed."
1701 (if (and gdb-thread-number 1711 (if (and gdb-thread-number
1702 (string-equal gdb-version "7.0+")) 1712 gdb-supports-non-stop)
1703 (concat command " --thread " gdb-thread-number) 1713 (concat command " --thread " gdb-thread-number)
1704 command)) 1714 command))
1705 1715
@@ -1983,8 +1993,8 @@ current thread and update GDB buffers."
1983 (when (not gdb-register-names) 1993 (when (not gdb-register-names)
1984 (gdb-input 1994 (gdb-input
1985 (list (concat "-data-list-register-names" 1995 (list (concat "-data-list-register-names"
1986 (if (string-equal gdb-version "7.0+") 1996 (if gdb-supports-non-stop
1987 (concat" --thread " thread-id))) 1997 (concat " --thread " thread-id)))
1988 'gdb-register-names-handler))) 1998 'gdb-register-names-handler)))
1989 1999
1990;;; Don't set gud-last-frame here as it's currently done in gdb-frame-handler 2000;;; Don't set gud-last-frame here as it's currently done in gdb-frame-handler
@@ -4133,7 +4143,7 @@ buffers, if required."
4133 (if gdb-many-windows 4143 (if gdb-many-windows
4134 (gdb-setup-windows) 4144 (gdb-setup-windows)
4135 (gdb-get-buffer-create 'gdb-breakpoints-buffer) 4145 (gdb-get-buffer-create 'gdb-breakpoints-buffer)
4136 (if gdb-show-main 4146 (if (and gdb-show-main gdb-main-file)
4137 (let ((pop-up-windows t)) 4147 (let ((pop-up-windows t))
4138 (display-buffer (gud-find-file gdb-main-file)))))) 4148 (display-buffer (gud-find-file gdb-main-file))))))
4139 4149
diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el
index dbffbc266e7..75d71d2d8a9 100644
--- a/lisp/progmodes/grep.el
+++ b/lisp/progmodes/grep.el
@@ -438,9 +438,9 @@ This variable's value takes effect when `grep-compute-defaults' is called.")
438 438
439;; History of grep commands. 439;; History of grep commands.
440;;;###autoload 440;;;###autoload
441(defvar grep-history nil) 441(defvar grep-history nil "History list for grep.")
442;;;###autoload 442;;;###autoload
443(defvar grep-find-history nil) 443(defvar grep-find-history nil "History list for grep-find.")
444 444
445;; History of lgrep and rgrep regexp and files args. 445;; History of lgrep and rgrep regexp and files args.
446(defvar grep-regexp-history nil) 446(defvar grep-regexp-history nil)
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index 527bc51eef8..406db76487d 100644
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -103,7 +103,7 @@ If SOFT is non-nil, returns nil if the symbol doesn't already exist."
103 103
104(defvar gud-running nil 104(defvar gud-running nil
105 "Non-nil if debugged program is running. 105 "Non-nil if debugged program is running.
106Used to grey out relevant toolbar icons.") 106Used to gray out relevant toolbar icons.")
107 107
108(defvar gud-target-name "--unknown--" 108(defvar gud-target-name "--unknown--"
109 "The apparent name of the program being debugged in a gud buffer.") 109 "The apparent name of the program being debugged in a gud buffer.")
@@ -1745,7 +1745,7 @@ and source-file directory for your debugger."
1745;; All the .java files in the directories in gud-jdb-directories are 1745;; All the .java files in the directories in gud-jdb-directories are
1746;; syntactically analyzed each time gud jdb is invoked. It would be 1746;; syntactically analyzed each time gud jdb is invoked. It would be
1747;; nice to keep as much information as possible between runs. It would 1747;; nice to keep as much information as possible between runs. It would
1748;; be really nice to analyze the files only as neccessary (when the 1748;; be really nice to analyze the files only as necessary (when the
1749;; source needs to be displayed.) I'm not sure to what extent the former 1749;; source needs to be displayed.) I'm not sure to what extent the former
1750;; can be accomplished and I'm not sure the latter can be done at all 1750;; can be accomplished and I'm not sure the latter can be done at all
1751;; since I don't know of any general way to tell which .class files are 1751;; since I don't know of any general way to tell which .class files are
diff --git a/lisp/progmodes/hideshow.el b/lisp/progmodes/hideshow.el
index ca8be01d4a8..9cbc1dc6d32 100644
--- a/lisp/progmodes/hideshow.el
+++ b/lisp/progmodes/hideshow.el
@@ -194,9 +194,9 @@
194;; Unfortunately, these workarounds do not restore hideshow state. 194;; Unfortunately, these workarounds do not restore hideshow state.
195;; If someone figures out a better way, please let me know. 195;; If someone figures out a better way, please let me know.
196 196
197;; * Correspondance 197;; * Correspondence
198;; 198;;
199;; Correspondance welcome; please indicate version number. Send bug 199;; Correspondence welcome; please indicate version number. Send bug
200;; reports and inquiries to <ttn@gnu.org>. 200;; reports and inquiries to <ttn@gnu.org>.
201 201
202;; * Thanks 202;; * Thanks
diff --git a/lisp/progmodes/idlw-shell.el b/lisp/progmodes/idlw-shell.el
index faccbb1f0ca..aa46b54d848 100644
--- a/lisp/progmodes/idlw-shell.el
+++ b/lisp/progmodes/idlw-shell.el
@@ -1844,7 +1844,7 @@ file name."
1844 (cond 1844 (cond
1845 ((file-regular-p file2) file2) 1845 ((file-regular-p file2) file2)
1846 ((file-regular-p file1) file1) 1846 ((file-regular-p file1) file1)
1847 ;; If we cannot veryfy the existence of the file, we return the shorter 1847 ;; If we cannot verify the existence of the file, we return the shorter
1848 ;; name. The idea behind this is that this may be a relative file name 1848 ;; name. The idea behind this is that this may be a relative file name
1849 ;; and our idea about the current working directory may be wrong. 1849 ;; and our idea about the current working directory may be wrong.
1850 ;; If it is a relative file name, it hopefully is short. 1850 ;; If it is a relative file name, it hopefully is short.
@@ -2903,7 +2903,7 @@ from `idlwave-shell-examine-alist' via mini-buffer shortcut key."
2903 ;; Move to beginning of current or previous expression 2903 ;; Move to beginning of current or previous expression
2904 (if (looking-at "\\<\\|(") 2904 (if (looking-at "\\<\\|(")
2905 ;; At beginning of expression, don't move backwards unless 2905 ;; At beginning of expression, don't move backwards unless
2906 ;; this is at the end of an indentifier. 2906 ;; this is at the end of an identifier.
2907 (if (looking-at "\\>") 2907 (if (looking-at "\\>")
2908 (backward-sexp)) 2908 (backward-sexp))
2909 (backward-sexp)) 2909 (backward-sexp))
diff --git a/lisp/progmodes/make-mode.el b/lisp/progmodes/make-mode.el
index c49519ed179..c1a87a9d033 100644
--- a/lisp/progmodes/make-mode.el
+++ b/lisp/progmodes/make-mode.el
@@ -1278,7 +1278,7 @@ definition and conveniently use this command."
1278 ((or (eq (char-before (line-end-position 1)) ?\\) 1278 ((or (eq (char-before (line-end-position 1)) ?\\)
1279 (eq (char-before (line-end-position 0)) ?\\)) 1279 (eq (char-before (line-end-position 0)) ?\\))
1280 ;; A backslash region. Find beginning and end, remove 1280 ;; A backslash region. Find beginning and end, remove
1281 ;; backslashes, fill, and then reapply backslahes. 1281 ;; backslashes, fill, and then reapply backslashes.
1282 (end-of-line) 1282 (end-of-line)
1283 (let ((beginning 1283 (let ((beginning
1284 (save-excursion 1284 (save-excursion
diff --git a/lisp/progmodes/prolog.el b/lisp/progmodes/prolog.el
index 8b4798e1c14..5b229cc0c24 100644
--- a/lisp/progmodes/prolog.el
+++ b/lisp/progmodes/prolog.el
@@ -164,7 +164,7 @@
164;; with the original form). My code on the matter was improved 164;; with the original form). My code on the matter was improved
165;; considerably by Markus Triska. 165;; considerably by Markus Triska.
166;; o Fixed `prolog-insert-spaces-after-paren' (which used an 166;; o Fixed `prolog-insert-spaces-after-paren' (which used an
167;; unitialized variable). 167;; uninitialized variable).
168;; o Minor changes to clean up the code and avoid some implicit 168;; o Minor changes to clean up the code and avoid some implicit
169;; package requirements. 169;; package requirements.
170;; Version 1.13: 170;; Version 1.13:
@@ -691,7 +691,7 @@ nil means send actual operating system end of file."
691(defcustom prolog-use-standard-consult-compile-method-flag t 691(defcustom prolog-use-standard-consult-compile-method-flag t
692 "*Non-nil means use the standard compilation method. 692 "*Non-nil means use the standard compilation method.
693Otherwise the new compilation method will be used. This 693Otherwise the new compilation method will be used. This
694utilises a special compilation buffer with the associated 694utilizes a special compilation buffer with the associated
695features such as parsing of error messages and automatically 695features such as parsing of error messages and automatically
696jumping to the source code responsible for the error. 696jumping to the source code responsible for the error.
697 697
@@ -868,8 +868,9 @@ VERSION is of the format (Major . Minor)"
868(defun prolog-find-value-by-system (alist) 868(defun prolog-find-value-by-system (alist)
869 "Get value from ALIST according to `prolog-system'." 869 "Get value from ALIST according to `prolog-system'."
870 (let ((system (or prolog-system 870 (let ((system (or prolog-system
871 (buffer-local-value 'prolog-system 871 (let ((infbuf (prolog-inferior-buffer 'dont-run)))
872 (prolog-inferior-buffer 'dont-run))))) 872 (when infbuf
873 (buffer-local-value 'prolog-system infbuf))))))
873 (if (listp alist) 874 (if (listp alist)
874 (let (result 875 (let (result
875 id) 876 id)
@@ -1522,7 +1523,7 @@ This function must be called from the source code buffer."
1522 ;; Emacs-20). 1523 ;; Emacs-20).
1523 (set (make-local-variable 'compilation-parse-errors-function) 1524 (set (make-local-variable 'compilation-parse-errors-function)
1524 'prolog-parse-sicstus-compilation-errors)) 1525 'prolog-parse-sicstus-compilation-errors))
1525 (toggle-read-only 0) 1526 (setq buffer-read-only nil)
1526 (insert command-string "\n")) 1527 (insert command-string "\n"))
1527 (save-selected-window 1528 (save-selected-window
1528 (pop-to-buffer buffer)) 1529 (pop-to-buffer buffer))
@@ -1569,7 +1570,7 @@ For use with the `compilation-parse-errors-function' variable."
1569 limit t) 1570 limit t)
1570 (setq filepath (match-string 2))) 1571 (setq filepath (match-string 2)))
1571 1572
1572 ;; ###### Does this work with SICStus under Windows (i.e. backslahes and stuff?) 1573 ;; ###### Does this work with SICStus under Windows (i.e. backslashes and stuff?)
1573 (if (string-match "\\(.*/\\)\\([^/]*\\)$" filepath) 1574 (if (string-match "\\(.*/\\)\\([^/]*\\)$" filepath)
1574 (progn 1575 (progn
1575 (setq dir (match-string 1 filepath)) 1576 (setq dir (match-string 1 filepath))
diff --git a/lisp/progmodes/sql.el b/lisp/progmodes/sql.el
index af9ab537893..03e095b6bfc 100644
--- a/lisp/progmodes/sql.el
+++ b/lisp/progmodes/sql.el
@@ -96,7 +96,7 @@
96;; This improves the interaction under Emacs but it still is somewhat 96;; This improves the interaction under Emacs but it still is somewhat
97;; awkward. 97;; awkward.
98 98
99;; Quoted identifiers are not supported for hilighting. Most 99;; Quoted identifiers are not supported for highlighting. Most
100;; databases support the use of double quoted strings in place of 100;; databases support the use of double quoted strings in place of
101;; identifiers; ms (Microsoft SQLServer) also supports identifiers 101;; identifiers; ms (Microsoft SQLServer) also supports identifiers
102;; enclosed within brackets []. 102;; enclosed within brackets [].
@@ -1329,9 +1329,9 @@ statement. The format of variable should be a valid
1329;; are not followed closely, and most vendors offer significant 1329;; are not followed closely, and most vendors offer significant
1330;; capabilities beyond those defined in the standard specifications. 1330;; capabilities beyond those defined in the standard specifications.
1331 1331
1332;; SQL mode provides support for hilighting based on the product. In 1332;; SQL mode provides support for highlighting based on the product. In
1333;; addition to hilighting the product keywords, any ANSI keywords not 1333;; addition to highlighting the product keywords, any ANSI keywords not
1334;; used by the product are also hilighted. This will help identify 1334;; used by the product are also highlighted. This will help identify
1335;; keywords that could be restricted in future versions of the product 1335;; keywords that could be restricted in future versions of the product
1336;; or might be a problem if ported to another product. 1336;; or might be a problem if ported to another product.
1337 1337
@@ -2506,7 +2506,7 @@ See `sql-product-alist' for a list of products and supported features."
2506 "Configure font-lock and imenu with product-specific settings. 2506 "Configure font-lock and imenu with product-specific settings.
2507 2507
2508The KEYWORDS-ONLY flag is passed to font-lock to specify whether 2508The KEYWORDS-ONLY flag is passed to font-lock to specify whether
2509only keywords should be hilighted and syntactic hilighting 2509only keywords should be highlighted and syntactic highlighting
2510skipped. The IMENU flag indicates whether `imenu-mode' should 2510skipped. The IMENU flag indicates whether `imenu-mode' should
2511also be configured." 2511also be configured."
2512 2512
@@ -3807,7 +3807,7 @@ you entered, right above the output it created.
3807 3807
3808 ;; Note that making KEYWORDS-ONLY nil will cause havoc if you try 3808 ;; Note that making KEYWORDS-ONLY nil will cause havoc if you try
3809 ;; SELECT 'x' FROM DUAL with SQL*Plus, because the title of the column 3809 ;; SELECT 'x' FROM DUAL with SQL*Plus, because the title of the column
3810 ;; will have just one quote. Therefore syntactic hilighting is 3810 ;; will have just one quote. Therefore syntactic highlighting is
3811 ;; disabled for interactive buffers. No imenu support. 3811 ;; disabled for interactive buffers. No imenu support.
3812 (sql-product-font-lock t nil) 3812 (sql-product-font-lock t nil)
3813 3813
diff --git a/lisp/progmodes/verilog-mode.el b/lisp/progmodes/verilog-mode.el
index 4cc4a133c8e..3ae66a477e8 100644
--- a/lisp/progmodes/verilog-mode.el
+++ b/lisp/progmodes/verilog-mode.el
@@ -87,7 +87,7 @@
87;; you may add the below lines (the values of the variables presented 87;; you may add the below lines (the values of the variables presented
88;; here are the defaults). Note also that if you use an Emacs that 88;; here are the defaults). Note also that if you use an Emacs that
89;; supports custom, it's probably better to use the custom menu to 89;; supports custom, it's probably better to use the custom menu to
90;; edit these. If working as a member of a large team these settings 90;; edit these. If working as a member of a large team these settings
91;; should be common across all users (in a site-start file), or set 91;; should be common across all users (in a site-start file), or set
92;; in Local Variables in every file. Otherwise, different people's 92;; in Local Variables in every file. Otherwise, different people's
93;; AUTO expansion may result different whitespace changes. 93;; AUTO expansion may result different whitespace changes.
@@ -123,9 +123,9 @@
123;;; Code: 123;;; Code:
124 124
125;; This variable will always hold the version number of the mode 125;; This variable will always hold the version number of the mode
126(defconst verilog-mode-version "650" 126(defconst verilog-mode-version "725"
127 "Version of this Verilog mode.") 127 "Version of this Verilog mode.")
128(defconst verilog-mode-release-date "2010-11-05-GNU" 128(defconst verilog-mode-release-date "2011-11-27-GNU"
129 "Release date of this Verilog mode.") 129 "Release date of this Verilog mode.")
130(defconst verilog-mode-release-emacs t 130(defconst verilog-mode-release-emacs t
131 "If non-nil, this version of Verilog mode was released with Emacs itself.") 131 "If non-nil, this version of Verilog mode was released with Emacs itself.")
@@ -174,6 +174,18 @@
174 (char-after (1- (point))))) 174 (char-after (1- (point)))))
175 (error nil)) 175 (error nil))
176 (condition-case nil 176 (condition-case nil
177 (if (fboundp 'when)
178 nil ;; fab
179 (defsubst point-at-bol (&optional N)
180 (save-excursion (beginning-of-line N) (point))))
181 (error nil))
182 (condition-case nil
183 (if (fboundp 'when)
184 nil ;; fab
185 (defsubst point-at-eol (&optional N)
186 (save-excursion (end-of-line N) (point))))
187 (error nil))
188 (condition-case nil
177 (require 'custom) 189 (require 'custom)
178 (error nil)) 190 (error nil))
179 (condition-case nil 191 (condition-case nil
@@ -275,8 +287,19 @@ STRING should be given if the last search was by `string-match' on STRING."
275(eval-and-compile 287(eval-and-compile
276 ;; Both xemacs and emacs 288 ;; Both xemacs and emacs
277 (condition-case nil 289 (condition-case nil
290 (require 'diff) ;; diff-command and diff-switches
291 (error nil))
292 (condition-case nil
293 (require 'compile) ;; compilation-error-regexp-alist-alist
294 (error nil))
295 (condition-case nil
278 (unless (fboundp 'buffer-chars-modified-tick) ;; Emacs 22 added 296 (unless (fboundp 'buffer-chars-modified-tick) ;; Emacs 22 added
279 (defmacro buffer-chars-modified-tick () (buffer-modified-tick))) 297 (defmacro buffer-chars-modified-tick () (buffer-modified-tick)))
298 (error nil))
299 ;; Added in Emacs 24.1
300 (condition-case nil
301 (unless (fboundp 'prog-mode)
302 (define-derived-mode prog-mode fundamental-mode "Prog"))
280 (error nil))) 303 (error nil)))
281 304
282(eval-when-compile 305(eval-when-compile
@@ -310,6 +333,14 @@ STRING should be given if the last search was by `string-match' on STRING."
310;; `("Verilog" ("MA" ["SAA" nil :help "Help SAA"] ["SAB" nil :help "Help SAA"]) 333;; `("Verilog" ("MA" ["SAA" nil :help "Help SAA"] ["SAB" nil :help "Help SAA"])
311;; "----" ["MB" nil :help "Help MB"])) 334;; "----" ["MB" nil :help "Help MB"]))
312 335
336(defun verilog-define-abbrev (table name expansion &optional hook)
337 "Filter `define-abbrev' TABLE NAME EXPANSION and call HOOK.
338Provides SYSTEM-FLAG in newer Emacs."
339 (condition-case nil
340 (define-abbrev table name expansion hook 0 t)
341 (error
342 (define-abbrev table name expansion hook))))
343
313(defun verilog-customize () 344(defun verilog-customize ()
314 "Customize variables and other settings used by Verilog-Mode." 345 "Customize variables and other settings used by Verilog-Mode."
315 (interactive) 346 (interactive)
@@ -335,9 +366,31 @@ This function may be removed when Emacs 21 is no longer supported."
335 ;; And GNU Emacs 22 has obsoleted last-command-char 366 ;; And GNU Emacs 22 has obsoleted last-command-char
336 last-command-event))) 367 last-command-event)))
337 368
338(defalias 'verilog-syntax-ppss 369(defvar verilog-no-change-functions nil
339 (if (fboundp 'syntax-ppss) 'syntax-ppss 370 "True if `after-change-functions' is disabled.
340 (lambda (&optional pos) (parse-partial-sexp (point-min) (or pos (point)))))) 371Use of `syntax-ppss' may break, as ppss's cache may get corrupted.")
372
373(defvar verilog-in-hooks nil
374 "True when within a `verilog-run-hooks' block.")
375
376(defmacro verilog-run-hooks (&rest hooks)
377 "Run each hook in HOOKS using `run-hooks'.
378Set `verilog-in-hooks' during this time, to assist AUTO caches."
379 `(let ((verilog-in-hooks t))
380 (run-hooks ,@hooks)))
381
382(defun verilog-syntax-ppss (&optional pos)
383 (when verilog-no-change-functions
384 (if verilog-in-hooks
385 (verilog-scan-cache-flush)
386 ;; else don't let the AUTO code itself get away with flushing the cache,
387 ;; as that'll make things very slow
388 (backtrace)
389 (error "%s: Internal problem; use of syntax-ppss when cache may be corrupt"
390 (verilog-point-text))))
391 (if (fboundp 'syntax-ppss)
392 (syntax-ppss pos)
393 (parse-partial-sexp (point-min) (or pos (point)))))
341 394
342(defgroup verilog-mode nil 395(defgroup verilog-mode nil
343 "Facilitates easy editing of Verilog source text." 396 "Facilitates easy editing of Verilog source text."
@@ -631,6 +684,22 @@ file referenced. If false, this is not supported."
631 :type 'boolean) 684 :type 'boolean)
632(put 'verilog-highlight-includes 'safe-local-variable 'verilog-booleanp) 685(put 'verilog-highlight-includes 'safe-local-variable 'verilog-booleanp)
633 686
687(defcustom verilog-auto-declare-nettype nil
688 "*Non-nil specifies the data type to use with `verilog-auto-input' etc.
689Set this to \"wire\" if the Verilog code uses \"`default_nettype
690none\". Note using `default_nettype none isn't recommended practice; this
691mode is experimental."
692 :group 'verilog-mode-actions
693 :type 'boolean)
694(put 'verilog-auto-declare-nettype 'safe-local-variable `stringp)
695
696(defcustom verilog-auto-wire-type nil
697 "*Non-nil specifies the data type to use with `verilog-auto-wire' etc.
698Set this to \"logic\" for SystemVerilog code, or use `verilog-auto-logic'."
699 :group 'verilog-mode-actions
700 :type 'boolean)
701(put 'verilog-auto-wire-type 'safe-local-variable `stringp)
702
634(defcustom verilog-auto-endcomments t 703(defcustom verilog-auto-endcomments t
635 "*True means insert a comment /* ... */ after 'end's. 704 "*True means insert a comment /* ... */ after 'end's.
636The name of the function or case will be set between the braces." 705The name of the function or case will be set between the braces."
@@ -638,6 +707,12 @@ The name of the function or case will be set between the braces."
638 :type 'boolean) 707 :type 'boolean)
639(put 'verilog-auto-endcomments 'safe-local-variable 'verilog-booleanp) 708(put 'verilog-auto-endcomments 'safe-local-variable 'verilog-booleanp)
640 709
710(defcustom verilog-auto-delete-trailing-whitespace nil
711 "*True means to `delete-trailing-whitespace' in `verilog-auto'."
712 :group 'verilog-mode-actions
713 :type 'boolean)
714(put 'verilog-auto-delete-trailing-whitespace 'safe-local-variable 'verilog-booleanp)
715
641(defcustom verilog-auto-ignore-concat nil 716(defcustom verilog-auto-ignore-concat nil
642 "*True means ignore signals in {...} concatenations for AUTOWIRE etc. 717 "*True means ignore signals in {...} concatenations for AUTOWIRE etc.
643This will exclude signals referenced as pin connections in {...} 718This will exclude signals referenced as pin connections in {...}
@@ -696,6 +771,12 @@ always be saved."
696(defvar verilog-auto-last-file-locals nil 771(defvar verilog-auto-last-file-locals nil
697 "Text from file-local-variables during last evaluation.") 772 "Text from file-local-variables during last evaluation.")
698 773
774(defvar verilog-diff-function 'verilog-diff-report
775 "*Function to run when `verilog-diff-auto' detects differences.
776Function takes three arguments, the original buffer, the
777difference buffer, and the point in original buffer with the
778first difference.")
779
699;;; Compile support 780;;; Compile support
700(require 'compile) 781(require 'compile)
701(defvar verilog-error-regexp-added nil) 782(defvar verilog-error-regexp-added nil)
@@ -896,6 +977,19 @@ of each Verilog file that requires it, rather than being set globally."
896 :type 'boolean) 977 :type 'boolean)
897(put 'verilog-auto-sense-defines-constant 'safe-local-variable 'verilog-booleanp) 978(put 'verilog-auto-sense-defines-constant 'safe-local-variable 'verilog-booleanp)
898 979
980(defcustom verilog-auto-reset-blocking-in-non t
981 "*If true, AUTORESET will reset those signals which were
982assigned with blocking assignments (=) even in a block with
983non-blocking assignments (<=).
984
985If nil, all blocking assigned signals are ignored when any
986non-blocking assignment is in the AUTORESET block. This allows
987blocking assignments to be used for temporary values and not have
988those temporaries reset. See example in `verilog-auto-reset'."
989 :type 'boolean
990 :group 'verilog-mode-auto)
991(put 'verilog-auto-reset-blocking-in-non 'safe-local-variable 'verilog-booleanp)
992
899(defcustom verilog-auto-reset-widths t 993(defcustom verilog-auto-reset-widths t
900 "*If true, AUTORESET should determine the width of signals. 994 "*If true, AUTORESET should determine the width of signals.
901This is then used to set the width of the zero (32'h0 for example). This 995This is then used to set the width of the zero (32'h0 for example). This
@@ -917,7 +1011,9 @@ the MSB or LSB of a signal inside an AUTORESET."
917Declaration order is advantageous with order based instantiations 1011Declaration order is advantageous with order based instantiations
918and is the default for backward compatibility. Sorted order 1012and is the default for backward compatibility. Sorted order
919reduces changes when declarations are moved around in a file, and 1013reduces changes when declarations are moved around in a file, and
920it's bad practice to rely on order based instantiations anyhow." 1014it's bad practice to rely on order based instantiations anyhow.
1015
1016See also `verilog-auto-inst-sort'."
921 :group 'verilog-mode-auto 1017 :group 'verilog-mode-auto
922 :type 'boolean) 1018 :type 'boolean)
923(put 'verilog-auto-arg-sort 'safe-local-variable 'verilog-booleanp) 1019(put 'verilog-auto-arg-sort 'safe-local-variable 'verilog-booleanp)
@@ -969,6 +1065,18 @@ instead expand to:
969 :type 'boolean) 1065 :type 'boolean)
970(put 'verilog-auto-inst-param-value 'safe-local-variable 'verilog-booleanp) 1066(put 'verilog-auto-inst-param-value 'safe-local-variable 'verilog-booleanp)
971 1067
1068(defcustom verilog-auto-inst-sort nil
1069 "*If set, AUTOINST signal names will be sorted, not in declaration order.
1070Also affects AUTOINSTPARAM. Declaration order is the default for
1071backward compatibility, and as some teams prefer signals that are
1072declared together to remain together. Sorted order reduces
1073changes when declarations are moved around in a file.
1074
1075See also `verilog-auto-arg-sort'."
1076 :group 'verilog-mode-auto
1077 :type 'boolean)
1078(put 'verilog-auto-inst-sort 'safe-local-variable 'verilog-booleanp)
1079
972(defcustom verilog-auto-inst-vector t 1080(defcustom verilog-auto-inst-vector t
973 "*If true, when creating default ports with AUTOINST, use bus subscripts. 1081 "*If true, when creating default ports with AUTOINST, use bus subscripts.
974If nil, skip the subscript when it matches the entire bus as declared in 1082If nil, skip the subscript when it matches the entire bus as declared in
@@ -981,12 +1089,20 @@ speed up some simulators, but is less general and harder to read, so avoid."
981 1089
982(defcustom verilog-auto-inst-template-numbers nil 1090(defcustom verilog-auto-inst-template-numbers nil
983 "*If true, when creating templated ports with AUTOINST, add a comment. 1091 "*If true, when creating templated ports with AUTOINST, add a comment.
984The comment will add the line number of the template that was used for that 1092
985port declaration. Setting this aids in debugging, but nil is suggested for 1093If t, the comment will add the line number of the template that
986regular use to prevent large numbers of merge conflicts." 1094was used for that port declaration. This setting is suggested
1095only for debugging use, as regular use may cause a large numbers
1096of merge conflicts.
1097
1098If 'lhs', the comment will show the left hand side of the
1099AUTO_TEMPLATE rule that is matched. This is less precise than
1100numbering (t) when multiple rules have the same pin name, but
1101won't merge conflict."
987 :group 'verilog-mode-auto 1102 :group 'verilog-mode-auto
988 :type 'boolean) 1103 :type '(choice (const nil) (const t) (const lhs)))
989(put 'verilog-auto-inst-template-numbers 'safe-local-variable 'verilog-booleanp) 1104(put 'verilog-auto-inst-template-numbers 'safe-local-variable
1105 '(lambda (x) (memq x '(nil t lhs))))
990 1106
991(defcustom verilog-auto-inst-column 40 1107(defcustom verilog-auto-inst-column 40
992 "*Indent-to column number for net name part of AUTOINST created pin." 1108 "*Indent-to column number for net name part of AUTOINST created pin."
@@ -1015,6 +1131,14 @@ See the \\[verilog-faq] for examples on using this."
1015 :type 'string) 1131 :type 'string)
1016(put 'verilog-auto-output-ignore-regexp 'safe-local-variable 'stringp) 1132(put 'verilog-auto-output-ignore-regexp 'safe-local-variable 'stringp)
1017 1133
1134(defcustom verilog-auto-tieoff-declaration "wire"
1135 "*Data type used for the declaration for AUTOTIEOFF. If \"wire\" then
1136create a wire, if \"assign\" create an assignment, else the data type for
1137variable creation."
1138 :group 'verilog-mode-auto
1139 :type 'string)
1140(put 'verilog-auto-tieoff-declaration 'safe-local-variable 'stringp)
1141
1018(defcustom verilog-auto-tieoff-ignore-regexp nil 1142(defcustom verilog-auto-tieoff-ignore-regexp nil
1019 "*If set, when creating AUTOTIEOFF list, ignore signals matching this regexp. 1143 "*If set, when creating AUTOTIEOFF list, ignore signals matching this regexp.
1020See the \\[verilog-faq] for examples on using this." 1144See the \\[verilog-faq] for examples on using this."
@@ -1114,8 +1238,10 @@ If set will become buffer local.")
1114 (define-key map "\M-\r" `electric-verilog-terminate-and-indent) 1238 (define-key map "\M-\r" `electric-verilog-terminate-and-indent)
1115 (define-key map "\M-\t" 'verilog-complete-word) 1239 (define-key map "\M-\t" 'verilog-complete-word)
1116 (define-key map "\M-?" 'verilog-show-completions) 1240 (define-key map "\M-?" 'verilog-show-completions)
1241 ;; Note \C-c and letter are reserved for users
1117 (define-key map "\C-c\`" 'verilog-lint-off) 1242 (define-key map "\C-c\`" 'verilog-lint-off)
1118 (define-key map "\C-c\*" 'verilog-delete-auto-star-implicit) 1243 (define-key map "\C-c\*" 'verilog-delete-auto-star-implicit)
1244 (define-key map "\C-c\?" 'verilog-diff-auto)
1119 (define-key map "\C-c\C-r" 'verilog-label-be) 1245 (define-key map "\C-c\C-r" 'verilog-label-be)
1120 (define-key map "\C-c\C-i" 'verilog-pretty-declarations) 1246 (define-key map "\C-c\C-i" 'verilog-pretty-declarations)
1121 (define-key map "\C-c=" 'verilog-pretty-expr) 1247 (define-key map "\C-c=" 'verilog-pretty-expr)
@@ -1241,6 +1367,8 @@ If set will become buffer local.")
1241 :help "Expand AUTO meta-comment statements"] 1367 :help "Expand AUTO meta-comment statements"]
1242 ["Kill AUTOs" verilog-delete-auto 1368 ["Kill AUTOs" verilog-delete-auto
1243 :help "Remove AUTO expansions"] 1369 :help "Remove AUTO expansions"]
1370 ["Diff AUTOs" verilog-diff-auto
1371 :help "Show differences in AUTO expansions"]
1244 ["Inject AUTOs" verilog-inject-auto 1372 ["Inject AUTOs" verilog-inject-auto
1245 :help "Inject AUTOs into legacy non-AUTO buffer"] 1373 :help "Inject AUTOs into legacy non-AUTO buffer"]
1246 ("AUTO Help..." 1374 ("AUTO Help..."
@@ -1264,6 +1392,8 @@ If set will become buffer local.")
1264 :help "Help on AUTOASCIIENUM - creating ASCII for enumerations"] 1392 :help "Help on AUTOASCIIENUM - creating ASCII for enumerations"]
1265 ["AUTOINOUTCOMP" (describe-function 'verilog-auto-inout-comp) 1393 ["AUTOINOUTCOMP" (describe-function 'verilog-auto-inout-comp)
1266 :help "Help on AUTOINOUTCOMP - copying complemented i/o from another file"] 1394 :help "Help on AUTOINOUTCOMP - copying complemented i/o from another file"]
1395 ["AUTOINOUTIN" (describe-function 'verilog-auto-inout-in)
1396 :help "Help on AUTOINOUTCOMP - copying i/o from another file as all inputs"]
1267 ["AUTOINOUTMODULE" (describe-function 'verilog-auto-inout-module) 1397 ["AUTOINOUTMODULE" (describe-function 'verilog-auto-inout-module)
1268 :help "Help on AUTOINOUTMODULE - copying i/o from another file"] 1398 :help "Help on AUTOINOUTMODULE - copying i/o from another file"]
1269 ["AUTOINSERTLISP" (describe-function 'verilog-auto-insert-lisp) 1399 ["AUTOINSERTLISP" (describe-function 'verilog-auto-insert-lisp)
@@ -1278,6 +1408,8 @@ If set will become buffer local.")
1278 :help "Help on expanding Verilog-2001 .* pins"] 1408 :help "Help on expanding Verilog-2001 .* pins"]
1279 ["AUTOINSTPARAM" (describe-function 'verilog-auto-inst-param) 1409 ["AUTOINSTPARAM" (describe-function 'verilog-auto-inst-param)
1280 :help "Help on AUTOINSTPARAM - adding parameter pins to cells"] 1410 :help "Help on AUTOINSTPARAM - adding parameter pins to cells"]
1411 ["AUTOLOGIC" (describe-function 'verilog-auto-logic)
1412 :help "Help on AUTOLOGIC - declaring logic signals"]
1281 ["AUTOOUTPUT" (describe-function 'verilog-auto-output) 1413 ["AUTOOUTPUT" (describe-function 'verilog-auto-output)
1282 :help "Help on AUTOOUTPUT - adding outputs from cells"] 1414 :help "Help on AUTOOUTPUT - adding outputs from cells"]
1283 ["AUTOOUTPUTEVERY" (describe-function 'verilog-auto-output-every) 1415 ["AUTOOUTPUTEVERY" (describe-function 'verilog-auto-output-every)
@@ -1318,6 +1450,10 @@ If set will become buffer local.")
1318 "----" 1450 "----"
1319 ["Module" verilog-sk-module 1451 ["Module" verilog-sk-module
1320 :help "Insert a module .. (/*AUTOARG*/);.. endmodule block"] 1452 :help "Insert a module .. (/*AUTOARG*/);.. endmodule block"]
1453 ["OVM Class" verilog-sk-ovm-class
1454 :help "Insert an OVM class block"]
1455 ["UVM Class" verilog-sk-uvm-class
1456 :help "Insert an UVM class block"]
1321 ["Primitive" verilog-sk-primitive 1457 ["Primitive" verilog-sk-primitive
1322 :help "Insert a primitive .. (.. );.. endprimitive block"] 1458 :help "Insert a primitive .. (.. );.. endprimitive block"]
1323 "----" 1459 "----"
@@ -1372,6 +1508,31 @@ If set will become buffer local.")
1372 "Abbrev table in use in Verilog-mode buffers.") 1508 "Abbrev table in use in Verilog-mode buffers.")
1373 1509
1374(define-abbrev-table 'verilog-mode-abbrev-table ()) 1510(define-abbrev-table 'verilog-mode-abbrev-table ())
1511(verilog-define-abbrev verilog-mode-abbrev-table "class" "" 'verilog-sk-ovm-class)
1512(verilog-define-abbrev verilog-mode-abbrev-table "always" "" 'verilog-sk-always)
1513(verilog-define-abbrev verilog-mode-abbrev-table "begin" nil `verilog-sk-begin)
1514(verilog-define-abbrev verilog-mode-abbrev-table "case" "" `verilog-sk-case)
1515(verilog-define-abbrev verilog-mode-abbrev-table "for" "" `verilog-sk-for)
1516(verilog-define-abbrev verilog-mode-abbrev-table "generate" "" `verilog-sk-generate)
1517(verilog-define-abbrev verilog-mode-abbrev-table "initial" "" `verilog-sk-initial)
1518(verilog-define-abbrev verilog-mode-abbrev-table "fork" "" `verilog-sk-fork)
1519(verilog-define-abbrev verilog-mode-abbrev-table "module" "" `verilog-sk-module)
1520(verilog-define-abbrev verilog-mode-abbrev-table "primitive" "" `verilog-sk-primitive)
1521(verilog-define-abbrev verilog-mode-abbrev-table "repeat" "" `verilog-sk-repeat)
1522(verilog-define-abbrev verilog-mode-abbrev-table "specify" "" `verilog-sk-specify)
1523(verilog-define-abbrev verilog-mode-abbrev-table "task" "" `verilog-sk-task)
1524(verilog-define-abbrev verilog-mode-abbrev-table "while" "" `verilog-sk-while)
1525(verilog-define-abbrev verilog-mode-abbrev-table "casex" "" `verilog-sk-casex)
1526(verilog-define-abbrev verilog-mode-abbrev-table "casez" "" `verilog-sk-casez)
1527(verilog-define-abbrev verilog-mode-abbrev-table "if" "" `verilog-sk-if)
1528(verilog-define-abbrev verilog-mode-abbrev-table "else if" "" `verilog-sk-else-if)
1529(verilog-define-abbrev verilog-mode-abbrev-table "assign" "" `verilog-sk-assign)
1530(verilog-define-abbrev verilog-mode-abbrev-table "function" "" `verilog-sk-function)
1531(verilog-define-abbrev verilog-mode-abbrev-table "input" "" `verilog-sk-input)
1532(verilog-define-abbrev verilog-mode-abbrev-table "output" "" `verilog-sk-output)
1533(verilog-define-abbrev verilog-mode-abbrev-table "inout" "" `verilog-sk-inout)
1534(verilog-define-abbrev verilog-mode-abbrev-table "wire" "" `verilog-sk-wire)
1535(verilog-define-abbrev verilog-mode-abbrev-table "reg" "" `verilog-sk-reg)
1375 1536
1376;; 1537;;
1377;; Macros 1538;; Macros
@@ -1386,6 +1547,9 @@ FIXEDCASE and LITERAL as in `replace-match`. STRING is what to replace.
1386The case (verilog-string-replace-matches \"o\" \"oo\" nil nil \"foobar\") 1547The case (verilog-string-replace-matches \"o\" \"oo\" nil nil \"foobar\")
1387will break, as the o's continuously replace. xa -> x works ok though." 1548will break, as the o's continuously replace. xa -> x works ok though."
1388 ;; Hopefully soon to a emacs built-in 1549 ;; Hopefully soon to a emacs built-in
1550 ;; Also note \ in the replacement prevent multiple replacements; IE
1551 ;; (verilog-string-replace-matches "@" "\\\\([0-9]+\\\\)" nil nil "wire@_@")
1552 ;; Gives "wire\([0-9]+\)_@" not "wire\([0-9]+\)_\([0-9]+\)"
1389 (let ((start 0)) 1553 (let ((start 0))
1390 (while (string-match from-string string start) 1554 (while (string-match from-string string start)
1391 (setq string (replace-match to-string fixedcase literal string) 1555 (setq string (replace-match to-string fixedcase literal string)
@@ -1434,26 +1598,28 @@ will break, as the o's continuously replace. xa -> x works ok though."
1434(defsubst verilog-re-search-forward-quick (regexp bound noerror) 1598(defsubst verilog-re-search-forward-quick (regexp bound noerror)
1435 "Like `verilog-re-search-forward', including use of REGEXP BOUND and NOERROR, 1599 "Like `verilog-re-search-forward', including use of REGEXP BOUND and NOERROR,
1436but trashes match data and is faster for REGEXP that doesn't match often. 1600but trashes match data and is faster for REGEXP that doesn't match often.
1437This may at some point use text properties to ignore comments, 1601This uses `verilog-scan' and text properties to ignore comments,
1438so there may be a large up front penalty for the first search." 1602so there may be a large up front penalty for the first search."
1439 (let (pt) 1603 (let (pt)
1440 (while (and (not pt) 1604 (while (and (not pt)
1441 (re-search-forward regexp bound noerror)) 1605 (re-search-forward regexp bound noerror))
1442 (if (not (verilog-inside-comment-p)) 1606 (if (verilog-inside-comment-or-string-p)
1443 (setq pt (match-end 0)))) 1607 (re-search-forward "[/\"\n]" nil t) ;; Only way a comment or quote can end
1608 (setq pt (match-end 0))))
1444 pt)) 1609 pt))
1445 1610
1446(defsubst verilog-re-search-backward-quick (regexp bound noerror) 1611(defsubst verilog-re-search-backward-quick (regexp bound noerror)
1447 ; checkdoc-params: (REGEXP BOUND NOERROR) 1612 ; checkdoc-params: (REGEXP BOUND NOERROR)
1448 "Like `verilog-re-search-backward', including use of REGEXP BOUND and NOERROR, 1613 "Like `verilog-re-search-backward', including use of REGEXP BOUND and NOERROR,
1449but trashes match data and is faster for REGEXP that doesn't match often. 1614but trashes match data and is faster for REGEXP that doesn't match often.
1450This may at some point use text properties to ignore comments, 1615This uses `verilog-scan' and text properties to ignore comments,
1451so there may be a large up front penalty for the first search." 1616so there may be a large up front penalty for the first search."
1452 (let (pt) 1617 (let (pt)
1453 (while (and (not pt) 1618 (while (and (not pt)
1454 (re-search-backward regexp bound noerror)) 1619 (re-search-backward regexp bound noerror))
1455 (if (not (verilog-inside-comment-p)) 1620 (if (verilog-inside-comment-or-string-p)
1456 (setq pt (match-end 0)))) 1621 (re-search-backward "[/\"]" nil t) ;; Only way a comment or quote can begin
1622 (setq pt (match-beginning 0))))
1457 pt)) 1623 pt))
1458 1624
1459(defsubst verilog-re-search-forward-substr (substr regexp bound noerror) 1625(defsubst verilog-re-search-forward-substr (substr regexp bound noerror)
@@ -1496,6 +1662,14 @@ This speeds up complicated regexp matches."
1496 done)) 1662 done))
1497;;(verilog-re-search-backward-substr "-end" "get-end-of" nil t) ;;-end (test bait) 1663;;(verilog-re-search-backward-substr "-end" "get-end-of" nil t) ;;-end (test bait)
1498 1664
1665(defun verilog-delete-trailing-whitespace ()
1666 "Delete trailing spaces or tabs, but not newlines nor linefeeds."
1667 ;; Similar to `delete-trailing-whitespace' but that's not present in XEmacs
1668 (save-excursion
1669 (goto-char (point-min))
1670 (while (re-search-forward "[ \t]+$" nil t) ;; Not syntatic WS as no formfeed
1671 (replace-match "" nil nil))))
1672
1499(defvar compile-command) 1673(defvar compile-command)
1500 1674
1501;; compilation program 1675;; compilation program
@@ -1535,11 +1709,11 @@ portion, will be substituted."
1535 (set (make-local-variable 'compile-command) "make ")) 1709 (set (make-local-variable 'compile-command) "make "))
1536 (t 1710 (t
1537 (set (make-local-variable 'compile-command) 1711 (set (make-local-variable 'compile-command)
1538 (if verilog-tool 1712 (if verilog-tool
1539 (if (string-match "%s" (eval verilog-tool)) 1713 (if (string-match "%s" (eval verilog-tool))
1540 (format (eval verilog-tool) (or buffer-file-name "")) 1714 (format (eval verilog-tool) (or buffer-file-name ""))
1541 (concat (eval verilog-tool) " " (or buffer-file-name ""))) 1715 (concat (eval verilog-tool) " " (or buffer-file-name "")))
1542 "")))) 1716 ""))))
1543 (verilog-modify-compile-command)) 1717 (verilog-modify-compile-command))
1544 1718
1545(defun verilog-expand-command (command) 1719(defun verilog-expand-command (command)
@@ -1564,7 +1738,7 @@ be substituted."
1564 (stringp compile-command) 1738 (stringp compile-command)
1565 (string-match "\\b\\(__FLAGS__\\|__FILE__\\)\\b" compile-command)) 1739 (string-match "\\b\\(__FLAGS__\\|__FILE__\\)\\b" compile-command))
1566 (set (make-local-variable 'compile-command) 1740 (set (make-local-variable 'compile-command)
1567 (verilog-expand-command compile-command)))) 1741 (verilog-expand-command compile-command))))
1568 1742
1569(if (featurep 'xemacs) 1743(if (featurep 'xemacs)
1570 ;; Following code only gets called from compilation-mode-hook on XEmacs to add error handling. 1744 ;; Following code only gets called from compilation-mode-hook on XEmacs to add error handling.
@@ -1585,8 +1759,8 @@ find the errors."
1585 (cdr compilation-error-regexp-alist-alist))))) 1759 (cdr compilation-error-regexp-alist-alist)))))
1586 (if (boundp 'compilation-font-lock-keywords) 1760 (if (boundp 'compilation-font-lock-keywords)
1587 (progn 1761 (progn
1588 (set (make-local-variable 'compilation-font-lock-keywords) 1762 (set (make-local-variable 'compilation-font-lock-keywords)
1589 verilog-error-font-lock-keywords) 1763 verilog-error-font-lock-keywords)
1590 (font-lock-set-defaults))) 1764 (font-lock-set-defaults)))
1591 ;; Need to re-run compilation-error-regexp builder 1765 ;; Need to re-run compilation-error-regexp builder
1592 (if (fboundp 'compilation-build-compilation-error-regexp-alist) 1766 (if (fboundp 'compilation-build-compilation-error-regexp-alist)
@@ -1657,6 +1831,30 @@ find the errors."
1657 "`ovm_sequencer_utils_end" 1831 "`ovm_sequencer_utils_end"
1658 ) nil ))) 1832 ) nil )))
1659 1833
1834(defconst verilog-uvm-begin-re
1835 (eval-when-compile
1836 (verilog-regexp-opt
1837 '(
1838 "`uvm_component_utils_begin"
1839 "`uvm_component_param_utils_begin"
1840 "`uvm_field_utils_begin"
1841 "`uvm_object_utils_begin"
1842 "`uvm_object_param_utils_begin"
1843 "`uvm_sequence_utils_begin"
1844 "`uvm_sequencer_utils_begin"
1845 ) nil )))
1846
1847(defconst verilog-uvm-end-re
1848 (eval-when-compile
1849 (verilog-regexp-opt
1850 '(
1851 "`uvm_component_utils_end"
1852 "`uvm_field_utils_end"
1853 "`uvm_object_utils_end"
1854 "`uvm_sequence_utils_end"
1855 "`uvm_sequencer_utils_end"
1856 ) nil )))
1857
1660(defconst verilog-vmm-begin-re 1858(defconst verilog-vmm-begin-re
1661 (eval-when-compile 1859 (eval-when-compile
1662 (verilog-regexp-opt 1860 (verilog-regexp-opt
@@ -1794,6 +1992,145 @@ find the errors."
1794 "`static_dut_error" 1992 "`static_dut_error"
1795 "`static_message") nil ))) 1993 "`static_message") nil )))
1796 1994
1995(defconst verilog-uvm-statement-re
1996 (eval-when-compile
1997 (verilog-regexp-opt
1998 '(
1999 ;; Statements
2000 "`uvm_analysis_imp_decl"
2001 "`uvm_blocking_get_imp_decl"
2002 "`uvm_blocking_get_peek_imp_decl"
2003 "`uvm_blocking_master_imp_decl"
2004 "`uvm_blocking_peek_imp_decl"
2005 "`uvm_blocking_put_imp_decl"
2006 "`uvm_blocking_slave_imp_decl"
2007 "`uvm_blocking_transport_imp_decl"
2008 "`uvm_component_param_utils"
2009 "`uvm_component_registry"
2010 "`uvm_component_registry_param"
2011 "`uvm_component_utils"
2012 "`uvm_create"
2013 "`uvm_create_on"
2014 "`uvm_create_seq" ;; Undocumented in 1.1
2015 "`uvm_declare_p_sequencer"
2016 "`uvm_declare_sequence_lib" ;; Deprecated in 1.1
2017 "`uvm_do"
2018 "`uvm_do_callbacks"
2019 "`uvm_do_callbacks_exit_on"
2020 "`uvm_do_obj_callbacks"
2021 "`uvm_do_obj_callbacks_exit_on"
2022 "`uvm_do_on"
2023 "`uvm_do_on_pri"
2024 "`uvm_do_on_pri_with"
2025 "`uvm_do_on_with"
2026 "`uvm_do_pri"
2027 "`uvm_do_pri_with"
2028 "`uvm_do_seq" ;; Undocumented in 1.1
2029 "`uvm_do_seq_with" ;; Undocumented in 1.1
2030 "`uvm_do_with"
2031 "`uvm_error"
2032 "`uvm_error_context"
2033 "`uvm_fatal"
2034 "`uvm_fatal_context"
2035 "`uvm_field_aa_int_byte"
2036 "`uvm_field_aa_int_byte_unsigned"
2037 "`uvm_field_aa_int_enum"
2038 "`uvm_field_aa_int_int"
2039 "`uvm_field_aa_int_int_unsigned"
2040 "`uvm_field_aa_int_integer"
2041 "`uvm_field_aa_int_integer_unsigned"
2042 "`uvm_field_aa_int_key"
2043 "`uvm_field_aa_int_longint"
2044 "`uvm_field_aa_int_longint_unsigned"
2045 "`uvm_field_aa_int_shortint"
2046 "`uvm_field_aa_int_shortint_unsigned"
2047 "`uvm_field_aa_int_string"
2048 "`uvm_field_aa_object_int"
2049 "`uvm_field_aa_object_string"
2050 "`uvm_field_aa_string_int"
2051 "`uvm_field_aa_string_string"
2052 "`uvm_field_array_enum"
2053 "`uvm_field_array_int"
2054 "`uvm_field_array_object"
2055 "`uvm_field_array_string"
2056 "`uvm_field_enum"
2057 "`uvm_field_event"
2058 "`uvm_field_int"
2059 "`uvm_field_object"
2060 "`uvm_field_queue_enum"
2061 "`uvm_field_queue_int"
2062 "`uvm_field_queue_object"
2063 "`uvm_field_queue_string"
2064 "`uvm_field_real"
2065 "`uvm_field_sarray_enum"
2066 "`uvm_field_sarray_int"
2067 "`uvm_field_sarray_object"
2068 "`uvm_field_sarray_string"
2069 "`uvm_field_string"
2070 "`uvm_field_utils"
2071 "`uvm_file" ;; Undocumented in 1.1, use `__FILE__
2072 "`uvm_get_imp_decl"
2073 "`uvm_get_peek_imp_decl"
2074 "`uvm_info"
2075 "`uvm_info_context"
2076 "`uvm_line" ;; Undocumented in 1.1, use `__LINE__
2077 "`uvm_master_imp_decl"
2078 "`uvm_non_blocking_transport_imp_decl" ;; Deprecated in 1.1
2079 "`uvm_nonblocking_get_imp_decl"
2080 "`uvm_nonblocking_get_peek_imp_decl"
2081 "`uvm_nonblocking_master_imp_decl"
2082 "`uvm_nonblocking_peek_imp_decl"
2083 "`uvm_nonblocking_put_imp_decl"
2084 "`uvm_nonblocking_slave_imp_decl"
2085 "`uvm_nonblocking_transport_imp_decl"
2086 "`uvm_object_param_utils"
2087 "`uvm_object_registry"
2088 "`uvm_object_registry_param" ;; Undocumented in 1.1
2089 "`uvm_object_utils"
2090 "`uvm_pack_array"
2091 "`uvm_pack_arrayN"
2092 "`uvm_pack_enum"
2093 "`uvm_pack_enumN"
2094 "`uvm_pack_int"
2095 "`uvm_pack_intN"
2096 "`uvm_pack_queue"
2097 "`uvm_pack_queueN"
2098 "`uvm_pack_real"
2099 "`uvm_pack_sarray"
2100 "`uvm_pack_sarrayN"
2101 "`uvm_pack_string"
2102 "`uvm_peek_imp_decl"
2103 "`uvm_put_imp_decl"
2104 "`uvm_rand_send"
2105 "`uvm_rand_send_pri"
2106 "`uvm_rand_send_pri_with"
2107 "`uvm_rand_send_with"
2108 "`uvm_record_attribute"
2109 "`uvm_record_field"
2110 "`uvm_register_cb"
2111 "`uvm_send"
2112 "`uvm_send_pri"
2113 "`uvm_sequence_utils" ;; Deprecated in 1.1
2114 "`uvm_set_super_type"
2115 "`uvm_slave_imp_decl"
2116 "`uvm_transport_imp_decl"
2117 "`uvm_unpack_array"
2118 "`uvm_unpack_arrayN"
2119 "`uvm_unpack_enum"
2120 "`uvm_unpack_enumN"
2121 "`uvm_unpack_int"
2122 "`uvm_unpack_intN"
2123 "`uvm_unpack_queue"
2124 "`uvm_unpack_queueN"
2125 "`uvm_unpack_real"
2126 "`uvm_unpack_sarray"
2127 "`uvm_unpack_sarrayN"
2128 "`uvm_unpack_string"
2129 "`uvm_update_sequence_lib" ;; Deprecated in 1.1
2130 "`uvm_update_sequence_lib_and_item" ;; Deprecated in 1.1
2131 "`uvm_warning"
2132 "`uvm_warning_context") nil )))
2133
1797 2134
1798;; 2135;;
1799;; Regular expressions used to calculate indent, etc. 2136;; Regular expressions used to calculate indent, etc.
@@ -1805,6 +2142,29 @@ find the errors."
1805;; a[34:32] : 2142;; a[34:32] :
1806;; a, 2143;; a,
1807;; b : 2144;; b :
2145(defconst verilog-assignment-operator-re
2146 (eval-when-compile
2147 (verilog-regexp-opt
2148 `(
2149 ;; blocking assignment_operator
2150 "=" "+=" "-=" "*=" "/=" "%=" "&=" "|=" "^=" "<<=" ">>=" "<<<=" ">>>="
2151 ;; non blocking assignment operator
2152 "<="
2153 ;; comparison
2154 "==" "!=" "===" "!===" "<=" ">=" "==\?" "!=\?"
2155 ;; event_trigger
2156 "->" "->>"
2157 ;; property_expr
2158 "|->" "|=>"
2159 ;; Is this a legal verilog operator?
2160 ":="
2161 ) 't
2162 )))
2163(defconst verilog-assignment-operation-re
2164 (concat
2165; "\\(^\\s-*[A-Za-z0-9_]+\\(\\[\\([A-Za-z0-9_]+\\)\\]\\)*\\s-*\\)"
2166; "\\(^\\s-*[^=<>+-*/%&|^:\\s-]+[^=<>+-*/%&|^\n]*?\\)"
2167 "\\(^.*?\\)" "\\B" verilog-assignment-operator-re "\\B" ))
1808 2168
1809(defconst verilog-label-re (concat verilog-symbol-re "\\s-*:\\s-*")) 2169(defconst verilog-label-re (concat verilog-symbol-re "\\s-*:\\s-*"))
1810(defconst verilog-property-re 2170(defconst verilog-property-re
@@ -1843,7 +2203,12 @@ find the errors."
1843 "\\(\\<`ovm_object_utils_end\\>\\)\\|" 2203 "\\(\\<`ovm_object_utils_end\\>\\)\\|"
1844 "\\(\\<`ovm_sequence_utils_end\\>\\)\\|" 2204 "\\(\\<`ovm_sequence_utils_end\\>\\)\\|"
1845 "\\(\\<`ovm_sequencer_utils_end\\>\\)" 2205 "\\(\\<`ovm_sequencer_utils_end\\>\\)"
1846 2206 ;; UVM
2207 "\\(\\<`uvm_component_utils_end\\>\\)\\|"
2208 "\\(\\<`uvm_field_utils_end\\>\\)\\|"
2209 "\\(\\<`uvm_object_utils_end\\>\\)\\|"
2210 "\\(\\<`uvm_sequence_utils_end\\>\\)\\|"
2211 "\\(\\<`uvm_sequencer_utils_end\\>\\)"
1847 )) 2212 ))
1848 2213
1849(defconst verilog-auto-end-comment-lines-re 2214(defconst verilog-auto-end-comment-lines-re
@@ -1925,6 +2290,12 @@ find the errors."
1925 "`ovm_object_utils_end" 2290 "`ovm_object_utils_end"
1926 "`ovm_sequence_utils_end" 2291 "`ovm_sequence_utils_end"
1927 "`ovm_sequencer_utils_end" 2292 "`ovm_sequencer_utils_end"
2293 ;; UVM
2294 "`uvm_component_utils_end"
2295 "`uvm_field_utils_end"
2296 "`uvm_object_utils_end"
2297 "`uvm_sequence_utils_end"
2298 "`uvm_sequencer_utils_end"
1928 ;; VMM 2299 ;; VMM
1929 "`vmm_data_member_end" 2300 "`vmm_data_member_end"
1930 "`vmm_env_member_end" 2301 "`vmm_env_member_end"
@@ -1979,7 +2350,7 @@ find the errors."
1979 "specify" 2350 "specify"
1980 "table" 2351 "table"
1981 "task" 2352 "task"
1982 ;;; OVM 2353 ;; OVM
1983 "`ovm_component_utils_begin" 2354 "`ovm_component_utils_begin"
1984 "`ovm_component_param_utils_begin" 2355 "`ovm_component_param_utils_begin"
1985 "`ovm_field_utils_begin" 2356 "`ovm_field_utils_begin"
@@ -1987,6 +2358,14 @@ find the errors."
1987 "`ovm_object_param_utils_begin" 2358 "`ovm_object_param_utils_begin"
1988 "`ovm_sequence_utils_begin" 2359 "`ovm_sequence_utils_begin"
1989 "`ovm_sequencer_utils_begin" 2360 "`ovm_sequencer_utils_begin"
2361 ;; UVM
2362 "`uvm_component_utils_begin"
2363 "`uvm_component_param_utils_begin"
2364 "`uvm_field_utils_begin"
2365 "`uvm_object_utils_begin"
2366 "`uvm_object_param_utils_begin"
2367 "`uvm_sequence_utils_begin"
2368 "`uvm_sequencer_utils_begin"
1990 ;; VMM 2369 ;; VMM
1991 "`vmm_data_member_begin" 2370 "`vmm_data_member_begin"
1992 "`vmm_env_member_begin" 2371 "`vmm_env_member_begin"
@@ -2000,7 +2379,7 @@ find the errors."
2000(defconst verilog-beg-block-re-ordered 2379(defconst verilog-beg-block-re-ordered
2001 ( concat "\\(\\<begin\\>\\)" ;1 2380 ( concat "\\(\\<begin\\>\\)" ;1
2002 "\\|\\(\\<randcase\\>\\|\\(\\<unique\\s-+\\|priority\\s-+\\)?case[xz]?\\>\\)" ; 2,3 2381 "\\|\\(\\<randcase\\>\\|\\(\\<unique\\s-+\\|priority\\s-+\\)?case[xz]?\\>\\)" ; 2,3
2003 "\\|\\(\\(\\<disable\\>\\s-+\\)?fork\\>\\)" ;4,5 2382 "\\|\\(\\(\\<disable\\>\\s-+\\|\\<wait\\>\\s-+\\)?fork\\>\\)" ;4,5
2004 "\\|\\(\\<class\\>\\)" ;6 2383 "\\|\\(\\<class\\>\\)" ;6
2005 "\\|\\(\\<table\\>\\)" ;7 2384 "\\|\\(\\<table\\>\\)" ;7
2006 "\\|\\(\\<specify\\>\\)" ;8 2385 "\\|\\(\\<specify\\>\\)" ;8
@@ -2013,7 +2392,7 @@ find the errors."
2013 "\\|\\(\\(\\(\\<cover\\>\\s-+\\)\\|\\(\\<assert\\>\\s-+\\)\\)*\\<property\\>\\)" ;17 21 2392 "\\|\\(\\(\\(\\<cover\\>\\s-+\\)\\|\\(\\<assert\\>\\s-+\\)\\)*\\<property\\>\\)" ;17 21
2014 "\\|\\(\\<\\(rand\\)?sequence\\>\\)" ;21 25 2393 "\\|\\(\\<\\(rand\\)?sequence\\>\\)" ;21 25
2015 "\\|\\(\\<clocking\\>\\)" ;22 27 2394 "\\|\\(\\<clocking\\>\\)" ;22 27
2016 "\\|\\(\\<`ovm_[a-z_]+_begin\\>\\)" ;28 2395 "\\|\\(\\<`[ou]vm_[a-z_]+_begin\\>\\)" ;28
2017 "\\|\\(\\<`vmm_[a-z_]+_member_begin\\>\\)" 2396 "\\|\\(\\<`vmm_[a-z_]+_member_begin\\>\\)"
2018 ;; 2397 ;;
2019 2398
@@ -2125,6 +2504,8 @@ find the errors."
2125 (eval-when-compile (verilog-regexp-words `("endmodule" "endclass" "endprogram" "endinterface" "endpackage" "endprimitive" "endconfig")))) 2504 (eval-when-compile (verilog-regexp-words `("endmodule" "endclass" "endprogram" "endinterface" "endpackage" "endprimitive" "endconfig"))))
2126(defconst verilog-zero-indent-re 2505(defconst verilog-zero-indent-re
2127 (concat verilog-defun-re "\\|" verilog-end-defun-re)) 2506 (concat verilog-defun-re "\\|" verilog-end-defun-re))
2507(defconst verilog-inst-comment-re
2508 (eval-when-compile (verilog-regexp-words `("Outputs" "Inouts" "Inputs" "Interfaces" "Interfaced"))))
2128 2509
2129(defconst verilog-behavioral-block-beg-re 2510(defconst verilog-behavioral-block-beg-re
2130 (eval-when-compile (verilog-regexp-words `("initial" "final" "always" "always_comb" "always_latch" "always_ff" 2511 (eval-when-compile (verilog-regexp-words `("initial" "final" "always" "always_comb" "always_latch" "always_ff"
@@ -2186,6 +2567,20 @@ find the errors."
2186 "`ovm_object_utils_end" 2567 "`ovm_object_utils_end"
2187 "`ovm_sequence_utils_end" 2568 "`ovm_sequence_utils_end"
2188 "`ovm_sequencer_utils_end" 2569 "`ovm_sequencer_utils_end"
2570 ;; UVM Begin tokens
2571 "`uvm_component_utils_begin"
2572 "`uvm_component_param_utils_begin"
2573 "`uvm_field_utils_begin"
2574 "`uvm_object_utils_begin"
2575 "`uvm_object_param_utils_begin"
2576 "`uvm_sequence_utils_begin"
2577 "`uvm_sequencer_utils_begin"
2578 ;; UVM End tokens
2579 "`uvm_component_utils_end" ;; Typo in spec, it's not uvm_component_end
2580 "`uvm_field_utils_end"
2581 "`uvm_object_utils_end"
2582 "`uvm_sequence_utils_end"
2583 "`uvm_sequencer_utils_end"
2189 ;; VMM Begin tokens 2584 ;; VMM Begin tokens
2190 "`vmm_data_member_begin" 2585 "`vmm_data_member_begin"
2191 "`vmm_env_member_begin" 2586 "`vmm_env_member_begin"
@@ -2227,8 +2622,7 @@ find the errors."
2227 `( 2622 `(
2228 "endmodule" "endprimitive" "endinterface" "endpackage" "endprogram" "endclass" 2623 "endmodule" "endprimitive" "endinterface" "endpackage" "endprogram" "endclass"
2229 )))) 2624 ))))
2230(defconst verilog-disable-fork-re "disable\\s-+fork\\>") 2625(defconst verilog-disable-fork-re "\\(disable\\|wait\\)\\s-+fork\\>")
2231(defconst verilog-fork-wait-re "fork\\s-+wait\\>")
2232(defconst verilog-extended-case-re "\\(unique\\s-+\\|priority\\s-+\\)?case[xz]?") 2626(defconst verilog-extended-case-re "\\(unique\\s-+\\|priority\\s-+\\)?case[xz]?")
2233(defconst verilog-extended-complete-re 2627(defconst verilog-extended-complete-re
2234 (concat "\\(\\<extern\\s-+\\|\\<\\(\\<pure\\>\\s-+\\)?virtual\\s-+\\|\\<protected\\s-+\\)*\\(\\<function\\>\\|\\<task\\>\\)" 2628 (concat "\\(\\<extern\\s-+\\|\\<\\(\\<pure\\>\\s-+\\)?virtual\\s-+\\|\\<protected\\s-+\\)*\\(\\<function\\>\\|\\<task\\>\\)"
@@ -2609,6 +3003,7 @@ user-visible changes to the buffer must not be within a
2609 (buffer-undo-list t) 3003 (buffer-undo-list t)
2610 (inhibit-read-only t) 3004 (inhibit-read-only t)
2611 (inhibit-point-motion-hooks t) 3005 (inhibit-point-motion-hooks t)
3006 (verilog-no-change-functions t)
2612 before-change-functions 3007 before-change-functions
2613 after-change-functions 3008 after-change-functions
2614 deactivate-mark 3009 deactivate-mark
@@ -2624,6 +3019,7 @@ user-visible changes to the buffer must not be within a
2624 "Execute BODY forms, disabling all change hooks in BODY. 3019 "Execute BODY forms, disabling all change hooks in BODY.
2625For insignificant changes, see instead `verilog-save-buffer-state'." 3020For insignificant changes, see instead `verilog-save-buffer-state'."
2626 `(let* ((inhibit-point-motion-hooks t) 3021 `(let* ((inhibit-point-motion-hooks t)
3022 (verilog-no-change-functions t)
2627 before-change-functions 3023 before-change-functions
2628 after-change-functions) 3024 after-change-functions)
2629 (progn ,@body))) 3025 (progn ,@body)))
@@ -2633,13 +3029,17 @@ For insignificant changes, see instead `verilog-save-buffer-state'."
2633 3029
2634(defvar verilog-scan-cache-preserving nil 3030(defvar verilog-scan-cache-preserving nil
2635 "If set, the specified buffer's comment properties are static. 3031 "If set, the specified buffer's comment properties are static.
2636Buffer changes will be ignored. See `verilog-inside-comment-p' 3032Buffer changes will be ignored. See `verilog-inside-comment-or-string-p'
2637and `verilog-scan'.") 3033and `verilog-scan'.")
2638 3034
2639(defvar verilog-scan-cache-tick nil 3035(defvar verilog-scan-cache-tick nil
2640 "Modification tick at which `verilog-scan' was last completed.") 3036 "Modification tick at which `verilog-scan' was last completed.")
2641(make-variable-buffer-local 'verilog-scan-cache-tick) 3037(make-variable-buffer-local 'verilog-scan-cache-tick)
2642 3038
3039(defun verilog-scan-cache-flush ()
3040 "Flush the `verilog-scan' cache."
3041 (setq verilog-scan-cache-tick nil))
3042
2643(defun verilog-scan-cache-ok-p () 3043(defun verilog-scan-cache-ok-p ()
2644 "Return t iff the scan cache is up to date." 3044 "Return t iff the scan cache is up to date."
2645 (or (and verilog-scan-cache-preserving 3045 (or (and verilog-scan-cache-preserving
@@ -2660,8 +3060,8 @@ This requires that insertions must use `verilog-insert'."
2660 (progn ,@body)))) 3060 (progn ,@body))))
2661 3061
2662(defun verilog-scan-region (beg end) 3062(defun verilog-scan-region (beg end)
2663 "Parse comments between BEG and END for `verilog-inside-comment-p'. 3063 "Parse between BEG and END for `verilog-inside-comment-or-string-p'.
2664This creates v-cmt properties where comments are in force." 3064This creates v-cmts properties where comments are in force."
2665 ;; Why properties and not overlays? Overlays have much slower non O(1) 3065 ;; Why properties and not overlays? Overlays have much slower non O(1)
2666 ;; lookup times. 3066 ;; lookup times.
2667 ;; This function is warm - called on every verilog-insert 3067 ;; This function is warm - called on every verilog-insert
@@ -2678,8 +3078,9 @@ This creates v-cmt properties where comments are in force."
2678 ;; "1+": The leading // or /* itself isn't considered as 3078 ;; "1+": The leading // or /* itself isn't considered as
2679 ;; being "inside" the comment, so that a (search-backward) 3079 ;; being "inside" the comment, so that a (search-backward)
2680 ;; that lands at the start of the // won't mis-indicate 3080 ;; that lands at the start of the // won't mis-indicate
2681 ;; it's inside a comment 3081 ;; it's inside a comment. Also otherwise it would be
2682 (put-text-property (1+ pt) (point) 'v-cmt t)) 3082 ;; hard to find a commented out /*AS*/ vs one that isn't
3083 (put-text-property (1+ pt) (point) 'v-cmts t))
2683 ((looking-at "/\\*") 3084 ((looking-at "/\\*")
2684 (setq pt (point)) 3085 (setq pt (point))
2685 (or (search-forward "*/" end t) 3086 (or (search-forward "*/" end t)
@@ -2688,17 +3089,24 @@ This creates v-cmt properties where comments are in force."
2688 ;;(error "%s: Unmatched /* */, at char %d" 3089 ;;(error "%s: Unmatched /* */, at char %d"
2689 ;; (verilog-point-text) (point)) 3090 ;; (verilog-point-text) (point))
2690 (goto-char end)) 3091 (goto-char end))
2691 (put-text-property (1+ pt) (point) 'v-cmt t)) 3092 (put-text-property (1+ pt) (point) 'v-cmts t))
3093 ((looking-at "\"")
3094 (setq pt (point))
3095 (or (re-search-forward "[^\\]\"" end t) ;; don't forward-char first, since we look for a non backslash first
3096 ;; No error - let later code indicate it so we can
3097 (goto-char end))
3098 (put-text-property (1+ pt) (point) 'v-cmts t))
2692 (t 3099 (t
2693 (forward-char 1) 3100 (forward-char 1)
2694 (if (re-search-forward "/[/*]" end t) 3101 (if (re-search-forward "[/\"]" end t)
2695 (backward-char 2) 3102 (backward-char 1)
2696 (goto-char end)))))))))) 3103 (goto-char end))))))))))
2697 3104
2698(defun verilog-scan () 3105(defun verilog-scan ()
2699 "Parse the buffer, marking all comments with properties. 3106 "Parse the buffer, marking all comments with properties.
2700Also assumes any text inserted since `verilog-scan-cache-tick' 3107Also assumes any text inserted since `verilog-scan-cache-tick'
2701either is ok to parse as a non-comment, or `verilog-insert' was used." 3108either is ok to parse as a non-comment, or `verilog-insert' was used."
3109 ;; See also `verilog-scan-debug' and `verilog-scan-and-debug'
2702 (unless (verilog-scan-cache-ok-p) 3110 (unless (verilog-scan-cache-ok-p)
2703 (save-excursion 3111 (save-excursion
2704 (verilog-save-buffer-state 3112 (verilog-save-buffer-state
@@ -2706,21 +3114,47 @@ either is ok to parse as a non-comment, or `verilog-insert' was used."
2706 (message "Scanning %s cache=%s cachetick=%S tick=%S" (current-buffer) 3114 (message "Scanning %s cache=%s cachetick=%S tick=%S" (current-buffer)
2707 verilog-scan-cache-preserving verilog-scan-cache-tick 3115 verilog-scan-cache-preserving verilog-scan-cache-tick
2708 (buffer-chars-modified-tick))) 3116 (buffer-chars-modified-tick)))
2709 (remove-text-properties (point-min) (point-max) '(v-cmt nil)) 3117 (remove-text-properties (point-min) (point-max) '(v-cmts nil))
2710 (verilog-scan-region (point-min) (point-max)) 3118 (verilog-scan-region (point-min) (point-max))
2711 (setq verilog-scan-cache-tick (buffer-chars-modified-tick)) 3119 (setq verilog-scan-cache-tick (buffer-chars-modified-tick))
2712 (when verilog-debug (message "Scanning... done")))))) 3120 (when verilog-debug (message "Scanning... done"))))))
2713 3121
2714(defun verilog-inside-comment-p () 3122(defun verilog-scan-debug ()
2715 "Check if point inside a comment. 3123 "For debugging, show with display face results of `verilog-scan'."
3124 (font-lock-mode 0)
3125 ;;(if dbg (setq dbg (concat dbg (format "verilog-scan-debug\n"))))
3126 (save-excursion
3127 (goto-char (point-min))
3128 (remove-text-properties (point-min) (point-max) '(face nil))
3129 (while (not (eobp))
3130 (cond ((get-text-property (point) 'v-cmts)
3131 (put-text-property (point) (1+ (point)) `face 'underline)
3132 ;;(if dbg (setq dbg (concat dbg (format " v-cmts at %S\n" (point)))))
3133 (forward-char 1))
3134 (t
3135 (goto-char (or (next-property-change (point)) (point-max))))))))
3136
3137(defun verilog-scan-and-debug ()
3138 "For debugging, run `verilog-scan' and `verilog-scan-debug'."
3139 (let (verilog-scan-cache-preserving
3140 verilog-scan-cache-tick)
3141 (goto-char (point-min))
3142 (verilog-scan)
3143 (verilog-scan-debug)))
3144
3145(defun verilog-inside-comment-or-string-p (&optional pos)
3146 "Check if optional point POS is inside a comment.
2716This may require a slow pre-parse of the buffer with `verilog-scan' 3147This may require a slow pre-parse of the buffer with `verilog-scan'
2717to establish comment properties on all text." 3148to establish comment properties on all text."
2718 ;; This function is very hot 3149 ;; This function is very hot
2719 (verilog-scan) 3150 (verilog-scan)
2720 (get-text-property (point) 'v-cmt)) 3151 (if pos
3152 (and (>= pos (point-min))
3153 (get-text-property pos 'v-cmts))
3154 (get-text-property (point) 'v-cmts)))
2721 3155
2722(defun verilog-insert (&rest stuff) 3156(defun verilog-insert (&rest stuff)
2723 "Insert STUFF arguments, tracking comments for `verilog-inside-comment-p'. 3157 "Insert STUFF arguments, tracking for `verilog-inside-comment-or-string-p'.
2724Any insert that includes a comment must have the entire commente 3158Any insert that includes a comment must have the entire commente
2725inserted using a single call to `verilog-insert'." 3159inserted using a single call to `verilog-insert'."
2726 (let ((pt (point))) 3160 (let ((pt (point)))
@@ -2741,7 +3175,7 @@ Use filename, if current buffer being edited shorten to just buffer name."
2741 (buffer-name)) 3175 (buffer-name))
2742 buffer-file-name 3176 buffer-file-name
2743 (buffer-name)) 3177 (buffer-name))
2744 ":" (int-to-string (count-lines (point-min) (or pointnum (point)))))) 3178 ":" (int-to-string (1+ (count-lines (point-min) (or pointnum (point)))))))
2745 3179
2746(defun electric-verilog-backward-sexp () 3180(defun electric-verilog-backward-sexp ()
2747 "Move backward over one balanced expression." 3181 "Move backward over one balanced expression."
@@ -2835,28 +3269,24 @@ Use filename, if current buffer being edited shorten to just buffer name."
2835 (setq md 3) ;; ender is third item in regexp 3269 (setq md 3) ;; ender is third item in regexp
2836 ) 3270 )
2837 ((match-end 4) 3271 ((match-end 4)
2838 ;; might be "disable fork" or "fork wait" 3272 ;; might be "disable fork" or "wait fork"
2839 (let 3273 (let
2840 (here) 3274 (here)
2841 (if (looking-at verilog-fork-wait-re) 3275 (if (or
2842 (progn ;; it is a fork wait; ignore it 3276 (looking-at verilog-disable-fork-re)
3277 (and (looking-at "fork")
3278 (progn
3279 (setq here (point)) ;; sometimes a fork is just a fork
3280 (forward-word -1)
3281 (looking-at verilog-disable-fork-re))))
3282 (progn ;; it is a disable fork; ignore it
2843 (goto-char (match-end 0)) 3283 (goto-char (match-end 0))
3284 (forward-word 1)
2844 (setq reg nil)) 3285 (setq reg nil))
2845 (if (or 3286 (progn ;; it is a nice simple fork
2846 (looking-at verilog-disable-fork-re) 3287 (goto-char here) ;; return from looking for "disable fork"
2847 (and (looking-at "fork") 3288 ;; Search forward for matching join
2848 (progn 3289 (setq reg "\\(\\<fork\\>\\)\\|\\(\\<join\\(_any\\|_none\\)?\\>\\)" )))))
2849 (setq here (point)) ;; sometimes a fork is just a fork
2850 (forward-word -1)
2851 (looking-at verilog-disable-fork-re))))
2852 (progn ;; it is a disable fork; ignore it
2853 (goto-char (match-end 0))
2854 (forward-word 1)
2855 (setq reg nil))
2856 (progn ;; it is a nice simple fork
2857 (goto-char here) ;; return from looking for "disable fork"
2858 ;; Search forward for matching join
2859 (setq reg "\\(\\<fork\\>\\)\\|\\(\\<join\\(_any\\|_none\\)?\\>\\)" ))))))
2860 ((match-end 6) 3290 ((match-end 6)
2861 ;; Search forward for matching endclass 3291 ;; Search forward for matching endclass
2862 (setq reg "\\(\\<class\\>\\)\\|\\(\\<endclass\\>\\)" )) 3292 (setq reg "\\(\\<class\\>\\)\\|\\(\\<endclass\\>\\)" ))
@@ -2916,8 +3346,6 @@ Use filename, if current buffer being edited shorten to just buffer name."
2916 (setq here (point)) ; remember where we started 3346 (setq here (point)) ; remember where we started
2917 (goto-char (match-beginning 1)) 3347 (goto-char (match-beginning 1))
2918 (cond 3348 (cond
2919 ((looking-at verilog-fork-wait-re)
2920 (goto-char (match-end 0))) ; false alarm
2921 ((if (or 3349 ((if (or
2922 (looking-at verilog-disable-fork-re) 3350 (looking-at verilog-disable-fork-re)
2923 (and (looking-at "fork") 3351 (and (looking-at "fork")
@@ -3076,6 +3504,8 @@ Some other functions are:
3076 \\[verilog-sk-initial] Insert an initial begin .. end block. 3504 \\[verilog-sk-initial] Insert an initial begin .. end block.
3077 \\[verilog-sk-fork] Insert a fork begin .. end .. join block. 3505 \\[verilog-sk-fork] Insert a fork begin .. end .. join block.
3078 \\[verilog-sk-module] Insert a module .. (/*AUTOARG*/);.. endmodule block. 3506 \\[verilog-sk-module] Insert a module .. (/*AUTOARG*/);.. endmodule block.
3507 \\[verilog-sk-ovm-class] Insert an OVM Class block.
3508 \\[verilog-sk-uvm-class] Insert an UVM Class block.
3079 \\[verilog-sk-primitive] Insert a primitive .. (.. );.. endprimitive block. 3509 \\[verilog-sk-primitive] Insert a primitive .. (.. );.. endprimitive block.
3080 \\[verilog-sk-repeat] Insert a repeat (..) begin .. end block. 3510 \\[verilog-sk-repeat] Insert a repeat (..) begin .. end block.
3081 \\[verilog-sk-specify] Insert a specify .. endspecify block. 3511 \\[verilog-sk-specify] Insert a specify .. endspecify block.
@@ -3110,7 +3540,6 @@ Key bindings specific to `verilog-mode-map' are:
3110 #'verilog-indent-line-relative) 3540 #'verilog-indent-line-relative)
3111 (setq comment-indent-function 'verilog-comment-indent) 3541 (setq comment-indent-function 'verilog-comment-indent)
3112 (set (make-local-variable 'parse-sexp-ignore-comments) nil) 3542 (set (make-local-variable 'parse-sexp-ignore-comments) nil)
3113
3114 (set (make-local-variable 'comment-start) "// ") 3543 (set (make-local-variable 'comment-start) "// ")
3115 (set (make-local-variable 'comment-end) "") 3544 (set (make-local-variable 'comment-end) "")
3116 (set (make-local-variable 'comment-start-skip) "/\\*+ *\\|// *") 3545 (set (make-local-variable 'comment-start-skip) "/\\*+ *\\|// *")
@@ -3168,7 +3597,9 @@ Key bindings specific to `verilog-mode-map' are:
3168 hs-special-modes-alist)))) 3597 hs-special-modes-alist))))
3169 3598
3170 ;; Stuff for autos 3599 ;; Stuff for autos
3171 (add-hook 'write-contents-hooks 'verilog-auto-save-check nil 'local)) 3600 (add-hook 'write-contents-hooks 'verilog-auto-save-check nil 'local)
3601 ;; verilog-mode-hook call added by define-derived-mode
3602 )
3172 3603
3173 3604
3174;; 3605;;
@@ -3519,6 +3950,12 @@ area. See also `verilog-comment-region'."
3519 (interactive) 3950 (interactive)
3520 (verilog-re-search-backward verilog-defun-re nil 'move)) 3951 (verilog-re-search-backward verilog-defun-re nil 'move))
3521 3952
3953(defun verilog-beg-of-defun-quick ()
3954 "Move backward to the beginning of the current function or procedure.
3955Uses `verilog-scan' cache."
3956 (interactive)
3957 (verilog-re-search-backward-quick verilog-defun-re nil 'move))
3958
3522(defun verilog-end-of-defun () 3959(defun verilog-end-of-defun ()
3523 "Move forward to the end of the current function or procedure." 3960 "Move forward to the end of the current function or procedure."
3524 (interactive) 3961 (interactive)
@@ -3741,13 +4178,21 @@ More specifically, point @ in the line foo : @ begin"
3741 (t 4178 (t
3742 (throw 'found (= nest 0))))))) 4179 (throw 'found (= nest 0)))))))
3743 nil))) 4180 nil)))
4181
3744(defun verilog-backward-up-list (arg) 4182(defun verilog-backward-up-list (arg)
3745 "Like backward-up-list, but deal with comments." 4183 "Like `backward-up-list', but deal with comments."
3746 (let (saved-psic parse-sexp-ignore-comments) 4184 (let ((parse-sexp-ignore-comments t))
3747 (setq parse-sexp-ignore-comments 1) 4185 (backward-up-list arg)))
3748 (backward-up-list arg) 4186
3749 (setq parse-sexp-ignore-comments saved-psic) 4187(defun verilog-forward-sexp-cmt (arg)
3750 )) 4188 "Call `forward-sexp', inside comments."
4189 (let ((parse-sexp-ignore-comments nil))
4190 (forward-sexp arg)))
4191
4192(defun verilog-forward-sexp-ign-cmt (arg)
4193 "Call `forward-sexp', ignoring comments."
4194 (let ((parse-sexp-ignore-comments t))
4195 (forward-sexp arg)))
3751 4196
3752(defun verilog-in-struct-region-p () 4197(defun verilog-in-struct-region-p ()
3753 "Return true if in a struct region. 4198 "Return true if in a struct region.
@@ -4449,7 +4894,6 @@ becomes:
4449 next-error-last-buffer 4894 next-error-last-buffer
4450 compilation-last-buffer))) 4895 compilation-last-buffer)))
4451 (when (buffer-live-p buff) 4896 (when (buffer-live-p buff)
4452 ;; FIXME with-current-buffer?
4453 (save-excursion 4897 (save-excursion
4454 (switch-to-buffer buff) 4898 (switch-to-buffer buff)
4455 (beginning-of-line) 4899 (beginning-of-line)
@@ -4565,8 +5009,9 @@ This lets programs calling batch mode to easily extract error messages."
4565 (error "%%Error: %s%s" (error-message-string err) 5009 (error "%%Error: %s%s" (error-message-string err)
4566 (if (featurep 'xemacs) "\n" ""))))) ;; XEmacs forgets to add a newline 5010 (if (featurep 'xemacs) "\n" ""))))) ;; XEmacs forgets to add a newline
4567 5011
4568(defun verilog-batch-execute-func (funref) 5012(defun verilog-batch-execute-func (funref &optional no-save)
4569 "Internal processing of a batch command, running FUNREF on all command arguments." 5013 "Internal processing of a batch command, running FUNREF on all command arguments.
5014Save the result unless optional NO-SAVE is t."
4570 (verilog-batch-error-wrapper 5015 (verilog-batch-error-wrapper
4571 ;; Setting global variables like that is *VERY NASTY* !!! --Stef 5016 ;; Setting global variables like that is *VERY NASTY* !!! --Stef
4572 ;; However, this function is called only when Emacs is being used as 5017 ;; However, this function is called only when Emacs is being used as
@@ -4587,15 +5032,15 @@ This lets programs calling batch mode to easily extract error messages."
4587 (buffer-list)) 5032 (buffer-list))
4588 ;; Process the files 5033 ;; Process the files
4589 (mapcar (lambda (buf) 5034 (mapcar (lambda (buf)
4590 (when (buffer-file-name buf) 5035 (when (buffer-file-name buf)
4591 (save-excursion 5036 (save-excursion
4592 (if (not (file-exists-p (buffer-file-name buf))) 5037 (if (not (file-exists-p (buffer-file-name buf)))
4593 (error 5038 (error
4594 (concat "File not found: " (buffer-file-name buf)))) 5039 (concat "File not found: " (buffer-file-name buf))))
4595 (message (concat "Processing " (buffer-file-name buf))) 5040 (message (concat "Processing " (buffer-file-name buf)))
4596 (set-buffer buf) 5041 (set-buffer buf)
4597 (funcall funref) 5042 (funcall funref)
4598 (save-buffer)))) 5043 (unless no-save (save-buffer)))))
4599 (buffer-list)))) 5044 (buffer-list))))
4600 5045
4601(defun verilog-batch-auto () 5046(defun verilog-batch-auto ()
@@ -4616,6 +5061,16 @@ with \\[verilog-delete-auto] on all command-line files, and saves the buffers."
4616 (error "Use verilog-batch-delete-auto only with --batch")) ;; Otherwise we'd mess up buffer modes 5061 (error "Use verilog-batch-delete-auto only with --batch")) ;; Otherwise we'd mess up buffer modes
4617 (verilog-batch-execute-func `verilog-delete-auto)) 5062 (verilog-batch-execute-func `verilog-delete-auto))
4618 5063
5064(defun verilog-batch-diff-auto ()
5065 "For use with --batch, perform automatic differences as a stand-alone tool.
5066This sets up the appropriate Verilog mode environment, expand automatics
5067with \\[verilog-diff-auto] on all command-line files, and reports an error
5068if any differences are observed. This is appropriate for adding to regressions
5069to insure automatics are always properly maintained."
5070 (unless noninteractive
5071 (error "Use verilog-batch-diff-auto only with --batch")) ;; Otherwise we'd mess up buffer modes
5072 (verilog-batch-execute-func `verilog-diff-auto t))
5073
4619(defun verilog-batch-inject-auto () 5074(defun verilog-batch-inject-auto ()
4620 "For use with --batch, perform automatic injection as a stand-alone tool. 5075 "For use with --batch, perform automatic injection as a stand-alone tool.
4621This sets up the appropriate Verilog mode environment, injects new automatics 5076This sets up the appropriate Verilog mode environment, injects new automatics
@@ -4692,123 +5147,123 @@ Return a list of two elements: (INDENT-TYPE INDENT-LEVEL)."
4692 ;; if we have a directive, done. 5147 ;; if we have a directive, done.
4693 (if (save-excursion (beginning-of-line) 5148 (if (save-excursion (beginning-of-line)
4694 (and (looking-at verilog-directive-re-1) 5149 (and (looking-at verilog-directive-re-1)
4695 (not (or (looking-at "[ \t]*`ovm_") 5150 (not (or (looking-at "[ \t]*`[ou]vm_")
4696 (looking-at "[ \t]*`vmm_"))))) 5151 (looking-at "[ \t]*`vmm_")))))
4697 (throw 'nesting 'directive)) 5152 (throw 'nesting 'directive))
4698 ;; indent structs as if there were module level 5153 ;; indent structs as if there were module level
4699 (if (verilog-in-struct-p) 5154 (if (verilog-in-struct-p)
4700 (throw 'nesting 'block)) 5155 (throw 'nesting 'block))
4701 5156
4702 ;; unless we are in the newfangled coverpoint or constraint blocks 5157 ;; if we are in a parenthesized list, and the user likes to indent these, return.
4703 ;; if we are in a parenthesized list, and the user likes to indent these, return. 5158 ;; unless we are in the newfangled coverpoint or constraint blocks
4704 (if (and 5159 (if (and
4705 verilog-indent-lists 5160 verilog-indent-lists
4706 (verilog-in-paren) 5161 (verilog-in-paren)
4707 (not (verilog-in-coverage-p)) 5162 (not (verilog-in-coverage-p))
4708 ) 5163 )
4709 (progn (setq par 1) 5164 (progn (setq par 1)
4710 (throw 'nesting 'block))) 5165 (throw 'nesting 'block)))
4711 5166
4712 ;; See if we are continuing a previous line 5167 ;; See if we are continuing a previous line
4713 (while t 5168 (while t
4714 ;; trap out if we crawl off the top of the buffer 5169 ;; trap out if we crawl off the top of the buffer
4715 (if (bobp) (throw 'nesting 'cpp)) 5170 (if (bobp) (throw 'nesting 'cpp))
4716 5171
4717 (if (verilog-continued-line-1 lim) 5172 (if (verilog-continued-line-1 lim)
4718 (let ((sp (point))) 5173 (let ((sp (point)))
4719 (if (and 5174 (if (and
4720 (not (looking-at verilog-complete-reg)) 5175 (not (looking-at verilog-complete-reg))
4721 (verilog-continued-line-1 lim)) 5176 (verilog-continued-line-1 lim))
4722 (progn (goto-char sp) 5177 (progn (goto-char sp)
4723 (throw 'nesting 'cexp)) 5178 (throw 'nesting 'cexp))
4724 5179
4725 (goto-char sp)) 5180 (goto-char sp))
4726 5181
4727 (if (and begin 5182 (if (and begin
4728 (not verilog-indent-begin-after-if) 5183 (not verilog-indent-begin-after-if)
4729 (looking-at verilog-no-indent-begin-re)) 5184 (looking-at verilog-no-indent-begin-re))
4730 (progn 5185 (progn
4731 (beginning-of-line) 5186 (beginning-of-line)
4732 (skip-chars-forward " \t") 5187 (skip-chars-forward " \t")
4733 (throw 'nesting 'statement)) 5188 (throw 'nesting 'statement))
4734 (progn 5189 (progn
4735 (throw 'nesting 'cexp)))) 5190 (throw 'nesting 'cexp))))
4736 ;; not a continued line 5191 ;; not a continued line
4737 (goto-char starting_position)) 5192 (goto-char starting_position))
4738 5193
4739 (if (looking-at "\\<else\\>") 5194 (if (looking-at "\\<else\\>")
4740 ;; search back for governing if, striding across begin..end pairs 5195 ;; search back for governing if, striding across begin..end pairs
4741 ;; appropriately 5196 ;; appropriately
4742 (let ((elsec 1)) 5197 (let ((elsec 1))
4743 (while (verilog-re-search-backward verilog-ends-re nil 'move) 5198 (while (verilog-re-search-backward verilog-ends-re nil 'move)
5199 (cond
5200 ((match-end 1) ; else, we're in deep
5201 (setq elsec (1+ elsec)))
5202 ((match-end 2) ; if
5203 (setq elsec (1- elsec))
5204 (if (= 0 elsec)
5205 (if verilog-align-ifelse
5206 (throw 'nesting 'statement)
5207 (progn ;; back up to first word on this line
5208 (beginning-of-line)
5209 (verilog-forward-syntactic-ws)
5210 (throw 'nesting 'statement)))))
5211 ((match-end 3) ; assert block
5212 (setq elsec (1- elsec))
5213 (verilog-beg-of-statement) ;; doesn't get to beginning
5214 (if (looking-at verilog-property-re)
5215 (throw 'nesting 'statement) ; We don't need an endproperty for these
5216 (throw 'nesting 'block) ;We still need a endproperty
5217 ))
5218 (t ; endblock
5219 ; try to leap back to matching outward block by striding across
5220 ; indent level changing tokens then immediately
5221 ; previous line governs indentation.
5222 (let (( reg) (nest 1))
5223 ;; verilog-ends => else|if|end|join(_any|_none|)|endcase|endclass|endtable|endspecify|endfunction|endtask|endgenerate|endgroup
5224 (cond
5225 ((match-end 4) ; end
5226 ;; Search back for matching begin
5227 (setq reg "\\(\\<begin\\>\\)\\|\\(\\<end\\>\\)" ))
5228 ((match-end 5) ; endcase
5229 ;; Search back for matching case
5230 (setq reg "\\(\\<randcase\\>\\|\\<case[xz]?\\>[^:]\\)\\|\\(\\<endcase\\>\\)" ))
5231 ((match-end 6) ; endfunction
5232 ;; Search back for matching function
5233 (setq reg "\\(\\<function\\>\\)\\|\\(\\<endfunction\\>\\)" ))
5234 ((match-end 7) ; endtask
5235 ;; Search back for matching task
5236 (setq reg "\\(\\<task\\>\\)\\|\\(\\<endtask\\>\\)" ))
5237 ((match-end 8) ; endspecify
5238 ;; Search back for matching specify
5239 (setq reg "\\(\\<specify\\>\\)\\|\\(\\<endspecify\\>\\)" ))
5240 ((match-end 9) ; endtable
5241 ;; Search back for matching table
5242 (setq reg "\\(\\<table\\>\\)\\|\\(\\<endtable\\>\\)" ))
5243 ((match-end 10) ; endgenerate
5244 ;; Search back for matching generate
5245 (setq reg "\\(\\<generate\\>\\)\\|\\(\\<endgenerate\\>\\)" ))
5246 ((match-end 11) ; joins
5247 ;; Search back for matching fork
5248 (setq reg "\\(\\<fork\\>\\)\\|\\(\\<join\\(_any\\|none\\)?\\>\\)" ))
5249 ((match-end 12) ; class
5250 ;; Search back for matching class
5251 (setq reg "\\(\\<class\\>\\)\\|\\(\\<endclass\\>\\)" ))
5252 ((match-end 13) ; covergroup
5253 ;; Search back for matching covergroup
5254 (setq reg "\\(\\<covergroup\\>\\)\\|\\(\\<endgroup\\>\\)" )))
5255 (catch 'skip
5256 (while (verilog-re-search-backward reg nil 'move)
4744 (cond 5257 (cond
4745 ((match-end 1) ; else, we're in deep 5258 ((match-end 1) ; begin
4746 (setq elsec (1+ elsec))) 5259 (setq nest (1- nest))
4747 ((match-end 2) ; if 5260 (if (= 0 nest)
4748 (setq elsec (1- elsec)) 5261 (throw 'skip 1)))
4749 (if (= 0 elsec) 5262 ((match-end 2) ; end
4750 (if verilog-align-ifelse 5263 (setq nest (1+ nest)))))
4751 (throw 'nesting 'statement) 5264 )))))))
4752 (progn ;; back up to first word on this line 5265 (throw 'nesting (verilog-calc-1)))
4753 (beginning-of-line) 5266 );; catch nesting
4754 (verilog-forward-syntactic-ws)
4755 (throw 'nesting 'statement)))))
4756 ((match-end 3) ; assert block
4757 (setq elsec (1- elsec))
4758 (verilog-beg-of-statement) ;; doesn't get to beginning
4759 (if (looking-at verilog-property-re)
4760 (throw 'nesting 'statement) ; We don't need an endproperty for these
4761 (throw 'nesting 'block) ;We still need a endproperty
4762 ))
4763 (t ; endblock
4764 ; try to leap back to matching outward block by striding across
4765 ; indent level changing tokens then immediately
4766 ; previous line governs indentation.
4767 (let (( reg) (nest 1))
4768;; verilog-ends => else|if|end|join(_any|_none|)|endcase|endclass|endtable|endspecify|endfunction|endtask|endgenerate|endgroup
4769 (cond
4770 ((match-end 4) ; end
4771 ;; Search back for matching begin
4772 (setq reg "\\(\\<begin\\>\\)\\|\\(\\<end\\>\\)" ))
4773 ((match-end 5) ; endcase
4774 ;; Search back for matching case
4775 (setq reg "\\(\\<randcase\\>\\|\\<case[xz]?\\>[^:]\\)\\|\\(\\<endcase\\>\\)" ))
4776 ((match-end 6) ; endfunction
4777 ;; Search back for matching function
4778 (setq reg "\\(\\<function\\>\\)\\|\\(\\<endfunction\\>\\)" ))
4779 ((match-end 7) ; endtask
4780 ;; Search back for matching task
4781 (setq reg "\\(\\<task\\>\\)\\|\\(\\<endtask\\>\\)" ))
4782 ((match-end 8) ; endspecify
4783 ;; Search back for matching specify
4784 (setq reg "\\(\\<specify\\>\\)\\|\\(\\<endspecify\\>\\)" ))
4785 ((match-end 9) ; endtable
4786 ;; Search back for matching table
4787 (setq reg "\\(\\<table\\>\\)\\|\\(\\<endtable\\>\\)" ))
4788 ((match-end 10) ; endgenerate
4789 ;; Search back for matching generate
4790 (setq reg "\\(\\<generate\\>\\)\\|\\(\\<endgenerate\\>\\)" ))
4791 ((match-end 11) ; joins
4792 ;; Search back for matching fork
4793 (setq reg "\\(\\<fork\\>\\)\\|\\(\\<join\\(_any\\|none\\)?\\>\\)" ))
4794 ((match-end 12) ; class
4795 ;; Search back for matching class
4796 (setq reg "\\(\\<class\\>\\)\\|\\(\\<endclass\\>\\)" ))
4797 ((match-end 13) ; covergroup
4798 ;; Search back for matching covergroup
4799 (setq reg "\\(\\<covergroup\\>\\)\\|\\(\\<endgroup\\>\\)" )))
4800 (catch 'skip
4801 (while (verilog-re-search-backward reg nil 'move)
4802 (cond
4803 ((match-end 1) ; begin
4804 (setq nest (1- nest))
4805 (if (= 0 nest)
4806 (throw 'skip 1)))
4807 ((match-end 2) ; end
4808 (setq nest (1+ nest)))))
4809 )))))))
4810 (throw 'nesting (verilog-calc-1)))
4811 );; catch nesting
4812 );; type 5267 );; type
4813 ) 5268 )
4814 ;; Return type of block and indent level. 5269 ;; Return type of block and indent level.
@@ -4883,8 +5338,7 @@ Return a list of two elements: (INDENT-TYPE INDENT-LEVEL)."
4883 ((match-end 4) ; *sigh* could be "disable fork" 5338 ((match-end 4) ; *sigh* could be "disable fork"
4884 (let ((here (point))) 5339 (let ((here (point)))
4885 (verilog-beg-of-statement) 5340 (verilog-beg-of-statement)
4886 (if (or (looking-at verilog-disable-fork-re) 5341 (if (looking-at verilog-disable-fork-re)
4887 (looking-at verilog-fork-wait-re))
4888 t ; this is a normal statement 5342 t ; this is a normal statement
4889 (progn ; or is fork, starts a new block 5343 (progn ; or is fork, starts a new block
4890 (goto-char here) 5344 (goto-char here)
@@ -5050,6 +5504,9 @@ Jump from end to matching begin, from endcase to matching case, and so on."
5050 ((looking-at "\\<endproperty\\>") 5504 ((looking-at "\\<endproperty\\>")
5051 ;; 11: Search back for matching property 5505 ;; 11: Search back for matching property
5052 (setq reg "\\(\\<property\\>\\)\\|\\(\\<endproperty\\>\\)" )) 5506 (setq reg "\\(\\<property\\>\\)\\|\\(\\<endproperty\\>\\)" ))
5507 ((looking-at verilog-uvm-end-re)
5508 ;; 12: Search back for matching sequence
5509 (setq reg (concat "\\(" verilog-uvm-begin-re "\\|" verilog-uvm-end-re "\\)")))
5053 ((looking-at verilog-ovm-end-re) 5510 ((looking-at verilog-ovm-end-re)
5054 ;; 12: Search back for matching sequence 5511 ;; 12: Search back for matching sequence
5055 (setq reg (concat "\\(" verilog-ovm-begin-re "\\|" verilog-ovm-end-re "\\)"))) 5512 (setq reg (concat "\\(" verilog-ovm-begin-re "\\|" verilog-ovm-end-re "\\)")))
@@ -5177,6 +5634,12 @@ Set point to where line starts."
5177 ;;XX 5634 ;;XX
5178 ((looking-at "\\<\\(always\\(_latch\\|_ff\\|_comb\\)?\\|case\\(\\|[xz]\\)\\|for\\(\\|each\\|ever\\)\\|i\\(f\\|nitial\\)\\|repeat\\|while\\)\\>") 5635 ((looking-at "\\<\\(always\\(_latch\\|_ff\\|_comb\\)?\\|case\\(\\|[xz]\\)\\|for\\(\\|each\\|ever\\)\\|i\\(f\\|nitial\\)\\|repeat\\|while\\)\\>")
5179 (not (looking-at "\\<randcase\\>\\|\\<case[xz]?\\>[^:]"))) 5636 (not (looking-at "\\<randcase\\>\\|\\<case[xz]?\\>[^:]")))
5637 ((looking-at verilog-uvm-statement-re)
5638 nil)
5639 ((looking-at verilog-uvm-begin-re)
5640 t)
5641 ((looking-at verilog-uvm-end-re)
5642 t)
5180 ((looking-at verilog-ovm-statement-re) 5643 ((looking-at verilog-ovm-statement-re)
5181 nil) 5644 nil)
5182 ((looking-at verilog-ovm-begin-re) 5645 ((looking-at verilog-ovm-begin-re)
@@ -5241,9 +5704,24 @@ Set point to where line starts."
5241 t)))))))) 5704 t))))))))
5242 5705
5243(defun verilog-backward-syntactic-ws () 5706(defun verilog-backward-syntactic-ws ()
5707 "Move backwards putting point after first non-whitespace non-comment."
5244 (verilog-skip-backward-comments) 5708 (verilog-skip-backward-comments)
5245 (forward-comment (- (buffer-size)))) 5709 (forward-comment (- (buffer-size))))
5246 5710
5711(defun verilog-backward-syntactic-ws-quick ()
5712 "As with `verilog-backward-syntactic-ws' but uses `verilog-scan' cache."
5713 (while (cond ((bobp)
5714 nil) ; Done
5715 ((> (skip-syntax-backward " ") 0)
5716 t)
5717 ((eq (preceding-char) ?\n) ;; \n's terminate // so aren't space syntax
5718 (forward-char -1)
5719 t)
5720 ((or (verilog-inside-comment-or-string-p (1- (point)))
5721 (verilog-inside-comment-or-string-p (point)))
5722 (re-search-backward "[/\"]" nil t) ;; Only way a comment or quote can begin
5723 t))))
5724
5247(defun verilog-forward-syntactic-ws () 5725(defun verilog-forward-syntactic-ws ()
5248 (verilog-skip-forward-comment-p) 5726 (verilog-skip-forward-comment-p)
5249 (forward-comment (buffer-size))) 5727 (forward-comment (buffer-size)))
@@ -5339,9 +5817,17 @@ Optional BOUND limits search."
5339 5817
5340(defun verilog-in-attribute-p () 5818(defun verilog-in-attribute-p ()
5341 "Return true if point is in an attribute (* [] attribute *)." 5819 "Return true if point is in an attribute (* [] attribute *)."
5342 (save-excursion 5820 (save-match-data
5343 (verilog-re-search-backward "\\((\\*\\)\\|\\(\\*)\\)" nil 'move) 5821 (save-excursion
5344 (numberp (match-beginning 1)))) 5822 (verilog-re-search-backward "\\((\\*\\)\\|\\(\\*)\\)" nil 'move)
5823 (numberp (match-beginning 1)))))
5824
5825(defun verilog-in-parameter-p ()
5826 "Return true if point is in a parameter assignment #( p1=1, p2=5)."
5827 (save-match-data
5828 (save-excursion
5829 (verilog-re-search-backward "\\(#(\\)\\|\\()\\)" nil 'move)
5830 (numberp (match-beginning 1)))))
5345 5831
5346(defun verilog-in-escaped-name-p () 5832(defun verilog-in-escaped-name-p ()
5347 "Return true if in an escaped name." 5833 "Return true if in an escaped name."
@@ -5357,11 +5843,27 @@ Optional BOUND limits search."
5357 (beginning-of-line) 5843 (beginning-of-line)
5358 (looking-at verilog-directive-re-1))) 5844 (looking-at verilog-directive-re-1)))
5359 5845
5846(defun verilog-in-parenthesis-p ()
5847 "Return true if in a ( ) expression (but not { } or [ ])."
5848 (save-match-data
5849 (save-excursion
5850 (verilog-re-search-backward "\\((\\)\\|\\()\\)" nil 'move)
5851 (numberp (match-beginning 1)))))
5852
5360(defun verilog-in-paren () 5853(defun verilog-in-paren ()
5361 "Return true if in a parenthetical expression." 5854 "Return true if in a parenthetical expression.
5855May cache result using `verilog-syntax-ppss'."
5362 (let ((state (save-excursion (verilog-syntax-ppss)))) 5856 (let ((state (save-excursion (verilog-syntax-ppss))))
5363 (> (nth 0 state) 0 ))) 5857 (> (nth 0 state) 0 )))
5364 5858
5859(defun verilog-in-paren-quick ()
5860 "Return true if in a parenthetical expression.
5861Always starts from point-min, to allow inserts with hooks disabled."
5862 ;; The -quick refers to its use alongside the other -quick functions,
5863 ;; not that it's likely to be faster than verilog-in-paren.
5864 (let ((state (save-excursion (parse-partial-sexp (point-min) (point)))))
5865 (> (nth 0 state) 0 )))
5866
5365(defun verilog-in-struct-p () 5867(defun verilog-in-struct-p ()
5366 "Return true if in a struct declaration." 5868 "Return true if in a struct declaration."
5367 (interactive) 5869 (interactive)
@@ -5607,7 +6109,11 @@ Only look at a few lines to determine indent level."
5607 (goto-char fst) 6109 (goto-char fst)
5608 (+ (current-column) verilog-cexp-indent)))))) 6110 (+ (current-column) verilog-cexp-indent))))))
5609 (goto-char here) 6111 (goto-char here)
5610 (indent-line-to val))) 6112 (indent-line-to val)
6113 (if (and (not verilog-indent-lists)
6114 (verilog-in-paren))
6115 (verilog-pretty-declarations))
6116 ))
5611 ((= (preceding-char) ?\) ) 6117 ((= (preceding-char) ?\) )
5612 (goto-char here) 6118 (goto-char here)
5613 (let ((val (eval (cdr (assoc type verilog-indent-alist))))) 6119 (let ((val (eval (cdr (assoc type verilog-indent-alist)))))
@@ -5915,102 +6421,104 @@ Be verbose about progress unless optional QUIET set."
5915 (unless quiet (message ""))))))) 6421 (unless quiet (message "")))))))
5916 6422
5917(defun verilog-pretty-expr (&optional quiet myre) 6423(defun verilog-pretty-expr (&optional quiet myre)
5918 "Line up expressions around point, optionally QUIET with regexp MYRE." 6424 "Line up expressions around point, optionally QUIET with regexp MYRE ignored."
5919 (interactive "i\nsRegular Expression: ((<|:)?=) ") 6425 (interactive)
5920 (save-excursion 6426 (if (not (verilog-in-comment-or-string-p))
5921 (if (or (eq myre nil) 6427 (save-excursion
5922 (string-equal myre "")) 6428 (let ((rexp (concat "^\\s-*" verilog-complete-reg)))
5923 (setq myre "\\(<\\|:\\)?=")) 6429 (beginning-of-line)
5924 ;; want to match the first <= | := | = 6430 (if (and (not (looking-at rexp ))
5925 (setq myre (concat "\\(^.*?\\)\\(" myre "\\)")) 6431 (looking-at verilog-assignment-operation-re)
5926 (let ((rexp(concat "^\\s-*" verilog-complete-reg))) 6432 (save-excursion
5927 (beginning-of-line) 6433 (goto-char (match-end 2))
5928 (if (and (not (looking-at rexp )) 6434 (and (not (verilog-in-attribute-p))
5929 (looking-at myre) 6435 (not (verilog-in-parameter-p))
5930 (save-excursion 6436 (not (verilog-in-comment-or-string-p)))))
5931 (goto-char (match-beginning 2)) 6437 (let* ((here (point))
5932 (not (verilog-in-comment-or-string-p)))) 6438 (e) (r)
5933 (let* ((here (point)) 6439 (start
5934 (e) (r) 6440 (progn
5935 (start 6441 (beginning-of-line)
5936 (progn 6442 (setq e (point))
5937 (beginning-of-line) 6443 (verilog-backward-syntactic-ws)
5938 (setq e (point)) 6444 (beginning-of-line)
5939 (verilog-backward-syntactic-ws) 6445 (while (and (not (looking-at rexp ))
5940 (beginning-of-line) 6446 (looking-at verilog-assignment-operation-re)
5941 (while (and (not (looking-at rexp )) 6447 (not (bobp))
5942 (looking-at myre) 6448 )
5943 (not (bobp)) 6449 (setq e (point))
5944 ) 6450 (verilog-backward-syntactic-ws)
5945 (setq e (point)) 6451 (beginning-of-line)
5946 (verilog-backward-syntactic-ws) 6452 ) ;Ack, need to grok `define
5947 (beginning-of-line) 6453 e))
5948 ) ;Ack, need to grok `define 6454 (end
5949 e)) 6455 (progn
5950 (end 6456 (goto-char here)
5951 (progn 6457 (end-of-line)
5952 (goto-char here) 6458 (setq e (point)) ;Might be on last line
5953 (end-of-line) 6459 (verilog-forward-syntactic-ws)
5954 (setq e (point)) ;Might be on last line 6460 (beginning-of-line)
5955 (verilog-forward-syntactic-ws) 6461 (while (and
5956 (beginning-of-line) 6462 (not (looking-at rexp ))
5957 (while (and 6463 (looking-at verilog-assignment-operation-re)
5958 (not (looking-at rexp )) 6464 (progn
5959 (looking-at myre) 6465 (end-of-line)
5960 (progn 6466 (not (eq e (point)))))
5961 (end-of-line) 6467 (setq e (point))
5962 (not (eq e (point))))) 6468 (verilog-forward-syntactic-ws)
5963 (setq e (point)) 6469 (beginning-of-line)
5964 (verilog-forward-syntactic-ws) 6470 )
5965 (beginning-of-line) 6471 e))
5966 ) 6472 (endpos (set-marker (make-marker) end))
5967 e)) 6473 (ind)
5968 (endpos (set-marker (make-marker) end)) 6474 )
5969 (ind) 6475 (goto-char start)
5970 ) 6476 (verilog-do-indent (verilog-calculate-indent))
5971 (goto-char start) 6477 (if (and (not quiet)
5972 (verilog-do-indent (verilog-calculate-indent)) 6478 (> (- end start) 100))
5973 (if (and (not quiet) 6479 (message "Lining up expressions..(please stand by)"))
5974 (> (- end start) 100)) 6480
5975 (message "Lining up expressions..(please stand by)")) 6481 ;; Set indent to minimum throughout region
5976 6482 (while (< (point) (marker-position endpos))
5977 ;; Set indent to minimum throughout region 6483 (beginning-of-line)
5978 (while (< (point) (marker-position endpos)) 6484 (verilog-just-one-space verilog-assignment-operation-re)
5979 (beginning-of-line) 6485 (beginning-of-line)
5980 (verilog-just-one-space myre) 6486 (verilog-do-indent (verilog-calculate-indent))
5981 (end-of-line) 6487 (end-of-line)
5982 (verilog-forward-syntactic-ws) 6488 (verilog-forward-syntactic-ws)
5983 ) 6489 )
5984 6490
5985 ;; Now find biggest prefix 6491 ;; Now find biggest prefix
5986 (setq ind (verilog-get-lineup-indent-2 myre start endpos)) 6492 (setq ind (verilog-get-lineup-indent-2 verilog-assignment-operation-re start endpos))
5987 6493
5988 ;; Now indent each line. 6494 ;; Now indent each line.
5989 (goto-char start) 6495 (goto-char start)
5990 (while (progn (setq e (marker-position endpos)) 6496 (while (progn (setq e (marker-position endpos))
5991 (setq r (- e (point))) 6497 (setq r (- e (point)))
5992 (> r 0)) 6498 (> r 0))
5993 (setq e (point)) 6499 (setq e (point))
5994 (if (not quiet) (message "%d" r)) 6500 (if (not quiet) (message "%d" r))
5995 (cond 6501 (cond
5996 ((looking-at myre) 6502 ((looking-at verilog-assignment-operation-re)
5997 (goto-char (match-beginning 2)) 6503 (goto-char (match-beginning 2))
5998 (if (not (verilog-parenthesis-depth)) ;; ignore parenthesized exprs 6504 (if (not (or (verilog-in-parenthesis-p) ;; leave attributes and comparisons alone
5999 (if (eq (char-after) ?=) 6505 (verilog-in-coverage-p)))
6000 (indent-to (1+ ind)) ; line up the = of the <= with surrounding = 6506 (if (eq (char-after) ?=)
6001 (indent-to ind) 6507 (indent-to (1+ ind)) ; line up the = of the <= with surrounding =
6002 ))) 6508 (indent-to ind)
6003 ((verilog-continued-line-1 start) 6509 ))
6004 (goto-char e) 6510 )
6005 (indent-line-to ind)) 6511 ((verilog-continued-line-1 start)
6006 (t ; Must be comment or white space 6512 (goto-char e)
6007 (goto-char e) 6513 (indent-line-to ind))
6008 (verilog-forward-ws&directives) 6514 (t ; Must be comment or white space
6009 (forward-line -1)) 6515 (goto-char e)
6010 ) 6516 (verilog-forward-ws&directives)
6011 (forward-line 1)) 6517 (forward-line -1))
6012 (unless quiet (message "")) 6518 )
6013 ))))) 6519 (forward-line 1))
6520 (unless quiet (message ""))
6521 ))))))
6014 6522
6015(defun verilog-just-one-space (myre) 6523(defun verilog-just-one-space (myre)
6016 "Remove extra spaces around regular expression MYRE." 6524 "Remove extra spaces around regular expression MYRE."
@@ -6021,11 +6529,9 @@ Be verbose about progress unless optional QUIET set."
6021 (p2 (match-end 2))) 6529 (p2 (match-end 2)))
6022 (progn 6530 (progn
6023 (goto-char p2) 6531 (goto-char p2)
6024 (if (looking-at "\\s-") (just-one-space)) 6532 (just-one-space)
6025 (goto-char p1) 6533 (goto-char p1)
6026 (forward-char -1) 6534 (just-one-space)))))
6027 (if (looking-at "\\s-") (just-one-space))
6028 ))))
6029 6535
6030(defun verilog-indent-declaration (baseind) 6536(defun verilog-indent-declaration (baseind)
6031 "Indent current lines as declaration. 6537 "Indent current lines as declaration.
@@ -6128,7 +6634,7 @@ Region is defined by B and EDPOS."
6128 (while (progn (setq e (marker-position edpos)) 6634 (while (progn (setq e (marker-position edpos))
6129 (< (point) e)) 6635 (< (point) e))
6130 (if (and (verilog-re-search-forward myre e 'move) 6636 (if (and (verilog-re-search-forward myre e 'move)
6131 (not (verilog-parenthesis-depth))) ;; skip parenthesized exprs 6637 (not (verilog-in-attribute-p))) ;; skip attribute exprs
6132 (progn 6638 (progn
6133 (goto-char (match-beginning 2)) 6639 (goto-char (match-beginning 2))
6134 (verilog-backward-syntactic-ws) 6640 (verilog-backward-syntactic-ws)
@@ -6374,10 +6880,10 @@ for matches of `str' and adding the occurrence tp `all' through point END."
6374(defun verilog-keyword-completion (keyword-list) 6880(defun verilog-keyword-completion (keyword-list)
6375 "Give list of all possible completions of keywords in KEYWORD-LIST." 6881 "Give list of all possible completions of keywords in KEYWORD-LIST."
6376 (mapcar (lambda (s) 6882 (mapcar (lambda (s)
6377 (if (string-match (concat "\\<" verilog-str) s) 6883 (if (string-match (concat "\\<" verilog-str) s)
6378 (if (or (null verilog-pred) 6884 (if (or (null verilog-pred)
6379 (funcall verilog-pred s)) 6885 (funcall verilog-pred s))
6380 (setq verilog-all (cons s verilog-all))))) 6886 (setq verilog-all (cons s verilog-all)))))
6381 keyword-list)) 6887 keyword-list))
6382 6888
6383 6889
@@ -6883,16 +7389,18 @@ See also `verilog-sk-header' for an alternative format."
6883(defsubst verilog-sig-width (sig) 7389(defsubst verilog-sig-width (sig)
6884 (verilog-make-width-expression (verilog-sig-bits sig))) 7390 (verilog-make-width-expression (verilog-sig-bits sig)))
6885 7391
6886(defsubst verilog-alw-new (outputs temps inputs delayed) 7392(defsubst verilog-alw-new (outputs-del outputs-imm temps inputs)
6887 (list outputs temps inputs delayed)) 7393 (list outputs-del outputs-imm temps inputs))
6888(defsubst verilog-alw-get-outputs (sigs) 7394(defsubst verilog-alw-get-outputs-delayed (sigs)
6889 (nth 0 sigs)) 7395 (nth 0 sigs))
6890(defsubst verilog-alw-get-temps (sigs) 7396(defsubst verilog-alw-get-outputs-immediate (sigs)
6891 (nth 1 sigs)) 7397 (nth 1 sigs))
6892(defsubst verilog-alw-get-inputs (sigs) 7398(defsubst verilog-alw-get-temps (sigs)
6893 (nth 2 sigs)) 7399 (nth 2 sigs))
6894(defsubst verilog-alw-get-uses-delayed (sigs) 7400(defsubst verilog-alw-get-inputs (sigs)
6895 (nth 3 sigs)) 7401 (nth 3 sigs))
7402(defsubst verilog-alw-get-uses-delayed (sigs)
7403 (nth 0 sigs))
6896 7404
6897(defsubst verilog-modi-new (name fob pt type) 7405(defsubst verilog-modi-new (name fob pt type)
6898 (vector name fob pt type)) 7406 (vector name fob pt type))
@@ -6911,18 +7419,18 @@ See also `verilog-sk-header' for an alternative format."
6911 7419
6912;; Signal reading for given module 7420;; Signal reading for given module
6913;; Note these all take modi's - as returned from verilog-modi-current 7421;; Note these all take modi's - as returned from verilog-modi-current
6914(defsubst verilog-decls-new (out inout in wires regs assigns consts gparams interfaces) 7422(defsubst verilog-decls-new (out inout in vars unuseds assigns consts gparams interfaces)
6915 (vector out inout in wires regs assigns consts gparams interfaces)) 7423 (vector out inout in vars unuseds assigns consts gparams interfaces))
6916(defsubst verilog-decls-get-outputs (decls) 7424(defsubst verilog-decls-get-outputs (decls)
6917 (aref decls 0)) 7425 (aref decls 0))
6918(defsubst verilog-decls-get-inouts (decls) 7426(defsubst verilog-decls-get-inouts (decls)
6919 (aref decls 1)) 7427 (aref decls 1))
6920(defsubst verilog-decls-get-inputs (decls) 7428(defsubst verilog-decls-get-inputs (decls)
6921 (aref decls 2)) 7429 (aref decls 2))
6922(defsubst verilog-decls-get-wires (decls) 7430(defsubst verilog-decls-get-vars (decls)
6923 (aref decls 3)) 7431 (aref decls 3))
6924(defsubst verilog-decls-get-regs (decls) 7432;;(defsubst verilog-decls-get-unused (decls)
6925 (aref decls 4)) 7433;; (aref decls 4))
6926(defsubst verilog-decls-get-assigns (decls) 7434(defsubst verilog-decls-get-assigns (decls)
6927 (aref decls 5)) 7435 (aref decls 5))
6928(defsubst verilog-decls-get-consts (decls) 7436(defsubst verilog-decls-get-consts (decls)
@@ -7026,6 +7534,7 @@ Duplicate signals are also removed. For example A[2] and A[1] become A[2:1]."
7026 buswarn "")) 7534 buswarn ""))
7027 ;; Extract bus details 7535 ;; Extract bus details
7028 (setq bus (verilog-sig-bits sig)) 7536 (setq bus (verilog-sig-bits sig))
7537 (setq bus (and bus (verilog-simplify-range-expression bus)))
7029 (cond ((and bus 7538 (cond ((and bus
7030 (or (and (string-match "\\[\\([0-9]+\\):\\([0-9]+\\)\\]" bus) 7539 (or (and (string-match "\\[\\([0-9]+\\):\\([0-9]+\\)\\]" bus)
7031 (setq highbit (string-to-number (match-string 1 bus)) 7540 (setq highbit (string-to-number (match-string 1 bus))
@@ -7145,9 +7654,10 @@ Ignore width if optional NO-WIDTH is set."
7145 "Return module name when after its ( or ;." 7654 "Return module name when after its ( or ;."
7146 (save-excursion 7655 (save-excursion
7147 (re-search-backward "[(;]") 7656 (re-search-backward "[(;]")
7148 (verilog-re-search-backward-quick "\\b[a-zA-Z0-9`_\$]" nil nil) 7657 ;; Due to "module x import y (" we must search for declaration begin
7149 (skip-chars-backward "a-zA-Z0-9`_$") 7658 (verilog-re-search-backward-quick verilog-defun-re nil nil)
7150 (looking-at "[a-zA-Z0-9`_\$]+") 7659 (goto-char (match-end 0))
7660 (verilog-re-search-forward-quick "\\b[a-zA-Z0-9`_\$]+" nil nil)
7151 ;; Important: don't use match string, this must work with Emacs 19 font-lock on 7661 ;; Important: don't use match string, this must work with Emacs 19 font-lock on
7152 (verilog-symbol-detick 7662 (verilog-symbol-detick
7153 (buffer-substring-no-properties (match-beginning 0) (match-end 0)) t))) 7663 (buffer-substring-no-properties (match-beginning 0) (match-end 0)) t)))
@@ -7203,13 +7713,13 @@ Optional NUM-PARAM and MAX-PARAM check for a specific number of parameters."
7203Return a array of [outputs inouts inputs wire reg assign const]." 7713Return a array of [outputs inouts inputs wire reg assign const]."
7204 (let ((end-mod-point (or (verilog-get-end-of-defun t) (point-max))) 7714 (let ((end-mod-point (or (verilog-get-end-of-defun t) (point-max)))
7205 (functask 0) (paren 0) (sig-paren 0) (v2kargs-ok t) 7715 (functask 0) (paren 0) (sig-paren 0) (v2kargs-ok t)
7206 in-modport 7716 in-modport ign-prop
7207 sigs-in sigs-out sigs-inout sigs-wire sigs-reg sigs-assign sigs-const 7717 sigs-in sigs-out sigs-inout sigs-var sigs-assign sigs-const
7208 sigs-gparam sigs-intf 7718 sigs-gparam sigs-intf
7209 vec expect-signal keywd newsig rvalue enum io signed typedefed multidim 7719 vec expect-signal keywd newsig rvalue enum io signed typedefed multidim
7210 modport) 7720 modport)
7211 (save-excursion 7721 (save-excursion
7212 (verilog-beg-of-defun) 7722 (verilog-beg-of-defun-quick)
7213 (setq sigs-const (verilog-read-auto-constants (point) end-mod-point)) 7723 (setq sigs-const (verilog-read-auto-constants (point) end-mod-point))
7214 (while (< (point) end-mod-point) 7724 (while (< (point) end-mod-point)
7215 ;;(if dbg (setq dbg (concat dbg (format "Pt %s Vec %s C%c Kwd'%s'\n" (point) vec (following-char) keywd)))) 7725 ;;(if dbg (setq dbg (concat dbg (format "Pt %s Vec %s C%c Kwd'%s'\n" (point) vec (following-char) keywd))))
@@ -7225,16 +7735,16 @@ Return a array of [outputs inouts inputs wire reg assign const]."
7225 (or (search-forward "*/") 7735 (or (search-forward "*/")
7226 (error "%s: Unmatched /* */, at char %d" (verilog-point-text) (point)))) 7736 (error "%s: Unmatched /* */, at char %d" (verilog-point-text) (point))))
7227 ((looking-at "(\\*") 7737 ((looking-at "(\\*")
7228 (forward-char 2) 7738 ;; To advance past either "(*)" or "(* ... *)" don't forward past first *
7229 (or (looking-at "\\s-*)") ; It's an "always @ (*)" 7739 (forward-char 1)
7230 (search-forward "*)") 7740 (or (search-forward "*)")
7231 (error "%s: Unmatched (* *), at char %d" (verilog-point-text) (point)))) 7741 (error "%s: Unmatched (* *), at char %d" (verilog-point-text) (point))))
7232 ((eq ?\" (following-char)) 7742 ((eq ?\" (following-char))
7233 (or (re-search-forward "[^\\]\"" nil t) ;; don't forward-char first, since we look for a non backslash first 7743 (or (re-search-forward "[^\\]\"" nil t) ;; don't forward-char first, since we look for a non backslash first
7234 (error "%s: Unmatched quotes, at char %d" (verilog-point-text) (point)))) 7744 (error "%s: Unmatched quotes, at char %d" (verilog-point-text) (point))))
7235 ((eq ?\; (following-char)) 7745 ((eq ?\; (following-char))
7236 (setq vec nil io nil expect-signal nil newsig nil paren 0 rvalue nil 7746 (setq vec nil io nil expect-signal nil newsig nil paren 0 rvalue nil
7237 v2kargs-ok nil in-modport nil) 7747 v2kargs-ok nil in-modport nil ign-prop nil)
7238 (forward-char 1)) 7748 (forward-char 1))
7239 ((eq ?= (following-char)) 7749 ((eq ?= (following-char))
7240 (setq rvalue t newsig nil) 7750 (setq rvalue t newsig nil)
@@ -7290,16 +7800,15 @@ Return a array of [outputs inouts inputs wire reg assign const]."
7290 ((equal keywd "parameter") 7800 ((equal keywd "parameter")
7291 (setq vec nil enum nil rvalue nil signed nil typedefed nil multidim nil sig-paren paren 7801 (setq vec nil enum nil rvalue nil signed nil typedefed nil multidim nil sig-paren paren
7292 expect-signal 'sigs-gparam io t modport nil)) 7802 expect-signal 'sigs-gparam io t modport nil))
7293 ((member keywd '("wire" "tri" "tri0" "tri1" "triand" "trior" "wand" "wor")) 7803 ((member keywd '("wire"
7294 (unless io (setq vec nil enum nil rvalue nil signed nil typedefed nil multidim nil sig-paren paren 7804 "tri" "tri0" "tri1" "triand" "trior" "wand" "wor"
7295 expect-signal 'sigs-wire modport nil))) 7805 "reg" "trireg"
7296 ((member keywd '("reg" "trireg"
7297 "byte" "shortint" "int" "longint" "integer" "time" 7806 "byte" "shortint" "int" "longint" "integer" "time"
7298 "bit" "logic" 7807 "bit" "logic"
7299 "shortreal" "real" "realtime" 7808 "shortreal" "real" "realtime"
7300 "string" "event" "chandle")) 7809 "string" "event" "chandle"))
7301 (unless io (setq vec nil enum nil rvalue nil signed nil typedefed nil multidim nil sig-paren paren 7810 (unless io (setq vec nil enum nil rvalue nil signed nil typedefed nil multidim nil sig-paren paren
7302 expect-signal 'sigs-reg modport nil))) 7811 expect-signal 'sigs-var modport nil)))
7303 ((equal keywd "assign") 7812 ((equal keywd "assign")
7304 (setq vec nil enum nil rvalue nil signed nil typedefed nil multidim nil sig-paren paren 7813 (setq vec nil enum nil rvalue nil signed nil typedefed nil multidim nil sig-paren paren
7305 expect-signal 'sigs-assign modport nil)) 7814 expect-signal 'sigs-assign modport nil))
@@ -7307,11 +7816,14 @@ Return a array of [outputs inouts inputs wire reg assign const]."
7307 "localparam" "genvar")) 7816 "localparam" "genvar"))
7308 (unless io (setq vec nil enum nil rvalue nil signed nil typedefed nil multidim nil sig-paren paren 7817 (unless io (setq vec nil enum nil rvalue nil signed nil typedefed nil multidim nil sig-paren paren
7309 expect-signal 'sigs-const modport nil))) 7818 expect-signal 'sigs-const modport nil)))
7310 ((equal keywd "signed") 7819 ((member keywd '("signed" "unsigned"))
7311 (setq signed "signed")) 7820 (setq signed keywd))
7821 ((member keywd '("assert" "assume" "cover" "expect" "restrict"))
7822 (setq ign-prop t))
7312 ((member keywd '("class" "clocking" "covergroup" "function" 7823 ((member keywd '("class" "clocking" "covergroup" "function"
7313 "property" "randsequence" "sequence" "task")) 7824 "property" "randsequence" "sequence" "task"))
7314 (setq functask (1+ functask))) 7825 (unless ign-prop
7826 (setq functask (1+ functask))))
7315 ((member keywd '("endclass" "endclocking" "endgroup" "endfunction" 7827 ((member keywd '("endclass" "endclocking" "endgroup" "endfunction"
7316 "endproperty" "endsequence" "endtask")) 7828 "endproperty" "endsequence" "endtask"))
7317 (setq functask (1- functask))) 7829 (setq functask (1- functask)))
@@ -7354,8 +7866,8 @@ Return a array of [outputs inouts inputs wire reg assign const]."
7354 (verilog-decls-new (nreverse sigs-out) 7866 (verilog-decls-new (nreverse sigs-out)
7355 (nreverse sigs-inout) 7867 (nreverse sigs-inout)
7356 (nreverse sigs-in) 7868 (nreverse sigs-in)
7357 (nreverse sigs-wire) 7869 (nreverse sigs-var)
7358 (nreverse sigs-reg) 7870 nil
7359 (nreverse sigs-assign) 7871 (nreverse sigs-assign)
7360 (nreverse sigs-const) 7872 (nreverse sigs-const)
7361 (nreverse sigs-gparam) 7873 (nreverse sigs-gparam)
@@ -7442,8 +7954,7 @@ Return a array of [outputs inouts inputs wire reg assign const]."
7442 multidim nil) 7954 multidim nil)
7443 sigs-intf))) 7955 sigs-intf)))
7444 ((setq portdata (and verilog-read-sub-decls-in-interfaced 7956 ((setq portdata (and verilog-read-sub-decls-in-interfaced
7445 (or (assoc port (verilog-decls-get-regs submoddecls)) 7957 (assoc port (verilog-decls-get-vars submoddecls))))
7446 (assoc port (verilog-decls-get-wires submoddecls)))))
7447 (setq sigs-intfd 7958 (setq sigs-intfd
7448 (cons (verilog-sig-new 7959 (cons (verilog-sig-new
7449 sig 7960 sig
@@ -7556,7 +8067,8 @@ Inserts the list of signals found, using submodi to look up each port."
7556 submoddecls comment port 8067 submoddecls comment port
7557 (buffer-substring 8068 (buffer-substring
7558 (point) (1- (progn (search-backward "(") ; start at ( 8069 (point) (1- (progn (search-backward "(") ; start at (
7559 (forward-sexp 1) (point)))))))) ; expr 8070 (verilog-forward-sexp-ign-cmt 1)
8071 (point)))))))) ; expr
7560 ;; 8072 ;;
7561 (forward-line 1))))) 8073 (forward-line 1)))))
7562 8074
@@ -7573,8 +8085,9 @@ Inserts the list of signals found."
7573 (or (search-forward "*/") 8085 (or (search-forward "*/")
7574 (error "%s: Unmatched /* */, at char %d" (verilog-point-text) (point)))) 8086 (error "%s: Unmatched /* */, at char %d" (verilog-point-text) (point))))
7575 ((looking-at "(\\*") 8087 ((looking-at "(\\*")
7576 (or (looking-at "(\\*\\s-*)") ; It's a "always @ (*)" 8088 ;; To advance past either "(*)" or "(* ... *)" don't forward past first *
7577 (search-forward "*)") 8089 (forward-char 1)
8090 (or (search-forward "*)")
7578 (error "%s: Unmatched (* *), at char %d" (verilog-point-text) (point)))) 8091 (error "%s: Unmatched (* *), at char %d" (verilog-point-text) (point))))
7579 ;; On pins, parse and advance to next pin 8092 ;; On pins, parse and advance to next pin
7580 ;; Looking at pin, but *not* an // Output comment, or ) to end the inst 8093 ;; Looking at pin, but *not* an // Output comment, or ) to end the inst
@@ -7612,11 +8125,11 @@ Outputs comments above subcell signals, for example:
7612 st-point end-inst-point 8125 st-point end-inst-point
7613 ;; below 3 modified by verilog-read-sub-decls-line 8126 ;; below 3 modified by verilog-read-sub-decls-line
7614 sigs-out sigs-inout sigs-in sigs-intf sigs-intfd) 8127 sigs-out sigs-inout sigs-in sigs-intf sigs-intfd)
7615 (verilog-beg-of-defun) 8128 (verilog-beg-of-defun-quick)
7616 (while (verilog-re-search-forward "\\(/\\*AUTOINST\\*/\\|\\.\\*\\)" end-mod-point t) 8129 (while (verilog-re-search-forward-quick "\\(/\\*AUTOINST\\*/\\|\\.\\*\\)" end-mod-point t)
7617 (save-excursion 8130 (save-excursion
7618 (goto-char (match-beginning 0)) 8131 (goto-char (match-beginning 0))
7619 (unless (verilog-inside-comment-p) 8132 (unless (verilog-inside-comment-or-string-p)
7620 ;; Attempt to snarf a comment 8133 ;; Attempt to snarf a comment
7621 (let* ((submod (verilog-read-inst-module)) 8134 (let* ((submod (verilog-read-inst-module))
7622 (inst (verilog-read-inst-name)) 8135 (inst (verilog-read-inst-name))
@@ -7629,7 +8142,8 @@ Outputs comments above subcell signals, for example:
7629 submoddecls (verilog-decls-new nil nil nil nil nil nil nil nil nil) 8142 submoddecls (verilog-decls-new nil nil nil nil nil nil nil nil nil)
7630 comment (concat inst " of " submod)) 8143 comment (concat inst " of " submod))
7631 (verilog-backward-open-paren) 8144 (verilog-backward-open-paren)
7632 (setq end-inst-point (save-excursion (forward-sexp 1) (point)) 8145 (setq end-inst-point (save-excursion (verilog-forward-sexp-ign-cmt 1)
8146 (point))
7633 st-point (point)) 8147 st-point (point))
7634 (forward-char 1) 8148 (forward-char 1)
7635 (verilog-read-sub-decls-gate submoddecls comment submod end-inst-point)) 8149 (verilog-read-sub-decls-gate submoddecls comment submod end-inst-point))
@@ -7639,7 +8153,8 @@ Outputs comments above subcell signals, for example:
7639 (setq submoddecls (verilog-modi-get-decls submodi) 8153 (setq submoddecls (verilog-modi-get-decls submodi)
7640 verilog-read-sub-decls-gate-ios nil) 8154 verilog-read-sub-decls-gate-ios nil)
7641 (verilog-backward-open-paren) 8155 (verilog-backward-open-paren)
7642 (setq end-inst-point (save-excursion (forward-sexp 1) (point)) 8156 (setq end-inst-point (save-excursion (verilog-forward-sexp-ign-cmt 1)
8157 (point))
7643 st-point (point)) 8158 st-point (point))
7644 ;; This could have used a list created by verilog-auto-inst 8159 ;; This could have used a list created by verilog-auto-inst
7645 ;; However I want it to be runnable even on user's manually added signals 8160 ;; However I want it to be runnable even on user's manually added signals
@@ -7677,10 +8192,10 @@ For example if declare A A (.B(SIG)) then B will be included in the list."
7677 (verilog-backward-open-paren) 8192 (verilog-backward-open-paren)
7678 (while (re-search-forward "\\.\\([^(,) \t\n\f]*\\)\\s-*" end-mod-point t) 8193 (while (re-search-forward "\\.\\([^(,) \t\n\f]*\\)\\s-*" end-mod-point t)
7679 (setq pin (match-string 1)) 8194 (setq pin (match-string 1))
7680 (unless (verilog-inside-comment-p) 8195 (unless (verilog-inside-comment-or-string-p)
7681 (setq pins (cons (list pin) pins)) 8196 (setq pins (cons (list pin) pins))
7682 (when (looking-at "(") 8197 (when (looking-at "(")
7683 (forward-sexp 1)))) 8198 (verilog-forward-sexp-ign-cmt 1))))
7684 (vector pins)))) 8199 (vector pins))))
7685 8200
7686(defun verilog-read-arg-pins () 8201(defun verilog-read-arg-pins ()
@@ -7691,7 +8206,7 @@ For example if declare A A (.B(SIG)) then B will be included in the list."
7691 (verilog-backward-open-paren) 8206 (verilog-backward-open-paren)
7692 (while (re-search-forward "\\([a-zA-Z0-9$_.%`]+\\)" end-mod-point t) 8207 (while (re-search-forward "\\([a-zA-Z0-9$_.%`]+\\)" end-mod-point t)
7693 (setq pin (match-string 1)) 8208 (setq pin (match-string 1))
7694 (unless (verilog-inside-comment-p) 8209 (unless (verilog-inside-comment-or-string-p)
7695 (setq pins (cons (list pin) pins)))) 8210 (setq pins (cons (list pin) pins))))
7696 (vector pins)))) 8211 (vector pins))))
7697 8212
@@ -7707,7 +8222,7 @@ For example if declare A A (.B(SIG)) then B will be included in the list."
7707 (search-forward "(" end-mod-point) 8222 (search-forward "(" end-mod-point)
7708 (setq tpl-end-pt (save-excursion 8223 (setq tpl-end-pt (save-excursion
7709 (backward-char 1) 8224 (backward-char 1)
7710 (forward-sexp 1) ;; Moves to paren that closes argdecl's 8225 (verilog-forward-sexp-cmt 1) ;; Moves to paren that closes argdecl's
7711 (backward-char 1) 8226 (backward-char 1)
7712 (point))) 8227 (point)))
7713 (while (re-search-forward "\\s-*\\([\"a-zA-Z0-9$_.%`]+\\)\\s-*,*" tpl-end-pt t) 8228 (while (re-search-forward "\\s-*\\([\"a-zA-Z0-9$_.%`]+\\)\\s-*,*" tpl-end-pt t)
@@ -7720,6 +8235,7 @@ For example if declare A A (.B(SIG)) then B will be included in the list."
7720(defun verilog-read-auto-lisp-present () 8235(defun verilog-read-auto-lisp-present ()
7721 "Set `verilog-cache-has-lisp' if any AUTO_LISP in this buffer." 8236 "Set `verilog-cache-has-lisp' if any AUTO_LISP in this buffer."
7722 (save-excursion 8237 (save-excursion
8238 (goto-char (point-min))
7723 (setq verilog-cache-has-lisp (re-search-forward "\\<AUTO_LISP(" nil t)))) 8239 (setq verilog-cache-has-lisp (re-search-forward "\\<AUTO_LISP(" nil t))))
7724 8240
7725(defun verilog-read-auto-lisp (start end) 8241(defun verilog-read-auto-lisp (start end)
@@ -7732,7 +8248,7 @@ Must call `verilog-read-auto-lisp-present' before this function."
7732 (while (re-search-forward "\\<AUTO_LISP(" end t) 8248 (while (re-search-forward "\\<AUTO_LISP(" end t)
7733 (backward-char) 8249 (backward-char)
7734 (let* ((beg-pt (prog1 (point) 8250 (let* ((beg-pt (prog1 (point)
7735 (forward-sexp 1))) ;; Closing paren 8251 (verilog-forward-sexp-cmt 1))) ;; Closing paren
7736 (end-pt (point))) 8252 (end-pt (point)))
7737 (eval-region beg-pt end-pt nil)))))) 8253 (eval-region beg-pt end-pt nil))))))
7738 8254
@@ -7741,9 +8257,10 @@ Must call `verilog-read-auto-lisp-present' before this function."
7741 ;; Do not remove the eval-when-compile 8257 ;; Do not remove the eval-when-compile
7742 ;; - we want a error when we are debugging this code if they are refed. 8258 ;; - we want a error when we are debugging this code if they are refed.
7743 (defvar sigs-in) 8259 (defvar sigs-in)
7744 (defvar sigs-out) 8260 (defvar sigs-out-d)
8261 (defvar sigs-out-i)
8262 (defvar sigs-out-unk)
7745 (defvar sigs-temp) 8263 (defvar sigs-temp)
7746 (defvar uses-delayed)
7747 (defvar vector-skip-list)) 8264 (defvar vector-skip-list))
7748 8265
7749(defun verilog-read-always-signals-recurse 8266(defun verilog-read-always-signals-recurse
@@ -7764,8 +8281,9 @@ IGNORE-NEXT is true to ignore next token, fake from inside case statement."
7764 (or (search-forward "*/") 8281 (or (search-forward "*/")
7765 (error "%s: Unmatched /* */, at char %d" (verilog-point-text) (point)))) 8282 (error "%s: Unmatched /* */, at char %d" (verilog-point-text) (point))))
7766 ((looking-at "(\\*") 8283 ((looking-at "(\\*")
7767 (or (looking-at "(\\*\\s-*)") ; It's a "always @ (*)" 8284 ;; To advance past either "(*)" or "(* ... *)" don't forward past first *
7768 (search-forward "*)") 8285 (forward-char 1)
8286 (or (search-forward "*)")
7769 (error "%s: Unmatched (* *), at char %d" (verilog-point-text) (point)))) 8287 (error "%s: Unmatched (* *), at char %d" (verilog-point-text) (point))))
7770 (t (setq keywd (buffer-substring-no-properties 8288 (t (setq keywd (buffer-substring-no-properties
7771 (point) 8289 (point)
@@ -7817,9 +8335,16 @@ IGNORE-NEXT is true to ignore next token, fake from inside case statement."
7817 (setq ignore-next t rvalue nil))) 8335 (setq ignore-next t rvalue nil)))
7818 (forward-char 1)) 8336 (forward-char 1))
7819 ((equal keywd "=") 8337 ((equal keywd "=")
7820 (if (and (eq (char-before) ?< ) 8338 (when got-sig
7821 (not rvalue)) 8339 ;;(if dbg (setq dbg (concat dbg (format "\t\tequal got-sig=%S got-list=%s\n" got-sig got-list))))
7822 (setq uses-delayed 1)) 8340 (set got-list (cons got-sig (symbol-value got-list)))
8341 (setq got-sig nil))
8342 (when (not rvalue)
8343 (if (eq (char-before) ?< )
8344 (setq sigs-out-d (append sigs-out-d sigs-out-unk)
8345 sigs-out-unk nil)
8346 (setq sigs-out-i (append sigs-out-i sigs-out-unk)
8347 sigs-out-unk nil)))
7823 (setq ignore-next nil rvalue t) 8348 (setq ignore-next nil rvalue t)
7824 (forward-char 1)) 8349 (forward-char 1))
7825 ((equal keywd "?") 8350 ((equal keywd "?")
@@ -7865,7 +8390,7 @@ IGNORE-NEXT is true to ignore next token, fake from inside case statement."
7865 ) 8390 )
7866 (setq got-list (cond (temp-next 'sigs-temp) 8391 (setq got-list (cond (temp-next 'sigs-temp)
7867 (rvalue 'sigs-in) 8392 (rvalue 'sigs-in)
7868 (t 'sigs-out)) 8393 (t 'sigs-out-unk))
7869 got-sig (if (or (not keywd) 8394 got-sig (if (or (not keywd)
7870 (assoc keywd (symbol-value got-list))) 8395 (assoc keywd (symbol-value got-list)))
7871 nil (list keywd nil nil)) 8396 nil (list keywd nil nil))
@@ -7889,17 +8414,18 @@ IGNORE-NEXT is true to ignore next token, fake from inside case statement."
7889 "Parse always block at point and return list of (outputs inout inputs)." 8414 "Parse always block at point and return list of (outputs inout inputs)."
7890 (save-excursion 8415 (save-excursion
7891 (let* (;;(dbg "") 8416 (let* (;;(dbg "")
7892 sigs-out sigs-temp sigs-in 8417 sigs-out-d sigs-out-i sigs-out-unk sigs-temp sigs-in)
7893 uses-delayed) ;; Found signal/rvalue; push if not function
7894 (search-forward ")") 8418 (search-forward ")")
7895 (verilog-read-always-signals-recurse nil nil nil) 8419 (verilog-read-always-signals-recurse nil nil nil)
8420 (setq sigs-out-i (append sigs-out-i sigs-out-unk)
8421 sigs-out-unk nil)
7896 ;;(if dbg (with-current-buffer (get-buffer-create "*vl-dbg*")) (delete-region (point-min) (point-max)) (insert dbg) (setq dbg "")) 8422 ;;(if dbg (with-current-buffer (get-buffer-create "*vl-dbg*")) (delete-region (point-min) (point-max)) (insert dbg) (setq dbg ""))
7897 ;; Return what was found 8423 ;; Return what was found
7898 (verilog-alw-new sigs-out sigs-temp sigs-in uses-delayed)))) 8424 (verilog-alw-new sigs-out-d sigs-out-i sigs-temp sigs-in))))
7899 8425
7900(defun verilog-read-instants () 8426(defun verilog-read-instants ()
7901 "Parse module at point and return list of ( ( file instance ) ... )." 8427 "Parse module at point and return list of ( ( file instance ) ... )."
7902 (verilog-beg-of-defun) 8428 (verilog-beg-of-defun-quick)
7903 (let* ((end-mod-point (verilog-get-end-of-defun t)) 8429 (let* ((end-mod-point (verilog-get-end-of-defun t))
7904 (state nil) 8430 (state nil)
7905 (instants-list nil)) 8431 (instants-list nil))
@@ -7930,7 +8456,7 @@ list of ( (signal_name connection_name)... )."
7930 (save-excursion 8456 (save-excursion
7931 ;; Find beginning 8457 ;; Find beginning
7932 (let ((tpl-regexp "\\([0-9]+\\)") 8458 (let ((tpl-regexp "\\([0-9]+\\)")
7933 (lineno 0) 8459 (lineno -1) ; -1 to offset for the AUTO_TEMPLATE's newline
7934 (templateno 0) 8460 (templateno 0)
7935 (pt (point)) 8461 (pt (point))
7936 tpl-sig-list tpl-wild-list tpl-end-pt rep) 8462 tpl-sig-list tpl-wild-list tpl-end-pt rep)
@@ -7962,22 +8488,27 @@ list of ( (signal_name connection_name)... )."
7962 ;; Parse lines in the template 8488 ;; Parse lines in the template
7963 (when verilog-auto-inst-template-numbers 8489 (when verilog-auto-inst-template-numbers
7964 (save-excursion 8490 (save-excursion
7965 (goto-char (point-min)) 8491 (let ((pre-pt (point)))
7966 (while (search-forward "AUTO_TEMPLATE" nil t) 8492 (goto-char (point-min))
7967 (setq templateno (1+ templateno))))) 8493 (while (search-forward "AUTO_TEMPLATE" pre-pt t)
8494 (setq templateno (1+ templateno)))
8495 (while (< (point) pre-pt)
8496 (forward-line 1)
8497 (setq lineno (1+ lineno))))))
7968 (setq tpl-end-pt (save-excursion 8498 (setq tpl-end-pt (save-excursion
7969 (backward-char 1) 8499 (backward-char 1)
7970 (forward-sexp 1) ;; Moves to paren that closes argdecl's 8500 (verilog-forward-sexp-cmt 1) ;; Moves to paren that closes argdecl's
7971 (backward-char 1) 8501 (backward-char 1)
7972 (point))) 8502 (point)))
7973 ;; 8503 ;;
7974 (while (< (point) tpl-end-pt) 8504 (while (< (point) tpl-end-pt)
7975 (cond ((looking-at "\\s-*\\.\\([a-zA-Z0-9`_$]+\\)\\s-*(\\(.*\\))\\s-*\\(,\\|)\\s-*;\\)") 8505 (cond ((looking-at "\\s-*\\.\\([a-zA-Z0-9`_$]+\\)\\s-*(\\(.*\\))\\s-*\\(,\\|)\\s-*;\\)")
7976 (setq tpl-sig-list (cons (list 8506 (setq tpl-sig-list
7977 (match-string-no-properties 1) 8507 (cons (list
7978 (match-string-no-properties 2) 8508 (match-string-no-properties 1)
7979 templateno lineno) 8509 (match-string-no-properties 2)
7980 tpl-sig-list)) 8510 templateno lineno)
8511 tpl-sig-list))
7981 (goto-char (match-end 0))) 8512 (goto-char (match-end 0)))
7982 ;; Regexp form?? 8513 ;; Regexp form??
7983 ((looking-at 8514 ((looking-at
@@ -8000,7 +8531,8 @@ list of ( (signal_name connection_name)... )."
8000 (setq lineno (1+ lineno)) 8531 (setq lineno (1+ lineno))
8001 (goto-char (match-end 0))) 8532 (goto-char (match-end 0)))
8002 ((looking-at "//") 8533 ((looking-at "//")
8003 (search-forward "\n")) 8534 (search-forward "\n")
8535 (setq lineno (1+ lineno)))
8004 ((looking-at "/\\*") 8536 ((looking-at "/\\*")
8005 (forward-char 2) 8537 (forward-char 2)
8006 (or (search-forward "*/") 8538 (or (search-forward "*/")
@@ -8086,7 +8618,7 @@ warning message, you need to add to your .emacs file:
8086 (while (re-search-forward "^\\s-*`include\\s-+\\([^ \t\n\f]+\\)" nil t) 8618 (while (re-search-forward "^\\s-*`include\\s-+\\([^ \t\n\f]+\\)" nil t)
8087 (let ((inc (verilog-string-replace-matches 8619 (let ((inc (verilog-string-replace-matches
8088 "\"" "" nil nil (match-string-no-properties 1)))) 8620 "\"" "" nil nil (match-string-no-properties 1))))
8089 (unless (verilog-inside-comment-p) 8621 (unless (verilog-inside-comment-or-string-p)
8090 (verilog-read-defines inc recurse t))))) 8622 (verilog-read-defines inc recurse t)))))
8091 ;; Read `defines 8623 ;; Read `defines
8092 ;; note we don't use verilog-re... it's faster this way, and that 8624 ;; note we don't use verilog-re... it's faster this way, and that
@@ -8100,14 +8632,15 @@ warning message, you need to add to your .emacs file:
8100 ;; Hack: Read parameters 8632 ;; Hack: Read parameters
8101 (goto-char (point-min)) 8633 (goto-char (point-min))
8102 (while (re-search-forward 8634 (while (re-search-forward
8103 "^\\s-*\\(parameter\\|localparam\\)\\(\\s-*\\[[^]]*\\]\\)?\\s-+" nil t) 8635 "^\\s-*\\(parameter\\|localparam\\)\\(\\s-*\\[[^]]*\\]\\)?\\s-*" nil t)
8104 (let (enumname) 8636 (let (enumname)
8105 ;; The primary way of getting defines is verilog-read-decls 8637 ;; The primary way of getting defines is verilog-read-decls
8106 ;; However, that isn't called yet for included files, so we'll add another scheme 8638 ;; However, that isn't called yet for included files, so we'll add another scheme
8107 (if (looking-at "[^\n]*synopsys\\s +enum\\s +\\([a-zA-Z0-9_]+\\)") 8639 (if (looking-at "[^\n]*synopsys\\s +enum\\s +\\([a-zA-Z0-9_]+\\)")
8108 (setq enumname (match-string-no-properties 1))) 8640 (setq enumname (match-string-no-properties 1)))
8109 (forward-comment 999) 8641 (forward-comment 999)
8110 (while (looking-at "\\s-*,?\\s-*\\([a-zA-Z0-9_$]+\\)\\s-*=\\s-*\\([^;,]*\\),?\\s-*") 8642 (while (looking-at (concat "\\s-*,?\\s-*\\(?:/[/*].*?$\\)?\\s-*\\([a-zA-Z0-9_$]+\\)"
8643 "\\s-*=\\s-*\\([^;,]*\\),?\\s-*\\(/[/*].*?$\\)?\\s-*"))
8111 (verilog-set-define (match-string-no-properties 1) 8644 (verilog-set-define (match-string-no-properties 1)
8112 (match-string-no-properties 2) origbuf enumname) 8645 (match-string-no-properties 2) origbuf enumname)
8113 (goto-char (match-end 0)) 8646 (goto-char (match-end 0))
@@ -8278,11 +8811,11 @@ Some macros and such are also found and included. For dinotrace.el."
8278 verilog-library-files 8811 verilog-library-files
8279 verilog-library-flags))) 8812 verilog-library-flags)))
8280 ;; Allow user to customize 8813 ;; Allow user to customize
8281 (run-hooks 'verilog-before-getopt-flags-hook) 8814 (verilog-run-hooks 'verilog-before-getopt-flags-hook)
8282 ;; Process arguments 8815 ;; Process arguments
8283 (verilog-getopt verilog-library-flags) 8816 (verilog-getopt verilog-library-flags)
8284 ;; Allow user to customize 8817 ;; Allow user to customize
8285 (run-hooks 'verilog-getopt-flags-hook)) 8818 (verilog-run-hooks 'verilog-getopt-flags-hook))
8286 8819
8287(defun verilog-add-list-unique (varref object) 8820(defun verilog-add-list-unique (varref object)
8288 "Append to VARREF list the given OBJECT, 8821 "Append to VARREF list the given OBJECT,
@@ -8387,7 +8920,7 @@ Allows version control to check out the file if need be."
8387 (while (and 8920 (while (and
8388 ;; It may be tempting to look for verilog-defun-re, 8921 ;; It may be tempting to look for verilog-defun-re,
8389 ;; don't, it slows things down a lot! 8922 ;; don't, it slows things down a lot!
8390 (verilog-re-search-forward-quick "\\<\\(module\\|interface\\)\\>" nil t) 8923 (verilog-re-search-forward-quick "\\<\\(module\\|interface\\|program\\)\\>" nil t)
8391 (setq type (match-string-no-properties 0)) 8924 (setq type (match-string-no-properties 0))
8392 (verilog-re-search-forward-quick "[(;]" nil t)) 8925 (verilog-re-search-forward-quick "[(;]" nil t))
8393 (if (equal module (verilog-read-module-name)) 8926 (if (equal module (verilog-read-module-name))
@@ -8804,13 +9337,12 @@ if non-nil."
8804 9337
8805;; Combined 9338;; Combined
8806(defun verilog-decls-get-signals (decls) 9339(defun verilog-decls-get-signals (decls)
9340 "Return all declared signals, excluding 'assign' statements."
8807 (append 9341 (append
8808 (verilog-decls-get-outputs decls) 9342 (verilog-decls-get-outputs decls)
8809 (verilog-decls-get-inouts decls) 9343 (verilog-decls-get-inouts decls)
8810 (verilog-decls-get-inputs decls) 9344 (verilog-decls-get-inputs decls)
8811 (verilog-decls-get-wires decls) 9345 (verilog-decls-get-vars decls)
8812 (verilog-decls-get-regs decls)
8813 (verilog-decls-get-assigns decls)
8814 (verilog-decls-get-consts decls) 9346 (verilog-decls-get-consts decls)
8815 (verilog-decls-get-gparams decls))) 9347 (verilog-decls-get-gparams decls)))
8816 9348
@@ -8826,10 +9358,8 @@ if non-nil."
8826 (verilog-modi-cache-add modi 'verilog-read-decls 1 sig-list)) 9358 (verilog-modi-cache-add modi 'verilog-read-decls 1 sig-list))
8827(defsubst verilog-modi-cache-add-inputs (modi sig-list) 9359(defsubst verilog-modi-cache-add-inputs (modi sig-list)
8828 (verilog-modi-cache-add modi 'verilog-read-decls 2 sig-list)) 9360 (verilog-modi-cache-add modi 'verilog-read-decls 2 sig-list))
8829(defsubst verilog-modi-cache-add-wires (modi sig-list) 9361(defsubst verilog-modi-cache-add-vars (modi sig-list)
8830 (verilog-modi-cache-add modi 'verilog-read-decls 3 sig-list)) 9362 (verilog-modi-cache-add modi 'verilog-read-decls 3 sig-list))
8831(defsubst verilog-modi-cache-add-regs (modi sig-list)
8832 (verilog-modi-cache-add modi 'verilog-read-decls 4 sig-list))
8833 9363
8834(defun verilog-signals-from-signame (signame-list) 9364(defun verilog-signals-from-signame (signame-list)
8835 "Return signals in standard form from SIGNAME-LIST, a simple list of signal names." 9365 "Return signals in standard form from SIGNAME-LIST, a simple list of signal names."
@@ -8843,7 +9373,7 @@ if non-nil."
8843(defun verilog-auto-re-search-do (search-for func) 9373(defun verilog-auto-re-search-do (search-for func)
8844 "Search for the given auto text regexp SEARCH-FOR, and perform FUNC where it occurs." 9374 "Search for the given auto text regexp SEARCH-FOR, and perform FUNC where it occurs."
8845 (goto-char (point-min)) 9375 (goto-char (point-min))
8846 (while (verilog-re-search-forward search-for nil t) 9376 (while (verilog-re-search-forward-quick search-for nil t)
8847 (funcall func))) 9377 (funcall func)))
8848 9378
8849(defun verilog-insert-one-definition (sig type indent-pt) 9379(defun verilog-insert-one-definition (sig type indent-pt)
@@ -8867,10 +9397,31 @@ with appropriate INDENT-PT indentation."
8867 (when (verilog-sig-memory sig) 9397 (when (verilog-sig-memory sig)
8868 (insert " " (verilog-sig-memory sig)))) 9398 (insert " " (verilog-sig-memory sig))))
8869 9399
8870(defun verilog-insert-definition (sigs direction indent-pt v2k &optional dont-sort) 9400(defun verilog-insert-definition (modi sigs direction indent-pt v2k &optional dont-sort)
8871 "Print out a definition for a list of SIGS of the given DIRECTION, 9401 "Print out a definition for MODI's list of SIGS of the given DIRECTION,
8872with appropriate INDENT-PT indentation. If V2K, use Verilog 2001 I/O 9402with appropriate INDENT-PT indentation. If V2K, use Verilog 2001 I/O
8873format. Sort unless DONT-SORT. DIRECTION is normally wire/reg/output." 9403format. Sort unless DONT-SORT. DIRECTION is normally wire/reg/output.
9404When MODI is non-null, also add to modi-cache, for tracking."
9405 (when modi
9406 (cond ((equal direction "wire")
9407 (verilog-modi-cache-add-vars modi sigs))
9408 ((equal direction "reg")
9409 (verilog-modi-cache-add-vars modi sigs))
9410 ((equal direction "output")
9411 (verilog-modi-cache-add-outputs modi sigs)
9412 (when verilog-auto-declare-nettype
9413 (verilog-modi-cache-add-vars modi sigs)))
9414 ((equal direction "input")
9415 (verilog-modi-cache-add-inputs modi sigs)
9416 (when verilog-auto-declare-nettype
9417 (verilog-modi-cache-add-vars modi sigs)))
9418 ((equal direction "inout")
9419 (verilog-modi-cache-add-inouts modi sigs)
9420 (when verilog-auto-declare-nettype
9421 (verilog-modi-cache-add-vars modi sigs)))
9422 ((equal direction "interface"))
9423 (t
9424 (error "Unsupported verilog-insert-definition direction: %s" direction))))
8874 (or dont-sort 9425 (or dont-sort
8875 (setq sigs (sort (copy-alist sigs) `verilog-signals-sort-compare))) 9426 (setq sigs (sort (copy-alist sigs) `verilog-signals-sort-compare)))
8876 (while sigs 9427 (while sigs
@@ -8878,12 +9429,18 @@ format. Sort unless DONT-SORT. DIRECTION is normally wire/reg/output."
8878 (verilog-insert-one-definition 9429 (verilog-insert-one-definition
8879 sig 9430 sig
8880 ;; Want "type x" or "output type x", not "wire type x" 9431 ;; Want "type x" or "output type x", not "wire type x"
8881 (cond ((verilog-sig-type sig) 9432 (cond ((or (verilog-sig-type sig)
9433 verilog-auto-wire-type)
8882 (concat 9434 (concat
8883 (if (not (member direction '("wire" "interface"))) 9435 (when (member direction '("input" "output" "inout"))
8884 (concat direction " ")) 9436 (concat direction " "))
8885 (verilog-sig-type sig))) 9437 (or (verilog-sig-type sig)
8886 (t direction)) 9438 verilog-auto-wire-type)))
9439 ((and verilog-auto-declare-nettype
9440 (member direction '("input" "output" "inout")))
9441 (concat direction " " verilog-auto-declare-nettype))
9442 (t
9443 direction))
8887 indent-pt) 9444 indent-pt)
8888 (insert (if v2k "," ";")) 9445 (insert (if v2k "," ";"))
8889 (if (or (not (verilog-sig-comment sig)) 9446 (if (or (not (verilog-sig-comment sig))
@@ -8914,7 +9471,7 @@ Presumes that any newlines end a list element."
8914 ;; We can't just search backward for ) as it might be inside another expression. 9471 ;; We can't just search backward for ) as it might be inside another expression.
8915 ;; Also want "`ifdef X input foo `endif" to just leave things to the human to deal with 9472 ;; Also want "`ifdef X input foo `endif" to just leave things to the human to deal with
8916 (save-excursion 9473 (save-excursion
8917 (verilog-backward-syntactic-ws) 9474 (verilog-backward-syntactic-ws-quick)
8918 (when (and (not (save-excursion ;; Not beginning (, or existing , 9475 (when (and (not (save-excursion ;; Not beginning (, or existing ,
8919 (backward-char 1) 9476 (backward-char 1)
8920 (looking-at "[(,]"))) 9477 (looking-at "[(,]")))
@@ -8931,7 +9488,7 @@ This repairs those mis-inserted by a AUTOARG."
8931 (save-excursion 9488 (save-excursion
8932 (verilog-forward-close-paren) 9489 (verilog-forward-close-paren)
8933 (backward-char 1) 9490 (backward-char 1)
8934 (verilog-backward-syntactic-ws) 9491 (verilog-backward-syntactic-ws-quick)
8935 (backward-char 1) 9492 (backward-char 1)
8936 (when (looking-at ",") 9493 (when (looking-at ",")
8937 (delete-char 1)))) 9494 (delete-char 1))))
@@ -8978,27 +9535,68 @@ This repairs those mis-inserted by a AUTOARG."
8978 (t nil))))) 9535 (t nil)))))
8979;;(verilog-make-width-expression "`A:`B") 9536;;(verilog-make-width-expression "`A:`B")
8980 9537
8981(defun verilog-simplify-range-expression (range-exp) 9538(defun verilog-simplify-range-expression (expr)
8982 "Return a simplified range expression with constants eliminated from RANGE-EXP." 9539 "Return a simplified range expression with constants eliminated from EXPR."
8983 (let ((out range-exp) 9540 ;; Note this is always called with brackets; ie [z] or [z:z]
8984 (last-pass "")) 9541 (if (not (string-match "[---+*()]" expr))
8985 (while (not (equal last-pass out)) 9542 expr ;; short-circuit
8986 (setq last-pass out) 9543 (let ((out expr)
8987 (while (string-match "(\\<\\([0-9A-Z-az_]+\\)\\>)" out) 9544 (last-pass ""))
8988 (setq out (replace-match "\\1" nil nil out))) 9545 (while (not (equal last-pass out))
8989 (while (string-match "\\<\\([0-9]+\\)\\>\\s *\\+\\s *\\<\\([0-9]+\\)\\>" out) 9546 (setq last-pass out)
8990 (setq out (replace-match 9547 ;; Prefix regexp needs beginning of match, or some symbol of
8991 (int-to-string (+ (string-to-number (match-string 1 out)) 9548 ;; lesser or equal precedence. We assume the [:]'s exist in expr.
8992 (string-to-number (match-string 2 out)))) 9549 ;; Ditto the end.
8993 nil nil out))) 9550 (while (string-match
8994 (while (string-match "\\<\\([0-9]+\\)\\>\\s *\\-\\s *\\<\\([0-9]+\\)\\>" out) 9551 (concat "\\([[({:*+-]\\)" ; - must be last
8995 (setq out (replace-match 9552 "(\\<\\([0-9A-Za-z_]+\\))"
8996 (int-to-string (- (string-to-number (match-string 1 out)) 9553 "\\([])}:*+-]\\)")
8997 (string-to-number (match-string 2 out)))) 9554 out)
8998 nil nil out)))) 9555 (setq out (replace-match "\\1\\2\\3" nil nil out)))
8999 out)) 9556 ;; For precedence do * before +/-
9000;;(verilog-simplify-range-expression "1") 9557 (while (string-match
9001;;(verilog-simplify-range-expression "(((16)+1)-3)") 9558 (concat "\\([[({:*+-]\\)"
9559 "\\([0-9]+\\)\\s *\\([*]\\)\\s *\\([0-9]+\\)"
9560 "\\([])}:*+-]\\)")
9561 out)
9562 (setq out (replace-match
9563 (concat (match-string 1 out)
9564 (int-to-string (* (string-to-number (match-string 2 out))
9565 (string-to-number (match-string 4 out))))
9566 (match-string 5 out))
9567 nil nil out)))
9568 (while (string-match
9569 (concat "\\([[({:+-]\\)" ; No * here as higher prec
9570 "\\([0-9]+\\)\\s *\\([---+]\\)\\s *\\([0-9]+\\)"
9571 "\\([])}:+-]\\)")
9572 out)
9573 (let ((pre (match-string 1 out))
9574 (lhs (string-to-number (match-string 2 out)))
9575 (rhs (string-to-number (match-string 4 out)))
9576 (post (match-string 5 out))
9577 val)
9578 (when (equal pre "-")
9579 (setq lhs (- lhs)))
9580 (setq val (if (equal (match-string 3 out) "-")
9581 (- lhs rhs)
9582 (+ lhs rhs))
9583 out (replace-match
9584 (concat (if (and (equal pre "-")
9585 (< val 0))
9586 "" ;; Not "--20" but just "-20"
9587 pre)
9588 (int-to-string val)
9589 post)
9590 nil nil out)) )))
9591 out)))
9592;;(verilog-simplify-range-expression "[1:3]") ;; 1
9593;;(verilog-simplify-range-expression "[(1):3]") ;; 1
9594;;(verilog-simplify-range-expression "[(((16)+1)+1+(1+1))]") ;;20
9595;;(verilog-simplify-range-expression "[(2*3+6*7)]") ;; 48
9596;;(verilog-simplify-range-expression "[(FOO*4-1*2)]") ;; FOO*4-2
9597;;(verilog-simplify-range-expression "[(FOO*4+1-1)]") ;; FOO*4+0
9598;;(verilog-simplify-range-expression "[(func(BAR))]") ;; func(BAR)
9599;;(verilog-simplify-range-expression "[FOO-1+1-1+1]") ;; FOO-0
9002 9600
9003(defun verilog-typedef-name-p (variable-name) 9601(defun verilog-typedef-name-p (variable-name)
9004 "Return true if the VARIABLE-NAME is a type definition." 9602 "Return true if the VARIABLE-NAME is a type definition."
@@ -9011,15 +9609,17 @@ This repairs those mis-inserted by a AUTOARG."
9011 9609
9012(defun verilog-delete-autos-lined () 9610(defun verilog-delete-autos-lined ()
9013 "Delete autos that occupy multiple lines, between begin and end comments." 9611 "Delete autos that occupy multiple lines, between begin and end comments."
9612 ;; The newline must not have a comment property, so we must
9613 ;; delete the end auto's newline, not the first newline
9614 (forward-line 1)
9014 (let ((pt (point))) 9615 (let ((pt (point)))
9015 (forward-line 1)
9016 (when (and 9616 (when (and
9017 (looking-at "\\s-*// Beginning") 9617 (looking-at "\\s-*// Beginning")
9018 (search-forward "// End of automatic" nil t)) 9618 (search-forward "// End of automatic" nil t))
9019 ;; End exists 9619 ;; End exists
9020 (end-of-line) 9620 (end-of-line)
9021 (delete-region pt (point)) 9621 (forward-line 1)
9022 (forward-line 1)))) 9622 (delete-region pt (point)))))
9023 9623
9024(defun verilog-delete-empty-auto-pair () 9624(defun verilog-delete-empty-auto-pair ()
9025 "Delete begin/end auto pair at point, if empty." 9625 "Delete begin/end auto pair at point, if empty."
@@ -9066,11 +9666,11 @@ Ignore other open bracket with matching close bracket."
9066 9666
9067(defun verilog-delete-to-paren () 9667(defun verilog-delete-to-paren ()
9068 "Delete the automatic inst/sense/arg created by autos. 9668 "Delete the automatic inst/sense/arg created by autos.
9069Deletion stops at the matching end parenthesis." 9669Deletion stops at the matching end parenthesis, outside comments."
9070 (delete-region (point) 9670 (delete-region (point)
9071 (save-excursion 9671 (save-excursion
9072 (verilog-backward-open-paren) 9672 (verilog-backward-open-paren)
9073 (forward-sexp 1) ;; Moves to paren that closes argdecl's 9673 (verilog-forward-sexp-ign-cmt 1) ;; Moves to paren that closes argdecl's
9074 (backward-char 1) 9674 (backward-char 1)
9075 (point)))) 9675 (point))))
9076 9676
@@ -9078,7 +9678,8 @@ Deletion stops at the matching end parenthesis."
9078 "Return if a .* AUTOINST is safe to delete or expand. 9678 "Return if a .* AUTOINST is safe to delete or expand.
9079It was created by the AUTOS themselves, or by the user." 9679It was created by the AUTOS themselves, or by the user."
9080 (and verilog-auto-star-expand 9680 (and verilog-auto-star-expand
9081 (looking-at "[ \t\n\f,]*\\([)]\\|// \\(Outputs\\|Inouts\\|Inputs\\|Interfaces\\)\\)"))) 9681 (looking-at
9682 (concat "[ \t\n\f,]*\\([)]\\|// " verilog-inst-comment-re "\\)"))))
9082 9683
9083(defun verilog-delete-auto-star-all () 9684(defun verilog-delete-auto-star-all ()
9084 "Delete a .* AUTOINST, if it is safe." 9685 "Delete a .* AUTOINST, if it is safe."
@@ -9110,7 +9711,7 @@ removed."
9110 (save-excursion 9711 (save-excursion
9111 (while (progn 9712 (while (progn
9112 (forward-line -1) 9713 (forward-line -1)
9113 (looking-at "\\s *//\\s *\\(Outputs\\|Inouts\\|Inputs\\|Interfaces\\)\n")) 9714 (looking-at (concat "\\s *//\\s *" verilog-inst-comment-re "\n")))
9114 (delete-region (match-beginning 0) (match-end 0)))) 9715 (delete-region (match-beginning 0) (match-end 0))))
9115 ;; If it is simple, we can put the ); on the same line as the last text 9716 ;; If it is simple, we can put the ); on the same line as the last text
9116 (let ((rtn-pt (point))) 9717 (let ((rtn-pt (point)))
@@ -9139,18 +9740,13 @@ called before and after this function, respectively."
9139 (verilog-save-no-change-functions 9740 (verilog-save-no-change-functions
9140 (verilog-save-scan-cache 9741 (verilog-save-scan-cache
9141 ;; Allow user to customize 9742 ;; Allow user to customize
9142 (run-hooks 'verilog-before-delete-auto-hook) 9743 (verilog-run-hooks 'verilog-before-delete-auto-hook)
9143 9744
9144 ;; Remove those that have multi-line insertions, possibly with parameters 9745 ;; Remove those that have multi-line insertions, possibly with parameters
9746 ;; We allow anything beginning with AUTO, so that users can add their own
9747 ;; patterns
9145 (verilog-auto-re-search-do 9748 (verilog-auto-re-search-do
9146 (concat "/\\*" 9749 (concat "/\\*AUTO[A-Za-z0-9_]+"
9147 (eval-when-compile
9148 (verilog-regexp-words
9149 `("AUTOASCIIENUM" "AUTOCONCATCOMMENT" "AUTODEFINEVALUE"
9150 "AUTOINOUT" "AUTOINOUTCOMP" "AUTOINOUTMODULE"
9151 "AUTOINPUT" "AUTOINSERTLISP" "AUTOOUTPUT" "AUTOOUTPUTEVERY"
9152 "AUTOREG" "AUTOREGINPUT" "AUTORESET" "AUTOTIEOFF"
9153 "AUTOUNUSED" "AUTOWIRE")))
9154 ;; Optional parens or quoted parameter or .* for (((...))) 9750 ;; Optional parens or quoted parameter or .* for (((...)))
9155 "\\(\\|([^)]*)\\|(\"[^\"]*\")\\).*?" 9751 "\\(\\|([^)]*)\\|(\"[^\"]*\")\\).*?"
9156 "\\*/") 9752 "\\*/")
@@ -9169,11 +9765,11 @@ called before and after this function, respectively."
9169 'verilog-delete-auto-star-all) 9765 'verilog-delete-auto-star-all)
9170 ;; Remove template comments ... anywhere in case was pasted after AUTOINST removed 9766 ;; Remove template comments ... anywhere in case was pasted after AUTOINST removed
9171 (goto-char (point-min)) 9767 (goto-char (point-min))
9172 (while (re-search-forward "\\s-*// \\(Templated\\|Implicit \\.\\*\\)[ \tLT0-9]*$" nil t) 9768 (while (re-search-forward "\\s-*// \\(Templated\\|Implicit \\.\\*\\)\\([ \tLT0-9]*\\| LHS: .*\\)?$" nil t)
9173 (replace-match "")) 9769 (replace-match ""))
9174 9770
9175 ;; Final customize 9771 ;; Final customize
9176 (run-hooks 'verilog-delete-auto-hook))))) 9772 (verilog-run-hooks 'verilog-delete-auto-hook)))))
9177 9773
9178;; 9774;;
9179;; Auto inject 9775;; Auto inject
@@ -9235,7 +9831,7 @@ Typing \\[verilog-inject-auto] will make this into:
9235 (when (not (re-search-forward "/\\*AUTOARG\\*/" endmodp t)) 9831 (when (not (re-search-forward "/\\*AUTOARG\\*/" endmodp t))
9236 (verilog-re-search-forward-quick ";" nil t) 9832 (verilog-re-search-forward-quick ";" nil t)
9237 (backward-char 1) 9833 (backward-char 1)
9238 (verilog-backward-syntactic-ws) 9834 (verilog-backward-syntactic-ws-quick)
9239 (backward-char 1) ; Moves to paren that closes argdecl's 9835 (backward-char 1) ; Moves to paren that closes argdecl's
9240 (when (looking-at ")") 9836 (when (looking-at ")")
9241 (verilog-insert "/*AUTOARG*/"))))))) 9837 (verilog-insert "/*AUTOARG*/")))))))
@@ -9251,9 +9847,9 @@ Typing \\[verilog-inject-auto] will make this into:
9251 pre-sigs 9847 pre-sigs
9252 got-sigs) 9848 got-sigs)
9253 (backward-char 1) 9849 (backward-char 1)
9254 (forward-sexp 1) 9850 (verilog-forward-sexp-ign-cmt 1)
9255 (backward-char 1) ;; End ) 9851 (backward-char 1) ;; End )
9256 (when (not (verilog-re-search-backward "/\\*\\(AUTOSENSE\\|AS\\)\\*/" start-pt t)) 9852 (when (not (verilog-re-search-backward-quick "/\\*\\(AUTOSENSE\\|AS\\)\\*/" start-pt t))
9257 (setq pre-sigs (verilog-signals-from-signame 9853 (setq pre-sigs (verilog-signals-from-signame
9258 (verilog-read-signals start-pt (point))) 9854 (verilog-read-signals start-pt (point)))
9259 got-sigs (verilog-auto-sense-sigs moddecls nil)) 9855 got-sigs (verilog-auto-sense-sigs moddecls nil))
@@ -9277,12 +9873,12 @@ Typing \\[verilog-inject-auto] will make this into:
9277 (forward-char 1) 9873 (forward-char 1)
9278 (let ((indent-pt (+ (current-column))) 9874 (let ((indent-pt (+ (current-column)))
9279 (end-pt (save-excursion (verilog-forward-close-paren) (point)))) 9875 (end-pt (save-excursion (verilog-forward-close-paren) (point))))
9280 (cond ((verilog-re-search-forward "\\(/\\*AUTOINST\\*/\\|\\.\\*\\)" end-pt t) 9876 (cond ((verilog-re-search-forward-quick "\\(/\\*AUTOINST\\*/\\|\\.\\*\\)" end-pt t)
9281 (goto-char end-pt)) ;; Already there, continue search with next instance 9877 (goto-char end-pt)) ;; Already there, continue search with next instance
9282 (t 9878 (t
9283 ;; Delete identical interconnect 9879 ;; Delete identical interconnect
9284 (let ((case-fold-search nil)) ;; So we don't convert upper-to-lower, etc 9880 (let ((case-fold-search nil)) ;; So we don't convert upper-to-lower, etc
9285 (while (verilog-re-search-forward "\\.\\s *\\([a-zA-Z0-9`_\$]+\\)*\\s *(\\s *\\1\\s *)\\s *" end-pt t) 9881 (while (verilog-re-search-forward-quick "\\.\\s *\\([a-zA-Z0-9`_\$]+\\)*\\s *(\\s *\\1\\s *)\\s *" end-pt t)
9286 (delete-region (match-beginning 0) (match-end 0)) 9882 (delete-region (match-beginning 0) (match-end 0))
9287 (setq end-pt (- end-pt (- (match-end 0) (match-beginning 0)))) ;; Keep it correct 9883 (setq end-pt (- end-pt (- (match-end 0) (match-beginning 0)))) ;; Keep it correct
9288 (while (or (looking-at "[ \t\n\f,]+") 9884 (while (or (looking-at "[ \t\n\f,]+")
@@ -9298,6 +9894,131 @@ Typing \\[verilog-inject-auto] will make this into:
9298 (verilog-insert-indent "/*AUTOINST*/"))))))))) 9894 (verilog-insert-indent "/*AUTOINST*/")))))))))
9299 9895
9300;; 9896;;
9897;; Auto diff
9898;;
9899
9900(defun verilog-diff-buffers-p (b1 b2 &optional whitespace)
9901 "Return nil if buffers B1 and B2 have same contents.
9902Else, return point in B1 that first mismatches.
9903If optional WHITESPACE true, ignore whitespace."
9904 (save-excursion
9905 (let* ((case-fold-search nil) ;; compare-buffer-substrings cares
9906 (p1 (with-current-buffer b1 (goto-char (point-min))))
9907 (p2 (with-current-buffer b2 (goto-char (point-min))))
9908 (maxp1 (with-current-buffer b1 (point-max)))
9909 (maxp2 (with-current-buffer b2 (point-max)))
9910 (op1 -1) (op2 -1)
9911 progress size)
9912 (while (not (and (eq p1 op1) (eq p2 op2)))
9913 ;; If both windows have whitespace optionally skip over it.
9914 (when whitespace
9915 ;; skip-syntax-* doesn't count \n
9916 (with-current-buffer b1
9917 (goto-char p1)
9918 (skip-chars-forward " \t\n\r\f\v")
9919 (setq p1 (point)))
9920 (with-current-buffer b2
9921 (goto-char p2)
9922 (skip-chars-forward " \t\n\r\f\v")
9923 (setq p2 (point))))
9924 (setq size (min (- maxp1 p1) (- maxp2 p2)))
9925 (setq progress (compare-buffer-substrings b2 p2 (+ size p2)
9926 b1 p1 (+ size p1)))
9927 (setq progress (if (zerop progress) size (1- (abs progress))))
9928 (setq op1 p1 op2 p2
9929 p1 (+ p1 progress)
9930 p2 (+ p2 progress)))
9931 ;; Return value
9932 (if (and (eq p1 maxp1) (eq p2 maxp2))
9933 nil p1))))
9934
9935(defun verilog-diff-file-with-buffer (f1 b2 &optional whitespace show)
9936 "View the differences between file F1 and buffer B2.
9937This requires the external program `diff-command' to be in your `exec-path',
9938and uses `diff-switches' in which you may want to have \"-u\" flag.
9939Ignores WHITESPACE if t, and writes output to stdout if SHOW."
9940 ;; Similar to `diff-buffer-with-file' but works on XEmacs, and doesn't
9941 ;; call `diff' as `diff' has different calling semantics on different
9942 ;; versions of Emacs.
9943 (if (not (file-exists-p f1))
9944 (message "Buffer %s has no associated file on disc" (buffer-name b2))
9945 (with-temp-buffer "*Verilog-Diff*"
9946 (let ((outbuf (current-buffer))
9947 (f2 (make-temp-file "vm-diff-auto-")))
9948 (unwind-protect
9949 (progn
9950 (with-current-buffer b2
9951 (save-restriction
9952 (widen)
9953 (write-region (point-min) (point-max) f2 nil 'nomessage)))
9954 (call-process diff-command nil outbuf t
9955 diff-switches ;; User may want -u in diff-switches
9956 (if whitespace "-b" "")
9957 f1 f2)
9958 ;; Print out results. Alternatively we could have call-processed
9959 ;; ourself, but this way we can reuse diff switches
9960 (when show
9961 (with-current-buffer outbuf (message "%s" (buffer-string))))))
9962 (sit-for 0)
9963 (when (file-exists-p f2)
9964 (delete-file f2))))))
9965
9966(defun verilog-diff-report (b1 b2 diffpt)
9967 "Report differences detected with `verilog-diff-auto'.
9968Differences are between buffers B1 and B2, starting at point
9969DIFFPT. This function is called via `verilog-diff-function'."
9970 (let ((name1 (with-current-buffer b1 (buffer-file-name))))
9971 (message "%%Warning: %s:%d: Difference in AUTO expansion found"
9972 name1 (with-current-buffer b1 (1+ (count-lines (point-min) (point)))))
9973 (cond (noninteractive
9974 (verilog-diff-file-with-buffer name1 b2 t t))
9975 (t
9976 (ediff-buffers b1 b2)))))
9977
9978(defun verilog-diff-auto ()
9979 "Expand AUTOs in a temporary buffer and indicate any changes.
9980Whitespace differences are ignored to determine identicalness, but
9981once a difference is detected, whitespace differences may be shown.
9982
9983To call this from the command line, see \\[verilog-batch-diff-auto].
9984
9985The action on differences is selected with
9986`verilog-diff-function'. The default is `verilog-diff-report'
9987which will report an error and run `ediff' in interactive mode,
9988or `diff' in batch mode."
9989 (interactive)
9990 (let ((b1 (current-buffer)) b2 diffpt
9991 (name1 (buffer-file-name))
9992 (newname "*Verilog-Diff*"))
9993 (save-excursion
9994 (when (get-buffer newname)
9995 (kill-buffer newname))
9996 (setq b2 (let (buffer-file-name) ;; Else clone is upset
9997 (clone-buffer newname)))
9998 (with-current-buffer b2
9999 ;; auto requires the filename, but can't have same filename in two
10000 ;; buffers; so override both b1 and b2's names
10001 (let ((buffer-file-name name1))
10002 (unwind-protect
10003 (progn
10004 (with-current-buffer b1 (setq buffer-file-name nil))
10005 (verilog-auto)
10006 (when (not verilog-auto-star-save)
10007 (verilog-delete-auto-star-implicit)))
10008 ;; Restore name if unwind
10009 (with-current-buffer b1 (setq buffer-file-name name1)))))
10010 ;;
10011 (setq diffpt (verilog-diff-buffers-p b1 b2 t))
10012 (cond ((not diffpt)
10013 (unless noninteractive (message "AUTO expansion identical"))
10014 (kill-buffer newname)) ;; Nice to cleanup after oneself
10015 (t
10016 (funcall verilog-diff-function b1 b2 diffpt)))
10017 ;; Return result of compare
10018 diffpt)))
10019
10020
10021;;
9301;; Auto save 10022;; Auto save
9302;; 10023;;
9303 10024
@@ -9483,14 +10204,19 @@ If PAR-VALUES replace final strings with these parameter values."
9483 (concat "\\<" (nth 0 (car check-values)) "\\>") 10204 (concat "\\<" (nth 0 (car check-values)) "\\>")
9484 (concat "(" (nth 1 (car check-values)) ")") 10205 (concat "(" (nth 1 (car check-values)) ")")
9485 t t vl-bits) 10206 t t vl-bits)
10207 vl-mbits (verilog-string-replace-matches
10208 (concat "\\<" (nth 0 (car check-values)) "\\>")
10209 (concat "(" (nth 1 (car check-values)) ")")
10210 t t vl-mbits)
9486 check-values (cdr check-values))) 10211 check-values (cdr check-values)))
9487 (setq vl-bits (verilog-simplify-range-expression vl-bits))) ; Not in the loop for speed 10212 (setq vl-bits (verilog-simplify-range-expression vl-bits)
10213 vl-mbits (verilog-simplify-range-expression vl-mbits)
10214 vl-width (verilog-make-width-expression vl-bits))) ; Not in the loop for speed
9488 ;; Default net value if not found 10215 ;; Default net value if not found
9489 (setq tpl-net (concat port 10216 (setq tpl-net (concat port
9490 (if vl-modport (concat "." vl-modport) "") 10217 (if vl-modport (concat "." vl-modport) "")
9491 (if (verilog-sig-multidim port-st) 10218 (if (verilog-sig-multidim port-st)
9492 (concat "/*" (verilog-sig-multidim-string port-st) 10219 (concat "/*" vl-mbits vl-bits "*/")
9493 vl-bits "*/")
9494 (concat vl-bits)))) 10220 (concat vl-bits))))
9495 ;; Find template 10221 ;; Find template
9496 (cond (tpl-ass ; Template of exact port name 10222 (cond (tpl-ass ; Template of exact port name
@@ -9536,20 +10262,37 @@ If PAR-VALUES replace final strings with these parameter values."
9536 (cond (tpl-ass 10262 (cond (tpl-ass
9537 (indent-to (+ (if (< verilog-auto-inst-column 48) 24 16) 10263 (indent-to (+ (if (< verilog-auto-inst-column 48) 24 16)
9538 verilog-auto-inst-column)) 10264 verilog-auto-inst-column))
9539 (if verilog-auto-inst-template-numbers 10265 ;; verilog-insert requires the complete comment in one call - including the newline
9540 (verilog-insert " // Templated" 10266 (cond ((equal verilog-auto-inst-template-numbers `lhs)
9541 " T" (int-to-string (nth 2 tpl-ass)) 10267 (verilog-insert " // Templated"
9542 " L" (int-to-string (nth 3 tpl-ass))) 10268 " LHS: " (nth 0 tpl-ass)
9543 (verilog-insert " // Templated"))) 10269 "\n"))
10270 (verilog-auto-inst-template-numbers
10271 (verilog-insert " // Templated"
10272 " T" (int-to-string (nth 2 tpl-ass))
10273 " L" (int-to-string (nth 3 tpl-ass))
10274 "\n"))
10275 (t
10276 (verilog-insert " // Templated\n"))))
9544 (for-star 10277 (for-star
9545 (indent-to (+ (if (< verilog-auto-inst-column 48) 24 16) 10278 (indent-to (+ (if (< verilog-auto-inst-column 48) 24 16)
9546 verilog-auto-inst-column)) 10279 verilog-auto-inst-column))
9547 (verilog-insert " // Implicit .\*"))) ;For some reason the . or * must be escaped... 10280 (verilog-insert " // Implicit .\*\n")) ;For some reason the . or * must be escaped...
9548 (insert "\n"))) 10281 (t
10282 (insert "\n")))))
9549;;(verilog-auto-inst-port (list "foo" "[5:0]") 10 (list (list "foo" "a@\"(% (+ @ 1) 4)\"a")) "3") 10283;;(verilog-auto-inst-port (list "foo" "[5:0]") 10 (list (list "foo" "a@\"(% (+ @ 1) 4)\"a")) "3")
9550;;(x "incom[@\"(+ (* 8 @) 7)\":@\"(* 8 @)\"]") 10284;;(x "incom[@\"(+ (* 8 @) 7)\":@\"(* 8 @)\"]")
9551;;(x ".out (outgo[@\"(concat (+ (* 8 @) 7) \\\":\\\" ( * 8 @))\"]));") 10285;;(x ".out (outgo[@\"(concat (+ (* 8 @) 7) \\\":\\\" ( * 8 @))\"]));")
9552 10286
10287(defun verilog-auto-inst-port-list (sig-list indent-pt tpl-list tpl-num for-star par-values)
10288 "For `verilog-auto-inst' print a list of ports using `verilog-auto-inst-port'."
10289 (when verilog-auto-inst-sort
10290 (setq sig-list (sort (copy-alist sig-list) `verilog-signals-sort-compare)))
10291 (mapc (lambda (port)
10292 (verilog-auto-inst-port port indent-pt
10293 tpl-list tpl-num for-star par-values))
10294 sig-list))
10295
9553(defun verilog-auto-inst-first () 10296(defun verilog-auto-inst-first ()
9554 "Insert , etc before first ever port in this instant, as part of \\[verilog-auto-inst]." 10297 "Insert , etc before first ever port in this instant, as part of \\[verilog-auto-inst]."
9555 ;; Do we need a trailing comma? 10298 ;; Do we need a trailing comma?
@@ -9558,7 +10301,7 @@ If PAR-VALUES replace final strings with these parameter values."
9558 ;; Insert first port on new line 10301 ;; Insert first port on new line
9559 (insert "\n") ;; Must insert before search, so point will move forward if insert comma 10302 (insert "\n") ;; Must insert before search, so point will move forward if insert comma
9560 (save-excursion 10303 (save-excursion
9561 (verilog-re-search-backward "[^ \t\n\f]" nil nil) 10304 (verilog-re-search-backward-quick "[^ \t\n\f]" nil nil)
9562 (when (looking-at ")\\|\\*") ;; Generally don't insert, unless we are fairly sure 10305 (when (looking-at ")\\|\\*") ;; Generally don't insert, unless we are fairly sure
9563 (forward-char 1) 10306 (forward-char 1)
9564 (insert ",")))) 10307 (insert ","))))
@@ -9592,6 +10335,9 @@ If `verilog-auto-star-expand' is set, also expand SystemVerilog .* ports,
9592and delete them before saving unless `verilog-auto-star-save' is set. 10335and delete them before saving unless `verilog-auto-star-save' is set.
9593See `verilog-auto-star' for more information. 10336See `verilog-auto-star' for more information.
9594 10337
10338The pins are printed in declaration order or alphabetically,
10339based on the `verilog-auto-inst-sort' variable.
10340
9595Limitations: 10341Limitations:
9596 Module names must be resolvable to filenames by adding a 10342 Module names must be resolvable to filenames by adding a
9597 `verilog-library-extensions', and being found in the same directory, or 10343 `verilog-library-extensions', and being found in the same directory, or
@@ -9719,6 +10465,22 @@ Templates:
9719 .NotInTemplate (NotInTemplate), 10465 .NotInTemplate (NotInTemplate),
9720 .ptl_bus (ptl_busnew[3:0]), // Templated 10466 .ptl_bus (ptl_busnew[3:0]), // Templated
9721 .... 10467 ....
10468
10469
10470Multiple Module Templates:
10471
10472 The same template lines can be applied to multiple modules with
10473 the syntax as follows:
10474
10475 /* InstModuleA AUTO_TEMPLATE
10476 InstModuleB AUTO_TEMPLATE
10477 InstModuleC AUTO_TEMPLATE
10478 InstModuleD AUTO_TEMPLATE (
10479 .ptl_bus (ptl_busnew[]),
10480 );
10481 */
10482
10483 Note there is only one AUTO_TEMPLATE opening parenthesis.
9722 10484
9723@ Templates: 10485@ Templates:
9724 10486
@@ -9899,18 +10661,15 @@ For more information see the \\[verilog-faq] and forums at URL
9899 ;; Find submodule's signals and dump 10661 ;; Find submodule's signals and dump
9900 (let ((sig-list (and (equal (verilog-modi-get-type submodi) "interface") 10662 (let ((sig-list (and (equal (verilog-modi-get-type submodi) "interface")
9901 (verilog-signals-not-in 10663 (verilog-signals-not-in
9902 (append (verilog-decls-get-wires submoddecls) 10664 (verilog-decls-get-vars submoddecls)
9903 (verilog-decls-get-regs submoddecls))
9904 skip-pins))) 10665 skip-pins)))
9905 (vl-dir "interfaced")) 10666 (vl-dir "interfaced"))
9906 (when sig-list 10667 (when sig-list
9907 (when (not did-first) (verilog-auto-inst-first) (setq did-first t)) 10668 (when (not did-first) (verilog-auto-inst-first) (setq did-first t))
9908 ;; Note these are searched for in verilog-read-sub-decls. 10669 ;; Note these are searched for in verilog-read-sub-decls.
9909 (verilog-insert-indent "// Interfaced\n") 10670 (verilog-insert-indent "// Interfaced\n")
9910 (mapc (lambda (port) 10671 (verilog-auto-inst-port-list sig-list indent-pt
9911 (verilog-auto-inst-port port indent-pt 10672 tpl-list tpl-num for-star par-values)))
9912 tpl-list tpl-num for-star par-values))
9913 sig-list)))
9914 (let ((sig-list (verilog-signals-not-in 10673 (let ((sig-list (verilog-signals-not-in
9915 (verilog-decls-get-interfaces submoddecls) 10674 (verilog-decls-get-interfaces submoddecls)
9916 skip-pins)) 10675 skip-pins))
@@ -9919,10 +10678,8 @@ For more information see the \\[verilog-faq] and forums at URL
9919 (when (not did-first) (verilog-auto-inst-first) (setq did-first t)) 10678 (when (not did-first) (verilog-auto-inst-first) (setq did-first t))
9920 ;; Note these are searched for in verilog-read-sub-decls. 10679 ;; Note these are searched for in verilog-read-sub-decls.
9921 (verilog-insert-indent "// Interfaces\n") 10680 (verilog-insert-indent "// Interfaces\n")
9922 (mapc (lambda (port) 10681 (verilog-auto-inst-port-list sig-list indent-pt
9923 (verilog-auto-inst-port port indent-pt 10682 tpl-list tpl-num for-star par-values)))
9924 tpl-list tpl-num for-star par-values))
9925 sig-list)))
9926 (let ((sig-list (verilog-signals-not-in 10683 (let ((sig-list (verilog-signals-not-in
9927 (verilog-decls-get-outputs submoddecls) 10684 (verilog-decls-get-outputs submoddecls)
9928 skip-pins)) 10685 skip-pins))
@@ -9930,10 +10687,8 @@ For more information see the \\[verilog-faq] and forums at URL
9930 (when sig-list 10687 (when sig-list
9931 (when (not did-first) (verilog-auto-inst-first) (setq did-first t)) 10688 (when (not did-first) (verilog-auto-inst-first) (setq did-first t))
9932 (verilog-insert-indent "// Outputs\n") 10689 (verilog-insert-indent "// Outputs\n")
9933 (mapc (lambda (port) 10690 (verilog-auto-inst-port-list sig-list indent-pt
9934 (verilog-auto-inst-port port indent-pt 10691 tpl-list tpl-num for-star par-values)))
9935 tpl-list tpl-num for-star par-values))
9936 sig-list)))
9937 (let ((sig-list (verilog-signals-not-in 10692 (let ((sig-list (verilog-signals-not-in
9938 (verilog-decls-get-inouts submoddecls) 10693 (verilog-decls-get-inouts submoddecls)
9939 skip-pins)) 10694 skip-pins))
@@ -9941,10 +10696,8 @@ For more information see the \\[verilog-faq] and forums at URL
9941 (when sig-list 10696 (when sig-list
9942 (when (not did-first) (verilog-auto-inst-first) (setq did-first t)) 10697 (when (not did-first) (verilog-auto-inst-first) (setq did-first t))
9943 (verilog-insert-indent "// Inouts\n") 10698 (verilog-insert-indent "// Inouts\n")
9944 (mapc (lambda (port) 10699 (verilog-auto-inst-port-list sig-list indent-pt
9945 (verilog-auto-inst-port port indent-pt 10700 tpl-list tpl-num for-star par-values)))
9946 tpl-list tpl-num for-star par-values))
9947 sig-list)))
9948 (let ((sig-list (verilog-signals-not-in 10701 (let ((sig-list (verilog-signals-not-in
9949 (verilog-decls-get-inputs submoddecls) 10702 (verilog-decls-get-inputs submoddecls)
9950 skip-pins)) 10703 skip-pins))
@@ -9952,10 +10705,8 @@ For more information see the \\[verilog-faq] and forums at URL
9952 (when sig-list 10705 (when sig-list
9953 (when (not did-first) (verilog-auto-inst-first) (setq did-first t)) 10706 (when (not did-first) (verilog-auto-inst-first) (setq did-first t))
9954 (verilog-insert-indent "// Inputs\n") 10707 (verilog-insert-indent "// Inputs\n")
9955 (mapc (lambda (port) 10708 (verilog-auto-inst-port-list sig-list indent-pt
9956 (verilog-auto-inst-port port indent-pt 10709 tpl-list tpl-num for-star par-values)))
9957 tpl-list tpl-num for-star par-values))
9958 sig-list)))
9959 ;; Kill extra semi 10710 ;; Kill extra semi
9960 (save-excursion 10711 (save-excursion
9961 (cond (did-first 10712 (cond (did-first
@@ -10058,10 +10809,8 @@ Templates:
10058 (when (not did-first) (verilog-auto-inst-first) (setq did-first t)) 10809 (when (not did-first) (verilog-auto-inst-first) (setq did-first t))
10059 ;; Note these are searched for in verilog-read-sub-decls. 10810 ;; Note these are searched for in verilog-read-sub-decls.
10060 (verilog-insert-indent "// Parameters\n") 10811 (verilog-insert-indent "// Parameters\n")
10061 (mapc (lambda (port) 10812 (verilog-auto-inst-port-list sig-list indent-pt
10062 (verilog-auto-inst-port port indent-pt 10813 tpl-list tpl-num nil nil)))
10063 tpl-list tpl-num nil nil))
10064 sig-list)))
10065 ;; Kill extra semi 10814 ;; Kill extra semi
10066 (save-excursion 10815 (save-excursion
10067 (cond (did-first 10816 (cond (did-first
@@ -10076,7 +10825,8 @@ Templates:
10076(defun verilog-auto-reg () 10825(defun verilog-auto-reg ()
10077 "Expand AUTOREG statements, as part of \\[verilog-auto]. 10826 "Expand AUTOREG statements, as part of \\[verilog-auto].
10078Make reg statements for any output that isn't already declared, 10827Make reg statements for any output that isn't already declared,
10079and isn't a wire output from a block. 10828and isn't a wire output from a block. `verilog-auto-wire-type'
10829may be used to change the datatype of the declarations.
10080 10830
10081Limitations: 10831Limitations:
10082 This ONLY detects outputs of AUTOINSTants (see `verilog-read-sub-decls'). 10832 This ONLY detects outputs of AUTOINSTants (see `verilog-read-sub-decls').
@@ -10111,8 +10861,7 @@ Typing \\[verilog-auto] will make this into:
10111 (modsubdecls (verilog-modi-get-sub-decls modi)) 10861 (modsubdecls (verilog-modi-get-sub-decls modi))
10112 (sig-list (verilog-signals-not-in 10862 (sig-list (verilog-signals-not-in
10113 (verilog-decls-get-outputs moddecls) 10863 (verilog-decls-get-outputs moddecls)
10114 (append (verilog-decls-get-wires moddecls) 10864 (append (verilog-decls-get-vars moddecls)
10115 (verilog-decls-get-regs moddecls)
10116 (verilog-decls-get-assigns moddecls) 10865 (verilog-decls-get-assigns moddecls)
10117 (verilog-decls-get-consts moddecls) 10866 (verilog-decls-get-consts moddecls)
10118 (verilog-decls-get-gparams moddecls) 10867 (verilog-decls-get-gparams moddecls)
@@ -10122,8 +10871,7 @@ Typing \\[verilog-auto] will make this into:
10122 (forward-line 1) 10871 (forward-line 1)
10123 (when sig-list 10872 (when sig-list
10124 (verilog-insert-indent "// Beginning of automatic regs (for this module's undeclared outputs)\n") 10873 (verilog-insert-indent "// Beginning of automatic regs (for this module's undeclared outputs)\n")
10125 (verilog-insert-definition sig-list "reg" indent-pt nil) 10874 (verilog-insert-definition modi sig-list "reg" indent-pt nil)
10126 (verilog-modi-cache-add-regs modi sig-list)
10127 (verilog-insert-indent "// End of automatics\n"))))) 10875 (verilog-insert-indent "// End of automatics\n")))))
10128 10876
10129(defun verilog-auto-reg-input () 10877(defun verilog-auto-reg-input ()
@@ -10173,18 +10921,40 @@ Typing \\[verilog-auto] will make this into:
10173 (verilog-signals-not-in 10921 (verilog-signals-not-in
10174 (append (verilog-subdecls-get-inputs modsubdecls) 10922 (append (verilog-subdecls-get-inputs modsubdecls)
10175 (verilog-subdecls-get-inouts modsubdecls)) 10923 (verilog-subdecls-get-inouts modsubdecls))
10176 (verilog-decls-get-signals moddecls))))) 10924 (append (verilog-decls-get-signals moddecls)
10925 (verilog-decls-get-assigns moddecls))))))
10177 (forward-line 1) 10926 (forward-line 1)
10178 (when sig-list 10927 (when sig-list
10179 (verilog-insert-indent "// Beginning of automatic reg inputs (for undeclared instantiated-module inputs)\n") 10928 (verilog-insert-indent "// Beginning of automatic reg inputs (for undeclared instantiated-module inputs)\n")
10180 (verilog-insert-definition sig-list "reg" indent-pt nil) 10929 (verilog-insert-definition modi sig-list "reg" indent-pt nil)
10181 (verilog-modi-cache-add-regs modi sig-list)
10182 (verilog-insert-indent "// End of automatics\n"))))) 10930 (verilog-insert-indent "// End of automatics\n")))))
10183 10931
10932(defun verilog-auto-logic ()
10933 "Expand AUTOLOGIC statements, as part of \\[verilog-auto].
10934Make wire statements using the SystemVerilog logic keyword.
10935This is currently equivelent to:
10936
10937 /*AUTOWIRE*/
10938
10939with the below at the bottom of the file
10940
10941 // Local Variables:
10942 // verilog-auto-logic-type:\"logic\"
10943 // End:
10944
10945In the future AUTOLOGIC may declare additional identifiers,
10946while AUTOWIRE will not."
10947 (save-excursion
10948 (unless verilog-auto-wire-type
10949 (set (make-local-variable 'verilog-auto-wire-type)
10950 "logic"))
10951 (verilog-auto-wire)))
10952
10184(defun verilog-auto-wire () 10953(defun verilog-auto-wire ()
10185 "Expand AUTOWIRE statements, as part of \\[verilog-auto]. 10954 "Expand AUTOWIRE statements, as part of \\[verilog-auto].
10186Make wire statements for instantiations outputs that aren't 10955Make wire statements for instantiations outputs that aren't
10187already declared. 10956already declared. `verilog-auto-wire-type' may be used to change
10957the datatype of the declarations.
10188 10958
10189Limitations: 10959Limitations:
10190 This ONLY detects outputs of AUTOINSTants (see `verilog-read-sub-decls'), 10960 This ONLY detects outputs of AUTOINSTants (see `verilog-read-sub-decls'),
@@ -10240,15 +11010,13 @@ Typing \\[verilog-auto] will make this into:
10240 (forward-line 1) 11010 (forward-line 1)
10241 (when sig-list 11011 (when sig-list
10242 (verilog-insert-indent "// Beginning of automatic wires (for undeclared instantiated-module outputs)\n") 11012 (verilog-insert-indent "// Beginning of automatic wires (for undeclared instantiated-module outputs)\n")
10243 (verilog-insert-definition sig-list "wire" indent-pt nil) 11013 (verilog-insert-definition modi sig-list "wire" indent-pt nil)
10244 (verilog-modi-cache-add-wires modi sig-list)
10245 (verilog-insert-indent "// End of automatics\n") 11014 (verilog-insert-indent "// End of automatics\n")
10246 (when nil ;; Too slow on huge modules, plus makes everyone's module change 11015 ;; We used to optionally call verilog-pretty-declarations and
10247 (beginning-of-line) 11016 ;; verilog-pretty-expr here, but it's too slow on huge modules,
10248 (setq pnt (point)) 11017 ;; plus makes everyone's module change. Finally those call
10249 (verilog-pretty-declarations quiet) 11018 ;; syntax-ppss which is broken when change hooks are disabled.
10250 (goto-char pnt) 11019 ))))
10251 (verilog-pretty-expr t "//"))))))
10252 11020
10253(defun verilog-auto-output (&optional with-params) 11021(defun verilog-auto-output (&optional with-params)
10254 "Expand AUTOOUTPUT statements, as part of \\[verilog-auto]. 11022 "Expand AUTOOUTPUT statements, as part of \\[verilog-auto].
@@ -10304,7 +11072,7 @@ same expansion will result from only extracting outputs starting with ov:
10304 (let* ((indent-pt (current-indentation)) 11072 (let* ((indent-pt (current-indentation))
10305 (regexp (and with-params 11073 (regexp (and with-params
10306 (nth 0 (verilog-read-auto-params 1)))) 11074 (nth 0 (verilog-read-auto-params 1))))
10307 (v2k (verilog-in-paren)) 11075 (v2k (verilog-in-paren-quick))
10308 (modi (verilog-modi-current)) 11076 (modi (verilog-modi-current))
10309 (moddecls (verilog-modi-get-decls modi)) 11077 (moddecls (verilog-modi-get-decls modi))
10310 (modsubdecls (verilog-modi-get-sub-decls modi)) 11078 (modsubdecls (verilog-modi-get-sub-decls modi))
@@ -10323,8 +11091,7 @@ same expansion will result from only extracting outputs starting with ov:
10323 (when v2k (verilog-repair-open-comma)) 11091 (when v2k (verilog-repair-open-comma))
10324 (when sig-list 11092 (when sig-list
10325 (verilog-insert-indent "// Beginning of automatic outputs (from unused autoinst outputs)\n") 11093 (verilog-insert-indent "// Beginning of automatic outputs (from unused autoinst outputs)\n")
10326 (verilog-insert-definition sig-list "output" indent-pt v2k) 11094 (verilog-insert-definition modi sig-list "output" indent-pt v2k)
10327 (verilog-modi-cache-add-outputs modi sig-list)
10328 (verilog-insert-indent "// End of automatics\n")) 11095 (verilog-insert-indent "// End of automatics\n"))
10329 (when v2k (verilog-repair-close-comma))))) 11096 (when v2k (verilog-repair-close-comma)))))
10330 11097
@@ -10363,7 +11130,7 @@ Typing \\[verilog-auto] will make this into:
10363 (save-excursion 11130 (save-excursion
10364 ;;Point must be at insertion point 11131 ;;Point must be at insertion point
10365 (let* ((indent-pt (current-indentation)) 11132 (let* ((indent-pt (current-indentation))
10366 (v2k (verilog-in-paren)) 11133 (v2k (verilog-in-paren-quick))
10367 (modi (verilog-modi-current)) 11134 (modi (verilog-modi-current))
10368 (moddecls (verilog-modi-get-decls modi)) 11135 (moddecls (verilog-modi-get-decls modi))
10369 (sig-list (verilog-signals-combine-bus 11136 (sig-list (verilog-signals-combine-bus
@@ -10374,8 +11141,7 @@ Typing \\[verilog-auto] will make this into:
10374 (when v2k (verilog-repair-open-comma)) 11141 (when v2k (verilog-repair-open-comma))
10375 (when sig-list 11142 (when sig-list
10376 (verilog-insert-indent "// Beginning of automatic outputs (every signal)\n") 11143 (verilog-insert-indent "// Beginning of automatic outputs (every signal)\n")
10377 (verilog-insert-definition sig-list "output" indent-pt v2k) 11144 (verilog-insert-definition modi sig-list "output" indent-pt v2k)
10378 (verilog-modi-cache-add-outputs modi sig-list)
10379 (verilog-insert-indent "// End of automatics\n")) 11145 (verilog-insert-indent "// End of automatics\n"))
10380 (when v2k (verilog-repair-close-comma))))) 11146 (when v2k (verilog-repair-close-comma)))))
10381 11147
@@ -10432,7 +11198,7 @@ same expansion will result from only extracting inputs starting with i:
10432 (let* ((indent-pt (current-indentation)) 11198 (let* ((indent-pt (current-indentation))
10433 (regexp (and with-params 11199 (regexp (and with-params
10434 (nth 0 (verilog-read-auto-params 1)))) 11200 (nth 0 (verilog-read-auto-params 1))))
10435 (v2k (verilog-in-paren)) 11201 (v2k (verilog-in-paren-quick))
10436 (modi (verilog-modi-current)) 11202 (modi (verilog-modi-current))
10437 (moddecls (verilog-modi-get-decls modi)) 11203 (moddecls (verilog-modi-get-decls modi))
10438 (modsubdecls (verilog-modi-get-sub-decls modi)) 11204 (modsubdecls (verilog-modi-get-sub-decls modi))
@@ -10440,8 +11206,7 @@ same expansion will result from only extracting inputs starting with i:
10440 (verilog-subdecls-get-inputs modsubdecls) 11206 (verilog-subdecls-get-inputs modsubdecls)
10441 (append (verilog-decls-get-inputs moddecls) 11207 (append (verilog-decls-get-inputs moddecls)
10442 (verilog-decls-get-inouts moddecls) 11208 (verilog-decls-get-inouts moddecls)
10443 (verilog-decls-get-wires moddecls) 11209 (verilog-decls-get-vars moddecls)
10444 (verilog-decls-get-regs moddecls)
10445 (verilog-decls-get-consts moddecls) 11210 (verilog-decls-get-consts moddecls)
10446 (verilog-decls-get-gparams moddecls) 11211 (verilog-decls-get-gparams moddecls)
10447 (verilog-subdecls-get-interfaced modsubdecls) 11212 (verilog-subdecls-get-interfaced modsubdecls)
@@ -10456,8 +11221,7 @@ same expansion will result from only extracting inputs starting with i:
10456 (when v2k (verilog-repair-open-comma)) 11221 (when v2k (verilog-repair-open-comma))
10457 (when sig-list 11222 (when sig-list
10458 (verilog-insert-indent "// Beginning of automatic inputs (from unused autoinst inputs)\n") 11223 (verilog-insert-indent "// Beginning of automatic inputs (from unused autoinst inputs)\n")
10459 (verilog-insert-definition sig-list "input" indent-pt v2k) 11224 (verilog-insert-definition modi sig-list "input" indent-pt v2k)
10460 (verilog-modi-cache-add-inputs modi sig-list)
10461 (verilog-insert-indent "// End of automatics\n")) 11225 (verilog-insert-indent "// End of automatics\n"))
10462 (when v2k (verilog-repair-close-comma))))) 11226 (when v2k (verilog-repair-close-comma)))))
10463 11227
@@ -10514,7 +11278,7 @@ same expansion will result from only extracting inouts starting with i:
10514 (let* ((indent-pt (current-indentation)) 11278 (let* ((indent-pt (current-indentation))
10515 (regexp (and with-params 11279 (regexp (and with-params
10516 (nth 0 (verilog-read-auto-params 1)))) 11280 (nth 0 (verilog-read-auto-params 1))))
10517 (v2k (verilog-in-paren)) 11281 (v2k (verilog-in-paren-quick))
10518 (modi (verilog-modi-current)) 11282 (modi (verilog-modi-current))
10519 (moddecls (verilog-modi-get-decls modi)) 11283 (moddecls (verilog-modi-get-decls modi))
10520 (modsubdecls (verilog-modi-get-sub-decls modi)) 11284 (modsubdecls (verilog-modi-get-sub-decls modi))
@@ -10534,18 +11298,18 @@ same expansion will result from only extracting inouts starting with i:
10534 (when v2k (verilog-repair-open-comma)) 11298 (when v2k (verilog-repair-open-comma))
10535 (when sig-list 11299 (when sig-list
10536 (verilog-insert-indent "// Beginning of automatic inouts (from unused autoinst inouts)\n") 11300 (verilog-insert-indent "// Beginning of automatic inouts (from unused autoinst inouts)\n")
10537 (verilog-insert-definition sig-list "inout" indent-pt v2k) 11301 (verilog-insert-definition modi sig-list "inout" indent-pt v2k)
10538 (verilog-modi-cache-add-inouts modi sig-list)
10539 (verilog-insert-indent "// End of automatics\n")) 11302 (verilog-insert-indent "// End of automatics\n"))
10540 (when v2k (verilog-repair-close-comma))))) 11303 (when v2k (verilog-repair-close-comma)))))
10541 11304
10542(defun verilog-auto-inout-module (&optional complement) 11305(defun verilog-auto-inout-module (&optional complement all-in)
10543 "Expand AUTOINOUTMODULE statements, as part of \\[verilog-auto]. 11306 "Expand AUTOINOUTMODULE statements, as part of \\[verilog-auto].
10544Take input/output/inout statements from the specified module and insert 11307Take input/output/inout statements from the specified module and insert
10545into the current module. This is useful for making null templates and 11308into the current module. This is useful for making null templates and
10546shell modules which need to have identical I/O with another module. 11309shell modules which need to have identical I/O with another module.
10547Any I/O which are already defined in this module will not be redefined. 11310Any I/O which are already defined in this module will not be redefined.
10548For the complement of this function, see `verilog-auto-inout-comp'. 11311For the complement of this function, see `verilog-auto-inout-comp',
11312and to make monitors with all inputs, see `verilog-auto-inout-in'.
10549 11313
10550Limitations: 11314Limitations:
10551 If placed inside the parenthesis of a module declaration, it creates 11315 If placed inside the parenthesis of a module declaration, it creates
@@ -10610,22 +11374,29 @@ against the previous example's module:
10610 ;; Note this may raise an error 11374 ;; Note this may raise an error
10611 (when (setq submodi (verilog-modi-lookup submod t)) 11375 (when (setq submodi (verilog-modi-lookup submod t))
10612 (let* ((indent-pt (current-indentation)) 11376 (let* ((indent-pt (current-indentation))
10613 (v2k (verilog-in-paren)) 11377 (v2k (verilog-in-paren-quick))
10614 (modi (verilog-modi-current)) 11378 (modi (verilog-modi-current))
10615 (moddecls (verilog-modi-get-decls modi)) 11379 (moddecls (verilog-modi-get-decls modi))
10616 (submoddecls (verilog-modi-get-decls submodi)) 11380 (submoddecls (verilog-modi-get-decls submodi))
10617 (sig-list-i (verilog-signals-not-in 11381 (sig-list-i (verilog-signals-not-in
10618 (if complement 11382 (cond (all-in
10619 (verilog-decls-get-outputs submoddecls) 11383 (append
10620 (verilog-decls-get-inputs submoddecls)) 11384 (verilog-decls-get-inputs submoddecls)
11385 (verilog-decls-get-inouts submoddecls)
11386 (verilog-decls-get-outputs submoddecls)))
11387 (complement
11388 (verilog-decls-get-outputs submoddecls))
11389 (t (verilog-decls-get-inputs submoddecls)))
10621 (append (verilog-decls-get-inputs moddecls)))) 11390 (append (verilog-decls-get-inputs moddecls))))
10622 (sig-list-o (verilog-signals-not-in 11391 (sig-list-o (verilog-signals-not-in
10623 (if complement 11392 (cond (all-in nil)
10624 (verilog-decls-get-inputs submoddecls) 11393 (complement
10625 (verilog-decls-get-outputs submoddecls)) 11394 (verilog-decls-get-inputs submoddecls))
11395 (t (verilog-decls-get-outputs submoddecls)))
10626 (append (verilog-decls-get-outputs moddecls)))) 11396 (append (verilog-decls-get-outputs moddecls))))
10627 (sig-list-io (verilog-signals-not-in 11397 (sig-list-io (verilog-signals-not-in
10628 (verilog-decls-get-inouts submoddecls) 11398 (cond (all-in nil)
11399 (t (verilog-decls-get-inouts submoddecls)))
10629 (append (verilog-decls-get-inouts moddecls)))) 11400 (append (verilog-decls-get-inouts moddecls))))
10630 (sig-list-if (verilog-signals-not-in 11401 (sig-list-if (verilog-signals-not-in
10631 (verilog-decls-get-interfaces submoddecls) 11402 (verilog-decls-get-interfaces submoddecls)
@@ -10647,13 +11418,10 @@ against the previous example's module:
10647 (when (or sig-list-i sig-list-o sig-list-io) 11418 (when (or sig-list-i sig-list-o sig-list-io)
10648 (verilog-insert-indent "// Beginning of automatic in/out/inouts (from specific module)\n") 11419 (verilog-insert-indent "// Beginning of automatic in/out/inouts (from specific module)\n")
10649 ;; Don't sort them so a upper AUTOINST will match the main module 11420 ;; Don't sort them so a upper AUTOINST will match the main module
10650 (verilog-insert-definition sig-list-o "output" indent-pt v2k t) 11421 (verilog-insert-definition modi sig-list-o "output" indent-pt v2k t)
10651 (verilog-insert-definition sig-list-io "inout" indent-pt v2k t) 11422 (verilog-insert-definition modi sig-list-io "inout" indent-pt v2k t)
10652 (verilog-insert-definition sig-list-i "input" indent-pt v2k t) 11423 (verilog-insert-definition modi sig-list-i "input" indent-pt v2k t)
10653 (verilog-insert-definition sig-list-if "interface" indent-pt v2k t) 11424 (verilog-insert-definition modi sig-list-if "interface" indent-pt v2k t)
10654 (verilog-modi-cache-add-inputs modi sig-list-i)
10655 (verilog-modi-cache-add-outputs modi sig-list-o)
10656 (verilog-modi-cache-add-inouts modi sig-list-io)
10657 (verilog-insert-indent "// End of automatics\n")) 11425 (verilog-insert-indent "// End of automatics\n"))
10658 (when v2k (verilog-repair-close-comma))))))) 11426 (when v2k (verilog-repair-close-comma)))))))
10659 11427
@@ -10707,7 +11475,58 @@ signals matching the regular expression will be included. For example the
10707same expansion will result from only extracting signals starting with i: 11475same expansion will result from only extracting signals starting with i:
10708 11476
10709 /*AUTOINOUTCOMP(\"ExampMain\",\"^i\")*/" 11477 /*AUTOINOUTCOMP(\"ExampMain\",\"^i\")*/"
10710 (verilog-auto-inout-module t)) 11478 (verilog-auto-inout-module t nil))
11479
11480(defun verilog-auto-inout-in ()
11481 "Expand AUTOINOUTIN statements, as part of \\[verilog-auto].
11482Take input/output/inout statements from the specified module and
11483insert them as all inputs into the current module. This is
11484useful for making monitor modules which need to see all signals
11485as inputs based on another module. Any I/O which are already
11486defined in this module will not be redefined. See also
11487`verilog-auto-inout-module'.
11488
11489Limitations:
11490 If placed inside the parenthesis of a module declaration, it creates
11491 Verilog 2001 style, else uses Verilog 1995 style.
11492
11493 Concatenation and outputting partial busses is not supported.
11494
11495 Module names must be resolvable to filenames. See `verilog-auto-inst'.
11496
11497 Signals are not inserted in the same order as in the original module,
11498 though they will appear to be in the same order to a AUTOINST
11499 instantiating either module.
11500
11501An example:
11502
11503 module ExampShell (/*AUTOARG*/);
11504 /*AUTOINOUTIN(\"ExampMain\")*/
11505 endmodule
11506
11507 module ExampMain (i,o,io);
11508 input i;
11509 output o;
11510 inout io;
11511 endmodule
11512
11513Typing \\[verilog-auto] will make this into:
11514
11515 module ExampShell (/*AUTOARG*/i,o,io);
11516 /*AUTOINOUTIN(\"ExampMain\")*/
11517 // Beginning of automatic in/out/inouts (from specific module)
11518 input i;
11519 input io;
11520 input o;
11521 // End of automatics
11522 endmodule
11523
11524You may also provide an optional regular expression, in which case only
11525signals matching the regular expression will be included. For example the
11526same expansion will result from only extracting signals starting with i:
11527
11528 /*AUTOINOUTCOMP(\"ExampMain\",\"^i\")*/"
11529 (verilog-auto-inout-module nil t))
10711 11530
10712(defun verilog-auto-insert-lisp () 11531(defun verilog-auto-insert-lisp ()
10713 "Expand AUTOINSERTLISP statements, as part of \\[verilog-auto]. 11532 "Expand AUTOINSERTLISP statements, as part of \\[verilog-auto].
@@ -10756,7 +11575,7 @@ text:
10756 (forward-char) 11575 (forward-char)
10757 (point))) ;; Closing paren 11576 (point))) ;; Closing paren
10758 (cmd-beg-pt (save-excursion (goto-char cmd-end-pt) 11577 (cmd-beg-pt (save-excursion (goto-char cmd-end-pt)
10759 (backward-sexp 1) 11578 (backward-sexp 1) ;; Inside comment
10760 (point))) ;; Beginning paren 11579 (point))) ;; Beginning paren
10761 (cmd (buffer-substring-no-properties cmd-beg-pt cmd-end-pt))) 11580 (cmd (buffer-substring-no-properties cmd-beg-pt cmd-end-pt)))
10762 (forward-line 1) 11581 (forward-line 1)
@@ -10776,7 +11595,9 @@ text:
10776 (sig-list (verilog-signals-not-params 11595 (sig-list (verilog-signals-not-params
10777 (verilog-signals-not-in (verilog-alw-get-inputs sigss) 11596 (verilog-signals-not-in (verilog-alw-get-inputs sigss)
10778 (append (and (not verilog-auto-sense-include-inputs) 11597 (append (and (not verilog-auto-sense-include-inputs)
10779 (verilog-alw-get-outputs sigss)) 11598 (verilog-alw-get-outputs-delayed sigss))
11599 (and (not verilog-auto-sense-include-inputs)
11600 (verilog-alw-get-outputs-immediate sigss))
10780 (verilog-alw-get-temps sigss) 11601 (verilog-alw-get-temps sigss)
10781 (verilog-decls-get-consts moddecls) 11602 (verilog-decls-get-consts moddecls)
10782 (verilog-decls-get-gparams moddecls) 11603 (verilog-decls-get-gparams moddecls)
@@ -10840,7 +11661,7 @@ operator. (This was added to the language in part due to AUTOSENSE!)
10840 (save-excursion 11661 (save-excursion
10841 ;; Find beginning 11662 ;; Find beginning
10842 (let* ((start-pt (save-excursion 11663 (let* ((start-pt (save-excursion
10843 (verilog-re-search-backward "(" nil t) 11664 (verilog-re-search-backward-quick "(" nil t)
10844 (point))) 11665 (point)))
10845 (indent-pt (save-excursion 11666 (indent-pt (save-excursion
10846 (or (and (goto-char start-pt) (1+ (current-column))) 11667 (or (and (goto-char start-pt) (1+ (current-column)))
@@ -10848,9 +11669,7 @@ operator. (This was added to the language in part due to AUTOSENSE!)
10848 (modi (verilog-modi-current)) 11669 (modi (verilog-modi-current))
10849 (moddecls (verilog-modi-get-decls modi)) 11670 (moddecls (verilog-modi-get-decls modi))
10850 (sig-memories (verilog-signals-memory 11671 (sig-memories (verilog-signals-memory
10851 (append 11672 (verilog-decls-get-vars moddecls)))
10852 (verilog-decls-get-regs moddecls)
10853 (verilog-decls-get-wires moddecls))))
10854 sig-list not-first presense-sigs) 11673 sig-list not-first presense-sigs)
10855 ;; Read signals in always, eliminate outputs from sense list 11674 ;; Read signals in always, eliminate outputs from sense list
10856 (setq presense-sigs (verilog-signals-from-signame 11675 (setq presense-sigs (verilog-signals-from-signame
@@ -10863,11 +11682,11 @@ operator. (This was added to the language in part due to AUTOSENSE!)
10863 (if (not (eq tlen (length sig-list))) (verilog-insert " /*memory or*/ ")))) 11682 (if (not (eq tlen (length sig-list))) (verilog-insert " /*memory or*/ "))))
10864 (if (and presense-sigs ;; Add a "or" if not "(.... or /*AUTOSENSE*/" 11683 (if (and presense-sigs ;; Add a "or" if not "(.... or /*AUTOSENSE*/"
10865 (save-excursion (goto-char (point)) 11684 (save-excursion (goto-char (point))
10866 (verilog-re-search-backward "[a-zA-Z0-9$_.%`]+" start-pt t) 11685 (verilog-re-search-backward-quick "[a-zA-Z0-9$_.%`]+" start-pt t)
10867 (verilog-re-search-backward "\\s-" start-pt t) 11686 (verilog-re-search-backward-quick "\\s-" start-pt t)
10868 (while (looking-at "\\s-`endif") 11687 (while (looking-at "\\s-`endif")
10869 (verilog-re-search-backward "[a-zA-Z0-9$_.%`]+" start-pt t) 11688 (verilog-re-search-backward-quick "[a-zA-Z0-9$_.%`]+" start-pt t)
10870 (verilog-re-search-backward "\\s-" start-pt t)) 11689 (verilog-re-search-backward-quick "\\s-" start-pt t))
10871 (not (looking-at "\\s-or\\b")))) 11690 (not (looking-at "\\s-or\\b"))))
10872 (setq not-first t)) 11691 (setq not-first t))
10873 (setq sig-list (sort sig-list `verilog-signals-sort-compare)) 11692 (setq sig-list (sort sig-list `verilog-signals-sort-compare))
@@ -10889,9 +11708,13 @@ registers set elsewhere in the always block.
10889Limitations: 11708Limitations:
10890 AUTORESET will not clear memories. 11709 AUTORESET will not clear memories.
10891 11710
10892 AUTORESET uses <= if there are any <= assignments in the block, 11711 AUTORESET uses <= if the signal has a <= assignment in the block,
10893 else it uses =. 11712 else it uses =.
10894 11713
11714 If <= is used, all = assigned variables are ignored if
11715 `verilog-auto-reset-blocking-in-non' is nil; they are presumed
11716 to be temporaries.
11717
10895/*AUTORESET*/ presumes that any signals mentioned between the previous 11718/*AUTORESET*/ presumes that any signals mentioned between the previous
10896begin/case/if statement and the AUTORESET comment are being reset manually 11719begin/case/if statement and the AUTORESET comment are being reset manually
10897and should not be automatically reset. This includes omitting any signals 11720and should not be automatically reset. This includes omitting any signals
@@ -10927,12 +11750,12 @@ Typing \\[verilog-auto] will make this into:
10927 /*AUTORESET*/ 11750 /*AUTORESET*/
10928 // Beginning of autoreset for uninitialized flops 11751 // Beginning of autoreset for uninitialized flops
10929 a <= 0; 11752 a <= 0;
10930 b <= 0; 11753 b = 0; // if `verilog-auto-reset-blocking-in-non' true
10931 // End of automatics 11754 // End of automatics
10932 end 11755 end
10933 else begin 11756 else begin
10934 a <= in_a; 11757 a <= in_a;
10935 b <= in_b; 11758 b = in_b;
10936 c <= in_c; 11759 c <= in_c;
10937 end 11760 end
10938 end" 11761 end"
@@ -10944,22 +11767,24 @@ Typing \\[verilog-auto] will make this into:
10944 (modi (verilog-modi-current)) 11767 (modi (verilog-modi-current))
10945 (moddecls (verilog-modi-get-decls modi)) 11768 (moddecls (verilog-modi-get-decls modi))
10946 (all-list (verilog-decls-get-signals moddecls)) 11769 (all-list (verilog-decls-get-signals moddecls))
10947 sigss sig-list prereset-sigs assignment-str) 11770 sigss sig-list dly-list prereset-sigs)
10948 ;; Read signals in always, eliminate outputs from reset list 11771 ;; Read signals in always, eliminate outputs from reset list
10949 (setq prereset-sigs (verilog-signals-from-signame 11772 (setq prereset-sigs (verilog-signals-from-signame
10950 (save-excursion 11773 (save-excursion
10951 (verilog-read-signals 11774 (verilog-read-signals
10952 (save-excursion 11775 (save-excursion
10953 (verilog-re-search-backward "\\(@\\|\\<begin\\>\\|\\<if\\>\\|\\<case\\>\\)" nil t) 11776 (verilog-re-search-backward-quick "\\(@\\|\\<begin\\>\\|\\<if\\>\\|\\<case\\>\\)" nil t)
10954 (point)) 11777 (point))
10955 (point))))) 11778 (point)))))
10956 (save-excursion 11779 (save-excursion
10957 (verilog-re-search-backward "@" nil t) 11780 (verilog-re-search-backward-quick "@" nil t)
10958 (setq sigss (verilog-read-always-signals))) 11781 (setq sigss (verilog-read-always-signals)))
10959 (setq assignment-str (if (verilog-alw-get-uses-delayed sigss) 11782 (setq dly-list (verilog-alw-get-outputs-delayed sigss))
10960 (concat " <= " verilog-assignment-delay) 11783 (setq sig-list (verilog-signals-not-in (append
10961 " = ")) 11784 (verilog-alw-get-outputs-delayed sigss)
10962 (setq sig-list (verilog-signals-not-in (verilog-alw-get-outputs sigss) 11785 (when (or (not (verilog-alw-get-uses-delayed sigss))
11786 verilog-auto-reset-blocking-in-non)
11787 (verilog-alw-get-outputs-immediate sigss)))
10963 (append 11788 (append
10964 (verilog-alw-get-temps sigss) 11789 (verilog-alw-get-temps sigss)
10965 prereset-sigs))) 11790 prereset-sigs)))
@@ -10967,17 +11792,18 @@ Typing \\[verilog-auto] will make this into:
10967 (when sig-list 11792 (when sig-list
10968 (insert "\n"); 11793 (insert "\n");
10969 (verilog-insert-indent "// Beginning of autoreset for uninitialized flops\n"); 11794 (verilog-insert-indent "// Beginning of autoreset for uninitialized flops\n");
10970 (indent-to indent-pt)
10971 (while sig-list 11795 (while sig-list
10972 (let ((sig (or (assoc (verilog-sig-name (car sig-list)) all-list) ;; As sig-list has no widths 11796 (let ((sig (or (assoc (verilog-sig-name (car sig-list)) all-list) ;; As sig-list has no widths
10973 (car sig-list)))) 11797 (car sig-list))))
11798 (indent-to indent-pt)
10974 (insert (verilog-sig-name sig) 11799 (insert (verilog-sig-name sig)
10975 assignment-str 11800 (if (assoc (verilog-sig-name sig) dly-list)
11801 (concat " <= " verilog-assignment-delay)
11802 " = ")
10976 (verilog-sig-tieoff sig (not verilog-auto-reset-widths)) 11803 (verilog-sig-tieoff sig (not verilog-auto-reset-widths))
10977 ";\n") 11804 ";\n")
10978 (indent-to indent-pt)
10979 (setq sig-list (cdr sig-list)))) 11805 (setq sig-list (cdr sig-list))))
10980 (verilog-insert "// End of automatics"))))) 11806 (verilog-insert-indent "// End of automatics")))))
10981 11807
10982(defun verilog-auto-tieoff () 11808(defun verilog-auto-tieoff ()
10983 "Expand AUTOTIEOFF statements, as part of \\[verilog-auto]. 11809 "Expand AUTOTIEOFF statements, as part of \\[verilog-auto].
@@ -10996,6 +11822,9 @@ them to a one.
10996You can add signals you do not want included in AUTOTIEOFF with 11822You can add signals you do not want included in AUTOTIEOFF with
10997`verilog-auto-tieoff-ignore-regexp'. 11823`verilog-auto-tieoff-ignore-regexp'.
10998 11824
11825`verilog-auto-wire-type' may be used to change the datatype of
11826the declarations.
11827
10999An example of making a stub for another module: 11828An example of making a stub for another module:
11000 11829
11001 module ExampStub (/*AUTOINST*/); 11830 module ExampStub (/*AUTOINST*/);
@@ -11031,8 +11860,7 @@ Typing \\[verilog-auto] will make this into:
11031 (modsubdecls (verilog-modi-get-sub-decls modi)) 11860 (modsubdecls (verilog-modi-get-sub-decls modi))
11032 (sig-list (verilog-signals-not-in 11861 (sig-list (verilog-signals-not-in
11033 (verilog-decls-get-outputs moddecls) 11862 (verilog-decls-get-outputs moddecls)
11034 (append (verilog-decls-get-wires moddecls) 11863 (append (verilog-decls-get-vars moddecls)
11035 (verilog-decls-get-regs moddecls)
11036 (verilog-decls-get-assigns moddecls) 11864 (verilog-decls-get-assigns moddecls)
11037 (verilog-decls-get-consts moddecls) 11865 (verilog-decls-get-consts moddecls)
11038 (verilog-decls-get-gparams moddecls) 11866 (verilog-decls-get-gparams moddecls)
@@ -11045,10 +11873,14 @@ Typing \\[verilog-auto] will make this into:
11045 (forward-line 1) 11873 (forward-line 1)
11046 (verilog-insert-indent "// Beginning of automatic tieoffs (for this module's unterminated outputs)\n") 11874 (verilog-insert-indent "// Beginning of automatic tieoffs (for this module's unterminated outputs)\n")
11047 (setq sig-list (sort (copy-alist sig-list) `verilog-signals-sort-compare)) 11875 (setq sig-list (sort (copy-alist sig-list) `verilog-signals-sort-compare))
11048 (verilog-modi-cache-add-wires modi sig-list) ; Before we trash list 11876 (verilog-modi-cache-add-vars modi sig-list) ; Before we trash list
11049 (while sig-list 11877 (while sig-list
11050 (let ((sig (car sig-list))) 11878 (let ((sig (car sig-list)))
11051 (verilog-insert-one-definition sig "wire" indent-pt) 11879 (cond ((equal verilog-auto-tieoff-declaration "assign")
11880 (indent-to indent-pt)
11881 (insert "assign " (verilog-sig-name sig)))
11882 (t
11883 (verilog-insert-one-definition sig verilog-auto-tieoff-declaration indent-pt)))
11052 (indent-to (max 48 (+ indent-pt 40))) 11884 (indent-to (max 48 (+ indent-pt 40)))
11053 (insert "= " (verilog-sig-tieoff sig) 11885 (insert "= " (verilog-sig-tieoff sig)
11054 ";\n") 11886 ";\n")
@@ -11151,24 +11983,28 @@ comment. The comment must be between the keyword and the symbol.
11151\(Annoying, but that's what Synopsys's dc_shell FSM reader requires.) 11983\(Annoying, but that's what Synopsys's dc_shell FSM reader requires.)
11152 11984
11153Next, registers which that enum applies to are also tagged with the same 11985Next, registers which that enum applies to are also tagged with the same
11154enum. Synopsys also suggests labeling state vectors, but `verilog-mode' 11986enum.
11155doesn't care.
11156 11987
11157Finally, a AUTOASCIIENUM command is used. 11988Finally, a AUTOASCIIENUM command is used.
11158 11989
11159 The first parameter is the name of the signal to be decoded. 11990 The first parameter is the name of the signal to be decoded.
11160 If and only if the first parameter width is 2^(number of states
11161 in enum) and does NOT match the width of the enum, the signal
11162 is assumed to be a one hot decode. Otherwise, it's a normal
11163 encoded state vector.
11164 11991
11165 The second parameter is the name to store the ASCII code into. For the 11992 The second parameter is the name to store the ASCII code into. For the
11166 signal foo, I suggest the name _foo__ascii, where the leading _ indicates 11993 signal foo, I suggest the name _foo__ascii, where the leading _ indicates
11167 a signal that is just for simulation, and the magic characters _ascii 11994 a signal that is just for simulation, and the magic characters _ascii
11168 tell viewers like Dinotrace to display in ASCII format. 11995 tell viewers like Dinotrace to display in ASCII format.
11169 11996
11170 The final optional parameter is a string which will be removed from the 11997 The third optional parameter is a string which will be removed
11171 state names. 11998 from the state names. It defaults to "" which removes nothing.
11999
12000 The fourth optional parameter is \"onehot\" to force one-hot
12001 decoding. If unspecified, if and only if the first parameter
12002 width is 2^(number of states in enum) and does NOT match the
12003 width of the enum, the signal is assumed to be a one hot
12004 decode. Otherwise, it's a normal encoded state vector.
12005
12006 `verilog-auto-wire-type' may be used to change the datatype of
12007 the declarations.
11172 12008
11173An example: 12009An example:
11174 12010
@@ -11202,10 +12038,13 @@ Typing \\[verilog-auto] will make this into:
11202 end 12038 end
11203 // End of automatics" 12039 // End of automatics"
11204 (save-excursion 12040 (save-excursion
11205 (let* ((params (verilog-read-auto-params 2 3)) 12041 (let* ((params (verilog-read-auto-params 2 4))
11206 (undecode-name (nth 0 params)) 12042 (undecode-name (nth 0 params))
11207 (ascii-name (nth 1 params)) 12043 (ascii-name (nth 1 params))
11208 (elim-regexp (nth 2 params)) 12044 (elim-regexp (and (nth 2 params)
12045 (not (equal (nth 2 params) ""))
12046 (nth 2 params)))
12047 (one-hot-flag (nth 3 params))
11209 ;; 12048 ;;
11210 (indent-pt (current-indentation)) 12049 (indent-pt (current-indentation))
11211 (modi (verilog-modi-current)) 12050 (modi (verilog-modi-current))
@@ -11213,11 +12052,10 @@ Typing \\[verilog-auto] will make this into:
11213 ;; 12052 ;;
11214 (sig-list-consts (append (verilog-decls-get-consts moddecls) 12053 (sig-list-consts (append (verilog-decls-get-consts moddecls)
11215 (verilog-decls-get-gparams moddecls))) 12054 (verilog-decls-get-gparams moddecls)))
11216 (sig-list-all (append (verilog-decls-get-regs moddecls) 12055 (sig-list-all (append (verilog-decls-get-vars moddecls)
11217 (verilog-decls-get-outputs moddecls) 12056 (verilog-decls-get-outputs moddecls)
11218 (verilog-decls-get-inouts moddecls) 12057 (verilog-decls-get-inouts moddecls)
11219 (verilog-decls-get-inputs moddecls) 12058 (verilog-decls-get-inputs moddecls)))
11220 (verilog-decls-get-wires moddecls)))
11221 ;; 12059 ;;
11222 (undecode-sig (or (assoc undecode-name sig-list-all) 12060 (undecode-sig (or (assoc undecode-name sig-list-all)
11223 (error "%s: Signal %s not found in design" (verilog-point-text) undecode-name))) 12061 (error "%s: Signal %s not found in design" (verilog-point-text) undecode-name)))
@@ -11229,13 +12067,15 @@ Typing \\[verilog-auto] will make this into:
11229 (error "%s: No state definitions for %s" (verilog-point-text) undecode-enum)) 12067 (error "%s: No state definitions for %s" (verilog-point-text) undecode-enum))
11230 nil)) 12068 nil))
11231 ;; 12069 ;;
11232 (one-hot (and ;; width(enum) != width(sig) 12070 (one-hot (or
11233 (or (not (verilog-sig-bits (car enum-sigs))) 12071 (string-match "onehot" (or one-hot-flag ""))
11234 (not (equal (verilog-sig-width (car enum-sigs)) 12072 (and ;; width(enum) != width(sig)
11235 (verilog-sig-width undecode-sig)))) 12073 (or (not (verilog-sig-bits (car enum-sigs)))
11236 ;; count(enums) == width(sig) 12074 (not (equal (verilog-sig-width (car enum-sigs))
11237 (equal (number-to-string (length enum-sigs)) 12075 (verilog-sig-width undecode-sig))))
11238 (verilog-sig-width undecode-sig)))) 12076 ;; count(enums) == width(sig)
12077 (equal (number-to-string (length enum-sigs))
12078 (verilog-sig-width undecode-sig)))))
11239 (enum-chars 0) 12079 (enum-chars 0)
11240 (ascii-chars 0)) 12080 (ascii-chars 0))
11241 ;; 12081 ;;
@@ -11252,13 +12092,11 @@ Typing \\[verilog-auto] will make this into:
11252 (verilog-insert-indent "// Beginning of automatic ASCII enum decoding\n") 12092 (verilog-insert-indent "// Beginning of automatic ASCII enum decoding\n")
11253 (let ((decode-sig-list (list (list ascii-name (format "[%d:0]" (- (* ascii-chars 8) 1)) 12093 (let ((decode-sig-list (list (list ascii-name (format "[%d:0]" (- (* ascii-chars 8) 1))
11254 (concat "Decode of " undecode-name) nil nil)))) 12094 (concat "Decode of " undecode-name) nil nil))))
11255 (verilog-insert-definition decode-sig-list "reg" indent-pt nil) 12095 (verilog-insert-definition modi decode-sig-list "reg" indent-pt nil))
11256 (verilog-modi-cache-add-regs modi decode-sig-list))
11257 ;; 12096 ;;
11258 (verilog-insert-indent "always @(" undecode-name ") begin\n") 12097 (verilog-insert-indent "always @(" undecode-name ") begin\n")
11259 (setq indent-pt (+ indent-pt verilog-indent-level)) 12098 (setq indent-pt (+ indent-pt verilog-indent-level))
11260 (indent-to indent-pt) 12099 (verilog-insert-indent "case ({" undecode-name "})\n")
11261 (insert "case ({" undecode-name "})\n")
11262 (setq indent-pt (+ indent-pt verilog-case-indent)) 12100 (setq indent-pt (+ indent-pt verilog-case-indent))
11263 ;; 12101 ;;
11264 (let ((tmp-sigs enum-sigs) 12102 (let ((tmp-sigs enum-sigs)
@@ -11271,7 +12109,9 @@ Typing \\[verilog-auto] will make this into:
11271 (concat 12109 (concat
11272 (format chrfmt 12110 (format chrfmt
11273 (concat (if one-hot "(") 12111 (concat (if one-hot "(")
11274 (if one-hot (verilog-sig-width undecode-sig)) 12112 ;; Use enum-sigs length as that's numeric
12113 ;; verilog-sig-width undecode-sig might not be.
12114 (if one-hot (number-to-string (length enum-sigs)))
11275 ;; We use a shift instead of var[index] 12115 ;; We use a shift instead of var[index]
11276 ;; so that a non-one hot value will show as error. 12116 ;; so that a non-one hot value will show as error.
11277 (if one-hot "'b1<<") 12117 (if one-hot "'b1<<")
@@ -11326,6 +12166,8 @@ following the /*AUTO...*/ command.
11326 12166
11327Use \\[verilog-delete-auto] to remove the AUTOs. 12167Use \\[verilog-delete-auto] to remove the AUTOs.
11328 12168
12169Use \\[verilog-diff-auto] to see differences in AUTO expansion.
12170
11329Use \\[verilog-inject-auto] to insert AUTOs for the first time. 12171Use \\[verilog-inject-auto] to insert AUTOs for the first time.
11330 12172
11331Use \\[verilog-faq] for a pointer to frequently asked questions. 12173Use \\[verilog-faq] for a pointer to frequently asked questions.
@@ -11348,11 +12190,14 @@ Or fix indentation with:
11348Likewise, you can delete or inject AUTOs with: 12190Likewise, you can delete or inject AUTOs with:
11349 emacs --batch <filenames.v> -f verilog-batch-delete-auto 12191 emacs --batch <filenames.v> -f verilog-batch-delete-auto
11350 emacs --batch <filenames.v> -f verilog-batch-inject-auto 12192 emacs --batch <filenames.v> -f verilog-batch-inject-auto
12193Or check if AUTOs have the same expansion
12194 emacs --batch <filenames.v> -f verilog-batch-diff-auto
11351 12195
11352Using \\[describe-function], see also: 12196Using \\[describe-function], see also:
11353 `verilog-auto-arg' for AUTOARG module instantiations 12197 `verilog-auto-arg' for AUTOARG module instantiations
11354 `verilog-auto-ascii-enum' for AUTOASCIIENUM enumeration decoding 12198 `verilog-auto-ascii-enum' for AUTOASCIIENUM enumeration decoding
11355 `verilog-auto-inout-comp' for AUTOINOUTCOMP copy complemented i/o 12199 `verilog-auto-inout-comp' for AUTOINOUTCOMP copy complemented i/o
12200 `verilog-auto-inout-in' for AUTOINOUTIN inputs for all i/o
11356 `verilog-auto-inout-module' for AUTOINOUTMODULE copying i/o from elsewhere 12201 `verilog-auto-inout-module' for AUTOINOUTMODULE copying i/o from elsewhere
11357 `verilog-auto-inout' for AUTOINOUT making hierarchy inouts 12202 `verilog-auto-inout' for AUTOINOUT making hierarchy inouts
11358 `verilog-auto-input' for AUTOINPUT making hierarchy inputs 12203 `verilog-auto-input' for AUTOINPUT making hierarchy inputs
@@ -11360,6 +12205,7 @@ Using \\[describe-function], see also:
11360 `verilog-auto-inst' for AUTOINST instantiation pins 12205 `verilog-auto-inst' for AUTOINST instantiation pins
11361 `verilog-auto-star' for AUTOINST .* SystemVerilog pins 12206 `verilog-auto-star' for AUTOINST .* SystemVerilog pins
11362 `verilog-auto-inst-param' for AUTOINSTPARAM instantiation params 12207 `verilog-auto-inst-param' for AUTOINSTPARAM instantiation params
12208 `verilog-auto-logic' for AUTOLOGIC declaring logic signals
11363 `verilog-auto-output' for AUTOOUTPUT making hierarchy outputs 12209 `verilog-auto-output' for AUTOOUTPUT making hierarchy outputs
11364 `verilog-auto-output-every' for AUTOOUTPUTEVERY making all outputs 12210 `verilog-auto-output-every' for AUTOOUTPUTEVERY making all outputs
11365 `verilog-auto-reg' for AUTOREG registers 12211 `verilog-auto-reg' for AUTOREG registers
@@ -11402,10 +12248,13 @@ Wilson Snyder (wsnyder@wsnyder.org)."
11402 (verilog-save-no-change-functions 12248 (verilog-save-no-change-functions
11403 (verilog-save-scan-cache 12249 (verilog-save-scan-cache
11404 (save-excursion 12250 (save-excursion
12251 ;; Wipe cache; otherwise if we AUTOed a block above this one,
12252 ;; we'll misremember we have generated IOs, confusing AUTOOUTPUT
12253 (setq verilog-modi-cache-list nil)
11405 ;; If we're not in verilog-mode, change syntax table so parsing works right 12254 ;; If we're not in verilog-mode, change syntax table so parsing works right
11406 (unless (eq major-mode `verilog-mode) (verilog-mode)) 12255 (unless (eq major-mode `verilog-mode) (verilog-mode))
11407 ;; Allow user to customize 12256 ;; Allow user to customize
11408 (run-hooks 'verilog-before-auto-hook) 12257 (verilog-run-hooks 'verilog-before-auto-hook)
11409 ;; Try to save the user from needing to revert-file to reread file local-variables 12258 ;; Try to save the user from needing to revert-file to reread file local-variables
11410 (verilog-auto-reeval-locals) 12259 (verilog-auto-reeval-locals)
11411 (verilog-read-auto-lisp-present) 12260 (verilog-read-auto-lisp-present)
@@ -11445,6 +12294,7 @@ Wilson Snyder (wsnyder@wsnyder.org)."
11445 ;; first in/outs from other files 12294 ;; first in/outs from other files
11446 (verilog-auto-re-search-do "/\\*AUTOINOUTMODULE([^)]*)\\*/" 'verilog-auto-inout-module) 12295 (verilog-auto-re-search-do "/\\*AUTOINOUTMODULE([^)]*)\\*/" 'verilog-auto-inout-module)
11447 (verilog-auto-re-search-do "/\\*AUTOINOUTCOMP([^)]*)\\*/" 'verilog-auto-inout-comp) 12296 (verilog-auto-re-search-do "/\\*AUTOINOUTCOMP([^)]*)\\*/" 'verilog-auto-inout-comp)
12297 (verilog-auto-re-search-do "/\\*AUTOINOUTIN([^)]*)\\*/" 'verilog-auto-inout-in)
11448 ;; next in/outs which need previous sucked inputs first 12298 ;; next in/outs which need previous sucked inputs first
11449 (verilog-auto-re-search-do "/\\*AUTOOUTPUT\\((\"[^\"]*\")\\)\\*/" 12299 (verilog-auto-re-search-do "/\\*AUTOOUTPUT\\((\"[^\"]*\")\\)\\*/"
11450 (lambda () (verilog-auto-output t))) 12300 (lambda () (verilog-auto-output t)))
@@ -11458,6 +12308,7 @@ Wilson Snyder (wsnyder@wsnyder.org)."
11458 ;; Then tie off those in/outs 12308 ;; Then tie off those in/outs
11459 (verilog-auto-re-search-do "/\\*AUTOTIEOFF\\*/" 'verilog-auto-tieoff) 12309 (verilog-auto-re-search-do "/\\*AUTOTIEOFF\\*/" 'verilog-auto-tieoff)
11460 ;; Wires/regs must be after inputs/outputs 12310 ;; Wires/regs must be after inputs/outputs
12311 (verilog-auto-re-search-do "/\\*AUTOLOGIC\\*/" 'verilog-auto-logic)
11461 (verilog-auto-re-search-do "/\\*AUTOWIRE\\*/" 'verilog-auto-wire) 12312 (verilog-auto-re-search-do "/\\*AUTOWIRE\\*/" 'verilog-auto-wire)
11462 (verilog-auto-re-search-do "/\\*AUTOREG\\*/" 'verilog-auto-reg) 12313 (verilog-auto-re-search-do "/\\*AUTOREG\\*/" 'verilog-auto-reg)
11463 (verilog-auto-re-search-do "/\\*AUTOREGINPUT\\*/" 'verilog-auto-reg-input) 12314 (verilog-auto-re-search-do "/\\*AUTOREGINPUT\\*/" 'verilog-auto-reg-input)
@@ -11471,7 +12322,10 @@ Wilson Snyder (wsnyder@wsnyder.org)."
11471 (when verilog-auto-inst-template-numbers 12322 (when verilog-auto-inst-template-numbers
11472 (verilog-auto-templated-rel)))) 12323 (verilog-auto-templated-rel))))
11473 ;; 12324 ;;
11474 (run-hooks 'verilog-auto-hook) 12325 (verilog-run-hooks 'verilog-auto-hook)
12326 ;;
12327 (when verilog-auto-delete-trailing-whitespace
12328 (verilog-delete-trailing-whitespace))
11475 ;; 12329 ;;
11476 (set (make-local-variable 'verilog-auto-update-tick) (buffer-chars-modified-tick)) 12330 (set (make-local-variable 'verilog-auto-update-tick) (buffer-chars-modified-tick))
11477 ;; 12331 ;;
@@ -11502,10 +12356,12 @@ Wilson Snyder (wsnyder@wsnyder.org)."
11502 (define-key map "i" 'verilog-sk-initial) 12356 (define-key map "i" 'verilog-sk-initial)
11503 (define-key map "j" 'verilog-sk-fork) 12357 (define-key map "j" 'verilog-sk-fork)
11504 (define-key map "m" 'verilog-sk-module) 12358 (define-key map "m" 'verilog-sk-module)
12359 (define-key map "o" 'verilog-sk-ovm-class)
11505 (define-key map "p" 'verilog-sk-primitive) 12360 (define-key map "p" 'verilog-sk-primitive)
11506 (define-key map "r" 'verilog-sk-repeat) 12361 (define-key map "r" 'verilog-sk-repeat)
11507 (define-key map "s" 'verilog-sk-specify) 12362 (define-key map "s" 'verilog-sk-specify)
11508 (define-key map "t" 'verilog-sk-task) 12363 (define-key map "t" 'verilog-sk-task)
12364 (define-key map "u" 'verilog-sk-uvm-class)
11509 (define-key map "w" 'verilog-sk-while) 12365 (define-key map "w" 'verilog-sk-while)
11510 (define-key map "x" 'verilog-sk-casex) 12366 (define-key map "x" 'verilog-sk-casex)
11511 (define-key map "z" 'verilog-sk-casez) 12367 (define-key map "z" 'verilog-sk-casez)
@@ -11531,7 +12387,7 @@ Wilson Snyder (wsnyder@wsnyder.org)."
11531;; may want to consider moving the binding to another key in your .emacs 12387;; may want to consider moving the binding to another key in your .emacs
11532;; file. 12388;; file.
11533;; 12389;;
11534;(define-key verilog-mode-map "\C-ct" verilog-template-map) 12390;; Note \C-c and letter are reserved for users
11535(define-key verilog-mode-map "\C-c\C-t" verilog-template-map) 12391(define-key verilog-mode-map "\C-c\C-t" verilog-template-map)
11536 12392
11537;;; ---- statement skeletons ------------------------------------------ 12393;;; ---- statement skeletons ------------------------------------------
@@ -11571,7 +12427,7 @@ Wilson Snyder (wsnyder@wsnyder.org)."
11571 "output: " str) 12427 "output: " str)
11572 12428
11573(define-skeleton verilog-sk-prompt-msb 12429(define-skeleton verilog-sk-prompt-msb
11574 "Prompt for least significant bit specification." 12430 "Prompt for most significant bit specification."
11575 "msb:" str & ?: & '(verilog-sk-prompt-lsb) | -1 ) 12431 "msb:" str & ?: & '(verilog-sk-prompt-lsb) | -1 )
11576 12432
11577(define-skeleton verilog-sk-prompt-lsb 12433(define-skeleton verilog-sk-prompt-lsb
@@ -11616,6 +12472,38 @@ See also `verilog-header' for an alternative format."
11616 > _ \n 12472 > _ \n
11617 > (- verilog-indent-level-behavioral) "endmodule" (progn (electric-verilog-terminate-line) nil)) 12473 > (- verilog-indent-level-behavioral) "endmodule" (progn (electric-verilog-terminate-line) nil))
11618 12474
12475;;; ------------------------------------------------------------------------
12476;;; Define a default OVM class, with macros and new()
12477;;; ------------------------------------------------------------------------
12478
12479(define-skeleton verilog-sk-ovm-class
12480 "Insert a class definition"
12481 ()
12482 > "class " (setq name (skeleton-read "Name: ")) " extends " (skeleton-read "Extends: ") ";" \n
12483 > _ \n
12484 > "`ovm_object_utils_begin(" name ")" \n
12485 > (- verilog-indent-level) " `ovm_object_utils_end" \n
12486 > _ \n
12487 > "function new(name=\"" name "\");" \n
12488 > "super.new(name);" \n
12489 > (- verilog-indent-level) "endfunction" \n
12490 > _ \n
12491 > "endclass" (progn (electric-verilog-terminate-line) nil))
12492
12493(define-skeleton verilog-sk-uvm-class
12494 "Insert a class definition"
12495 ()
12496 > "class " (setq name (skeleton-read "Name: ")) " extends " (skeleton-read "Extends: ") ";" \n
12497 > _ \n
12498 > "`uvm_object_utils_begin(" name ")" \n
12499 > (- verilog-indent-level) " `uvm_object_utils_end" \n
12500 > _ \n
12501 > "function new(name=\"" name "\");" \n
12502 > "super.new(name);" \n
12503 > (- verilog-indent-level) "endfunction" \n
12504 > _ \n
12505 > "endclass" (progn (electric-verilog-terminate-line) nil))
12506
11619(define-skeleton verilog-sk-primitive 12507(define-skeleton verilog-sk-primitive
11620 "Insert a task definition." 12508 "Insert a task definition."
11621 () 12509 ()
@@ -11918,10 +12806,10 @@ Clicking on the middle-mouse button loads them in a buffer (as in dired)."
11918 ;; This scanner is syntax-fragile, so don't get bent 12806 ;; This scanner is syntax-fragile, so don't get bent
11919 (when verilog-highlight-modules 12807 (when verilog-highlight-modules
11920 (condition-case nil 12808 (condition-case nil
11921 (while (verilog-re-search-forward "\\(/\\*AUTOINST\\*/\\|\\.\\*\\)" end-point t) 12809 (while (verilog-re-search-forward-quick "\\(/\\*AUTOINST\\*/\\|\\.\\*\\)" end-point t)
11922 (save-excursion 12810 (save-excursion
11923 (goto-char (match-beginning 0)) 12811 (goto-char (match-beginning 0))
11924 (unless (verilog-inside-comment-p) 12812 (unless (verilog-inside-comment-or-string-p)
11925 (verilog-read-inst-module-matcher) ;; sets match 0 12813 (verilog-read-inst-module-matcher) ;; sets match 0
11926 (let* ((ov (make-overlay (match-beginning 0) (match-end 0)))) 12814 (let* ((ov (make-overlay (match-beginning 0) (match-end 0))))
11927 (overlay-put ov 'start-closed 't) 12815 (overlay-put ov 'start-closed 't)
diff --git a/lisp/ps-mule.el b/lisp/ps-mule.el
index 65cdb600d74..c8bdc271f5f 100644
--- a/lisp/ps-mule.el
+++ b/lisp/ps-mule.el
@@ -366,7 +366,7 @@ See also `ps-mule-font-info-database-bdf'.")
366;; character is printed by which FONT-SPEC. It has one extra slot 366;; character is printed by which FONT-SPEC. It has one extra slot
367;; whose value is an alist of the form: 367;; whose value is an alist of the form:
368;; (CHARSET . FONT-SPEC) 368;; (CHARSET . FONT-SPEC)
369;; FONT-SPEC is a vecotr of the form: 369;; FONT-SPEC is a vector of the form:
370;; (ID FONT-SRC FONT-NAME ENCODING EXTRA) 370;; (ID FONT-SRC FONT-NAME ENCODING EXTRA)
371(defvar ps-mule-font-spec-tables nil) 371(defvar ps-mule-font-spec-tables nil)
372 372
diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 6d05e6db586..cb19197d16d 100644
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -6658,7 +6658,7 @@ If FACE is not a valid face name, use default face."
6658;; But autoload them here to make the separation invisible. 6658;; But autoload them here to make the separation invisible.
6659 6659
6660;;;### (autoloads (ps-mule-end-job ps-mule-begin-job ps-mule-initialize 6660;;;### (autoloads (ps-mule-end-job ps-mule-begin-job ps-mule-initialize
6661;;;;;; ps-multibyte-buffer) "ps-mule" "ps-mule.el" "afb9022f2e1e366c51672aa11a3bd76f") 6661;;;;;; ps-multibyte-buffer) "ps-mule" "ps-mule.el" "98fcbceecff2ac603ba35672b99b5278")
6662;;; Generated autoloads from ps-mule.el 6662;;; Generated autoloads from ps-mule.el
6663 6663
6664(defvar ps-multibyte-buffer nil "\ 6664(defvar ps-multibyte-buffer nil "\
diff --git a/lisp/repeat.el b/lisp/repeat.el
index 8ddc8d41429..13b6a1d2315 100644
--- a/lisp/repeat.el
+++ b/lisp/repeat.el
@@ -363,7 +363,7 @@ recently executed command not bound to an input event\"."
363 363
364;; OK, there's one situation left where that doesn't work correctly: when the 364;; OK, there's one situation left where that doesn't work correctly: when the
365;; most recent self-insertion provoked an auto-fill. The problem is that 365;; most recent self-insertion provoked an auto-fill. The problem is that
366;; unravelling the undo information after an auto-fill is too hard, since all 366;; unraveling the undo information after an auto-fill is too hard, since all
367;; kinds of stuff can get in there as a result of comment prefixes etc. It'd 367;; kinds of stuff can get in there as a result of comment prefixes etc. It'd
368;; be possible to advise do-auto-fill to record the most recent 368;; be possible to advise do-auto-fill to record the most recent
369;; self-insertion before it does its thing, but that's a performance hit on 369;; self-insertion before it does its thing, but that's a performance hit on
diff --git a/lisp/replace.el b/lisp/replace.el
index 4ea3f747caa..a46f62ae139 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -1663,7 +1663,7 @@ with the `noescape' argument set.
1663 t t))) 1663 t t)))
1664 1664
1665(defun replace-loop-through-replacements (data count) 1665(defun replace-loop-through-replacements (data count)
1666 ;; DATA is a vector contaning the following values: 1666 ;; DATA is a vector containing the following values:
1667 ;; 0 next-rotate-count 1667 ;; 0 next-rotate-count
1668 ;; 1 repeat-count 1668 ;; 1 repeat-count
1669 ;; 2 next-replacement 1669 ;; 2 next-replacement
diff --git a/lisp/rfn-eshadow.el b/lisp/rfn-eshadow.el
index 2d8c6e0964d..ded76f9fbcb 100644
--- a/lisp/rfn-eshadow.el
+++ b/lisp/rfn-eshadow.el
@@ -179,7 +179,8 @@ been set up by `rfn-eshadow-setup-minibuffer'."
179 (let ((goal (substitute-in-file-name (minibuffer-contents))) 179 (let ((goal (substitute-in-file-name (minibuffer-contents)))
180 (mid (overlay-end rfn-eshadow-overlay)) 180 (mid (overlay-end rfn-eshadow-overlay))
181 (start (minibuffer-prompt-end)) 181 (start (minibuffer-prompt-end))
182 (end (point-max))) 182 (end (point-max))
183 (non-essential t))
183 (unless 184 (unless
184 ;; Catch the common case where the shadow does not need to move. 185 ;; Catch the common case where the shadow does not need to move.
185 (and mid 186 (and mid
diff --git a/lisp/server.el b/lisp/server.el
index bc989c55ed1..e02f63a8268 100644
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -685,7 +685,14 @@ Server mode runs a process that accepts commands from the
685 685
686(defun server-eval-and-print (expr proc) 686(defun server-eval-and-print (expr proc)
687 "Eval EXPR and send the result back to client PROC." 687 "Eval EXPR and send the result back to client PROC."
688 (let ((v (eval (car (read-from-string expr))))) 688 ;; While we're running asynchronously (from a process filter), it is likely
689 ;; that the emacsclient command was run in response to a user
690 ;; action, so the user probably knows that Emacs is processing this
691 ;; emacsclient request, so if we get a C-g it's likely that the user
692 ;; intended it to interrupt us rather than interrupt whatever Emacs
693 ;; was doing before it started handling the process filter.
694 ;; Hence `with-local-quit' (bug#6585).
695 (let ((v (with-local-quit (eval (car (read-from-string expr))))))
689 (when proc 696 (when proc
690 (with-temp-buffer 697 (with-temp-buffer
691 (let ((standard-output (current-buffer))) 698 (let ((standard-output (current-buffer)))
diff --git a/lisp/ses.el b/lisp/ses.el
index cdc58e12d00..6c9d0a7a50d 100644
--- a/lisp/ses.el
+++ b/lisp/ses.el
@@ -1143,7 +1143,7 @@ preceding cell has spilled over."
1143 (setq x (concat text (if (< maxcol ses--numcols) " " "\n"))) 1143 (setq x (concat text (if (< maxcol ses--numcols) " " "\n")))
1144 ;; We use set-text-properties to prevent a wacky print function from 1144 ;; We use set-text-properties to prevent a wacky print function from
1145 ;; inserting rogue properties, and to ensure that the keymap property is 1145 ;; inserting rogue properties, and to ensure that the keymap property is
1146 ;; inherited (is it a bug that only unpropertied strings actually 1146 ;; inherited (is it a bug that only unpropertized strings actually
1147 ;; inherit from surrounding text?) 1147 ;; inherit from surrounding text?)
1148 (set-text-properties 0 (length x) nil x) 1148 (set-text-properties 0 (length x) nil x)
1149 (insert-and-inherit x) 1149 (insert-and-inherit x)
@@ -1371,7 +1371,7 @@ first reference is found."
1371 result-so-far) 1371 result-so-far)
1372 1372
1373(defsubst ses-relocate-symbol (sym rowcol startrow startcol rowincr colincr) 1373(defsubst ses-relocate-symbol (sym rowcol startrow startcol rowincr colincr)
1374 "Relocate one symbol SYM, whichs corresponds to ROWCOL (a cons of ROW and 1374 "Relocate one symbol SYM, which corresponds to ROWCOL (a cons of ROW and
1375COL). Cells starting at (STARTROW,STARTCOL) are being shifted 1375COL). Cells starting at (STARTROW,STARTCOL) are being shifted
1376by (ROWINCR,COLINCR)." 1376by (ROWINCR,COLINCR)."
1377 (let ((row (car rowcol)) 1377 (let ((row (car rowcol))
diff --git a/lisp/speedbar.el b/lisp/speedbar.el
index 30642e8f2f7..b8a734784be 100644
--- a/lisp/speedbar.el
+++ b/lisp/speedbar.el
@@ -2101,7 +2101,7 @@ cell of the form ( 'DIRLIST . 'FILELIST )."
2101 ;; If the shown files variable has extra directories, then 2101 ;; If the shown files variable has extra directories, then
2102 ;; it is our responsibility to redraw them all 2102 ;; it is our responsibility to redraw them all
2103 ;; Luckily, the nature of inserting items into this list means 2103 ;; Luckily, the nature of inserting items into this list means
2104 ;; that by reversing it, we can easilly go in the right order 2104 ;; that by reversing it, we can easily go in the right order
2105 (let ((sf (cdr (reverse speedbar-shown-directories)))) 2105 (let ((sf (cdr (reverse speedbar-shown-directories))))
2106 (setq speedbar-shown-directories 2106 (setq speedbar-shown-directories
2107 (list (expand-file-name default-directory))) 2107 (list (expand-file-name default-directory)))
diff --git a/lisp/subr.el b/lisp/subr.el
index 6d652f55b29..36937e8f370 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -3792,7 +3792,7 @@ The properties used on SYMBOL are `composefunc', `sendfunc',
3792;; MIN-CHANGE 3792;; MIN-CHANGE
3793;; MIN-TIME]) 3793;; MIN-TIME])
3794;; 3794;;
3795;; This weirdeness is for optimization reasons: we want 3795;; This weirdness is for optimization reasons: we want
3796;; `progress-reporter-update' to be as fast as possible, so 3796;; `progress-reporter-update' to be as fast as possible, so
3797;; `(car reporter)' is better than `(aref reporter 0)'. 3797;; `(car reporter)' is better than `(aref reporter 0)'.
3798;; 3798;;
diff --git a/lisp/term.el b/lisp/term.el
index dc5ae29ffd2..484bc36363e 100644
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -40,10 +40,10 @@
40;; overhead this has became so small that IMHO is surely outweighted by 40;; overhead this has became so small that IMHO is surely outweighted by
41;; the benefits you get but, as usual, YMMV 41;; the benefits you get but, as usual, YMMV
42;; 42;;
43;; Important caveat, when deciding the cursor/'grey keys' keycodes I had to 43;; Important caveat, when deciding the cursor/'gray keys' keycodes I had to
44;; make a choice: on my Linux box this choice allows me to run all the 44;; make a choice: on my Linux box this choice allows me to run all the
45;; ncurses applications without problems but make these keys 45;; ncurses applications without problems but make these keys
46;; uncomprehensible to all the cursesX programs. Your mileage may vary so 46;; incomprehensible to all the cursesX programs. Your mileage may vary so
47;; you may consider changing the default 'emulation'. Just search for this 47;; you may consider changing the default 'emulation'. Just search for this
48;; piece of code and modify it as you like: 48;; piece of code and modify it as you like:
49;; 49;;
@@ -910,7 +910,7 @@ is buffer-local."
910 (setq term-raw-escape-map 910 (setq term-raw-escape-map
911 (copy-keymap (lookup-key (current-global-map) "\C-x"))) 911 (copy-keymap (lookup-key (current-global-map) "\C-x")))
912 912
913 ;; Added nearly all the 'grey keys' -mm 913 ;; Added nearly all the 'gray keys' -mm
914 914
915 (if (featurep 'xemacs) 915 (if (featurep 'xemacs)
916 (define-key term-raw-map [button2] 'term-mouse-paste) 916 (define-key term-raw-map [button2] 'term-mouse-paste)
diff --git a/lisp/term/common-win.el b/lisp/term/common-win.el
index c13d22dde71..63c8840621c 100644
--- a/lisp/term/common-win.el
+++ b/lisp/term/common-win.el
@@ -281,11 +281,11 @@ have been processed."
281;; The ordering of the colors is chosen for the user's convenience in 281;; The ordering of the colors is chosen for the user's convenience in
282;; `list-colors-display', which displays the reverse of this list. 282;; `list-colors-display', which displays the reverse of this list.
283;; Roughly speaking, `list-colors-display' orders by (i) named shades 283;; Roughly speaking, `list-colors-display' orders by (i) named shades
284;; of grey with hue 0.0, sorted by value (ii) named colors with 284;; of gray with hue 0.0, sorted by value (ii) named colors with
285;; saturation 1.0, sorted by hue, (iii) named non-white colors with 285;; saturation 1.0, sorted by hue, (iii) named non-white colors with
286;; saturation less than 1.0, sorted by hue, (iv) other named shades of 286;; saturation less than 1.0, sorted by hue, (iv) other named shades of
287;; white, (v) numbered colors sorted by hue, and (vi) numbered shades 287;; white, (v) numbered colors sorted by hue, and (vi) numbered shades
288;; of grey. 288;; of gray.
289 289
290(declare-function ns-list-colors "nsfns.m" (&optional frame)) 290(declare-function ns-list-colors "nsfns.m" (&optional frame))
291 291
diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el
index 10c1c19e0c4..b639af7cda0 100644
--- a/lisp/term/ns-win.el
+++ b/lisp/term/ns-win.el
@@ -492,7 +492,7 @@ unless the current buffer is a scratch buffer."
492 command-line-default-directory))) 492 command-line-default-directory)))
493 (file (find-file-noselect f)) 493 (file (find-file-noselect f))
494 (bufwin1 (get-buffer-window file 'visible)) 494 (bufwin1 (get-buffer-window file 'visible))
495 (bufwin2 (get-buffer-window "*scratch*" 'visibile))) 495 (bufwin2 (get-buffer-window "*scratch*" 'visible)))
496 (cond 496 (cond
497 (bufwin1 497 (bufwin1
498 (select-frame (window-frame bufwin1)) 498 (select-frame (window-frame bufwin1))
diff --git a/lisp/textmodes/artist.el b/lisp/textmodes/artist.el
index 232d42efc94..0efabc2135a 100644
--- a/lisp/textmodes/artist.el
+++ b/lisp/textmodes/artist.el
@@ -3215,7 +3215,7 @@ X1, Y1. An endpoint is a cons pair, (ENDPOINT-X . ENDPOINT-Y)."
3215;; 2| | 3215;; 2| |
3216;; 3+-----+ 3216;; 3+-----+
3217;; 3217;;
3218;; We will then pop (0,0) and remove the left-most vertival line while 3218;; We will then pop (0,0) and remove the left-most vertical line while
3219;; pushing the lower left corner (0,3) on the stack, and so on until 3219;; pushing the lower left corner (0,3) on the stack, and so on until
3220;; the entire rectangle is vaporized. 3220;; the entire rectangle is vaporized.
3221;; 3221;;
diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el
index c9b1c44eb91..8df2e81c723 100644
--- a/lisp/textmodes/bibtex.el
+++ b/lisp/textmodes/bibtex.el
@@ -1451,12 +1451,12 @@ Set this variable before loading BibTeX mode."
1451(defvar bibtex-field-braces-opt nil 1451(defvar bibtex-field-braces-opt nil
1452 "Optimized value of `bibtex-field-braces-alist'. 1452 "Optimized value of `bibtex-field-braces-alist'.
1453Created by `bibtex-field-re-init'. 1453Created by `bibtex-field-re-init'.
1454It is a an alist with elements (FIELD . REGEXP).") 1454It is an alist with elements (FIELD . REGEXP).")
1455 1455
1456(defvar bibtex-field-strings-opt nil 1456(defvar bibtex-field-strings-opt nil
1457 "Optimized value of `bibtex-field-strings-alist'. 1457 "Optimized value of `bibtex-field-strings-alist'.
1458Created by `bibtex-field-re-init'. 1458Created by `bibtex-field-re-init'.
1459It is a an alist with elements (FIELD RULE1 RULE2 ...), 1459It is an alist with elements (FIELD RULE1 RULE2 ...),
1460where each RULE is (REGEXP . TO-STR).") 1460where each RULE is (REGEXP . TO-STR).")
1461 1461
1462(defvar bibtex-pop-previous-search-point nil 1462(defvar bibtex-pop-previous-search-point nil
diff --git a/lisp/textmodes/conf-mode.el b/lisp/textmodes/conf-mode.el
index 1127e6a5d20..40d682c3d93 100644
--- a/lisp/textmodes/conf-mode.el
+++ b/lisp/textmodes/conf-mode.el
@@ -185,7 +185,7 @@ not align (only setting space according to `conf-assignment-space')."
185 (2 'font-lock-constant-face nil t)) 185 (2 'font-lock-constant-face nil t))
186 ;; section { ... } (do this last because some assign ...{...) 186 ;; section { ... } (do this last because some assign ...{...)
187 ("^[ \t]*\\([^=:\n]+?\\)[ \t\n]*{[^{}]*?$" 1 'font-lock-type-face prepend)) 187 ("^[ \t]*\\([^=:\n]+?\\)[ \t\n]*{[^{}]*?$" 1 'font-lock-type-face prepend))
188 "Keywords to hilight in Conf mode.") 188 "Keywords to highlight in Conf mode.")
189 189
190(defvar conf-javaprop-font-lock-keywords 190(defvar conf-javaprop-font-lock-keywords
191 '(;; var=val 191 '(;; var=val
@@ -197,7 +197,7 @@ not align (only setting space according to `conf-assignment-space')."
197 (5 'font-lock-variable-name-face nil t) 197 (5 'font-lock-variable-name-face nil t)
198 (6 'font-lock-constant-face nil t) 198 (6 'font-lock-constant-face nil t)
199 (7 'font-lock-variable-name-face nil t))) 199 (7 'font-lock-variable-name-face nil t)))
200 "Keywords to hilight in Conf Java Properties mode.") 200 "Keywords to highlight in Conf Java Properties mode.")
201 201
202(defvar conf-space-keywords-alist 202(defvar conf-space-keywords-alist
203 '(("\\`/etc/gpm/" . "key\\|name\\|foreground\\|background\\|border\\|head") 203 '(("\\`/etc/gpm/" . "key\\|name\\|foreground\\|background\\|border\\|head")
@@ -240,7 +240,7 @@ This variable is best set in the file local variables, or through
240 (1 'font-lock-variable-name-face)) 240 (1 'font-lock-variable-name-face))
241 ;; section { ... } (do this last because some assign ...{...) 241 ;; section { ... } (do this last because some assign ...{...)
242 ("^[ \t]*\\([^:\n]+\\)[ \t\n]*{[^{}]*?$" 1 'font-lock-type-face prepend)) 242 ("^[ \t]*\\([^:\n]+\\)[ \t\n]*{[^{}]*?$" 1 'font-lock-type-face prepend))
243 "Keywords to hilight in Conf Colon mode.") 243 "Keywords to highlight in Conf Colon mode.")
244 244
245(defvar conf-assignment-sign ?= 245(defvar conf-assignment-sign ?=
246 "Sign used for assignments (char or string).") 246 "Sign used for assignments (char or string).")
diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index 52f6e5b4889..b8614b16f82 100644
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -469,7 +469,7 @@ Point is moved to just past the fill prefix on the first line."
469 469
470 (goto-char from) 470 (goto-char from)
471 (if enable-multibyte-characters 471 (if enable-multibyte-characters
472 ;; Delete unnecessay newlines surrounded by words. The 472 ;; Delete unnecessary newlines surrounded by words. The
473 ;; character category `|' means that we can break a line at the 473 ;; character category `|' means that we can break a line at the
474 ;; character. And, char-table 474 ;; character. And, char-table
475 ;; `fill-nospace-between-words-table' tells how to concatenate 475 ;; `fill-nospace-between-words-table' tells how to concatenate
diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index d54debcec4c..6b4c1a2940d 100644
--- a/lisp/textmodes/flyspell.el
+++ b/lisp/textmodes/flyspell.el
@@ -466,7 +466,7 @@ See also `flyspell-duplicate-distance'."
466;;*---------------------------------------------------------------------*/ 466;;*---------------------------------------------------------------------*/
467;;* flyspell-mode ... */ 467;;* flyspell-mode ... */
468;;*---------------------------------------------------------------------*/ 468;;*---------------------------------------------------------------------*/
469;;;###autoload(defvar flyspell-mode nil) 469;;;###autoload(defvar flyspell-mode nil "Non-nil if Flyspell mode is enabled.")
470;;;###autoload 470;;;###autoload
471(define-minor-mode flyspell-mode 471(define-minor-mode flyspell-mode
472 "Toggle on-the-fly spell checking (Flyspell mode). 472 "Toggle on-the-fly spell checking (Flyspell mode).
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 704fad4fb3b..d0967d63740 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -2399,7 +2399,8 @@ Optional REFRESH will unhighlighted then highlight, using block cursor
2399 (setq start (1+ start)))) ; On block non-refresh, inc start. 2399 (setq start (1+ start)))) ; On block non-refresh, inc start.
2400 (let ((modified (buffer-modified-p)) ; don't allow this fn to modify buffer 2400 (let ((modified (buffer-modified-p)) ; don't allow this fn to modify buffer
2401 (buffer-read-only nil) ; Allow highlighting read-only buffers. 2401 (buffer-read-only nil) ; Allow highlighting read-only buffers.
2402 (text (buffer-substring-no-properties start end)) ; Save hilight region 2402 (text (buffer-substring-no-properties start end))
2403 ; Save highlight region.
2403 (inhibit-quit t) ; inhibit interrupt processing here. 2404 (inhibit-quit t) ; inhibit interrupt processing here.
2404 (buffer-undo-list t)) ; don't clutter the undo list. 2405 (buffer-undo-list t)) ; don't clutter the undo list.
2405 (goto-char end) 2406 (goto-char end)
@@ -3977,7 +3978,7 @@ Both should not be used to define a buffer-local dictionary."
3977; LocalWords: Francais Nederlands charset autoloaded popup nonmenu regexp num 3978; LocalWords: Francais Nederlands charset autoloaded popup nonmenu regexp num
3978; LocalWords: AMStex hspace includeonly nocite epsfig displaymath eqnarray reg 3979; LocalWords: AMStex hspace includeonly nocite epsfig displaymath eqnarray reg
3979; LocalWords: minipage modeline pers dict unhighlight buf grep sync prev inc 3980; LocalWords: minipage modeline pers dict unhighlight buf grep sync prev inc
3980; LocalWords: fn hilight oldot NB AIX msg init read's bufs pt cmd Quinlan eg 3981; LocalWords: fn oldot NB AIX msg init read's bufs pt cmd Quinlan eg
3981; LocalWords: uuencoded unidiff sc nn VM SGML eval IspellPersDict unsplitable 3982; LocalWords: uuencoded unidiff sc nn VM SGML eval IspellPersDict unsplitable
3982; LocalWords: lns XEmacs HTML casechars Multibyte 3983; LocalWords: lns XEmacs HTML casechars Multibyte
3983 3984
diff --git a/lisp/textmodes/reftex-sel.el b/lisp/textmodes/reftex-sel.el
index b4e15fd2776..f4f10f1d1e0 100644
--- a/lisp/textmodes/reftex-sel.el
+++ b/lisp/textmodes/reftex-sel.el
@@ -570,13 +570,13 @@ Useful for large TOC's."
570 nil t) 570 nil t)
571 (beginning-of-line)) 571 (beginning-of-line))
572(defun reftex-select-next-heading (&optional arg) 572(defun reftex-select-next-heading (&optional arg)
573 "Move to next table of contentes line." 573 "Move to next table of contents line."
574 (interactive "p") 574 (interactive "p")
575 (end-of-line) 575 (end-of-line)
576 (re-search-forward "^ " nil t arg) 576 (re-search-forward "^ " nil t arg)
577 (beginning-of-line)) 577 (beginning-of-line))
578(defun reftex-select-previous-heading (&optional arg) 578(defun reftex-select-previous-heading (&optional arg)
579 "Move to previous table of contentes line." 579 "Move to previous table of contents line."
580 (interactive "p") 580 (interactive "p")
581 (re-search-backward "^ " nil t arg)) 581 (re-search-backward "^ " nil t arg))
582(defun reftex-select-quit () 582(defun reftex-select-quit ()
diff --git a/lisp/textmodes/rst.el b/lisp/textmodes/rst.el
index 81e92487eb0..64dffe78d50 100644
--- a/lisp/textmodes/rst.el
+++ b/lisp/textmodes/rst.el
@@ -2716,7 +2716,7 @@ general but you do not like the details."
2716 (rst-define-level-faces))) 2716 (rst-define-level-faces)))
2717 2717
2718;; Faces for displaying items on several levels; these definitions define 2718;; Faces for displaying items on several levels; these definitions define
2719;; different shades of grey where the lightest one (i.e. least contrasting) is 2719;; different shades of gray where the lightest one (i.e. least contrasting) is
2720;; used for level 1 2720;; used for level 1
2721(defcustom rst-level-face-max 6 2721(defcustom rst-level-face-max 6
2722 "Maximum depth of levels for which section title faces are defined." 2722 "Maximum depth of levels for which section title faces are defined."
diff --git a/lisp/textmodes/table.el b/lisp/textmodes/table.el
index 08a45b6b302..65f6d98ef79 100644
--- a/lisp/textmodes/table.el
+++ b/lisp/textmodes/table.el
@@ -173,19 +173,19 @@
173;; +-------------------------------+----------------------------------+ 173;; +-------------------------------+----------------------------------+
174;; |`table-recognize' |Recognize all tables in the | 174;; |`table-recognize' |Recognize all tables in the |
175;; |`table-unrecognize' |current buffer and | 175;; |`table-unrecognize' |current buffer and |
176;; | |activate/inactivate them. | 176;; | |activate/deactivate them. |
177;; +-------------------------------+----------------------------------+ 177;; +-------------------------------+----------------------------------+
178;; |`table-recognize-region' |Recognize all the cells in a | 178;; |`table-recognize-region' |Recognize all the cells in a |
179;; |`table-unrecognize-region' |region and activate/inactivate | 179;; |`table-unrecognize-region' |region and activate/deactivate |
180;; | |them. | 180;; | |them. |
181;; +-------------------------------+----------------------------------+ 181;; +-------------------------------+----------------------------------+
182;; |`table-recognize-table' |Recognize all the cells in a | 182;; |`table-recognize-table' |Recognize all the cells in a |
183;; |`table-unrecognize-table' |single table and | 183;; |`table-unrecognize-table' |single table and |
184;; | |activate/inactivate them. | 184;; | |activate/deactivate them. |
185;; +-------------------------------+----------------------------------+ 185;; +-------------------------------+----------------------------------+
186;; |`table-recognize-cell' |Recognize a cell. Find a cell | 186;; |`table-recognize-cell' |Recognize a cell. Find a cell |
187;; |`table-unrecognize-cell' |which contains the current point | 187;; |`table-unrecognize-cell' |which contains the current point |
188;; | |and activate/inactivate that cell.| 188;; | |and activate/deactivate that cell.|
189;; +-------------------------------+----------------------------------+ 189;; +-------------------------------+----------------------------------+
190;; |`table-forward-cell' |Move point to the next Nth cell in| 190;; |`table-forward-cell' |Move point to the next Nth cell in|
191;; | |a table. | 191;; | |a table. |
@@ -3856,7 +3856,7 @@ companion command to `table-capture' this way.
3856;;;###autoload 3856;;;###autoload
3857(defun table-release () 3857(defun table-release ()
3858 "Convert a table into plain text by removing the frame from a table. 3858 "Convert a table into plain text by removing the frame from a table.
3859Remove the frame from a table and inactivate the table. This command 3859Remove the frame from a table and deactivate the table. This command
3860converts a table into plain text without frames. It is a companion to 3860converts a table into plain text without frames. It is a companion to
3861`table-capture' which does the opposite process." 3861`table-capture' which does the opposite process."
3862 (interactive) 3862 (interactive)
diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el
index c4892ce572c..34bd24fba3a 100644
--- a/lisp/textmodes/tex-mode.el
+++ b/lisp/textmodes/tex-mode.el
@@ -2254,7 +2254,7 @@ Only applies the FSPEC to the args part of FORMAT."
2254 ;; Remove those commands whose input was considered stable for 2254 ;; Remove those commands whose input was considered stable for
2255 ;; some other command (typically if (t . "%.pdf") is inactive 2255 ;; some other command (typically if (t . "%.pdf") is inactive
2256 ;; then we're using pdflatex and the fact that the dvi file 2256 ;; then we're using pdflatex and the fact that the dvi file
2257 ;; is inexistent doesn't matter). 2257 ;; is nonexistent doesn't matter).
2258 (let ((tmp nil)) 2258 (let ((tmp nil))
2259 (dolist (cmd cmds) 2259 (dolist (cmd cmds)
2260 (unless (member (nth 1 cmd) unchanged-in) 2260 (unless (member (nth 1 cmd) unchanged-in)
diff --git a/lisp/textmodes/texinfmt.el b/lisp/textmodes/texinfmt.el
index 094885bb0d0..a337d6f9f40 100644
--- a/lisp/textmodes/texinfmt.el
+++ b/lisp/textmodes/texinfmt.el
@@ -518,7 +518,7 @@ if large. You can use `Info-split' to do this manually."
518 518
519;;; Handle paragraph filling 519;;; Handle paragraph filling
520 520
521;; Keep as concatinated lists for ease of maintenance 521;; Keep as concatenated lists for ease of maintenance
522 522
523(defvar texinfo-no-refill-regexp 523(defvar texinfo-no-refill-regexp
524 (concat 524 (concat
@@ -4238,7 +4238,7 @@ the @ifeq command."
4238Must be used only with -batch, and kills Emacs on completion. 4238Must be used only with -batch, and kills Emacs on completion.
4239Each file will be processed even if an error occurred previously. 4239Each file will be processed even if an error occurred previously.
4240For example, invoke 4240For example, invoke
4241 \"emacs -batch -funcall batch-texinfo-format $docs/ ~/*.texinfo\"." 4241 \"emacs -batch -l texinfmt -f batch-texinfo-format $docs/ ~/*.texinfo\"."
4242 (if (not noninteractive) 4242 (if (not noninteractive)
4243 (error "batch-texinfo-format may only be used -batch")) 4243 (error "batch-texinfo-format may only be used -batch"))
4244 (let ((version-control t) 4244 (let ((version-control t)
diff --git a/lisp/tutorial.el b/lisp/tutorial.el
index be1a12b499b..2e651484008 100644
--- a/lisp/tutorial.el
+++ b/lisp/tutorial.el
@@ -182,7 +182,7 @@ LEFT and RIGHT are the elements to compare."
182 (equal (car x) (car y))) 182 (equal (car x) (car y)))
183 (setq x (cdr x)) 183 (setq x (cdr x))
184 (setq y (cdr y))) 184 (setq y (cdr y)))
185 ;; Try to make a comparision that is useful for presentation (this 185 ;; Try to make a comparison that is useful for presentation (this
186 ;; could be made nicer perhaps): 186 ;; could be made nicer perhaps):
187 (let ((cx (car x)) 187 (let ((cx (car x))
188 (cy (car y))) 188 (cy (car y)))
diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 47f006eebda..48d2caf35f4 100644
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1977,7 +1977,7 @@
1977 1977
1978 * lisp/url-gw.el (url-gw-inhibit-code-conversion): Remove. 1978 * lisp/url-gw.el (url-gw-inhibit-code-conversion): Remove.
1979 (url-open-stream): Bind coding-system-for{read,write} when setting 1979 (url-open-stream): Bind coding-system-for{read,write} when setting
1980 up the connexion. Don't call url-gw-inhibit-code-conversion. 1980 up the connection. Don't call url-gw-inhibit-code-conversion.
1981 1981
19822001-05-24 William M. Perry <wmperry@gnu.org> 19822001-05-24 William M. Perry <wmperry@gnu.org>
1983 1983
@@ -2516,4 +2516,3 @@
2516 2516
2517 You should have received a copy of the GNU General Public License 2517 You should have received a copy of the GNU General Public License
2518 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. 2518 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
2519
diff --git a/lisp/vc/cvs-status.el b/lisp/vc/cvs-status.el
index 063eb414579..3444b230e8d 100644
--- a/lisp/vc/cvs-status.el
+++ b/lisp/vc/cvs-status.el
@@ -257,7 +257,7 @@ The tree will be printed no closer than column COLUMN."
257 257
258(defun cvs-tree-merge (tree1 tree2) 258(defun cvs-tree-merge (tree1 tree2)
259 "Merge tags trees TREE1 and TREE2 into one. 259 "Merge tags trees TREE1 and TREE2 into one.
260BEWARE: because of stability issues, this is not a symetric operation." 260BEWARE: because of stability issues, this is not a symmetric operation."
261 (assert (and (listp tree1) (listp tree2))) 261 (assert (and (listp tree1) (listp tree2)))
262 (cond 262 (cond
263 ((null tree1) tree2) 263 ((null tree1) tree2)
diff --git a/lisp/vc/diff-mode.el b/lisp/vc/diff-mode.el
index 9f0fa584b0d..8f4b59f9e53 100644
--- a/lisp/vc/diff-mode.el
+++ b/lisp/vc/diff-mode.el
@@ -146,7 +146,7 @@ when editing big diffs)."
146 ;; but not all since they may hide useful M-<foo> global 146 ;; but not all since they may hide useful M-<foo> global
147 ;; bindings when editing. 147 ;; bindings when editing.
148 (set-keymap-parent map diff-mode-shared-map) 148 (set-keymap-parent map diff-mode-shared-map)
149 (dolist (key '("A" "r" "R" "g" "q" "W")) 149 (dolist (key '("A" "r" "R" "g" "q" "W" "z"))
150 (define-key map key nil)) 150 (define-key map key nil))
151 map)) 151 map))
152 ;; From compilation-minor-mode. 152 ;; From compilation-minor-mode.
@@ -815,9 +815,11 @@ PREFIX is only used internally: don't use it."
815 (diff-find-file-name old noprompt (match-string 1))) 815 (diff-find-file-name old noprompt (match-string 1)))
816 ;; if all else fails, ask the user 816 ;; if all else fails, ask the user
817 (unless noprompt 817 (unless noprompt
818 (let ((file (read-file-name (format "Use file %s: " 818 (let ((file (expand-file-name (or (first fs) ""))))
819 (or (first fs) "")) 819 (setq file
820 nil (first fs) t (first fs)))) 820 (read-file-name (format "Use file %s: " file)
821 (file-name-directory file) file t
822 (file-name-nondirectory file)))
821 (set (make-local-variable 'diff-remembered-files-alist) 823 (set (make-local-variable 'diff-remembered-files-alist)
822 (cons (cons fs file) diff-remembered-files-alist)) 824 (cons (cons fs file) diff-remembered-files-alist))
823 file)))))) 825 file))))))
diff --git a/lisp/vc/ediff-help.el b/lisp/vc/ediff-help.el
index ddd9371b060..ee7837b29a3 100644
--- a/lisp/vc/ediff-help.el
+++ b/lisp/vc/ediff-help.el
@@ -50,7 +50,7 @@ For help on a specific command: Click Button 2 over it; or
50(defconst ediff-long-help-message-compare3 50(defconst ediff-long-help-message-compare3
51 " 51 "
52p,DEL -previous diff | | -vert/horiz split | xy -copy buf X's region to Y 52p,DEL -previous diff | | -vert/horiz split | xy -copy buf X's region to Y
53n,SPC -next diff | h -hilighting | rx -restore buf X's old diff 53n,SPC -next diff | h -highlighting | rx -restore buf X's old diff
54 j -jump to diff | @ -auto-refinement | * -refine current region 54 j -jump to diff | @ -auto-refinement | * -refine current region
55 gx -goto X's point| ## -ignore whitespace | ! -update diff regions 55 gx -goto X's point| ## -ignore whitespace | ! -update diff regions
56 C-l -recenter | #c -ignore case | 56 C-l -recenter | #c -ignore case |
@@ -64,7 +64,7 @@ Normally, not a user option. See `ediff-help-message' for details.")
64(defconst ediff-long-help-message-compare2 64(defconst ediff-long-help-message-compare2
65 " 65 "
66p,DEL -previous diff | | -vert/horiz split |a/b -copy A/B's region to B/A 66p,DEL -previous diff | | -vert/horiz split |a/b -copy A/B's region to B/A
67n,SPC -next diff | h -hilighting | rx -restore buf X's old diff 67n,SPC -next diff | h -highlighting | rx -restore buf X's old diff
68 j -jump to diff | @ -auto-refinement | * -refine current region 68 j -jump to diff | @ -auto-refinement | * -refine current region
69 gx -goto X's point| ## -ignore whitespace | ! -update diff regions 69 gx -goto X's point| ## -ignore whitespace | ! -update diff regions
70 C-l -recenter | #c -ignore case | 70 C-l -recenter | #c -ignore case |
@@ -78,7 +78,7 @@ Normally, not a user option. See `ediff-help-message' for details.")
78(defconst ediff-long-help-message-narrow2 78(defconst ediff-long-help-message-narrow2
79 " 79 "
80p,DEL -previous diff | | -vert/horiz split |a/b -copy A/B's region to B/A 80p,DEL -previous diff | | -vert/horiz split |a/b -copy A/B's region to B/A
81n,SPC -next diff | h -hilighting | rx -restore buf X's old diff 81n,SPC -next diff | h -highlighting | rx -restore buf X's old diff
82 j -jump to diff | @ -auto-refinement | * -refine current region 82 j -jump to diff | @ -auto-refinement | * -refine current region
83 gx -goto X's point| ## -ignore whitespace | ! -update diff regions 83 gx -goto X's point| ## -ignore whitespace | ! -update diff regions
84 C-l -recenter | #c -ignore case | % -narrow/widen buffs 84 C-l -recenter | #c -ignore case | % -narrow/widen buffs
@@ -92,7 +92,7 @@ Normally, not a user option. See `ediff-help-message' for details.")
92(defconst ediff-long-help-message-word-mode 92(defconst ediff-long-help-message-word-mode
93 " 93 "
94p,DEL -previous diff | | -vert/horiz split | xy -copy buf X's region to Y 94p,DEL -previous diff | | -vert/horiz split | xy -copy buf X's region to Y
95n,SPC -next diff | h -hilighting | rx -restore buf X's old diff 95n,SPC -next diff | h -highlighting | rx -restore buf X's old diff
96 j -jump to diff | | 96 j -jump to diff | |
97 gx -goto X's point| % -narrow/widen buffs | ! -recompute diffs 97 gx -goto X's point| % -narrow/widen buffs | ! -recompute diffs
98 C-l -recenter | #c -ignore case | 98 C-l -recenter | #c -ignore case |
@@ -106,7 +106,7 @@ Normally, not a user option. See `ediff-help-message' for details.")
106(defconst ediff-long-help-message-merge 106(defconst ediff-long-help-message-merge
107 " 107 "
108p,DEL -previous diff | | -vert/horiz split | x -copy buf X's region to C 108p,DEL -previous diff | | -vert/horiz split | x -copy buf X's region to C
109n,SPC -next diff | h -hilighting | r -restore buf C's old diff 109n,SPC -next diff | h -highlighting | r -restore buf C's old diff
110 j -jump to diff | @ -auto-refinement | * -refine current region 110 j -jump to diff | @ -auto-refinement | * -refine current region
111 gx -goto X's point| ## -ignore whitespace | ! -update diff regions 111 gx -goto X's point| ## -ignore whitespace | ! -update diff regions
112 C-l -recenter | #f/#h -focus/hide regions | + -combine diff regions 112 C-l -recenter | #f/#h -focus/hide regions | + -combine diff regions
diff --git a/lisp/vc/ediff-util.el b/lisp/vc/ediff-util.el
index 5d7d2451422..b1c6e367ef7 100644
--- a/lisp/vc/ediff-util.el
+++ b/lisp/vc/ediff-util.el
@@ -2635,7 +2635,7 @@ delete this buffer in another session as well."
2635 )) 2635 ))
2636 2636
2637;; Kill the variant buffer, according to user directives (ask, kill 2637;; Kill the variant buffer, according to user directives (ask, kill
2638;; unconditionaly, keep) 2638;; unconditionally, keep)
2639;; BUFF is the buffer, BUFF-TYPE is either 'A, or 'B, 'C, 'Ancestor 2639;; BUFF is the buffer, BUFF-TYPE is either 'A, or 'B, 'C, 'Ancestor
2640(defun ediff-dispose-of-variant-according-to-user (buff bufftype ask keep-variants) 2640(defun ediff-dispose-of-variant-according-to-user (buff bufftype ask keep-variants)
2641 ;; if this is indirect buffer, kill it and substitute with direct buf 2641 ;; if this is indirect buffer, kill it and substitute with direct buf
@@ -3811,7 +3811,7 @@ Ediff Control Panel to restore highlighting."
3811 ;; later, and nconc above will break it. Either this or use slow 3811 ;; later, and nconc above will break it. Either this or use slow
3812 ;; append instead of nconc 3812 ;; append instead of nconc
3813 (selected-buffers (ediff-get-selected-buffers)) 3813 (selected-buffers (ediff-get-selected-buffers))
3814 (prefered-buffer (car all-buffers)) 3814 (preferred-buffer (car all-buffers))
3815 visible-dired-buffers 3815 visible-dired-buffers
3816 (excl-buff-name-list 3816 (excl-buff-name-list
3817 (mapcar 3817 (mapcar
@@ -3841,7 +3841,7 @@ Ediff Control Panel to restore highlighting."
3841 (cond ((member (buffer-name x) excl-buff-name-list) nil) 3841 (cond ((member (buffer-name x) excl-buff-name-list) nil)
3842 ((memq x selected-buffers) x) 3842 ((memq x selected-buffers) x)
3843 ((not (ediff-get-visible-buffer-window x)) nil) 3843 ((not (ediff-get-visible-buffer-window x)) nil)
3844 ((eq x prefered-buffer) x) 3844 ((eq x preferred-buffer) x)
3845 ;; if prev selected buffer is dired, look only at 3845 ;; if prev selected buffer is dired, look only at
3846 ;; dired. 3846 ;; dired.
3847 ((eq use-dired-major-mode 'yes) 3847 ((eq use-dired-major-mode 'yes)
diff --git a/lisp/vc/pcvs-defs.el b/lisp/vc/pcvs-defs.el
index f6340392dc2..477cd472289 100644
--- a/lisp/vc/pcvs-defs.el
+++ b/lisp/vc/pcvs-defs.el
@@ -493,7 +493,8 @@ It is expected to call the function.")
493 (define-key m [examine] 493 (define-key m [examine]
494 `(menu-item ,(purecopy "Examine Directory") cvs-examine 494 `(menu-item ,(purecopy "Examine Directory") cvs-examine
495 :help ,(purecopy "Examine the current state of a workarea"))) 495 :help ,(purecopy "Examine the current state of a workarea")))
496 (fset 'cvs-global-menu m))) 496 (fset 'cvs-global-menu m))
497 "Global menu used by PCL-CVS.")
497 498
498 499
499;; cvs-1.10 and above can take file arguments in other directories 500;; cvs-1.10 and above can take file arguments in other directories
diff --git a/lisp/vc/vc-bzr.el b/lisp/vc/vc-bzr.el
index f6b6a56f31c..c5c0ce73b3a 100644
--- a/lisp/vc/vc-bzr.el
+++ b/lisp/vc/vc-bzr.el
@@ -124,7 +124,8 @@ Use the current Bzr root directory as the ROOT argument to
124;; Used in the autoloaded vc-bzr-registered; see below. 124;; Used in the autoloaded vc-bzr-registered; see below.
125;;;###autoload 125;;;###autoload
126(defconst vc-bzr-admin-checkout-format-file 126(defconst vc-bzr-admin-checkout-format-file
127 (concat vc-bzr-admin-dirname "/checkout/format")) 127 (concat vc-bzr-admin-dirname "/checkout/format")
128 "Name of the format file in a .bzr directory.")
128(defconst vc-bzr-admin-dirstate 129(defconst vc-bzr-admin-dirstate
129 (concat vc-bzr-admin-dirname "/checkout/dirstate")) 130 (concat vc-bzr-admin-dirname "/checkout/dirstate"))
130(defconst vc-bzr-admin-branch-format-file 131(defconst vc-bzr-admin-branch-format-file
diff --git a/lisp/vc/vc-cvs.el b/lisp/vc/vc-cvs.el
index 6a76359b5f7..7d6c3caf7ff 100644
--- a/lisp/vc/vc-cvs.el
+++ b/lisp/vc/vc-cvs.el
@@ -189,7 +189,8 @@ See also variable `vc-cvs-sticky-date-format-string'."
189;;; State-querying functions 189;;; State-querying functions
190;;; 190;;;
191 191
192;;;###autoload (defun vc-cvs-registered (f) 192;;;###autoload(defun vc-cvs-registered (f)
193;;;###autoload "Return non-nil if file F is registered with CVS."
193;;;###autoload (when (file-readable-p (expand-file-name 194;;;###autoload (when (file-readable-p (expand-file-name
194;;;###autoload "CVS/Entries" (file-name-directory f))) 195;;;###autoload "CVS/Entries" (file-name-directory f)))
195;;;###autoload (load "vc-cvs") 196;;;###autoload (load "vc-cvs")
diff --git a/lisp/vc/vc-mtn.el b/lisp/vc/vc-mtn.el
index 0fc7ba96fb7..f49ad09b5d7 100644
--- a/lisp/vc/vc-mtn.el
+++ b/lisp/vc/vc-mtn.el
@@ -59,9 +59,10 @@ If nil, use the value of `vc-diff-switches'. If t, use no switches."
59 (setq vc-handled-backends (delq 'Mtn vc-handled-backends))) 59 (setq vc-handled-backends (delq 'Mtn vc-handled-backends)))
60 60
61;;;###autoload 61;;;###autoload
62(defconst vc-mtn-admin-dir "_MTN") 62(defconst vc-mtn-admin-dir "_MTN" "Name of the monotone directory.")
63;;;###autoload 63;;;###autoload
64(defconst vc-mtn-admin-format (concat vc-mtn-admin-dir "/format")) 64(defconst vc-mtn-admin-format (concat vc-mtn-admin-dir "/format")
65 "Name of the monotone directory's format file.")
65 66
66;;;###autoload (defun vc-mtn-registered (file) 67;;;###autoload (defun vc-mtn-registered (file)
67;;;###autoload (if (vc-find-root file vc-mtn-admin-format) 68;;;###autoload (if (vc-find-root file vc-mtn-admin-format)
diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el
index ed2bac17217..eea1a992094 100644
--- a/lisp/vc/vc.el
+++ b/lisp/vc/vc.el
@@ -181,7 +181,7 @@
181;; * working-revision (file) 181;; * working-revision (file)
182;; 182;;
183;; Return the working revision of FILE. This is the revision fetched 183;; Return the working revision of FILE. This is the revision fetched
184;; by the last checkout or upate, not necessarily the same thing as the 184;; by the last checkout or update, not necessarily the same thing as the
185;; head or tip revision. Should return "0" for a file added but not yet 185;; head or tip revision. Should return "0" for a file added but not yet
186;; committed. 186;; committed.
187;; 187;;
diff --git a/lisp/version.el b/lisp/version.el
index d28a3004585..aa4e22469c5 100644
--- a/lisp/version.el
+++ b/lisp/version.el
@@ -1,4 +1,4 @@
1;;; version.el --- record version number of Emacs -*- no-byte-compile: t -*- 1;;; version.el --- record version number of Emacs
2 2
3;; Copyright (C) 1985, 1992, 1994-1995, 1999-2011 3;; Copyright (C) 1985, 1992, 1994-1995, 1999-2011
4;; Free Software Foundation, Inc. 4;; Free Software Foundation, Inc.
@@ -40,7 +40,8 @@ This variable first existed in version 19.23.")
40(defconst emacs-build-time (current-time) "\ 40(defconst emacs-build-time (current-time) "\
41Time at which Emacs was dumped out.") 41Time at which Emacs was dumped out.")
42 42
43(defconst emacs-build-system (system-name)) 43(defconst emacs-build-system (system-name) "\
44Name of the system on which Emacs was built.")
44 45
45(defun emacs-version (&optional here) "\ 46(defun emacs-version (&optional here) "\
46Return string describing the version of Emacs that is running. 47Return string describing the version of Emacs that is running.
@@ -83,8 +84,9 @@ to the system configuration; look at `system-configuration' instead."
83 (purecopy (concat "\n$Id: " (subst-char-in-string ?\n ?\s (emacs-version)) 84 (purecopy (concat "\n$Id: " (subst-char-in-string ?\n ?\s (emacs-version))
84 " $\n"))) 85 " $\n")))
85 86
86;;Local variables: 87;; Local Variables:
87;;version-control: never 88;; version-control: never
88;;End: 89;; no-byte-compile: t
90;; End:
89 91
90;;; version.el ends here 92;;; version.el ends here
diff --git a/lisp/view.el b/lisp/view.el
index 6955fbdfad8..a5349445964 100644
--- a/lisp/view.el
+++ b/lisp/view.el
@@ -311,10 +311,9 @@ file: Users may suspend viewing in order to modify the buffer.
311Exiting View mode will then discard the user's edits. Setting 311Exiting View mode will then discard the user's edits. Setting
312EXIT-ACTION to `kill-buffer-if-not-modified' avoids this." 312EXIT-ACTION to `kill-buffer-if-not-modified' avoids this."
313 (interactive "bView buffer: ") 313 (interactive "bView buffer: ")
314 (if (with-current-buffer buffer 314 (if (eq (with-current-buffer buffer
315 (and (eq (get major-mode 'mode-class) 315 (get major-mode 'mode-class))
316 'special) 316 'special)
317 (null buffer-file-name)))
318 (progn 317 (progn
319 (switch-to-buffer buffer) 318 (switch-to-buffer buffer)
320 (message "Not using View mode because the major mode is special")) 319 (message "Not using View mode because the major mode is special"))
diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el
index 20361d32450..1f54b8577c3 100644
--- a/lisp/w32-fns.el
+++ b/lisp/w32-fns.el
@@ -384,7 +384,7 @@ bit output with no translation."
384;; ;; If Unicode Windows charset is not defined, use ansi fonts. 384;; ;; If Unicode Windows charset is not defined, use ansi fonts.
385;; (w32-add-charset-info "iso10646-1" 'w32-charset-ansi t)) 385;; (w32-add-charset-info "iso10646-1" 'w32-charset-ansi t))
386 386
387;; Prefered names 387;; Preferred names
388(w32-add-charset-info "big5-0" 'w32-charset-chinesebig5 950) 388(w32-add-charset-info "big5-0" 'w32-charset-chinesebig5 950)
389(w32-add-charset-info "gb2312.1980-0" 'w32-charset-gb2312 936) 389(w32-add-charset-info "gb2312.1980-0" 'w32-charset-gb2312 936)
390(w32-add-charset-info "jisx0208-sjis" 'w32-charset-shiftjis 932) 390(w32-add-charset-info "jisx0208-sjis" 'w32-charset-shiftjis 932)
diff --git a/lisp/wdired.el b/lisp/wdired.el
index cc99bd40628..b9c07d15ae8 100644
--- a/lisp/wdired.el
+++ b/lisp/wdired.el
@@ -32,7 +32,7 @@
32;; the files in a "dired" buffer? Now you can do this. All the power 32;; the files in a "dired" buffer? Now you can do this. All the power
33;; of Emacs commands are available to renaming files! 33;; of Emacs commands are available to renaming files!
34;; 34;;
35;; This package provides a function that makes the filenames of a a 35;; This package provides a function that makes the filenames of a
36;; dired buffer editable, by changing the buffer mode (which inhibits 36;; dired buffer editable, by changing the buffer mode (which inhibits
37;; all of the commands of dired mode). Here you can edit the names of 37;; all of the commands of dired mode). Here you can edit the names of
38;; one or more files and directories, and when you press C-c C-c, the 38;; one or more files and directories, and when you press C-c C-c, the
diff --git a/lisp/whitespace.el b/lisp/whitespace.el
index 53a35b4f0b3..57f51e21fbb 100644
--- a/lisp/whitespace.el
+++ b/lisp/whitespace.el
@@ -623,8 +623,12 @@ and `newline'."
623(defface whitespace-newline 623(defface whitespace-newline
624 '((((class color) (background dark)) 624 '((((class color) (background dark))
625 (:foreground "darkgray" :bold nil)) 625 (:foreground "darkgray" :bold nil))
626 (((class color) (background light)) 626 (((class color) (min-colors 88) (background light))
627 (:foreground "lightgray" :bold nil)) 627 (:foreground "lightgray" :bold nil))
628 ;; Displays with 16 colors use lightgray as background, so using a
629 ;; lightgray foreground makes the newline mark invisible.
630 (((class color) (background light))
631 (:foreground "brown" :bold nil))
628 (t (:underline t :bold nil))) 632 (t (:underline t :bold nil)))
629 "Face used to visualize NEWLINE char mapping. 633 "Face used to visualize NEWLINE char mapping.
630 634
diff --git a/lisp/window.el b/lisp/window.el
index 2885c3a5c70..69276a839bd 100644
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -170,7 +170,7 @@ Applications should never rebind this variable. To resize a
170window to a height less than the one specified here, an 170window to a height less than the one specified here, an
171application should instead call `window-resize' with a non-nil 171application should instead call `window-resize' with a non-nil
172IGNORE argument. In order to have `split-window' make a window 172IGNORE argument. In order to have `split-window' make a window
173shorter, explictly specify the SIZE argument of that function." 173shorter, explicitly specify the SIZE argument of that function."
174 :type 'integer 174 :type 'integer
175 :version "24.1" 175 :version "24.1"
176 :group 'windows) 176 :group 'windows)
@@ -190,7 +190,7 @@ Applications should never rebind this variable. To resize a
190window to a width less than the one specified here, an 190window to a width less than the one specified here, an
191application should instead call `window-resize' with a non-nil 191application should instead call `window-resize' with a non-nil
192IGNORE argument. In order to have `split-window' make a window 192IGNORE argument. In order to have `split-window' make a window
193narrower, explictly specify the SIZE argument of that function." 193narrower, explicitly specify the SIZE argument of that function."
194 :type 'integer 194 :type 'integer
195 :version "24.1" 195 :version "24.1"
196 :group 'windows) 196 :group 'windows)
@@ -4515,6 +4515,12 @@ Return WINDOW."
4515 (set-window-dedicated-p window dedicated)) 4515 (set-window-dedicated-p window dedicated))
4516 (window--display-buffer-1 window))) 4516 (window--display-buffer-1 window)))
4517 4517
4518;; FIXME: Not implemented.
4519;; FIXME: By the way, there could be more levels of dedication:
4520;; - `barely' dedicated doesn't prevent reuse of the window, only records that
4521;; the window hasn't been used for something else yet.
4522;; - `softly' dedicated only allows reuse when asked explicitly.
4523;; - `strongly' never allows reuse.
4518(defvar display-buffer-mark-dedicated nil 4524(defvar display-buffer-mark-dedicated nil
4519 "If non-nil, `display-buffer' marks the windows it creates as dedicated. 4525 "If non-nil, `display-buffer' marks the windows it creates as dedicated.
4520The actual non-nil value of this variable will be copied to the 4526The actual non-nil value of this variable will be copied to the
@@ -4522,7 +4528,7 @@ The actual non-nil value of this variable will be copied to the
4522 4528
4523(defun window-normalize-buffer-to-display (buffer-or-name) 4529(defun window-normalize-buffer-to-display (buffer-or-name)
4524 "Normalize BUFFER-OR-NAME argument for buffer display functions. 4530 "Normalize BUFFER-OR-NAME argument for buffer display functions.
4525If BUFFER-OR-NAME is nil, return the curent buffer. Else, if a 4531If BUFFER-OR-NAME is nil, return the current buffer. Else, if a
4526buffer specified by BUFFER-OR-NAME exists, return that buffer. 4532buffer specified by BUFFER-OR-NAME exists, return that buffer.
4527If no such buffer exists, create a buffer with the name 4533If no such buffer exists, create a buffer with the name
4528BUFFER-OR-NAME and return that buffer." 4534BUFFER-OR-NAME and return that buffer."
@@ -4786,9 +4792,10 @@ terminal if either of those variables is non-nil."
4786 (window--display-buffer-1 window)))) 4792 (window--display-buffer-1 window))))
4787 4793
4788(defun display-buffer--special-action (buffer) 4794(defun display-buffer--special-action (buffer)
4789 "Try to display BUFFER using `special-display-function'. 4795 "Return special display action for BUFFER, if any.
4790Call `special-display-p' on BUFFER's name, and if that returns 4796If `special-display-p' returns non-nil for BUFFER, return an
4791non-nil, call `special-display-function' on BUFFER." 4797appropriate display action involving `special-display-function'.
4798See `display-buffer' for the format of display actions."
4792 (and special-display-function 4799 (and special-display-function
4793 ;; `special-display-p' returns either t or a list of frame 4800 ;; `special-display-p' returns either t or a list of frame
4794 ;; parameters to pass to `special-display-function'. 4801 ;; parameters to pass to `special-display-function'.
@@ -4944,10 +4951,7 @@ the buffer.
4944 4951
4945NORECORD, if non-nil means do not put this buffer at the front of 4952NORECORD, if non-nil means do not put this buffer at the front of
4946the list of recently selected ones." 4953the list of recently selected ones."
4947 (pop-to-buffer buffer 4954 (pop-to-buffer buffer display-buffer--same-window-action norecord))
4948 '(display-buffer-same-window
4949 (inhibit-same-window . nil))
4950 norecord))
4951 4955
4952(defun read-buffer-to-switch (prompt) 4956(defun read-buffer-to-switch (prompt)
4953 "Read the name of a buffer to switch to, prompting with PROMPT. 4957 "Read the name of a buffer to switch to, prompting with PROMPT.
@@ -5012,21 +5016,23 @@ Return the buffer switched to."
5012 (interactive 5016 (interactive
5013 (list (read-buffer-to-switch "Switch to buffer: ") nil 'force-same-window)) 5017 (list (read-buffer-to-switch "Switch to buffer: ") nil 'force-same-window))
5014 (let ((buffer (window-normalize-buffer-to-switch-to buffer-or-name))) 5018 (let ((buffer (window-normalize-buffer-to-switch-to buffer-or-name)))
5015 (if (null force-same-window) 5019 (cond
5016 (pop-to-buffer buffer display-buffer--same-window-action norecord) 5020 ;; Don't call set-window-buffer if it's not needed since it
5017 (cond 5021 ;; might signal an error (e.g. if the window is dedicated).
5018 ;; Don't call set-window-buffer if it's not needed since it 5022 ((eq buffer (window-buffer)))
5019 ;; might signal an error (e.g. if the window is dedicated). 5023 ((window-minibuffer-p)
5020 ((eq buffer (window-buffer))) 5024 (if force-same-window
5021 ((window-minibuffer-p) 5025 (error "Cannot switch buffers in minibuffer window")
5022 (error "Cannot switch buffers in minibuffer window")) 5026 (pop-to-buffer buffer norecord)))
5023 ((eq (window-dedicated-p) t) 5027 ((eq (window-dedicated-p) t)
5024 (error "Cannot switch buffers in a dedicated window")) 5028 (if force-same-window
5025 (t (set-window-buffer nil buffer))) 5029 (error "Cannot switch buffers in a dedicated window")
5026 5030 (pop-to-buffer buffer norecord)))
5027 (unless norecord 5031 (t (set-window-buffer nil buffer)))
5028 (select-window (selected-window))) 5032
5029 (set-buffer buffer)))) 5033 (unless norecord
5034 (select-window (selected-window)))
5035 (set-buffer buffer)))
5030 5036
5031(defun switch-to-buffer-other-window (buffer-or-name &optional norecord) 5037(defun switch-to-buffer-other-window (buffer-or-name &optional norecord)
5032 "Select the buffer specified by BUFFER-OR-NAME in another window. 5038 "Select the buffer specified by BUFFER-OR-NAME in another window.
diff --git a/lwlib/lwlib.c b/lwlib/lwlib.c
index 7e3538aec04..b83517ad1f9 100644
--- a/lwlib/lwlib.c
+++ b/lwlib/lwlib.c
@@ -1156,9 +1156,9 @@ lw_get_widget_value_for_widget (widget_instance *instance, Widget w)
1156/* To forbid recursive calls */ 1156/* To forbid recursive calls */
1157static Boolean lwlib_updating; 1157static Boolean lwlib_updating;
1158 1158
1159/* This function can be used as a an XtCallback for the widgets that get 1159/* This function can be used as an XtCallback for the widgets that get
1160 modified to update other instances of the widgets. Closure should be the 1160 modified to update other instances of the widgets. Closure should be the
1161 widget_instance. */ 1161 widget_instance. */
1162void 1162void
1163lw_internal_update_other_instances (Widget widget, 1163lw_internal_update_other_instances (Widget widget,
1164 XtPointer closure, 1164 XtPointer closure,
diff --git a/msdos/sed2v2.inp b/msdos/sed2v2.inp
index ce00e82cdd4..6cbeadc0bba 100644
--- a/msdos/sed2v2.inp
+++ b/msdos/sed2v2.inp
@@ -59,7 +59,7 @@
59/^#undef PACKAGE_STRING/s/^.*$/#define PACKAGE_STRING ""/ 59/^#undef PACKAGE_STRING/s/^.*$/#define PACKAGE_STRING ""/
60/^#undef PACKAGE_TARNAME/s/^.*$/#define PACKAGE_TARNAME ""/ 60/^#undef PACKAGE_TARNAME/s/^.*$/#define PACKAGE_TARNAME ""/
61/^#undef PACKAGE_VERSION/s/^.*$/#define PACKAGE_VERSION ""/ 61/^#undef PACKAGE_VERSION/s/^.*$/#define PACKAGE_VERSION ""/
62/^#undef VERSION/s/^.*$/#define VERSION "24.0.91"/ 62/^#undef VERSION/s/^.*$/#define VERSION "24.0.92"/
63/^#undef HAVE_DECL_GETENV/s/^.*$/#define HAVE_DECL_GETENV 1/ 63/^#undef HAVE_DECL_GETENV/s/^.*$/#define HAVE_DECL_GETENV 1/
64/^#undef SYS_SIGLIST_DECLARED/s/^.*$/#define SYS_SIGLIST_DECLARED 1/ 64/^#undef SYS_SIGLIST_DECLARED/s/^.*$/#define SYS_SIGLIST_DECLARED 1/
65/^#undef HAVE_DIRENT_H/s/^.*$/#define HAVE_DIRENT_H 1/ 65/^#undef HAVE_DIRENT_H/s/^.*$/#define HAVE_DIRENT_H 1/
diff --git a/nextstep/Cocoa/Emacs.base/Contents/Info.plist b/nextstep/Cocoa/Emacs.base/Contents/Info.plist
index ca5b0671268..61a8a28f3a9 100644
--- a/nextstep/Cocoa/Emacs.base/Contents/Info.plist
+++ b/nextstep/Cocoa/Emacs.base/Contents/Info.plist
@@ -553,7 +553,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
553 <key>CFBundleExecutable</key> 553 <key>CFBundleExecutable</key>
554 <string>Emacs</string> 554 <string>Emacs</string>
555 <key>CFBundleGetInfoString</key> 555 <key>CFBundleGetInfoString</key>
556 <string>Emacs 24.0.91 Copyright (C) 2011 Free Software Foundation, Inc.</string> 556 <string>Emacs 24.0.92 Copyright (C) 2011 Free Software Foundation, Inc.</string>
557 <key>CFBundleIconFile</key> 557 <key>CFBundleIconFile</key>
558 <string>Emacs.icns</string> 558 <string>Emacs.icns</string>
559 <key>CFBundleIdentifier</key> 559 <key>CFBundleIdentifier</key>
@@ -566,7 +566,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
566 <string>APPL</string> 566 <string>APPL</string>
567 <!-- This should be the emacs version number. --> 567 <!-- This should be the emacs version number. -->
568 <key>CFBundleShortVersionString</key> 568 <key>CFBundleShortVersionString</key>
569 <string>24.0.91</string> 569 <string>24.0.92</string>
570 <key>CFBundleSignature</key> 570 <key>CFBundleSignature</key>
571 <string>EMAx</string> 571 <string>EMAx</string>
572 <!-- This SHOULD be a build number. --> 572 <!-- This SHOULD be a build number. -->
diff --git a/nextstep/Cocoa/Emacs.base/Contents/Resources/English.lproj/InfoPlist.strings b/nextstep/Cocoa/Emacs.base/Contents/Resources/English.lproj/InfoPlist.strings
index 21e4dd977ca..438a6103f5e 100644
--- a/nextstep/Cocoa/Emacs.base/Contents/Resources/English.lproj/InfoPlist.strings
+++ b/nextstep/Cocoa/Emacs.base/Contents/Resources/English.lproj/InfoPlist.strings
@@ -1,6 +1,6 @@
1/* Localized versions of Info.plist keys */ 1/* Localized versions of Info.plist keys */
2 2
3CFBundleName = "Emacs"; 3CFBundleName = "Emacs";
4CFBundleShortVersionString = "Version 24.0.91"; 4CFBundleShortVersionString = "Version 24.0.92";
5CFBundleGetInfoString = "Emacs version 24.0.91, NS Windowing"; 5CFBundleGetInfoString = "Emacs version 24.0.92, NS Windowing";
6NSHumanReadableCopyright = "Copyright (C) 2011 Free Software Foundation, Inc."; 6NSHumanReadableCopyright = "Copyright (C) 2011 Free Software Foundation, Inc.";
diff --git a/nextstep/GNUstep/Emacs.base/Resources/Emacs.desktop b/nextstep/GNUstep/Emacs.base/Resources/Emacs.desktop
index 5ccb7b38a5b..1b8926e9ef6 100644
--- a/nextstep/GNUstep/Emacs.base/Resources/Emacs.desktop
+++ b/nextstep/GNUstep/Emacs.base/Resources/Emacs.desktop
@@ -1,7 +1,7 @@
1[Desktop Entry] 1[Desktop Entry]
2Encoding=UTF-8 2Encoding=UTF-8
3Type=Application 3Type=Application
4Version=24.0.91 4Version=24.0.92
5Categories=GNUstep 5Categories=GNUstep
6Name=Emacs 6Name=Emacs
7Comment=GNU Emacs for NeXT/Open/GNUstep and OS X 7Comment=GNU Emacs for NeXT/Open/GNUstep and OS X
diff --git a/nextstep/GNUstep/Emacs.base/Resources/Info-gnustep.plist b/nextstep/GNUstep/Emacs.base/Resources/Info-gnustep.plist
index 7212ef41f41..9747ed25a2a 100644
--- a/nextstep/GNUstep/Emacs.base/Resources/Info-gnustep.plist
+++ b/nextstep/GNUstep/Emacs.base/Resources/Info-gnustep.plist
@@ -2,7 +2,7 @@
2 ApplicationDescription = "GNU Emacs for GNUstep / OS X"; 2 ApplicationDescription = "GNU Emacs for GNUstep / OS X";
3 ApplicationIcon = emacs.tiff; 3 ApplicationIcon = emacs.tiff;
4 ApplicationName = Emacs; 4 ApplicationName = Emacs;
5 ApplicationRelease = "24.0.91"; 5 ApplicationRelease = "24.0.92";
6 Authors = ( 6 Authors = (
7 "Adrian Robert (GNUstep)", 7 "Adrian Robert (GNUstep)",
8 "Christophe de Dinechin (MacOS X)", 8 "Christophe de Dinechin (MacOS X)",
@@ -13,7 +13,7 @@
13 ); 13 );
14 Copyright = "Copyright (C) 2011 Free Software Foundation, Inc."; 14 Copyright = "Copyright (C) 2011 Free Software Foundation, Inc.";
15 CopyrightDescription = "Released under the GNU General Public License Version 3 or later"; 15 CopyrightDescription = "Released under the GNU General Public License Version 3 or later";
16 FullVersionID = "Emacs 24.0.91, NS Windowing"; 16 FullVersionID = "Emacs 24.0.92, NS Windowing";
17 NSExecutable = Emacs; 17 NSExecutable = Emacs;
18 NSIcon = emacs.tiff; 18 NSIcon = emacs.tiff;
19 NSPrincipalClass = NSApplication; 19 NSPrincipalClass = NSApplication;
diff --git a/nt/ChangeLog b/nt/ChangeLog
index 8de94033196..859123c1a86 100644
--- a/nt/ChangeLog
+++ b/nt/ChangeLog
@@ -1,3 +1,23 @@
12011-11-27 Fabrice Popineau <fabrice.popineau@supelec.fr> (tiny change)
2
3 * inc/stdint.h (uint32_t, uint64_t) [_WIN64]: New typedefs.
4 (UINT64_MAX) [_WIN64]: Fix definition.
5 (uintmax_t, intmax_t): Fix definitions.
6
7 * inc/inttypes.h (strtoumax, strtoimax) [!__MINGW32__]: Provide
8 correct definitions.
9
10 * config.nt (HAVE_DECL_STRTOLL): Define.
11 (va_copy) [_WIN64]: Provide a better definition.
12
132011-11-25 Juanma Barranquero <lekktu@gmail.com>
14
15 * configure.bat: Fix typos.
16
172011-11-25 Eli Zaretskii <eliz@gnu.org>
18
19 * INSTALL: Elaborate on debugging fatal errors.
20
12011-11-15 Eli Zaretskii <eliz@gnu.org> 212011-11-15 Eli Zaretskii <eliz@gnu.org>
2 22
3 * README.W32: Update the GTK Windows download URL for libpng. 23 * README.W32: Update the GTK Windows download URL for libpng.
@@ -1784,7 +1804,7 @@
1784 1804
17851998-12-08 Geoff Voelker <voelker@cs.washington.edu> 18051998-12-08 Geoff Voelker <voelker@cs.washington.edu>
1786 1806
1787 * makefile.nt: Do string comparision of _NMAKE_VER. 1807 * makefile.nt: Do string comparison of _NMAKE_VER.
1788 1808
17891998-12-02 Geoff Voelker <voelker@cs.washington.edu> 18091998-12-02 Geoff Voelker <voelker@cs.washington.edu>
1790 1810
diff --git a/nt/INSTALL b/nt/INSTALL
index bb621dceb6b..9947cd86a34 100644
--- a/nt/INSTALL
+++ b/nt/INSTALL
@@ -599,6 +599,30 @@
599 the debugger, and you will be able to debug the cause of the fatal 599 the debugger, and you will be able to debug the cause of the fatal
600 error. 600 error.
601 601
602 The single most important thing to find out when Emacs aborts or
603 crashes is where did that happen in the Emacs code. This is called
604 "backtrace".
605
606 Emacs on Windows uses more than one thread. When Emacs aborts due
607 to a fatal error, the current thread may not be the application
608 thread running Emacs code. Therefore, to produce a meaningful
609 backtrace from a debugger, you need to instruct it to show the
610 backtrace for every thread. With GDB, you do it like this:
611
612 (gdb) thread apply all backtrace
613
614 To run Emacs under a debugger to begin with, simply start it from
615 the debugger. With GDB, chdir to the `src' directory (if you have
616 the source tree) or to a directory with the `.gdbinit' file (if you
617 don't have the source tree), and type these commands:
618
619 C:\whatever\src> gdb x:\path\to\emacs.exe
620 (gdb) run <ARGUMENTS TO EMACS>
621
622 Thereafter, use Emacs as usual; you can minimize the debugger
623 window, if you like. The debugger will take control if and when
624 Emacs crashes.
625
602 Emacs functions implemented in C use a naming convention that reflects 626 Emacs functions implemented in C use a naming convention that reflects
603 their names in lisp. The names of the C routines are the lisp names 627 their names in lisp. The names of the C routines are the lisp names
604 prefixed with 'F', and with dashes converted to underscores. For 628 prefixed with 'F', and with dashes converted to underscores. For
diff --git a/nt/config.nt b/nt/config.nt
index 3a06a9f5b7a..c77faccb3b4 100644
--- a/nt/config.nt
+++ b/nt/config.nt
@@ -303,6 +303,10 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
303/* Define to 1 if you have the `localtime_r' function. */ 303/* Define to 1 if you have the `localtime_r' function. */
304#undef HAVE_LOCALTIME_R 304#undef HAVE_LOCALTIME_R
305 305
306/* Define to 1 if you have the declaration of `strtoll', and to 0 if you
307 don't. */
308#define HAVE_DECL_STRTOLL 1
309
306/* Define to 1 if you have the declaration of `strtoull', and to 0 if you 310/* Define to 1 if you have the declaration of `strtoull', and to 0 if you
307 don't. */ 311 don't. */
308#define HAVE_DECL_STRTOULL 1 312#define HAVE_DECL_STRTOULL 1
@@ -324,7 +328,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
324#define PACKAGE "emacs" 328#define PACKAGE "emacs"
325 329
326/* Version number of package */ 330/* Version number of package */
327#define VERSION "24.0.91" 331#define VERSION "24.0.92"
328 332
329/* Define to `__inline__' or `__inline' if that's what the C compiler 333/* Define to `__inline__' or `__inline' if that's what the C compiler
330 calls it, or to nothing if 'inline' is not supported under any name. */ 334 calls it, or to nothing if 'inline' is not supported under any name. */
@@ -353,8 +357,8 @@ typedef unsigned short mode_t;
353/* A va_copy replacement for MSVC. */ 357/* A va_copy replacement for MSVC. */
354#ifdef _MSC_VER 358#ifdef _MSC_VER
355# ifdef _WIN64 359# ifdef _WIN64
356# ifndef va_copy 360# ifndef va_copy /* Need to be checked (?) */
357# error "va_copy is needed, but not defined!" 361# define va_copy(d,s) ((d) = (s))
358# endif 362# endif
359# else /* not _WIN64 */ 363# else /* not _WIN64 */
360# define va_copy(d,s) ((d) = (s)) 364# define va_copy(d,s) ((d) = (s))
diff --git a/nt/configure.bat b/nt/configure.bat
index 45d966fc34d..c503900274e 100755
--- a/nt/configure.bat
+++ b/nt/configure.bat
@@ -155,7 +155,7 @@ echo. --without-jpeg do not use JPEG library even if it is installed
155echo. --without-gif do not use GIF library even if it is installed 155echo. --without-gif do not use GIF library even if it is installed
156echo. --without-tiff do not use TIFF library even if it is installed 156echo. --without-tiff do not use TIFF library even if it is installed
157echo. --without-xpm do not use XPM library even if it is installed 157echo. --without-xpm do not use XPM library even if it is installed
158echo. --without-gnutls do not use GNUTLS library even if it is installed 158echo. --without-gnutls do not use GnuTLS library even if it is installed
159echo. --with-svg use the RSVG library (experimental) 159echo. --with-svg use the RSVG library (experimental)
160echo. --distfiles path to files for make dist, e.g. libXpm.dll 160echo. --distfiles path to files for make dist, e.g. libXpm.dll
161if "%use_extensions%" == "0" goto end 161if "%use_extensions%" == "0" goto end
@@ -563,7 +563,7 @@ set HAVE_GNUTLS=
563goto :tlsDone 563goto :tlsDone
564 564
565:haveTls 565:haveTls
566echo ...GNUTLS header available, building with GNUTLS support. 566echo ...GnuTLS header available, building with GnuTLS support.
567set HAVE_GNUTLS=1 567set HAVE_GNUTLS=1
568 568
569:tlsDone 569:tlsDone
diff --git a/nt/emacs.rc b/nt/emacs.rc
index 9f7fc6f14aa..479a228bb69 100644
--- a/nt/emacs.rc
+++ b/nt/emacs.rc
@@ -7,8 +7,8 @@ Emacs ICON icons\emacs.ico
7#endif 7#endif
8 8
9VS_VERSION_INFO VERSIONINFO 9VS_VERSION_INFO VERSIONINFO
10 FILEVERSION 24,0,91,0 10 FILEVERSION 24,0,92,0
11 PRODUCTVERSION 24,0,91,0 11 PRODUCTVERSION 24,0,92,0
12 FILEFLAGSMASK 0x3FL 12 FILEFLAGSMASK 0x3FL
13#ifdef EMACSDEBUG 13#ifdef EMACSDEBUG
14 FILEFLAGS 0x1L 14 FILEFLAGS 0x1L
@@ -25,12 +25,12 @@ BEGIN
25 BEGIN 25 BEGIN
26 VALUE "CompanyName", "Free Software Foundation\0" 26 VALUE "CompanyName", "Free Software Foundation\0"
27 VALUE "FileDescription", "GNU Emacs: The extensible self-documenting text editor\0" 27 VALUE "FileDescription", "GNU Emacs: The extensible self-documenting text editor\0"
28 VALUE "FileVersion", "24, 0, 91, 0\0" 28 VALUE "FileVersion", "24, 0, 92, 0\0"
29 VALUE "InternalName", "Emacs\0" 29 VALUE "InternalName", "Emacs\0"
30 VALUE "LegalCopyright", "Copyright (C) 2001-2011\0" 30 VALUE "LegalCopyright", "Copyright (C) 2001-2011\0"
31 VALUE "OriginalFilename", "emacs.exe" 31 VALUE "OriginalFilename", "emacs.exe"
32 VALUE "ProductName", "Emacs\0" 32 VALUE "ProductName", "Emacs\0"
33 VALUE "ProductVersion", "24, 0, 91, 0\0" 33 VALUE "ProductVersion", "24, 0, 92, 0\0"
34 VALUE "OLESelfRegister", "\0" 34 VALUE "OLESelfRegister", "\0"
35 END 35 END
36 END 36 END
diff --git a/nt/emacsclient.rc b/nt/emacsclient.rc
index 6de1daeb959..b653e1fb952 100644
--- a/nt/emacsclient.rc
+++ b/nt/emacsclient.rc
@@ -5,8 +5,8 @@ Emacs ICON icons\emacs.ico
5#endif 5#endif
6 6
7VS_VERSION_INFO VERSIONINFO 7VS_VERSION_INFO VERSIONINFO
8 FILEVERSION 24,0,91,0 8 FILEVERSION 24,0,92,0
9 PRODUCTVERSION 24,0,91,0 9 PRODUCTVERSION 24,0,92,0
10 FILEFLAGSMASK 0x3FL 10 FILEFLAGSMASK 0x3FL
11#ifdef EMACSDEBUG 11#ifdef EMACSDEBUG
12 FILEFLAGS 0x1L 12 FILEFLAGS 0x1L
@@ -23,12 +23,12 @@ BEGIN
23 BEGIN 23 BEGIN
24 VALUE "CompanyName", "Free Software Foundation\0" 24 VALUE "CompanyName", "Free Software Foundation\0"
25 VALUE "FileDescription", "GNU EmacsClient: Client for the extensible self-documenting text editor\0" 25 VALUE "FileDescription", "GNU EmacsClient: Client for the extensible self-documenting text editor\0"
26 VALUE "FileVersion", "24, 0, 91, 0\0" 26 VALUE "FileVersion", "24, 0, 92, 0\0"
27 VALUE "InternalName", "EmacsClient\0" 27 VALUE "InternalName", "EmacsClient\0"
28 VALUE "LegalCopyright", "Copyright (C) 2001-2011\0" 28 VALUE "LegalCopyright", "Copyright (C) 2001-2011\0"
29 VALUE "OriginalFilename", "emacsclientw.exe" 29 VALUE "OriginalFilename", "emacsclientw.exe"
30 VALUE "ProductName", "EmacsClient\0" 30 VALUE "ProductName", "EmacsClient\0"
31 VALUE "ProductVersion", "24, 0, 91, 0\0" 31 VALUE "ProductVersion", "24, 0, 92, 0\0"
32 VALUE "OLESelfRegister", "\0" 32 VALUE "OLESelfRegister", "\0"
33 END 33 END
34 END 34 END
diff --git a/nt/inc/inttypes.h b/nt/inc/inttypes.h
index 3e8b55ab98e..ba26cc1115d 100644
--- a/nt/inc/inttypes.h
+++ b/nt/inc/inttypes.h
@@ -24,7 +24,13 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
24#include_next <inttypes.h> 24#include_next <inttypes.h>
25#else /* !__MINGW32__ */ 25#else /* !__MINGW32__ */
26#include "stdint.h" 26#include "stdint.h"
27#ifdef _WIN64
27#define strtoumax _strtoui64 28#define strtoumax _strtoui64
29#define strtoimax _strtoi64
30#else
31#define strtoumax strtoul
32#define strtoimax strtol
33#endif
28#endif /* !__MINGW32__ */ 34#endif /* !__MINGW32__ */
29 35
30#endif 36#endif
diff --git a/nt/inc/stdint.h b/nt/inc/stdint.h
index fa2e06f3da9..4eda1c5a688 100644
--- a/nt/inc/stdint.h
+++ b/nt/inc/stdint.h
@@ -29,7 +29,9 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
29 29
30#ifdef _WIN64 30#ifdef _WIN64
31typedef __int64 intptr_t; 31typedef __int64 intptr_t;
32#define UINT64_MAX 18446744073709551615 32typedef unsigned int uint32_t;
33typedef unsigned __int64 uint64_t;
34#define UINT64_MAX (18446744073709551615i64)
33#define UINT64_MIN 0 35#define UINT64_MIN 0
34/* "i64" is the non-standard suffix used by MSVC for 64-bit constants. */ 36/* "i64" is the non-standard suffix used by MSVC for 64-bit constants. */
35#define INT64_MAX 9223372036854775807i64 37#define INT64_MAX 9223372036854775807i64
@@ -39,6 +41,8 @@ typedef __int64 intptr_t;
39#define UINTMAX_MIN UINT64_MIN 41#define UINTMAX_MIN UINT64_MIN
40#define INTMAX_MAX INT64_MAX 42#define INTMAX_MAX INT64_MAX
41#define INTMAX_MIN INT64_MIN 43#define INTMAX_MIN INT64_MIN
44#define uintmax_t unsigned __int64
45#define intmax_t __int64
42#else 46#else
43typedef int intptr_t; 47typedef int intptr_t;
44typedef unsigned int uint32_t; 48typedef unsigned int uint32_t;
@@ -51,10 +55,10 @@ typedef unsigned int uint32_t;
51#define UINTMAX_MIN UINT32_MIN 55#define UINTMAX_MIN UINT32_MIN
52#define INTMAX_MAX INT32_MAX 56#define INTMAX_MAX INT32_MAX
53#define INTMAX_MIN INT32_MIN 57#define INTMAX_MIN INT32_MIN
58#define uintmax_t unsigned long
59#define intmax_t long
54#endif 60#endif
55 61
56#define uintmax_t unsigned __int64
57#define intmax_t __int64
58#define PTRDIFF_MAX INTPTR_MAX 62#define PTRDIFF_MAX INTPTR_MAX
59 63
60#endif /* !__GNUC__ */ 64#endif /* !__GNUC__ */
diff --git a/nt/makefile.w32-in b/nt/makefile.w32-in
index 194f0759bbf..a474e34eaa5 100644
--- a/nt/makefile.w32-in
+++ b/nt/makefile.w32-in
@@ -22,7 +22,7 @@
22# FIXME: This file uses DOS EOLs. Convert to Unix after 22.1 is out 22# FIXME: This file uses DOS EOLs. Convert to Unix after 22.1 is out
23# (and remove or replace this comment). 23# (and remove or replace this comment).
24 24
25VERSION = 24.0.91 25VERSION = 24.0.92
26 26
27TMP_DIST_DIR = emacs-$(VERSION) 27TMP_DIST_DIR = emacs-$(VERSION)
28 28
diff --git a/oldXMenu/Activate.c b/oldXMenu/Activate.c
index fef8a3b6b25..2f1c85aa1a2 100644
--- a/oldXMenu/Activate.c
+++ b/oldXMenu/Activate.c
@@ -78,7 +78,7 @@ along with this program. If not, see <http://www.gnu.org/licenses/>. */
78 * 78 *
79 * 3) The application has enabled asynchronous event 79 * 3) The application has enabled asynchronous event
80 * queuing mode. In this mode all foreign events 80 * queuing mode. In this mode all foreign events
81 * will be queued up untill XMenuActivate 81 * will be queued up until XMenuActivate
82 * terminates; at which time they will be 82 * terminates; at which time they will be
83 * returned to the X event queue. As long as 83 * returned to the X event queue. As long as
84 * AEQ mode is enabled any asynchronous event 84 * AEQ mode is enabled any asynchronous event
diff --git a/src/.gdbinit b/src/.gdbinit
index 80415abe40d..2051475bea0 100644
--- a/src/.gdbinit
+++ b/src/.gdbinit
@@ -311,9 +311,8 @@ define prowx
311 printf "y=%d x=%d pwid=%d", $row->y, $row->x, $row->pixel_width 311 printf "y=%d x=%d pwid=%d", $row->y, $row->x, $row->pixel_width
312 printf " a+d=%d+%d=%d", $row->ascent, $row->height-$row->ascent, $row->height 312 printf " a+d=%d+%d=%d", $row->ascent, $row->height-$row->ascent, $row->height
313 printf " phys=%d+%d=%d", $row->phys_ascent, $row->phys_height-$row->phys_ascent, $row->phys_height 313 printf " phys=%d+%d=%d", $row->phys_ascent, $row->phys_height-$row->phys_ascent, $row->phys_height
314 printf " vis=%d", $row->visible_height 314 printf " vis=%d\n", $row->visible_height
315 printf " L=%d T=%d R=%d", $row->used[0], $row->used[1], $row->used[2] 315 printf "used=(LMargin=%d,Text=%d,RMargin=%d) Hash=%d\n", $row->used[0], $row->used[1], $row->used[2], $row->hash
316 printf "\n"
317 printf "start=%d end=%d", $row->start.pos.charpos, $row->end.pos.charpos 316 printf "start=%d end=%d", $row->start.pos.charpos, $row->end.pos.charpos
318 if ($row->enabled_p) 317 if ($row->enabled_p)
319 printf " ENA" 318 printf " ENA"
diff --git a/src/ChangeLog b/src/ChangeLog
index a0f83560603..6a13bd87264 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,160 @@
12011-12-03 Jan Djärv <jan.h.d@swipnet.se>
2
3 * widget.c (update_wm_hints): Return if wmshell is null.
4 (widget_update_wm_size_hints): New function.
5
6 * widget.h (widget_update_wm_size_hints): Declare.
7
8 * xterm.c (x_wm_set_size_hint): If USE_X_TOOLKIT, call
9 widget_update_wm_size_hints (Bug#10104).
10
112011-12-03 Eli Zaretskii <eliz@gnu.org>
12
13 * xdisp.c (handle_invisible_prop): If the invisible text ends just
14 before a newline, prepare the bidi iterator for consuming the
15 newline, and keep the current paragraph direction. (Bug#10183)
16 (redisplay_window): Don't let `margin' become negative. (Bug#10192)
17
182011-12-02 Juri Linkov <juri@jurta.org>
19
20 * search.c (Fword_search_regexp): New Lisp function created from
21 `wordify'. Change type of arg `lax' from `int' to `Lisp_Object'.
22 (Fword_search_backward, Fword_search_forward)
23 (Fword_search_backward_lax, Fword_search_forward_lax):
24 Use `Fword_search_regexp' instead of `wordify'. Doc fix.
25 (syms_of_search): Define `Sword_search_regexp'. (Bug#10145)
26
272011-12-01 Stefan Monnier <monnier@iro.umontreal.ca>
28
29 * fileio.c (Finsert_file_contents): Move after-change-function call
30 to before the "handled:" label, since all "goto handled" appear in
31 cases where the *-change-functions have already been properly called
32 (bug#10117).
33
342011-12-01 Andreas Schwab <schwab@linux-m68k.org>
35
36 * keyboard.c (interrupt_signal): Don't call kill-emacs when
37 waiting for input. (Bug#10169)
38
392011-11-30 Eli Zaretskii <eliz@gnu.org>
40
41 * dispnew.c (adjust_glyph_matrix): Remove the assertion that
42 verifies glyph row's hash code--we have just reallocated the
43 glyphs, so their contents can be complete garbage. (Bug#10164)
44
452011-11-30 Juanma Barranquero <lekktu@gmail.com>
46
47 * dispnew.c (adjust_glyph_matrix) [XASSERTS]: Add missing check.
48
492011-11-30 Eli Zaretskii <eliz@gnu.org>
50
51 * dispnew.c (adjust_glyph_matrix) [XASSERTS]: Ensure ROW's
52 attributes are tested _before_ calling verify_row_hash, to protect
53 against GCC re-ordering of the tests. (Bug#10164)
54
552011-11-29 Jan Djärv <jan.h.d@swipnet.se>
56
57 * xterm.h (struct x_output): net_wm_state_hidden_seen is new.
58
59 * xterm.c (handle_one_xevent): Only set async_visible and friends
60 if net_wm_state_hidden_seen is non-zero (Bug#10002)
61 (get_current_wm_state): Set net_wm_state_hidden_seen to 1 if
62 _NET_WM_STATE_HIDDEN is in NET_WM_STATE.
63
642011-11-28 Paul Eggert <eggert@cs.ucla.edu>
65
66 Remove GCPRO-related macros that exist only to avoid shadowing locals.
67 * lisp.h (GCPRO1_VAR, GCPRO2_VAR, GCPRO3_VAR, GCPRO4_VAR, GCPRO5_VAR)
68 (GCPRO6_VAR, UNGCPRO_VAR): Remove. See
69 <http://lists.gnu.org/archive/html/emacs-diffs/2011-11/msg00265.html>.
70 All uses changed to use GCPRO1 etc.
71 (GCPRO1, GCPRO2, GCPRO3, GCPRO4, GCPRO5, GCPRO6, UNGCPRO):
72 Revert to old implementation (i.e., before 2011-03-11).
73
742011-11-28 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
75
76 * dispnew.c (scrolling_window): Truncate overlaps in copy destination
77 of scroll runs so as to avoid assigning disabled bogus rows and
78 unnecessary graphics copy operations.
79
802011-11-27 Eli Zaretskii <eliz@gnu.org>
81
82 * s/ms-w32.h (utimbuf) [_MSC_VER]: Don't define.
83 (snprintf) [_MSC_VER]: Redirect to _snprintf.
84 (strtoll) [_MSC_VER]: Redirect to _strtoi64.
85 (malloc, free, realloc, calloc): Redirect to e_* only when
86 compiling Emacs.
87
88 * lisp.h (GCTYPEBITS): Move before first use.
89 (ALIGN_GCTYPEBITS) [_MSC_VER]: Define.
90 (DECL_ALIGN) [_MSC_VER]: Use it, as MSVC doesn't like bit ops in
91 this macro definition.
92
93 * s/ms-w32.h (tzname): Redirect to _tzname for all values of
94 _MSC_VER.
95
962011-11-27 Jan Djärv <jan.h.d@swipnet.se>
97
98 * gtkutil.c (xg_create_frame_widgets): Call
99 gtk_window_set_has_resize_grip (FALSE) if that function is
100 present with Gtk+ 2.0.
101
1022011-11-26 Paul Eggert <eggert@cs.ucla.edu>
103
104 * fileio.c (Finsert_file_contents): Undo previous change; see
105 <http://lists.gnu.org/archive/html/emacs-diffs/2011-11/msg00265.html>.
106
1072011-11-26 Paul Eggert <eggert@cs.ucla.edu>
108
109 Rename locals to avoid shadowing.
110 * fileio.c (Finsert_file_contents):
111 Rename inner 'gcpro1' to 'inner_gcpro1' to avoid shadowing.
112 * process.c (wait_reading_process_output):
113 Rename inner 'proc' to 'p' to avoid shadowing.
114 Indent for consistency with usual Emacs style.
115
1162011-11-25 Eli Zaretskii <eliz@gnu.org>
117
118 * xdisp.c (redisplay_window): If cursor row is not fully visible
119 after recentering, and scroll-conservatively is set to a large
120 number, scroll window by a few more lines to make the cursor fully
121 visible and out of scroll-margin. (Bug#10105)
122 (start_display): Don't move to the next line if the display should
123 start at a newline that is part of a display vector or an overlay
124 string. (Bug#10119)
125
1262011-11-24 Juri Linkov <juri@jurta.org>
127
128 * image.c (imagemagick_load_image): Move `MagickSetResolution' down
129 after the `MagickPingImage' call. (Bug#10112)
130
1312011-11-23 Chong Yidong <cyd@gnu.org>
132
133 * window.c (Fcoordinates_in_window_p): Accept only live windows.
134
1352011-11-23 Martin Rudalics <rudalics@gmx.at>
136
137 * buffer.c (Fkill_buffer): Run replace_buffer_in_windows before
138 making another buffer current. (Bug#10114)
139
1402011-11-23 Glenn Morris <rgm@gnu.org>
141
142 * font.c (font_find_for_lface) [HAVE_NS]: Ignore case. (Bug#2526)
143
1442011-11-23 Chong Yidong <cyd@gnu.org>
145
146 * xdisp.c (compute_stop_pos): Check validity of end_charpos before
147 using it (Bug#5984).
148
1492011-11-22 Eli Zaretskii <eliz@gnu.org>
150
151 * dispnew.c (adjust_glyph_matrix): Don't verify hash code of mode-
152 and header-lines, as they don't have one computed for them.
153 (Bug#10098)
154
155 * .gdbinit (prow): Make displayed values more self-explaining.
156 Add row's hash code.
157
12011-11-21 Lars Magne Ingebrigtsen <larsi@gnus.org> 1582011-11-21 Lars Magne Ingebrigtsen <larsi@gnus.org>
2 159
3 * process.c (wait_reading_process_output): Fix asynchrounous 160 * process.c (wait_reading_process_output): Fix asynchrounous
@@ -7075,7 +7232,7 @@
7075 7232
70762011-04-08 T.V. Raman <tv.raman.tv@gmail.com> (tiny change) 72332011-04-08 T.V. Raman <tv.raman.tv@gmail.com> (tiny change)
7077 7234
7078 * xml.c (parse_region): Avoid creating spurious whiespace nodes. 7235 * xml.c (parse_region): Avoid creating spurious whitespace nodes.
7079 7236
70802011-04-08 Chong Yidong <cyd@stupidchicken.com> 72372011-04-08 Chong Yidong <cyd@stupidchicken.com>
7081 7238
@@ -7691,7 +7848,7 @@
7691 * keyboard.c (Fcommand_execute, Fsuspend_emacs, safe_run_hooks_1): 7848 * keyboard.c (Fcommand_execute, Fsuspend_emacs, safe_run_hooks_1):
7692 Use Frun_hooks. 7849 Use Frun_hooks.
7693 (command_loop_1): Use Frun_hooks. Call safe_run_hooks 7850 (command_loop_1): Use Frun_hooks. Call safe_run_hooks
7694 unconditionnaly since it does the check itself. 7851 unconditionally since it does the check itself.
7695 7852
76962011-03-23 Paul Eggert <eggert@cs.ucla.edu> 78532011-03-23 Paul Eggert <eggert@cs.ucla.edu>
7697 7854
@@ -8575,7 +8732,7 @@
8575 (xg_set_widget_bg): New function. 8732 (xg_set_widget_bg): New function.
8576 (delete_cb): New function. 8733 (delete_cb): New function.
8577 (xg_create_frame_widgets): Connect delete-event to delete_cb. 8734 (xg_create_frame_widgets): Connect delete-event to delete_cb.
8578 Call xg_set_widget_bg. Only set backgrund pixmap for ! HAVE_GTK3 8735 Call xg_set_widget_bg. Only set background pixmap for ! HAVE_GTK3
8579 (xg_set_background_color): Call xg_set_widget_bg. 8736 (xg_set_background_color): Call xg_set_widget_bg.
8580 (xg_set_frame_icon): Call xg_get_pixbuf_from_pix_and_mask. 8737 (xg_set_frame_icon): Call xg_get_pixbuf_from_pix_and_mask.
8581 (xg_create_scroll_bar): vadj is a GtkAdjustment for HAVE_GTK3. 8738 (xg_create_scroll_bar): vadj is a GtkAdjustment for HAVE_GTK3.
diff --git a/src/ChangeLog.10 b/src/ChangeLog.10
index 99ab02577d5..7d2f48a03ea 100644
--- a/src/ChangeLog.10
+++ b/src/ChangeLog.10
@@ -1003,7 +1003,7 @@
1003 (syms_of_xdisp): DEFVAR_LISP and initialize it. Update doc string 1003 (syms_of_xdisp): DEFVAR_LISP and initialize it. Update doc string
1004 to describe new value `grow-only', and use of C-l. 1004 to describe new value `grow-only', and use of C-l.
1005 (display_tool_bar_line): Only use default face for border below 1005 (display_tool_bar_line): Only use default face for border below
1006 toolbar if not grow-only (to get acceptable visual appearence). 1006 toolbar if not grow-only (to get acceptable visual appearance).
1007 Explicitly set visible_height for empty toolbar lines. 1007 Explicitly set visible_height for empty toolbar lines.
1008 (redisplay_tool_bar): Handle `grow-only' setting. Check and clear 1008 (redisplay_tool_bar): Handle `grow-only' setting. Check and clear
1009 minimize_tool_bar_window_p flag. 1009 minimize_tool_bar_window_p flag.
@@ -4346,7 +4346,7 @@
4346 4346
4347 * textprop.c (Fremove_list_of_text_properties): 4347 * textprop.c (Fremove_list_of_text_properties):
4348 Ensure modify_region is called only when buffer is modified and that 4348 Ensure modify_region is called only when buffer is modified and that
4349 signal_after_change is allways called in that case. 4349 signal_after_change is always called in that case.
4350 4350
4351 * print.c (PRINTFINISH): Call signal_after_change. 4351 * print.c (PRINTFINISH): Call signal_after_change.
4352 4352
@@ -5084,7 +5084,7 @@
5084 5084
50852006-02-26 Chong Yidong <cyd@stupidchicken.com> 50852006-02-26 Chong Yidong <cyd@stupidchicken.com>
5086 5086
5087 * xterm.h, xterm.c (x_uncatch_errors): Delete unneccessary argument. 5087 * xterm.h, xterm.c (x_uncatch_errors): Delete unnecessary argument.
5088 5088
5089 * xterm.c (x_load_font, x_term_init, XTmouse_position) 5089 * xterm.c (x_load_font, x_term_init, XTmouse_position)
5090 (handle_one_xevent, x_connection_closed, x_list_fonts): 5090 (handle_one_xevent, x_connection_closed, x_list_fonts):
@@ -12087,7 +12087,7 @@
12087 (merge_face_heights): Eliminate GCPRO arg. All callers changed. 12087 (merge_face_heights): Eliminate GCPRO arg. All callers changed.
12088 12088
12089 * keyboard.c (command_loop_1): Change Vtransient_mark_mode 12089 * keyboard.c (command_loop_1): Change Vtransient_mark_mode
12090 before deciding whether to inactivate mark. 12090 before deciding whether to deactivate mark.
12091 12091
120922004-11-06 Lars Brinkhoff <lars@nocrew.org> 120922004-11-06 Lars Brinkhoff <lars@nocrew.org>
12093 12093
@@ -23013,7 +23013,7 @@
23013 (try_window_id): Likewise. 23013 (try_window_id): Likewise.
23014 (redisplay_window): New local var buffer_unchanged_p. 23014 (redisplay_window): New local var buffer_unchanged_p.
23015 23015
23016 * keyboard.c (cmd_error) [HAVE_X_WINDOWS]: Maybe call cancel_houglass. 23016 * keyboard.c (cmd_error) [HAVE_X_WINDOWS]: Maybe call cancel_hourglass.
23017 23017
23018 * process.c (create_process): Test USG_SUBTTY_WORKS. 23018 * process.c (create_process): Test USG_SUBTTY_WORKS.
23019 (process_send_signal): Clean up handling of GID. 23019 (process_send_signal): Clean up handling of GID.
diff --git a/src/ChangeLog.11 b/src/ChangeLog.11
index 07d4f4ec116..7c46dea675c 100644
--- a/src/ChangeLog.11
+++ b/src/ChangeLog.11
@@ -966,7 +966,7 @@
966 ($(BLD)/editfns.$(O)): Depend on ../lib/strftime.h. 966 ($(BLD)/editfns.$(O)): Depend on ../lib/strftime.h.
967 ($(BLD)/print.$(O)): Depend on ../lib/ftoastr.h and ../lib/intprops.h. 967 ($(BLD)/print.$(O)): Depend on ../lib/ftoastr.h and ../lib/intprops.h.
968 968
969 * deps.mk: Update for recent changes: gnutls support, gnulib 969 * deps.mk: Update for recent changes: GnuTLS support, gnulib
970 imports, addition of globals.h. 970 imports, addition of globals.h.
971 971
972 * makefile.w32-in ($(BLD)/sysdep.$(O)): Depend on 972 * makefile.w32-in ($(BLD)/sysdep.$(O)): Depend on
@@ -2191,7 +2191,7 @@
21912010-12-16 Jan Djärv <jan.h.d@swipnet.se> 21912010-12-16 Jan Djärv <jan.h.d@swipnet.se>
2192 2192
2193 * nsterm.m (ns_draw_window_cursor): If the cursor color is the 2193 * nsterm.m (ns_draw_window_cursor): If the cursor color is the
2194 same as the background, use the face forground as cursor. 2194 same as the background, use the face foreground as cursor.
2195 2195
21962010-12-13 Eli Zaretskii <eliz@gnu.org> 21962010-12-13 Eli Zaretskii <eliz@gnu.org>
2197 2197
@@ -3268,7 +3268,7 @@
32682010-10-10 Lars Magne Ingebrigtsen <larsi@gnus.org> 32682010-10-10 Lars Magne Ingebrigtsen <larsi@gnus.org>
3269 3269
3270 * gnutls.c (emacs_gnutls_write): If we're trying to write before 3270 * gnutls.c (emacs_gnutls_write): If we're trying to write before
3271 gnutls is ready, return EAGAIN as the errno. 3271 GnuTLS is ready, return EAGAIN as the errno.
3272 3272
32732010-10-10 Dan Nicolaescu <dann@ics.uci.edu> 32732010-10-10 Dan Nicolaescu <dann@ics.uci.edu>
3274 3274
@@ -3585,12 +3585,12 @@
3585 * process.c (make_process): Set the gnutls_p field to zero by 3585 * process.c (make_process): Set the gnutls_p field to zero by
3586 default. 3586 default.
3587 (read_process_output): Always call the gnutls_read function if the 3587 (read_process_output): Always call the gnutls_read function if the
3588 stream is a gnutls stream. 3588 stream is a GnuTLS stream.
3589 (send_process): Ditto for writes. 3589 (send_process): Ditto for writes.
3590 3590
3591 * gnutls.c (emacs_gnutls_write, emacs_gnutls_read): Refuse to read 3591 * gnutls.c (emacs_gnutls_write, emacs_gnutls_read): Refuse to read
3592 or write anything until the state is GNUTLS_STAGE_READY. 3592 or write anything until the state is GNUTLS_STAGE_READY.
3593 (Fgnutls_boot): Mark the stream as being a gnutls stream. 3593 (Fgnutls_boot): Mark the stream as being a GnuTLS stream.
3594 3594
35952010-09-29 Eli Zaretskii <eliz@gnu.org> 35952010-09-29 Eli Zaretskii <eliz@gnu.org>
3596 3596
@@ -11805,7 +11805,7 @@
11805 * coding.c (encode_coding_utf_16): Fix checking of a Unicode 11805 * coding.c (encode_coding_utf_16): Fix checking of a Unicode
11806 character. 11806 character.
11807 11807
11808 * cmds.c (Fself_insert_command): Avoid unnecessay 11808 * cmds.c (Fself_insert_command): Avoid unnecessary
11809 unibyte->multibyte conversion. (Bug#4240) (Bug#4037) 11809 unibyte->multibyte conversion. (Bug#4240) (Bug#4037)
11810 11810
118112009-08-26 Dan Nicolaescu <dann@ics.uci.edu> 118112009-08-26 Dan Nicolaescu <dann@ics.uci.edu>
@@ -22234,7 +22234,7 @@
22234 * lisp.h (Fdelete_terminal): Declare. 22234 * lisp.h (Fdelete_terminal): Declare.
22235 22235
22236 * charset.h (CHECK_CHARSET, CHECK_CHARSET_GET_ID) 22236 * charset.h (CHECK_CHARSET, CHECK_CHARSET_GET_ID)
22237 (CHECK_CHARSET_GET_ATTR): Don't use the inexistent return value of 22237 (CHECK_CHARSET_GET_ATTR): Don't use the nonexistent return value of
22238 wrong_type_argument. 22238 wrong_type_argument.
22239 22239
222402008-02-22 Kenichi Handa <handa@ni.aist.go.jp> 222402008-02-22 Kenichi Handa <handa@ni.aist.go.jp>
@@ -27366,7 +27366,7 @@
27366 27366
27367 * ccl.c: Include "character.h". 27367 * ccl.c: Include "character.h".
27368 (Qccl, Qcclp): New variables. 27368 (Qccl, Qcclp): New variables.
27369 (CCL_WRITE_CHAR): Alway treat the arg CH as a character even if 27369 (CCL_WRITE_CHAR): Always treat the arg CH as a character even if
27370 it's less than 256. 27370 it's less than 256.
27371 (CCL_WRITE_MULTIBYTE_CHAR): Delete. 27371 (CCL_WRITE_MULTIBYTE_CHAR): Delete.
27372 (CCL_WRITE_STRING, CCL_READ_CHAR): Adjust for the change of SRC 27372 (CCL_WRITE_STRING, CCL_READ_CHAR): Adjust for the change of SRC
@@ -31330,7 +31330,7 @@
31330 31330
313312007-05-12 Chong Yidong <cyd@stupidchicken.com> 313312007-05-12 Chong Yidong <cyd@stupidchicken.com>
31332 31332
31333 * image.c (pbm_load): Correctly check image size for greyscale pbm. 31333 * image.c (pbm_load): Correctly check image size for grayscale pbm.
31334 31334
31335 * xterm.c (XTread_socket): Yet Another Uncaught X Error Crash (YAUXEC). 31335 * xterm.c (XTread_socket): Yet Another Uncaught X Error Crash (YAUXEC).
31336 31336
diff --git a/src/ChangeLog.3 b/src/ChangeLog.3
index cbf867829c7..34906e505da 100644
--- a/src/ChangeLog.3
+++ b/src/ChangeLog.3
@@ -3271,7 +3271,7 @@
3271 [not HAVE_X11] (x_set_border_pixel): Use gray_width and 3271 [not HAVE_X11] (x_set_border_pixel): Use gray_width and
3272 gray_height, instead of assuming that the bitmap is 16x16. 3272 gray_height, instead of assuming that the bitmap is 16x16.
3273 (x_make_gc): Instead of creating a pixmap and then calling 3273 (x_make_gc): Instead of creating a pixmap and then calling
3274 XPutImage to make it into a grey stipple, just call 3274 XPutImage to make it into a gray stipple, just call
3275 XCreatePixmapFromBitmapData to do it all at once. 3275 XCreatePixmapFromBitmapData to do it all at once.
3276 3276
3277 * xterm.c (x_text_icon): Move the request for font information 3277 * xterm.c (x_text_icon): Move the request for font information
@@ -14880,7 +14880,7 @@
14880 14880
148811989-08-09 Joseph Arceneaux (jla@spiff) 148811989-08-09 Joseph Arceneaux (jla@spiff)
14882 14882
14883 * ../oldXMenu/Makefile: Removed all the unneccessary X stuff. 14883 * ../oldXMenu/Makefile: Removed all the unnecessary X stuff.
14884 14884
148851989-08-07 Richard Stallman (rms@sugar-bombs.ai.mit.edu) 148851989-08-07 Richard Stallman (rms@sugar-bombs.ai.mit.edu)
14886 14886
diff --git a/src/ChangeLog.6 b/src/ChangeLog.6
index af97d0de7b4..74141f6813a 100644
--- a/src/ChangeLog.6
+++ b/src/ChangeLog.6
@@ -718,7 +718,7 @@
718 (init_ntproc) [HAVE_SOCKETS]: Only load winsock library on startup 718 (init_ntproc) [HAVE_SOCKETS]: Only load winsock library on startup
719 if PRELOAD_WINSOCK is set in environment (or registry). 719 if PRELOAD_WINSOCK is set in environment (or registry).
720 720
721 * ntproc.c (Fwin32_has_winsock, Fwin32_unload_winsock) 721 * ntproc.c (Fwin32_has_winsock, Fwin32_unload_winsock)
722 [HAVE_SOCKETS]: New functions. 722 [HAVE_SOCKETS]: New functions.
723 (syms_of_ntproc) [HAVE_SOCKETS]: defsubr them. 723 (syms_of_ntproc) [HAVE_SOCKETS]: defsubr them.
724 724
@@ -845,7 +845,7 @@
845 (timer_id): Renamed to mouse_button_timer. 845 (timer_id): Renamed to mouse_button_timer.
846 (saved_mouse_move_msg, mouse_move_timer): New variables. 846 (saved_mouse_move_msg, mouse_move_timer): New variables.
847 (win_msg_worker): Delete WM_TIMER code. 847 (win_msg_worker): Delete WM_TIMER code.
848 (win32_wnd_proc): Handle WM_TIMER events here. Use separate timers 848 (win32_wnd_proc): Handle WM_TIMER events here. Use separate timers
849 for mouse down and mouse move (including scroll bar drag) events. 849 for mouse down and mouse move (including scroll bar drag) events.
850 Add new handling code for WM_VSCROLL and WM_MOUSEMOVE events. 850 Add new handling code for WM_VSCROLL and WM_MOUSEMOVE events.
851 Only filter WM_MOUSEMOVE events when a button is held down. 851 Only filter WM_MOUSEMOVE events when a button is held down.
@@ -1100,17 +1100,17 @@
1100 1100
1101 (nt_sleep): Renamed to sys_sleep. 1101 (nt_sleep): Renamed to sys_sleep.
1102 1102
1103 (rename): Renamed to sys_rename. Always rename to a temporary name 1103 (rename): Renamed to sys_rename. Always rename to a temporary name
1104 first on Windows 95. Unlink new name first if necessary. 1104 first on Windows 95. Unlink new name first if necessary.
1105 1105
1106 (dir_finding): Variable deleted. 1106 (dir_finding): Variable deleted.
1107 (dir_is_fat, dir_pathname): New variables. 1107 (dir_is_fat, dir_pathname): New variables.
1108 1108
1109 (openddir): Fail if dir_find_handle is in use. Save directory name 1109 (openddir): Fail if dir_find_handle is in use. Save directory name
1110 in dir_pathname, and set dir_is_fat appropriately. 1110 in dir_pathname, and set dir_is_fat appropriately.
1111 (closedir, readdir): Use dir_find_handle in place of dir_finding. 1111 (closedir, readdir): Use dir_find_handle in place of dir_finding.
1112 (readdir): Copy directory name from dir_pathname on first 1112 (readdir): Copy directory name from dir_pathname on first
1113 call. Use IS_DIRECTORY_SEP instead of IS_ANY_SEP. Force filename 1113 call. Use IS_DIRECTORY_SEP instead of IS_ANY_SEP. Force filename
1114 to be lower case on FAT volumes. 1114 to be lower case on FAT volumes.
1115 1115
1116 (getpwuid): Move struct passwd initialization to init_user_info, 1116 (getpwuid): Move struct passwd initialization to init_user_info,
@@ -1141,7 +1141,7 @@
1141 (get_emacs_configuration): Detect Windows flavor (Windows 95 or 1141 (get_emacs_configuration): Detect Windows flavor (Windows 95 or
1142 NT) at run-time. Change OS name for Windows 95 to be "win95". 1142 NT) at run-time. Change OS name for Windows 95 to be "win95".
1143 1143
1144 (fd_info): New variable. Array of extra info for file descriptors 1144 (fd_info): New variable. Array of extra info for file descriptors
1145 needed for pipe/socket support. 1145 needed for pipe/socket support.
1146 1146
1147 (utc_base_ft, utc_base, init): New internal variables used for 1147 (utc_base_ft, utc_base, init): New internal variables used for
@@ -1206,7 +1206,7 @@
1206 * ntinevt.c (win32_kdb_patch_key): Initialize isdead. 1206 * ntinevt.c (win32_kdb_patch_key): Initialize isdead.
1207 (key_event) [HAVE_NTGUI]: Use Windows key code. 1207 (key_event) [HAVE_NTGUI]: Use Windows key code.
1208 1208
1209 * ntproc.c: Include config.h after CRT headers. Include fcntl.h. 1209 * ntproc.c: Include config.h after CRT headers. Include fcntl.h.
1210 (child_process, MAX_CHILDREN, CHILD_ACTIVE): Moved to nt.h. 1210 (child_process, MAX_CHILDREN, CHILD_ACTIVE): Moved to nt.h.
1211 (DebugPrint): New macro. 1211 (DebugPrint): New macro.
1212 (new_child): Create input event structures for child processes. 1212 (new_child): Create input event structures for child processes.
@@ -2580,7 +2580,7 @@
2580 (win32_fill_rect, dumpglyphs, do_line_dance, x_draw_box): 2580 (win32_fill_rect, dumpglyphs, do_line_dance, x_draw_box):
2581 Use Get/ReleaseFrameDC. 2581 Use Get/ReleaseFrameDC.
2582 (win32_update_begin): Regenerate palette if required. 2582 (win32_update_begin): Regenerate palette if required.
2583 (w32_read_socket): Use FALSE. Handle WM_PALETTECHANGED. 2583 (w32_read_socket): Use FALSE. Handle WM_PALETTECHANGED.
2584 (win32_term_init): Use GetDC directly. 2584 (win32_term_init): Use GetDC directly.
2585 Enable palette in display structure. 2585 Enable palette in display structure.
2586 Predefine white and black. 2586 Predefine white and black.
@@ -4501,7 +4501,7 @@
4501 * msdos.c (putchar): Call internal_flush instead of _flsbuf. 4501 * msdos.c (putchar): Call internal_flush instead of _flsbuf.
4502 (DO_TERMSCRIPT): New macro to support open-termscript. 4502 (DO_TERMSCRIPT): New macro to support open-termscript.
4503 (internal_flush): Corrected handling of flush in middle of 4503 (internal_flush): Corrected handling of flush in middle of
4504 escape sequences. Handle screen width > 127. 4504 escape sequences. Handle screen width > 127.
4505 (flush_escape): New function for use by internal_flush. 4505 (flush_escape): New function for use by internal_flush.
4506 (sys_select): New MS-DOS specific version with us timing. 4506 (sys_select): New MS-DOS specific version with us timing.
4507 (EMACSCOLORS): New environment variable. 4507 (EMACSCOLORS): New environment variable.
diff --git a/src/ChangeLog.8 b/src/ChangeLog.8
index e21af17657f..2f3ee45a1ac 100644
--- a/src/ChangeLog.8
+++ b/src/ChangeLog.8
@@ -5409,7 +5409,7 @@
5409 5409
54101998-11-10 Gerd Moellmann <gerd@gnu.org> 54101998-11-10 Gerd Moellmann <gerd@gnu.org>
5411 5411
5412 * xrdb.c (x_load_resources): Add grey background colors as 5412 * xrdb.c (x_load_resources): Add gray background colors as
5413 defaults for menus, scroll bars, and dialogs. 5413 defaults for menus, scroll bars, and dialogs.
5414 5414
5415 * insdel.c (prepare_to_modify_buffer): Move setting 5415 * insdel.c (prepare_to_modify_buffer): Move setting
@@ -8018,7 +8018,7 @@
8018 8018
8019 * xterm.c (x_scroll_run): Renamed from do_line_dance. 8019 * xterm.c (x_scroll_run): Renamed from do_line_dance.
8020 8020
8021 * xdisp.c (redisplay_window): For window-based redisplay, alway 8021 * xdisp.c (redisplay_window): For window-based redisplay, always
8022 try try_window_id. 8022 try try_window_id.
8023 8023
8024 * xterm.c (struct glyph_string): New member two_byte_p that is 8024 * xterm.c (struct glyph_string): New member two_byte_p that is
@@ -12766,7 +12766,7 @@
12766 12766
127671998-12-08 Geoff Voelker <voelker@cs.washington.edu> 127671998-12-08 Geoff Voelker <voelker@cs.washington.edu>
12768 12768
12769 * makefile.nt: Do string comparision of _NMAKE_VER. 12769 * makefile.nt: Do string comparison of _NMAKE_VER.
12770 12770
127711998-12-06 Eli Zaretskii <eliz@mescaline.gnu.org> 127711998-12-06 Eli Zaretskii <eliz@mescaline.gnu.org>
12772 12772
diff --git a/src/ChangeLog.9 b/src/ChangeLog.9
index 6f007992bef..6e3a8d8ab3b 100644
--- a/src/ChangeLog.9
+++ b/src/ChangeLog.9
@@ -3479,7 +3479,7 @@
3479 a workaround for SunOS 4's cc. 3479 a workaround for SunOS 4's cc.
3480 (CCL_CALL_FOR_MAP_INSTRUCTION): Use "if (1)..." not "do {...". 3480 (CCL_CALL_FOR_MAP_INSTRUCTION): Use "if (1)..." not "do {...".
3481 (CCL_SUCCESS, CCL_SUSPEND, CCL_INVALID_CMD): Likewise. 3481 (CCL_SUCCESS, CCL_SUSPEND, CCL_INVALID_CMD): Likewise.
3482 (ccl_driver) <CCL_ReadMultibyteChar2>: Remove unnecessay "do" 3482 (ccl_driver) <CCL_ReadMultibyteChar2>: Remove unnecessary "do"
3483 statement. 3483 statement.
3484 3484
34852001-01-23 Gerd Moellmann <gerd@gnu.org> 34852001-01-23 Gerd Moellmann <gerd@gnu.org>
diff --git a/src/buffer.c b/src/buffer.c
index a327a1650f1..a482493fac7 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -1526,7 +1526,13 @@ with SIGHUP. */)
1526 UNGCPRO; 1526 UNGCPRO;
1527 } 1527 }
1528 1528
1529 /* Make this buffer not be current. 1529 /* Run replace_buffer_in_windows before making another buffer current
1530 since set-window-buffer-start-and-point will refuse to make another
1531 buffer current if the selected window does not show the current
1532 buffer. (Bug#10114) */
1533 replace_buffer_in_windows (buffer);
1534
1535 /* Make this buffer not be current.
1530 In the process, notice if this is the sole visible buffer 1536 In the process, notice if this is the sole visible buffer
1531 and give up if so. */ 1537 and give up if so. */
1532 if (b == current_buffer) 1538 if (b == current_buffer)
@@ -1566,7 +1572,6 @@ with SIGHUP. */)
1566 1572
1567 /* These may run Lisp code and into infinite loops (if someone 1573 /* These may run Lisp code and into infinite loops (if someone
1568 insisted on circular lists) so allow quitting here. */ 1574 insisted on circular lists) so allow quitting here. */
1569 replace_buffer_in_windows (buffer);
1570 frames_discard_buffer (buffer); 1575 frames_discard_buffer (buffer);
1571 1576
1572 clear_charpos_cache (b); 1577 clear_charpos_cache (b);
@@ -1626,7 +1631,7 @@ with SIGHUP. */)
1626 1631
1627 /* Reset the local variables, so that this buffer's local values 1632 /* Reset the local variables, so that this buffer's local values
1628 won't be protected from GC. They would be protected 1633 won't be protected from GC. They would be protected
1629 if they happened to remain encached in their symbols. 1634 if they happened to remain cached in their symbols.
1630 This gets rid of them for certain. */ 1635 This gets rid of them for certain. */
1631 swap_out_buffer_local_variables (b); 1636 swap_out_buffer_local_variables (b);
1632 reset_buffer_local_variables (b, 1); 1637 reset_buffer_local_variables (b, 1);
@@ -2481,7 +2486,7 @@ swap_out_buffer_local_variables (struct buffer *b)
2481 Lisp_Object sym = XCAR (XCAR (alist)); 2486 Lisp_Object sym = XCAR (XCAR (alist));
2482 eassert (XSYMBOL (sym)->redirect == SYMBOL_LOCALIZED); 2487 eassert (XSYMBOL (sym)->redirect == SYMBOL_LOCALIZED);
2483 /* Need not do anything if some other buffer's binding is 2488 /* Need not do anything if some other buffer's binding is
2484 now encached. */ 2489 now cached. */
2485 if (EQ (SYMBOL_BLV (XSYMBOL (sym))->where, buffer)) 2490 if (EQ (SYMBOL_BLV (XSYMBOL (sym))->where, buffer))
2486 { 2491 {
2487 /* Symbol is set up for this buffer's old local value: 2492 /* Symbol is set up for this buffer's old local value:
diff --git a/src/callint.c b/src/callint.c
index 61ab4a3963e..80e24f6c8ee 100644
--- a/src/callint.c
+++ b/src/callint.c
@@ -78,7 +78,7 @@ c -- Character (no input method is used).
78C -- Command name: symbol with interactive function definition. 78C -- Command name: symbol with interactive function definition.
79d -- Value of point as number. Does not do I/O. 79d -- Value of point as number. Does not do I/O.
80D -- Directory name. 80D -- Directory name.
81e -- Parametrized event (i.e., one that's a list) that invoked this command. 81e -- Parameterized event (i.e., one that's a list) that invoked this command.
82 If used more than once, the Nth `e' returns the Nth parameterized event. 82 If used more than once, the Nth `e' returns the Nth parameterized event.
83 This skips events that are integers or symbols. 83 This skips events that are integers or symbols.
84f -- Existing file name. 84f -- Existing file name.
diff --git a/src/ccl.c b/src/ccl.c
index 84d7a6a25ff..b7228a4d1cd 100644
--- a/src/ccl.c
+++ b/src/ccl.c
@@ -561,7 +561,7 @@ static Lisp_Object Vccl_program_table;
561 If VALn is lambda, move to the next map set like reaching to the 561 If VALn is lambda, move to the next map set like reaching to the
562 end of the current map set. 562 end of the current map set.
563 563
564 If VALn is a symbol, call the CCL program refered by it. 564 If VALn is a symbol, call the CCL program referred by it.
565 Then, use reg[rrr] as a mapped value except for -1, -2 and -3. 565 Then, use reg[rrr] as a mapped value except for -1, -2 and -3.
566 Such special values are regarded as nil, t, and lambda respectively. 566 Such special values are regarded as nil, t, and lambda respectively.
567 567
diff --git a/src/charset.c b/src/charset.c
index b6921a762b6..3c15f1bee54 100644
--- a/src/charset.c
+++ b/src/charset.c
@@ -166,9 +166,9 @@ static struct
166 maximum character of the current charset. */ 166 maximum character of the current charset. */
167 int min_char, max_char; 167 int min_char, max_char;
168 168
169 /* A Unicode character correspoinding to the code indice 0 (i.e. the 169 /* A Unicode character corresponding to the code index 0 (i.e. the
170 minimum code-point) of the current charset, or -1 if the code 170 minimum code-point) of the current charset, or -1 if the code
171 indice 0 is not a Unicode character. This is checked when 171 index 0 is not a Unicode character. This is checked when
172 table.encoder[CHAR] is zero. */ 172 table.encoder[CHAR] is zero. */
173 int zero_index_char; 173 int zero_index_char;
174 174
diff --git a/src/cm.h b/src/cm.h
index 8f23990ce55..dbf0820b94c 100644
--- a/src/cm.h
+++ b/src/cm.h
@@ -66,7 +66,7 @@ struct cm
66 location */ 66 location */
67 unsigned int cm_autolf:1; /* \r performs a \r\n (rn) */ 67 unsigned int cm_autolf:1; /* \r performs a \r\n (rn) */
68 68
69 /* Parametrized capabilities. This needs to be a struct since 69 /* Parameterized capabilities. This needs to be a struct since
70 the costs are accessed through pointers. */ 70 the costs are accessed through pointers. */
71 71
72#if 0 72#if 0
diff --git a/src/dired.c b/src/dired.c
index acc81a6ed9d..2b5f3b40641 100644
--- a/src/dired.c
+++ b/src/dired.c
@@ -229,11 +229,11 @@ directory_files_internal (Lisp_Object directory, Lisp_Object full, Lisp_Object m
229 int len; 229 int len;
230 int wanted = 0; 230 int wanted = 0;
231 Lisp_Object name, finalname; 231 Lisp_Object name, finalname;
232 struct gcpro inner_gcpro1, inner_gcpro2; 232 struct gcpro gcpro1, gcpro2;
233 233
234 len = NAMLEN (dp); 234 len = NAMLEN (dp);
235 name = finalname = make_unibyte_string (dp->d_name, len); 235 name = finalname = make_unibyte_string (dp->d_name, len);
236 GCPRO2_VAR (finalname, name, inner_gcpro); 236 GCPRO2 (finalname, name);
237 237
238 /* Note: DECODE_FILE can GC; it should protect its argument, 238 /* Note: DECODE_FILE can GC; it should protect its argument,
239 though. */ 239 though. */
@@ -289,23 +289,23 @@ directory_files_internal (Lisp_Object directory, Lisp_Object full, Lisp_Object m
289 /* Construct an expanded filename for the directory entry. 289 /* Construct an expanded filename for the directory entry.
290 Use the decoded names for input to Ffile_attributes. */ 290 Use the decoded names for input to Ffile_attributes. */
291 Lisp_Object decoded_fullname, fileattrs; 291 Lisp_Object decoded_fullname, fileattrs;
292 struct gcpro innermost_gcpro1, innermost_gcpro2; 292 struct gcpro gcpro1, gcpro2;
293 293
294 decoded_fullname = fileattrs = Qnil; 294 decoded_fullname = fileattrs = Qnil;
295 GCPRO2_VAR (decoded_fullname, fileattrs, innermost_gcpro); 295 GCPRO2 (decoded_fullname, fileattrs);
296 296
297 /* Both Fexpand_file_name and Ffile_attributes can GC. */ 297 /* Both Fexpand_file_name and Ffile_attributes can GC. */
298 decoded_fullname = Fexpand_file_name (name, directory); 298 decoded_fullname = Fexpand_file_name (name, directory);
299 fileattrs = Ffile_attributes (decoded_fullname, id_format); 299 fileattrs = Ffile_attributes (decoded_fullname, id_format);
300 300
301 list = Fcons (Fcons (finalname, fileattrs), list); 301 list = Fcons (Fcons (finalname, fileattrs), list);
302 UNGCPRO_VAR (innermost_gcpro); 302 UNGCPRO;
303 } 303 }
304 else 304 else
305 list = Fcons (finalname, list); 305 list = Fcons (finalname, list);
306 } 306 }
307 307
308 UNGCPRO_VAR (inner_gcpro); 308 UNGCPRO;
309 } 309 }
310 } 310 }
311 311
@@ -673,11 +673,11 @@ file_name_completion (Lisp_Object file, Lisp_Object dirname, int all_flag, int v
673 if (!NILP (predicate)) 673 if (!NILP (predicate))
674 { 674 {
675 Lisp_Object val; 675 Lisp_Object val;
676 struct gcpro inner_gcpro1; 676 struct gcpro gcpro1;
677 677
678 GCPRO1_VAR (name, inner_gcpro); 678 GCPRO1 (name);
679 val = call1 (predicate, name); 679 val = call1 (predicate, name);
680 UNGCPRO_VAR (inner_gcpro); 680 UNGCPRO;
681 681
682 if (NILP (val)) 682 if (NILP (val))
683 continue; 683 continue;
diff --git a/src/dispextern.h b/src/dispextern.h
index a45c5cc138f..ec66dcb4220 100644
--- a/src/dispextern.h
+++ b/src/dispextern.h
@@ -409,7 +409,7 @@ struct glyph
409 { 409 {
410 /* Metrics of a partial glyph of an image (type == IMAGE_GLYPH). */ 410 /* Metrics of a partial glyph of an image (type == IMAGE_GLYPH). */
411 struct glyph_slice img; 411 struct glyph_slice img;
412 /* Start and end indices of glyphs of a graphme cluster of a 412 /* Start and end indices of glyphs of a grapheme cluster of a
413 composition (type == COMPOSITE_GLYPH). */ 413 composition (type == COMPOSITE_GLYPH). */
414 struct { int from, to; } cmp; 414 struct { int from, to; } cmp;
415 /* Pixel offsets for upper and lower part of the acronym. */ 415 /* Pixel offsets for upper and lower part of the acronym. */
diff --git a/src/dispnew.c b/src/dispnew.c
index b920693688c..e21f565fb3a 100644
--- a/src/dispnew.c
+++ b/src/dispnew.c
@@ -612,7 +612,6 @@ adjust_glyph_matrix (struct window *w, struct glyph_matrix *matrix, int x, int y
612 row->glyphs[LAST_AREA] 612 row->glyphs[LAST_AREA]
613 = row->glyphs[LEFT_MARGIN_AREA] + dim.width; 613 = row->glyphs[LEFT_MARGIN_AREA] + dim.width;
614 } 614 }
615 xassert (!row->enabled_p || verify_row_hash (row));
616 ++row; 615 ++row;
617 } 616 }
618 } 617 }
@@ -3580,12 +3579,11 @@ update_window (struct window *w, int force_p)
3580 3579
3581 rif->update_window_begin_hook (w); 3580 rif->update_window_begin_hook (w);
3582 yb = window_text_bottom_y (w); 3581 yb = window_text_bottom_y (w);
3583
3584 /* If window has a header line, update it before everything else.
3585 Adjust y-positions of other rows by the header line height. */
3586 row = desired_matrix->rows; 3582 row = desired_matrix->rows;
3587 end = row + desired_matrix->nrows - 1; 3583 end = row + desired_matrix->nrows - 1;
3588 3584
3585 /* Take note of the header line, if there is one. We will
3586 update it below, after updating all of the window's lines. */
3589 if (row->mode_line_p) 3587 if (row->mode_line_p)
3590 { 3588 {
3591 header_line_row = row; 3589 header_line_row = row;
@@ -3630,6 +3628,8 @@ update_window (struct window *w, int force_p)
3630 3628
3631 /* Update the rest of the lines. */ 3629 /* Update the rest of the lines. */
3632 for (; row < end && (force_p || !input_pending); ++row) 3630 for (; row < end && (force_p || !input_pending); ++row)
3631 /* scrolling_window resets the enabled_p flag of the rows it
3632 reuses from current_matrix. */
3633 if (row->enabled_p) 3633 if (row->enabled_p)
3634 { 3634 {
3635 int vpos = MATRIX_ROW_VPOS (row, desired_matrix); 3635 int vpos = MATRIX_ROW_VPOS (row, desired_matrix);
@@ -4564,18 +4564,69 @@ scrolling_window (struct window *w, int header_line_p)
4564 { 4564 {
4565 rif->clear_window_mouse_face (w); 4565 rif->clear_window_mouse_face (w);
4566 rif->scroll_run_hook (w, r); 4566 rif->scroll_run_hook (w, r);
4567 }
4568
4569 /* Truncate runs that copy to where we copied to, and
4570 invalidate runs that copy from where we copied to. */
4571 for (j = nruns - 1; j > i; --j)
4572 {
4573 struct run *p = runs[j];
4574 int truncated_p = 0;
4567 4575
4568 /* Invalidate runs that copy from where we copied to. */ 4576 if (p->nrows > 0
4569 for (j = i + 1; j < nruns; ++j) 4577 && p->desired_y < r->desired_y + r->height
4578 && p->desired_y + p->height > r->desired_y)
4570 { 4579 {
4571 struct run *p = runs[j]; 4580 if (p->desired_y < r->desired_y)
4581 {
4582 p->nrows = r->desired_vpos - p->desired_vpos;
4583 p->height = r->desired_y - p->desired_y;
4584 truncated_p = 1;
4585 }
4586 else
4587 {
4588 int nrows_copied = (r->desired_vpos + r->nrows
4589 - p->desired_vpos);
4590
4591 if (p->nrows <= nrows_copied)
4592 p->nrows = 0;
4593 else
4594 {
4595 int height_copied = (r->desired_y + r->height
4596 - p->desired_y);
4597
4598 p->current_vpos += nrows_copied;
4599 p->desired_vpos += nrows_copied;
4600 p->nrows -= nrows_copied;
4601 p->current_y += height_copied;
4602 p->desired_y += height_copied;
4603 p->height -= height_copied;
4604 truncated_p = 1;
4605 }
4606 }
4607 }
4572 4608
4573 if ((p->current_y >= r->desired_y 4609 if (r->current_y != r->desired_y
4610 /* The condition below is equivalent to
4611 ((p->current_y >= r->desired_y
4574 && p->current_y < r->desired_y + r->height) 4612 && p->current_y < r->desired_y + r->height)
4575 || (p->current_y + p->height >= r->desired_y 4613 || (p->current_y + p->height > r->desired_y
4576 && (p->current_y + p->height 4614 && (p->current_y + p->height
4577 < r->desired_y + r->height))) 4615 <= r->desired_y + r->height)))
4578 p->nrows = 0; 4616 because we have 0 < p->height <= r->height. */
4617 && p->current_y < r->desired_y + r->height
4618 && p->current_y + p->height > r->desired_y)
4619 p->nrows = 0;
4620
4621 /* Reorder runs by copied pixel lines if truncated. */
4622 if (truncated_p && p->nrows > 0)
4623 {
4624 int k = nruns - 1;
4625
4626 while (runs[k]->nrows == 0 || runs[k]->height < p->height)
4627 k--;
4628 memmove (runs + j, runs + j + 1, (k - j) * sizeof (*runs));
4629 runs[k] = p;
4579 } 4630 }
4580 } 4631 }
4581 4632
@@ -4590,7 +4641,14 @@ scrolling_window (struct window *w, int header_line_p)
4590 to_overlapped_p = to->overlapped_p; 4641 to_overlapped_p = to->overlapped_p;
4591 from->redraw_fringe_bitmaps_p = from->fringe_bitmap_periodic_p; 4642 from->redraw_fringe_bitmaps_p = from->fringe_bitmap_periodic_p;
4592 assign_row (to, from); 4643 assign_row (to, from);
4593 to->enabled_p = 1, from->enabled_p = 0; 4644 /* The above `assign_row' actually does swap, so if we had
4645 an overlap in the copy destination of two runs, then
4646 the second run would assign a previously disabled bogus
4647 row. But thanks to the truncation code in the
4648 preceding for-loop, we no longer have such an overlap,
4649 and thus the assigned row should always be enabled. */
4650 xassert (to->enabled_p);
4651 from->enabled_p = 0;
4594 to->overlapped_p = to_overlapped_p; 4652 to->overlapped_p = to_overlapped_p;
4595 } 4653 }
4596 } 4654 }
diff --git a/src/fileio.c b/src/fileio.c
index 7e75e6285f0..c0f6c1d2e8e 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -1553,7 +1553,7 @@ those `/' is discarded. */)
1553 if (p) 1553 if (p)
1554 /* Start over with the new string, so we check the file-name-handler 1554 /* Start over with the new string, so we check the file-name-handler
1555 again. Important with filenames like "/home/foo//:/hello///there" 1555 again. Important with filenames like "/home/foo//:/hello///there"
1556 which whould substitute to "/:/hello///there" rather than "/there". */ 1556 which would substitute to "/:/hello///there" rather than "/there". */
1557 return Fsubstitute_in_file_name 1557 return Fsubstitute_in_file_name
1558 (make_specified_string (p, -1, endp - p, multibyte)); 1558 (make_specified_string (p, -1, endp - p, multibyte));
1559 1559
@@ -4100,6 +4100,16 @@ variable `last-coding-system-used' to the coding system actually used. */)
4100 adjust_after_insert (PT, PT_BYTE, PT + inserted, PT_BYTE + inserted, 4100 adjust_after_insert (PT, PT_BYTE, PT + inserted, PT_BYTE + inserted,
4101 inserted); 4101 inserted);
4102 4102
4103 /* Call after-change hooks for the inserted text, aside from the case
4104 of normal visiting (not with REPLACE), which is done in a new buffer
4105 "before" the buffer is changed. */
4106 if (inserted > 0 && total > 0
4107 && (NILP (visit) || !NILP (replace)))
4108 {
4109 signal_after_change (PT, 0, inserted);
4110 update_compositions (PT, PT, CHECK_BORDER);
4111 }
4112
4103 /* Now INSERTED is measured in characters. */ 4113 /* Now INSERTED is measured in characters. */
4104 4114
4105 handled: 4115 handled:
@@ -4270,16 +4280,6 @@ variable `last-coding-system-used' to the coding system actually used. */)
4270 unbind_to (count1, Qnil); 4280 unbind_to (count1, Qnil);
4271 } 4281 }
4272 4282
4273 /* Call after-change hooks for the inserted text, aside from the case
4274 of normal visiting (not with REPLACE), which is done in a new buffer
4275 "before" the buffer is changed. */
4276 if (inserted > 0 && total > 0
4277 && (NILP (visit) || !NILP (replace)))
4278 {
4279 signal_after_change (PT, 0, inserted);
4280 update_compositions (PT, PT, CHECK_BORDER);
4281 }
4282
4283 if (!NILP (visit) 4283 if (!NILP (visit)
4284 && current_buffer->modtime == -1) 4284 && current_buffer->modtime == -1)
4285 { 4285 {
diff --git a/src/font.c b/src/font.c
index 9559c65e7ed..35f5703e32e 100644
--- a/src/font.c
+++ b/src/font.c
@@ -3160,14 +3160,7 @@ font_find_for_lface (FRAME_PTR f, Lisp_Object *attrs, Lisp_Object spec, int c)
3160 else 3160 else
3161 { 3161 {
3162 Lisp_Object alters 3162 Lisp_Object alters
3163 = Fassoc_string (val, Vface_alternative_font_family_alist, 3163 = Fassoc_string (val, Vface_alternative_font_family_alist, Qt);
3164 /* Font family names are case-sensitive under NS. */
3165#ifndef HAVE_NS
3166 Qt
3167#else
3168 Qnil
3169#endif
3170 );
3171 3164
3172 if (! NILP (alters)) 3165 if (! NILP (alters))
3173 { 3166 {
diff --git a/src/fontset.c b/src/fontset.c
index 9697f62ea72..7592521cc7d 100644
--- a/src/fontset.c
+++ b/src/fontset.c
@@ -631,7 +631,7 @@ fontset_find_font (Lisp_Object fontset, int c, struct face *face, int id, int fa
631 { 631 {
632 /* Something strange happened, perhaps because of a 632 /* Something strange happened, perhaps because of a
633 Font-backend problem. Too avoid crashing, record 633 Font-backend problem. Too avoid crashing, record
634 that this spec is unsable. It may be better to find 634 that this spec is unusable. It may be better to find
635 another font of the same spec, but currently we don't 635 another font of the same spec, but currently we don't
636 have such an API. */ 636 have such an API. */
637 RFONT_DEF_SET_FACE (rfont_def, -1); 637 RFONT_DEF_SET_FACE (rfont_def, -1);
diff --git a/src/fringe.c b/src/fringe.c
index 25fecca2334..da896e07b76 100644
--- a/src/fringe.c
+++ b/src/fringe.c
@@ -35,7 +35,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
35 Logical bitmaps are used internally to denote things like 35 Logical bitmaps are used internally to denote things like
36 'end-of-buffer', 'left-truncation', 'overlay-arrow', etc. 36 'end-of-buffer', 'left-truncation', 'overlay-arrow', etc.
37 37
38 Physical bitmaps specify the visual appearence of the bitmap, 38 Physical bitmaps specify the visual appearance of the bitmap,
39 e.g. 'bottom-left-angle', 'left-arrow', 'left-triangle', etc. 39 e.g. 'bottom-left-angle', 'left-arrow', 'left-triangle', etc.
40 User defined bitmaps are physical bitmaps. 40 User defined bitmaps are physical bitmaps.
41 41
@@ -928,7 +928,7 @@ update_window_fringes (struct window *w, int keep_current_p)
928 int top_ind_rn, bot_ind_rn; 928 int top_ind_rn, bot_ind_rn;
929 int top_ind_min_y, bot_ind_max_y; 929 int top_ind_min_y, bot_ind_max_y;
930 930
931 /* top_ind_rn is set to a nonnegative value whenver 931 /* top_ind_rn is set to a nonnegative value whenever
932 row->indicate_bob_p is set, so it's OK that top_row_ends_at_zv_p 932 row->indicate_bob_p is set, so it's OK that top_row_ends_at_zv_p
933 is not initialized here. Similarly for bot_ind_rn, 933 is not initialized here. Similarly for bot_ind_rn,
934 row->indicate_eob_p and bot_row_ends_at_zv_p. */ 934 row->indicate_eob_p and bot_row_ends_at_zv_p. */
diff --git a/src/ftfont.c b/src/ftfont.c
index 5c540f9bf82..c48346b0147 100644
--- a/src/ftfont.c
+++ b/src/ftfont.c
@@ -1462,7 +1462,7 @@ ftfont_get_bitmap (struct font *font, unsigned int code, struct font_bitmap *bit
1462 : ft_face->glyph->bitmap.pixel_mode == FT_PIXEL_MODE_LCD_V ? 8 1462 : ft_face->glyph->bitmap.pixel_mode == FT_PIXEL_MODE_LCD_V ? 8
1463 : -1); 1463 : -1);
1464 if (bitmap->bits_per_pixel < 0) 1464 if (bitmap->bits_per_pixel < 0)
1465 /* We don't suport that kind of pixel mode. */ 1465 /* We don't support that kind of pixel mode. */
1466 return -1; 1466 return -1;
1467 bitmap->rows = ft_face->glyph->bitmap.rows; 1467 bitmap->rows = ft_face->glyph->bitmap.rows;
1468 bitmap->width = ft_face->glyph->bitmap.width; 1468 bitmap->width = ft_face->glyph->bitmap.width;
diff --git a/src/gtkutil.c b/src/gtkutil.c
index 7e6f5c3164d..bc71685819e 100644
--- a/src/gtkutil.c
+++ b/src/gtkutil.c
@@ -1100,6 +1100,14 @@ xg_create_frame_widgets (FRAME_PTR f)
1100 else 1100 else
1101 wtop = gtk_window_new (GTK_WINDOW_TOPLEVEL); 1101 wtop = gtk_window_new (GTK_WINDOW_TOPLEVEL);
1102 1102
1103 /* gtk_window_set_has_resize_grip is a Gtk+ 3.0 function but Ubuntu
1104 has backported it to Gtk+ 2.0 and they add the resize grip for
1105 Gtk+ 2.0 applications also. But it has a bug that makes Emacs loop
1106 forever, so disable the grip. */
1107#if GTK_MAJOR_VERSION < 3 && defined (HAVE_GTK_WINDOW_SET_HAS_RESIZE_GRIP)
1108 gtk_window_set_has_resize_grip (GTK_WINDOW (wtop), FALSE);
1109#endif
1110
1103 xg_set_screen (wtop, f); 1111 xg_set_screen (wtop, f);
1104 1112
1105 wvbox = gtk_vbox_new (FALSE, 0); 1113 wvbox = gtk_vbox_new (FALSE, 0);
diff --git a/src/gtkutil.h b/src/gtkutil.h
index 2dfb3a5ed6c..7cc2d21f9c4 100644
--- a/src/gtkutil.h
+++ b/src/gtkutil.h
@@ -98,7 +98,7 @@ extern GtkWidget *xg_create_widget (const char *type,
98 struct _widget_value *val, 98 struct _widget_value *val,
99 GCallback select_cb, 99 GCallback select_cb,
100 GCallback deactivate_cb, 100 GCallback deactivate_cb,
101 GCallback hightlight_cb); 101 GCallback highlight_cb);
102 102
103extern void xg_modify_menubar_widgets (GtkWidget *menubar, 103extern void xg_modify_menubar_widgets (GtkWidget *menubar,
104 FRAME_PTR f, 104 FRAME_PTR f,
@@ -106,7 +106,7 @@ extern void xg_modify_menubar_widgets (GtkWidget *menubar,
106 int deep_p, 106 int deep_p,
107 GCallback select_cb, 107 GCallback select_cb,
108 GCallback deactivate_cb, 108 GCallback deactivate_cb,
109 GCallback hightlight_cb); 109 GCallback highlight_cb);
110 110
111extern int xg_update_frame_menubar (FRAME_PTR f); 111extern int xg_update_frame_menubar (FRAME_PTR f);
112 112
diff --git a/src/image.c b/src/image.c
index 8b61c7eefbc..81907d8e580 100644
--- a/src/image.c
+++ b/src/image.c
@@ -7618,7 +7618,7 @@ imagemagick_load_image (struct frame *f, struct image *img,
7618 image = image_spec_value (img->spec, QCindex, NULL); 7618 image = image_spec_value (img->spec, QCindex, NULL);
7619 ino = INTEGERP (image) ? XFASTINT (image) : 0; 7619 ino = INTEGERP (image) ? XFASTINT (image) : 0;
7620 ping_wand = NewMagickWand (); 7620 ping_wand = NewMagickWand ();
7621 MagickSetResolution (ping_wand, 2, 2); 7621
7622 if (filename != NULL) 7622 if (filename != NULL)
7623 { 7623 {
7624 status = MagickPingImage (ping_wand, filename); 7624 status = MagickPingImage (ping_wand, filename);
@@ -7628,6 +7628,8 @@ imagemagick_load_image (struct frame *f, struct image *img,
7628 status = MagickPingImageBlob (ping_wand, contents, size); 7628 status = MagickPingImageBlob (ping_wand, contents, size);
7629 } 7629 }
7630 7630
7631 MagickSetResolution (ping_wand, 2, 2);
7632
7631 if (! (0 <= ino && ino < MagickGetNumberImages (ping_wand))) 7633 if (! (0 <= ino && ino < MagickGetNumberImages (ping_wand)))
7632 { 7634 {
7633 image_error ("Invalid image number `%s' in image `%s'", 7635 image_error ("Invalid image number `%s' in image `%s'",
diff --git a/src/keyboard.c b/src/keyboard.c
index bee91c6b5cf..656634b8d31 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -3001,7 +3001,7 @@ read_char (int commandflag, ptrdiff_t nmaps, Lisp_Object *maps,
3001 { 3001 {
3002 Lisp_Object keys; 3002 Lisp_Object keys;
3003 int key_count, key_count_reset; 3003 int key_count, key_count_reset;
3004 struct gcpro inner_gcpro1; 3004 struct gcpro gcpro1;
3005 int count = SPECPDL_INDEX (); 3005 int count = SPECPDL_INDEX ();
3006 3006
3007 /* Save the echo status. */ 3007 /* Save the echo status. */
@@ -3029,7 +3029,7 @@ read_char (int commandflag, ptrdiff_t nmaps, Lisp_Object *maps,
3029 keys = Fcopy_sequence (this_command_keys); 3029 keys = Fcopy_sequence (this_command_keys);
3030 else 3030 else
3031 keys = Qnil; 3031 keys = Qnil;
3032 GCPRO1_VAR (keys, inner_gcpro); 3032 GCPRO1 (keys);
3033 3033
3034 /* Clear out this_command_keys. */ 3034 /* Clear out this_command_keys. */
3035 this_command_key_count = 0; 3035 this_command_key_count = 0;
@@ -3067,7 +3067,7 @@ read_char (int commandflag, ptrdiff_t nmaps, Lisp_Object *maps,
3067 if (saved_immediate_echo) 3067 if (saved_immediate_echo)
3068 echo_now (); 3068 echo_now ();
3069 3069
3070 UNGCPRO_VAR (inner_gcpro); 3070 UNGCPRO;
3071 3071
3072 /* The input method can return no events. */ 3072 /* The input method can return no events. */
3073 if (! CONSP (tem)) 3073 if (! CONSP (tem))
@@ -9069,9 +9069,9 @@ read_key_sequence (Lisp_Object *keybuf, int bufsize, Lisp_Object prompt,
9069 int junk; 9069 int junk;
9070#endif 9070#endif
9071 9071
9072 struct gcpro outer_gcpro1; 9072 struct gcpro gcpro1;
9073 9073
9074 GCPRO1_VAR (fake_prefixed_keys, outer_gcpro); 9074 GCPRO1 (fake_prefixed_keys);
9075 raw_keybuf_count = 0; 9075 raw_keybuf_count = 0;
9076 9076
9077 last_nonmenu_event = Qnil; 9077 last_nonmenu_event = Qnil;
@@ -9367,7 +9367,7 @@ read_key_sequence (Lisp_Object *keybuf, int bufsize, Lisp_Object prompt,
9367 if (EQ (key, Qt)) 9367 if (EQ (key, Qt))
9368 { 9368 {
9369 unbind_to (count, Qnil); 9369 unbind_to (count, Qnil);
9370 UNGCPRO_VAR (outer_gcpro); 9370 UNGCPRO;
9371 return -1; 9371 return -1;
9372 } 9372 }
9373 9373
@@ -10065,7 +10065,7 @@ read_key_sequence (Lisp_Object *keybuf, int bufsize, Lisp_Object prompt,
10065 add_command_key (keybuf[t]); 10065 add_command_key (keybuf[t]);
10066 } 10066 }
10067 10067
10068 UNGCPRO_VAR (outer_gcpro); 10068 UNGCPRO;
10069 return t; 10069 return t;
10070} 10070}
10071 10071
@@ -10874,7 +10874,7 @@ interrupt_signal (int signalnum) /* If we don't have an argument, some */
10874 /* If there are no frames there, let's pretend that we are a 10874 /* If there are no frames there, let's pretend that we are a
10875 well-behaving UN*X program and quit. We cannot do that while 10875 well-behaving UN*X program and quit. We cannot do that while
10876 GC is in progress, though. */ 10876 GC is in progress, though. */
10877 if (!gc_in_progress) 10877 if (!gc_in_progress && !waiting_for_input)
10878 Fkill_emacs (Qnil); 10878 Fkill_emacs (Qnil);
10879 else 10879 else
10880 Vquit_flag = Qt; 10880 Vquit_flag = Qt;
diff --git a/src/lisp.h b/src/lisp.h
index 2056b7caff8..6b19396111c 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -163,14 +163,23 @@ extern int suppress_checking EXTERNALLY_VISIBLE;
163/* First, try and define DECL_ALIGN(type,var) which declares a static 163/* First, try and define DECL_ALIGN(type,var) which declares a static
164 variable VAR of type TYPE with the added requirement that it be 164 variable VAR of type TYPE with the added requirement that it be
165 TYPEBITS-aligned. */ 165 TYPEBITS-aligned. */
166
167#ifndef GCTYPEBITS
168#define GCTYPEBITS 3
169#endif
170
166#ifndef NO_DECL_ALIGN 171#ifndef NO_DECL_ALIGN
167# ifndef DECL_ALIGN 172# ifndef DECL_ALIGN
168# if HAVE_ATTRIBUTE_ALIGNED 173# if HAVE_ATTRIBUTE_ALIGNED
169# define DECL_ALIGN(type, var) \ 174# define DECL_ALIGN(type, var) \
170 type __attribute__ ((__aligned__ (1 << GCTYPEBITS))) var 175 type __attribute__ ((__aligned__ (1 << GCTYPEBITS))) var
171# elif defined(_MSC_VER) 176# elif defined(_MSC_VER)
177# define ALIGN_GCTYPEBITS 8
178# if (1 << GCTYPEBITS) != ALIGN_GCTYPEBITS
179# error ALIGN_GCTYPEBITS is wrong!
180# endif
172# define DECL_ALIGN(type, var) \ 181# define DECL_ALIGN(type, var) \
173 type __declspec(align(1 << GCTYPEBITS)) var 182 type __declspec(align(ALIGN_GCTYPEBITS)) var
174# else 183# else
175 /* What directives do other compilers use? */ 184 /* What directives do other compilers use? */
176# endif 185# endif
@@ -300,10 +309,6 @@ enum Lisp_Fwd_Type
300 Lisp_Fwd_Kboard_Obj, /* Fwd to a Lisp_Object field of kboards. */ 309 Lisp_Fwd_Kboard_Obj, /* Fwd to a Lisp_Object field of kboards. */
301 }; 310 };
302 311
303#ifndef GCTYPEBITS
304#define GCTYPEBITS 3
305#endif
306
307/* These values are overridden by the m- file on some machines. */ 312/* These values are overridden by the m- file on some machines. */
308#ifndef VALBITS 313#ifndef VALBITS
309#define VALBITS (BITS_PER_EMACS_INT - GCTYPEBITS) 314#define VALBITS (BITS_PER_EMACS_INT - GCTYPEBITS)
@@ -324,7 +329,7 @@ union Lisp_Object
324 329
325 struct 330 struct
326 { 331 {
327 /* Use explict signed, the signedness of a bit-field of type 332 /* Use explicit signed, the signedness of a bit-field of type
328 int is implementation defined. */ 333 int is implementation defined. */
329 signed EMACS_INT val : VALBITS; 334 signed EMACS_INT val : VALBITS;
330 ENUM_BF (Lisp_Type) type : GCTYPEBITS; 335 ENUM_BF (Lisp_Type) type : GCTYPEBITS;
@@ -349,7 +354,7 @@ union Lisp_Object
349 struct 354 struct
350 { 355 {
351 ENUM_BF (Lisp_Type) type : GCTYPEBITS; 356 ENUM_BF (Lisp_Type) type : GCTYPEBITS;
352 /* Use explict signed, the signedness of a bit-field of type 357 /* Use explicit signed, the signedness of a bit-field of type
353 int is implementation defined. */ 358 int is implementation defined. */
354 signed EMACS_INT val : VALBITS; 359 signed EMACS_INT val : VALBITS;
355 } s; 360 } s;
@@ -2222,143 +2227,127 @@ struct gcpro
2222 || GC_MARK_STACK == GC_MARK_STACK_CHECK_GCPROS) 2227 || GC_MARK_STACK == GC_MARK_STACK_CHECK_GCPROS)
2223 2228
2224 2229
2225#define GCPRO1(var) \
2226 GCPRO1_VAR (var, gcpro)
2227#define GCPRO2(var1, var2) \
2228 GCPRO2_VAR (var1, var2, gcpro)
2229#define GCPRO3(var1, var2, var3) \
2230 GCPRO3_VAR (var1, var2, var3, gcpro)
2231#define GCPRO4(var1, var2, var3, var4) \
2232 GCPRO4_VAR (var1, var2, var3, var4, gcpro)
2233#define GCPRO5(var1, var2, var3, var4, var5) \
2234 GCPRO5_VAR (var1, var2, var3, var4, var5, gcpro)
2235#define GCPRO6(var1, var2, var3, var4, var5, var6) \
2236 GCPRO6_VAR (var1, var2, var3, var4, var5, var6, gcpro)
2237#define UNGCPRO UNGCPRO_VAR (gcpro)
2238
2239#if GC_MARK_STACK == GC_MAKE_GCPROS_NOOPS 2230#if GC_MARK_STACK == GC_MAKE_GCPROS_NOOPS
2240 2231
2241/* Do something silly with gcproN vars just so gcc shuts up. */ 2232/* Do something silly with gcproN vars just so gcc shuts up. */
2242/* You get warnings from MIPSPro... */ 2233/* You get warnings from MIPSPro... */
2243 2234
2244#define GCPRO1_VAR(var, gcpro) ((void) gcpro##1) 2235#define GCPRO1(varname) ((void) gcpro1)
2245#define GCPRO2_VAR(var1, var2, gcpro) \ 2236#define GCPRO2(varname1, varname2) ((void) gcpro2, (void) gcpro1)
2246 ((void) gcpro##2, (void) gcpro##1) 2237#define GCPRO3(varname1, varname2, varname3) \
2247#define GCPRO3_VAR(var1, var2, var3, gcpro) \ 2238 ((void) gcpro3, (void) gcpro2, (void) gcpro1)
2248 ((void) gcpro##3, (void) gcpro##2, (void) gcpro##1) 2239#define GCPRO4(varname1, varname2, varname3, varname4) \
2249#define GCPRO4_VAR(var1, var2, var3, var4, gcpro) \ 2240 ((void) gcpro4, (void) gcpro3, (void) gcpro2, (void) gcpro1)
2250 ((void) gcpro##4, (void) gcpro##3, (void) gcpro##2, (void) gcpro##1) 2241#define GCPRO5(varname1, varname2, varname3, varname4, varname5) \
2251#define GCPRO5_VAR(var1, var2, var3, var4, var5, gcpro) \ 2242 ((void) gcpro5, (void) gcpro4, (void) gcpro3, (void) gcpro2, (void) gcpro1)
2252 ((void) gcpro##5, (void) gcpro##4, (void) gcpro##3, (void) gcpro##2, \ 2243#define GCPRO6(varname1, varname2, varname3, varname4, varname5, varname6) \
2253 (void) gcpro##1) 2244 ((void) gcpro6, (void) gcpro5, (void) gcpro4, (void) gcpro3, (void) gcpro2, \
2254#define GCPRO6_VAR(var1, var2, var3, var4, var5, var6, gcpro) \ 2245 (void) gcpro1)
2255 ((void) gcpro##6, (void) gcpro##5, (void) gcpro##4, (void) gcpro##3, \ 2246#define UNGCPRO ((void) 0)
2256 (void) gcpro##2, (void) gcpro##1)
2257#define UNGCPRO_VAR(gcpro) ((void) 0)
2258 2247
2259#else /* GC_MARK_STACK != GC_MAKE_GCPROS_NOOPS */ 2248#else /* GC_MARK_STACK != GC_MAKE_GCPROS_NOOPS */
2260 2249
2261#ifndef DEBUG_GCPRO 2250#ifndef DEBUG_GCPRO
2262 2251
2263#define GCPRO1_VAR(var1, gcpro) \ 2252#define GCPRO1(varname) \
2264 {gcpro##1 .next = gcprolist; gcpro##1 .var = &var1; gcpro##1 .nvars = 1; \ 2253 {gcpro1.next = gcprolist; gcpro1.var = &varname; gcpro1.nvars = 1; \
2265 gcprolist = &gcpro##1; } 2254 gcprolist = &gcpro1; }
2266 2255
2267#define GCPRO2_VAR(var1, var2, gcpro) \ 2256#define GCPRO2(varname1, varname2) \
2268 {gcpro##1 .next = gcprolist; gcpro##1 .var = &var1; gcpro##1 .nvars = 1; \ 2257 {gcpro1.next = gcprolist; gcpro1.var = &varname1; gcpro1.nvars = 1; \
2269 gcpro##2 .next = &gcpro##1; gcpro##2 .var = &var2; gcpro##2 .nvars = 1; \ 2258 gcpro2.next = &gcpro1; gcpro2.var = &varname2; gcpro2.nvars = 1; \
2270 gcprolist = &gcpro##2; } 2259 gcprolist = &gcpro2; }
2271 2260
2272#define GCPRO3_VAR(var1, var2, var3, gcpro) \ 2261#define GCPRO3(varname1, varname2, varname3) \
2273 {gcpro##1 .next = gcprolist; gcpro##1 .var = &var1; gcpro##1 .nvars = 1; \ 2262 {gcpro1.next = gcprolist; gcpro1.var = &varname1; gcpro1.nvars = 1; \
2274 gcpro##2 .next = &gcpro##1; gcpro##2 .var = &var2; gcpro##2 .nvars = 1; \ 2263 gcpro2.next = &gcpro1; gcpro2.var = &varname2; gcpro2.nvars = 1; \
2275 gcpro##3 .next = &gcpro##2; gcpro##3 .var = &var3; gcpro##3 .nvars = 1; \ 2264 gcpro3.next = &gcpro2; gcpro3.var = &varname3; gcpro3.nvars = 1; \
2276 gcprolist = &gcpro##3; } 2265 gcprolist = &gcpro3; }
2277 2266
2278#define GCPRO4_VAR(var1, var2, var3, var4, gcpro) \ 2267#define GCPRO4(varname1, varname2, varname3, varname4) \
2279 {gcpro##1 .next = gcprolist; gcpro##1 .var = &var1; gcpro##1 .nvars = 1; \ 2268 {gcpro1.next = gcprolist; gcpro1.var = &varname1; gcpro1.nvars = 1; \
2280 gcpro##2 .next = &gcpro##1; gcpro##2 .var = &var2; gcpro##2 .nvars = 1; \ 2269 gcpro2.next = &gcpro1; gcpro2.var = &varname2; gcpro2.nvars = 1; \
2281 gcpro##3 .next = &gcpro##2; gcpro##3 .var = &var3; gcpro##3 .nvars = 1; \ 2270 gcpro3.next = &gcpro2; gcpro3.var = &varname3; gcpro3.nvars = 1; \
2282 gcpro##4 .next = &gcpro##3; gcpro##4 .var = &var4; gcpro##4 .nvars = 1; \ 2271 gcpro4.next = &gcpro3; gcpro4.var = &varname4; gcpro4.nvars = 1; \
2283 gcprolist = &gcpro##4; } 2272 gcprolist = &gcpro4; }
2284 2273
2285#define GCPRO5_VAR(var1, var2, var3, var4, var5, gcpro) \ 2274#define GCPRO5(varname1, varname2, varname3, varname4, varname5) \
2286 {gcpro##1 .next = gcprolist; gcpro##1 .var = &var1; gcpro##1 .nvars = 1; \ 2275 {gcpro1.next = gcprolist; gcpro1.var = &varname1; gcpro1.nvars = 1; \
2287 gcpro##2 .next = &gcpro##1; gcpro##2 .var = &var2; gcpro##2 .nvars = 1; \ 2276 gcpro2.next = &gcpro1; gcpro2.var = &varname2; gcpro2.nvars = 1; \
2288 gcpro##3 .next = &gcpro##2; gcpro##3 .var = &var3; gcpro##3 .nvars = 1; \ 2277 gcpro3.next = &gcpro2; gcpro3.var = &varname3; gcpro3.nvars = 1; \
2289 gcpro##4 .next = &gcpro##3; gcpro##4 .var = &var4; gcpro##4 .nvars = 1; \ 2278 gcpro4.next = &gcpro3; gcpro4.var = &varname4; gcpro4.nvars = 1; \
2290 gcpro##5 .next = &gcpro##4; gcpro##5 .var = &var5; gcpro##5 .nvars = 1; \ 2279 gcpro5.next = &gcpro4; gcpro5.var = &varname5; gcpro5.nvars = 1; \
2291 gcprolist = &gcpro##5; } 2280 gcprolist = &gcpro5; }
2292 2281
2293#define GCPRO6_VAR(var1, var2, var3, var4, var5, var6, gcpro) \ 2282#define GCPRO6(varname1, varname2, varname3, varname4, varname5, varname6) \
2294 {gcpro##1 .next = gcprolist; gcpro##1 .var = &var1; gcpro##1 .nvars = 1; \ 2283 {gcpro1.next = gcprolist; gcpro1.var = &varname1; gcpro1.nvars = 1; \
2295 gcpro##2 .next = &gcpro##1; gcpro##2 .var = &var2; gcpro##2 .nvars = 1; \ 2284 gcpro2.next = &gcpro1; gcpro2.var = &varname2; gcpro2.nvars = 1; \
2296 gcpro##3 .next = &gcpro##2; gcpro##3 .var = &var3; gcpro##3 .nvars = 1; \ 2285 gcpro3.next = &gcpro2; gcpro3.var = &varname3; gcpro3.nvars = 1; \
2297 gcpro##4 .next = &gcpro##3; gcpro##4 .var = &var4; gcpro##4 .nvars = 1; \ 2286 gcpro4.next = &gcpro3; gcpro4.var = &varname4; gcpro4.nvars = 1; \
2298 gcpro##5 .next = &gcpro##4; gcpro##5 .var = &var5; gcpro##5 .nvars = 1; \ 2287 gcpro5.next = &gcpro4; gcpro5.var = &varname5; gcpro5.nvars = 1; \
2299 gcpro##6 .next = &gcpro##5; gcpro##6 .var = &var6; gcpro##6 .nvars = 1; \ 2288 gcpro6.next = &gcpro5; gcpro6.var = &varname6; gcpro6.nvars = 1; \
2300 gcprolist = &gcpro##6; } 2289 gcprolist = &gcpro6; }
2301 2290
2302#define UNGCPRO_VAR(gcpro) (gcprolist = gcpro##1 .next) 2291#define UNGCPRO (gcprolist = gcpro1.next)
2303 2292
2304#else 2293#else
2305 2294
2306extern int gcpro_level; 2295extern int gcpro_level;
2307 2296
2308#define GCPRO1_VAR(var1, gcpro) \ 2297#define GCPRO1(varname) \
2309 {gcpro##1 .next = gcprolist; gcpro##1 .var = &var1; gcpro##1 .nvars = 1; \ 2298 {gcpro1.next = gcprolist; gcpro1.var = &varname; gcpro1.nvars = 1; \
2310 gcpro##1 .level = gcpro_level++; \ 2299 gcpro1.level = gcpro_level++; \
2311 gcprolist = &gcpro##1; } 2300 gcprolist = &gcpro1; }
2312 2301
2313#define GCPRO2_VAR(var1, var2, gcpro) \ 2302#define GCPRO2(varname1, varname2) \
2314 {gcpro##1 .next = gcprolist; gcpro##1 .var = &var1; gcpro##1 .nvars = 1; \ 2303 {gcpro1.next = gcprolist; gcpro1.var = &varname1; gcpro1.nvars = 1; \
2315 gcpro##1 .level = gcpro_level; \ 2304 gcpro1.level = gcpro_level; \
2316 gcpro##2 .next = &gcpro##1; gcpro##2 .var = &var2; gcpro##2 .nvars = 1; \ 2305 gcpro2.next = &gcpro1; gcpro2.var = &varname2; gcpro2.nvars = 1; \
2317 gcpro##2 .level = gcpro_level++; \ 2306 gcpro2.level = gcpro_level++; \
2318 gcprolist = &gcpro##2; } 2307 gcprolist = &gcpro2; }
2319 2308
2320#define GCPRO3_VAR(var1, var2, var3, gcpro) \ 2309#define GCPRO3(varname1, varname2, varname3) \
2321 {gcpro##1 .next = gcprolist; gcpro##1 .var = &var1; gcpro##1 .nvars = 1; \ 2310 {gcpro1.next = gcprolist; gcpro1.var = &varname1; gcpro1.nvars = 1; \
2322 gcpro##1 .level = gcpro_level; \ 2311 gcpro1.level = gcpro_level; \
2323 gcpro##2 .next = &gcpro##1; gcpro##2 .var = &var2; gcpro##2 .nvars = 1; \ 2312 gcpro2.next = &gcpro1; gcpro2.var = &varname2; gcpro2.nvars = 1; \
2324 gcpro##3 .next = &gcpro##2; gcpro##3 .var = &var3; gcpro##3 .nvars = 1; \ 2313 gcpro3.next = &gcpro2; gcpro3.var = &varname3; gcpro3.nvars = 1; \
2325 gcpro##3 .level = gcpro_level++; \ 2314 gcpro3.level = gcpro_level++; \
2326 gcprolist = &gcpro##3; } 2315 gcprolist = &gcpro3; }
2327 2316
2328#define GCPRO4_VAR(var1, var2, var3, var4, gcpro) \ 2317#define GCPRO4(varname1, varname2, varname3, varname4) \
2329 {gcpro##1 .next = gcprolist; gcpro##1 .var = &var1; gcpro##1 .nvars = 1; \ 2318 {gcpro1.next = gcprolist; gcpro1.var = &varname1; gcpro1.nvars = 1; \
2330 gcpro##1 .level = gcpro_level; \ 2319 gcpro1.level = gcpro_level; \
2331 gcpro##2 .next = &gcpro##1; gcpro##2 .var = &var2; gcpro##2 .nvars = 1; \ 2320 gcpro2.next = &gcpro1; gcpro2.var = &varname2; gcpro2.nvars = 1; \
2332 gcpro##3 .next = &gcpro##2; gcpro##3 .var = &var3; gcpro##3 .nvars = 1; \ 2321 gcpro3.next = &gcpro2; gcpro3.var = &varname3; gcpro3.nvars = 1; \
2333 gcpro##4 .next = &gcpro##3; gcpro##4 .var = &var4; gcpro##4 .nvars = 1; \ 2322 gcpro4.next = &gcpro3; gcpro4.var = &varname4; gcpro4.nvars = 1; \
2334 gcpro##4 .level = gcpro_level++; \ 2323 gcpro4.level = gcpro_level++; \
2335 gcprolist = &gcpro##4; } 2324 gcprolist = &gcpro4; }
2336 2325
2337#define GCPRO5_VAR(var1, var2, var3, var4, var5, gcpro) \ 2326#define GCPRO5(varname1, varname2, varname3, varname4, varname5) \
2338 {gcpro##1 .next = gcprolist; gcpro##1 .var = &var1; gcpro##1 .nvars = 1; \ 2327 {gcpro1.next = gcprolist; gcpro1.var = &varname1; gcpro1.nvars = 1; \
2339 gcpro##1 .level = gcpro_level; \ 2328 gcpro1.level = gcpro_level; \
2340 gcpro##2 .next = &gcpro##1; gcpro##2 .var = &var2; gcpro##2 .nvars = 1; \ 2329 gcpro2.next = &gcpro1; gcpro2.var = &varname2; gcpro2.nvars = 1; \
2341 gcpro##3 .next = &gcpro##2; gcpro##3 .var = &var3; gcpro##3 .nvars = 1; \ 2330 gcpro3.next = &gcpro2; gcpro3.var = &varname3; gcpro3.nvars = 1; \
2342 gcpro##4 .next = &gcpro##3; gcpro##4 .var = &var4; gcpro##4 .nvars = 1; \ 2331 gcpro4.next = &gcpro3; gcpro4.var = &varname4; gcpro4.nvars = 1; \
2343 gcpro##5 .next = &gcpro##4; gcpro##5 .var = &var5; gcpro##5 .nvars = 1; \ 2332 gcpro5.next = &gcpro4; gcpro5.var = &varname5; gcpro5.nvars = 1; \
2344 gcpro##5 .level = gcpro_level++; \ 2333 gcpro5.level = gcpro_level++; \
2345 gcprolist = &gcpro##5; } 2334 gcprolist = &gcpro5; }
2346 2335
2347#define GCPRO6_VAR(var1, var2, var3, var4, var5, var6, gcpro) \ 2336#define GCPRO6(varname1, varname2, varname3, varname4, varname5, varname6) \
2348 {gcpro##1 .next = gcprolist; gcpro##1 .var = &var1; gcpro##1 .nvars = 1; \ 2337 {gcpro1.next = gcprolist; gcpro1.var = &varname1; gcpro1.nvars = 1; \
2349 gcpro##1 .level = gcpro_level; \ 2338 gcpro1.level = gcpro_level; \
2350 gcpro##2 .next = &gcpro##1; gcpro##2 .var = &var2; gcpro##2 .nvars = 1; \ 2339 gcpro2.next = &gcpro1; gcpro2.var = &varname2; gcpro2.nvars = 1; \
2351 gcpro##3 .next = &gcpro##2; gcpro##3 .var = &var3; gcpro##3 .nvars = 1; \ 2340 gcpro3.next = &gcpro2; gcpro3.var = &varname3; gcpro3.nvars = 1; \
2352 gcpro##4 .next = &gcpro##3; gcpro##4 .var = &var4; gcpro##4 .nvars = 1; \ 2341 gcpro4.next = &gcpro3; gcpro4.var = &varname4; gcpro4.nvars = 1; \
2353 gcpro##5 .next = &gcpro##4; gcpro##5 .var = &var5; gcpro##5 .nvars = 1; \ 2342 gcpro5.next = &gcpro4; gcpro5.var = &varname5; gcpro5.nvars = 1; \
2354 gcpro##6 .next = &gcpro##5; gcpro##6 .var = &var6; gcpro##6 .nvars = 1; \ 2343 gcpro6.next = &gcpro5; gcpro6.var = &varname6; gcpro6.nvars = 1; \
2355 gcpro##6 .level = gcpro_level++; \ 2344 gcpro6.level = gcpro_level++; \
2356 gcprolist = &gcpro##6; } 2345 gcprolist = &gcpro6; }
2357 2346
2358#define UNGCPRO_VAR(gcpro) \ 2347#define UNGCPRO \
2359 ((--gcpro_level != gcpro##1 .level) \ 2348 ((--gcpro_level != gcpro1.level) \
2360 ? (abort (), 0) \ 2349 ? (abort (), 0) \
2361 : ((gcprolist = gcpro##1 .next), 0)) 2350 : ((gcprolist = gcpro1.next), 0))
2362 2351
2363#endif /* DEBUG_GCPRO */ 2352#endif /* DEBUG_GCPRO */
2364#endif /* GC_MARK_STACK != GC_MAKE_GCPROS_NOOPS */ 2353#endif /* GC_MARK_STACK != GC_MAKE_GCPROS_NOOPS */
diff --git a/src/lread.c b/src/lread.c
index f1f6f0cbd78..cdbd09d2f89 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1917,7 +1917,7 @@ which is the input stream for reading characters.
1917This function does not move point. */) 1917This function does not move point. */)
1918 (Lisp_Object start, Lisp_Object end, Lisp_Object printflag, Lisp_Object read_function) 1918 (Lisp_Object start, Lisp_Object end, Lisp_Object printflag, Lisp_Object read_function)
1919{ 1919{
1920 /* FIXME: Do the eval-sexp-add-defvars danse! */ 1920 /* FIXME: Do the eval-sexp-add-defvars dance! */
1921 int count = SPECPDL_INDEX (); 1921 int count = SPECPDL_INDEX ();
1922 Lisp_Object tem, cbuf; 1922 Lisp_Object tem, cbuf;
1923 1923
diff --git a/src/msdos.c b/src/msdos.c
index 4c08c5b29e0..64e9d72c784 100644
--- a/src/msdos.c
+++ b/src/msdos.c
@@ -1558,7 +1558,7 @@ IT_set_terminal_window (struct frame *f, int foo)
1558{ 1558{
1559} 1559}
1560 1560
1561/* Remember the screen colors of the curent frame, to serve as the 1561/* Remember the screen colors of the current frame, to serve as the
1562 default colors for newly-created frames. */ 1562 default colors for newly-created frames. */
1563DEFUN ("msdos-remember-default-colors", Fmsdos_remember_default_colors, 1563DEFUN ("msdos-remember-default-colors", Fmsdos_remember_default_colors,
1564 Smsdos_remember_default_colors, 1, 1, 0, 1564 Smsdos_remember_default_colors, 1, 1, 0,
diff --git a/src/nsgui.h b/src/nsgui.h
index 5cc2eee3230..99c64cd4cde 100644
--- a/src/nsgui.h
+++ b/src/nsgui.h
@@ -65,7 +65,7 @@ typedef struct _XCharStruct
65 int descent; 65 int descent;
66} XCharStruct; 66} XCharStruct;
67 67
68/* Fake tructure from Xlib.h to represent two-byte characters. */ 68/* Fake structure from Xlib.h to represent two-byte characters. */
69#ifndef __OBJC__ 69#ifndef __OBJC__
70typedef unsigned short unichar; 70typedef unsigned short unichar;
71#endif 71#endif
@@ -202,4 +202,3 @@ typedef struct _NSRect { NSPoint origin; NSSize size; } NSRect;
202#define PWinGravity (1L << 9) /* program specified window gravity */ 202#define PWinGravity (1L << 9) /* program specified window gravity */
203 203
204#endif /* __NSGUI_H__ */ 204#endif /* __NSGUI_H__ */
205
diff --git a/src/nsterm.m b/src/nsterm.m
index c5b28d57ac5..5e19a397c34 100644
--- a/src/nsterm.m
+++ b/src/nsterm.m
@@ -559,7 +559,7 @@ ns_constrain_all_frames (void)
559 { 559 {
560 NSView *view = FRAME_NS_VIEW (f); 560 NSView *view = FRAME_NS_VIEW (f);
561 /* This no-op will trigger the default window placing 561 /* This no-op will trigger the default window placing
562 * constriant system. */ 562 * constraint system. */
563 f->output_data.ns->dont_constrain = 0; 563 f->output_data.ns->dont_constrain = 0;
564 [[view window] setFrameOrigin:[[view window] frame].origin]; 564 [[view window] setFrameOrigin:[[view window] frame].origin];
565 } 565 }
@@ -3075,7 +3075,7 @@ ns_dumpglyphs_image (struct glyph_string *s, NSRect r)
3075 3075
3076 /* If there is no mask, the background won't be seen, 3076 /* If there is no mask, the background won't be seen,
3077 so draw a rectangle on the image for the cursor. 3077 so draw a rectangle on the image for the cursor.
3078 Do this for all images, getting trancparency right is not reliable. */ 3078 Do this for all images, getting transparency right is not reliable. */
3079 if (s->hl == DRAW_CURSOR) 3079 if (s->hl == DRAW_CURSOR)
3080 { 3080 {
3081 int thickness = abs (s->img->relief); 3081 int thickness = abs (s->img->relief);
diff --git a/src/process.c b/src/process.c
index a02ba44ae71..05c4be27550 100644
--- a/src/process.c
+++ b/src/process.c
@@ -3474,7 +3474,7 @@ usage: (make-network-process &rest ARGS) */)
3474 3474
3475 { 3475 {
3476 /* Setup coding systems for communicating with the network stream. */ 3476 /* Setup coding systems for communicating with the network stream. */
3477 struct gcpro inner_gcpro1; 3477 struct gcpro gcpro1;
3478 /* Qt denotes we have not yet called Ffind_operation_coding_system. */ 3478 /* Qt denotes we have not yet called Ffind_operation_coding_system. */
3479 Lisp_Object coding_systems = Qt; 3479 Lisp_Object coding_systems = Qt;
3480 Lisp_Object fargs[5], val; 3480 Lisp_Object fargs[5], val;
@@ -3502,9 +3502,9 @@ usage: (make-network-process &rest ARGS) */)
3502 { 3502 {
3503 fargs[0] = Qopen_network_stream, fargs[1] = name, 3503 fargs[0] = Qopen_network_stream, fargs[1] = name,
3504 fargs[2] = buffer, fargs[3] = host, fargs[4] = service; 3504 fargs[2] = buffer, fargs[3] = host, fargs[4] = service;
3505 GCPRO1_VAR (proc, inner_gcpro); 3505 GCPRO1 (proc);
3506 coding_systems = Ffind_operation_coding_system (5, fargs); 3506 coding_systems = Ffind_operation_coding_system (5, fargs);
3507 UNGCPRO_VAR (inner_gcpro); 3507 UNGCPRO;
3508 } 3508 }
3509 if (CONSP (coding_systems)) 3509 if (CONSP (coding_systems))
3510 val = XCAR (coding_systems); 3510 val = XCAR (coding_systems);
@@ -3535,9 +3535,9 @@ usage: (make-network-process &rest ARGS) */)
3535 { 3535 {
3536 fargs[0] = Qopen_network_stream, fargs[1] = name, 3536 fargs[0] = Qopen_network_stream, fargs[1] = name,
3537 fargs[2] = buffer, fargs[3] = host, fargs[4] = service; 3537 fargs[2] = buffer, fargs[3] = host, fargs[4] = service;
3538 GCPRO1_VAR (proc, inner_gcpro); 3538 GCPRO1 (proc);
3539 coding_systems = Ffind_operation_coding_system (5, fargs); 3539 coding_systems = Ffind_operation_coding_system (5, fargs);
3540 UNGCPRO_VAR (inner_gcpro); 3540 UNGCPRO;
3541 } 3541 }
3542 } 3542 }
3543 if (CONSP (coding_systems)) 3543 if (CONSP (coding_systems))
@@ -3717,7 +3717,7 @@ DEFUN ("network-interface-info", Fnetwork_interface_info, Snetwork_interface_inf
3717 doc: /* Return information about network interface named IFNAME. 3717 doc: /* Return information about network interface named IFNAME.
3718The return value is a list (ADDR BCAST NETMASK HWADDR FLAGS), 3718The return value is a list (ADDR BCAST NETMASK HWADDR FLAGS),
3719where ADDR is the layer 3 address, BCAST is the layer 3 broadcast address, 3719where ADDR is the layer 3 address, BCAST is the layer 3 broadcast address,
3720NETMASK is the layer 3 network mask, HWADDR is the layer 2 addres, and 3720NETMASK is the layer 3 network mask, HWADDR is the layer 2 address, and
3721FLAGS is the current flags of the interface. */) 3721FLAGS is the current flags of the interface. */)
3722 (Lisp_Object ifname) 3722 (Lisp_Object ifname)
3723{ 3723{
@@ -4630,26 +4630,29 @@ wait_reading_process_output (int time_limit, int microsecs, int read_kbd,
4630 the gnutls library -- 2.12.14 has been confirmed 4630 the gnutls library -- 2.12.14 has been confirmed
4631 to need it. See 4631 to need it. See
4632 http://comments.gmane.org/gmane.emacs.devel/145074 */ 4632 http://comments.gmane.org/gmane.emacs.devel/145074 */
4633 struct Lisp_Process *proc;
4634 for (channel = 0; channel < MAXDESC; ++channel) 4633 for (channel = 0; channel < MAXDESC; ++channel)
4635 { 4634 if (! NILP (chan_process[channel]))
4636 if (! NILP (chan_process[channel]) && 4635 {
4637 (proc = XPROCESS (chan_process[channel])) != NULL && 4636 struct Lisp_Process *p =
4638 proc->gnutls_p && 4637 XPROCESS (chan_process[channel]);
4639 proc->infd && 4638 if (p && p->gnutls_p && p->infd
4640 emacs_gnutls_record_check_pending (proc->gnutls_state) > 0) 4639 && ((emacs_gnutls_record_check_pending
4641 { 4640 (p->gnutls_state))
4642 nfds++; 4641 > 0))
4643 FD_SET (proc->infd, &Available); 4642 {
4644 } 4643 nfds++;
4645 } 4644 FD_SET (p->infd, &Available);
4645 }
4646 }
4646 } 4647 }
4647 else 4648 else
4648 { 4649 {
4649 /* Check this specific channel. */ 4650 /* Check this specific channel. */
4650 if (wait_proc->gnutls_p && /* Check for valid process. */ 4651 if (wait_proc->gnutls_p /* Check for valid process. */
4651 /* Do we have pending data? */ 4652 /* Do we have pending data? */
4652 emacs_gnutls_record_check_pending (wait_proc->gnutls_state) > 0) 4653 && ((emacs_gnutls_record_check_pending
4654 (wait_proc->gnutls_state))
4655 > 0))
4653 { 4656 {
4654 nfds = 1; 4657 nfds = 1;
4655 /* Set to Available. */ 4658 /* Set to Available. */
diff --git a/src/s/ms-w32.h b/src/s/ms-w32.h
index fb0882860d1..cc19765aba6 100644
--- a/src/s/ms-w32.h
+++ b/src/s/ms-w32.h
@@ -267,6 +267,8 @@ struct sigaction {
267#define getpid _getpid 267#define getpid _getpid
268#ifdef _MSC_VER 268#ifdef _MSC_VER
269typedef int pid_t; 269typedef int pid_t;
270#define snprintf _snprintf
271#define strtoll _strtoi64
270#endif 272#endif
271#define isatty _isatty 273#define isatty _isatty
272#define logb _logb 274#define logb _logb
@@ -275,15 +277,17 @@ typedef int pid_t;
275#define popen _popen 277#define popen _popen
276#define pclose _pclose 278#define pclose _pclose
277#define umask _umask 279#define umask _umask
280#ifndef _MSC_VER
278#define utimbuf _utimbuf 281#define utimbuf _utimbuf
282#endif
279#define strdup _strdup 283#define strdup _strdup
280#define strupr _strupr 284#define strupr _strupr
281#define strnicmp _strnicmp 285#define strnicmp _strnicmp
282#define stricmp _stricmp 286#define stricmp _stricmp
283#define tzset _tzset 287#define tzset _tzset
284 288
285#if !defined (_MSC_VER) || (_MSC_VER < 1400)
286#define tzname _tzname 289#define tzname _tzname
290#if !defined (_MSC_VER) || (_MSC_VER < 1400)
287#undef utime 291#undef utime
288#define utime _utime 292#define utime _utime
289#endif 293#endif
@@ -335,7 +339,7 @@ extern char *get_emacs_configuration_options (void);
335#define _WINSOCK_H 339#define _WINSOCK_H
336 340
337/* Defines size_t and alloca (). */ 341/* Defines size_t and alloca (). */
338#if (defined(_MSC_VER) && defined(emacs)) || defined(USE_CRT_DLL) 342#ifdef emacs
339#define malloc e_malloc 343#define malloc e_malloc
340#define free e_free 344#define free e_free
341#define realloc e_realloc 345#define realloc e_realloc
diff --git a/src/search.c b/src/search.c
index a6a0fddb137..811ac74e194 100644
--- a/src/search.c
+++ b/src/search.c
@@ -83,11 +83,10 @@ static struct re_registers search_regs;
83 Qnil if no searching has been done yet. */ 83 Qnil if no searching has been done yet. */
84static Lisp_Object last_thing_searched; 84static Lisp_Object last_thing_searched;
85 85
86/* error condition signaled when regexp compile_pattern fails */ 86/* Error condition signaled when regexp compile_pattern fails. */
87
88static Lisp_Object Qinvalid_regexp; 87static Lisp_Object Qinvalid_regexp;
89 88
90/* Error condition used for failing searches */ 89/* Error condition used for failing searches. */
91static Lisp_Object Qsearch_failed; 90static Lisp_Object Qsearch_failed;
92 91
93static void set_search_regs (EMACS_INT, EMACS_INT); 92static void set_search_regs (EMACS_INT, EMACS_INT);
@@ -2078,13 +2077,16 @@ set_search_regs (EMACS_INT beg_byte, EMACS_INT nbytes)
2078 XSETBUFFER (last_thing_searched, current_buffer); 2077 XSETBUFFER (last_thing_searched, current_buffer);
2079} 2078}
2080 2079
2081/* Given STRING, a string of words separated by word delimiters, 2080DEFUN ("word-search-regexp", Fword_search_regexp, Sword_search_regexp, 1, 2, 0,
2082 compute a regexp that matches those exact words separated by 2081 doc: /* Return a regexp which matches words, ignoring punctuation.
2083 arbitrary punctuation. If LAX is nonzero, the end of the string 2082Given STRING, a string of words separated by word delimiters,
2084 need not match a word boundary unless it ends in whitespace. */ 2083compute a regexp that matches those exact words separated by
2085 2084arbitrary punctuation. If LAX is non-nil, the end of the string
2086static Lisp_Object 2085need not match a word boundary unless it ends in whitespace.
2087wordify (Lisp_Object string, int lax) 2086
2087Used in `word-search-forward', `word-search-backward',
2088`word-search-forward-lax', `word-search-backward-lax'. */)
2089 (Lisp_Object string, Lisp_Object lax)
2088{ 2090{
2089 register unsigned char *o; 2091 register unsigned char *o;
2090 register EMACS_INT i, i_byte, len, punct_count = 0, word_count = 0; 2092 register EMACS_INT i, i_byte, len, punct_count = 0, word_count = 0;
@@ -2125,7 +2127,7 @@ wordify (Lisp_Object string, int lax)
2125 } 2127 }
2126 2128
2127 adjust = - punct_count + 5 * (word_count - 1) 2129 adjust = - punct_count + 5 * (word_count - 1)
2128 + ((lax && !whitespace_at_end) ? 2 : 4); 2130 + ((!NILP (lax) && !whitespace_at_end) ? 2 : 4);
2129 if (STRING_MULTIBYTE (string)) 2131 if (STRING_MULTIBYTE (string))
2130 val = make_uninit_multibyte_string (len + adjust, 2132 val = make_uninit_multibyte_string (len + adjust,
2131 SBYTES (string) 2133 SBYTES (string)
@@ -2162,7 +2164,7 @@ wordify (Lisp_Object string, int lax)
2162 prev_c = c; 2164 prev_c = c;
2163 } 2165 }
2164 2166
2165 if (!lax || whitespace_at_end) 2167 if (NILP (lax) || whitespace_at_end)
2166 { 2168 {
2167 *o++ = '\\'; 2169 *o++ = '\\';
2168 *o++ = 'b'; 2170 *o++ = 'b';
@@ -2217,10 +2219,14 @@ An optional second argument bounds the search; it is a buffer position.
2217The match found must not extend before that position. 2219The match found must not extend before that position.
2218Optional third argument, if t, means if fail just return nil (no error). 2220Optional third argument, if t, means if fail just return nil (no error).
2219 If not nil and not t, move to limit of search and return nil. 2221 If not nil and not t, move to limit of search and return nil.
2220Optional fourth argument is repeat count--search for successive occurrences. */) 2222Optional fourth argument is repeat count--search for successive occurrences.
2223
2224Relies on the function `word-search-regexp' to convert a sequence
2225of words in STRING to a regexp used to search words without regard
2226to punctuation. */)
2221 (Lisp_Object string, Lisp_Object bound, Lisp_Object noerror, Lisp_Object count) 2227 (Lisp_Object string, Lisp_Object bound, Lisp_Object noerror, Lisp_Object count)
2222{ 2228{
2223 return search_command (wordify (string, 0), bound, noerror, count, -1, 1, 0); 2229 return search_command (Fword_search_regexp (string, Qnil), bound, noerror, count, -1, 1, 0);
2224} 2230}
2225 2231
2226DEFUN ("word-search-forward", Fword_search_forward, Sword_search_forward, 1, 4, 2232DEFUN ("word-search-forward", Fword_search_forward, Sword_search_forward, 1, 4,
@@ -2231,10 +2237,14 @@ An optional second argument bounds the search; it is a buffer position.
2231The match found must not extend after that position. 2237The match found must not extend after that position.
2232Optional third argument, if t, means if fail just return nil (no error). 2238Optional third argument, if t, means if fail just return nil (no error).
2233 If not nil and not t, move to limit of search and return nil. 2239 If not nil and not t, move to limit of search and return nil.
2234Optional fourth argument is repeat count--search for successive occurrences. */) 2240Optional fourth argument is repeat count--search for successive occurrences.
2241
2242Relies on the function `word-search-regexp' to convert a sequence
2243of words in STRING to a regexp used to search words without regard
2244to punctuation. */)
2235 (Lisp_Object string, Lisp_Object bound, Lisp_Object noerror, Lisp_Object count) 2245 (Lisp_Object string, Lisp_Object bound, Lisp_Object noerror, Lisp_Object count)
2236{ 2246{
2237 return search_command (wordify (string, 0), bound, noerror, count, 1, 1, 0); 2247 return search_command (Fword_search_regexp (string, Qnil), bound, noerror, count, 1, 1, 0);
2238} 2248}
2239 2249
2240DEFUN ("word-search-backward-lax", Fword_search_backward_lax, Sword_search_backward_lax, 1, 4, 2250DEFUN ("word-search-backward-lax", Fword_search_backward_lax, Sword_search_backward_lax, 1, 4,
@@ -2249,10 +2259,14 @@ An optional second argument bounds the search; it is a buffer position.
2249The match found must not extend before that position. 2259The match found must not extend before that position.
2250Optional third argument, if t, means if fail just return nil (no error). 2260Optional third argument, if t, means if fail just return nil (no error).
2251 If not nil and not t, move to limit of search and return nil. 2261 If not nil and not t, move to limit of search and return nil.
2252Optional fourth argument is repeat count--search for successive occurrences. */) 2262Optional fourth argument is repeat count--search for successive occurrences.
2263
2264Relies on the function `word-search-regexp' to convert a sequence
2265of words in STRING to a regexp used to search words without regard
2266to punctuation. */)
2253 (Lisp_Object string, Lisp_Object bound, Lisp_Object noerror, Lisp_Object count) 2267 (Lisp_Object string, Lisp_Object bound, Lisp_Object noerror, Lisp_Object count)
2254{ 2268{
2255 return search_command (wordify (string, 1), bound, noerror, count, -1, 1, 0); 2269 return search_command (Fword_search_regexp (string, Qt), bound, noerror, count, -1, 1, 0);
2256} 2270}
2257 2271
2258DEFUN ("word-search-forward-lax", Fword_search_forward_lax, Sword_search_forward_lax, 1, 4, 2272DEFUN ("word-search-forward-lax", Fword_search_forward_lax, Sword_search_forward_lax, 1, 4,
@@ -2267,10 +2281,14 @@ An optional second argument bounds the search; it is a buffer position.
2267The match found must not extend after that position. 2281The match found must not extend after that position.
2268Optional third argument, if t, means if fail just return nil (no error). 2282Optional third argument, if t, means if fail just return nil (no error).
2269 If not nil and not t, move to limit of search and return nil. 2283 If not nil and not t, move to limit of search and return nil.
2270Optional fourth argument is repeat count--search for successive occurrences. */) 2284Optional fourth argument is repeat count--search for successive occurrences.
2285
2286Relies on the function `word-search-regexp' to convert a sequence
2287of words in STRING to a regexp used to search words without regard
2288to punctuation. */)
2271 (Lisp_Object string, Lisp_Object bound, Lisp_Object noerror, Lisp_Object count) 2289 (Lisp_Object string, Lisp_Object bound, Lisp_Object noerror, Lisp_Object count)
2272{ 2290{
2273 return search_command (wordify (string, 1), bound, noerror, count, 1, 1, 0); 2291 return search_command (Fword_search_regexp (string, Qt), bound, noerror, count, 1, 1, 0);
2274} 2292}
2275 2293
2276DEFUN ("re-search-backward", Fre_search_backward, Sre_search_backward, 1, 4, 2294DEFUN ("re-search-backward", Fre_search_backward, Sre_search_backward, 1, 4,
@@ -3132,7 +3150,7 @@ record_unwind_save_match_data (void)
3132 Fmatch_data (Qnil, Qnil, Qnil)); 3150 Fmatch_data (Qnil, Qnil, Qnil));
3133} 3151}
3134 3152
3135/* Quote a string to inactivate reg-expr chars */ 3153/* Quote a string to deactivate reg-expr chars */
3136 3154
3137DEFUN ("regexp-quote", Fregexp_quote, Sregexp_quote, 1, 1, 0, 3155DEFUN ("regexp-quote", Fregexp_quote, Sregexp_quote, 1, 1, 0,
3138 doc: /* Return a regexp string which matches exactly STRING and nothing else. */) 3156 doc: /* Return a regexp string which matches exactly STRING and nothing else. */)
@@ -3229,6 +3247,7 @@ is to bind it with `let' around a small expression. */);
3229 defsubr (&Sposix_string_match); 3247 defsubr (&Sposix_string_match);
3230 defsubr (&Ssearch_forward); 3248 defsubr (&Ssearch_forward);
3231 defsubr (&Ssearch_backward); 3249 defsubr (&Ssearch_backward);
3250 defsubr (&Sword_search_regexp);
3232 defsubr (&Sword_search_forward); 3251 defsubr (&Sword_search_forward);
3233 defsubr (&Sword_search_backward); 3252 defsubr (&Sword_search_backward);
3234 defsubr (&Sword_search_forward_lax); 3253 defsubr (&Sword_search_forward_lax);
diff --git a/src/term.c b/src/term.c
index 4a671d048c4..ae505f020f2 100644
--- a/src/term.c
+++ b/src/term.c
@@ -3236,7 +3236,7 @@ use the Bourne shell command `TERM=... export TERM' (C-shell:\n\
3236 MultiLeft (tty) = tgetstr ("LE", address); 3236 MultiLeft (tty) = tgetstr ("LE", address);
3237 MultiRight (tty) = tgetstr ("RI", address); 3237 MultiRight (tty) = tgetstr ("RI", address);
3238 3238
3239 /* SVr4/ANSI color suppert. If "op" isn't available, don't support 3239 /* SVr4/ANSI color support. If "op" isn't available, don't support
3240 color because we can't switch back to the default foreground and 3240 color because we can't switch back to the default foreground and
3241 background. */ 3241 background. */
3242 tty->TS_orig_pair = tgetstr ("op", address); 3242 tty->TS_orig_pair = tgetstr ("op", address);
diff --git a/src/w32fns.c b/src/w32fns.c
index 434861320a5..7a17c108d4d 100644
--- a/src/w32fns.c
+++ b/src/w32fns.c
@@ -3711,7 +3711,7 @@ w32_wnd_proc (HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam)
3711 if (w32_system_caret_hwnd == NULL) 3711 if (w32_system_caret_hwnd == NULL)
3712 { 3712 {
3713 /* Use the default caret width, and avoid changing it 3713 /* Use the default caret width, and avoid changing it
3714 unneccesarily, as it confuses screen reader software. */ 3714 unnecessarily, as it confuses screen reader software. */
3715 w32_system_caret_hwnd = hwnd; 3715 w32_system_caret_hwnd = hwnd;
3716 CreateCaret (hwnd, NULL, 0, 3716 CreateCaret (hwnd, NULL, 0,
3717 w32_system_caret_height); 3717 w32_system_caret_height);
@@ -5011,7 +5011,8 @@ no value of TYPE (always string in the MS Windows case). */)
5011 cursor. Duplicated from xdisp.c, but cannot use the version there 5011 cursor. Duplicated from xdisp.c, but cannot use the version there
5012 due to lack of atimers on w32. */ 5012 due to lack of atimers on w32. */
5013#define DEFAULT_HOURGLASS_DELAY 1 5013#define DEFAULT_HOURGLASS_DELAY 1
5014/* Return non-zero if houglass timer has been started or hourglass is shown. */ 5014/* Return non-zero if hourglass timer has been started or hourglass is
5015 shown. */
5015/* PENDING: if W32 can use atimers (atimer.[hc]) then the common impl in 5016/* PENDING: if W32 can use atimers (atimer.[hc]) then the common impl in
5016 xdisp.c could be used. */ 5017 xdisp.c could be used. */
5017 5018
diff --git a/src/w32term.h b/src/w32term.h
index 02392133837..6c73daba601 100644
--- a/src/w32term.h
+++ b/src/w32term.h
@@ -209,7 +209,7 @@ extern int x_display_pixel_width (struct w32_display_info *);
209 the information that is specific to W32 windows. */ 209 the information that is specific to W32 windows. */
210 210
211/* Put some things in x_output for compatibility. 211/* Put some things in x_output for compatibility.
212 NTEMACS_TODO: Move all common things here to eliminate unneccesary 212 NTEMACS_TODO: Move all common things here to eliminate unnecessary
213 diffs between X and w32 code. */ 213 diffs between X and w32 code. */
214struct x_output 214struct x_output
215{ 215{
diff --git a/src/widget.c b/src/widget.c
index 0582718948d..96bfd4787e9 100644
--- a/src/widget.c
+++ b/src/widget.c
@@ -476,6 +476,9 @@ update_wm_hints (EmacsFrame ew)
476 int base_height; 476 int base_height;
477 int min_rows = 0, min_cols = 0; 477 int min_rows = 0, min_cols = 0;
478 478
479 /* This happens when the frame is just created. */
480 if (! wmshell) return;
481
479#if 0 482#if 0
480 check_frame_size (ew->emacs_frame.frame, &min_rows, &min_cols); 483 check_frame_size (ew->emacs_frame.frame, &min_rows, &min_cols);
481#endif 484#endif
@@ -506,6 +509,14 @@ update_wm_hints (EmacsFrame ew)
506 NULL); 509 NULL);
507} 510}
508 511
512void
513widget_update_wm_size_hints (Widget widget)
514{
515 EmacsFrame ew = (EmacsFrame)widget;
516 update_wm_hints (ew);
517}
518
519
509#if 0 520#if 0
510 521
511static void 522static void
@@ -808,7 +819,7 @@ EmacsFrameQueryGeometry (Widget widget, XtWidgetGeometry *request, XtWidgetGeome
808 return result->request_mode ? XtGeometryAlmost : XtGeometryYes; 819 return result->request_mode ? XtGeometryAlmost : XtGeometryYes;
809} 820}
810 821
811/* Special entrypoints */ 822/* Special entry points */
812void 823void
813EmacsFrameSetCharSize (Widget widget, int columns, int rows) 824EmacsFrameSetCharSize (Widget widget, int columns, int rows)
814{ 825{
diff --git a/src/widget.h b/src/widget.h
index f64f188e158..11041d54ad0 100644
--- a/src/widget.h
+++ b/src/widget.h
@@ -92,9 +92,9 @@ extern WidgetClass emacsFrameClass;
92 92
93extern struct _DisplayContext* display_context; 93extern struct _DisplayContext* display_context;
94 94
95/* Special entrypoints */ 95/* Special entry points */
96void EmacsFrameSetCharSize (Widget, int, int); 96void EmacsFrameSetCharSize (Widget, int, int);
97void widget_store_internal_border (Widget widget); 97void widget_store_internal_border (Widget widget);
98void widget_update_wm_size_hints (Widget widget);
98 99
99#endif /* _EmacsFrame_h */ 100#endif /* _EmacsFrame_h */
100
diff --git a/src/window.c b/src/window.c
index 728e811f304..86fcca25f2e 100644
--- a/src/window.c
+++ b/src/window.c
@@ -1054,6 +1054,7 @@ window_relative_x_coord (struct window *w, enum window_part part, int x)
1054DEFUN ("coordinates-in-window-p", Fcoordinates_in_window_p, 1054DEFUN ("coordinates-in-window-p", Fcoordinates_in_window_p,
1055 Scoordinates_in_window_p, 2, 2, 0, 1055 Scoordinates_in_window_p, 2, 2, 0,
1056 doc: /* Return non-nil if COORDINATES are in WINDOW. 1056 doc: /* Return non-nil if COORDINATES are in WINDOW.
1057WINDOW must be a live window.
1057COORDINATES is a cons of the form (X . Y), X and Y being distances 1058COORDINATES is a cons of the form (X . Y), X and Y being distances
1058measured in characters from the upper-left corner of the frame. 1059measured in characters from the upper-left corner of the frame.
1059\(0 . 0) denotes the character in the upper left corner of the 1060\(0 . 0) denotes the character in the upper left corner of the
@@ -1075,7 +1076,7 @@ If they are in the windows's left or right marginal areas, `left-margin'\n\
1075 int x, y; 1076 int x, y;
1076 Lisp_Object lx, ly; 1077 Lisp_Object lx, ly;
1077 1078
1078 CHECK_WINDOW (window); 1079 CHECK_LIVE_WINDOW (window);
1079 w = XWINDOW (window); 1080 w = XWINDOW (window);
1080 f = XFRAME (w->frame); 1081 f = XFRAME (w->frame);
1081 CHECK_CONS (coordinates); 1082 CHECK_CONS (coordinates);
@@ -3089,7 +3090,7 @@ This function runs `window-scroll-functions' before running
3089 error ("Window is dedicated to `%s'", SDATA (BVAR (XBUFFER (tem), name))); 3090 error ("Window is dedicated to `%s'", SDATA (BVAR (XBUFFER (tem), name)));
3090 else 3091 else
3091 /* WINDOW is weakly dedicated to its buffer, reset 3092 /* WINDOW is weakly dedicated to its buffer, reset
3092 dedicatedness. */ 3093 dedication. */
3093 w->dedicated = Qnil; 3094 w->dedicated = Qnil;
3094 3095
3095 call1 (Qrecord_window_buffer, window); 3096 call1 (Qrecord_window_buffer, window);
@@ -6303,7 +6304,7 @@ freeze_window_starts (struct frame *f, int freeze_p)
6303 ignore_positions non-zero means ignore non-matching scroll positions 6304 ignore_positions non-zero means ignore non-matching scroll positions
6304 and the like. 6305 and the like.
6305 6306
6306 This ignores a couple of things like the dedicatedness status of 6307 This ignores a couple of things like the dedication status of
6307 window, combination_limit and the like. This might have to be 6308 window, combination_limit and the like. This might have to be
6308 fixed. */ 6309 fixed. */
6309 6310
diff --git a/src/xdisp.c b/src/xdisp.c
index 7c415e485b5..530373a4436 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -2851,8 +2851,14 @@ start_display (struct it *it, struct window *w, struct text_pos pos)
2851 || (new_x == it->last_visible_x 2851 || (new_x == it->last_visible_x
2852 && FRAME_WINDOW_P (it->f)))) 2852 && FRAME_WINDOW_P (it->f))))
2853 { 2853 {
2854 if (it->current.dpvec_index >= 0 2854 if ((it->current.dpvec_index >= 0
2855 || it->current.overlay_string_index >= 0) 2855 || it->current.overlay_string_index >= 0)
2856 /* If we are on a newline from a display vector or
2857 overlay string, then we are already at the end of
2858 a screen line; no need to go to the next line in
2859 that case, as this line is not really continued.
2860 (If we do go to the next line, C-e will not DTRT.) */
2861 && it->c != '\n')
2856 { 2862 {
2857 set_iterator_to_next (it, 1); 2863 set_iterator_to_next (it, 1);
2858 move_it_in_display_line_to (it, -1, -1, 0); 2864 move_it_in_display_line_to (it, -1, -1, 0);
@@ -3171,13 +3177,11 @@ compute_stop_pos (struct it *it)
3171 Lisp_Object object, limit, position; 3177 Lisp_Object object, limit, position;
3172 EMACS_INT charpos, bytepos; 3178 EMACS_INT charpos, bytepos;
3173 3179
3174 /* If nowhere else, stop at the end. */
3175 it->stop_charpos = it->end_charpos;
3176
3177 if (STRINGP (it->string)) 3180 if (STRINGP (it->string))
3178 { 3181 {
3179 /* Strings are usually short, so don't limit the search for 3182 /* Strings are usually short, so don't limit the search for
3180 properties. */ 3183 properties. */
3184 it->stop_charpos = it->end_charpos;
3181 object = it->string; 3185 object = it->string;
3182 limit = Qnil; 3186 limit = Qnil;
3183 charpos = IT_STRING_CHARPOS (*it); 3187 charpos = IT_STRING_CHARPOS (*it);
@@ -3187,6 +3191,12 @@ compute_stop_pos (struct it *it)
3187 { 3191 {
3188 EMACS_INT pos; 3192 EMACS_INT pos;
3189 3193
3194 /* If end_charpos is out of range for some reason, such as a
3195 misbehaving display function, rationalize it (Bug#5984). */
3196 if (it->end_charpos > ZV)
3197 it->end_charpos = ZV;
3198 it->stop_charpos = it->end_charpos;
3199
3190 /* If next overlay change is in front of the current stop pos 3200 /* If next overlay change is in front of the current stop pos
3191 (which is IT->end_charpos), stop there. Note: value of 3201 (which is IT->end_charpos), stop there. Note: value of
3192 next_overlay_change is point-max if no overlay change 3202 next_overlay_change is point-max if no overlay change
@@ -4088,26 +4098,37 @@ handle_invisible_prop (struct it *it)
4088 if (it->bidi_p && newpos < ZV) 4098 if (it->bidi_p && newpos < ZV)
4089 { 4099 {
4090 EMACS_INT bpos = CHAR_TO_BYTE (newpos); 4100 EMACS_INT bpos = CHAR_TO_BYTE (newpos);
4091 4101 int on_newline = FETCH_BYTE (bpos) == '\n';
4092 if (FETCH_BYTE (bpos) == '\n' 4102 int after_newline =
4093 || (newpos > BEGV && FETCH_BYTE (bpos - 1) == '\n')) 4103 newpos <= BEGV || FETCH_BYTE (bpos - 1) == '\n';
4104
4105 /* If the invisible text ends on a newline or on a
4106 character after a newline, we can avoid the costly,
4107 character by character, bidi iteration to NEWPOS, and
4108 instead simply reseat the iterator there. That's
4109 because all bidi reordering information is tossed at
4110 the newline. This is a big win for modes that hide
4111 complete lines, like Outline, Org, etc. */
4112 if (on_newline || after_newline)
4094 { 4113 {
4095 /* If the invisible text ends on a newline or the
4096 character after a newline, we can avoid the
4097 costly, character by character, bidi iteration to
4098 newpos, and instead simply reseat the iterator
4099 there. That's because all bidi reordering
4100 information is tossed at the newline. This is a
4101 big win for modes that hide complete lines, like
4102 Outline, Org, etc. (Implementation note: the
4103 call to reseat_1 is necessary, because it signals
4104 to the bidi iterator that it needs to reinit its
4105 internal information when the next element for
4106 display is requested. */
4107 struct text_pos tpos; 4114 struct text_pos tpos;
4115 bidi_dir_t pdir = it->bidi_it.paragraph_dir;
4108 4116
4109 SET_TEXT_POS (tpos, newpos, bpos); 4117 SET_TEXT_POS (tpos, newpos, bpos);
4110 reseat_1 (it, tpos, 0); 4118 reseat_1 (it, tpos, 0);
4119 /* If we reseat on a newline, we need to prep the
4120 bidi iterator for advancing to the next character
4121 after the newline, keeping the current paragraph
4122 direction (so that PRODUCE_GLYPHS does TRT wrt
4123 prepending/appending glyphs to a glyph row). */
4124 if (on_newline)
4125 {
4126 it->bidi_it.first_elt = 0;
4127 it->bidi_it.paragraph_dir = pdir;
4128 it->bidi_it.ch = '\n';
4129 it->bidi_it.nchars = 1;
4130 it->bidi_it.ch_len = 1;
4131 }
4111 } 4132 }
4112 else /* Must use the slow method. */ 4133 else /* Must use the slow method. */
4113 { 4134 {
@@ -4116,11 +4137,11 @@ handle_invisible_prop (struct it *it)
4116 non-base embedding level. Therefore, we need to 4137 non-base embedding level. Therefore, we need to
4117 skip invisible text using the bidi iterator, 4138 skip invisible text using the bidi iterator,
4118 starting at IT's current position, until we find 4139 starting at IT's current position, until we find
4119 ourselves outside the invisible text. Skipping 4140 ourselves outside of the invisible text.
4120 invisible text _after_ bidi iteration avoids 4141 Skipping invisible text _after_ bidi iteration
4121 affecting the visual order of the displayed text 4142 avoids affecting the visual order of the
4122 when invisible properties are added or 4143 displayed text when invisible properties are
4123 removed. */ 4144 added or removed. */
4124 if (it->bidi_it.first_elt && it->bidi_it.charpos < ZV) 4145 if (it->bidi_it.first_elt && it->bidi_it.charpos < ZV)
4125 { 4146 {
4126 /* If we were `reseat'ed to a new paragraph, 4147 /* If we were `reseat'ed to a new paragraph,
@@ -15614,8 +15635,8 @@ redisplay_window (Lisp_Object window, int just_this_one_p)
15614 ? min (scroll_margin, WINDOW_TOTAL_LINES (w) / 4) 15635 ? min (scroll_margin, WINDOW_TOTAL_LINES (w) / 4)
15615 : 0; 15636 : 0;
15616 EMACS_INT margin_pos = CHARPOS (startp); 15637 EMACS_INT margin_pos = CHARPOS (startp);
15617 int scrolling_up;
15618 Lisp_Object aggressive; 15638 Lisp_Object aggressive;
15639 int scrolling_up;
15619 15640
15620 /* If there is a scroll margin at the top of the window, find 15641 /* If there is a scroll margin at the top of the window, find
15621 its character position. */ 15642 its character position. */
@@ -15657,7 +15678,7 @@ redisplay_window (Lisp_Object window, int just_this_one_p)
15657 pt_offset = float_amount * WINDOW_BOX_TEXT_HEIGHT (w); 15678 pt_offset = float_amount * WINDOW_BOX_TEXT_HEIGHT (w);
15658 if (pt_offset == 0 && float_amount > 0) 15679 if (pt_offset == 0 && float_amount > 0)
15659 pt_offset = 1; 15680 pt_offset = 1;
15660 if (pt_offset) 15681 if (pt_offset && margin > 0)
15661 margin -= 1; 15682 margin -= 1;
15662 } 15683 }
15663 /* Compute how much to move the window start backward from 15684 /* Compute how much to move the window start backward from
@@ -15777,6 +15798,25 @@ redisplay_window (Lisp_Object window, int just_this_one_p)
15777 goto recenter; 15798 goto recenter;
15778 } 15799 }
15779 15800
15801 /* Users who set scroll-conservatively to a large number want
15802 point just above/below the scroll margin. If we ended up
15803 with point's row partially visible, move the window start to
15804 make that row fully visible and out of the margin. */
15805 if (scroll_conservatively > SCROLL_LIMIT)
15806 {
15807 int margin =
15808 scroll_margin > 0
15809 ? min (scroll_margin, WINDOW_TOTAL_LINES (w) / 4)
15810 : 0;
15811 int move_down = w->cursor.vpos >= WINDOW_TOTAL_LINES (w) / 2;
15812
15813 move_it_by_lines (&it, move_down ? margin + 1 : -(margin + 1));
15814 clear_glyph_matrix (w->desired_matrix);
15815 if (1 == try_window (window, it.current.pos,
15816 TRY_WINDOW_CHECK_MARGINS))
15817 goto done;
15818 }
15819
15780 /* If centering point failed to make the whole line visible, 15820 /* If centering point failed to make the whole line visible,
15781 put point at the top instead. That has to make the whole line 15821 put point at the top instead. That has to make the whole line
15782 visible, if it can be done. */ 15822 visible, if it can be done. */
@@ -28871,7 +28911,8 @@ init_xdisp (void)
28871 28911
28872/* Platform-independent portion of hourglass implementation. */ 28912/* Platform-independent portion of hourglass implementation. */
28873 28913
28874/* Return non-zero if houglass timer has been started or hourglass is shown. */ 28914/* Return non-zero if hourglass timer has been started or hourglass is
28915 shown. */
28875int 28916int
28876hourglass_started (void) 28917hourglass_started (void)
28877{ 28918{
diff --git a/src/xfaces.c b/src/xfaces.c
index 849ad6bbdf4..7e3ce4103d9 100644
--- a/src/xfaces.c
+++ b/src/xfaces.c
@@ -66,7 +66,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
66 attributes (1st thru 5th) are updated from the spec. 66 attributes (1st thru 5th) are updated from the spec.
67 67
68 On the other hand, if one of the other font-related attributes are 68 On the other hand, if one of the other font-related attributes are
69 specified, the correspoinding specs in this attribute is set to nil. 69 specified, the corresponding specs in this attribute is set to nil.
70 70
71 15. A face name or list of face names from which to inherit attributes. 71 15. A face name or list of face names from which to inherit attributes.
72 72
@@ -1223,7 +1223,7 @@ face_color_gray_p (struct frame *f, const char *color_name)
1223 int gray_p; 1223 int gray_p;
1224 1224
1225 if (defined_color (f, color_name, &color, 0)) 1225 if (defined_color (f, color_name, &color, 0))
1226 gray_p = (/* Any color sufficiently close to black counts as grey. */ 1226 gray_p = (/* Any color sufficiently close to black counts as gray. */
1227 (color.red < 5000 && color.green < 5000 && color.blue < 5000) 1227 (color.red < 5000 && color.green < 5000 && color.blue < 5000)
1228 || 1228 ||
1229 ((eabs (color.red - color.green) 1229 ((eabs (color.red - color.green)
diff --git a/src/xfns.c b/src/xfns.c
index c68149cce11..323b272e9f0 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -3166,7 +3166,7 @@ This function is an internal primitive--use `make-frame' instead. */)
3166 to get the color reference counts right, so initialize them! */ 3166 to get the color reference counts right, so initialize them! */
3167 { 3167 {
3168 Lisp_Object black; 3168 Lisp_Object black;
3169 struct gcpro inner_gcpro1; 3169 struct gcpro gcpro1;
3170 3170
3171 /* Function x_decode_color can signal an error. Make 3171 /* Function x_decode_color can signal an error. Make
3172 sure to initialize color slots so that we won't try 3172 sure to initialize color slots so that we won't try
@@ -3179,7 +3179,7 @@ This function is an internal primitive--use `make-frame' instead. */)
3179 f->output_data.x->mouse_pixel = -1; 3179 f->output_data.x->mouse_pixel = -1;
3180 3180
3181 black = build_string ("black"); 3181 black = build_string ("black");
3182 GCPRO1_VAR (black, inner_gcpro); 3182 GCPRO1 (black);
3183 FRAME_FOREGROUND_PIXEL (f) 3183 FRAME_FOREGROUND_PIXEL (f)
3184 = x_decode_color (f, black, BLACK_PIX_DEFAULT (f)); 3184 = x_decode_color (f, black, BLACK_PIX_DEFAULT (f));
3185 FRAME_BACKGROUND_PIXEL (f) 3185 FRAME_BACKGROUND_PIXEL (f)
@@ -3192,7 +3192,7 @@ This function is an internal primitive--use `make-frame' instead. */)
3192 = x_decode_color (f, black, BLACK_PIX_DEFAULT (f)); 3192 = x_decode_color (f, black, BLACK_PIX_DEFAULT (f));
3193 f->output_data.x->mouse_pixel 3193 f->output_data.x->mouse_pixel
3194 = x_decode_color (f, black, BLACK_PIX_DEFAULT (f)); 3194 = x_decode_color (f, black, BLACK_PIX_DEFAULT (f));
3195 UNGCPRO_VAR (inner_gcpro); 3195 UNGCPRO;
3196 } 3196 }
3197 3197
3198 /* Specify the parent under which to make this X window. */ 3198 /* Specify the parent under which to make this X window. */
@@ -4620,7 +4620,7 @@ x_create_tip_frame (struct x_display_info *dpyinfo,
4620 to get the color reference counts right, so initialize them! */ 4620 to get the color reference counts right, so initialize them! */
4621 { 4621 {
4622 Lisp_Object black; 4622 Lisp_Object black;
4623 struct gcpro inner_gcpro1; 4623 struct gcpro gcpro1;
4624 4624
4625 /* Function x_decode_color can signal an error. Make 4625 /* Function x_decode_color can signal an error. Make
4626 sure to initialize color slots so that we won't try 4626 sure to initialize color slots so that we won't try
@@ -4633,7 +4633,7 @@ x_create_tip_frame (struct x_display_info *dpyinfo,
4633 f->output_data.x->mouse_pixel = -1; 4633 f->output_data.x->mouse_pixel = -1;
4634 4634
4635 black = build_string ("black"); 4635 black = build_string ("black");
4636 GCPRO1_VAR (black, inner_gcpro); 4636 GCPRO1 (black);
4637 FRAME_FOREGROUND_PIXEL (f) 4637 FRAME_FOREGROUND_PIXEL (f)
4638 = x_decode_color (f, black, BLACK_PIX_DEFAULT (f)); 4638 = x_decode_color (f, black, BLACK_PIX_DEFAULT (f));
4639 FRAME_BACKGROUND_PIXEL (f) 4639 FRAME_BACKGROUND_PIXEL (f)
@@ -4646,7 +4646,7 @@ x_create_tip_frame (struct x_display_info *dpyinfo,
4646 = x_decode_color (f, black, BLACK_PIX_DEFAULT (f)); 4646 = x_decode_color (f, black, BLACK_PIX_DEFAULT (f));
4647 f->output_data.x->mouse_pixel 4647 f->output_data.x->mouse_pixel
4648 = x_decode_color (f, black, BLACK_PIX_DEFAULT (f)); 4648 = x_decode_color (f, black, BLACK_PIX_DEFAULT (f));
4649 UNGCPRO_VAR (inner_gcpro); 4649 UNGCPRO;
4650 } 4650 }
4651 4651
4652 /* Set the name; the functions to which we pass f expect the name to 4652 /* Set the name; the functions to which we pass f expect the name to
diff --git a/src/xterm.c b/src/xterm.c
index f750c00cea0..8171fe7738e 100644
--- a/src/xterm.c
+++ b/src/xterm.c
@@ -6123,7 +6123,8 @@ handle_one_xevent (struct x_display_info *dpyinfo, XEvent *eventptr,
6123 last_user_time = event.xproperty.time; 6123 last_user_time = event.xproperty.time;
6124 f = x_top_window_to_frame (dpyinfo, event.xproperty.window); 6124 f = x_top_window_to_frame (dpyinfo, event.xproperty.window);
6125 if (f && event.xproperty.atom == dpyinfo->Xatom_net_wm_state) 6125 if (f && event.xproperty.atom == dpyinfo->Xatom_net_wm_state)
6126 if (x_handle_net_wm_state (f, &event.xproperty) && f->iconified) 6126 if (x_handle_net_wm_state (f, &event.xproperty) && f->iconified
6127 && f->output_data.x->net_wm_state_hidden_seen)
6127 { 6128 {
6128 /* Gnome shell does not iconify us when C-z is pressed. It hides 6129 /* Gnome shell does not iconify us when C-z is pressed. It hides
6129 the frame. So if our state says we aren't hidden anymore, 6130 the frame. So if our state says we aren't hidden anymore,
@@ -6133,6 +6134,7 @@ handle_one_xevent (struct x_display_info *dpyinfo, XEvent *eventptr,
6133 f->async_visible = 1; 6134 f->async_visible = 1;
6134 f->async_iconified = 0; 6135 f->async_iconified = 0;
6135 f->output_data.x->has_been_visible = 1; 6136 f->output_data.x->has_been_visible = 1;
6137 f->output_data.x->net_wm_state_hidden_seen = 0;
6136 inev.ie.kind = DEICONIFY_EVENT; 6138 inev.ie.kind = DEICONIFY_EVENT;
6137 XSETFRAME (inev.ie.frame_or_window, f); 6139 XSETFRAME (inev.ie.frame_or_window, f);
6138 } 6140 }
@@ -8494,7 +8496,10 @@ get_current_wm_state (struct frame *f,
8494 { 8496 {
8495 Atom a = ((Atom*)tmp_data)[i]; 8497 Atom a = ((Atom*)tmp_data)[i];
8496 if (a == dpyinfo->Xatom_net_wm_state_hidden) 8498 if (a == dpyinfo->Xatom_net_wm_state_hidden)
8497 is_hidden = 1; 8499 {
8500 is_hidden = 1;
8501 f->output_data.x->net_wm_state_hidden_seen = 1;
8502 }
8498 else if (a == dpyinfo->Xatom_net_wm_state_maximized_horz) 8503 else if (a == dpyinfo->Xatom_net_wm_state_maximized_horz)
8499 { 8504 {
8500 if (*size_state == FULLSCREEN_HEIGHT) 8505 if (*size_state == FULLSCREEN_HEIGHT)
@@ -9570,6 +9575,14 @@ x_wm_set_size_hint (struct frame *f, long flags, int user_position)
9570 XSizeHints size_hints; 9575 XSizeHints size_hints;
9571 Window window = FRAME_OUTER_WINDOW (f); 9576 Window window = FRAME_OUTER_WINDOW (f);
9572 9577
9578#ifdef USE_X_TOOLKIT
9579 if (f->output_data.x->widget)
9580 {
9581 widget_update_wm_size_hints (f->output_data.x->widget);
9582 return;
9583 }
9584#endif
9585
9573 /* Setting PMaxSize caused various problems. */ 9586 /* Setting PMaxSize caused various problems. */
9574 size_hints.flags = PResizeInc | PMinSize /* | PMaxSize */; 9587 size_hints.flags = PResizeInc | PMinSize /* | PMaxSize */;
9575 9588
diff --git a/src/xterm.h b/src/xterm.h
index 1d2ce9a2d3c..4385b1a467d 100644
--- a/src/xterm.h
+++ b/src/xterm.h
@@ -632,6 +632,9 @@ struct x_output
632 x_check_expected_move. */ 632 x_check_expected_move. */
633 int left_before_move; 633 int left_before_move;
634 int top_before_move; 634 int top_before_move;
635
636 /* Non-zero if _NET_WM_STATE_HIDDEN is set for this frame. */
637 int net_wm_state_hidden_seen;
635}; 638};
636 639
637#define No_Cursor (None) 640#define No_Cursor (None)
diff --git a/test/ChangeLog b/test/ChangeLog
index 04a70737d61..964238ae45b 100644
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,3 +1,9 @@
12011-12-03 Chong Yidong <cyd@gnu.org>
2
3 * automated/compile-tests.el (compile-tests--test-regexps-data):
4 Increase column numbers by one to reflect change in how
5 compilation-message is recorded (Bug#10172).
6
12011-11-22 Glenn Morris <rgm@gnu.org> 72011-11-22 Glenn Morris <rgm@gnu.org>
2 8
3 * rmailmm.el: New file, split from lisp/mail/rmailmm.el. 9 * rmailmm.el: New file, split from lisp/mail/rmailmm.el.
diff --git a/test/automated/compile-tests.el b/test/automated/compile-tests.el
index 419cc0e9116..0203084bf38 100644
--- a/test/automated/compile-tests.el
+++ b/test/automated/compile-tests.el
@@ -41,7 +41,7 @@
41 1 nil 17 "fplot.f") 41 1 nil 17 "fplot.f")
42 ;; Ada & Mpatrol 42 ;; Ada & Mpatrol
43 ("foo.adb:61:11: [...] in call to size declared at foo.ads:11" 43 ("foo.adb:61:11: [...] in call to size declared at foo.ads:11"
44 1 10 61 "foo.adb") 44 1 11 61 "foo.adb")
45 ("foo.adb:61:11: [...] in call to size declared at foo.ads:11" 45 ("foo.adb:61:11: [...] in call to size declared at foo.ads:11"
46 52 nil 11 "foo.ads") 46 52 nil 11 "foo.ads")
47 (" 0x8008621 main+16 at error.c:17" 47 (" 0x8008621 main+16 at error.c:17"
@@ -55,7 +55,7 @@
55 ("[javac] /src/DataBaseTestCase.java:49: warning: finally clause cannot complete normally" 55 ("[javac] /src/DataBaseTestCase.java:49: warning: finally clause cannot complete normally"
56 13 nil 49 "/src/DataBaseTestCase.java") 56 13 nil 49 "/src/DataBaseTestCase.java")
57 ("[jikes] foo.java:3:5:7:9: blah blah" 57 ("[jikes] foo.java:3:5:7:9: blah blah"
58 14 (4 . 9) (3 . 7) "foo.java") 58 14 (5 . 10) (3 . 7) "foo.java")
59 ;; bash 59 ;; bash
60 ("a.sh: line 1: ls-l: command not found" 60 ("a.sh: line 1: ls-l: command not found"
61 1 nil 1 "a.sh") 61 1 nil 1 "a.sh")
@@ -70,9 +70,9 @@
70 1 nil 68 "pong.c") 70 1 nil 68 "pong.c")
71 ;; caml 71 ;; caml
72 ("File \"foobar.ml\", lines 5-8, characters 20-155: blah blah" 72 ("File \"foobar.ml\", lines 5-8, characters 20-155: blah blah"
73 1 (19 . 155) (5 . 8) "foobar.ml") 73 1 (20 . 156) (5 . 8) "foobar.ml")
74 ("File \"F:\\ocaml\\sorting.ml\", line 65, characters 2-145:\nWarning 26: unused variable equ." 74 ("File \"F:\\ocaml\\sorting.ml\", line 65, characters 2-145:\nWarning 26: unused variable equ."
75 1 (1 . 145) 65 "F:\\ocaml\\sorting.ml") 75 1 (2 . 146) 65 "F:\\ocaml\\sorting.ml")
76 ("File \"/usr/share/gdesklets/display/TargetGauge.py\", line 41, in add_children" 76 ("File \"/usr/share/gdesklets/display/TargetGauge.py\", line 41, in add_children"
77 1 nil 41 "/usr/share/gdesklets/display/TargetGauge.py") 77 1 nil 41 "/usr/share/gdesklets/display/TargetGauge.py")
78 ("File \\lib\\python\\Products\\PythonScripts\\PythonScript.py, line 302, in _exec" 78 ("File \\lib\\python\\Products\\PythonScripts\\PythonScript.py, line 302, in _exec"
@@ -83,13 +83,13 @@
83 ("\"foo.f\", line 3: Error: syntax error near end of statement" 83 ("\"foo.f\", line 3: Error: syntax error near end of statement"
84 1 nil 3 "foo.f") 84 1 nil 3 "foo.f")
85 ("\"vvouch.c\", line 19.5: 1506-046 (S) Syntax error." 85 ("\"vvouch.c\", line 19.5: 1506-046 (S) Syntax error."
86 1 4 19 "vvouch.c") 86 1 5 19 "vvouch.c")
87 ("\"foo.c\", line 32 pos 1; (E) syntax error; unexpected symbol: \"lossage\"" 87 ("\"foo.c\", line 32 pos 1; (E) syntax error; unexpected symbol: \"lossage\""
88 1 0 32 "foo.c") 88 1 1 32 "foo.c")
89 ("\"foo.adb\", line 2(11): warning: file name does not match ..." 89 ("\"foo.adb\", line 2(11): warning: file name does not match ..."
90 1 10 2 "foo.adb") 90 1 11 2 "foo.adb")
91 ("\"src/swapping.c\", line 30.34: 1506-342 (W) \"/*\" detected in comment." 91 ("\"src/swapping.c\", line 30.34: 1506-342 (W) \"/*\" detected in comment."
92 1 33 30 "src/swapping.c") 92 1 34 30 "src/swapping.c")
93 ;; cucumber 93 ;; cucumber
94 ("Scenario: undefined step # features/cucumber.feature:3" 94 ("Scenario: undefined step # features/cucumber.feature:3"
95 29 nil 3 "features/cucumber.feature") 95 29 nil 3 "features/cucumber.feature")
@@ -115,7 +115,7 @@
115 ("Warning near line 10 file arrayclash.f: Module contains no executable" 115 ("Warning near line 10 file arrayclash.f: Module contains no executable"
116 1 nil 10 "arrayclash.f") 116 1 nil 10 "arrayclash.f")
117 ("Nonportable usage near line 31 col 9 file assign.f: mixed default and explicit" 117 ("Nonportable usage near line 31 col 9 file assign.f: mixed default and explicit"
118 24 8 31 "assign.f") 118 24 9 31 "assign.f")
119 ;; iar 119 ;; iar
120 ("\"foo.c\",3 Error[32]: Error message" 120 ("\"foo.c\",3 Error[32]: Error message"
121 1 nil 3 "foo.c") 121 1 nil 3 "foo.c")
@@ -123,11 +123,11 @@
123 1 nil 3 "foo.c") 123 1 nil 3 "foo.c")
124 ;; ibm 124 ;; ibm
125 ("foo.c(2:0) : informational EDC0804: Function foo is not referenced." 125 ("foo.c(2:0) : informational EDC0804: Function foo is not referenced."
126 1 -1 2 "foo.c") 126 1 0 2 "foo.c")
127 ("foo.c(3:8) : warning EDC0833: Implicit return statement encountered." 127 ("foo.c(3:8) : warning EDC0833: Implicit return statement encountered."
128 1 7 3 "foo.c") 128 1 8 3 "foo.c")
129 ("foo.c(5:5) : error EDC0350: Syntax error." 129 ("foo.c(5:5) : error EDC0350: Syntax error."
130 1 4 5 "foo.c") 130 1 5 5 "foo.c")
131 ;; irix 131 ;; irix
132 ("ccom: Error: foo.c, line 2: syntax error" 132 ("ccom: Error: foo.c, line 2: syntax error"
133 1 nil 2 "foo.c") 133 1 nil 2 "foo.c")
@@ -163,7 +163,7 @@
163 ("In file included from /usr/include/c++/3.3/backward/warn.h:4," 163 ("In file included from /usr/include/c++/3.3/backward/warn.h:4,"
164 1 nil 4 "/usr/include/c++/3.3/backward/warn.h") 164 1 nil 4 "/usr/include/c++/3.3/backward/warn.h")
165 (" from /usr/include/c++/3.3/backward/iostream.h:31:0," 165 (" from /usr/include/c++/3.3/backward/iostream.h:31:0,"
166 1 -1 31 "/usr/include/c++/3.3/backward/iostream.h") 166 1 0 31 "/usr/include/c++/3.3/backward/iostream.h")
167 (" from test_clt.cc:1:" 167 (" from test_clt.cc:1:"
168 1 nil 1 "test_clt.cc") 168 1 nil 1 "test_clt.cc")
169 ;; gnu 169 ;; gnu
@@ -173,15 +173,15 @@
173 ("foo/bar.py:8: FutureWarning message" 1 nil 8 "foo/bar.py") 173 ("foo/bar.py:8: FutureWarning message" 1 nil 8 "foo/bar.py")
174 ("foo.py:8: RuntimeWarning message" 1 nil 8 "foo.py") 174 ("foo.py:8: RuntimeWarning message" 1 nil 8 "foo.py")
175 ("foo.c:8:I: message" 1 nil 8 "foo.c") 175 ("foo.c:8:I: message" 1 nil 8 "foo.c")
176 ("foo.c:8.23: note: message" 1 22 8 "foo.c") 176 ("foo.c:8.23: note: message" 1 23 8 "foo.c")
177 ("foo.c:8.23: info: message" 1 22 8 "foo.c") 177 ("foo.c:8.23: info: message" 1 23 8 "foo.c")
178 ("foo.c:8:23:information: message" 1 22 8 "foo.c") 178 ("foo.c:8:23:information: message" 1 23 8 "foo.c")
179 ("foo.c:8.23-45: Informational: message" 1 (22 . nil) (8 . 45) "foo.c") 179 ("foo.c:8.23-45: Informational: message" 1 (23 . nil) (8 . 45) "foo.c")
180 ("foo.c:8-23: message" 1 nil (8 . 23) "foo.c") 180 ("foo.c:8-23: message" 1 nil (8 . 23) "foo.c")
181 ("foo.c:8-45.3: message" 1 (nil . 3) (8 . 45) "foo.c") 181 ("foo.c:8-45.3: message" 1 (nil . 4) (8 . 45) "foo.c")
182 ("foo.c:8.23-9.1: message" 1 (22 . 1) (8 . 9) "foo.c") 182 ("foo.c:8.23-9.1: message" 1 (23 . 2) (8 . 9) "foo.c")
183 ("jade:dbcommon.dsl:133:17:E: missing argument for function call" 183 ("jade:dbcommon.dsl:133:17:E: missing argument for function call"
184 1 16 133 "dbcommon.dsl") 184 1 17 133 "dbcommon.dsl")
185 ("G:/cygwin/dev/build-myproj.xml:54: Compiler Adapter 'javac' can't be found." 185 ("G:/cygwin/dev/build-myproj.xml:54: Compiler Adapter 'javac' can't be found."
186 1 nil 54 "G:/cygwin/dev/build-myproj.xml") 186 1 nil 54 "G:/cygwin/dev/build-myproj.xml")
187 ("file:G:/cygwin/dev/build-myproj.xml:54: Compiler Adapter 'javac' can't be found." 187 ("file:G:/cygwin/dev/build-myproj.xml:54: Compiler Adapter 'javac' can't be found."
@@ -189,8 +189,8 @@
189 ("{standard input}:27041: Warning: end of file not at end of a line; newline inserted" 189 ("{standard input}:27041: Warning: end of file not at end of a line; newline inserted"
190 1 nil 27041 "{standard input}") 190 1 nil 27041 "{standard input}")
191 ;; lcc 191 ;; lcc
192 ("E, file.cc(35,52) Illegal operation on pointers" 1 51 35 "file.cc") 192 ("E, file.cc(35,52) Illegal operation on pointers" 1 52 35 "file.cc")
193 ("W, file.cc(36,52) blah blah" 1 51 36 "file.cc") 193 ("W, file.cc(36,52) blah blah" 1 52 36 "file.cc")
194 ;; makepp 194 ;; makepp
195 ("makepp: Scanning `/foo/bar.c'" 19 nil nil "/foo/bar.c") 195 ("makepp: Scanning `/foo/bar.c'" 19 nil nil "/foo/bar.c")
196 ("makepp: warning: bla bla `/foo/bar.c' and `/foo/bar.h'" 27 nil nil "/foo/bar.c") 196 ("makepp: warning: bla bla `/foo/bar.c' and `/foo/bar.h'" 27 nil nil "/foo/bar.c")
@@ -198,7 +198,7 @@
198 ("makepp: bla bla `/foo/bar.c' and `/foo/bar.h'" 35 nil nil "/foo/bar.h") 198 ("makepp: bla bla `/foo/bar.c' and `/foo/bar.h'" 35 nil nil "/foo/bar.h")
199 ;; maven 199 ;; maven
200 ("FooBar.java:[111,53] no interface expected here" 200 ("FooBar.java:[111,53] no interface expected here"
201 1 52 111 "FooBar.java") 201 1 53 111 "FooBar.java")
202 ;; mips-1 mips-2 202 ;; mips-1 mips-2
203 ("TrimMask (255) in solomon.c may be indistinguishable from TrimMasks (93) in solomo.c due to truncation" 203 ("TrimMask (255) in solomon.c may be indistinguishable from TrimMasks (93) in solomo.c due to truncation"
204 11 nil 255 "solomon.c") 204 11 nil 255 "solomon.c")
@@ -220,17 +220,17 @@
220 1 nil 120 "..\src\ctrl\lister.c") 220 1 nil 120 "..\src\ctrl\lister.c")
221 ;; oracle 221 ;; oracle
222 ("Semantic error at line 528, column 5, file erosacqdb.pc:" 222 ("Semantic error at line 528, column 5, file erosacqdb.pc:"
223 1 4 528 "erosacqdb.pc") 223 1 5 528 "erosacqdb.pc")
224 ("Error at line 41, column 10 in file /usr/src/sb/ODBI_BHP.hpp" 224 ("Error at line 41, column 10 in file /usr/src/sb/ODBI_BHP.hpp"
225 1 9 41 "/usr/src/sb/ODBI_BHP.hpp") 225 1 10 41 "/usr/src/sb/ODBI_BHP.hpp")
226 ("PCC-02150: error at line 49, column 27 in file /usr/src/sb/ODBI_dxfgh.pc" 226 ("PCC-02150: error at line 49, column 27 in file /usr/src/sb/ODBI_dxfgh.pc"
227 1 26 49 "/usr/src/sb/ODBI_dxfgh.pc") 227 1 27 49 "/usr/src/sb/ODBI_dxfgh.pc")
228 ("PCC-00003: invalid SQL Identifier at column name in line 12 of file /usr/src/sb/ODBI_BHP.hpp" 228 ("PCC-00003: invalid SQL Identifier at column name in line 12 of file /usr/src/sb/ODBI_BHP.hpp"
229 1 nil 12 "/usr/src/sb/ODBI_BHP.hpp") 229 1 nil 12 "/usr/src/sb/ODBI_BHP.hpp")
230 ("PCC-00004: mismatched IF/ELSE/ENDIF block at line 27 in file /usr/src/sb/ODBI_BHP.hpp" 230 ("PCC-00004: mismatched IF/ELSE/ENDIF block at line 27 in file /usr/src/sb/ODBI_BHP.hpp"
231 1 nil 27 "/usr/src/sb/ODBI_BHP.hpp") 231 1 nil 27 "/usr/src/sb/ODBI_BHP.hpp")
232 ("PCC-02151: line 21 column 40 file /usr/src/sb/ODBI_BHP.hpp:" 232 ("PCC-02151: line 21 column 40 file /usr/src/sb/ODBI_BHP.hpp:"
233 1 39 21 "/usr/src/sb/ODBI_BHP.hpp") 233 1 40 21 "/usr/src/sb/ODBI_BHP.hpp")
234 ;; perl 234 ;; perl
235 ("syntax error at automake line 922, near \"':'\"" 235 ("syntax error at automake line 922, near \"':'\""
236 14 nil 922 "automake") 236 14 nil 922 "automake")
@@ -262,9 +262,9 @@
262 1 nil 10 "examples/test-unit.rb") 262 1 nil 10 "examples/test-unit.rb")
263 ;; rxp 263 ;; rxp
264 ("Error: Mismatched end tag: expected </geroup>, got </group>\nin unnamed entity at line 71 char 8 of file:///home/reto/test/group.xml" 264 ("Error: Mismatched end tag: expected </geroup>, got </group>\nin unnamed entity at line 71 char 8 of file:///home/reto/test/group.xml"
265 1 7 71 "/home/reto/test/group.xml") 265 1 8 71 "/home/reto/test/group.xml")
266 ("Warning: Start tag for undeclared element geroup\nin unnamed entity at line 4 char 8 of file:///home/reto/test/group.xml" 266 ("Warning: Start tag for undeclared element geroup\nin unnamed entity at line 4 char 8 of file:///home/reto/test/group.xml"
267 1 7 4 "/home/reto/test/group.xml") 267 1 8 4 "/home/reto/test/group.xml")
268 ;; sparc-pascal-file sparc-pascal-line sparc-pascal-example 268 ;; sparc-pascal-file sparc-pascal-line sparc-pascal-example
269 ("Thu May 14 10:46:12 1992 mom3.p:" 269 ("Thu May 14 10:46:12 1992 mom3.p:"
270 1 nil nil "mom3.p") 270 1 nil nil "mom3.p")
@@ -274,10 +274,10 @@
274 ("cc-1070 cc: WARNING File = linkl.c, Line = 38" 274 ("cc-1070 cc: WARNING File = linkl.c, Line = 38"
275 13 nil 38 "linkl.c") 275 13 nil 38 "linkl.c")
276 ("cf90-113 f90comp: ERROR NSE, File = Hoved.f90, Line = 16, Column = 3" 276 ("cf90-113 f90comp: ERROR NSE, File = Hoved.f90, Line = 16, Column = 3"
277 18 2 16 "Hoved.f90") 277 18 3 16 "Hoved.f90")
278 ;; sun-ada 278 ;; sun-ada
279 ("/home3/xdhar/rcds_rc/main.a, line 361, char 6:syntax error: \",\" inserted" 279 ("/home3/xdhar/rcds_rc/main.a, line 361, char 6:syntax error: \",\" inserted"
280 1 5 361 "/home3/xdhar/rcds_rc/main.a") 280 1 6 361 "/home3/xdhar/rcds_rc/main.a")
281 ;; 4bsd 281 ;; 4bsd
282 ("/usr/src/foo/foo.c(8): warning: w may be used before set" 282 ("/usr/src/foo/foo.c(8): warning: w may be used before set"
283 1 nil 8 "/usr/src/foo/foo.c") 283 1 nil 8 "/usr/src/foo/foo.c")
@@ -300,7 +300,7 @@
300 1 nil 46 "t/foo.t") 300 1 nil 46 "t/foo.t")
301 ;; weblint 301 ;; weblint
302 ("index.html (13:1) Unknown element <fdjsk>" 302 ("index.html (13:1) Unknown element <fdjsk>"
303 1 0 13 "index.html")) 303 1 1 13 "index.html"))
304 "List of tests for `compilation-error-regexp-alist'. 304 "List of tests for `compilation-error-regexp-alist'.
305Each element has the form (STR POS COLUMN LINE FILENAME), where 305Each element has the form (STR POS COLUMN LINE FILENAME), where
306STR is an error string, POS is the position of the error in STR, 306STR is an error string, POS is the position of the error in STR,
diff --git a/test/cedet/cedet-utests.el b/test/cedet/cedet-utests.el
index d161ae68fcb..f7eef05dd99 100644
--- a/test/cedet/cedet-utests.el
+++ b/test/cedet/cedet-utests.el
@@ -96,7 +96,7 @@
96 "Non-nil when CEDET-utest is running all the tests.") 96 "Non-nil when CEDET-utest is running all the tests.")
97 97
98(defun cedet-utest (&optional exit-on-error) 98(defun cedet-utest (&optional exit-on-error)
99 "Run the CEDET unittests. 99 "Run the CEDET unit tests.
100EXIT-ON-ERROR causes the test suite to exit on an error, instead 100EXIT-ON-ERROR causes the test suite to exit on an error, instead
101of just logging the error." 101of just logging the error."
102 (interactive) 102 (interactive)
diff --git a/test/cedet/semantic-utest.el b/test/cedet/semantic-utest.el
index ff62040129d..12fbc37a112 100644
--- a/test/cedet/semantic-utest.el
+++ b/test/cedet/semantic-utest.el
@@ -536,7 +536,7 @@ Pre-fill the buffer with CONTENTS."
536 536
537(defun semantic-utest-generic (testname filename contents name-contents names-removed killme insertme) 537(defun semantic-utest-generic (testname filename contents name-contents names-removed killme insertme)
538 "Generic unit test according to template. 538 "Generic unit test according to template.
539Should work for languages withouth .h files, python javascript java. 539Should work for languages without .h files, python javascript java.
540TESTNAME is the name of the test. 540TESTNAME is the name of the test.
541FILENAME is the name of the file to create. 541FILENAME is the name of the file to create.
542CONTENTS is the contents of the file to test. 542CONTENTS is the contents of the file to test.
diff --git a/test/indent/octave.m b/test/indent/octave.m
index 5ce52ad7a19..4c2fa6c8435 100644
--- a/test/indent/octave.m
+++ b/test/indent/octave.m
@@ -19,7 +19,7 @@ function res = tcomp (fn)
19 pop = x(:,1:10)(:); 19 pop = x(:,1:10)(:);
20 ## Here and below, we test if the indentation aligns with a previous 20 ## Here and below, we test if the indentation aligns with a previous
21 ## fixindented line. This is important so as to make it easier for the 21 ## fixindented line. This is important so as to make it easier for the
22 ## user to verride some indentation somewhere, and also because it 22 ## user to override some indentation somewhere, and also because it
23 ## reflects the fact that the indentation decision is taken with a minimum 23 ## reflects the fact that the indentation decision is taken with a minimum
24 ## amount of work (i.e. in the present case, without having to walk back 24 ## amount of work (i.e. in the present case, without having to walk back
25 ## until the `function' line). 25 ## until the `function' line).