aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJoakim Verona2011-11-22 15:39:42 +0100
committerJoakim Verona2011-11-22 15:39:42 +0100
commit40bb789236e486a3f36eefb2840c293369ce2af3 (patch)
tree8e81d3aa5f232ec7f2c5187c683cb0998d2dc4e2
parent62318aed495a48e24ff73fe79e420dd801df3189 (diff)
parenta8e1496d750ab0f571b3412ff61aaa4da640a036 (diff)
downloademacs-40bb789236e486a3f36eefb2840c293369ce2af3.tar.gz
emacs-40bb789236e486a3f36eefb2840c293369ce2af3.zip
upstream
-rw-r--r--ChangeLog6
-rw-r--r--INSTALL6
-rw-r--r--admin/ChangeLog12
-rw-r--r--admin/README3
-rw-r--r--admin/admin.el2
-rw-r--r--admin/alloc-colors.c3
-rw-r--r--admin/charsets/cp51932.awk2
-rw-r--r--admin/charsets/mapfiles/README2
-rw-r--r--admin/charsets/mapfiles/Uni2JIS2
-rw-r--r--admin/grammars/c.by6
-rw-r--r--admin/grammars/python.wy2
-rwxr-xr-xadmin/make-emacs2
-rw-r--r--admin/notes/bzr2
-rw-r--r--admin/notes/commits2
-rw-r--r--admin/notes/multi-tty23
-rw-r--r--admin/notes/nextstep3
-rw-r--r--admin/nt/README-ftp-server23
-rw-r--r--configure.in4
-rw-r--r--doc/emacs/ChangeLog18
-rw-r--r--doc/emacs/ack.texi6
-rw-r--r--doc/emacs/building.texi2
-rw-r--r--doc/emacs/custom.texi8
-rw-r--r--doc/emacs/killing.texi2
-rw-r--r--doc/emacs/macos.texi2
-rw-r--r--doc/emacs/misc.texi12
-rw-r--r--doc/emacs/modes.texi2
-rw-r--r--doc/emacs/msdog.texi6
-rw-r--r--doc/emacs/regs.texi9
-rw-r--r--doc/emacs/search.texi2
-rw-r--r--doc/emacs/trouble.texi2
-rw-r--r--doc/lispintro/ChangeLog4
-rw-r--r--doc/lispintro/emacs-lisp-intro.texi53
-rw-r--r--doc/lispref/ChangeLog37
-rw-r--r--doc/lispref/buffers.texi9
-rw-r--r--doc/lispref/files.texi2
-rw-r--r--doc/lispref/frames.texi3
-rw-r--r--doc/lispref/internals.texi2
-rw-r--r--doc/lispref/intro.texi2
-rw-r--r--doc/lispref/processes.texi2
-rw-r--r--doc/lispref/spellfile3
-rw-r--r--doc/lispref/two-volume-cross-refs.txt4
-rw-r--r--doc/lispref/windows.texi336
-rw-r--r--doc/man/ChangeLog6
-rw-r--r--doc/man/etags.12
-rw-r--r--doc/misc/ChangeLog25
-rw-r--r--doc/misc/ada-mode.texi6
-rw-r--r--doc/misc/cc-mode.texi80
-rw-r--r--doc/misc/dbus.texi2
-rw-r--r--doc/misc/ede.texi6
-rw-r--r--doc/misc/ediff.texi2
-rw-r--r--doc/misc/emacs-mime.texi2
-rw-r--r--doc/misc/ert.texi4
-rw-r--r--doc/misc/eshell.texi2
-rw-r--r--doc/misc/faq.texi4
-rw-r--r--doc/misc/gnus-faq.texi98
-rw-r--r--doc/misc/gnus.texi8
-rw-r--r--doc/misc/newsticker.texi16
-rw-r--r--doc/misc/org.texi24
-rw-r--r--doc/misc/pgg.texi26
-rw-r--r--doc/misc/sc.texi4
-rw-r--r--doc/misc/sem-user.texi4
-rw-r--r--doc/misc/semantic.texi6
-rw-r--r--doc/misc/tramp.texi2
-rw-r--r--etc/AUTHORS2
-rw-r--r--etc/ChangeLog6
-rw-r--r--etc/ERC-NEWS5
-rw-r--r--etc/JOKES4
-rw-r--r--etc/MAILINGLISTS2
-rw-r--r--etc/NEWS25
-rw-r--r--etc/NEWS.1-1715
-rw-r--r--etc/NEWS.192
-rw-r--r--etc/NEWS.2010
-rw-r--r--etc/NEWS.216
-rw-r--r--etc/NEWS.239
-rw-r--r--etc/NEXTSTEP8
-rw-r--r--etc/PROBLEMS2
-rw-r--r--etc/TODO7
-rw-r--r--etc/gnus-tut.txt4
-rw-r--r--etc/srecode/wisent.srt2
-rw-r--r--etc/themes/manoj-dark-theme.el2
-rw-r--r--etc/tutorials/TUTORIAL.ja5
-rw-r--r--leim/CXTERM-DIC/README2
-rw-r--r--leim/ChangeLog4
-rw-r--r--leim/MISC-DIC/README2
-rw-r--r--leim/quail/cyrillic.el4
-rw-r--r--leim/quail/ipa.el34
-rw-r--r--leim/quail/tibetan.el4
-rw-r--r--lib-src/ChangeLog14
-rw-r--r--lib-src/Makefile.in4
-rw-r--r--lib-src/emacsclient.c2
-rw-r--r--lib-src/etags.c6
-rw-r--r--lib-src/update-game-score.c2
-rw-r--r--lisp/ChangeLog298
-rw-r--r--lisp/ChangeLog.12
-rw-r--r--lisp/ChangeLog.1027
-rw-r--r--lisp/ChangeLog.112
-rw-r--r--lisp/ChangeLog.1217
-rw-r--r--lisp/ChangeLog.1314
-rw-r--r--lisp/ChangeLog.1411
-rw-r--r--lisp/ChangeLog.1516
-rw-r--r--lisp/ChangeLog.56
-rw-r--r--lisp/ChangeLog.729
-rw-r--r--lisp/ChangeLog.821
-rw-r--r--lisp/ChangeLog.919
-rw-r--r--lisp/allout-widgets.el19
-rw-r--r--lisp/allout.el22
-rw-r--r--lisp/ansi-color.el2
-rw-r--r--lisp/apropos.el38
-rw-r--r--lisp/arc-mode.el6
-rw-r--r--lisp/bs.el2
-rw-r--r--lisp/button.el2
-rw-r--r--lisp/calc/calc-embed.el30
-rw-r--r--lisp/calc/calc-ext.el4
-rw-r--r--lisp/calc/calc-help.el2
-rw-r--r--lisp/calc/calc-units.el36
-rw-r--r--lisp/calc/calc.el8
-rw-r--r--lisp/calendar/icalendar.el64
-rw-r--r--lisp/calendar/timeclock.el6
-rw-r--r--lisp/calendar/todo-mode.el4
-rw-r--r--lisp/cedet/ChangeLog22
-rw-r--r--lisp/cedet/cedet.el2
-rw-r--r--lisp/cedet/data-debug.el2
-rw-r--r--lisp/cedet/ede.el2
-rw-r--r--lisp/cedet/ede/auto.el2
-rw-r--r--lisp/cedet/ede/custom.el2
-rw-r--r--lisp/cedet/ede/emacs.el4
-rw-r--r--lisp/cedet/ede/files.el2
-rw-r--r--lisp/cedet/ede/generic.el10
-rw-r--r--lisp/cedet/ede/linux.el4
-rw-r--r--lisp/cedet/ede/makefile-edit.el2
-rw-r--r--lisp/cedet/ede/pconf.el2
-rw-r--r--lisp/cedet/ede/proj-comp.el2
-rw-r--r--lisp/cedet/ede/proj-elisp.el2
-rw-r--r--lisp/cedet/ede/proj-misc.el2
-rw-r--r--lisp/cedet/ede/project-am.el6
-rw-r--r--lisp/cedet/ede/speedbar.el2
-rw-r--r--lisp/cedet/inversion.el2
-rw-r--r--lisp/cedet/mode-local.el4
-rw-r--r--lisp/cedet/semantic.el2
-rw-r--r--lisp/cedet/semantic/analyze.el8
-rw-r--r--lisp/cedet/semantic/analyze/complete.el2
-rw-r--r--lisp/cedet/semantic/bovine.el2
-rw-r--r--lisp/cedet/semantic/bovine/c.el8
-rw-r--r--lisp/cedet/semantic/bovine/el.el10
-rw-r--r--lisp/cedet/semantic/complete.el10
-rw-r--r--lisp/cedet/semantic/ctxt.el4
-rw-r--r--lisp/cedet/semantic/db-ebrowse.el6
-rw-r--r--lisp/cedet/semantic/db-file.el2
-rw-r--r--lisp/cedet/semantic/db-find.el4
-rw-r--r--lisp/cedet/semantic/db-typecache.el8
-rw-r--r--lisp/cedet/semantic/db.el8
-rw-r--r--lisp/cedet/semantic/decorate.el2
-rw-r--r--lisp/cedet/semantic/decorate/include.el6
-rw-r--r--lisp/cedet/semantic/doc.el2
-rw-r--r--lisp/cedet/semantic/edit.el8
-rw-r--r--lisp/cedet/semantic/find.el2
-rw-r--r--lisp/cedet/semantic/format.el6
-rw-r--r--lisp/cedet/semantic/html.el2
-rw-r--r--lisp/cedet/semantic/ia-sb.el2
-rw-r--r--lisp/cedet/semantic/ia.el12
-rw-r--r--lisp/cedet/semantic/idle.el2
-rw-r--r--lisp/cedet/semantic/imenu.el4
-rw-r--r--lisp/cedet/semantic/lex-spp.el4
-rw-r--r--lisp/cedet/semantic/lex.el10
-rw-r--r--lisp/cedet/semantic/sb.el4
-rw-r--r--lisp/cedet/semantic/scope.el12
-rw-r--r--lisp/cedet/semantic/symref/grep.el2
-rw-r--r--lisp/cedet/semantic/tag-file.el2
-rw-r--r--lisp/cedet/semantic/tag-ls.el8
-rw-r--r--lisp/cedet/semantic/texi.el6
-rw-r--r--lisp/cedet/semantic/wisent/python.el4
-rw-r--r--lisp/cedet/srecode/compile.el6
-rw-r--r--lisp/cedet/srecode/ctxt.el2
-rw-r--r--lisp/cedet/srecode/dictionary.el6
-rw-r--r--lisp/cedet/srecode/document.el8
-rw-r--r--lisp/cedet/srecode/extract.el4
-rw-r--r--lisp/cedet/srecode/fields.el4
-rw-r--r--lisp/cedet/srecode/find.el2
-rw-r--r--lisp/cedet/srecode/getset.el2
-rw-r--r--lisp/cedet/srecode/insert.el4
-rw-r--r--lisp/cedet/srecode/mode.el4
-rw-r--r--lisp/cedet/srecode/semantic.el2
-rw-r--r--lisp/cedet/srecode/srt-mode.el2
-rw-r--r--lisp/cedet/srecode/texi.el2
-rw-r--r--lisp/comint.el2
-rw-r--r--lisp/cus-start.el4
-rw-r--r--lisp/desktop.el4
-rw-r--r--lisp/dframe.el2
-rw-r--r--lisp/dired-aux.el4
-rw-r--r--lisp/dired.el4
-rw-r--r--lisp/electric.el32
-rw-r--r--lisp/emacs-lisp/advice.el4
-rw-r--r--lisp/emacs-lisp/autoload.el7
-rw-r--r--lisp/emacs-lisp/byte-opt.el2
-rw-r--r--lisp/emacs-lisp/bytecomp.el4
-rw-r--r--lisp/emacs-lisp/cconv.el12
-rw-r--r--lisp/emacs-lisp/chart.el6
-rw-r--r--lisp/emacs-lisp/eieio-base.el2
-rw-r--r--lisp/emacs-lisp/eieio-opt.el2
-rw-r--r--lisp/emacs-lisp/eieio-speedbar.el4
-rw-r--r--lisp/emacs-lisp/eieio.el24
-rw-r--r--lisp/emacs-lisp/eldoc.el2
-rw-r--r--lisp/emacs-lisp/ert.el20
-rw-r--r--lisp/emacs-lisp/regi.el2
-rw-r--r--lisp/emacs-lisp/rx.el2
-rw-r--r--lisp/emacs-lisp/smie.el9
-rw-r--r--lisp/emacs-lisp/tabulated-list.el2
-rw-r--r--lisp/emacs-lisp/tcover-unsafep.el2
-rw-r--r--lisp/emacs-lisp/testcover.el2
-rw-r--r--lisp/emulation/crisp.el2
-rw-r--r--lisp/emulation/viper-cmd.el2
-rw-r--r--lisp/emulation/viper-util.el4
-rw-r--r--lisp/epg.el22
-rw-r--r--lisp/erc/ChangeLog4
-rw-r--r--lisp/erc/ChangeLog.0133
-rw-r--r--lisp/erc/ChangeLog.024
-rw-r--r--lisp/erc/ChangeLog.0322
-rw-r--r--lisp/erc/ChangeLog.042
-rw-r--r--lisp/erc/erc-autoaway.el3
-rw-r--r--lisp/erc/erc-backend.el3
-rw-r--r--lisp/erc/erc-notify.el9
-rw-r--r--lisp/eshell/em-hist.el2
-rw-r--r--lisp/eshell/esh-arg.el2
-rw-r--r--lisp/eshell/esh-cmd.el2
-rw-r--r--lisp/eshell/esh-mode.el2
-rw-r--r--lisp/eshell/esh-var.el2
-rw-r--r--lisp/expand.el21
-rw-r--r--lisp/ezimage.el6
-rw-r--r--lisp/faces.el2
-rw-r--r--lisp/ffap.el2
-rw-r--r--lisp/files.el14
-rw-r--r--lisp/follow.el10
-rw-r--r--lisp/font-lock.el2
-rw-r--r--lisp/frame.el2
-rw-r--r--lisp/generic-x.el2
-rw-r--r--lisp/gnus/ChangeLog60
-rw-r--r--lisp/gnus/ChangeLog.14
-rw-r--r--lisp/gnus/ChangeLog.22
-rw-r--r--lisp/gnus/gmm-utils.el2
-rw-r--r--lisp/gnus/gnus-agent.el4
-rw-r--r--lisp/gnus/gnus-art.el8
-rw-r--r--lisp/gnus/gnus-diary.el2
-rw-r--r--lisp/gnus/gnus-srvr.el2
-rw-r--r--lisp/gnus/gnus-start.el2
-rw-r--r--lisp/gnus/gnus-sum.el4
-rw-r--r--lisp/gnus/gnus-topic.el2
-rw-r--r--lisp/gnus/gnus-uu.el6
-rw-r--r--lisp/gnus/gnus-win.el2
-rw-r--r--lisp/gnus/gnus.el2
-rw-r--r--lisp/gnus/html2text.el4
-rw-r--r--lisp/gnus/mailcap.el2
-rw-r--r--lisp/gnus/message.el2
-rw-r--r--lisp/gnus/mm-decode.el2
-rw-r--r--lisp/gnus/nndiary.el2
-rw-r--r--lisp/gnus/nnmairix.el2
-rw-r--r--lisp/gnus/registry.el4
-rw-r--r--lisp/gnus/rfc2047.el4
-rw-r--r--lisp/gnus/shr-color.el13
-rw-r--r--lisp/gnus/sieve.el2
-rw-r--r--lisp/gnus/smime.el2
-rw-r--r--lisp/help-fns.el2
-rw-r--r--lisp/hilit-chg.el2
-rw-r--r--lisp/htmlfontify.el12
-rw-r--r--lisp/ibuffer.el2
-rw-r--r--lisp/ido.el4
-rw-r--r--lisp/image-mode.el2
-rw-r--r--lisp/info.el4
-rw-r--r--lisp/international/characters.el2
-rw-r--r--lisp/international/fontset.el2
-rw-r--r--lisp/international/mule-diag.el2
-rw-r--r--lisp/international/mule.el6
-rw-r--r--lisp/international/quail.el14
-rw-r--r--lisp/international/robin.el2
-rw-r--r--lisp/international/titdic-cnv.el4
-rw-r--r--lisp/isearch.el6
-rw-r--r--lisp/iswitchb.el4
-rw-r--r--lisp/kmacro.el2
-rw-r--r--lisp/language/ethio-util.el2
-rw-r--r--lisp/language/ethiopic.el2
-rw-r--r--lisp/language/european.el8
-rw-r--r--lisp/language/lao-util.el4
-rw-r--r--lisp/language/romanian.el2
-rw-r--r--lisp/language/vietnamese.el4
-rw-r--r--lisp/ldefs-boot.el8
-rw-r--r--lisp/loadhist.el2
-rw-r--r--lisp/mail/feedmail.el8
-rw-r--r--lisp/mail/mail-extr.el2
-rw-r--r--lisp/mail/rmail-spam-filter.el4
-rw-r--r--lisp/mail/rmail.el69
-rw-r--r--lisp/mail/rmailedit.el37
-rw-r--r--lisp/mail/rmailmm.el113
-rw-r--r--lisp/mail/rmailout.el11
-rw-r--r--lisp/mail/rmailsum.el23
-rw-r--r--lisp/menu-bar.el8
-rw-r--r--lisp/mh-e/ChangeLog6
-rw-r--r--lisp/mh-e/ChangeLog.156
-rw-r--r--lisp/mh-e/mh-alias.el2
-rw-r--r--lisp/mh-e/mh-comp.el2
-rw-r--r--lisp/mh-e/mh-compat.el2
-rw-r--r--lisp/mh-e/mh-e.el4
-rw-r--r--lisp/mh-e/mh-search.el4
-rw-r--r--lisp/mpc.el2
-rw-r--r--lisp/net/ange-ftp.el4
-rw-r--r--lisp/net/browse-url.el2
-rw-r--r--lisp/net/dbus.el4
-rw-r--r--lisp/net/eudc-hotlist.el2
-rw-r--r--lisp/net/mairix.el3
-rw-r--r--lisp/net/newst-plainview.el4
-rw-r--r--lisp/net/newst-treeview.el4
-rw-r--r--lisp/net/newsticker.el2
-rw-r--r--lisp/net/quickurl.el4
-rw-r--r--lisp/net/secrets.el22
-rw-r--r--lisp/net/snmp-mode.el2
-rw-r--r--lisp/net/soap-client.el4
-rw-r--r--lisp/net/tramp-cache.el5
-rw-r--r--lisp/net/tramp-compat.el2
-rw-r--r--lisp/net/tramp-sh.el208
-rw-r--r--lisp/net/tramp.el4
-rw-r--r--lisp/net/webjump.el2
-rw-r--r--lisp/net/xesam.el2
-rw-r--r--lisp/net/zeroconf.el4
-rw-r--r--lisp/nxml/nxml-outln.el2
-rw-r--r--lisp/obsolete/iso-acc.el2
-rw-r--r--lisp/obsolete/pgg-gpg.el2
-rw-r--r--lisp/obsolete/s-region.el2
-rw-r--r--lisp/org/ChangeLog267
-rw-r--r--lisp/org/ob-haskell.el4
-rw-r--r--lisp/org/ob-ocaml.el4
-rw-r--r--lisp/org/ob-sql.el4
-rw-r--r--lisp/org/org-agenda.el28
-rw-r--r--lisp/org/org-bbdb.el2
-rw-r--r--lisp/org/org-beamer.el4
-rw-r--r--lisp/org/org-bibtex.el4
-rw-r--r--lisp/org/org-clock.el5
-rw-r--r--lisp/org/org-compat.el2
-rw-r--r--lisp/org/org-ctags.el8
-rw-r--r--lisp/org/org-footnote.el2
-rw-r--r--lisp/org/org-icalendar.el2
-rw-r--r--lisp/org/org-latex.el8
-rw-r--r--lisp/org/org-list.el12
-rw-r--r--lisp/org/org-plot.el2
-rw-r--r--lisp/org/org-publish.el4
-rw-r--r--lisp/org/org-remember.el5
-rw-r--r--lisp/org/org-table.el7
-rw-r--r--lisp/org/org.el16
-rw-r--r--lisp/outline.el8
-rw-r--r--lisp/play/5x5.el11
-rw-r--r--lisp/play/animate.el2
-rw-r--r--lisp/play/bruce.el2
-rw-r--r--lisp/play/decipher.el2
-rw-r--r--lisp/play/fortune.el2
-rw-r--r--lisp/play/landmark.el2
-rw-r--r--lisp/play/solitaire.el2
-rw-r--r--lisp/printing.el2
-rw-r--r--lisp/progmodes/ada-mode.el4
-rw-r--r--lisp/progmodes/ada-xref.el5
-rw-r--r--lisp/progmodes/autoconf.el3
-rw-r--r--lisp/progmodes/cc-awk.el32
-rw-r--r--lisp/progmodes/cc-cmds.el6
-rw-r--r--lisp/progmodes/cc-defs.el6
-rw-r--r--lisp/progmodes/cc-engine.el30
-rw-r--r--lisp/progmodes/cc-fonts.el4
-rw-r--r--lisp/progmodes/cc-mode.el8
-rw-r--r--lisp/progmodes/cc-vars.el8
-rw-r--r--lisp/progmodes/compile.el76
-rw-r--r--lisp/progmodes/cperl-mode.el10
-rw-r--r--lisp/progmodes/dcl-mode.el2
-rw-r--r--lisp/progmodes/ebnf2ps.el6
-rw-r--r--lisp/progmodes/etags.el2
-rw-r--r--lisp/progmodes/executable.el16
-rw-r--r--lisp/progmodes/f90.el2
-rw-r--r--lisp/progmodes/fortran.el8
-rw-r--r--lisp/progmodes/gdb-mi.el8
-rw-r--r--lisp/progmodes/grep.el2
-rw-r--r--lisp/progmodes/gud.el8
-rw-r--r--lisp/progmodes/idlw-help.el5
-rw-r--r--lisp/progmodes/idlw-shell.el8
-rw-r--r--lisp/progmodes/idlwave.el6
-rw-r--r--lisp/progmodes/js.el4
-rw-r--r--lisp/progmodes/make-mode.el2
-rw-r--r--lisp/progmodes/meta-mode.el54
-rw-r--r--lisp/progmodes/mixal-mode.el2
-rw-r--r--lisp/progmodes/modula2.el2
-rw-r--r--lisp/progmodes/pascal.el2
-rw-r--r--lisp/progmodes/prolog.el8
-rw-r--r--lisp/progmodes/ps-mode.el2
-rw-r--r--lisp/progmodes/python.el28
-rw-r--r--lisp/progmodes/sh-script.el4
-rw-r--r--lisp/progmodes/sql.el20
-rw-r--r--lisp/progmodes/tcl.el2
-rw-r--r--lisp/progmodes/verilog-mode.el18
-rw-r--r--lisp/progmodes/vhdl-mode.el20
-rw-r--r--lisp/ps-samp.el8
-rw-r--r--lisp/ses.el8
-rw-r--r--lisp/simple.el7
-rw-r--r--lisp/speedbar.el16
-rw-r--r--lisp/startup.el2
-rw-r--r--lisp/subr.el43
-rw-r--r--lisp/tar-mode.el2
-rw-r--r--lisp/term.el4
-rw-r--r--lisp/term/internal.el2
-rw-r--r--lisp/term/ns-win.el3
-rw-r--r--lisp/term/pc-win.el2
-rw-r--r--lisp/term/rxvt.el2
-rw-r--r--lisp/term/x-win.el4
-rw-r--r--lisp/textmodes/artist.el8
-rw-r--r--lisp/textmodes/bibtex.el2
-rw-r--r--lisp/textmodes/conf-mode.el2
-rw-r--r--lisp/textmodes/flyspell.el2
-rw-r--r--lisp/textmodes/ispell.el6
-rw-r--r--lisp/textmodes/page-ext.el2
-rw-r--r--lisp/textmodes/reftex-dcr.el46
-rw-r--r--lisp/textmodes/reftex-global.el26
-rw-r--r--lisp/textmodes/reftex-index.el2
-rw-r--r--lisp/textmodes/reftex-parse.el2
-rw-r--r--lisp/textmodes/reftex-ref.el2
-rw-r--r--lisp/textmodes/reftex-toc.el76
-rw-r--r--lisp/textmodes/reftex.el12
-rw-r--r--lisp/textmodes/remember.el2
-rw-r--r--lisp/textmodes/rst.el6
-rw-r--r--lisp/textmodes/sgml-mode.el6
-rw-r--r--lisp/textmodes/table.el2
-rw-r--r--lisp/textmodes/tex-mode.el2
-rw-r--r--lisp/textmodes/texinfmt.el8
-rw-r--r--lisp/thumbs.el2
-rw-r--r--lisp/tmm.el43
-rw-r--r--lisp/url/ChangeLog10
-rw-r--r--lisp/url/url-dav.el8
-rw-r--r--lisp/url/url-future.el2
-rw-r--r--lisp/url/url-http.el10
-rw-r--r--lisp/url/url-ldap.el2
-rw-r--r--lisp/url/url-vars.el2
-rw-r--r--lisp/url/url.el4
-rw-r--r--lisp/vc/ediff-init.el2
-rw-r--r--lisp/vc/ediff-ptch.el2
-rw-r--r--lisp/vc/ediff-wind.el2
-rw-r--r--lisp/vc/pcvs-defs.el2
-rw-r--r--lisp/vc/pcvs-util.el2
-rw-r--r--lisp/vc/pcvs.el2
-rw-r--r--lisp/vc/vc-hooks.el6
-rw-r--r--lisp/vc/vc-rcs.el2
-rw-r--r--lisp/vc/vc-svn.el28
-rw-r--r--lisp/view.el2
-rw-r--r--lisp/whitespace.el4
-rw-r--r--lisp/wid-edit.el2
-rw-r--r--lisp/windmove.el2
-rw-r--r--lisp/window.el162
-rw-r--r--lisp/woman.el4
-rw-r--r--lisp/x-dnd.el4
-rw-r--r--lisp/xml.el2
-rw-r--r--msdos/README4
-rw-r--r--nt/ChangeLog12
-rw-r--r--nt/README.W324
-rw-r--r--nt/gmake.defs3
-rw-r--r--nt/inc/stdint.h4
-rw-r--r--nt/preprep.c3
-rw-r--r--oldXMenu/ChangeLog2
-rw-r--r--oldXMenu/Internal.c2
-rw-r--r--oldXMenu/XMenu.h2
-rw-r--r--src/ChangeLog100
-rw-r--r--src/ChangeLog.15
-rw-r--r--src/ChangeLog.1011
-rw-r--r--src/ChangeLog.1114
-rw-r--r--src/ChangeLog.23
-rw-r--r--src/ChangeLog.314
-rw-r--r--src/ChangeLog.44
-rw-r--r--src/ChangeLog.62
-rw-r--r--src/ChangeLog.712
-rw-r--r--src/ChangeLog.88
-rw-r--r--src/ChangeLog.94
-rw-r--r--src/alloc.c4
-rw-r--r--src/buffer.c2
-rw-r--r--src/bytecode.c2
-rw-r--r--src/callproc.c3
-rw-r--r--src/ccl.c6
-rw-r--r--src/character.c4
-rw-r--r--src/charset.c4
-rw-r--r--src/charset.h6
-rw-r--r--src/chartab.c4
-rw-r--r--src/coding.h2
-rw-r--r--src/composite.c2
-rw-r--r--src/composite.h2
-rw-r--r--src/data.c2
-rw-r--r--src/dired.c2
-rw-r--r--src/dispnew.c33
-rw-r--r--src/doprnt.c2
-rw-r--r--src/emacs.c2
-rw-r--r--src/font.c6
-rw-r--r--src/font.h2
-rw-r--r--src/fontset.c6
-rw-r--r--src/frame.c4
-rw-r--r--src/frame.h2
-rw-r--r--src/gtkutil.c6
-rw-r--r--src/image.c10
-rw-r--r--src/indent.c2
-rw-r--r--src/indent.h4
-rw-r--r--src/keyboard.c10
-rw-r--r--src/keymap.c2
-rw-r--r--src/makefile.w32-in5
-rw-r--r--src/nsfns.m8
-rw-r--r--src/nsterm.h2
-rw-r--r--src/nsterm.m4
-rw-r--r--src/process.c6
-rw-r--r--src/ralloc.c16
-rw-r--r--src/regex.c2
-rw-r--r--src/regex.h2
-rw-r--r--src/s/hpux10-20.h2
-rw-r--r--src/s/msdos.h3
-rw-r--r--src/sound.c2
-rw-r--r--src/syssignal.h2
-rw-r--r--src/unexelf.c2
-rw-r--r--src/w32fns.c6
-rw-r--r--src/w32font.c14
-rw-r--r--src/w32font.h5
-rw-r--r--src/w32menu.c2
-rw-r--r--src/w32proc.c8
-rw-r--r--src/w32term.c4
-rw-r--r--src/w32term.h2
-rw-r--r--src/w32uniscribe.c3
-rw-r--r--src/window.c194
-rw-r--r--src/window.h9
-rw-r--r--src/xdisp.c26
-rw-r--r--src/xfaces.c6
-rw-r--r--src/xfns.c4
-rw-r--r--src/xfont.c6
-rw-r--r--src/xselect.c2
-rw-r--r--src/xsettings.c2
-rw-r--r--src/xsmfns.c2
-rw-r--r--src/xterm.c2
-rw-r--r--src/xterm.h2
-rw-r--r--test/ChangeLog6
-rw-r--r--test/automated/compile-tests.el2
-rw-r--r--test/automated/ert-tests.el8
-rw-r--r--test/automated/icalendar-tests.el16
-rw-r--r--test/cedet/semantic-tests.el3
-rw-r--r--test/cedet/semantic-utest.el4
-rw-r--r--test/cedet/srecode-tests.el2
-rw-r--r--test/cedet/tests/testpolymorph.cpp3
-rw-r--r--test/indent/octave.m166
539 files changed, 3148 insertions, 2644 deletions
diff --git a/ChangeLog b/ChangeLog
index 68f5042d7cf..34039b3860c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
12011-11-13 Glenn Morris <rgm@gnu.org>
2
3 * INSTALL: Tiny updates for disk space used during installation.
4
12011-11-05 Eli Zaretskii <eliz@gnu.org> 52011-11-05 Eli Zaretskii <eliz@gnu.org>
2 6
3 * lib/makefile.w32-in (FRC): New dummy target. 7 * lib/makefile.w32-in (FRC): New dummy target.
@@ -2389,7 +2393,7 @@
2389 2393
2390 * BUGS: Use new binding of view-emacs-problems. 2394 * BUGS: Use new binding of view-emacs-problems.
2391 2395
23922009-05-04 Simon Leinen <simon.leinen@switch.ch> (tiny change) 23962009-05-04 Simon Leinen <simon.leinen@switch.ch> (tiny change)
2393 2397
2394 * Makefile.in (install-arch-dep): Avoid using $$(..) construct, 2398 * Makefile.in (install-arch-dep): Avoid using $$(..) construct,
2395 for Solaris compatibility. 2399 for Solaris compatibility.
diff --git a/INSTALL b/INSTALL
index 3aed5a869cc..dcbc729b463 100644
--- a/INSTALL
+++ b/INSTALL
@@ -31,9 +31,9 @@ some of the steps manually. The more detailed description in the other
31sections of this guide will help you do that, so please refer to those 31sections of this guide will help you do that, so please refer to those
32sections if you need to. 32sections if you need to.
33 33
34 1. Unpacking the Emacs 23.2 release requires about 170 MB of free 34 1. Unpacking the Emacs 24.1 release requires about 180 MB of free
35 disk space. Building Emacs uses about another 60 MB of space. 35 disk space. Building Emacs uses about another 70 MB of space.
36 The final installed Emacs uses about 120 MB of disk space. 36 The final installed Emacs uses about 110 MB of disk space.
37 This includes the space-saving that comes from automatically 37 This includes the space-saving that comes from automatically
38 compressing the Lisp source files on installation. 38 compressing the Lisp source files on installation.
39 39
diff --git a/admin/ChangeLog b/admin/ChangeLog
index fc3370bb380..6030dd8f6d3 100644
--- a/admin/ChangeLog
+++ b/admin/ChangeLog
@@ -1,3 +1,15 @@
12011-11-16 Juanma Barranquero <lekktu@gmail.com>
2
3 * admin.el (manual-dvi): Fix typo.
4
52011-11-15 Eli Zaretskii <eliz@gnu.org>
6
7 * nt/README-ftp-server: Update the information about PNG libraries.
8
92011-11-15 Juanma Barranquero <lekktu@gmail.com>
10
11 * make-emacs: Fix typo.
12
12011-11-07 Juanma Barranquero <lekktu@gmail.com> 132011-11-07 Juanma Barranquero <lekktu@gmail.com>
2 14
3 * unidata/makefile.w32-in (clean): Remove bidimirror.h and biditype.h. 15 * unidata/makefile.w32-in (clean): Remove bidimirror.h and biditype.h.
diff --git a/admin/README b/admin/README
index 4dd1705fe74..10a8f2244fc 100644
--- a/admin/README
+++ b/admin/README
@@ -18,7 +18,7 @@ Living list of activities that must be completed before the next release.
18 18
19** make-tarball.txt 19** make-tarball.txt
20 20
21Instructions to create pretest or release tarballs, annoucements, etc. 21Instructions to create pretest or release tarballs, announcements, etc.
22 22
23** admin.el 23** admin.el
24 24
@@ -88,4 +88,3 @@ Local variables:
88mode: outline 88mode: outline
89paragraph-separate: "[ ]*$" 89paragraph-separate: "[ ]*$"
90end: 90end:
91
diff --git a/admin/admin.el b/admin/admin.el
index 673d86c8825..9235144f6c6 100644
--- a/admin/admin.el
+++ b/admin/admin.el
@@ -330,7 +330,7 @@ the @import directive."
330 330
331(defun manual-dvi (texi-file dest ps-dest) 331(defun manual-dvi (texi-file dest ps-dest)
332 "Run texi2dvi on TEXI-FILE, emitting dvi output to DEST. 332 "Run texi2dvi on TEXI-FILE, emitting dvi output to DEST.
333Also generate postscript output in PS-DEST." 333Also generate PostScript output in PS-DEST."
334 (call-process "texi2dvi" nil nil nil texi-file "-o" dest) 334 (call-process "texi2dvi" nil nil nil texi-file "-o" dest)
335 (call-process "dvips" nil nil nil dest "-o" ps-dest) 335 (call-process "dvips" nil nil nil dest "-o" ps-dest)
336 (call-process "gzip" nil nil nil dest) 336 (call-process "gzip" nil nil nil dest)
diff --git a/admin/alloc-colors.c b/admin/alloc-colors.c
index e09ddd62b97..b3ea8af9d70 100644
--- a/admin/alloc-colors.c
+++ b/admin/alloc-colors.c
@@ -40,7 +40,7 @@ void
40usage (const char *progname) 40usage (const char *progname)
41{ 41{
42 fprintf (stderr, "Usage %s options\n", progname); 42 fprintf (stderr, "Usage %s options\n", progname);
43 fprintf (stderr, "-n NCOLORS allcoate NCOLORS colors\n"); 43 fprintf (stderr, "-n NCOLORS allocate NCOLORS colors\n");
44 exit (1); 44 exit (1);
45} 45}
46 46
@@ -111,4 +111,3 @@ main (int argc, char **argv)
111 XCloseDisplay (dpy); 111 XCloseDisplay (dpy);
112 return 0; 112 return 0;
113} 113}
114
diff --git a/admin/charsets/cp51932.awk b/admin/charsets/cp51932.awk
index 39ccc1c7dc1..b611def710d 100644
--- a/admin/charsets/cp51932.awk
+++ b/admin/charsets/cp51932.awk
@@ -20,7 +20,7 @@
20 20
21# Commentary: 21# Commentary:
22 22
23# Genereate a translation table for CP51932 (EUC-JP of MicroSoft Version). 23# Generate a translation table for CP51932 (EUC-JP of MicroSoft Version).
24# It maps invalid JISX0208 code points used by CP51932 to Unicode. 24# It maps invalid JISX0208 code points used by CP51932 to Unicode.
25# 4th field of the input has these meanings: 25# 4th field of the input has these meanings:
26# 0: JISX0208 characters. 26# 0: JISX0208 characters.
diff --git a/admin/charsets/mapfiles/README b/admin/charsets/mapfiles/README
index c1804af98cd..e87d548cf31 100644
--- a/admin/charsets/mapfiles/README
+++ b/admin/charsets/mapfiles/README
@@ -6,7 +6,7 @@ See the end of the file for license conditions.
6 6
7 The charset map files directory 7 The charset map files directory
8 8
9This directory contains two kinds of charse map files; verbatim copies 9This directory contains two kinds of charset map files; verbatim copies
10(or their compressed versions) of files freely available in the 10(or their compressed versions) of files freely available in the
11Internet, and newly created files based on freely available 11Internet, and newly created files based on freely available
12information. 12information.
diff --git a/admin/charsets/mapfiles/Uni2JIS b/admin/charsets/mapfiles/Uni2JIS
index b81d10c6ae2..e3c8a25db17 100644
--- a/admin/charsets/mapfiles/Uni2JIS
+++ b/admin/charsets/mapfiles/Uni2JIS
@@ -26,7 +26,7 @@
26# where XXXX is the code point. Including all these 26# where XXXX is the code point. Including all these
27# names in this file increases its size substantially 27# names in this file increases its size substantially
28# and needlessly. The token "<CJK>" is used for the 28# and needlessly. The token "<CJK>" is used for the
29# name of these chracters. If necessary, it can be 29# name of these characters. If necessary, it can be
30# expanded algorithmically by a parser or editor. 30# expanded algorithmically by a parser or editor.
31# 31#
32# The entries are in Unicode order. 32# The entries are in Unicode order.
diff --git a/admin/grammars/c.by b/admin/grammars/c.by
index 1797827679b..004f0b5f30f 100644
--- a/admin/grammars/c.by
+++ b/admin/grammars/c.by
@@ -566,7 +566,7 @@ template-type
566 (TYPE-TAG $2 "class" nil nil ) 566 (TYPE-TAG $2 "class" nil nil )
567 | STRUCT symbol 567 | STRUCT symbol
568 (TYPE-TAG $2 "struct" nil nil ) 568 (TYPE-TAG $2 "struct" nil nil )
569 ;; TODO: Klaus Berndl: For the moment is is ok, that we parse the C++ 569 ;; TODO: Klaus Berndl: For the moment it is ok, that we parse the C++
570 ;; keyword typename as a class.... 570 ;; keyword typename as a class....
571 | TYPENAME symbol 571 | TYPENAME symbol
572 (TYPE-TAG $2 "class" nil nil) 572 (TYPE-TAG $2 "class" nil nil)
@@ -734,7 +734,7 @@ builtintype
734 734
735;; Klaus Berndl: This parses also nonsense like "const volatile int 735;; Klaus Berndl: This parses also nonsense like "const volatile int
736;; const volatile const const volatile a ..." but IMHO nobody writes 736;; const volatile const const volatile a ..." but IMHO nobody writes
737;; such code. Normaly we shoud define a rule like typeformbase-mode 737;; such code. Normally we should define a rule like typeformbase-mode
738;; which exactly defines the different allowed cases and combinations 738;; which exactly defines the different allowed cases and combinations
739;; of declmods (minus the CVDECLMOD) typeformbase and cv-declmods so 739;; of declmods (minus the CVDECLMOD) typeformbase and cv-declmods so
740;; we could recognize more invalid code but IMHO this is not worth the 740;; we could recognize more invalid code but IMHO this is not worth the
@@ -1105,7 +1105,7 @@ fun-or-proto-end
1105 ( t ) 1105 ( t )
1106 | semantic-list 1106 | semantic-list
1107 ( nil ) 1107 ( nil )
1108 ;; Here is an anoying feature of C++ pure virtual methods 1108 ;; Here is an annoying feature of C++ pure virtual methods
1109 | EQUAL ZERO SEMICOLON 1109 | EQUAL ZERO SEMICOLON
1110 ( :pure-virtual-flag ) 1110 ( :pure-virtual-flag )
1111 | fun-try-end 1111 | fun-try-end
diff --git a/admin/grammars/python.wy b/admin/grammars/python.wy
index a0af813e5e8..b30305ee78a 100644
--- a/admin/grammars/python.wy
+++ b/admin/grammars/python.wy
@@ -828,7 +828,7 @@ paren_classes
828 ; 828 ;
829 829
830;; In general, the base class can be specified by a general expression 830;; In general, the base class can be specified by a general expression
831;; which evalue to a class object, i.e., base classes are not just names! 831;; which evaluates to a class object, i.e., base classes are not just names!
832;; However base classes are names in most cases. Thus the 832;; However base classes are names in most cases. Thus the
833;; non-terminals below work only with simple names. Even if the 833;; non-terminals below work only with simple names. Even if the
834;; parser can parse general expressions, I don't see much benefit in 834;; parser can parse general expressions, I don't see much benefit in
diff --git a/admin/make-emacs b/admin/make-emacs
index b21dcad5f37..d231f66b03b 100755
--- a/admin/make-emacs
+++ b/admin/make-emacs
@@ -72,7 +72,7 @@ Build Emacs.
72 --gprof make Emacs for profiling 72 --gprof make Emacs for profiling
73 --union-type define USE_LISP_UNION_TYPE (bad for GDB) 73 --union-type define USE_LISP_UNION_TYPE (bad for GDB)
74 --malloc-check define GC_MALLOC_CHECK 74 --malloc-check define GC_MALLOC_CHECK
75 --no-mcheck dont define GC_MCHECK 75 --no-mcheck don't define GC_MCHECK
76 --wall compile with -Wall 76 --wall compile with -Wall
77 --gcc3 use GCC 3.0 (30% slower compilation, slower code) 77 --gcc3 use GCC 3.0 (30% slower compilation, slower code)
78 --trace-selection print traces in xselect.c 78 --trace-selection print traces in xselect.c
diff --git a/admin/notes/bzr b/admin/notes/bzr
index 12a3b194266..50eaf3710ee 100644
--- a/admin/notes/bzr
+++ b/admin/notes/bzr
@@ -173,7 +173,7 @@ This restores file, but without its history (`bzr log file' will be
173very short). This is because file gets re-added with a new file-id 173very short). This is because file gets re-added with a new file-id
174(use `bzr file-id file' to see the id). 174(use `bzr file-id file' to see the id).
175 175
176Insteading of adding the file, try: 176Instead of adding the file, try:
177 177
178bzr revert -rN file; bzr commit 178bzr revert -rN file; bzr commit
179 179
diff --git a/admin/notes/commits b/admin/notes/commits
index f37c3e020be..2c6f80c56f0 100644
--- a/admin/notes/commits
+++ b/admin/notes/commits
@@ -17,7 +17,7 @@ Date: Tue, 31 Mar 2009 12:21:20 +0900
17 files), not one-by-one. This is pretty easy using vc-dir now. 17 files), not one-by-one. This is pretty easy using vc-dir now.
18 18
19(2) Make the log message describe the entire changeset, perhaps 19(2) Make the log message describe the entire changeset, perhaps
20 including relevant changelog entiries (I often don't bother with 20 including relevant changelog entries (I often don't bother with
21 the latter if it's a trivial sort of change). 21 the latter if it's a trivial sort of change).
22 22
23 Many modern source-control systems vaguely distinguish the first 23 Many modern source-control systems vaguely distinguish the first
diff --git a/admin/notes/multi-tty b/admin/notes/multi-tty
index 85babb903b9..410e3aa8614 100644
--- a/admin/notes/multi-tty
+++ b/admin/notes/multi-tty
@@ -160,7 +160,7 @@ I use the following two bash scripts to handle my Emacs sessions:
160 160
161name="$1" 161name="$1"
162shift 162shift
163 163
164if [ -z "$name" ]; then 164if [ -z "$name" ]; then
165 echo "Usage: connect_emacs <name> <args>..." >&2 165 echo "Usage: connect_emacs <name> <args>..." >&2
166 exit 1 166 exit 1
@@ -184,7 +184,7 @@ screendir="/var/run/screen/S-$USER"
184serverdir="/tmp/emacs$UID" 184serverdir="/tmp/emacs$UID"
185emacs=/usr/bin/emacs-multi-tty # Or wherever you installed your multi-tty Emacs 185emacs=/usr/bin/emacs-multi-tty # Or wherever you installed your multi-tty Emacs
186 186
187if [ -z "$name" ]; then 187if [ -z "$name" ]; then
188 echo "Usage: preload_emacs <name> [<waitp>]" >&2 188 echo "Usage: preload_emacs <name> [<waitp>]" >&2
189 exit 1 189 exit 1
190fi 190fi
@@ -314,7 +314,7 @@ THINGS TO DO
314 Emacs with GTK support. If you want to play around with GTK 314 Emacs with GTK support. If you want to play around with GTK
315 multidisplay (and don't mind core dumps), you can edit src/config.h 315 multidisplay (and don't mind core dumps), you can edit src/config.h
316 and define HAVE_GTK_MULTIDISPLAY there by hand. 316 and define HAVE_GTK_MULTIDISPLAY there by hand.
317 317
318 http://bugzilla.gnome.org/show_bug.cgi?id=85715 318 http://bugzilla.gnome.org/show_bug.cgi?id=85715
319 319
320 Update: Han reports that GTK+ version 2.8.9 almost gets display 320 Update: Han reports that GTK+ version 2.8.9 almost gets display
@@ -414,7 +414,7 @@ THINGS TO DO
414 sometimes; Emacs does not respond to stimuli from other keyboards. 414 sometimes; Emacs does not respond to stimuli from other keyboards.
415 At least a beep or a message would be important, if the single-mode 415 At least a beep or a message would be important, if the single-mode
416 is still required to prevent interference. (Reported by Dan 416 is still required to prevent interference. (Reported by Dan
417 Nicolaescu.) 417 Nicolaescu.)
418 418
419 Update: selecting a region with the mouse enables single_kboard 419 Update: selecting a region with the mouse enables single_kboard
420 under X. This is very confusing. 420 under X. This is very confusing.
@@ -542,7 +542,7 @@ THINGS TO DO
542 are not useful; before starting work on DOS support, revert to 542 are not useful; before starting work on DOS support, revert to
543 pristine, pre-multi-tty versions. 543 pristine, pre-multi-tty versions.
544 544
545** Fix Windows support. Currently bootstraping works on w32, but Emacs 545** Fix Windows support. Currently bootstrapping works on w32, but Emacs
546 crashes on startup and none of the multi-tty features are 546 crashes on startup and none of the multi-tty features are
547 implemented. Many XXX comments mark things that probably need 547 implemented. Many XXX comments mark things that probably need
548 updating, ChangeLogs will help in spotting changes to X specific 548 updating, ChangeLogs will help in spotting changes to X specific
@@ -1026,7 +1026,7 @@ DIARY OF CHANGES
1026 settings as Emacs itself. This may lead to bogus results in a 1026 settings as Emacs itself. This may lead to bogus results in a
1027 multi-locale setup. (E.g., while logging in from a remote client 1027 multi-locale setup. (E.g., while logging in from a remote client
1028 with a different locale.) 1028 with a different locale.)
1029 (Update after new bugreport by Friedrich Delgado Friedrichs: 1029 (Update after new bugreport by Friedrich Delgado Friedrichs:
1030 (at least) the structs terminal_coding and keyboard_coding in 1030 (at least) the structs terminal_coding and keyboard_coding in
1031 coding.c must be moved to struct display, and the Lisp interface 1031 coding.c must be moved to struct display, and the Lisp interface
1032 [set-]keyboard-coding-system must be adapted for the change.) 1032 [set-]keyboard-coding-system must be adapted for the change.)
@@ -1088,7 +1088,7 @@ DIARY OF CHANGES
1088-- Miles Bader suggests that C-x C-c on an emacsclient frame should 1088-- Miles Bader suggests that C-x C-c on an emacsclient frame should
1089 only close the frame, not exit the entire Emacs session. Update: 1089 only close the frame, not exit the entire Emacs session. Update:
1090 see above for a function that does this. Maybe this should be the 1090 see above for a function that does this. Maybe this should be the
1091 new default? 1091 new default?
1092 1092
1093 (Done. This is the new default. No complaints so far.) 1093 (Done. This is the new default. No complaints so far.)
1094 1094
@@ -1131,7 +1131,7 @@ DIARY OF CHANGES
1131 from exiting Emacs. (Reported by Mnemonikk on freenode.) 1131 from exiting Emacs. (Reported by Mnemonikk on freenode.)
1132 1132
1133 (Done, I hope.) 1133 (Done, I hope.)
1134 1134
1135 1135
1136-- Having {reset,init}_all_sys_modes in set-input-mode breaks arrow 1136-- Having {reset,init}_all_sys_modes in set-input-mode breaks arrow
1137 keys on non-selected terminals under screen, and sometimes on other 1137 keys on non-selected terminals under screen, and sometimes on other
@@ -1157,7 +1157,7 @@ DIARY OF CHANGES
1157 > Cursor mode. Applications have to send the smkx and rmkx terminfo 1157 > Cursor mode. Applications have to send the smkx and rmkx terminfo
1158 > strings to switch between the 2 modes. So Emacs (and emacsclient) have 1158 > strings to switch between the 2 modes. So Emacs (and emacsclient) have
1159 > to send smkx when initializing and rmkx when quitting (or on 1159 > to send smkx when initializing and rmkx when quitting (or on
1160 > suspend). 1160 > suspend).
1161 1161
1162 (I think patch-370 fixed this.) 1162 (I think patch-370 fixed this.)
1163 1163
@@ -1166,7 +1166,7 @@ DIARY OF CHANGES
1166 1166
1167 emacs 1167 emacs
1168 M-x server-start 1168 M-x server-start
1169 1169
1170 # From another xterm: 1170 # From another xterm:
1171 emacsclient -e '(y-or-n-p "Do you want me to crash? ")' 1171 emacsclient -e '(y-or-n-p "Do you want me to crash? ")'
1172 # Notice how the answer ends up in the *scratch* buffer 1172 # Notice how the answer ends up in the *scratch* buffer
@@ -1205,7 +1205,7 @@ DIARY OF CHANGES
1205 it is not recognized correctly. May be related to the bug below. 1205 it is not recognized correctly. May be related to the bug below.
1206 1206
1207 (Seems to have been fixed as a side effect of patch-434. "The bug 1207 (Seems to have been fixed as a side effect of patch-434. "The bug
1208 below" was the set-input-mode madness.) 1208 below" was the set-input-mode madness.)
1209 1209
1210 (Update: this bug was fixed for good in patch-449. It was tracked 1210 (Update: this bug was fixed for good in patch-449. It was tracked
1211 down to a bug in `read_key_sequence': it failed to reinitialize its 1211 down to a bug in `read_key_sequence': it failed to reinitialize its
@@ -1359,4 +1359,3 @@ GNU General Public License for more details.
1359 1359
1360You should have received a copy of the GNU General Public License 1360You should have received a copy of the GNU General Public License
1361along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. 1361along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
1362
diff --git a/admin/notes/nextstep b/admin/notes/nextstep
index 462101f9abf..cf0ebbc11aa 100644
--- a/admin/notes/nextstep
+++ b/admin/notes/nextstep
@@ -78,7 +78,7 @@ Text Rendering and Font Handling
78nsfont.m implements the font driver, responsible for managing fonts and 78nsfont.m implements the font driver, responsible for managing fonts and
79rendering text. Fonts are obtained through NSFontManager. Rendering must be 79rendering text. Fonts are obtained through NSFontManager. Rendering must be
80done at a low level due to emacs' fine control over this process, therefore 80done at a low level due to emacs' fine control over this process, therefore
81there are different approachs under Cocoa and GNUstep. Under GNUstep, the 81there are different approaches under Cocoa and GNUstep. Under GNUstep, the
82original NeXT Display PostScript (DPS) APIs are available and used. Under 82original NeXT Display PostScript (DPS) APIs are available and used. Under
83Cocoa, these were removed and Quartz drawing functions replaced them. 83Cocoa, these were removed and Quartz drawing functions replaced them.
84 84
@@ -156,4 +156,3 @@ EmacsPrefsController : NSObject
156EmacsSavePanel : NSSavePanel 156EmacsSavePanel : NSSavePanel
157EmacsOpenPanel : NSOpenPanel 157EmacsOpenPanel : NSOpenPanel
158 - utility override for panel notifications 158 - utility override for panel notifications
159
diff --git a/admin/nt/README-ftp-server b/admin/nt/README-ftp-server
index 5dee94f28c5..82e33cc5418 100644
--- a/admin/nt/README-ftp-server
+++ b/admin/nt/README-ftp-server
@@ -73,10 +73,11 @@ See the end of the file for license conditions.
73 73
74* Image support 74* Image support
75 75
76 Emacs 24.1 contains support for images, however for most image formats 76 Emacs 24.1 contains support for images, however for most image
77 supporting libraries are required. This distribution has been tested 77 formats supporting libraries are required. This distribution has
78 with the libraries that are distributed with GTK for Windows, and the 78 been tested with the libraries that are distributed with GTK for
79 libraries found at http://gnuwin32.sourceforge.net/. The following image 79 Windows (http://www.gtk.org/download/win32.php), and the libraries
80 found at http://gnuwin32.sourceforge.net/. The following image
80 formats are supported: 81 formats are supported:
81 82
82 PBM/PGM/PPM: Supported natively by Emacs. This format is used for 83 PBM/PGM/PPM: Supported natively by Emacs. This format is used for
@@ -87,12 +88,16 @@ See the end of the file for license conditions.
87 can be replaced by other versions with the name xpm4.dll, 88 can be replaced by other versions with the name xpm4.dll,
88 libxpm-nox4.dll or libxpm.dll. 89 libxpm-nox4.dll or libxpm.dll.
89 90
90 PNG: requires the PNG reference library 1.2 or later, which will 91 PNG: requires the PNG reference library 1.4 or later, which will
91 be named libpng13d.dll, libpng13.dll, libpng12d.dll, libpng12.dll 92 be named libpng14.dll or libpng14-14.dll. LibPNG requires zlib,
92 or libpng.dll. LibPNG requires zlib, which should come from the same 93 which should come from the same source as you got libpng.
93 source as you got libpng. 94 Starting with Emacs 23.3, the precompiled Emacs binaries are
95 built with libpng 1.4.x and later, and are incompatible with
96 earlier versions of libpng DLLs. So if you have libpng 1.2.x,
97 the PNG support will not work, and you will have to download
98 newer versions.
94 99
95 JPEG: requires the Independant JPEG Group's libjpeg 6b or later, 100 JPEG: requires the Independent JPEG Group's libjpeg 6b or later,
96 which will be called jpeg62.dll, libjpeg.dll, jpeg-62.dll or jpeg.dll. 101 which will be called jpeg62.dll, libjpeg.dll, jpeg-62.dll or jpeg.dll.
97 102
98 TIFF: requires libTIFF 3.0 or later, which will be called libtiff3.dll 103 TIFF: requires libTIFF 3.0 or later, which will be called libtiff3.dll
diff --git a/configure.in b/configure.in
index e301b142fe4..ec938bf37cd 100644
--- a/configure.in
+++ b/configure.in
@@ -1350,7 +1350,7 @@ AH_TEMPLATE(POINTER_TYPE,
1350 [Define as `void' if your compiler accepts `void *'; otherwise 1350 [Define as `void' if your compiler accepts `void *'; otherwise
1351 define as `char'.])dnl 1351 define as `char'.])dnl
1352 1352
1353dnl Check for endianess 1353dnl Check for endianness.
1354AC_C_BIGENDIAN 1354AC_C_BIGENDIAN
1355 1355
1356AC_CACHE_CHECK([for __attribute__ ((__aligned__ (expr)))], 1356AC_CACHE_CHECK([for __attribute__ ((__aligned__ (expr)))],
@@ -1595,7 +1595,7 @@ case "${window_system}" in
1595 athena | lucid ) USE_X_TOOLKIT=LUCID ;; 1595 athena | lucid ) USE_X_TOOLKIT=LUCID ;;
1596 motif ) USE_X_TOOLKIT=MOTIF ;; 1596 motif ) USE_X_TOOLKIT=MOTIF ;;
1597 gtk ) with_gtk=yes 1597 gtk ) with_gtk=yes
1598dnl Dont set this for GTK. A lot of tests below assumes Xt when 1598dnl Don't set this for GTK. A lot of tests below assumes Xt when
1599dnl USE_X_TOOLKIT is set. 1599dnl USE_X_TOOLKIT is set.
1600 USE_X_TOOLKIT=none ;; 1600 USE_X_TOOLKIT=none ;;
1601 gtk3 ) with_gtk3=yes 1601 gtk3 ) with_gtk3=yes
diff --git a/doc/emacs/ChangeLog b/doc/emacs/ChangeLog
index a808a96b444..b796acd8b39 100644
--- a/doc/emacs/ChangeLog
+++ b/doc/emacs/ChangeLog
@@ -1,3 +1,16 @@
12011-11-17 Glenn Morris <rgm@gnu.org>
2
3 * regs.texi (Bookmarks): Small fixes related to saving. (Bug#10058)
4
52011-11-16 Juanma Barranquero <lekktu@gmail.com>
6
7 * killing.texi (Rectangles):
8 * misc.texi (Document View):
9 * modes.texi (Choosing Modes):
10 * msdog.texi (Windows Fonts):
11 * regs.texi (Rectangle Registers):
12 * search.texi (Isearch Yank): Fix typos.
13
12011-11-06 Chong Yidong <cyd@gnu.org> 142011-11-06 Chong Yidong <cyd@gnu.org>
2 15
3 * windows.texi (Basic Window): Add xref to Cursor Display. 16 * windows.texi (Basic Window): Add xref to Cursor Display.
@@ -1226,7 +1239,8 @@
1226 1239
12272010-03-27 Nick Roberts <nickrob@snap.net.nz> 12402010-03-27 Nick Roberts <nickrob@snap.net.nz>
1228 1241
1229 doc/emacs/building.texi: Describe restored GDB/MI fuctionality removed by 2009-12-29T07:15:34Z!nickrob@snap.net.nz. 1242 doc/emacs/building.texi: Describe restored GDB/MI functionality
1243 removed by 2009-12-29T07:15:34Z!nickrob@snap.net.nz.
1230 doc/emacs/emacs.texi: Update node names for building.texi. 1244 doc/emacs/emacs.texi: Update node names for building.texi.
1231 1245
12322010-03-24 Glenn Morris <rgm@gnu.org> 12462010-03-24 Glenn Morris <rgm@gnu.org>
@@ -1711,7 +1725,7 @@
1711 (Table of Resources): Document fontBackend resource. 1725 (Table of Resources): Document fontBackend resource.
1712 1726
1713 * trouble.texi (Quitting): Add other undo bindings to table. 1727 * trouble.texi (Quitting): Add other undo bindings to table.
1714 (DEL Does Not Delete): Note that the erasure key is usually labelled 1728 (DEL Does Not Delete): Note that the erasure key is usually labeled
1715 "Backspace". Remove discussion of obscure Xmodmap issue. 1729 "Backspace". Remove discussion of obscure Xmodmap issue.
1716 1730
17172009-05-07 Chong Yidong <cyd@stupidchicken.com> 17312009-05-07 Chong Yidong <cyd@stupidchicken.com>
diff --git a/doc/emacs/ack.texi b/doc/emacs/ack.texi
index 1cfb3d9ffe9..6801c7f1e0e 100644
--- a/doc/emacs/ack.texi
+++ b/doc/emacs/ack.texi
@@ -99,7 +99,7 @@ ERC distribution).
99 99
100@item 100@item
101Scott Bender, Michael Brouwer, Christophe de Dinechin, Carl Edman, 101Scott Bender, Michael Brouwer, Christophe de Dinechin, Carl Edman,
102Christian Limpach and Adrian Robert developed and maintained the 102Christian Limpach and Adrian Robert developed and maintained the
103NeXTstep port of Emacs. 103NeXTstep port of Emacs.
104 104
105@item 105@item
@@ -206,7 +206,7 @@ use it, Snake and Tetris.
206 206
207@item 207@item
208Andrew Cohen wrote @file{spam-wash.el}, to decode and clean email before 208Andrew Cohen wrote @file{spam-wash.el}, to decode and clean email before
209it is analysed for spam. 209it is analyzed for spam.
210 210
211@item 211@item
212Georges Brun-Cottan and Stefan Monnier wrote @file{easy-mmode.el}, a 212Georges Brun-Cottan and Stefan Monnier wrote @file{easy-mmode.el}, a
@@ -576,7 +576,7 @@ Emacs.
576 576
577@item 577@item
578Karel Klí@v{c} contributed SELinux support, for preserving the 578Karel Klí@v{c} contributed SELinux support, for preserving the
579Security-Enchanced Linux context of files on backup and copy. 579Security-Enhanced Linux context of files on backup and copy.
580 580
581@item 581@item
582Shuhei Kobayashi wrote @file{hex-util.el}, for operating on hexadecimal 582Shuhei Kobayashi wrote @file{hex-util.el}, for operating on hexadecimal
diff --git a/doc/emacs/building.texi b/doc/emacs/building.texi
index cca9e441ed4..ac62e2d9652 100644
--- a/doc/emacs/building.texi
+++ b/doc/emacs/building.texi
@@ -1251,7 +1251,7 @@ screen Emacs frame.
1251In all-stop mode, whenever your program stops, @emph{all} threads of 1251In all-stop mode, whenever your program stops, @emph{all} threads of
1252execution stop. Likewise, whenever you restart the program, all 1252execution stop. Likewise, whenever you restart the program, all
1253threads start executing. @xref{All-Stop Mode, , All-Stop Mode, gdb, 1253threads start executing. @xref{All-Stop Mode, , All-Stop Mode, gdb,
1254The GNU debugger}. You can enable this behaviour in Emacs by setting 1254The GNU debugger}. You can enable this behavior in Emacs by setting
1255@code{gdb-non-stop-setting} to @code{nil} before starting a debugging 1255@code{gdb-non-stop-setting} to @code{nil} before starting a debugging
1256session. 1256session.
1257 1257
diff --git a/doc/emacs/custom.texi b/doc/emacs/custom.texi
index fd680576b4e..5b98216369d 100644
--- a/doc/emacs/custom.texi
+++ b/doc/emacs/custom.texi
@@ -82,7 +82,7 @@ under it. It looks like this, in part:
82@group 82@group
83/- Emacs group: Customization of the One True Editor. -------------\ 83/- Emacs group: Customization of the One True Editor. -------------\
84 [State]: visible group members are all at standard values. 84 [State]: visible group members are all at standard values.
85 85
86 See also [Manual]. 86 See also [Manual].
87 87
88[Editing] : Basic text editing facilities. 88[Editing] : Basic text editing facilities.
@@ -547,7 +547,7 @@ such collections from one computer to another.
547 To define a Custom theme, use @kbd{M-x customize-create-theme}, 547 To define a Custom theme, use @kbd{M-x customize-create-theme},
548which brings up a buffer named @samp{*New Custom Theme*}. At the top 548which brings up a buffer named @samp{*New Custom Theme*}. At the top
549of the buffer is an editable field where you can specify the name of 549of the buffer is an editable field where you can specify the name of
550the theme. Click on the button labelled @samp{Insert Variable} to add 550the theme. Click on the button labeled @samp{Insert Variable} to add
551a variable to the theme, and click on @samp{Insert Face} to add a 551a variable to the theme, and click on @samp{Insert Face} to add a
552face. You can edit these values in the @samp{*New Custom Theme*} 552face. You can edit these values in the @samp{*New Custom Theme*}
553buffer like in an ordinary Customize buffer. To remove an option from 553buffer like in an ordinary Customize buffer. To remove an option from
@@ -1068,7 +1068,7 @@ other context has no special meaning.
1068well as the major modes; in fact, you can use it more than once, first 1068well as the major modes; in fact, you can use it more than once, first
1069to set the major mode and then to enable minor modes which are 1069to set the major mode and then to enable minor modes which are
1070specific to particular buffers. Using @code{mode} for minor modes 1070specific to particular buffers. Using @code{mode} for minor modes
1071is deprecated, though---instead, use @code{eval: (minor-mode 1)}. 1071is deprecated, though---instead, use @code{eval: (minor-mode 1)}.
1072 1072
1073 Often, however, it is a mistake to enable minor modes in file local 1073 Often, however, it is a mistake to enable minor modes in file local
1074variables. Most minor modes, like Auto Fill mode, represent individual user 1074variables. Most minor modes, like Auto Fill mode, represent individual user
@@ -1646,7 +1646,7 @@ ways to use these modifiers; the key labeled @key{Alt} on most
1646keyboards usually issues the @key{Meta} modifier, not @key{Alt}. The 1646keyboards usually issues the @key{Meta} modifier, not @key{Alt}. The
1647standard key bindings in Emacs do not include any characters with 1647standard key bindings in Emacs do not include any characters with
1648these modifiers. However, you can customize Emacs to assign meanings 1648these modifiers. However, you can customize Emacs to assign meanings
1649to them. The modifier bits are labelled as @samp{s-}, @samp{H-} and 1649to them. The modifier bits are labeled as @samp{s-}, @samp{H-} and
1650@samp{A-} respectively. 1650@samp{A-} respectively.
1651 1651
1652 Even if your keyboard lacks these additional modifier keys, you can 1652 Even if your keyboard lacks these additional modifier keys, you can
diff --git a/doc/emacs/killing.texi b/doc/emacs/killing.texi
index 6237b00c2ee..1443ad019bb 100644
--- a/doc/emacs/killing.texi
+++ b/doc/emacs/killing.texi
@@ -733,7 +733,7 @@ insert rectangles, and commands to make blank rectangles.
733@findex delete-rectangle 733@findex delete-rectangle
734 There are two ways to erase the text in a rectangle: @kbd{C-x r d} 734 There are two ways to erase the text in a rectangle: @kbd{C-x r d}
735(@code{delete-rectangle}) to delete the text outright, or @kbd{C-x r 735(@code{delete-rectangle}) to delete the text outright, or @kbd{C-x r
736k} (@code{kill-rectangle}) to remove the text and and save it as the 736k} (@code{kill-rectangle}) to remove the text and save it as the
737@dfn{last killed rectangle}. In both cases, erasing the 737@dfn{last killed rectangle}. In both cases, erasing the
738region-rectangle is like erasing the specified text on each line of 738region-rectangle is like erasing the specified text on each line of
739the rectangle; if there is any following text on the line, it moves 739the rectangle; if there is any following text on the line, it moves
diff --git a/doc/emacs/macos.texi b/doc/emacs/macos.texi
index 5a97fa8460b..3e1e67fecd8 100644
--- a/doc/emacs/macos.texi
+++ b/doc/emacs/macos.texi
@@ -120,7 +120,7 @@ Useful in this context is the listing of all faces obtained by @key{M-x}
120 120
121@subsection Open files by dragging to an Emacs window 121@subsection Open files by dragging to an Emacs window
122 122
123The default behaviour when a user drags files from another application 123The default behavior when a user drags files from another application
124into an Emacs frame is to insert the contents of all the dragged files 124into an Emacs frame is to insert the contents of all the dragged files
125into the current buffer. To remap the @code{ns-drag-file} event to 125into the current buffer. To remap the @code{ns-drag-file} event to
126open the dragged files in the current frame use the following line: 126open the dragged files in the current frame use the following line:
diff --git a/doc/emacs/misc.texi b/doc/emacs/misc.texi
index d7639b3b665..714e7f3441c 100644
--- a/doc/emacs/misc.texi
+++ b/doc/emacs/misc.texi
@@ -236,7 +236,7 @@ for @var{regexp}.
236@cindex DVI file 236@cindex DVI file
237@cindex PDF file 237@cindex PDF file
238@cindex PS file 238@cindex PS file
239@cindex Postscript file 239@cindex PostScript file
240@cindex OpenDocument file 240@cindex OpenDocument file
241@cindex Microsoft Office file 241@cindex Microsoft Office file
242@cindex DocView mode 242@cindex DocView mode
@@ -244,7 +244,7 @@ for @var{regexp}.
244@cindex document viewer (DocView) 244@cindex document viewer (DocView)
245@findex doc-view-mode 245@findex doc-view-mode
246 246
247DocView mode (@code{doc-view-mode}) is a viewer for DVI, Postscript 247DocView mode (@code{doc-view-mode}) is a viewer for DVI, PostScript
248(PS), PDF, OpenDocument, and Microsoft Office documents. It provides 248(PS), PDF, OpenDocument, and Microsoft Office documents. It provides
249features such as slicing, zooming, and searching inside documents. It 249features such as slicing, zooming, and searching inside documents. It
250works by converting the document to a set of images using the 250works by converting the document to a set of images using the
@@ -257,16 +257,16 @@ displaying those images.
257@findex doc-view-toggle-display 257@findex doc-view-toggle-display
258@findex doc-view-toggle-display 258@findex doc-view-toggle-display
259@cindex doc-view-minor-mode 259@cindex doc-view-minor-mode
260 When you visit a document file with the exception of Postscript 260 When you visit a document file with the exception of PostScript
261files, Emacs automatically switches to DocView mode if possible 261files, Emacs automatically switches to DocView mode if possible
262@footnote{The needed external tools for this document type have to be 262@footnote{The needed external tools for this document type have to be
263available, emacs needs to run in a graphical frame, and PNG image 263available, emacs needs to run in a graphical frame, and PNG image
264support has to be compiled into emacs. If any of these requirements 264support has to be compiled into emacs. If any of these requirements
265is not fulfilled, DocView falls back to an appropriate mode.}. When 265is not fulfilled, DocView falls back to an appropriate mode.}. When
266you visit a Postscript file, Emacs switches to PS mode, a major mode 266you visit a PostScript file, Emacs switches to PS mode, a major mode
267for editing Postscript files as text; however, it also enables DocView 267for editing PostScript files as text; however, it also enables DocView
268minor mode, so you can type @kbd{C-c C-c} to view the document with 268minor mode, so you can type @kbd{C-c C-c} to view the document with
269DocView. (PDF and DVI files, unlike Postscript files, are not usually 269DocView. (PDF and DVI files, unlike PostScript files, are not usually
270human-editable.) In either case, repeating @kbd{C-c C-c} 270human-editable.) In either case, repeating @kbd{C-c C-c}
271(@code{doc-view-toggle-display}) toggles between DocView and the file 271(@code{doc-view-toggle-display}) toggles between DocView and the file
272text. 272text.
diff --git a/doc/emacs/modes.texi b/doc/emacs/modes.texi
index d82423a73b4..5a786be62cf 100644
--- a/doc/emacs/modes.texi
+++ b/doc/emacs/modes.texi
@@ -368,7 +368,7 @@ compares the text at the start of the buffer to the variable
368@code{magic-mode-alist}, described above, except that is consulted 368@code{magic-mode-alist}, described above, except that is consulted
369only after @code{auto-mode-alist}. By default, 369only after @code{auto-mode-alist}. By default,
370@code{magic-fallback-mode-alist} contains forms that check for image 370@code{magic-fallback-mode-alist} contains forms that check for image
371files, HTML/XML/SGML files, and Postscript files. 371files, HTML/XML/SGML files, and PostScript files.
372 372
373@vindex major-mode 373@vindex major-mode
374 Once a major mode is chosen, Emacs sets the value of the variable 374 Once a major mode is chosen, Emacs sets the value of the variable
diff --git a/doc/emacs/msdog.texi b/doc/emacs/msdog.texi
index 533872ddf61..bbaf31ade85 100644
--- a/doc/emacs/msdog.texi
+++ b/doc/emacs/msdog.texi
@@ -322,7 +322,7 @@ default value is @code{(links uid gid)} i.e.@: all the 3 optional
322attributes are displayed. 322attributes are displayed.
323 323
324@vindex ls-lisp-emulation 324@vindex ls-lisp-emulation
325 The variable @code{ls-lisp-emulation} controls the flavour of the 325 The variable @code{ls-lisp-emulation} controls the flavor of the
326@code{ls} emulation by setting the defaults for the 3 options 326@code{ls} emulation by setting the defaults for the 3 options
327described above: @code{ls-lisp-ignore-case}, 327described above: @code{ls-lisp-ignore-case},
328@code{ls-lisp-dirs-first}, and @code{ls-lisp-verbosity}. The value of 328@code{ls-lisp-dirs-first}, and @code{ls-lisp-verbosity}. The value of
@@ -868,7 +868,7 @@ and @code{uniscribe} font backends are supported on Windows. The
868@code{gdi} font backend is available on all versions of Windows, and 868@code{gdi} font backend is available on all versions of Windows, and
869supports all fonts that are natively supported by Windows. The 869supports all fonts that are natively supported by Windows. The
870@code{uniscribe} font backend is available on Windows 2000 and later, 870@code{uniscribe} font backend is available on Windows 2000 and later,
871and supports Truetype and Opentype fonts. Some languages requiring 871and supports TrueType and OpenType fonts. Some languages requiring
872complex layout can only be properly supported by the uniscribe 872complex layout can only be properly supported by the uniscribe
873backend. By default, both backends are enabled if supported, with 873backend. By default, both backends are enabled if supported, with
874@code{uniscribe} taking priority over @code{gdi}. 874@code{uniscribe} taking priority over @code{gdi}.
@@ -914,7 +914,7 @@ as a fallback with the font family left unspecified.
914@vindex w32-charset-info-alist 914@vindex w32-charset-info-alist
915@item registry 915@item registry
916Specifies the character set registry that the font is 916Specifies the character set registry that the font is
917expected to cover. Most Truetype and Opentype fonts will be unicode fonts 917expected to cover. Most TrueType and OpenType fonts will be unicode fonts
918that cover several national character sets, but you can narrow down the 918that cover several national character sets, but you can narrow down the
919selection of fonts to those that support a particular character set by 919selection of fonts to those that support a particular character set by
920using a specific registry from @code{w32-charset-info-alist} here. 920using a specific registry from @code{w32-charset-info-alist} here.
diff --git a/doc/emacs/regs.texi b/doc/emacs/regs.texi
index 41a807375a9..f7fd52bd28d 100644
--- a/doc/emacs/regs.texi
+++ b/doc/emacs/regs.texi
@@ -145,7 +145,7 @@ rectangle) (@code{insert-register}).
145 145
146 The @kbd{C-x r i @var{r}} (@code{insert-register}) command, 146 The @kbd{C-x r i @var{r}} (@code{insert-register}) command,
147previously documented in @ref{Text Registers}, inserts a rectangle 147previously documented in @ref{Text Registers}, inserts a rectangle
148rather than a a text string, if the register contains a rectangle. 148rather than a text string, if the register contains a rectangle.
149 149
150@node Configuration Registers 150@node Configuration Registers
151@section Saving Window Configurations in Registers 151@section Saving Window Configurations in Registers
@@ -278,7 +278,7 @@ you can use it to edit your bookmark definitions or annotate the
278bookmarks. Type @kbd{C-h m} in the bookmark buffer for more 278bookmarks. Type @kbd{C-h m} in the bookmark buffer for more
279information about its special editing commands. 279information about its special editing commands.
280 280
281 When you kill Emacs, Emacs offers to save your bookmark values, if 281 When you kill Emacs, Emacs saves your bookmarks, if
282you have changed any bookmark values. You can also save the bookmarks 282you have changed any bookmark values. You can also save the bookmarks
283at any time with the @kbd{M-x bookmark-save} command. Bookmarks are 283at any time with the @kbd{M-x bookmark-save} command. Bookmarks are
284saved to the file @file{~/.emacs.d/bookmarks} (for compatibility with 284saved to the file @file{~/.emacs.d/bookmarks} (for compatibility with
@@ -290,9 +290,10 @@ persist from one Emacs session to the next.
290@vindex bookmark-save-flag 290@vindex bookmark-save-flag
291 If you set the variable @code{bookmark-save-flag} to 1, each command 291 If you set the variable @code{bookmark-save-flag} to 1, each command
292that sets a bookmark will also save your bookmarks; this way, you 292that sets a bookmark will also save your bookmarks; this way, you
293don't lose any bookmark values even if Emacs crashes. (The value, if 293don't lose any bookmark values even if Emacs crashes. The value, if
294a number, says how many bookmark modifications should go by between 294a number, says how many bookmark modifications should go by between
295saving.) 295saving. If you set this variable to @code{nil}, Emacs only
296saves bookmarks if you explicitly use @kbd{M-x bookmark-save}.
296 297
297@vindex bookmark-search-size 298@vindex bookmark-search-size
298 Bookmark position values are saved with surrounding context, so that 299 Bookmark position values are saved with surrounding context, so that
diff --git a/doc/emacs/search.texi b/doc/emacs/search.texi
index 0b68373d47c..c6747042df5 100644
--- a/doc/emacs/search.texi
+++ b/doc/emacs/search.texi
@@ -309,7 +309,7 @@ search remains case-insensitive.
309@findex isearch-yank-char 309@findex isearch-yank-char
310 @kbd{C-M-w} (@code{isearch-del-char}) deletes the last character 310 @kbd{C-M-w} (@code{isearch-del-char}) deletes the last character
311from the search string, and @kbd{C-M-y} (@code{isearch-yank-char}) 311from the search string, and @kbd{C-M-y} (@code{isearch-yank-char})
312appends the character after point to the the search string. An 312appends the character after point to the search string. An
313alternative method to add the character after point is to enter the 313alternative method to add the character after point is to enter the
314minibuffer with @kbd{M-e} (@pxref{Repeat Isearch}) and type @kbd{C-f} 314minibuffer with @kbd{M-e} (@pxref{Repeat Isearch}) and type @kbd{C-f}
315at the end of the search string in the minibuffer. 315at the end of the search string in the minibuffer.
diff --git a/doc/emacs/trouble.texi b/doc/emacs/trouble.texi
index ec159af6f84..ae7550d0fae 100644
--- a/doc/emacs/trouble.texi
+++ b/doc/emacs/trouble.texi
@@ -161,7 +161,7 @@ in the Emacs distribution. Type @kbd{C-h C-f} to read the FAQ; type
161@cindex @key{BACKSPACE} vs @key{DEL} 161@cindex @key{BACKSPACE} vs @key{DEL}
162@cindex usual erasure key 162@cindex usual erasure key
163 163
164 Every keyboard has a large key, usually labelled @key{Backspace}, 164 Every keyboard has a large key, usually labeled @key{Backspace},
165which is ordinarily used to erase the last character that you typed. 165which is ordinarily used to erase the last character that you typed.
166We call this key @dfn{the usual erasure key}. In Emacs, it is 166We call this key @dfn{the usual erasure key}. In Emacs, it is
167supposed to be equivalent to @key{DEL}. 167supposed to be equivalent to @key{DEL}.
diff --git a/doc/lispintro/ChangeLog b/doc/lispintro/ChangeLog
index 9d3894c38fc..bdcd9e9aea8 100644
--- a/doc/lispintro/ChangeLog
+++ b/doc/lispintro/ChangeLog
@@ -1,3 +1,7 @@
12011-11-16 Juanma Barranquero <lekktu@gmail.com>
2
3 * emacs-lisp-intro.texi (etags): Fix typo.
4
12011-03-07 Chong Yidong <cyd@stupidchicken.com> 52011-03-07 Chong Yidong <cyd@stupidchicken.com>
2 6
3 * Version 23.3 released. 7 * Version 23.3 released.
diff --git a/doc/lispintro/emacs-lisp-intro.texi b/doc/lispintro/emacs-lisp-intro.texi
index 11ceea19eef..ef04626e95f 100644
--- a/doc/lispintro/emacs-lisp-intro.texi
+++ b/doc/lispintro/emacs-lisp-intro.texi
@@ -11,7 +11,7 @@
11@c --------- 11@c ---------
12@c <<<< For hard copy printing, this file is now 12@c <<<< For hard copy printing, this file is now
13@c set for smallbook, which works for all sizes 13@c set for smallbook, which works for all sizes
14@c of paper, and with Postscript figures >>>> 14@c of paper, and with PostScript figures >>>>
15@set smallbook 15@set smallbook
16@ifset smallbook 16@ifset smallbook
17@smallbook 17@smallbook
@@ -357,7 +357,7 @@ every node in every chapter.
357* Conclusion:: Now you have the basics. 357* Conclusion:: Now you have the basics.
358* the-the:: An appendix: how to find reduplicated words. 358* the-the:: An appendix: how to find reduplicated words.
359* Kill Ring:: An appendix: how the kill ring works. 359* Kill Ring:: An appendix: how the kill ring works.
360* Full Graph:: How to create a graph with labelled axes. 360* Full Graph:: How to create a graph with labeled axes.
361* Free Software and Free Manuals:: 361* Free Software and Free Manuals::
362* GNU Free Documentation License:: 362* GNU Free Documentation License::
363* Index:: 363* Index::
@@ -793,9 +793,9 @@ The @code{current-kill} Function
793* Digression concerning error:: How to mislead humans, but not computers. 793* Digression concerning error:: How to mislead humans, but not computers.
794* Determining the Element:: 794* Determining the Element::
795 795
796A Graph with Labelled Axes 796A Graph with Labeled Axes
797 797
798* Labelled Example:: 798* Labeled Example::
799* print-graph Varlist:: @code{let} expression in @code{print-graph}. 799* print-graph Varlist:: @code{let} expression in @code{print-graph}.
800* print-Y-axis:: Print a label for the vertical axis. 800* print-Y-axis:: Print a label for the vertical axis.
801* print-X-axis:: Print a horizontal label. 801* print-X-axis:: Print a horizontal label.
@@ -1023,7 +1023,7 @@ the command in parentheses, like this: @kbd{M-C-\}
1023invoke the command; this is called @dfn{rebinding}. @xref{Keymaps, , 1023invoke the command; this is called @dfn{rebinding}. @xref{Keymaps, ,
1024Keymaps}.) The abbreviation @kbd{M-C-\} means that you type your 1024Keymaps}.) The abbreviation @kbd{M-C-\} means that you type your
1025@key{META} key, @key{CTRL} key and @key{\} key all at the same time. 1025@key{META} key, @key{CTRL} key and @key{\} key all at the same time.
1026(On many modern keyboards the @key{META} key is labelled 1026(On many modern keyboards the @key{META} key is labeled
1027@key{ALT}.) 1027@key{ALT}.)
1028Sometimes a combination like this is called a keychord, since it is 1028Sometimes a combination like this is called a keychord, since it is
1029similar to the way you play a chord on a piano. If your keyboard does 1029similar to the way you play a chord on a piano. If your keyboard does
@@ -1031,7 +1031,7 @@ not have a @key{META} key, the @key{ESC} key prefix is used in place
1031of it. In this case, @kbd{M-C-\} means that you press and release your 1031of it. In this case, @kbd{M-C-\} means that you press and release your
1032@key{ESC} key and then type the @key{CTRL} key and the @key{\} key at 1032@key{ESC} key and then type the @key{CTRL} key and the @key{\} key at
1033the same time. But usually @kbd{M-C-\} means press the @key{CTRL} key 1033the same time. But usually @kbd{M-C-\} means press the @key{CTRL} key
1034along with the key that is labelled @key{ALT} and, at the same time, 1034along with the key that is labeled @key{ALT} and, at the same time,
1035press the @key{\} key. 1035press the @key{\} key.
1036 1036
1037In addition to typing a lone keychord, you can prefix what you type 1037In addition to typing a lone keychord, you can prefix what you type
@@ -4749,7 +4749,7 @@ type in the name of the function whose source code you want to see,
4749such as @code{mark-whole-buffer}, and then type @key{RET}. Emacs will 4749such as @code{mark-whole-buffer}, and then type @key{RET}. Emacs will
4750switch buffers and display the source code for the function on your 4750switch buffers and display the source code for the function on your
4751screen. To switch back to your current buffer, type @kbd{C-x b 4751screen. To switch back to your current buffer, type @kbd{C-x b
4752@key{RET}}. (On some keyboards, the @key{META} key is labelled 4752@key{RET}}. (On some keyboards, the @key{META} key is labeled
4753@key{ALT}.) 4753@key{ALT}.)
4754 4754
4755@c !!! 22.1.1 tags table location in this paragraph 4755@c !!! 22.1.1 tags table location in this paragraph
@@ -8200,7 +8200,7 @@ The command \\[yank] can retrieve it from there. @dots{} "
8200 ;; it will be set in an error 8200 ;; it will be set in an error
8201 (setq this-command 'kill-region) 8201 (setq this-command 'kill-region)
8202 ;; Finally, in the then-part, send a message if you may copy 8202 ;; Finally, in the then-part, send a message if you may copy
8203 ;; the text to the kill ring without signally an error, but 8203 ;; the text to the kill ring without signaling an error, but
8204 ;; don't if you may not. 8204 ;; don't if you may not.
8205@end group 8205@end group
8206@group 8206@group
@@ -13656,7 +13656,7 @@ list of supported languages.
13656 13656
13657The @code{etags} program handles more than 20 languages, including 13657The @code{etags} program handles more than 20 languages, including
13658Emacs Lisp, Common Lisp, Scheme, C, C++, Ada, Fortran, HTML, Java, 13658Emacs Lisp, Common Lisp, Scheme, C, C++, Ada, Fortran, HTML, Java,
13659LaTeX, Pascal, Perl, Postscript, Python, TeX, Texinfo, makefiles, and 13659LaTeX, Pascal, Perl, PostScript, Python, TeX, Texinfo, makefiles, and
13660most assemblers. The program has no switches for specifying the 13660most assemblers. The program has no switches for specifying the
13661language; it recognizes the language in an input file according to its 13661language; it recognizes the language in an input file according to its
13662file name and contents. 13662file name and contents.
@@ -16962,7 +16962,7 @@ For this reason, I have written enhancements to the basic
16962@code{print-graph-body} function that automatically print labels for 16962@code{print-graph-body} function that automatically print labels for
16963the horizontal and vertical axes. Since the label printing functions 16963the horizontal and vertical axes. Since the label printing functions
16964do not contain much new material, I have placed their description in 16964do not contain much new material, I have placed their description in
16965an appendix. @xref{Full Graph, , A Graph with Labelled Axes}. 16965an appendix. @xref{Full Graph, , A Graph with Labeled Axes}.
16966 16966
16967@node Line Graph Exercise, , Printed Axes, Readying a Graph 16967@node Line Graph Exercise, , Printed Axes, Readying a Graph
16968@section Exercise 16968@section Exercise
@@ -19447,7 +19447,7 @@ whether the kill ring is full or empty. This is an act of
19447exploration. 19447exploration.
19448 19448
19449From the human point of view, the act of exploration and discovery is 19449From the human point of view, the act of exploration and discovery is
19450not necessarily an error, and therefore should not be labelled as one, 19450not necessarily an error, and therefore should not be labeled as one,
19451even in the bowels of a computer. As it is, the code in Emacs implies 19451even in the bowels of a computer. As it is, the code in Emacs implies
19452that a human who is acting virtuously, by exploring his or her 19452that a human who is acting virtuously, by exploring his or her
19453environment, is making an error. This is bad. Even though the computer 19453environment, is making an error. This is bad. Even though the computer
@@ -19760,25 +19760,25 @@ as @code{kill-ring-yank-pointer} do not use this library, possibly
19760because they were written earlier. 19760because they were written earlier.
19761 19761
19762@node Full Graph, Free Software and Free Manuals, Kill Ring, Top 19762@node Full Graph, Free Software and Free Manuals, Kill Ring, Top
19763@appendix A Graph with Labelled Axes 19763@appendix A Graph with Labeled Axes
19764 19764
19765Printed axes help you understand a graph. They convey scale. In an 19765Printed axes help you understand a graph. They convey scale. In an
19766earlier chapter (@pxref{Readying a Graph, , Readying a Graph}), we 19766earlier chapter (@pxref{Readying a Graph, , Readying a Graph}), we
19767wrote the code to print the body of a graph. Here we write the code 19767wrote the code to print the body of a graph. Here we write the code
19768for printing and labelling vertical and horizontal axes, along with the 19768for printing and labeling vertical and horizontal axes, along with the
19769body itself. 19769body itself.
19770 19770
19771@menu 19771@menu
19772* Labelled Example:: 19772* Labeled Example::
19773* print-graph Varlist:: @code{let} expression in @code{print-graph}. 19773* print-graph Varlist:: @code{let} expression in @code{print-graph}.
19774* print-Y-axis:: Print a label for the vertical axis. 19774* print-Y-axis:: Print a label for the vertical axis.
19775* print-X-axis:: Print a horizontal label. 19775* print-X-axis:: Print a horizontal label.
19776* Print Whole Graph:: The function to print a complete graph. 19776* Print Whole Graph:: The function to print a complete graph.
19777@end menu 19777@end menu
19778 19778
19779@node Labelled Example, print-graph Varlist, Full Graph, Full Graph 19779@node Labeled Example, print-graph Varlist, Full Graph, Full Graph
19780@ifnottex 19780@ifnottex
19781@unnumberedsec Labelled Example Graph 19781@unnumberedsec Labeled Example Graph
19782@end ifnottex 19782@end ifnottex
19783 19783
19784Since insertions fill a buffer to the right and below point, the new 19784Since insertions fill a buffer to the right and below point, the new
@@ -19821,9 +19821,9 @@ Here is an example of how a finished graph should look:
19821@end smallexample 19821@end smallexample
19822 19822
19823@noindent 19823@noindent
19824In this graph, both the vertical and the horizontal axes are labelled 19824In this graph, both the vertical and the horizontal axes are labeled
19825with numbers. However, in some graphs, the horizontal axis is time 19825with numbers. However, in some graphs, the horizontal axis is time
19826and would be better labelled with months, like this: 19826and would be better labeled with months, like this:
19827 19827
19828@smallexample 19828@smallexample
19829@group 19829@group
@@ -19838,9 +19838,9 @@ and would be better labelled with months, like this:
19838@end smallexample 19838@end smallexample
19839 19839
19840Indeed, with a little thought, we can easily come up with a variety of 19840Indeed, with a little thought, we can easily come up with a variety of
19841vertical and horizontal labelling schemes. Our task could become 19841vertical and horizontal labeling schemes. Our task could become
19842complicated. But complications breed confusion. Rather than permit 19842complicated. But complications breed confusion. Rather than permit
19843this, it is better choose a simple labelling scheme for our first 19843this, it is better choose a simple labeling scheme for our first
19844effort, and to modify or replace it later. 19844effort, and to modify or replace it later.
19845 19845
19846@need 1200 19846@need 1200
@@ -19864,7 +19864,7 @@ These considerations suggest the following outline for the
19864We can work on each part of the @code{print-graph} function definition 19864We can work on each part of the @code{print-graph} function definition
19865in turn. 19865in turn.
19866 19866
19867@node print-graph Varlist, print-Y-axis, Labelled Example, Full Graph 19867@node print-graph Varlist, print-Y-axis, Labeled Example, Full Graph
19868@comment node-name, next, previous, up 19868@comment node-name, next, previous, up
19869@appendixsec The @code{print-graph} Varlist 19869@appendixsec The @code{print-graph} Varlist
19870@cindex @code{print-graph} varlist 19870@cindex @code{print-graph} varlist
@@ -20391,7 +20391,7 @@ blank spaces and also separated according to the value of the variable
20391The value of the variable @code{X-axis-label-spacing} should itself be 20391The value of the variable @code{X-axis-label-spacing} should itself be
20392measured in units of @code{symbol-width}, since you may want to change 20392measured in units of @code{symbol-width}, since you may want to change
20393the width of the symbols that you are using to print the body of the 20393the width of the symbols that you are using to print the body of the
20394graph without changing the ways the graph is labelled. 20394graph without changing the ways the graph is labeled.
20395 20395
20396@menu 20396@menu
20397* Similarities differences:: Much like @code{print-Y-axis}, but not exactly. 20397* Similarities differences:: Much like @code{print-Y-axis}, but not exactly.
@@ -20722,7 +20722,7 @@ Emacs will print the horizontal axis like this:
20722Now we are nearly ready to print the whole graph. 20722Now we are nearly ready to print the whole graph.
20723 20723
20724The function to print the graph with the proper labels follows the 20724The function to print the graph with the proper labels follows the
20725outline we created earlier (@pxref{Full Graph, , A Graph with Labelled 20725outline we created earlier (@pxref{Full Graph, , A Graph with Labeled
20726Axes}), but with additions. 20726Axes}), but with additions.
20727 20727
20728@need 1250 20728@need 1250
@@ -20857,7 +20857,7 @@ Finally, the code for the @code{print-graph} function:
20857;;; @r{Final version.} 20857;;; @r{Final version.}
20858(defun print-graph 20858(defun print-graph
20859 (numbers-list &optional vertical-step) 20859 (numbers-list &optional vertical-step)
20860 "Print labelled bar graph of the NUMBERS-LIST. 20860 "Print labeled bar graph of the NUMBERS-LIST.
20861The numbers-list consists of the Y-axis values. 20861The numbers-list consists of the Y-axis values.
20862@end group 20862@end group
20863 20863
@@ -21478,7 +21478,7 @@ each column."
21478@group 21478@group
21479(defun print-graph 21479(defun print-graph
21480 (numbers-list &optional vertical-step horizontal-step) 21480 (numbers-list &optional vertical-step horizontal-step)
21481 "Print labelled bar graph of the NUMBERS-LIST. 21481 "Print labeled bar graph of the NUMBERS-LIST.
21482The numbers-list consists of the Y-axis values. 21482The numbers-list consists of the Y-axis values.
21483@end group 21483@end group
21484 21484
@@ -21979,7 +21979,7 @@ each column."
21979@group 21979@group
21980(defun print-graph 21980(defun print-graph
21981 (numbers-list &optional vertical-step horizontal-step) 21981 (numbers-list &optional vertical-step horizontal-step)
21982 "Print labelled bar graph of the NUMBERS-LIST. 21982 "Print labeled bar graph of the NUMBERS-LIST.
21983The numbers-list consists of the Y-axis values. 21983The numbers-list consists of the Y-axis values.
21984@end group 21984@end group
21985 21985
@@ -22275,4 +22275,3 @@ airplane.
22275@c @end iftex 22275@c @end iftex
22276 22276
22277@bye 22277@bye
22278
diff --git a/doc/lispref/ChangeLog b/doc/lispref/ChangeLog
index cbe016ac96d..0fa50492481 100644
--- a/doc/lispref/ChangeLog
+++ b/doc/lispref/ChangeLog
@@ -1,3 +1,36 @@
12011-11-17 Martin Rudalics <rudalics@gmx.at>
2
3 * windows.texi (Resizing Windows, Splitting Windows)
4 (Deleting Windows): Use term window-combination-resize instead
5 of window-splits.
6
72011-11-16 Martin Rudalics <rudalics@gmx.at>
8
9 * windows.texi (Resizing Windows, Splitting Windows): Rename
10 occurrences of window-nest to window-combination-limit.
11
122011-11-14 Juanma Barranquero <lekktu@gmail.com>
13
14 * intro.texi (Lisp History): Fix typo.
15
162011-11-12 Martin Rudalics <rudalics@gmx.at>
17
18 * windows.texi (Splitting Windows, Deleting Windows): Remove
19 references to splits status of windows.
20
212011-11-10 Glenn Morris <rgm@gnu.org>
22
23 * buffers.texi (Read Only Buffers): Expand a bit on why
24 toggle-read-only should only be used interactively. (Bug#7292)
25
262011-11-09 Chong Yidong <cyd@gnu.org>
27
28 * windows.texi (Window Sizes): Document window-pixel-edges,
29 window-inside-pixel-edges, window-absolute-pixel-edges, and
30 window-inside-absolute-pixel-edges.
31 (Resizing Windows): shrink-window-if-larger-than-buffer works on
32 non-full-width windows.
33
12011-11-09 Martin Rudalics <rudalics@gmx.at> 342011-11-09 Martin Rudalics <rudalics@gmx.at>
2 35
3 * windows.texi (Resizing Windows): Rewrite documentation of 36 * windows.texi (Resizing Windows): Rewrite documentation of
@@ -1094,9 +1127,9 @@
1094 * commands.texi (Misc Events): Add cross-references to where 1127 * commands.texi (Misc Events): Add cross-references to where
1095 POSITION of a mouse event is described in detail. 1128 POSITION of a mouse event is described in detail.
1096 1129
10972010-08-08 Christoph <cschol2112@googlemail.com> 11302010-08-08 Christoph Scholtes <cschol2112@googlemail.com>
1098 1131
1099 * control.texi (Handling Errors) <error-message-string>: Fix arg name. 1132 * control.texi (Handling Errors) <error-message-string>: Fix arg name.
1100 1133
11012010-08-08 Juanma Barranquero <lekktu@gmail.com> 11342010-08-08 Juanma Barranquero <lekktu@gmail.com>
1102 1135
diff --git a/doc/lispref/buffers.texi b/doc/lispref/buffers.texi
index 816d0f9faa8..ee2ce2e2001 100644
--- a/doc/lispref/buffers.texi
+++ b/doc/lispref/buffers.texi
@@ -748,10 +748,11 @@ of the list (comparison is done with @code{eq}).
748 748
749@deffn Command toggle-read-only &optional arg 749@deffn Command toggle-read-only &optional arg
750This command toggles whether the current buffer is read-only. It is 750This command toggles whether the current buffer is read-only. It is
751intended for interactive use; do not use it in programs. At any given 751intended for interactive use; do not use it in programs (it may have
752point in a program, you should know whether you want the read-only flag 752side-effects, such as enabling View mode, and does not affect
753on or off; so you can set @code{buffer-read-only} explicitly to the 753read-only text properties). To change the read-only state of a buffer in
754proper value, @code{t} or @code{nil}. 754a program, explicitly set @code{buffer-read-only} to the proper value.
755To temporarily ignore a read-only state, bind @code{inhibit-read-only}.
755 756
756If @var{arg} is non-@code{nil}, it should be a raw prefix argument. 757If @var{arg} is non-@code{nil}, it should be a raw prefix argument.
757@code{toggle-read-only} sets @code{buffer-read-only} to @code{t} if 758@code{toggle-read-only} sets @code{buffer-read-only} to @code{t} if
diff --git a/doc/lispref/files.texi b/doc/lispref/files.texi
index 71b612c527d..86ecfd122ef 100644
--- a/doc/lispref/files.texi
+++ b/doc/lispref/files.texi
@@ -2827,7 +2827,7 @@ If @code{file-remote-p} returns the same identifier for two different
2827filenames, that means they are stored on the same file system and can 2827filenames, that means they are stored on the same file system and can
2828be accessed locally with respect to each other. This means, for 2828be accessed locally with respect to each other. This means, for
2829example, that it is possible to start a remote process accessing both 2829example, that it is possible to start a remote process accessing both
2830files at the same time. Implementors of file handlers need to ensure 2830files at the same time. Implementers of file handlers need to ensure
2831this principle is valid. 2831this principle is valid.
2832 2832
2833@var{identification} specifies which part of the identifier shall be 2833@var{identification} specifies which part of the identifier shall be
diff --git a/doc/lispref/frames.texi b/doc/lispref/frames.texi
index d9399e98a69..d2e86a77112 100644
--- a/doc/lispref/frames.texi
+++ b/doc/lispref/frames.texi
@@ -2414,7 +2414,7 @@ This function returns the ``vendor'' that provided the X server
2414software (as a string). Really this means whoever distributes the X 2414software (as a string). Really this means whoever distributes the X
2415server. 2415server.
2416 2416
2417When the developers of X labelled software distributors as 2417When the developers of X labeled software distributors as
2418``vendors,'' they showed their false assumption that no system could 2418``vendors,'' they showed their false assumption that no system could
2419ever be developed and distributed noncommercially. 2419ever be developed and distributed noncommercially.
2420@end defun 2420@end defun
@@ -2430,4 +2430,3 @@ This variable's value is @code{t} if no X window manager is in use.
2430The functions @code{x-pixel-width} and @code{x-pixel-height} return the 2430The functions @code{x-pixel-width} and @code{x-pixel-height} return the
2431width and height of an X Window frame, measured in pixels. 2431width and height of an X Window frame, measured in pixels.
2432@end ignore 2432@end ignore
2433
diff --git a/doc/lispref/internals.texi b/doc/lispref/internals.texi
index 5cdd983f40d..0168c564e34 100644
--- a/doc/lispref/internals.texi
+++ b/doc/lispref/internals.texi
@@ -887,7 +887,7 @@ known to be unchanged since the last complete redisplay.
887@item unchanged_modified 887@item unchanged_modified
888@itemx overlay_unchanged_modified 888@itemx overlay_unchanged_modified
889The values of @code{modiff} and @code{overlay_modiff}, respectively, 889The values of @code{modiff} and @code{overlay_modiff}, respectively,
890after the last compelete redisplay. If their current values match 890after the last complete redisplay. If their current values match
891@code{modiff} or @code{overlay_modiff}, that means 891@code{modiff} or @code{overlay_modiff}, that means
892@code{beg_unchanged} and @code{end_unchanged} contain no useful 892@code{beg_unchanged} and @code{end_unchanged} contain no useful
893information. 893information.
diff --git a/doc/lispref/intro.texi b/doc/lispref/intro.texi
index 7c070726023..44ac947fa99 100644
--- a/doc/lispref/intro.texi
+++ b/doc/lispref/intro.texi
@@ -101,7 +101,7 @@ for other purposes as well, such as writing editing commands.
101 Dozens of Lisp implementations have been built over the years, each 101 Dozens of Lisp implementations have been built over the years, each
102with its own idiosyncrasies. Many of them were inspired by Maclisp, 102with its own idiosyncrasies. Many of them were inspired by Maclisp,
103which was written in the 1960s at MIT's Project MAC. Eventually the 103which was written in the 1960s at MIT's Project MAC. Eventually the
104implementors of the descendants of Maclisp came together and developed a 104implementers of the descendants of Maclisp came together and developed a
105standard for Lisp systems, called Common Lisp. In the meantime, Gerry 105standard for Lisp systems, called Common Lisp. In the meantime, Gerry
106Sussman and Guy Steele at MIT developed a simplified but very powerful 106Sussman and Guy Steele at MIT developed a simplified but very powerful
107dialect of Lisp, called Scheme. 107dialect of Lisp, called Scheme.
diff --git a/doc/lispref/processes.texi b/doc/lispref/processes.texi
index d4f8ee9708b..51d91572d0e 100644
--- a/doc/lispref/processes.texi
+++ b/doc/lispref/processes.texi
@@ -420,7 +420,7 @@ remote files.
420Per default, this variable is always set to @code{t}, meaning that a 420Per default, this variable is always set to @code{t}, meaning that a
421call of @code{process-file} could potentially change any file on a 421call of @code{process-file} could potentially change any file on a
422remote host. When set to @code{nil}, a file handler could optimize 422remote host. When set to @code{nil}, a file handler could optimize
423its behaviour with respect to remote file attributes caching. 423its behavior with respect to remote file attributes caching.
424 424
425This variable should never be changed by @code{setq}. Instead of, it 425This variable should never be changed by @code{setq}. Instead of, it
426shall be set only by let-binding. 426shall be set only by let-binding.
diff --git a/doc/lispref/spellfile b/doc/lispref/spellfile
index b373d00bebf..e66dcc88f71 100644
--- a/doc/lispref/spellfile
+++ b/doc/lispref/spellfile
@@ -240,7 +240,7 @@ correct'
240counterintuitive 240counterintuitive
241cr 241cr
242creatable 242creatable
243customie 243customize
244deactivate 244deactivate
245deactivated 245deactivated
246deassigns 246deassigns
@@ -331,7 +331,6 @@ for'
331formfeed 331formfeed
332forms' 332forms'
333forw 333forw
334forwa
335found' 334found'
336frob 335frob
337from' 336from'
diff --git a/doc/lispref/two-volume-cross-refs.txt b/doc/lispref/two-volume-cross-refs.txt
index 99b48d342ab..53a9f58cd01 100644
--- a/doc/lispref/two-volume-cross-refs.txt
+++ b/doc/lispref/two-volume-cross-refs.txt
@@ -87,7 +87,7 @@ to create elisp2-aux-vol-added
87insert elisp2-aux-vol-added into vol1.aux (append) 87insert elisp2-aux-vol-added into vol1.aux (append)
88insert elisp1-aux-vol-added into vol2.aux (prepend) 88insert elisp1-aux-vol-added into vol2.aux (prepend)
89 89
90(so you dont have to do it again) 90(so you don't have to do it again)
91% cp vol1.aux elisp1-aux-ready 91% cp vol1.aux elisp1-aux-ready
92% cp vol2.aux elisp2-aux-ready 92% cp vol2.aux elisp2-aux-ready
93 93
@@ -120,7 +120,7 @@ Be sure that .fn file has no blank lines.
120% texindex vol1.fn 120% texindex vol1.fn
121% texindex vol2.fn 121% texindex vol2.fn
122 122
123(so you dont have to do it again) 123(so you don't have to do it again)
124% cp vol1.fns elisp1-fns-2vol-ready 124% cp vol1.fns elisp1-fns-2vol-ready
125% cp vol2.fns elisp2-fns-2vol-ready 125% cp vol2.fns elisp2-fns-2vol-ready
126 126
diff --git a/doc/lispref/windows.texi b/doc/lispref/windows.texi
index 52ac5a53900..8c99a06909b 100644
--- a/doc/lispref/windows.texi
+++ b/doc/lispref/windows.texi
@@ -375,13 +375,13 @@ Bars}). At the top of the window is an optional header line
375line (@pxref{Mode Line Format}). 375line (@pxref{Mode Line Format}).
376 376
377 Emacs provides several functions for finding the height and width of 377 Emacs provides several functions for finding the height and width of
378a window. Most of these functions report the values as integer 378a window. Except where noted, these heights and widths are reported
379multiples of the default character height and width. On a graphical 379as integer numbers of lines and columns respectively. On a graphical
380display, the actual screen size of this default height and width are 380display, each ``line'' and ``column'' actually corresponds to the
381those specified by the frame's default font. Hence, if the buffer 381height and width of a ``default'' character specified by the frame's
382contains text that is displayed in a different size, the reported 382default font. Thus, if a window is displaying text with a different
383height and width of the window may differ from the actual number of 383font or size, the reported height and width for that window may differ
384text lines or columns displayed in it. 384from the actual number of text lines or columns displayed within it.
385 385
386@cindex window height 386@cindex window height
387@cindex height of a window 387@cindex height of a window
@@ -534,6 +534,45 @@ can be resized in the desired direction. To determine that, use the
534function @code{window-resizable}. @xref{Resizing Windows}. 534function @code{window-resizable}. @xref{Resizing Windows}.
535@end defun 535@end defun
536 536
537 The following functions can be used to find a window's size and
538position in pixels. Though mostly useful on graphical displays, they
539can also be called on text-only terminals, where the screen area of
540each text character is taken to be ``one pixel''.
541
542@defun window-pixel-edges &optional window
543This function return a list of pixel coordinates for the edges of
544@var{window}. If @var{window} is omitted or @code{nil}, it defaults
545to the selected window.
546
547The return value has the form @code{(@var{left} @var{top} @var{right}
548@var{bottom})}. The list elements are, respectively, the X coordinate
549of the left window edge, the Y coordinate of the top edge, one more
550than the X coordinate of the right edge, and one more than the Y
551coordinate of the bottom edge. The origin coordinate @samp{(0,0)} is
552taken to be the top left corner of the frame's window area.
553
554These edge values include the space used by the window's scroll bar,
555margins, fringes, header line, and mode line, if any.
556@end defun
557
558@defun window-inside-pixel-edges &optional window
559This function is like @code{window-pixel-edges}, except that it
560returns the edge coordinates for the window's text area, rather than
561the edge coordinates for the window itself. @var{window} must specify
562a live window.
563@end defun
564
565@defun window-absolute-pixel-edges &optional window
566This function is like @code{window-pixel-edges}, except that it
567returns the edge coordinates relative to the top left corner of the
568display screen.
569@end defun
570
571@defun window-inside-absolute-pixel-edges &optional window
572This function is like @code{window-inside-pixel-edges}, except that it
573returns the edge coordinates relative to the top left corner of the
574display screen. @var{window} must specify a live window.
575@end defun
537 576
538@node Resizing Windows 577@node Resizing Windows
539@section Resizing Windows 578@section Resizing Windows
@@ -593,10 +632,11 @@ the window cannot be resized as demanded, an error is signaled.
593The optional argument @var{ignore} has the same meaning as for the 632The optional argument @var{ignore} has the same meaning as for the
594function @code{window-resizable} above. 633function @code{window-resizable} above.
595 634
596The choice of which window edge this function alters depends on the 635The choice of which window edges this function alters depends on the
597splitting and nesting status of the involved windows; in some cases, 636values of the option @code{window-combination-resize} and the
598it may alter both edges. @xref{Splitting Windows}. To resize by 637combination-limit status of the involved windows; in some cases, it may
599moving only the bottom or right edge of a window, use the function 638alter both edges. @xref{Splitting Windows}. To resize by moving only
639the bottom or right edge of a window, use the function
600@code{adjust-window-trailing-edge}, below. 640@code{adjust-window-trailing-edge}, below.
601@end defun 641@end defun
602 642
@@ -604,104 +644,85 @@ moving only the bottom or right edge of a window, use the function
604@c shrink-window, and shrink-window-horizontally are documented in the 644@c shrink-window, and shrink-window-horizontally are documented in the
605@c Emacs manual. They are not preferred for calling from Lisp. 645@c Emacs manual. They are not preferred for calling from Lisp.
606 646
607 The following function is useful for moving the line dividing two
608windows.
609
610@defun adjust-window-trailing-edge window delta &optional horizontal 647@defun adjust-window-trailing-edge window delta &optional horizontal
611This function moves @var{window}'s bottom edge by @var{delta} lines. 648This function moves @var{window}'s bottom edge by @var{delta} lines.
612Optional argument @var{horizontal} non-@code{nil} means to move 649If optional argument @var{horizontal} is non-@code{nil}, it instead
613@var{window}'s right edge by @var{delta} columns. The argument 650moves the right edge by @var{delta} columns. If @var{window} is
614@var{window} defaults to the selected window. 651@code{nil}, it defaults to the selected window.
615 652
616If @var{delta} is greater zero, this moves the edge downwards or to the 653A positive @var{delta} moves the edge downwards or to the right; a
617right. If @var{delta} is less than zero, this moves the edge upwards or 654negative @var{delta} moves it upwards or to the left. If the edge
618to the left. If the edge can't be moved by @var{delta} lines or columns, 655cannot be moved as far as specified by @var{delta}, this function
619it is moved as far as possible in the desired direction but no error is 656moves it as far as possible but does not signal a error.
620signaled.
621 657
622This function tries to resize windows adjacent to the edge that is 658This function tries to resize windows adjacent to the edge that is
623moved. Only if this is insufficient, it will also resize windows not 659moved. If this is not possible for some reason (e.g. if that adjacent
624adjacent to that edge. As a consequence, if you move an edge in one 660window is fixed-size), it may resize other windows.
625direction and back in the other direction by the same amount, the
626resulting window configuration will not be necessarily identical to the
627one before the first move. So if your intend to just resize
628@var{window}, you should not use this function but call
629@code{window-resize} (see above) instead.
630@end defun 661@end defun
631 662
663 The following commands resize windows in more specific ways. When
664called interactively, they act on the selected window.
665
632@deffn Command fit-window-to-buffer &optional window max-height min-height override 666@deffn Command fit-window-to-buffer &optional window max-height min-height override
633This command makes @var{window} the right height to display its 667This command adjusts the height of @var{window} to fit the text in it.
634contents exactly. The default for @var{window} is the selected window. 668It returns non-@code{nil} if it was able to resize @var{window}, and
635 669@code{nil} otherwise. If @var{window} is omitted or @code{nil}, it
636The optional argument @var{max-height} specifies the maximum total 670defaults to the selected window. Otherwise, it should be a live
637height the window is allowed to be; @code{nil} means use the maximum 671window.
638permissible height of a window on @var{window}'s frame. The optional 672
639argument @var{min-height} specifies the minimum total height for the 673The optional argument @var{max-height}, if non-@code{nil}, specifies
640window; @code{nil} means use @code{window-min-height}. All these height 674the maximum total height that this function can give @var{window}.
641values include the mode line and/or header line. 675The optional argument @var{min-height}, if no-@code{nil}, specifies
642 676the minimum total height that it can give, which overrides the
643If the optional argument @var{override} is non-@code{nil}, this means to 677variable @code{window-min-height}.
644ignore any restrictions imposed by @code{window-min-height} and 678
645@code{window-min-width} on the size of @var{window}. 679If the optional argument @var{override} is non-@code{nil}, this
646 680function ignores any size restrictions imposed by
647This function returns non-@code{nil} if it orderly resized @var{window}, 681@code{window-min-height} and @code{window-min-width}.
648and @code{nil} otherwise.
649@end deffn 682@end deffn
650 683
651@deffn Command shrink-window-if-larger-than-buffer &optional window 684@deffn Command shrink-window-if-larger-than-buffer &optional window
652This command shrinks @var{window} vertically to be as small as possible 685This command attempts to reduce @var{window}'s height as much as
653while still showing the full contents of its buffer---but not less than 686possible while still showing its full buffer, but no less than
654@code{window-min-height} lines. The argument @var{window} must denote 687@code{window-min-height} lines. The return value is non-@code{nil} if
655a live window and defaults to the selected one. 688the window was resized, and @code{nil} otherwise. If @var{window} is
656 689omitted or @code{nil}, it defaults to the selected window. Otherwise,
657However, this command does nothing if the window is already too small to 690it should be a live window.
658display the whole text of the buffer, or if part of the contents are 691
659currently scrolled off screen, or if the window is not the full width of 692This command does nothing if the window is already too short to
660its frame, or if the window is the only window in its frame. 693display all of its buffer, or if any of the buffer is scrolled
661 694off-screen, or if the window is the only live window in its frame.
662This command returns non-@code{nil} if it actually shrank the window
663and @code{nil} otherwise.
664@end deffn 695@end deffn
665 696
666@cindex balancing window sizes 697@cindex balancing window sizes
667Emacs provides two functions to balance windows, that is, to even out
668the sizes of all windows on the same frame. The minibuffer window and
669fixed-size windows are not resized by these functions.
670
671@deffn Command balance-windows &optional window-or-frame 698@deffn Command balance-windows &optional window-or-frame
672This function balances windows in a way that gives more space to 699This function balances windows in a way that gives more space to
673full-width and/or full-height windows. If @var{window-or-frame} 700full-width and/or full-height windows. If @var{window-or-frame}
674specifies a frame, it balances all windows on that frame. If 701specifies a frame, it balances all windows on that frame. If
675@var{window-or-frame} specifies a window, it balances that window and 702@var{window-or-frame} specifies a window, it balances only that window
676its siblings (@pxref{Windows and Frames}) only. 703and its siblings (@pxref{Windows and Frames}).
677@end deffn 704@end deffn
678 705
679@deffn Command balance-windows-area 706@deffn Command balance-windows-area
680This function attempts to give all windows on the selected frame 707This function attempts to give all windows on the selected frame
681approximately the same share of the screen area. This means that 708approximately the same share of the screen area. Full-width or
682full-width or full-height windows are not given more space than other 709full-height windows are not given more space than other windows.
683windows.
684@end deffn 710@end deffn
685 711
686@cindex maximizing windows 712@cindex maximizing windows
687The following function can be used to give a window the maximum possible
688size without deleting other ones.
689
690@deffn Command maximize-window &optional window 713@deffn Command maximize-window &optional window
691This function maximizes @var{window}. More precisely, this makes 714This function attempts to make @var{window} as large as possible, in
692@var{window} as large as possible without resizing its frame or deleting 715both dimensions, without resizing its frame or deleting other windows.
693other windows. @var{window} can be any window and defaults to the 716If @var{window} is omitted or @code{nil}, it defaults to the selected
694selected one. 717window.
695@end deffn 718@end deffn
696 719
697@cindex minimizing windows 720@cindex minimizing windows
698To make a window as small as possible without deleting it the
699following function can be used.
700
701@deffn Command minimize-window &optional window 721@deffn Command minimize-window &optional window
702This function minimizes @var{window}. More precisely, this makes 722This function attempts to make @var{window} as small as possible, in
703@var{window} as small as possible without deleting it or resizing its 723both dimensions, without deleting it or resizing its frame. If
704frame. @var{window} can be any window and defaults to the selected one. 724@var{window} is omitted or @code{nil}, it defaults to the selected
725window.
705@end deffn 726@end deffn
706 727
707 728
@@ -719,7 +740,7 @@ This function creates a new live window next to the window
719to the selected window. That window is ``split'', and reduced in 740to the selected window. That window is ``split'', and reduced in
720size. The space is taken up by the new window, which is returned. 741size. The space is taken up by the new window, which is returned.
721 742
722The optional second argument @var{size} determines the sizes of the 743The optional second argument @var{size} determines the sizes of
723@var{window} and/or the new window. If it is omitted or @code{nil}, 744@var{window} and/or the new window. If it is omitted or @code{nil},
724both windows are given equal sizes; if there is an odd line, it is 745both windows are given equal sizes; if there is an odd line, it is
725allocated to the new window. If @var{size} is a positive number, 746allocated to the new window. If @var{size} is a positive number,
@@ -765,10 +786,10 @@ lieu of the usual action of @code{split-window}.
765 786
766 As an example, we show a combination of @code{split-window} calls 787 As an example, we show a combination of @code{split-window} calls
767that yields the window configuration discussed in @ref{Windows and 788that yields the window configuration discussed in @ref{Windows and
768Frames}. This example demonstrates splitting live windows as well as 789Frames}. This example demonstrates splitting a live window as well as
769splitting internal windows. We begin with a frame containing a single 790splitting an internal window. We begin with a frame containing a
770window (a live root window), which we denote by @var{W4}. Calling 791single window (a live root window), which we denote by @var{W4}.
771@code{(split-window W3)} yields this window configuration: 792Calling @code{(split-window W3)} yields this window configuration:
772 793
773@smallexample 794@smallexample
774@group 795@group
@@ -816,15 +837,14 @@ internal window @var{W3} as the argument. The result:
816@end smallexample 837@end smallexample
817 838
818@noindent 839@noindent
819A new live window, @var{W2}, is created to the left of @var{W3} (which 840A new live window @var{W2} is created, to the left of the internal
820encompasses the vertical window combination of @var{W4} and @var{W5}). 841window @var{W3}. A new internal window @var{W1} is created, becoming
821A new internal window @var{W1} is also created, and becomes the new 842the new root window.
822root window.
823 843
824 The following two options can be used to modify the operation of 844 The following two options can be used to modify the operation of
825@code{split-window}. 845@code{split-window}.
826 846
827@defopt window-splits 847@defopt window-combination-resize
828If this variable is @code{nil}, @code{split-window} can only split a 848If this variable is @code{nil}, @code{split-window} can only split a
829window (denoted by @var{window}) if @var{window}'s screen area is 849window (denoted by @var{window}) if @var{window}'s screen area is
830large enough to accommodate both itself and the new window. This is 850large enough to accommodate both itself and the new window. This is
@@ -836,45 +856,16 @@ resize all windows that are part of the same combination as
836this may allow @code{split-window} to succeed even if @var{window} is 856this may allow @code{split-window} to succeed even if @var{window} is
837a fixed-size window or too small to ordinarily split. 857a fixed-size window or too small to ordinarily split.
838 858
839In any case, the value of this variable is assigned to the splits status 859Also if this variable is non-@code{nil}, subsequent resizing and
840of the new window and, provided old and new window form a new 860deleting @var{window} will usually affect @emph{all} windows in
841combination, of the old window as well. The splits status of a window 861@var{window}'s combination.
842can be retrieved by invoking the function @code{window-splits} and
843altered by the function @code{set-window-splits} described next.
844 862
845If @code{window-nest} (see below) is non-@code{nil}, the space for the 863The setting of this variable has no effect if
846new window is exclusively taken from the old window, but the splits 864@code{window-combination-limit} (see below) is non-@code{nil}.
847status of the involved windows is nevertheless set as described here.
848@end defopt 865@end defopt
849 866
850@defun window-splits &optional window 867To illustrate the use of @code{window-combination-resize} consider the
851This function returns the splits status of @var{window}. The argument 868following window configuration:
852@var{window} can be any window and defaults to the selected one.
853
854@cindex splits status
855The @dfn{splits status} of a window specifies how resizing and deleting
856that window may affect the size of other windows in the same window
857combination. More precisely, if @var{window}'s splits status is
858@code{nil} and @var{window} is resized, the corresponding space is
859preferably taken from (or given to) @var{window}'s right sibling. When
860@var{window} is deleted, its space is given to its left sibling. If
861@var{window}'s splits status is non-@code{nil}, resizing and deleting
862@var{window} may resize @emph{all} windows in @var{window}'s
863combination.
864
865The splits status is initially set by @code{split-window}
866from the current value of the variable @code{window-splits} (see above)
867and can be reset by the function @code{set-window-splits} (see below).
868@end defun
869
870@defun set-window-splits window &optional status
871This function sets the splits status (see above) of @var{window} to
872@var{status}. The argument @var{window} can be any window and defaults
873to the selected one. The return value is @var{status}.
874@end defun
875
876To illustrate the use of @code{window-splits} consider the following
877window configuration:
878@smallexample 869@smallexample
879@group 870@group
880 ______________________________________ 871 ______________________________________
@@ -895,8 +886,9 @@ window configuration:
895@end group 886@end group
896@end smallexample 887@end smallexample
897 888
898Splitting window @code{W3} with @code{window-splits} @code{nil} 889Splitting window @code{W3} with @code{window-combination-resize}
899produces a configuration where the size of @code{W2} remains unchanged: 890@code{nil} produces a configuration where the size of @code{W2} remains
891unchanged:
900@smallexample 892@smallexample
901@group 893@group
902 ______________________________________ 894 ______________________________________
@@ -917,10 +909,8 @@ produces a configuration where the size of @code{W2} remains unchanged:
917@end group 909@end group
918@end smallexample 910@end smallexample
919 911
920Splitting @code{W3} with @code{window-splits} non-@code{nil} instead 912Splitting @code{W3} with @code{window-combination-resize} non-@code{nil}
921produces a configuration where all windows have approximately the same 913instead steals the space for @code{W4} from both @code{W2} and @code{W3}:
922height:
923
924@smallexample 914@smallexample
925@group 915@group
926 ______________________________________ 916 ______________________________________
@@ -941,34 +931,36 @@ height:
941@end group 931@end group
942@end smallexample 932@end smallexample
943 933
944@defopt window-nest 934@defopt window-combination-limit
945If this variable is @code{nil}, @code{split-window} creates a new parent 935If this variable is @code{nil}, @code{split-window} creates a new parent
946window if and only if the old window has no parent window or shall be 936window if and only if the old window has no parent window or shall be
947split orthogonally to the combination it is part of. If this variable 937split orthogonally to the combination it is part of. If this variable
948is non-@code{nil}, @code{split-window} always creates a new parent 938is @code{t}, @code{split-window} always creates a new parent window. If
949window. If this variable is always non-@code{nil}, a frame's window 939this variable is always @code{t}, a frame's window tree is a binary tree
950tree is a binary tree so every window but the frame's root window has 940so every window but the frame's root window has exactly one sibling.
951exactly one sibling. 941Other values are reserved for future use.
952 942
953The value of this variable is also assigned to the nest status of the 943The value of this variable is also assigned to the combination-limit
954new parent window. The nest status of any window can be retrieved via 944status of the new parent window. The combination-limit status of any
955the function @code{window-nest} and altered by the function 945window can be retrieved via the function @code{window-combination-limit}
956@code{set-window-nest}, see below. 946and altered by the function @code{set-window-combination-limit}, see
947below.
957@end defopt 948@end defopt
958 949
959@defun window-nest &optional window 950@defun window-combination-limit &optional window
960This function returns the nest status of @var{window}. The argument 951This function returns the combination-limit status of @var{window}. The
961@var{window} can be any window and defaults to the selected one. Note, 952argument @var{window} can be any window and defaults to the selected
962however, that the nest status is currently meaningful for internal 953one. Note, however, that the combination-limit status is currently
963windows only. 954meaningful for internal windows only.
964 955
965@cindex nest status 956@cindex combination-limit status
966The @dfn{nest status} of a window specifies whether that window may be 957The @dfn{combination-limit status} of a window specifies whether that
967removed and its child windows recombined with that window's siblings 958window may be removed and its child windows recombined with that
968when such a sibling's child window is deleted. The nest status is 959window's siblings when such a sibling's child window is deleted. The
969initially assigned by @code{split-window} from the current value of the 960combination-limit status is initially assigned by @code{split-window}
970variable @code{window-nest} (see above) and can be reset by the function 961from the current value of the variable @code{window-combination-limit}
971@code{set-window-nest} (see below). 962(see above) and can be reset by the function
963@code{set-window-combination-limit} (see below).
972 964
973If the return value is @code{nil}, child windows of @var{window} may be 965If the return value is @code{nil}, child windows of @var{window} may be
974recombined with @var{window}'s siblings when a window gets deleted. A 966recombined with @var{window}'s siblings when a window gets deleted. A
@@ -976,16 +968,17 @@ return value of @code{nil} means that child windows of @var{window} are
976never (re-)combined with @var{window}'s siblings in such a case. 968never (re-)combined with @var{window}'s siblings in such a case.
977@end defun 969@end defun
978 970
979@defun set-window-nest window &optional status 971@defun set-window-combination-limit window &optional status
980This functions sets the nest status (see above) of @var{window} to 972This functions sets the combination-limit status (see above) of
981@var{status}. The argument @var{window} can be any window and defaults 973@var{window} to @var{status}. The argument @var{window} can be any
982to the selected one. Note that setting the nest status is meaningful 974window and defaults to the selected one. Note that setting the
983for internal windows only. The return value is @var{status}. 975combination-limit status is meaningful for internal windows only. The
976return value is @var{status}.
984@end defun 977@end defun
985 978
986To illustrate the use of @code{window-nest} consider the following 979To illustrate the use of @code{window-combination-limit} consider the
987configuration (throughout the following examples we shall assume that 980following configuration (throughout the following examples we shall
988@code{window-splits} invariantly is @code{nil}). 981assume that @code{window-combination-resize} invariantly is @code{nil}).
989@smallexample 982@smallexample
990@group 983@group
991 ______________________________________ 984 ______________________________________
@@ -1007,7 +1000,8 @@ configuration (throughout the following examples we shall assume that
1007@end smallexample 1000@end smallexample
1008 1001
1009Splitting @code{W2} into two windows above each other with 1002Splitting @code{W2} into two windows above each other with
1010@code{window-nest} equal @code{nil} will get you a configuration like: 1003@code{window-combination-limit} equal @code{nil} will get you a
1004configuration like:
1011@smallexample 1005@smallexample
1012@group 1006@group
1013 ______________________________________ 1007 ______________________________________
@@ -1074,9 +1068,9 @@ follows:
1074 1068
1075Hence, with respect to the initial configuration, window @code{W2} has 1069Hence, with respect to the initial configuration, window @code{W2} has
1076grown at the expense of window @code{W3}. If, however, in the initial 1070grown at the expense of window @code{W3}. If, however, in the initial
1077configuration you had split @code{W2} with @code{window-nest} bound to 1071configuration you had split @code{W2} with
1078@code{t}, a new internal window @code{W5} would have been created as 1072@code{window-combination-limit} bound to @code{t}, a new internal window
1079depicted below. 1073@code{W5} would have been created as depicted below.
1080@smallexample 1074@smallexample
1081@group 1075@group
1082 ______________________________________ 1076 ______________________________________
@@ -1189,12 +1183,12 @@ window parameters. If the @code{delete-window} parameter specifies a
1189function, that function is called with @var{window} as its sole 1183function, that function is called with @var{window} as its sole
1190argument. 1184argument.
1191 1185
1192If the splits status of @var{window} (@pxref{Splitting Windows}) is 1186If @code{window-combination-resize} (@pxref{Splitting Windows}) is
1193@code{nil}, the space @var{window} took up is given to its left sibling 1187@code{nil}, the space @var{window} took up is given to its left sibling
1194if such a window exists and to its right sibling otherwise. If the 1188if such a window exists and to its right sibling otherwise. If
1195splits status of @var{window} is non-@code{nil}, its space is 1189@code{window-combination-resize} is non-@code{nil}, the space of
1196proportionally distributed among the remaining windows in the same 1190@var{window} is proportionally distributed among the remaining windows
1197combination. 1191in the same combination.
1198@end deffn 1192@end deffn
1199 1193
1200@deffn Command delete-other-windows &optional window 1194@deffn Command delete-other-windows &optional window
diff --git a/doc/man/ChangeLog b/doc/man/ChangeLog
index b9175ce51ea..758cdde1dea 100644
--- a/doc/man/ChangeLog
+++ b/doc/man/ChangeLog
@@ -1,3 +1,7 @@
12011-11-16 Juanma Barranquero <lekktu@gmail.com>
2
3 * etags.1: Fix typo.
4
12011-10-06 Chong Yidong <cyd@stupidchicken.com> 52011-10-06 Chong Yidong <cyd@stupidchicken.com>
2 6
3 * emacsclient.1: Document how -a "" starts the daemon. 7 * emacsclient.1: Document how -a "" starts the daemon.
@@ -18,7 +22,7 @@
18 22
19 * Version 23.3 released. 23 * Version 23.3 released.
20 24
212011-01-02 Jari Aalto <jari.aalto@cante.net> (tiny change) 252011-01-02 Jari Aalto <jari.aalto@cante.net>
22 26
23 * emacsclient.1: Arrange options alphabetically (Bug#7620). 27 * emacsclient.1: Arrange options alphabetically (Bug#7620).
24 28
diff --git a/doc/man/etags.1 b/doc/man/etags.1
index f6b46add215..f7ffa112f3c 100644
--- a/doc/man/etags.1
+++ b/doc/man/etags.1
@@ -49,7 +49,7 @@ format understood by
49\&. Both forms of the program understand 49\&. Both forms of the program understand
50the syntax of C, Objective C, C++, Java, Fortran, Ada, Cobol, Erlang, 50the syntax of C, Objective C, C++, Java, Fortran, Ada, Cobol, Erlang,
51Forth, HTML, LaTeX, Emacs Lisp/Common Lisp, Lua, Makefile, Pascal, Perl, 51Forth, HTML, LaTeX, Emacs Lisp/Common Lisp, Lua, Makefile, Pascal, Perl,
52PHP, Postscript, Python, Prolog, Scheme and 52PHP, PostScript, Python, Prolog, Scheme and
53most assembler\-like syntaxes. 53most assembler\-like syntaxes.
54Both forms read the files specified on the command line, and write a tag 54Both forms read the files specified on the command line, and write a tag
55table (defaults: \fBTAGS\fP for \fBetags\fP, \fBtags\fP for 55table (defaults: \fBTAGS\fP for \fBetags\fP, \fBtags\fP for
diff --git a/doc/misc/ChangeLog b/doc/misc/ChangeLog
index 029406e2d30..924f3501bfa 100644
--- a/doc/misc/ChangeLog
+++ b/doc/misc/ChangeLog
@@ -1,3 +1,22 @@
12011-11-16 Juanma Barranquero <lekktu@gmail.com>
2
3 * org.texi (Agenda commands, Exporting Agenda Views): Fix typos.
4
52011-11-15 Juanma Barranquero <lekktu@gmail.com>
6
7 * ede.texi (project-am-texinfo):
8 * gnus.texi (Sending or Not Sending):
9 * org.texi (Template elements): Fix typos.
10
112011-11-14 Juanma Barranquero <lekktu@gmail.com>
12
13 * ediff.texi (Hooks):
14 * sem-user.texi (Semanticdb Roots): Fix typos.
15
162011-11-11 Juanma Barranquero <lekktu@gmail.com>
17
18 * semantic.texi (Tag handling): Fix typo.
19
12011-10-31 Katsumi Yamaoka <yamaoka@jpl.org> 202011-10-31 Katsumi Yamaoka <yamaoka@jpl.org>
2 21
3 * gnus.texi (Other Gnus Versions): Remove. 22 * gnus.texi (Other Gnus Versions): Remove.
@@ -58,7 +77,7 @@
58 77
59 Release MH-E manual version 8.3. 78 Release MH-E manual version 8.3.
60 79
61 * mh-e.texi: (VERSION, EDITION, UPDATED, UPDATE-MONTH): Update for 80 * mh-e.texi (VERSION, EDITION, UPDATED, UPDATE-MONTH): Update for
62 release 8.3. 81 release 8.3.
63 (Preface): Updated support information. 82 (Preface): Updated support information.
64 (From Bill Wohler): Reset text to original version. As a 83 (From Bill Wohler): Reset text to original version. As a
@@ -296,7 +315,7 @@
296 315
2972011-08-15 Eric Schulte <schulte.eric@gmail.com> 3162011-08-15 Eric Schulte <schulte.eric@gmail.com>
298 317
299 * org.texi (Evaluating code blocks): Expanded discussion of 318 * org.texi (Evaluating code blocks): Expanded discussion of
300 #+call: line syntax. 319 #+call: line syntax.
301 (Header arguments in function calls): Expanded discussion of 320 (Header arguments in function calls): Expanded discussion of
302 #+call: line syntax. 321 #+call: line syntax.
@@ -2290,7 +2309,7 @@
22902009-08-25 Michael Albinus <michael.albinus@gmx.de> 23092009-08-25 Michael Albinus <michael.albinus@gmx.de>
2291 2310
2292 * dbus.texi (Bus names): Add optional parameter TIMEOUT to dbus-ping. 2311 * dbus.texi (Bus names): Add optional parameter TIMEOUT to dbus-ping.
2293 Describe autostart behaviour of dbus-ping. 2312 Describe autostart behavior of dbus-ping.
2294 (Synchronous Methods, Asynchronous Methods): Use English numeric format 2313 (Synchronous Methods, Asynchronous Methods): Use English numeric format
2295 for timeout values. 2314 for timeout values.
2296 (Top): Remove footnote saying D-Bus is not enabled by 2315 (Top): Remove footnote saying D-Bus is not enabled by
diff --git a/doc/misc/ada-mode.texi b/doc/misc/ada-mode.texi
index 66cdb200111..374158c2c78 100644
--- a/doc/misc/ada-mode.texi
+++ b/doc/misc/ada-mode.texi
@@ -184,7 +184,7 @@ convention, where file names are a simple modification of the Ada
184names, and the extension for specs and bodies are 184names, and the extension for specs and bodies are
185@samp{.ads} and @samp{.adb}, respectively. 185@samp{.ads} and @samp{.adb}, respectively.
186 186
187Ada mode uses the file extentions to allow moving from a package body 187Ada mode uses the file extensions to allow moving from a package body
188to the corresponding spec and back. 188to the corresponding spec and back.
189 189
190Ada mode supports a list of alternative file extensions for specs and bodies. 190Ada mode supports a list of alternative file extensions for specs and bodies.
@@ -209,7 +209,7 @@ whose extension is @file{.ads}, it will take the first available file
209that ends with either @file{.adb}, @file{_b.ada} or 209that ends with either @file{.adb}, @file{_b.ada} or
210@file{.body}. 210@file{.body}.
211 211
212Simililarly, if Ada mode is looking for a spec, it will look for 212Similarly, if Ada mode is looking for a spec, it will look for
213@file{.ads} or @file{_s.ada}. 213@file{.ads} or @file{_s.ada}.
214 214
215If the filename is not derived from the Ada name following the GNAT 215If the filename is not derived from the Ada name following the GNAT
@@ -1357,7 +1357,7 @@ specifies the casing of one word or word fragment. Comments may be
1357included, separated from the word by a space. 1357included, separated from the word by a space.
1358 1358
1359If the word starts with an asterisk (@key{*}), it defines the casing 1359If the word starts with an asterisk (@key{*}), it defines the casing
1360af a word fragemnt (or ``substring''); part of a word between two 1360af a word fragment (or ``substring''); part of a word between two
1361underscores or word boundary. 1361underscores or word boundary.
1362 1362
1363For example: 1363For example:
diff --git a/doc/misc/cc-mode.texi b/doc/misc/cc-mode.texi
index 887e3f3c808..55c2c4c0ae8 100644
--- a/doc/misc/cc-mode.texi
+++ b/doc/misc/cc-mode.texi
@@ -287,11 +287,11 @@ Configuration Basics
287 287
288Styles 288Styles
289 289
290* Built-in Styles:: 290* Built-in Styles::
291* Choosing a Style:: 291* Choosing a Style::
292* Adding Styles:: 292* Adding Styles::
293* Guessing the Style:: 293* Guessing the Style::
294* File Styles:: 294* File Styles::
295 295
296Customizing Auto-newlines 296Customizing Auto-newlines
297 297
@@ -311,19 +311,19 @@ Indentation Engine Basics
311 311
312Syntactic Symbols 312Syntactic Symbols
313 313
314* Function Symbols:: 314* Function Symbols::
315* Class Symbols:: 315* Class Symbols::
316* Conditional Construct Symbols:: 316* Conditional Construct Symbols::
317* Switch Statement Symbols:: 317* Switch Statement Symbols::
318* Brace List Symbols:: 318* Brace List Symbols::
319* External Scope Symbols:: 319* External Scope Symbols::
320* Paren List Symbols:: 320* Paren List Symbols::
321* Literal Symbols:: 321* Literal Symbols::
322* Multiline Macro Symbols:: 322* Multiline Macro Symbols::
323* Objective-C Method Symbols:: 323* Objective-C Method Symbols::
324* Java Symbols:: 324* Java Symbols::
325* Statement Block Symbols:: 325* Statement Block Symbols::
326* K&R Symbols:: 326* K&R Symbols::
327 327
328Customizing Indentation 328Customizing Indentation
329 329
@@ -343,8 +343,8 @@ Line-Up Functions
343 343
344Customizing Macros 344Customizing Macros
345 345
346* Macro Backslashes:: 346* Macro Backslashes::
347* Macros with ;:: 347* Macros with ;::
348 348
349@end detailmenu 349@end detailmenu
350@end menu 350@end menu
@@ -912,7 +912,7 @@ construct, should the point start inside it. If @ccmode fails to find
912function beginnings or ends inside the current declaration scope, it 912function beginnings or ends inside the current declaration scope, it
913will search the enclosing scopes. If you want @ccmode to recognize 913will search the enclosing scopes. If you want @ccmode to recognize
914functions only at the top level@footnote{this was @ccmode{}'s 914functions only at the top level@footnote{this was @ccmode{}'s
915behaviour prior to version 5.32.}, set @code{c-defun-tatic} to 915behavior prior to version 5.32.}, set @code{c-defun-tatic} to
916@code{t}. 916@code{t}.
917 917
918These functions are analogous to the Emacs built-in commands 918These functions are analogous to the Emacs built-in commands
@@ -1173,7 +1173,7 @@ Full details on how these minor modes work are at @ref{Electric Keys},
1173and @ref{Indentation Engine Basics}. 1173and @ref{Indentation Engine Basics}.
1174 1174
1175You can toggle each of these minor modes on and off, and you can 1175You can toggle each of these minor modes on and off, and you can
1176configure @ccmode{} so that it starts up with your favourite 1176configure @ccmode{} so that it starts up with your favorite
1177combination of them (@pxref{Sample .emacs File}). By default, when 1177combination of them (@pxref{Sample .emacs File}). By default, when
1178you initialize a buffer, electric mode and syntactic-indentation mode 1178you initialize a buffer, electric mode and syntactic-indentation mode
1179are enabled but the other two modes are disabled. 1179are enabled but the other two modes are disabled.
@@ -2537,11 +2537,11 @@ As an alternative to writing a style definition yourself, you can have
2537already formatted piece of your code, @ref{Guessing the Style}. 2537already formatted piece of your code, @ref{Guessing the Style}.
2538 2538
2539@menu 2539@menu
2540* Built-in Styles:: 2540* Built-in Styles::
2541* Choosing a Style:: 2541* Choosing a Style::
2542* Adding Styles:: 2542* Adding Styles::
2543* Guessing the Style:: 2543* Guessing the Style::
2544* File Styles:: 2544* File Styles::
2545@end menu 2545@end menu
2546 2546
2547@comment !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 2547@comment !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -4266,19 +4266,19 @@ Java. @ref{Java Symbols}.
4266@end table 4266@end table
4267 4267
4268@menu 4268@menu
4269* Function Symbols:: 4269* Function Symbols::
4270* Class Symbols:: 4270* Class Symbols::
4271* Conditional Construct Symbols:: 4271* Conditional Construct Symbols::
4272* Switch Statement Symbols:: 4272* Switch Statement Symbols::
4273* Brace List Symbols:: 4273* Brace List Symbols::
4274* External Scope Symbols:: 4274* External Scope Symbols::
4275* Paren List Symbols:: 4275* Paren List Symbols::
4276* Literal Symbols:: 4276* Literal Symbols::
4277* Multiline Macro Symbols:: 4277* Multiline Macro Symbols::
4278* Objective-C Method Symbols:: 4278* Objective-C Method Symbols::
4279* Java Symbols:: 4279* Java Symbols::
4280* Statement Block Symbols:: 4280* Statement Block Symbols::
4281* K&R Symbols:: 4281* K&R Symbols::
4282@end menu 4282@end menu
4283 4283
4284@comment !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 4284@comment !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -6653,8 +6653,8 @@ these macros properly, see @ref{Macros with ;}.
6653 6653
6654@comment !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 6654@comment !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
6655@menu 6655@menu
6656* Macro Backslashes:: 6656* Macro Backslashes::
6657* Macros with ;:: 6657* Macros with ;::
6658@end menu 6658@end menu
6659 6659
6660@comment !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 6660@comment !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
diff --git a/doc/misc/dbus.texi b/doc/misc/dbus.texi
index e6fb00d3482..79c7ada3b0b 100644
--- a/doc/misc/dbus.texi
+++ b/doc/misc/dbus.texi
@@ -553,7 +553,7 @@ data from a running system:
553@node Methods and Signal 553@node Methods and Signal
554@section Applying the functionality. 554@section Applying the functionality.
555 555
556Methods and signals are the communicatione means to D-Bus. The 556Methods and signals are the communication means to D-Bus. The
557following functions return their specifications. 557following functions return their specifications.
558 558
559@defun dbus-introspect-get-method-names bus service path interface 559@defun dbus-introspect-get-method-names bus service path interface
diff --git a/doc/misc/ede.texi b/doc/misc/ede.texi
index 13b640a09fe..55dc7f9a822 100644
--- a/doc/misc/ede.texi
+++ b/doc/misc/ede.texi
@@ -518,7 +518,7 @@ It would look like this:
518(defun MY-LOAD (dir) 518(defun MY-LOAD (dir)
519 "Load a project of type `cpp-root' for the directory DIR. 519 "Load a project of type `cpp-root' for the directory DIR.
520Return nil if there isn't one." 520Return nil if there isn't one."
521 ;; Use your preferred constructin method here. 521 ;; Use your preferred construction method here.
522 (ede-cpp-root-project "NAME" :file (expand-file-name "FILE" dir) 522 (ede-cpp-root-project "NAME" :file (expand-file-name "FILE" dir)
523 :locate-fcn 'MYFCN) 523 :locate-fcn 'MYFCN)
524 ) 524 )
@@ -3273,7 +3273,7 @@ Return the default macro to 'edit' for this object type.
3273@end deffn 3273@end deffn
3274 3274
3275@deffn Method project-compile-target-command :AFTER this 3275@deffn Method project-compile-target-command :AFTER this
3276Default target t- use when compling a texinfo file. 3276Default target t- use when compiling a texinfo file.
3277@end deffn 3277@end deffn
3278 3278
3279@deffn Method ede-documentation :AFTER this 3279@deffn Method ede-documentation :AFTER this
@@ -3370,7 +3370,7 @@ Type: @code{(or null string)} @*
3370Default Value: @code{nil} 3370Default Value: @code{nil}
3371 3371
3372Emacs regex matching auxiliary source code this target accepts. 3372Emacs regex matching auxiliary source code this target accepts.
3373Aux source are source code files needed for compilation, which are not comiled 3373Aux source are source code files needed for compilation, which are not compiled
3374themselves. 3374themselves.
3375@refill 3375@refill
3376 3376
diff --git a/doc/misc/ediff.texi b/doc/misc/ediff.texi
index 20c2ed90873..62cd684b57b 100644
--- a/doc/misc/ediff.texi
+++ b/doc/misc/ediff.texi
@@ -1207,7 +1207,7 @@ This hook can be used to alter bindings in Ediff's keymap,
1207@code{ediff-mode-map}. These hooks are 1207@code{ediff-mode-map}. These hooks are
1208run right after the default bindings are set but before 1208run right after the default bindings are set but before
1209@code{ediff-load-hook}. The regular user needs not be concerned with this 1209@code{ediff-load-hook}. The regular user needs not be concerned with this
1210hook---it is provided for implementors of other Emacs packages built on top 1210hook---it is provided for implementers of other Emacs packages built on top
1211of Ediff. 1211of Ediff.
1212 1212
1213@item ediff-before-setup-windows-hook 1213@item ediff-before-setup-windows-hook
diff --git a/doc/misc/emacs-mime.texi b/doc/misc/emacs-mime.texi
index a9d80d868b6..c44cc1c9b09 100644
--- a/doc/misc/emacs-mime.texi
+++ b/doc/misc/emacs-mime.texi
@@ -1048,7 +1048,7 @@ occurs.
1048 1048
1049You can customize the value of the @code{mml-enable-flowed} variable 1049You can customize the value of the @code{mml-enable-flowed} variable
1050to enable or disable the flowed encoding usage when newline 1050to enable or disable the flowed encoding usage when newline
1051characteres are present in the buffer. 1051characters are present in the buffer.
1052 1052
1053On decoding flowed text, lines with soft newline characters are filled 1053On decoding flowed text, lines with soft newline characters are filled
1054together and wrapped after the column decided by 1054together and wrapped after the column decided by
diff --git a/doc/misc/ert.texi b/doc/misc/ert.texi
index d1cecf1347a..00755262075 100644
--- a/doc/misc/ert.texi
+++ b/doc/misc/ert.texi
@@ -389,7 +389,7 @@ This checks that dividing one by zero signals an error of type
389@code{arith-error}. The @code{:type} argument to @code{should-error} 389@code{arith-error}. The @code{:type} argument to @code{should-error}
390is optional; if absent, any type of error is accepted. 390is optional; if absent, any type of error is accepted.
391@code{should-error} returns an error description of the error that was 391@code{should-error} returns an error description of the error that was
392signalled, to allow additional checks to be made. The error 392signaled, to allow additional checks to be made. The error
393description has the format @code{(ERROR-SYMBOL . DATA)}. 393description has the format @code{(ERROR-SYMBOL . DATA)}.
394 394
395There is no @code{should-not-error} macro since tests that signal an 395There is no @code{should-not-error} macro since tests that signal an
@@ -748,7 +748,7 @@ explanation function.
748 748
749Both @code{ert-run-tests-interactively} and @code{ert-run-tests-batch} 749Both @code{ert-run-tests-interactively} and @code{ert-run-tests-batch}
750are implemented on top of the lower-level test handling code in the 750are implemented on top of the lower-level test handling code in the
751sections of @file{ert.el} labelled ``Facilities for running a single test'', 751sections of @file{ert.el} labeled ``Facilities for running a single test'',
752``Test selectors'', and ``Facilities for running a whole set of tests''. 752``Test selectors'', and ``Facilities for running a whole set of tests''.
753 753
754If you want to write code that works with ERT tests, you should take a 754If you want to write code that works with ERT tests, you should take a
diff --git a/doc/misc/eshell.texi b/doc/misc/eshell.texi
index 74082bfd3b1..d2705155887 100644
--- a/doc/misc/eshell.texi
+++ b/doc/misc/eshell.texi
@@ -379,7 +379,7 @@ eshell/sudo is a compiled Lisp function in `em-unix.el'
379sudo is an alias, defined as "*sudo $*" 379sudo is an alias, defined as "*sudo $*"
380@end example 380@end example
381 381
382Some of the built-in commands have a special behaviour in Eshell: 382Some of the built-in commands have a special behavior in Eshell:
383 383
384@table @code 384@table @code
385 385
diff --git a/doc/misc/faq.texi b/doc/misc/faq.texi
index 7528abca58d..262c3d734fe 100644
--- a/doc/misc/faq.texi
+++ b/doc/misc/faq.texi
@@ -80,7 +80,7 @@ Emacs, the Emacs manual is often the best starting point.
80 80
81@ifnottex 81@ifnottex
82@insertcopying 82@insertcopying
83@end ifnottex 83@end ifnottex
84 84
85@menu 85@menu
86* FAQ notation:: 86* FAQ notation::
@@ -368,7 +368,7 @@ only be known if and when a judge rules on its validity and scope.
368There has never been a copyright infringement case involving the GPL to 368There has never been a copyright infringement case involving the GPL to
369set any precedents. Although legal actions have been brought against 369set any precedents. Although legal actions have been brought against
370companies for violating the terms of the GPL, so far all have been 370companies for violating the terms of the GPL, so far all have been
371settled out of court (in favour of the plaintiffs). Please take any 371settled out of court (in favor of the plaintiffs). Please take any
372discussion regarding this issue to the newsgroup 372discussion regarding this issue to the newsgroup
373@uref{news:gnu.misc.discuss}, which was created to hold the extensive 373@uref{news:gnu.misc.discuss}, which was created to hold the extensive
374flame wars on the subject. 374flame wars on the subject.
diff --git a/doc/misc/gnus-faq.texi b/doc/misc/gnus-faq.texi
index e8e89ed2a30..b5bb75f7284 100644
--- a/doc/misc/gnus-faq.texi
+++ b/doc/misc/gnus-faq.texi
@@ -12,7 +12,7 @@
12@section Frequently Asked Questions 12@section Frequently Asked Questions
13 13
14@menu 14@menu
15* FAQ - Changes:: 15* FAQ - Changes::
16* FAQ - Introduction:: About Gnus and this FAQ. 16* FAQ - Introduction:: About Gnus and this FAQ.
17* FAQ 1 - Installation FAQ:: Installation of Gnus. 17* FAQ 1 - Installation FAQ:: Installation of Gnus.
18* FAQ 2 - Startup / Group buffer:: Start up questions and the 18* FAQ 2 - Startup / Group buffer:: Start up questions and the
@@ -37,7 +37,7 @@
37 37
38This is the new Gnus Frequently Asked Questions list. 38This is the new Gnus Frequently Asked Questions list.
39 39
40Please submit features and suggestions to the 40Please submit features and suggestions to the
41@email{ding@@gnus.org, ding list}. 41@email{ding@@gnus.org, ding list}.
42 42
43@node FAQ - Changes 43@node FAQ - Changes
@@ -166,7 +166,7 @@ package system might not be up to date (e.g. Gnus 5.9 bundled with Emacs
16621 is outdated). 16621 is outdated).
167You can get the latest released version of Gnus from 167You can get the latest released version of Gnus from
168@uref{http://www.gnus.org/dist/gnus.tar.gz} 168@uref{http://www.gnus.org/dist/gnus.tar.gz}
169or via anonymous FTP from 169or via anonymous FTP from
170@uref{ftp://ftp.gnus.org/pub/gnus/gnus.tar.gz}. 170@uref{ftp://ftp.gnus.org/pub/gnus/gnus.tar.gz}.
171 171
172@node FAQ 1-4 172@node FAQ 1-4
@@ -176,7 +176,7 @@ What to do with the tarball now?
176 176
177@subsubheading Answer 177@subsubheading Answer
178 178
179Untar it via @samp{tar xvzf gnus.tar.gz} and do the common 179Untar it via @samp{tar xvzf gnus.tar.gz} and do the common
180@samp{./configure; make; make install} circle. 180@samp{./configure; make; make install} circle.
181(under MS-Windows either get the Cygwin environment from 181(under MS-Windows either get the Cygwin environment from
182@uref{http://www.cygwin.com} 182@uref{http://www.cygwin.com}
@@ -344,7 +344,7 @@ hit @samp{C-y}.
344@subsection Getting Messages 344@subsection Getting Messages
345 345
346@menu 346@menu
347* FAQ 3-1:: I just installed Gnus, started it via @samp{M-x gnus} 347* FAQ 3-1:: I just installed Gnus, started it via @samp{M-x gnus}
348 but it only says "nntp (news) open error", what to do? 348 but it only says "nntp (news) open error", what to do?
349* FAQ 3-2:: I'm working under Windows and have no idea what 349* FAQ 3-2:: I'm working under Windows and have no idea what
350 ~/.gnus.el means. 350 ~/.gnus.el means.
@@ -369,8 +369,8 @@ hit @samp{C-y}.
369@node FAQ 3-1 369@node FAQ 3-1
370@subsubheading Question 3.1 370@subsubheading Question 3.1
371 371
372I just installed Gnus, started it via 372I just installed Gnus, started it via
373@samp{M-x gnus} 373@samp{M-x gnus}
374but it only says "nntp (news) open error", what to do? 374but it only says "nntp (news) open error", what to do?
375 375
376@subsubheading Answer 376@subsubheading Answer
@@ -396,14 +396,14 @@ I'm working under Windows and have no idea what ~/.gnus.el means.
396The ~/ means the home directory where Gnus and Emacs look 396The ~/ means the home directory where Gnus and Emacs look
397for the configuration files. However, you don't really 397for the configuration files. However, you don't really
398need to know what this means, it suffices that Emacs knows 398need to know what this means, it suffices that Emacs knows
399what it means :-) You can type 399what it means :-) You can type
400@samp{C-x C-f ~/.gnus.el RET } 400@samp{C-x C-f ~/.gnus.el RET }
401(yes, with the forward slash, even on Windows), and 401(yes, with the forward slash, even on Windows), and
402Emacs will open the right file for you. (It will most 402Emacs will open the right file for you. (It will most
403likely be new, and thus empty.) 403likely be new, and thus empty.)
404However, I'd discourage you from doing so, since the 404However, I'd discourage you from doing so, since the
405directory Emacs chooses will most certainly not be what 405directory Emacs chooses will most certainly not be what
406you want, so let's do it the correct way. 406you want, so let's do it the correct way.
407The first thing you've got to do is to 407The first thing you've got to do is to
408create a suitable directory (no blanks in directory name 408create a suitable directory (no blanks in directory name
409please) e.g. c:\myhome. Then you must set the environment 409please) e.g. c:\myhome. Then you must set the environment
@@ -442,7 +442,7 @@ machine news.yourprovider.net login YourUserName password YourPassword
442. 442.
443Make sure that the file isn't readable to others if you 443Make sure that the file isn't readable to others if you
444work on a OS which is capable of doing so. (Under Unix 444work on a OS which is capable of doing so. (Under Unix
445say 445say
446@example 446@example
447chmod 600 ~/.authinfo 447chmod 600 ~/.authinfo
448@end example 448@end example
@@ -477,13 +477,13 @@ post on this server as well as I am, what's that?
477 477
478Some providers allow restricted anonymous access and full 478Some providers allow restricted anonymous access and full
479access only after authorization. To make Gnus send authinfo 479access only after authorization. To make Gnus send authinfo
480to those servers append 480to those servers append
481 481
482@example 482@example
483force yes 483force yes
484@end example 484@end example
485@noindent 485@noindent
486 486
487to the line for those servers in ~/.authinfo. 487to the line for those servers in ~/.authinfo.
488 488
489@node FAQ 3-6 489@node FAQ 3-6
@@ -774,7 +774,7 @@ When I enter a group, all read messages are gone. How to view them again?
774 774
775@subsubheading Answer 775@subsubheading Answer
776 776
777If you enter the group by saying 777If you enter the group by saying
778@samp{RET} 778@samp{RET}
779in group buffer with point over the group, only unread and ticked messages are loaded. Say 779in group buffer with point over the group, only unread and ticked messages are loaded. Say
780@samp{C-u RET} 780@samp{C-u RET}
@@ -787,13 +787,13 @@ Loading only unread messages can be annoying if you have threaded view enabled,
787(setq gnus-fetch-old-headers 'some) 787(setq gnus-fetch-old-headers 'some)
788@end example 788@end example
789@noindent 789@noindent
790 790
791in ~/.gnus.el to load enough old articles to prevent teared threads, replace 'some with t to load 791in ~/.gnus.el to load enough old articles to prevent teared threads, replace 'some with t to load
792all articles (Warning: Both settings enlarge the amount of data which is 792all articles (Warning: Both settings enlarge the amount of data which is
793fetched when you enter a group and slow down the process of entering a group). 793fetched when you enter a group and slow down the process of entering a group).
794 794
795If you already use Gnus 5.10, you can say 795If you already use Gnus 5.10, you can say
796@samp{/o N} 796@samp{/o N}
797In summary buffer to load the last N messages, this feature is not available in 5.8.8 797In summary buffer to load the last N messages, this feature is not available in 5.8.8
798 798
799If you don't want all old messages, but the parent of the message you're just reading, 799If you don't want all old messages, but the parent of the message you're just reading,
@@ -822,9 +822,9 @@ How to view the headers of a message?
822 822
823@subsubheading Answer 823@subsubheading Answer
824 824
825Say @samp{t} 825Say @samp{t}
826to show all headers, one more 826to show all headers, one more
827@samp{t} 827@samp{t}
828hides them again. 828hides them again.
829 829
830@node FAQ 4-4 830@node FAQ 4-4
@@ -834,10 +834,10 @@ How to view the raw unformatted message?
834 834
835@subsubheading Answer 835@subsubheading Answer
836 836
837Say 837Say
838@samp{C-u g} 838@samp{C-u g}
839to show the raw message 839to show the raw message
840@samp{g} 840@samp{g}
841returns to normal view. 841returns to normal view.
842 842
843@node FAQ 4-5 843@node FAQ 4-5
@@ -873,7 +873,7 @@ Say
873 873
874@example 874@example
875(eval-after-load "mm-decode" 875(eval-after-load "mm-decode"
876 '(progn 876 '(progn
877 (add-to-list 'mm-discouraged-alternatives "text/html") 877 (add-to-list 'mm-discouraged-alternatives "text/html")
878 (add-to-list 'mm-discouraged-alternatives "text/richtext"))) 878 (add-to-list 'mm-discouraged-alternatives "text/richtext")))
879@end example 879@end example
@@ -1042,7 +1042,7 @@ back ends. Gnus thinks "highest-article-number -
1042lowest-article-number = total-number-of-articles". This 1042lowest-article-number = total-number-of-articles". This
1043works OK for Usenet groups, but if you delete and move 1043works OK for Usenet groups, but if you delete and move
1044many messages in mail groups, this fails. To cure the 1044many messages in mail groups, this fails. To cure the
1045symptom, enter the group via @samp{C-u RET} 1045symptom, enter the group via @samp{C-u RET}
1046(this makes Gnus get all messages), then 1046(this makes Gnus get all messages), then
1047hit @samp{M P b} to mark all messages and 1047hit @samp{M P b} to mark all messages and
1048then say @samp{B m name.of.group} to move 1048then say @samp{B m name.of.group} to move
@@ -1162,7 +1162,7 @@ general rule (regular expression .*) which denotes where
1162articles should go which don't match any other rule. If 1162articles should go which don't match any other rule. If
1163the folder doesn't exist yet, it will be created as soon 1163the folder doesn't exist yet, it will be created as soon
1164as an article lands there. By default the mail will be 1164as an article lands there. By default the mail will be
1165send to all groups whose rules match. If you 1165send to all groups whose rules match. If you
1166don't want that (you probably don't want), say 1166don't want that (you probably don't want), say
1167 1167
1168@example 1168@example
@@ -1203,7 +1203,7 @@ from using them):
1203 ("Spam" "^CC: .*azzrael@@t-online.invalid") 1203 ("Spam" "^CC: .*azzrael@@t-online.invalid")
1204 ("Spam" "^X-Mailer-Version: 1.50 BETA") 1204 ("Spam" "^X-Mailer-Version: 1.50 BETA")
1205 ("Uni" "^\\(CC:\\|To:\\).*localpart@@uni-koblenz.invalid.*") 1205 ("Uni" "^\\(CC:\\|To:\\).*localpart@@uni-koblenz.invalid.*")
1206 ("Inbox" "^\\(CC:\\|To:\\).*\\(my\ name\\|address@@one.invalid\\|adress@@two.invalid\\)") 1206 ("Inbox" "^\\(CC:\\|To:\\).*\\(my\ name\\|address@@one.invalid\\|address@@two.invalid\\)")
1207 ("Spam" ""))) 1207 ("Spam" "")))
1208@end example 1208@end example
1209@noindent 1209@noindent
@@ -1393,13 +1393,13 @@ You can use ispell.el to spell-check stuff in Emacs. So the
1393first thing to do is to make sure that you've got either 1393first thing to do is to make sure that you've got either
1394@uref{http://fmg-www.cs.ucla.edu/fmg-members/geoff/ispell.html, ispell} 1394@uref{http://fmg-www.cs.ucla.edu/fmg-members/geoff/ispell.html, ispell}
1395or @uref{http://aspell.sourceforge.net/, aspell} 1395or @uref{http://aspell.sourceforge.net/, aspell}
1396installed and in your Path. Then you need 1396installed and in your Path. Then you need
1397@uref{http://www.kdstevens.com/~stevens/ispell-page.html, ispell.el} 1397@uref{http://www.kdstevens.com/~stevens/ispell-page.html, ispell.el}
1398and for on-the-fly spell-checking 1398and for on-the-fly spell-checking
1399@uref{http://www-sop.inria.fr/members/Manuel.Serrano/flyspell/flyspell.html, flyspell.el}. 1399@uref{http://www-sop.inria.fr/members/Manuel.Serrano/flyspell/flyspell.html, flyspell.el}.
1400Ispell.el is shipped with Emacs and available through the XEmacs package system, 1400Ispell.el is shipped with Emacs and available through the XEmacs package system,
1401flyspell.el is shipped with Emacs and part of XEmacs text-modes package which is 1401flyspell.el is shipped with Emacs and part of XEmacs text-modes package which is
1402available through the package system, so there should be no need to install them 1402available through the package system, so there should be no need to install them
1403manually. 1403manually.
1404 1404
1405Ispell.el assumes you use ispell, if you choose aspell say 1405Ispell.el assumes you use ispell, if you choose aspell say
@@ -1408,7 +1408,7 @@ Ispell.el assumes you use ispell, if you choose aspell say
1408(setq ispell-program-name "aspell") 1408(setq ispell-program-name "aspell")
1409@end example 1409@end example
1410@noindent 1410@noindent
1411 1411
1412in your Emacs configuration file. 1412in your Emacs configuration file.
1413 1413
1414If you want your outgoing messages to be spell-checked, say 1414If you want your outgoing messages to be spell-checked, say
@@ -1445,7 +1445,7 @@ Yes, say something like
1445 (ispell-change-dictionary "english"))))) 1445 (ispell-change-dictionary "english")))))
1446@end example 1446@end example
1447@noindent 1447@noindent
1448 1448
1449in ~/.gnus.el. Change "^de\\." and "deutsch8" to something 1449in ~/.gnus.el. Change "^de\\." and "deutsch8" to something
1450that suits your needs. 1450that suits your needs.
1451 1451
@@ -1472,7 +1472,7 @@ cause Gnus to insert the full address for you. See the
1472node "Mail Aliases" in Message (not Gnus) manual for 1472node "Mail Aliases" in Message (not Gnus) manual for
1473details. 1473details.
1474 1474
1475However, what you really want is the Insidious Big Brother 1475However, what you really want is the Insidious Big Brother
1476Database bbdb. Get it through the XEmacs package system or from 1476Database bbdb. Get it through the XEmacs package system or from
1477@uref{http://bbdb.sourceforge.net/, bbdb's homepage}. 1477@uref{http://bbdb.sourceforge.net/, bbdb's homepage}.
1478Now place the following in ~/.gnus.el, to activate bbdb for Gnus: 1478Now place the following in ~/.gnus.el, to activate bbdb for Gnus:
@@ -1488,7 +1488,7 @@ place them in ~/.emacs:
1488 1488
1489@example 1489@example
1490(require 'bbdb) 1490(require 'bbdb)
1491;;If you don't live in Northern America, you should disable the 1491;;If you don't live in Northern America, you should disable the
1492;;syntax check for telephone numbers by saying 1492;;syntax check for telephone numbers by saying
1493(setq bbdb-north-american-phone-numbers-p nil) 1493(setq bbdb-north-american-phone-numbers-p nil)
1494;;Tell bbdb about your email address: 1494;;Tell bbdb about your email address:
@@ -1529,7 +1529,7 @@ X-Face. So fire up some image manipulation program (say
1529Gimp), open the image you want to include, cut out the 1529Gimp), open the image you want to include, cut out the
1530relevant part, reduce color depth to 1 bit, resize to 1530relevant part, reduce color depth to 1 bit, resize to
153148*48 and save as bitmap. Now you should get the compface 153148*48 and save as bitmap. Now you should get the compface
1532package from 1532package from
1533@uref{ftp://ftp.cs.indiana.edu:/pub/faces/, this site}. 1533@uref{ftp://ftp.cs.indiana.edu:/pub/faces/, this site}.
1534and create the actual X-face by saying 1534and create the actual X-face by saying
1535 1535
@@ -1539,7 +1539,7 @@ cat file.face | sed 's/\\/\\\\/g;s/\"/\\\"/g;' > file.face.quoted
1539@end example 1539@end example
1540@noindent 1540@noindent
1541 1541
1542If you can't use compface, there's an online X-face converter at 1542If you can't use compface, there's an online X-face converter at
1543@uref{http://www.dairiki.org/xface/}. 1543@uref{http://www.dairiki.org/xface/}.
1544If you use MS Windows, you could also use the WinFace program from 1544If you use MS Windows, you could also use the WinFace program from
1545@uref{http://www.xs4all.nl/~walterln/winface/}. 1545@uref{http://www.xs4all.nl/~walterln/winface/}.
@@ -1668,7 +1668,7 @@ by saying:
1668@noindent 1668@noindent
1669 1669
1670in ~/.gnus.el. If you use Gnus 5.9 or earlier, you can use this 1670in ~/.gnus.el. If you use Gnus 5.9 or earlier, you can use this
1671instead (works for newer versions as well): 1671instead (works for newer versions as well):
1672 1672
1673@example 1673@example
1674(eval-after-load "message" 1674(eval-after-load "message"
@@ -1961,12 +1961,12 @@ receives the mail you write from Gnus and sends them
1961when you're online. 1961when you're online.
1962 1962
1963Let's talk about Unix systems first: For the news part, 1963Let's talk about Unix systems first: For the news part,
1964the easiest solution is a small nntp server like 1964the easiest solution is a small nntp server like
1965@uref{http://www.leafnode.org/, Leafnode} or 1965@uref{http://www.leafnode.org/, Leafnode} or
1966@uref{http://infa.abo.fi/~patrik/sn/, sn}, 1966@uref{http://infa.abo.fi/~patrik/sn/, sn},
1967of course you can also install a full featured news 1967of course you can also install a full featured news
1968server like 1968server like
1969@uref{http://www.isc.org/products/INN/, inn}. 1969@uref{http://www.isc.org/products/INN/, inn}.
1970Then you want to fetch your Mail, popular choices 1970Then you want to fetch your Mail, popular choices
1971are @uref{http://www.catb.org/~esr/fetchmail/, fetchmail} 1971are @uref{http://www.catb.org/~esr/fetchmail/, fetchmail}
1972and @uref{http://pyropus.ca/software/getmail/, getmail}. 1972and @uref{http://pyropus.ca/software/getmail/, getmail}.
@@ -1978,8 +1978,8 @@ sending part: This can be done with every MTA like
1978@uref{http://www.exim.org/, exim} or 1978@uref{http://www.exim.org/, exim} or
1979@uref{http://www.qmail.org/, qmail}. 1979@uref{http://www.qmail.org/, qmail}.
1980 1980
1981On windows boxes I'd vote for 1981On windows boxes I'd vote for
1982@uref{http://www.tglsoft.de/, Hamster}, 1982@uref{http://www.tglsoft.de/, Hamster},
1983it's a small freeware, open-source program which fetches 1983it's a small freeware, open-source program which fetches
1984your mail and news from remote servers and offers them 1984your mail and news from remote servers and offers them
1985to Gnus (or any other mail and/or news reader) via nntp 1985to Gnus (or any other mail and/or news reader) via nntp
@@ -2136,7 +2136,7 @@ Which mailing lists and newsgroups are there?
2136@subsubheading Answer 2136@subsubheading Answer
2137 2137
2138There's the newsgroup gnu.emacs.gnus (also available as 2138There's the newsgroup gnu.emacs.gnus (also available as
2139@uref{http://dir.gmane.org/gmane.emacs.gnus.user, 2139@uref{http://dir.gmane.org/gmane.emacs.gnus.user,
2140gmane.emacs.gnus.user}) which deals with general Gnus 2140gmane.emacs.gnus.user}) which deals with general Gnus
2141questions. If you have questions about development versions of 2141questions. If you have questions about development versions of
2142Gnus, you should better ask on the ding mailing list, see below. 2142Gnus, you should better ask on the ding mailing list, see below.
@@ -2149,7 +2149,7 @@ de.comm.software.gnus.
2149 2149
2150The ding mailing list (ding@@gnus.org) deals with development of 2150The ding mailing list (ding@@gnus.org) deals with development of
2151Gnus. You can read the ding list via NNTP, too under the name 2151Gnus. You can read the ding list via NNTP, too under the name
2152@uref{http://dir.gmane.org/gmane.emacs.gnus.general, 2152@uref{http://dir.gmane.org/gmane.emacs.gnus.general,
2153gmane.emacs.gnus.general} from news.gmane.org. 2153gmane.emacs.gnus.general} from news.gmane.org.
2154 2154
2155@node FAQ 8-5 2155@node FAQ 8-5
@@ -2160,7 +2160,7 @@ Where to report bugs?
2160@subsubheading Answer 2160@subsubheading Answer
2161 2161
2162Say @samp{M-x gnus-bug}, this will start 2162Say @samp{M-x gnus-bug}, this will start
2163a message to the 2163a message to the
2164@email{bugs@@gnus.org, gnus bug mailing list} 2164@email{bugs@@gnus.org, gnus bug mailing list}
2165including information about your environment which make 2165including information about your environment which make
2166it easier to help you. 2166it easier to help you.
@@ -2237,7 +2237,7 @@ building of summary say
2237 2237
2238at the bottom of your ~/.gnus.el, this will make gnus 2238at the bottom of your ~/.gnus.el, this will make gnus
2239byte-compile things like 2239byte-compile things like
2240gnus-summary-line-format. 2240gnus-summary-line-format.
2241then you could increase the value of gc-cons-threshold 2241then you could increase the value of gc-cons-threshold
2242by saying something like 2242by saying something like
2243 2243
@@ -2254,7 +2254,7 @@ recent GNU Emacs, you should say
2254(setq gnus-use-correct-string-widths nil) 2254(setq gnus-use-correct-string-widths nil)
2255@end example 2255@end example
2256@noindent 2256@noindent
2257 2257
2258in ~/.gnus.el (thanks to Jesper harder for the last 2258in ~/.gnus.el (thanks to Jesper harder for the last
2259two suggestions). Finally if you are still using 5.8.8 2259two suggestions). Finally if you are still using 5.8.8
2260or 5.9 and experience speed problems with summary 2260or 5.9 and experience speed problems with summary
diff --git a/doc/misc/gnus.texi b/doc/misc/gnus.texi
index 545306e4dc7..a3a93c6ef61 100644
--- a/doc/misc/gnus.texi
+++ b/doc/misc/gnus.texi
@@ -7665,7 +7665,7 @@ has its own article buffer.
7665This implies that it's not possible to have more than one article buffer 7665This implies that it's not possible to have more than one article buffer
7666in a group at a time. But sometimes you might want to display all the 7666in a group at a time. But sometimes you might want to display all the
7667latest emails from your mother, your father, your aunt, your uncle and 7667latest emails from your mother, your father, your aunt, your uncle and
7668your 17 cousins to coordinate the next christmas party. 7668your 17 cousins to coordinate the next Christmas party.
7669 7669
7670That's where sticky articles come in handy. A sticky article buffer 7670That's where sticky articles come in handy. A sticky article buffer
7671basically is a normal article buffer, but it won't be reused when you 7671basically is a normal article buffer, but it won't be reused when you
@@ -18001,7 +18001,7 @@ see the event's date.
18001 @code{gnus-diary} provides two supplemental user formats to be used in 18001 @code{gnus-diary} provides two supplemental user formats to be used in
18002summary line formats. @code{D} corresponds to a formatted time string 18002summary line formats. @code{D} corresponds to a formatted time string
18003for the next occurrence of the event (e.g. ``Sat, Sep 22 01, 12:00''), 18003for the next occurrence of the event (e.g. ``Sat, Sep 22 01, 12:00''),
18004while @code{d} corresponds to an approximative remaining time until the 18004while @code{d} corresponds to an approximate remaining time until the
18005next occurrence of the event (e.g. ``in 6 months, 1 week''). 18005next occurrence of the event (e.g. ``in 6 months, 1 week'').
18006 18006
18007 For example, here's how Joe's birthday is displayed in my 18007 For example, here's how Joe's birthday is displayed in my
@@ -18105,7 +18105,7 @@ mail sending with @code{nndiary}:
18105@itemize @bullet 18105@itemize @bullet
18106@item 18106@item
18107@code{nndiary} is a @emph{real} mail back end. You really send real diary 18107@code{nndiary} is a @emph{real} mail back end. You really send real diary
18108messsages for real. This means for instance that you can give 18108messages for real. This means for instance that you can give
18109appointments to anybody (provided they use Gnus and @code{nndiary}) by 18109appointments to anybody (provided they use Gnus and @code{nndiary}) by
18110sending the diary message to them as well. 18110sending the diary message to them as well.
18111@item 18111@item
@@ -26756,7 +26756,7 @@ Sudish Joseph---innumerable bug fixes.
26756Ilja Weis---@file{gnus-topic.el}. 26756Ilja Weis---@file{gnus-topic.el}.
26757 26757
26758@item 26758@item
26759Steven L. Baur---lots and lots and lots of bugs detections and fixes. 26759Steven L. Baur---lots and lots and lots of bug detection and fixes.
26760 26760
26761@item 26761@item
26762Vladimir Alexiev---the refcard and reference booklets. 26762Vladimir Alexiev---the refcard and reference booklets.
diff --git a/doc/misc/newsticker.texi b/doc/misc/newsticker.texi
index c7d82245973..18e11aeeeb3 100644
--- a/doc/misc/newsticker.texi
+++ b/doc/misc/newsticker.texi
@@ -52,7 +52,7 @@ developing GNU and promoting software freedom.''
52@node Top 52@node Top
53@top Newsticker 53@top Newsticker
54 54
55@insertcopying 55@insertcopying
56 56
57@end ifnottex 57@end ifnottex
58 58
@@ -112,9 +112,9 @@ enclosed files (as delivered by podcasts, e.g.).
112Here are screen shots of the @uref{newsticker-1.7.png, version 1.7 112Here are screen shots of the @uref{newsticker-1.7.png, version 1.7
113(current version)} and some older screen shots: 113(current version)} and some older screen shots:
114@uref{newsticker-1.6.png, version 1.6}, 114@uref{newsticker-1.6.png, version 1.6},
115@uref{newsticker-1.5.png, version 1.5}, 115@uref{newsticker-1.5.png, version 1.5},
116@uref{newsticker-1.4.png, version 1.4} 116@uref{newsticker-1.4.png, version 1.4}
117@uref{newsticker-1.3.png, version 1.3}, 117@uref{newsticker-1.3.png, version 1.3},
118@uref{newsticker-1.0.png, version 1.0}. 118@uref{newsticker-1.0.png, version 1.0}.
119@end ifhtml 119@end ifhtml
120 120
@@ -163,7 +163,7 @@ You can choose between two different frontends for reading headlines:
163@item Newsticker's @emph{treeview} uses separate windows for the 163@item Newsticker's @emph{treeview} uses separate windows for the
164feeds (in tree form), a list of headlines for the current feed, and 164feeds (in tree form), a list of headlines for the current feed, and
165the content of the current headline. Feeds can be placed into groups 165the content of the current headline. Feeds can be placed into groups
166which itself can be placed in groups and so on. 166which itself can be placed in groups and so on.
167@item Newsticker's @emph{plainview} displays all headlines in a 167@item Newsticker's @emph{plainview} displays all headlines in a
168single buffer, called @samp{*newsticker*}. The modeline in the 168single buffer, called @samp{*newsticker*}. The modeline in the
169@samp{*newsticker*} buffer informs whenever new headlines have 169@samp{*newsticker*} buffer informs whenever new headlines have
@@ -171,7 +171,7 @@ arrived.
171@end itemize 171@end itemize
172In both views clicking mouse-button 2 or pressing RET on a headline 172In both views clicking mouse-button 2 or pressing RET on a headline
173will call @code{browse-url} to load the corresponding news story in 173will call @code{browse-url} to load the corresponding news story in
174your favourite web browser. 174your favorite web browser.
175 175
176@findex newsticker-start-ticker 176@findex newsticker-start-ticker
177@findex newsticker-stop-ticker 177@findex newsticker-stop-ticker
@@ -205,7 +205,7 @@ and some of the most important options.
205 205
206@item 206@item
207@code{newsticker-retrieval} contains options that define which news 207@code{newsticker-retrieval} contains options that define which news
208feeds are retrieved and how this is done. 208feeds are retrieved and how this is done.
209 209
210@itemize 210@itemize
211@item 211@item
@@ -241,7 +241,7 @@ automatically mark headlines as immortal or old.
241 241
242@item 242@item
243@code{newsticker-hooks} contains options for hooking other Emacs 243@code{newsticker-hooks} contains options for hooking other Emacs
244commands to newsticker functions. 244commands to newsticker functions.
245@itemize 245@itemize
246@item 246@item
247@vindex newsticker-new-item-functions 247@vindex newsticker-new-item-functions
@@ -313,5 +313,3 @@ Byte-compiling newsticker.el is recommended.
313@printindex cp 313@printindex cp
314 314
315@bye 315@bye
316
317
diff --git a/doc/misc/org.texi b/doc/misc/org.texi
index 2a3d99ca7f4..cc925906c28 100644
--- a/doc/misc/org.texi
+++ b/doc/misc/org.texi
@@ -36,7 +36,7 @@
36 36
37@c orgkey{key} A key item 37@c orgkey{key} A key item
38@c orgcmd{key,cmd} Key with command name 38@c orgcmd{key,cmd} Key with command name
39@c xorgcmd{key,cmmand} Key with command name as @itemx 39@c xorgcmd{key,command} Key with command name as @itemx
40@c orgcmdnki{key,cmd} Like orgcmd, but do not index the key 40@c orgcmdnki{key,cmd} Like orgcmd, but do not index the key
41@c orgcmdtkc{text,key,cmd} Like orgcmd,special text instead of key 41@c orgcmdtkc{text,key,cmd} Like orgcmd,special text instead of key
42@c orgcmdkkc{key1,key2,cmd} Two keys with one command name, use "or" 42@c orgcmdkkc{key1,key2,cmd} Two keys with one command name, use "or"
@@ -3883,7 +3883,7 @@ special faces for some of them. This can be done using the variable
3883@end lisp 3883@end lisp
3884 3884
3885While using a list with face properties as shown for CANCELED @emph{should} 3885While using a list with face properties as shown for CANCELED @emph{should}
3886work, this does not aways seem to be the case. If necessary, define a 3886work, this does not always seem to be the case. If necessary, define a
3887special face and use that. A string is interpreted as a color. The variable 3887special face and use that. A string is interpreted as a color. The variable
3888@code{org-faces-easy-properties} determines if that color is interpreted as a 3888@code{org-faces-easy-properties} determines if that color is interpreted as a
3889foreground or a background color. 3889foreground or a background color.
@@ -5664,7 +5664,7 @@ an item:
5664@orgcmd{C-c C-d,org-deadline} 5664@orgcmd{C-c C-d,org-deadline}
5665Insert @samp{DEADLINE} keyword along with a stamp. The insertion will happen 5665Insert @samp{DEADLINE} keyword along with a stamp. The insertion will happen
5666in the line directly following the headline. Any CLOSED timestamp will be 5666in the line directly following the headline. Any CLOSED timestamp will be
5667removed. When called with a prefix arg, an existing deadline will be removed 5667removed. When called with a prefix arg, an existing deadline will be removed
5668from the entry. Depending on the variable @code{org-log-redeadline}@footnote{with corresponding 5668from the entry. Depending on the variable @code{org-log-redeadline}@footnote{with corresponding
5669@code{#+STARTUP} keywords @code{logredeadline}, @code{lognoteredeadline}, 5669@code{#+STARTUP} keywords @code{logredeadline}, @code{lognoteredeadline},
5670and @code{nologredeadline}}, a note will be taken when changing an existing 5670and @code{nologredeadline}}, a note will be taken when changing an existing
@@ -6216,7 +6216,7 @@ not started at exactly the right moment.
6216@kindex ; 6216@kindex ;
6217 6217
6218Calling @code{org-timer-set-timer} from an Org-mode buffer runs a countdown 6218Calling @code{org-timer-set-timer} from an Org-mode buffer runs a countdown
6219timer. Use @kbd{;} from agenda buffers, @key{C-c C-x ;} everwhere else. 6219timer. Use @kbd{;} from agenda buffers, @key{C-c C-x ;} everywhere else.
6220 6220
6221@code{org-timer-set-timer} prompts the user for a duration and displays a 6221@code{org-timer-set-timer} prompts the user for a duration and displays a
6222countdown timer in the modeline. @code{org-timer-default-timer} sets the 6222countdown timer in the modeline. @code{org-timer-default-timer} sets the
@@ -6393,7 +6393,7 @@ like this:
6393@node Template elements, Template expansion, Capture templates, Capture templates 6393@node Template elements, Template expansion, Capture templates, Capture templates
6394@subsubsection Template elements 6394@subsubsection Template elements
6395 6395
6396Now lets look at the elements of a template definition. Each entry in 6396Now let's look at the elements of a template definition. Each entry in
6397@code{org-capture-templates} is a list with the following items: 6397@code{org-capture-templates} is a list with the following items:
6398 6398
6399@table @var 6399@table @var
@@ -8262,7 +8262,7 @@ This is a globally available command, and also available in the agenda menu.
8262@vindex org-agenda-exporter-settings 8262@vindex org-agenda-exporter-settings
8263Write the agenda view to a file. Depending on the extension of the selected 8263Write the agenda view to a file. Depending on the extension of the selected
8264file name, the view will be exported as HTML (extension @file{.html} or 8264file name, the view will be exported as HTML (extension @file{.html} or
8265@file{.htm}), Postscript (extension @file{.ps}), PDF (extension @file{.pdf}), 8265@file{.htm}), PostScript (extension @file{.ps}), PDF (extension @file{.pdf}),
8266and plain text (any other extension). When called with a @kbd{C-u} prefix 8266and plain text (any other extension). When called with a @kbd{C-u} prefix
8267argument, immediately open the newly created file. Use the variable 8267argument, immediately open the newly created file. Use the variable
8268@code{org-agenda-exporter-settings} to set options for @file{ps-print} and 8268@code{org-agenda-exporter-settings} to set options for @file{ps-print} and
@@ -8477,9 +8477,9 @@ yourself.
8477If you are away from your computer, it can be very useful to have a printed 8477If you are away from your computer, it can be very useful to have a printed
8478version of some agenda views to carry around. Org-mode can export custom 8478version of some agenda views to carry around. Org-mode can export custom
8479agenda views as plain text, HTML@footnote{You need to install Hrvoje Niksic's 8479agenda views as plain text, HTML@footnote{You need to install Hrvoje Niksic's
8480@file{htmlize.el}.}, Postscript, PDF@footnote{To create PDF output, the 8480@file{htmlize.el}.}, PostScript, PDF@footnote{To create PDF output, the
8481ghostscript @file{ps2pdf} utility must be installed on the system. Selecting 8481ghostscript @file{ps2pdf} utility must be installed on the system. Selecting
8482a PDF file will also create the postscript file.}, and iCalendar files. If 8482a PDF file will also create the PostScript file.}, and iCalendar files. If
8483you want to do this only occasionally, use the command 8483you want to do this only occasionally, use the command
8484 8484
8485@table @kbd 8485@table @kbd
@@ -8489,7 +8489,7 @@ you want to do this only occasionally, use the command
8489@vindex org-agenda-exporter-settings 8489@vindex org-agenda-exporter-settings
8490Write the agenda view to a file. Depending on the extension of the selected 8490Write the agenda view to a file. Depending on the extension of the selected
8491file name, the view will be exported as HTML (extension @file{.html} or 8491file name, the view will be exported as HTML (extension @file{.html} or
8492@file{.htm}), Postscript (extension @file{.ps}), iCalendar (extension 8492@file{.htm}), PostScript (extension @file{.ps}), iCalendar (extension
8493@file{.ics}), or plain text (any other extension). Use the variable 8493@file{.ics}), or plain text (any other extension). Use the variable
8494@code{org-agenda-exporter-settings} to set options for @file{ps-print} and 8494@code{org-agenda-exporter-settings} to set options for @file{ps-print} and
8495for @file{htmlize} to be used during export, for example 8495for @file{htmlize} to be used during export, for example
@@ -8542,7 +8542,7 @@ The extension of the file name determines the type of export. If it is
8542@file{.html}, Org-mode will use the @file{htmlize.el} package to convert 8542@file{.html}, Org-mode will use the @file{htmlize.el} package to convert
8543the buffer to HTML and save it to this file name. If the extension is 8543the buffer to HTML and save it to this file name. If the extension is
8544@file{.ps}, @code{ps-print-buffer-with-faces} is used to produce 8544@file{.ps}, @code{ps-print-buffer-with-faces} is used to produce
8545Postscript output. If the extension is @file{.ics}, iCalendar export is 8545PostScript output. If the extension is @file{.ics}, iCalendar export is
8546run export over all files that were used to construct the agenda, and 8546run export over all files that were used to construct the agenda, and
8547limit the export to entries listed in the agenda. Any other 8547limit the export to entries listed in the agenda. Any other
8548extension produces a plain ASCII file. 8548extension produces a plain ASCII file.
@@ -8573,7 +8573,7 @@ set options for the export commands. For example:
8573@end lisp 8573@end lisp
8574 8574
8575@noindent 8575@noindent
8576This command sets two options for the Postscript exporter, to make it 8576This command sets two options for the PostScript exporter, to make it
8577print in two columns in landscape format---the resulting page can be cut 8577print in two columns in landscape format---the resulting page can be cut
8578in two and then used in a paper agenda. The remaining settings modify 8578in two and then used in a paper agenda. The remaining settings modify
8579the agenda prefix to omit category and scheduling information, and 8579the agenda prefix to omit category and scheduling information, and
@@ -9421,7 +9421,7 @@ the web, while the XOXO format provides a solid base for exchange with a
9421broad range of other applications. @LaTeX{} export lets you use Org-mode and 9421broad range of other applications. @LaTeX{} export lets you use Org-mode and
9422its structured editing functions to easily create @LaTeX{} files. DocBook 9422its structured editing functions to easily create @LaTeX{} files. DocBook
9423export makes it possible to convert Org files to many other formats using 9423export makes it possible to convert Org files to many other formats using
9424DocBook tools. OpenDocumentText export allows seamless colloboration across 9424DocBook tools. OpenDocumentText export allows seamless collaboration across
9425organizational boundaries. For project management you can create gantt and 9425organizational boundaries. For project management you can create gantt and
9426resource charts by using TaskJuggler export. To incorporate entries with 9426resource charts by using TaskJuggler export. To incorporate entries with
9427associated times like deadlines or appointments into a desktop calendar 9427associated times like deadlines or appointments into a desktop calendar
diff --git a/doc/misc/pgg.texi b/doc/misc/pgg.texi
index 9cb7a637a05..0de12577b2d 100644
--- a/doc/misc/pgg.texi
+++ b/doc/misc/pgg.texi
@@ -57,18 +57,18 @@ and various tools for secure communication. PGG also provides a simple
57user interface to encrypt, decrypt, sign, and verify MIME messages. 57user interface to encrypt, decrypt, sign, and verify MIME messages.
58 58
59@ifnottex 59@ifnottex
60@insertcopying 60@insertcopying
61@end ifnottex 61@end ifnottex
62 62
63@menu 63@menu
64* Overview:: What PGG is. 64* Overview:: What PGG is.
65* Prerequisites:: Complicated stuff you may have to do. 65* Prerequisites:: Complicated stuff you may have to do.
66* How to use:: Getting started quickly. 66* How to use:: Getting started quickly.
67* Architecture:: 67* Architecture::
68* Parsing OpenPGP packets:: 68* Parsing OpenPGP packets::
69* GNU Free Documentation License:: The license for this documentation. 69* GNU Free Documentation License:: The license for this documentation.
70* Function Index:: 70* Function Index::
71* Variable Index:: 71* Variable Index::
72@end menu 72@end menu
73 73
74@node Overview 74@node Overview
@@ -137,10 +137,10 @@ list autoload setting for desired functions as follows.
137@end lisp 137@end lisp
138 138
139@menu 139@menu
140* User Commands:: 140* User Commands::
141* Selecting an implementation:: 141* Selecting an implementation::
142* Caching passphrase:: 142* Caching passphrase::
143* Default user identity:: 143* Default user identity::
144@end menu 144@end menu
145 145
146@node User Commands 146@node User Commands
@@ -358,13 +358,13 @@ singleton object wrapped with the luna object system.
358 358
359Since PGG was designed for accessing and developing PGP functionality, 359Since PGG was designed for accessing and developing PGP functionality,
360the architecture had to be designed not just for interoperability but 360the architecture had to be designed not just for interoperability but
361also for extensiblity. In this chapter we explore the architecture 361also for extensibility. In this chapter we explore the architecture
362while finding out how to write the PGG back end. 362while finding out how to write the PGG back end.
363 363
364@menu 364@menu
365* Initializing:: 365* Initializing::
366* Back end methods:: 366* Back end methods::
367* Getting output:: 367* Getting output::
368@end menu 368@end menu
369 369
370@node Initializing 370@node Initializing
diff --git a/doc/misc/sc.texi b/doc/misc/sc.texi
index 8853192af04..37ccc4045be 100644
--- a/doc/misc/sc.texi
+++ b/doc/misc/sc.texi
@@ -56,7 +56,7 @@ developing GNU and promoting software freedom.''
56@top Supercite 56@top Supercite
57@comment node-name, next, previous, up 57@comment node-name, next, previous, up
58 58
59@insertcopying 59@insertcopying
60 60
61The manual is divided 61The manual is divided
62into the following chapters. 62into the following chapters.
@@ -1877,7 +1877,7 @@ been continuously added through the comments and suggestions of the
1877Supercite mailing list participants. 1877Supercite mailing list participants.
1878 1878
1879With version 3, Supercite underwent an almost complete rewrite, 1879With version 3, Supercite underwent an almost complete rewrite,
1880benefitting in a number of ways, including vast improvements in the 1880benefiting in a number of ways, including vast improvements in the
1881speed of performance, a big reduction in size of the code and in the use 1881speed of performance, a big reduction in size of the code and in the use
1882of Emacs resources, and a much cleaner and flexible internal 1882of Emacs resources, and a much cleaner and flexible internal
1883architecture. Most of this work was internal and not of very great 1883architecture. Most of this work was internal and not of very great
diff --git a/doc/misc/sem-user.texi b/doc/misc/sem-user.texi
index b17f1ab7e93..7a363523aa6 100644
--- a/doc/misc/sem-user.texi
+++ b/doc/misc/sem-user.texi
@@ -382,7 +382,7 @@ them yourself.
382@deffn Option semanticdb-project-roots 382@deffn Option semanticdb-project-roots
383The value of this variable is a list of directories (strings) that are 383The value of this variable is a list of directories (strings) that are
384project roots. All subdirectories of a project root are considered 384project roots. All subdirectories of a project root are considered
385part of the same project. This variable can be overriden by 385part of the same project. This variable can be overridden by
386@code{semanticdb-project-root-functions}. 386@code{semanticdb-project-root-functions}.
387@end deffn 387@end deffn
388 388
@@ -608,7 +608,7 @@ of parsing. The default is @code{t}.
608@node Debugging Idle Time Issues 608@node Debugging Idle Time Issues
609@subsection Debugging Idle Time Issues 609@subsection Debugging Idle Time Issues
610 610
611If you see an error signalled during idle time, it could be an 611If you see an error signaled during idle time, it could be an
612indication of a more serious issue elsewhere. It is not enough to 612indication of a more serious issue elsewhere. It is not enough to
613enable @code{debug-on-error}, because the idle scheduler inhibits the 613enable @code{debug-on-error}, because the idle scheduler inhibits the
614debugger. Instead, use the following commands to debug the error: 614debugger. Instead, use the following commands to debug the error:
diff --git a/doc/misc/semantic.texi b/doc/misc/semantic.texi
index f3f11d29f17..ad6159feb1a 100644
--- a/doc/misc/semantic.texi
+++ b/doc/misc/semantic.texi
@@ -306,7 +306,7 @@ Files associated with tags. Goto-tag, file for include, and file for
306a prototype. 306a prototype.
307 307
308@item semantic-tag-ls.el 308@item semantic-tag-ls.el
309Language dependant features of a tag, such as parent calculation, slot 309Language dependent features of a tag, such as parent calculation, slot
310protection, and other states like abstract, virtual, static, and leaf. 310protection, and other states like abstract, virtual, static, and leaf.
311 311
312@item semantic-dep.el 312@item semantic-dep.el
@@ -349,7 +349,7 @@ This file also provides support for @code{semanticdb-minor-mode},
349which automatically associates files with tables in databases so that 349which automatically associates files with tables in databases so that
350tags are @emph{saved} while a buffer is not in memory. 350tags are @emph{saved} while a buffer is not in memory.
351 351
352The database and tables both also provide applicate cache information, 352The database and tables both also provide applicable cache information,
353and cache flushing system. The semanticdb search routines use caches 353and cache flushing system. The semanticdb search routines use caches
354to save datastructures that are complex to calculate. 354to save datastructures that are complex to calculate.
355 355
@@ -606,7 +606,7 @@ Emacs Lisp. It is an LALR parser suitable for complex languages.
606@c LocalWords: concat concocting const constantness ctxt Decl defcustom 606@c LocalWords: concat concocting const constantness ctxt Decl defcustom
607@c LocalWords: deffn deffnx defun defvar destructor's dfn diff dir 607@c LocalWords: deffn deffnx defun defvar destructor's dfn diff dir
608@c LocalWords: doc docstring EDE EIEIO elisp emacsman emph enum 608@c LocalWords: doc docstring EDE EIEIO elisp emacsman emph enum
609@c LocalWords: eq Exp EXPANDFULL expresssion fn foo func funcall 609@c LocalWords: eq Exp EXPANDFULL expression fn foo func funcall
610@c LocalWords: ia ids iff ifinfo imenu imenus init int isearch itemx java kbd 610@c LocalWords: ia ids iff ifinfo imenu imenus init int isearch itemx java kbd
611@c LocalWords: keymap keywordtable lang languagemode lexer lexing Ludlam 611@c LocalWords: keymap keywordtable lang languagemode lexer lexing Ludlam
612@c LocalWords: menubar metaparent metaparents min minibuffer Misc mode's 612@c LocalWords: menubar metaparent metaparents min minibuffer Misc mode's
diff --git a/doc/misc/tramp.texi b/doc/misc/tramp.texi
index a4e06ab22f1..0accc6fac43 100644
--- a/doc/misc/tramp.texi
+++ b/doc/misc/tramp.texi
@@ -1575,7 +1575,7 @@ password handling. Consider @command{ssh-agent} for @option{ssh}-like
1575methods, or @command{pageant} for @option{plink}-like methods. 1575methods, or @command{pageant} for @option{plink}-like methods.
1576 1576
1577However, if you cannot apply such native password handling, 1577However, if you cannot apply such native password handling,
1578@value{tramp} offers altenatives. 1578@value{tramp} offers alternatives.
1579 1579
1580 1580
1581@anchor{Using an authentication file} 1581@anchor{Using an authentication file}
diff --git a/etc/AUTHORS b/etc/AUTHORS
index f214d5e5515..f8ab274e136 100644
--- a/etc/AUTHORS
+++ b/etc/AUTHORS
@@ -908,7 +908,7 @@ Derek Upham: changed nxml-mode.el
908 908
909Detlev Zundel: wrote re-builder.el 909Detlev Zundel: wrote re-builder.el
910 910
911Devon Sean Mccullough: changed comint.el 911Devon Sean McCullough: changed comint.el
912 912
913Dhruva Krishnamurthy: changed makefile.w32-in emacsclient.c fontset.c 913Dhruva Krishnamurthy: changed makefile.w32-in emacsclient.c fontset.c
914 sound.c w32proc.c 914 sound.c w32proc.c
diff --git a/etc/ChangeLog b/etc/ChangeLog
index b494c8e3c96..1db595b3175 100644
--- a/etc/ChangeLog
+++ b/etc/ChangeLog
@@ -1,3 +1,7 @@
12011-11-14 Juanma Barranquero <lekktu@gmail.com>
2
3 * MAILINGLISTS: Fix typo.
4
12011-10-29 Eli Zaretskii <eliz@gnu.org> 52011-10-29 Eli Zaretskii <eliz@gnu.org>
2 6
3 * themes/wombat-theme.el: Add a coding cookie. (Bug#9905) 7 * themes/wombat-theme.el: Add a coding cookie. (Bug#9905)
@@ -371,7 +375,7 @@
371 375
3722011-01-04 Jan Moringen <jan.moringen@uni-bielefeld.de> 3762011-01-04 Jan Moringen <jan.moringen@uni-bielefeld.de>
373 377
374 * NEWS: Extended behaviour of dbus-register-{method,property}. 378 * NEWS: Extended behavior of dbus-register-{method,property}.
375 379
3762011-01-02 Kenichi Handa <handa@m17n.org> 3802011-01-02 Kenichi Handa <handa@m17n.org>
377 381
diff --git a/etc/ERC-NEWS b/etc/ERC-NEWS
index 17bf4fc3877..04084b58488 100644
--- a/etc/ERC-NEWS
+++ b/etc/ERC-NEWS
@@ -852,7 +852,7 @@ Only the macros in cl-macs.el are used.
852** If possible, re-use channel buffers when reconnecting to a server. 852** If possible, re-use channel buffers when reconnecting to a server.
853 853
854** Text in ERC buffers is now read-only by default. 854** Text in ERC buffers is now read-only by default.
855To get the previous behavior, 855To get the previous behavior,
856 856
857** Changes and additions to modules 857** Changes and additions to modules
858 858
@@ -1280,7 +1280,7 @@ in XEmacs.
1280 the variable `erc-modules' and define once and for all which 1280 the variable `erc-modules' and define once and for all which
1281 extension modules you want to use. This unfortunately may require 1281 extension modules you want to use. This unfortunately may require
1282 you to change your current erc initialisation code a bit, if you 1282 you to change your current erc initialisation code a bit, if you
1283 have some existing customsations. On the other hand, this change 1283 have some existing customizations. On the other hand, this change
1284 makes the configuration of extension modules a lot easier for new 1284 makes the configuration of extension modules a lot easier for new
1285 users. In theory, you should be able to configure all aspects of 1285 users. In theory, you should be able to configure all aspects of
1286 ERC by using the customize interface, you should no longer really 1286 ERC by using the customize interface, you should no longer really
@@ -1342,4 +1342,3 @@ GNU General Public License for more details.
1342 1342
1343You should have received a copy of the GNU General Public License 1343You should have received a copy of the GNU General Public License
1344along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. 1344along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
1345
diff --git a/etc/JOKES b/etc/JOKES
index 9cbba845111..af304e778da 100644
--- a/etc/JOKES
+++ b/etc/JOKES
@@ -197,7 +197,7 @@ Each
197Manual's 197Manual's
198Audience is 198Audience is
199Completely 199Completely
200Stupified 200Stupefied
201 201
202Emacs 202Emacs
203Means 203Means
@@ -333,7 +333,7 @@ Easily
333Mangles, 333Mangles,
334Aborts, 334Aborts,
335Crashes and 335Crashes and
336Stupifies 336Stupefies
337 337
338Extraneous 338Extraneous
339Macros 339Macros
diff --git a/etc/MAILINGLISTS b/etc/MAILINGLISTS
index ef918d3d211..98f10511835 100644
--- a/etc/MAILINGLISTS
+++ b/etc/MAILINGLISTS
@@ -170,7 +170,7 @@ for yourself in particular, you may have to hire someone. The GNU
170project maintains a list of people providing such services. It is 170project maintains a list of people providing such services. It is
171found in <URL:http://www.gnu.org/prep/SERVICE>. 171found in <URL:http://www.gnu.org/prep/SERVICE>.
172 172
173Anything addressed to the implementors and maintainers of a GNU program 173Anything addressed to the implementers and maintainers of a GNU program
174via a bug-* list, should NOT be sent to the corresponding info-* or 174via a bug-* list, should NOT be sent to the corresponding info-* or
175help-* list. 175help-* list.
176 176
diff --git a/etc/NEWS b/etc/NEWS
index 5e7e6cbb47e..8b08707c274 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -172,7 +172,7 @@ server should listen.
172*** New emacsclient argument --frame-parameters can be used to set the 172*** New emacsclient argument --frame-parameters can be used to set the
173frame parameters of a newly-created graphical frame. 173frame parameters of a newly-created graphical frame.
174+++ 174+++
175*** If emacsclient shuts down as a result of Emacs signalling an 175*** If emacsclient shuts down as a result of Emacs signaling an
176error, its exit status is 1. 176error, its exit status is 1.
177+++ 177+++
178*** New emacsclient argument --parent-id ID. 178*** New emacsclient argument --parent-id ID.
@@ -403,16 +403,17 @@ specified by `display-buffer-fallback-action'.
403display actions, taking precedence over `display-buffer-base-action'. 403display actions, taking precedence over `display-buffer-base-action'.
404 404
405+++ 405+++
406*** New option `window-nest'. 406*** New option `window-combination-limit'.
407The new option `window-nest' allows to return the space obtained for 407The new option `window-combination-limit' allows to return the space
408resizing or creating a window more reliably to the window from which 408obtained for resizing or creating a window more reliably to the window
409such space was obtained. 409from which such space was obtained.
410 410
411+++ 411+++
412*** New option `window-splits'. 412*** New option `window-combination-resize'.
413The new option `window-splits' allows to split a window that otherwise 413The new option `window-combination-resize' allows to split a window that
414cannot be split because it's too small by stealing space from other 414otherwise cannot be split because it's too small by stealing space from
415windows in the same combination. 415other windows in the same combination. Subsequent resizing or deletion
416of the window will resize all windows in the same combination as well.
416 417
417+++ 418+++
418*** New commands `maximize-window' and `minimize-window'. 419*** New commands `maximize-window' and `minimize-window'.
@@ -621,6 +622,10 @@ view-diary-entries, list-diary-entries, show-all-diary-entries
621inserted by the compilation filter function, when calling 622inserted by the compilation filter function, when calling
622compilation-filter-hook. 623compilation-filter-hook.
623 624
625*** `compilation-error-screen-columns' is obeyed in the editing buffer.
626So programming language modes can set it, whereas previously only the value
627in the *compilation* buffer was used.
628
624** Customize 629** Customize
625 630
626*** Customize buffers now contain a search field. 631*** Customize buffers now contain a search field.
@@ -1239,7 +1244,7 @@ argument is supplied (see Trash changes, above).
1239 1244
1240** `facemenu-read-color' is now an alias for `read-color'. 1245** `facemenu-read-color' is now an alias for `read-color'.
1241The command `read-color' now requires a match for a color name or RGB 1246The command `read-color' now requires a match for a color name or RGB
1242triplet, instead of signalling an error if the user provides a invalid 1247triplet, instead of signaling an error if the user provides a invalid
1243input. 1248input.
1244 1249
1245** Tool-bars can display separators. 1250** Tool-bars can display separators.
diff --git a/etc/NEWS.1-17 b/etc/NEWS.1-17
index 89856429b1d..b1da9122934 100644
--- a/etc/NEWS.1-17
+++ b/etc/NEWS.1-17
@@ -963,7 +963,7 @@ a slash is appended to it.
963* Undo can clear modified-flag. 963* Undo can clear modified-flag.
964 964
965If you undo changes in a buffer back to a state in which the 965If you undo changes in a buffer back to a state in which the
966buffer was not considered "modified", then it is labelled as 966buffer was not considered "modified", then it is labeled as
967once again "unmodified". 967once again "unmodified".
968 968
969* M-x run-lisp. 969* M-x run-lisp.
@@ -996,7 +996,7 @@ with no confirmation.
996view-buffer selects the named buffer, view-file finds the named file; the 996view-buffer selects the named buffer, view-file finds the named file; the
997resulting buffer is placed into view-mode (a recursive edit). The normal 997resulting buffer is placed into view-mode (a recursive edit). The normal
998emacs commands are not available. Instead a set of special commands is 998emacs commands are not available. Instead a set of special commands is
999provided which faclitate moving around in the buffer, searching and 999provided which facilitate moving around in the buffer, searching and
1000scrolling by screenfuls. Exiting view-mode returns to the buffer in which 1000scrolling by screenfuls. Exiting view-mode returns to the buffer in which
1001the view-file or view-buffer command was given. 1001the view-file or view-buffer command was given.
1002Type ? or h when viewing for a complete list of view commands. 1002Type ? or h when viewing for a complete list of view commands.
@@ -1074,7 +1074,7 @@ Another `t' switches back to the usual display.
1074 1074
1075* Rmail commands `a' and `k' set message attributes. 1075* Rmail commands `a' and `k' set message attributes.
1076`a' adds an attribute and `k' removes one. You specify 1076`a' adds an attribute and `k' removes one. You specify
1077the attrbute by name. You can specify either a built-in 1077the attribute by name. You can specify either a built-in
1078flag such as "deleted" or "filed", or a user-defined keyword 1078flag such as "deleted" or "filed", or a user-defined keyword
1079(anything not recognized as built-in). 1079(anything not recognized as built-in).
1080 1080
@@ -1090,7 +1090,7 @@ the messages should have.
1090* Interface to MH mail system. 1090* Interface to MH mail system.
1091 1091
1092mh-e is a front end for GNU emacs and the MH mail system. It 1092mh-e is a front end for GNU emacs and the MH mail system. It
1093provides a friendly and convient interface to the MH commands. 1093provides a friendly and convenient interface to the MH commands.
1094 1094
1095To read mail, invoke mh-rmail. This will inc new mail and display the 1095To read mail, invoke mh-rmail. This will inc new mail and display the
1096scan listing on the screen. To see a summary of the mh-e commands, 1096scan listing on the screen. To see a summary of the mh-e commands,
@@ -1612,7 +1612,7 @@ Changes in Emacs 13
1612 The string "../lisp" now adds to the front of the load-path 1612 The string "../lisp" now adds to the front of the load-path
1613 used for searching for Lisp files during Emacs initialization. 1613 used for searching for Lisp files during Emacs initialization.
1614 It used to replace the path specified in paths.h entirely. 1614 It used to replace the path specified in paths.h entirely.
1615 Now the directory ../lisp is searched first and the directoris 1615 Now the directory ../lisp is searched first and the directories
1616 specified in paths.h are searched afterward. 1616 specified in paths.h are searched afterward.
1617 1617
1618 1618
@@ -1670,7 +1670,7 @@ Changes in Emacs 1.12
1670 the string, it is used unchanged. 1670 the string, it is used unchanged.
1671 1671
1672 One way this feature can be used is to fix bad keyboard 1672 One way this feature can be used is to fix bad keyboard
1673 designes. For example, on some terminals, Delete is 1673 designs. For example, on some terminals, Delete is
1674 Shift-Underscore. Since Delete is a more useful character 1674 Shift-Underscore. Since Delete is a more useful character
1675 than Underscore, it is an improvement to make the unshifted 1675 than Underscore, it is an improvement to make the unshifted
1676 character Delete and the shifted one Underscore. This can 1676 character Delete and the shifted one Underscore. This can
@@ -2446,7 +2446,7 @@ Changes in Emacs 1.1
2446 containing *'s, etc, all processed by the shell). Also, you 2446 containing *'s, etc, all processed by the shell). Also, you
2447 can dired more than one directory; dired names the buffer 2447 can dired more than one directory; dired names the buffer
2448 according to the filespec or directory name. Reinvoking 2448 according to the filespec or directory name. Reinvoking
2449 dired on a directory already direded just switches back to 2449 dired on a directory already diredded just switches back to
2450 the same directory used last time; do M-x revert if you want 2450 the same directory used last time; do M-x revert if you want
2451 to read in the current contents of the directory. 2451 to read in the current contents of the directory.
2452 2452
@@ -2530,4 +2530,3 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
2530Local variables: 2530Local variables:
2531mode: text 2531mode: text
2532end: 2532end:
2533
diff --git a/etc/NEWS.19 b/etc/NEWS.19
index 90d96c12fb8..6c1c5483809 100644
--- a/etc/NEWS.19
+++ b/etc/NEWS.19
@@ -1729,7 +1729,7 @@ projects to define project-specific structures. It also enables the
1729use of etags and TAGS files for languages not supported by etags. 1729use of etags and TAGS files for languages not supported by etags.
1730 1730
1731The Emacs manual section on Tags contains explanations and examples 1731The Emacs manual section on Tags contains explanations and examples
1732for Emacs's DEFVAR, VHDL, Cobol, Postscript and TCL. 1732for Emacs's DEFVAR, VHDL, Cobol, PostScript and TCL.
1733 1733
1734** Various mode-specific commands that used to be bound to C-c LETTER 1734** Various mode-specific commands that used to be bound to C-c LETTER
1735have been moved. 1735have been moved.
diff --git a/etc/NEWS.20 b/etc/NEWS.20
index c76ddb2485e..332eec60535 100644
--- a/etc/NEWS.20
+++ b/etc/NEWS.20
@@ -696,7 +696,7 @@ pasting operations.
696** You can specify the printer to use for commands that do printing by 696** You can specify the printer to use for commands that do printing by
697setting the variable `printer-name'. Just what a printer name looks 697setting the variable `printer-name'. Just what a printer name looks
698like depends on your operating system. You can specify a different 698like depends on your operating system. You can specify a different
699printer for the Postscript printing commands by setting 699printer for the PostScript printing commands by setting
700`ps-printer-name'. 700`ps-printer-name'.
701 701
702** Emacs now supports on-the-fly spell checking by the means of a 702** Emacs now supports on-the-fly spell checking by the means of a
@@ -2047,7 +2047,7 @@ standard fontset are created automatically.
2047 2047
2048If you specify a default ASCII font with the `Font' resource or `-fn' 2048If you specify a default ASCII font with the `Font' resource or `-fn'
2049argument, a fontset is generated from it. This works by replacing the 2049argument, a fontset is generated from it. This works by replacing the
2050FOUNDARY, FAMILY, ADD_STYLE, and AVERAGE_WIDTH fields of the font name 2050FOUNDRY, FAMILY, ADD_STYLE, and AVERAGE_WIDTH fields of the font name
2051with `*' then using this to specify a fontset. This fontset's short 2051with `*' then using this to specify a fontset. This fontset's short
2052name is `fontset-startup'. 2052name is `fontset-startup'.
2053 2053
@@ -3494,9 +3494,9 @@ not by default. Use --members to turn this feature on.
3494*** Java is tagged like C++. In addition, "extends" and "implements" 3494*** Java is tagged like C++. In addition, "extends" and "implements"
3495constructs are tagged. Files are recognized by the extension .java. 3495constructs are tagged. Files are recognized by the extension .java.
3496 3496
3497*** Etags can now handle programs written in Postscript. Files are 3497*** Etags can now handle programs written in PostScript. Files are
3498recognized by the extensions .ps and .pdb (Postscript with C syntax). 3498recognized by the extensions .ps and .pdb (PostScript with C syntax).
3499In Postscript, tags are lines that start with a slash. 3499In PostScript, tags are lines that start with a slash.
3500 3500
3501*** Etags now handles Objective C and Objective C++ code. The usual C and 3501*** Etags now handles Objective C and Objective C++ code. The usual C and
3502C++ tags are recognized in these languages; in addition, etags 3502C++ tags are recognized in these languages; in addition, etags
diff --git a/etc/NEWS.21 b/etc/NEWS.21
index 47f61a13e3b..c3c54d8bb01 100644
--- a/etc/NEWS.21
+++ b/etc/NEWS.21
@@ -446,7 +446,7 @@ This behavior may be disabled by customizing the option
446 446
447** Polish, Czech, German, and French translations of Emacs' reference card 447** Polish, Czech, German, and French translations of Emacs' reference card
448have been added. They are named `pl-refcard.tex', `cs-refcard.tex', 448have been added. They are named `pl-refcard.tex', `cs-refcard.tex',
449`de-refcard.tex' and `fr-refcard.tex'. Postscript files are included. 449`de-refcard.tex' and `fr-refcard.tex'. PostScript files are included.
450 450
451** An `Emacs Survival Guide', etc/survival.tex, is available. 451** An `Emacs Survival Guide', etc/survival.tex, is available.
452 452
@@ -850,7 +850,7 @@ default).
850*** If Emacs was invoked with the `-q' or `--no-init-file' options, it 850*** If Emacs was invoked with the `-q' or `--no-init-file' options, it
851does not allow you to save customizations in your `~/.emacs' init 851does not allow you to save customizations in your `~/.emacs' init
852file. This is because saving customizations from such a session would 852file. This is because saving customizations from such a session would
853wipe out all the other customizationss you might have on your init 853wipe out all the other customizations you might have on your init
854file. 854file.
855 855
856** If Emacs was invoked with the `-q' or `--no-init-file' options, it 856** If Emacs was invoked with the `-q' or `--no-init-file' options, it
@@ -2189,7 +2189,7 @@ variables are tagged.
2189 2189
2190*** New language Python: def and class at the beginning of a line are tags. 2190*** New language Python: def and class at the beginning of a line are tags.
2191 2191
2192*** .ss files are Scheme files, .pdb is Postscript with C syntax, .psw is 2192*** .ss files are Scheme files, .pdb is PostScript with C syntax, .psw is
2193for PSWrap. 2193for PSWrap.
2194 2194
2195** Changes in etags.el 2195** Changes in etags.el
diff --git a/etc/NEWS.23 b/etc/NEWS.23
index 5b170231bbd..3a222d50d4c 100644
--- a/etc/NEWS.23
+++ b/etc/NEWS.23
@@ -1182,7 +1182,7 @@ run processes remotely.
1182matches a regexp. 1182matches a regexp.
1183 1183
1184*** The value of comment-style now defaults to `indent'. 1184*** The value of comment-style now defaults to `indent'.
1185Thefore, comment-start markers are inserted at the current indentation 1185Therefore, comment-start markers are inserted at the current indentation
1186of the region to comment, rather than the leftmost column. 1186of the region to comment, rather than the leftmost column.
1187 1187
1188*** The new commands `pp-macroexpand-expression' and 1188*** The new commands `pp-macroexpand-expression' and
@@ -1235,8 +1235,8 @@ details, see the commentary in doc-view.el.
1235 1235
1236PDF and DVI files are now opened in Doc View mode by default. 1236PDF and DVI files are now opened in Doc View mode by default.
1237 1237
1238In Postcript mode, C-c C-c launches Doc View minor mode for viewing 1238In PostScript mode, C-c C-c launches Doc View minor mode for viewing
1239the postscript file. 1239the PostScript file.
1240 1240
1241** EasyPG provides an interface to the GNU Privacy Guard (GnuPG). 1241** EasyPG provides an interface to the GNU Privacy Guard (GnuPG).
1242It includes a GnuPG keyring browser, cryptographic operations on 1242It includes a GnuPG keyring browser, cryptographic operations on
@@ -2102,7 +2102,7 @@ function to use for searching in `query-replace-regexp',
2102*** New keymap `search-map' bound to `M-s' provides global bindings 2102*** New keymap `search-map' bound to `M-s' provides global bindings
2103for search related commands. 2103for search related commands.
2104 2104
2105*** New keymap `multi-query-replace-map' contains additonal keys bound 2105*** New keymap `multi-query-replace-map' contains additional keys bound
2106to `automatic-all' and `exit-current' for multi-buffer interactive replacement. 2106to `automatic-all' and `exit-current' for multi-buffer interactive replacement.
2107 2107
2108*** The variable `inhibit-changing-match-data', if non-nil, prevents 2108*** The variable `inhibit-changing-match-data', if non-nil, prevents
@@ -2529,4 +2529,3 @@ Local variables:
2529mode: outline 2529mode: outline
2530paragraph-separate: "[ ]*$" 2530paragraph-separate: "[ ]*$"
2531end: 2531end:
2532
diff --git a/etc/NEXTSTEP b/etc/NEXTSTEP
index fcde9727dff..4aa1dca93f2 100644
--- a/etc/NEXTSTEP
+++ b/etc/NEXTSTEP
@@ -38,7 +38,7 @@ meantime.
38Release History 38Release History
39--------------- 39---------------
40 40
411990-1992 1.0-3.0 (?) Michael Brouwer's socket/terminal communication 411990-1992 1.0-3.0 (?) Michael Brouwer's socket/terminal communication
42 based version (GUI ran as a separate process.) 42 based version (GUI ran as a separate process.)
43 43
441993/10/25 3.0.1 Last (?) release of Brouwer version. Supports 441993/10/25 3.0.1 Last (?) release of Brouwer version. Supports
@@ -126,7 +126,7 @@ Release History
126 rendering for synthetic italic fonts. Further 126 rendering for synthetic italic fonts. Further
127 improved menu parsing. Use system highlight 127 improved menu parsing. Use system highlight
128 color. Added previous- and next-mark history 128 color. Added previous- and next-mark history
129 navigation commmands bound to M-p,M-n. 129 navigation commands bound to M-p,M-n.
130 Miscellaneous bug fixes. 130 Miscellaneous bug fixes.
131 131
1322005/08/04 8.0-rc5 All internal string handling changed to UTF-8. 1322005/08/04 8.0-rc5 All internal string handling changed to UTF-8.
@@ -146,7 +146,7 @@ Release History
146 handling now added. Transparency (e.g., M-x 146 handling now added. Transparency (e.g., M-x
147 set-background-color ARGB88FFFFFF) improved: 147 set-background-color ARGB88FFFFFF) improved:
148 only the background is made transparent. 148 only the background is made transparent.
149 Cursor drawing glitches fixed. Preferences 149 Cursor drawing glitches fixed. Preferences
150 handling improved. Fixed some portability 150 handling improved. Fixed some portability
151 problems on Tiger and Puma. 151 problems on Tiger and Puma.
152 152
@@ -185,7 +185,7 @@ Release History
185 rendering, pasting, Color panel. Added function 185 rendering, pasting, Color panel. Added function
186 ns-set-background-alpha to work around 186 ns-set-background-alpha to work around
187 inability to customize with numeric colors. 187 inability to customize with numeric colors.
188 188
1892006/12/24 9.0-rc1 Reworked font handling and text rendering to 1892006/12/24 9.0-rc1 Reworked font handling and text rendering to
190 use Kenichi Handa's new font back-end system. 190 use Kenichi Handa's new font back-end system.
191 Font sets are now supported and automatically 191 Font sets are now supported and automatically
diff --git a/etc/PROBLEMS b/etc/PROBLEMS
index e85972f0bfd..57a3387ee40 100644
--- a/etc/PROBLEMS
+++ b/etc/PROBLEMS
@@ -1250,7 +1250,7 @@ be carried out at the same time:
12504) Use lbxproxy on the remote end of the connection. This is an interface 12504) Use lbxproxy on the remote end of the connection. This is an interface
1251 to the low bandwidth X extension in most modern X servers, which 1251 to the low bandwidth X extension in most modern X servers, which
1252 improves performance dramatically, at the slight expense of correctness 1252 improves performance dramatically, at the slight expense of correctness
1253 of the X protocol. lbxproxy acheives the performance gain by grouping 1253 of the X protocol. lbxproxy achieves the performance gain by grouping
1254 several X requests in one TCP packet and sending them off together, 1254 several X requests in one TCP packet and sending them off together,
1255 instead of requiring a round-trip for each X request in a separate 1255 instead of requiring a round-trip for each X request in a separate
1256 packet. The switches that seem to work best for emacs are: 1256 packet. The switches that seem to work best for emacs are:
diff --git a/etc/TODO b/etc/TODO
index c38b04a681d..aa06f73ee94 100644
--- a/etc/TODO
+++ b/etc/TODO
@@ -165,7 +165,7 @@ Change them to use report-emacs-bug.
165like make-backup-file-name-function for non-numeric backup files. 165like make-backup-file-name-function for non-numeric backup files.
166 166
167** `dired-mode' should specify the semantics of `buffer-modified-p' for 167** `dired-mode' should specify the semantics of `buffer-modified-p' for
168dired buffers and DTRT WRT `auto-revert-mode'. 168dired buffers and DTRT WRT `auto-revert-mode'.
169 169
170** Check uses of prin1 for error-handling. 170** Check uses of prin1 for error-handling.
171http://lists.gnu.org/archive/html/emacs-devel/2008-08/msg00456.html 171http://lists.gnu.org/archive/html/emacs-devel/2008-08/msg00456.html
@@ -325,7 +325,7 @@ typically due to pilot errors and should thus be in debug-ignored-errors.
325 325
326** Beefed-up syntax-tables. 326** Beefed-up syntax-tables.
327*** recognize multi-character syntactic entities like `begin' and `end'. 327*** recognize multi-character syntactic entities like `begin' and `end'.
328*** nested string-delimiters (for Postscript's (foo(bar)baz) strings). 328*** nested string-delimiters (for PostScript's (foo(bar)baz) strings).
329*** support for infix operators (with precedence). 329*** support for infix operators (with precedence).
330*** support for the $ (paired delimiter) in parse-partial-sexp. 330*** support for the $ (paired delimiter) in parse-partial-sexp.
331*** support for hook-chars whose effect on the parsing-state is specified 331*** support for hook-chars whose effect on the parsing-state is specified
@@ -1043,7 +1043,7 @@ was an error in the namespace URI.
1043 1043
1044**** Better recovery from ill-formed XML declarations. 1044**** Better recovery from ill-formed XML declarations.
1045 1045
1046*** Useability improvements 1046*** Usability improvements
1047 1047
1048**** Should print a "Parsing..." message during long movements. 1048**** Should print a "Parsing..." message during long movements.
1049 1049
@@ -1243,4 +1243,3 @@ GNU General Public License for more details.
1243 1243
1244You should have received a copy of the GNU General Public License 1244You should have received a copy of the GNU General Public License
1245along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. 1245along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
1246
diff --git a/etc/gnus-tut.txt b/etc/gnus-tut.txt
index 80a652ba25f..9132ece533e 100644
--- a/etc/gnus-tut.txt
+++ b/etc/gnus-tut.txt
@@ -188,7 +188,7 @@ remove all hilit code from all the Gnus hooks
188(`gnus-group-prepare-hook', `gnus-summary-prepare-hook' and 188(`gnus-group-prepare-hook', `gnus-summary-prepare-hook' and
189`gnus-summary-article-hook'). (Well, at the very least the first 189`gnus-summary-article-hook'). (Well, at the very least the first
190two.) Gnus provides various integrated functions for highlighting, 190two.) Gnus provides various integrated functions for highlighting,
191which are both faster and more accurated. 191which are both faster and more accurate.
192 192
193There is absolutely no chance, whatsoever, of getting Gnus to work 193There is absolutely no chance, whatsoever, of getting Gnus to work
194with Emacs 18. It won't even work on Emacsen older than Emacs 194with Emacs 18. It won't even work on Emacsen older than Emacs
@@ -288,5 +288,3 @@ me the patches, but one can't have everything.
288 288
289If you have any questions on usage, the "ding@ifi.uio.no" mailing list 289If you have any questions on usage, the "ding@ifi.uio.no" mailing list
290is where to post the questions. 290is where to post the questions.
291
292
diff --git a/etc/srecode/wisent.srt b/etc/srecode/wisent.srt
index d45392e93dd..b66a17a4be5 100644
--- a/etc/srecode/wisent.srt
+++ b/etc/srecode/wisent.srt
@@ -55,7 +55,7 @@ goal
55 55
56%% 56%%
57(define-lex wisent-{{TARGETMODE}}-lexer 57(define-lex wisent-{{TARGETMODE}}-lexer
58 "Lexical analzer to handle {{TARGETMODE}} buffers." 58 "Lexical analyzer to handle {{TARGETMODE}} buffers."
59 ;; semantic-lex-newline 59 ;; semantic-lex-newline
60 semantic-lex-ignore-whitespace 60 semantic-lex-ignore-whitespace
61 semantic-lex-ignore-newline 61 semantic-lex-ignore-newline
diff --git a/etc/themes/manoj-dark-theme.el b/etc/themes/manoj-dark-theme.el
index bd6bbaa88a2..55b07e6eaef 100644
--- a/etc/themes/manoj-dark-theme.el
+++ b/etc/themes/manoj-dark-theme.el
@@ -52,7 +52,7 @@
52;; reading mail/USENET. 52;; reading mail/USENET.
53 53
54;; In the message itself, quoted mail messages from different people 54;; In the message itself, quoted mail messages from different people
55;; are color coordinated, with high contrast beteen citations that are 55;; are color coordinated, with high contrast between citations that are
56;; close to each other in the heirarchy, so it is less likely that one 56;; close to each other in the heirarchy, so it is less likely that one
57;; misunderstands who said what in a long conversation. 57;; misunderstands who said what in a long conversation.
58 58
diff --git a/etc/tutorials/TUTORIAL.ja b/etc/tutorials/TUTORIAL.ja
index e4917d40987..d50727ceb82 100644
--- a/etc/tutorials/TUTORIAL.ja
+++ b/etc/tutorials/TUTORIAL.ja
@@ -524,7 +524,7 @@ C-_ $B$d(B C-x u $B$O?tCM0z?t$r7+$jJV$72s?t$H2r<a$7$^$9!#(B
524 524
525>> "foo" $B$H$$$&L>$N%U%!%$%k$r:n$j$^$7$g$&!#(BC-x C-f foo <Return> $B$G$9!#(B 525>> "foo" $B$H$$$&L>$N%U%!%$%k$r:n$j$^$7$g$&!#(BC-x C-f foo <Return> $B$G$9!#(B
526 $B2?$+J8>O$rF~$l!"JT=8$7!"(BC-x C-s $B$G(B "foo" $B$r%;!<%V$7$F2<$5$$!#(B 526 $B2?$+J8>O$rF~$l!"JT=8$7!"(BC-x C-s $B$G(B "foo" $B$r%;!<%V$7$F2<$5$$!#(B
527 $B:G8e$K(B C-x C-f TUTORIAL.ja <Retrun> $B$H%?%$%W$7(B 527 $B:G8e$K(B C-x C-f TUTORIAL.ja <Return> $B$H%?%$%W$7(B
528 $BF~Lg%,%$%I$KLa$j$^$7$g$&!#(B 528 $BF~Lg%,%$%I$KLa$j$^$7$g$&!#(B
529 529
530Emacs $B$O%U%!%$%k$NFbMF$r%P%C%U%!!J(Bbuffer$B!K$H8F$P$l$k$b$N$NCf$K3JG<$7$F(B 530Emacs $B$O%U%!%$%k$NFbMF$r%P%C%U%!!J(Bbuffer$B!K$H8F$P$l$k$b$N$NCf$K3JG<$7$F(B
@@ -890,7 +890,7 @@ ESC $B$O$=$l<+BN$,0l$D$NJ8;z$G=$>~%-!<$G$O$J$$$+$i$G$9!#(B
890 890
891>> M-x make-frame <Return> $B$H%?%$%W$7$F!"?7$7$$%U%l!<%`$,I=<($5$l$k$N(B 891>> M-x make-frame <Return> $B$H%?%$%W$7$F!"?7$7$$%U%l!<%`$,I=<($5$l$k$N(B
892 $B$r3NG'$7$^$7$g$&!#(B 892 $B$r3NG'$7$^$7$g$&!#(B
893 893
894$B85$N%U%l!<%`$G$d$C$F$$$?$3$H$O$J$s$G$b$3$N?7$7$$%U%l!<%`$G$b$G$-$^$9!#(B 894$B85$N%U%l!<%`$G$d$C$F$$$?$3$H$O$J$s$G$b$3$N?7$7$$%U%l!<%`$G$b$G$-$^$9!#(B
895$B:G=i$N%U%l!<%`$H$=$N8e$K:n$i$l$k%U%l!<%`$G0c$$$O$"$j$^$;$s!#(B 895$B:G=i$N%U%l!<%`$H$=$N8e$K:n$i$l$k%U%l!<%`$G0c$$$O$"$j$^$;$s!#(B
896 896
@@ -1083,4 +1083,3 @@ GNU Emacs to your friends. Help stamp out software obstructionism
1083;;; Local Variables: 1083;;; Local Variables:
1084;;; coding: iso-2022-jp 1084;;; coding: iso-2022-jp
1085;;; End: 1085;;; End:
1086
diff --git a/leim/CXTERM-DIC/README b/leim/CXTERM-DIC/README
index d8731740a79..34853091cf5 100644
--- a/leim/CXTERM-DIC/README
+++ b/leim/CXTERM-DIC/README
@@ -1,5 +1,5 @@
1All *.tit files in this directory are dictionary files to use with 1All *.tit files in this directory are dictionary files to use with
2the program cxterm. Their source and copyright status are categorised 2the program cxterm. Their source and copyright status are categorized
3into these four groups. 3into these four groups.
4 4
5(1) QJ-b5.tit (renamed from .../cxterm/dict/big5/QJ.tit) 5(1) QJ-b5.tit (renamed from .../cxterm/dict/big5/QJ.tit)
diff --git a/leim/ChangeLog b/leim/ChangeLog
index 6130bf57800..75dde2bcd18 100644
--- a/leim/ChangeLog
+++ b/leim/ChangeLog
@@ -1,4 +1,4 @@
12011-09-27 Jambunathan K <kjambunathan@gmail.com> 12011-09-27 Jambunathan K <kjambunathan@gmail.com>
2 2
3 * quail/indian.el (quail-tamil-itrans-misc-table): Delete it. 3 * quail/indian.el (quail-tamil-itrans-misc-table): Delete it.
4 (quail-tamil-itrans-numerics-and-symbols-table) 4 (quail-tamil-itrans-numerics-and-symbols-table)
@@ -251,7 +251,7 @@
251 * quail/hangul.el (hangul-im-keymap): Add binding of key 251 * quail/hangul.el (hangul-im-keymap): Add binding of key
252 Hangul_Hanja. 252 Hangul_Hanja.
253 253
2542009-05-04 Simon Leinen <simon.leinen@switch.ch> (tiny change) 2542009-05-04 Simon Leinen <simon.leinen@switch.ch> (tiny change)
255 255
256 * Makefile.in (install): Avoid using $$(..) construct, for Solaris 256 * Makefile.in (install): Avoid using $$(..) construct, for Solaris
257 compatibility. 257 compatibility.
diff --git a/leim/MISC-DIC/README b/leim/MISC-DIC/README
index 95efbd4d27b..cea30b350fe 100644
--- a/leim/MISC-DIC/README
+++ b/leim/MISC-DIC/README
@@ -1,5 +1,5 @@
1The source and copyright status of dictionary files in this directory 1The source and copyright status of dictionary files in this directory
2are categorised into these three groups. 2are categorized into these three groups.
3 3
4(1) cangjie-table.b5 4(1) cangjie-table.b5
5 cangjie-table.cns 5 cangjie-table.cns
diff --git a/leim/quail/cyrillic.el b/leim/quail/cyrillic.el
index 824048534e0..88be0a3b7d0 100644
--- a/leim/quail/cyrillic.el
+++ b/leim/quail/cyrillic.el
@@ -42,7 +42,7 @@
42;; in typewriters for ages but it has been superseded on desktops by 42;; in typewriters for ages but it has been superseded on desktops by
43;; a variation of this layout, implemented in M$ Windows software. 43;; a variation of this layout, implemented in M$ Windows software.
44;; The Windows layout is greatly preferred because of the comma and 44;; The Windows layout is greatly preferred because of the comma and
45;; period being placed more conviniently and, of course, because of 45;; period being placed more conveniently and, of course, because of
46;; the popularity of Windows software. This layout is a common option 46;; the popularity of Windows software. This layout is a common option
47;; in X Windows and console layouts for GNU/Linux. [See 47;; in X Windows and console layouts for GNU/Linux. [See
48;; `russian-computer' below.] 48;; `russian-computer' below.]
@@ -163,7 +163,7 @@
163;; commented out because quail-update-leim-list-file ignores 163;; commented out because quail-update-leim-list-file ignores
164;; commented-out lines. 164;; commented-out lines.
165(if nil 165(if nil
166 (quail-define-package 166 (quail-define-package
167 "cyrillic-jcuken" "Russian" ",L69(B" nil 167 "cyrillic-jcuken" "Russian" ",L69(B" nil
168 ",L9FC:5=(B Russian typewriter layout (ISO 8859-5 encoding).")) 168 ",L9FC:5=(B Russian typewriter layout (ISO 8859-5 encoding)."))
169 169
diff --git a/leim/quail/ipa.el b/leim/quail/ipa.el
index 503d8b4ec89..559841e8905 100644
--- a/leim/quail/ipa.el
+++ b/leim/quail/ipa.el
@@ -149,8 +149,8 @@ incorrectly, as separate from the modified glyphs.")
149 ("P" "ɸ") ;; Voiceless bilabial fricative U+0278 149 ("P" "ɸ") ;; Voiceless bilabial fricative U+0278
150 ("Q" "É£") ;; Voiced velar fricative U+0263 150 ("Q" "É£") ;; Voiced velar fricative U+0263
151 ("R" ["Ê€" ;; Alveolar trill U+0280 151 ("R" ["Ê€" ;; Alveolar trill U+0280
152 "Éš"]) ;; Rhotacised schwa U+025A 152 "Éš"]) ;; Rhotacized schwa U+025A
153 ("@<r>" "Éš") ;; Mid central rhotacised vowel U+025A 153 ("@<r>" "Éš") ;; Mid central rhotacized vowel U+025A
154 ("S" "ʃ") ;; Voiceless postalveolar fricative U+0283 154 ("S" "ʃ") ;; Voiceless postalveolar fricative U+0283
155 ("tS" ["ʧ" ;; Voiceless postalveolar affricate U+02A7 155 ("tS" ["ʧ" ;; Voiceless postalveolar affricate U+02A7
156 "tʃ" ;; U+0074 U+0283 156 "tʃ" ;; U+0074 U+0283
@@ -170,19 +170,19 @@ incorrectly, as separate from the modified glyphs.")
170 ("a~" "ã") ;; Low central unrounded vowel, nasal U+00E3 170 ("a~" "ã") ;; Low central unrounded vowel, nasal U+00E3
171 ("o~" "õ") ;; Upper-mid back rounded vowel, nasal U+00F5 171 ("o~" "õ") ;; Upper-mid back rounded vowel, nasal U+00F5
172 ("u~" "Å©") ;; High back rounded vowel, nasal U+0169 172 ("u~" "Å©") ;; High back rounded vowel, nasal U+0169
173 ("~" "̃") ;; +Nasalised modifier U+0303 173 ("~" "̃") ;; +Nasalized modifier U+0303
174 (":" "Ë") ;; +Long modifier U+02D0 174 (":" "Ë") ;; +Long modifier U+02D0
175 ("-" "Ì©") ;; +Syllabic modifier U+0329 175 ("-" "Ì©") ;; +Syllabic modifier U+0329
176 ("." "Ì£") ;; +Retroflex modifier U+0323 176 ("." "Ì£") ;; +Retroflex modifier U+0323
177 ("`" "ʼ") ;; +Ejective modifier U+02BC 177 ("`" "ʼ") ;; +Ejective modifier U+02BC
178 ("[" "̪") ;; +Dental modifier U+032A 178 ("[" "̪") ;; +Dental modifier U+032A
179 (";" "ʲ") ;; +Palatalised modifier U+02B2 179 (";" "ʲ") ;; +Palatalized modifier U+02B2
180 ("<H>" "Ì´") ;; +Pharyngealised modifier U+0334 180 ("<H>" "Ì´") ;; +Pharyngealized modifier U+0334
181 ("<h>" "ʰ") ;; +Aspirated modifier U+02B0 181 ("<h>" "ʰ") ;; +Aspirated modifier U+02B0
182 ("<o>" ["Ì¥" ;; +Voiceless modifier U+0325 182 ("<o>" ["Ì¥" ;; +Voiceless modifier U+0325
183 "Ëš"]) ;; +Unexploded modifier U+02DA 183 "Ëš"]) ;; +Unexploded modifier U+02DA
184 ("<r>" "ʳ") ;; +Rhotacised modifier U+02B3 184 ("<r>" "ʳ") ;; +Rhotacized modifier U+02B3
185 ("<w>" "Ê·") ;; +Labialised modifier U+02B7 185 ("<w>" "Ê·") ;; +Labialized modifier U+02B7
186 ("<?>" "ʱ") ;; +Murmured modififer U+02B1 186 ("<?>" "ʱ") ;; +Murmured modififer U+02B1
187 187
188 ("b<trl>" "Ê™") ;; Bilabial trill U+0299 188 ("b<trl>" "Ê™") ;; Bilabial trill U+0299
@@ -237,7 +237,7 @@ incorrectly, as separate from the modified glyphs.")
237 ("u\"" "ʉ") ;; High central rounded vowel U+0289 237 ("u\"" "ʉ") ;; High central rounded vowel U+0289
238 ("@<umd>" "ɘ") ;; Upper-mid central unrounded vowel U+0258 238 ("@<umd>" "ɘ") ;; Upper-mid central unrounded vowel U+0258
239 239
240 ("R<umd>" "É") ;; Upper-mid central rhotacised vowel U+025D 240 ("R<umd>" "É") ;; Upper-mid central rhotacized vowel U+025D
241 241
242 ("@." "ɵ") ;; Mid central rounded vowel U+0275 242 ("@." "ɵ") ;; Mid central rounded vowel U+0275
243 ("V\"" "ɜ") ;; Lower-mid central unrounded vowel U+025C 243 ("V\"" "ɜ") ;; Lower-mid central unrounded vowel U+025C
@@ -416,7 +416,7 @@ displays them, incorrectly, as separate from the modified glyphs.")
416 (":\\" "Ë‘") ;; Half-long U+02D1 416 (":\\" "Ë‘") ;; Half-long U+02D1
417 ("@" "É™") ;; Schwa U+0259 417 ("@" "É™") ;; Schwa U+0259
418 ("@\\" "ɘ") ;; Close-mid central unrounded vowel U+0258 418 ("@\\" "ɘ") ;; Close-mid central unrounded vowel U+0258
419 ("@`" "Éš") ;; Rhotacised schwa U+025A 419 ("@`" "Éš") ;; Rhotacized schwa U+025A
420 ("{" "æ") ;; Near-open front unrounded vowel U+00E6 420 ("{" "æ") ;; Near-open front unrounded vowel U+00E6
421 ("}" "ʉ") ;; Close central rounded vowel U+0289 421 ("}" "ʉ") ;; Close central rounded vowel U+0289
422 ("1" "ɨ") ;; Close central unrounded vowel U+0268 422 ("1" "ɨ") ;; Close central unrounded vowel U+0268
@@ -424,7 +424,7 @@ displays them, incorrectly, as separate from the modified glyphs.")
424 ("3" "ɜ") ;; Open-mid central unrounded vowel U+025C 424 ("3" "ɜ") ;; Open-mid central unrounded vowel U+025C
425 ("3\\" "Éž") ;; Open-mid central rounded vowel U+025E 425 ("3\\" "Éž") ;; Open-mid central rounded vowel U+025E
426 ("4" "ɾ") ;; Alveolar flap U+027E 426 ("4" "ɾ") ;; Alveolar flap U+027E
427 ("5" "É«") ;; Velarised alveolar lateral approximant U+026B 427 ("5" "É«") ;; Velarized alveolar lateral approximant U+026B
428 ("6" "É") ;; Near-open central vowel U+0250 428 ("6" "É") ;; Near-open central vowel U+0250
429 ("7" "ɤ") ;; Close-mid back unrounded vowel U+0264 429 ("7" "ɤ") ;; Close-mid back unrounded vowel U+0264
430 ("8" "ɵ") ;; Close-mid central rounded vowel U+0275 430 ("8" "ɵ") ;; Close-mid central rounded vowel U+0275
@@ -459,7 +459,7 @@ displays them, incorrectly, as separate from the modified glyphs.")
459 ("_=" "Ì©") ;; Syllabic U+0329 459 ("_=" "Ì©") ;; Syllabic U+0329
460 ("=" "Ì©") ;; Syllabic U+0329 460 ("=" "Ì©") ;; Syllabic U+0329
461 ("_>" "ʼ") ;; Ejective U+02BC 461 ("_>" "ʼ") ;; Ejective U+02BC
462 ("_?\\" "ˤ") ;; Pharyngealised U+02E4 462 ("_?\\" "ˤ") ;; Pharyngealized U+02E4
463 ("_\\" "ˆ") ;; Falling Tone U+02C6 463 ("_\\" "ˆ") ;; Falling Tone U+02C6
464 ("_^" "̯") ;; Non-syllabic U+032F 464 ("_^" "̯") ;; Non-syllabic U+032F
465 ("_}" "Ìš") ;; No audible release U+031A 465 ("_}" "Ìš") ;; No audible release U+031A
@@ -473,17 +473,17 @@ displays them, incorrectly, as separate from the modified glyphs.")
473 ;; _B_L omitted, no Unicode code point for "low rising tone." 473 ;; _B_L omitted, no Unicode code point for "low rising tone."
474 ("_c" "̜") ;; Less rounded U+031C 474 ("_c" "̜") ;; Less rounded U+031C
475 ("_d" "̪") ;; Dental U+032A 475 ("_d" "̪") ;; Dental U+032A
476 ("_e" "Ì´") ;; Velarised or pharyngeal U+0334 476 ("_e" "Ì´") ;; Velarized or pharyngeal U+0334
477 477
478 ("<F>" "↙") ;; Global fall; SOUTH EAST ARROW; may be a bit smaller than 478 ("<F>" "↙") ;; Global fall; SOUTH EAST ARROW; may be a bit smaller than
479 ;; intended. 479 ;; intended.
480 ("_F" "Ì‚") ;; Falling tone U+0302 480 ("_F" "Ì‚") ;; Falling tone U+0302
481 ("_G" "Ë ") ;; Velarised U+02E0 481 ("_G" "Ë ") ;; Velarized U+02E0
482 ("_H" "Ì") ;; High tone U+0301 482 ("_H" "Ì") ;; High tone U+0301
483 ;; "_H_T omitted, no Unicode code point for "high rising tone" 483 ;; "_H_T omitted, no Unicode code point for "high rising tone"
484 ("_h" "ʰ") ;; Aspirated U+02B0 484 ("_h" "ʰ") ;; Aspirated U+02B0
485 ("_j" "ʲ") ;; Palatalised U+02B2 485 ("_j" "ʲ") ;; Palatalized U+02B2
486 ("'" "ʲ") ;; Palatalised U+02B2 486 ("'" "ʲ") ;; Palatalized U+02B2
487 ("_k" "̰") ;; Creaky voice U+0330 487 ("_k" "̰") ;; Creaky voice U+0330
488 ("_L" "Ì€") ;; Low tone U+0300 488 ("_L" "Ì€") ;; Low tone U+0300
489 ("_l" "Ë¡") ;; Lateral release U+02E1 489 ("_l" "Ë¡") ;; Lateral release U+02E1
@@ -501,9 +501,9 @@ displays them, incorrectly, as separate from the modified glyphs.")
501 ("_T" "Ì‹") ;; Extra high tone U+030B 501 ("_T" "Ì‹") ;; Extra high tone U+030B
502 ("_t" "̤") ;; Breathy voice U+0324 502 ("_t" "̤") ;; Breathy voice U+0324
503 ("_v" "̬") ;; Voiced U+032C 503 ("_v" "̬") ;; Voiced U+032C
504 ("_w" "Ê·") ;; Labialised U+02B7 504 ("_w" "Ê·") ;; Labialized U+02B7
505 ("_X" "̆") ;; Extra-short U+0306 505 ("_X" "̆") ;; Extra-short U+0306
506 ("_x" "̽")) ;; Mid-centralised U+033D 506 ("_x" "̽")) ;; Mid-centralized U+033D
507 507
508;; Putting in place rules for the implosives like for the others above 508;; Putting in place rules for the implosives like for the others above
509;; breaks the "_<diacritic>" rules for b, d, g, G and J a little--you need 509;; breaks the "_<diacritic>" rules for b, d, g, G and J a little--you need
diff --git a/leim/quail/tibetan.el b/leim/quail/tibetan.el
index e1a95d193c8..c5c7061663e 100644
--- a/leim/quail/tibetan.el
+++ b/leim/quail/tibetan.el
@@ -337,7 +337,7 @@
337 ("(" . "$(7!l(B") 337 ("(" . "$(7!l(B")
338 ("0" . "$(7!P(B") 338 ("0" . "$(7!P(B")
339 (")" . "$(7!m(B") 339 (")" . "$(7!m(B")
340;;; ("-" ) ; enphatic, not yet supported 340;;; ("-" ) ; emphatic, not yet supported
341;;; ("_" ) ; id. 341;;; ("_" ) ; id.
342;;; ("=" ) ; special sign, not yet supported 342;;; ("=" ) ; special sign, not yet supported
343 ("+" . "$(7!A(B") 343 ("+" . "$(7!A(B")
@@ -427,7 +427,7 @@
427 427
428 1. Vowel 'a' should be typed explicitly by the key 'A'. 428 1. Vowel 'a' should be typed explicitly by the key 'A'.
429 This is really inconvenient. But to make the coding 429 This is really inconvenient. But to make the coding
430 scheme clear, it is desirable to have an explicite 430 scheme clear, it is desirable to have an explicit
431 vowel sign for 'a'. 431 vowel sign for 'a'.
432 2. Tsheg is assigned to SPC key. You can input a space 432 2. Tsheg is assigned to SPC key. You can input a space
433 by typing '>'. 433 by typing '>'.
diff --git a/lib-src/ChangeLog b/lib-src/ChangeLog
index a8f9a0ac4be..d043f41962e 100644
--- a/lib-src/ChangeLog
+++ b/lib-src/ChangeLog
@@ -1,3 +1,7 @@
12011-11-14 Dan Nicolaescu <dann@ics.uci.edu>
2
3 * Makefile.in (all): Make sure "all" is the first target.
4
12011-10-27 Juanma Barranquero <lekktu@gmail.com> 52011-10-27 Juanma Barranquero <lekktu@gmail.com>
2 6
3 * emacsclient.c (w32_getenv): Silence compiler warnings. 7 * emacsclient.c (w32_getenv): Silence compiler warnings.
@@ -3638,7 +3642,7 @@
3638 (lang_names): Add a NULL member for every entry, added an entry 3642 (lang_names): Add a NULL member for every entry, added an entry
3639 for makefiles. 3643 for makefiles.
3640 (Makefile_targets): New function. 3644 (Makefile_targets): New function.
3641 (Texinfo_nodes): Rename from Texinfo_fuctions and made 3645 (Texinfo_nodes): Rename from Texinfo_functions and made
3642 it conformant to the style of the rest of the code. 3646 it conformant to the style of the rest of the code.
3643 3647
36442001-01-13 Gerd Moellmann <gerd@gnu.org> 36482001-01-13 Gerd Moellmann <gerd@gnu.org>
@@ -4630,9 +4634,9 @@
4630 4634
46311997-05-12 Francesco Potortì <F.Potorti@cnuce.cnr.it> 46351997-05-12 Francesco Potortì <F.Potorti@cnuce.cnr.it>
4632 4636
4633 * etags.c (Cplusplus_suffixes): .pdb is Postscript with C syntax. 4637 * etags.c (Cplusplus_suffixes): .pdb is PostScript with C syntax.
4634 (Postscript_suffixes): .ps is Postscript. 4638 (Postscript_suffixes): .ps is PostScript.
4635 (lang_names): Add Postscript. 4639 (lang_names): Add postscript.
4636 (Postscript_functions): New function. 4640 (Postscript_functions): New function.
4637 (TEX_decode_env): Close minor memory leak. 4641 (TEX_decode_env): Close minor memory leak.
4638 (just_read_file): Correct the char number of the tag. 4642 (just_read_file): Correct the char number of the tag.
@@ -5130,7 +5134,7 @@
5130 5134
51311996-03-15 Anders Lindgren <andersl@csd.uu.se> 51351996-03-15 Anders Lindgren <andersl@csd.uu.se>
5132 5136
5133 * etags.c: Prolog language totaly rewritten. 5137 * etags.c: Prolog language totally rewritten.
5134 (Prolog_functions): Rewritten from scratch. 5138 (Prolog_functions): Rewritten from scratch.
5135 (skip_comment, prolog_getit): Removed. 5139 (skip_comment, prolog_getit): Removed.
5136 (prolog_skip_comment): New function, like old skip_comment. 5140 (prolog_skip_comment): New function, like old skip_comment.
diff --git a/lib-src/Makefile.in b/lib-src/Makefile.in
index 499305ec512..c5e117f66f9 100644
--- a/lib-src/Makefile.in
+++ b/lib-src/Makefile.in
@@ -175,11 +175,11 @@ ALL_CFLAGS = ${BASE_CFLAGS} ${PROFILING_CFLAGS} ${LDFLAGS} ${CPPFLAGS} ${CFLAGS}
175LINK_CFLAGS = ${BASE_CFLAGS} ${LDFLAGS} ${CFLAGS} 175LINK_CFLAGS = ${BASE_CFLAGS} ${LDFLAGS} ${CFLAGS}
176CPP_CFLAGS = ${BASE_CFLAGS} ${PROFILING_CFLAGS} ${CPPFLAGS} ${CFLAGS} 176CPP_CFLAGS = ${BASE_CFLAGS} ${PROFILING_CFLAGS} ${CPPFLAGS} ${CFLAGS}
177 177
178all: ${EXE_FILES} ${SCRIPTS} ${INSTALLABLE_SCRIPTS} ${STAMP_INST_SCRIPTS} ${STAMP_SCRIPTS}
179
178LOADLIBES = ../lib/libgnu.a $(LIBS_SYSTEM) 180LOADLIBES = ../lib/libgnu.a $(LIBS_SYSTEM)
179$(EXE_FILES): ../lib/libgnu.a 181$(EXE_FILES): ../lib/libgnu.a
180 182
181all: ${EXE_FILES} ${SCRIPTS} ${INSTALLABLE_SCRIPTS} ${STAMP_INST_SCRIPTS} ${STAMP_SCRIPTS}
182
183## These targets copy the scripts into the build directory so that 183## These targets copy the scripts into the build directory so that
184## they can be run from there in an uninstalled Emacs. 184## they can be run from there in an uninstalled Emacs.
185## Nothing to do if pwd = srcdir. 185## Nothing to do if pwd = srcdir.
diff --git a/lib-src/emacsclient.c b/lib-src/emacsclient.c
index 76aa21884de..56e17c100be 100644
--- a/lib-src/emacsclient.c
+++ b/lib-src/emacsclient.c
@@ -1193,7 +1193,7 @@ handle_sigtstp (int signalnum)
1193 send_to_emacs (emacs_socket, "-suspend \n"); 1193 send_to_emacs (emacs_socket, "-suspend \n");
1194 1194
1195 /* Unblock this signal and call the default handler by temporarily 1195 /* Unblock this signal and call the default handler by temporarily
1196 changing the handler and resignalling. */ 1196 changing the handler and resignaling. */
1197 sigprocmask (SIG_BLOCK, NULL, &set); 1197 sigprocmask (SIG_BLOCK, NULL, &set);
1198 sigdelset (&set, signalnum); 1198 sigdelset (&set, signalnum);
1199 signal (signalnum, SIG_DFL); 1199 signal (signalnum, SIG_DFL);
diff --git a/lib-src/etags.c b/lib-src/etags.c
index cdcc6461a64..b739e8f00c5 100644
--- a/lib-src/etags.c
+++ b/lib-src/etags.c
@@ -611,7 +611,7 @@ using `--declarations'.";
611static const char *Cplusplus_suffixes [] = 611static const char *Cplusplus_suffixes [] =
612 { "C", "c++", "cc", "cpp", "cxx", "H", "h++", "hh", "hpp", "hxx", 612 { "C", "c++", "cc", "cpp", "cxx", "H", "h++", "hh", "hpp", "hxx",
613 "M", /* Objective C++ */ 613 "M", /* Objective C++ */
614 "pdb", /* Postscript with C syntax */ 614 "pdb", /* PostScript with C syntax */
615 NULL }; 615 NULL };
616static const char Cplusplus_help [] = 616static const char Cplusplus_help [] =
617"In C++ code, all the tag constructs of C code are tagged. (Use\n\ 617"In C++ code, all the tag constructs of C code are tagged. (Use\n\
@@ -4846,7 +4846,7 @@ Lua_functions (FILE *inf)
4846 4846
4847 4847
4848/* 4848/*
4849 * Postscript tags 4849 * PostScript tags
4850 * Just look for lines where the first character is '/' 4850 * Just look for lines where the first character is '/'
4851 * Also look at "defineps" for PSWrap 4851 * Also look at "defineps" for PSWrap
4852 * Ideas by: 4852 * Ideas by:
@@ -6097,7 +6097,7 @@ readline (linebuffer *lbp, FILE *stream)
6097 lineno += 1; /* increment global line number */ 6097 lineno += 1; /* increment global line number */
6098 charno += result; /* increment global char number */ 6098 charno += result; /* increment global char number */
6099 6099
6100 /* Honour #line directives. */ 6100 /* Honor #line directives. */
6101 if (!no_line_directive) 6101 if (!no_line_directive)
6102 { 6102 {
6103 static bool discard_until_line_directive; 6103 static bool discard_until_line_directive;
diff --git a/lib-src/update-game-score.c b/lib-src/update-game-score.c
index 9fba51a33de..e335617df4d 100644
--- a/lib-src/update-game-score.c
+++ b/lib-src/update-game-score.c
@@ -346,7 +346,7 @@ read_scores (const char *filename, struct score_entry **scores, int *count)
346 return -1; 346 return -1;
347 while ((readval = read_score (f, &ret[scorecount])) == 0) 347 while ((readval = read_score (f, &ret[scorecount])) == 0)
348 { 348 {
349 /* We encoutered an error */ 349 /* We encountered an error. */
350 if (readval < 0) 350 if (readval < 0)
351 return -1; 351 return -1;
352 scorecount++; 352 scorecount++;
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d0a50366eff..45a115ec566 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,8 +1,273 @@
12011-11-17 Glenn Morris <rgm@gnu.org>
2
3 * emacs-lisp/autoload.el (autoload-generate-file-autoloads):
4 Ignore buffer-local generated-autoload-file if it is the same
5 as the global value. (Bug#10049)
6
72011-11-17 Juanma Barranquero <lekktu@gmail.com>
8
9 * textmodes/reftex-toc.el (reftex-toc-return-marker, reftex-toc-help)
10 (reftex-toc, reftex-toc, reftex-toc-dframe-p, reftex-toc-next-heading)
11 (reftex-toc-previous-heading, reftex-toc-max-level)
12 (reftex-toc-goto-line-and-hide, reftex-toc-show-calling-point)
13 (reftex-toc-quit, reftex-toc-revert, reftex-toc-jump)
14 (reftex-toc-do-promote, reftex-toc-promote-prepare)
15 (reftex-toc-promote-action, reftex-toc-extract-section-number)
16 (reftex-toc-load-all-files-for-promotion, reftex-toc-rename-label)
17 (reftex-toc-rename-label, reftex-toc-visit-location)
18 (reftex-toc-visit-location, reftex-toggle-auto-toc-recenter)
19 (reftex-toggle-auto-toc-recenter, reftex-toggle-auto-toc-recenter)
20 (reftex-make-separate-toc-frame): Fix typos, and use TOC consistently,
21 leaving "*toc*" only for references to the buffer.
22
232011-11-17 Martin Rudalics <rudalics@gmx.at>
24
25 * window.el (window-resize, delete-window, split-window):
26 Replace window-splits by window-combination-resize.
27 * cus-start.el (window-splits): Replace by
28 window-combination-resize.
29
302011-11-17 Glenn Morris <rgm@gnu.org>
31
32 * progmodes/sh-script.el (sh-font-lock-keywords-var):
33 Make bash entry derive from sh entry, not shell entry.
34
352011-11-16 Michael Albinus <michael.albinus@gmx.de>
36
37 * net/tramp.el (tramp-handle-file-truename): Cache only the local
38 file name.
39
40 * net/tramp-cache.el (tramp-flush-file-property): Flush also
41 properties of linked files. (Bug#9879)
42
432011-11-16 Juanma Barranquero <lekktu@gmail.com>
44
45 * menu-bar.el (menu-bar-file-menu):
46 * printing.el (pr-ps-utility):
47 * calendar/icalendar.el (icalendar, icalendar--convert-tz-offset)
48 (icalendar--convert-to-ical, icalendar--convert-ordinary-to-ical)
49 (icalendar--convert-weekly-to-ical, icalendar--convert-yearly-to-ical)
50 (icalendar--convert-sexp-to-ical, icalendar--convert-block-to-ical)
51 (icalendar--convert-float-to-ical, icalendar--convert-date-to-ical)
52 (icalendar--convert-cyclic-to-ical)
53 (icalendar--convert-anniversary-to-ical, icalendar-import-buffer)
54 (icalendar--convert-ical-to-diary)
55 (icalendar--convert-recurring-to-diary)
56 (icalendar--convert-non-recurring-all-day-to-diary)
57 (icalendar-import-format-sample):
58 * progmodes/idlw-shell.el (idlwave-shell-mode):
59 * progmodes/vhdl-mode.el (vhdl-mode, vhdl-print-two-column)
60 (vhdl-print-customize-faces, vhdl-mode, vhdl-ps-print-settings)
61 (vhdl-ps-print-init): Fix typos.
62
632011-11-16 Ken Manheimer <ken.manheimer@gmail.com>
64
65 * allout.el, allout-widgets.el (file metadata): Attribute copyright to
66 FSF and collapse date sequence, obscure author/maintainer email address
67 better, remove extra version line, track relocation of author's webpage.
68
69 * progmodes/python.el (python-pdbtrack-input-prompt)
70 (python-pdbtrack-track-stack-file): Adjust to recognize ipdb as well as
71 regular python pdb prompts. Adjustments shamelessly taken exactly as
72 suggested in EmacsWiki page (tiny change):
73 http://www.emacswiki.org/PythonProgrammingInEmacs#toc14
74
752011-11-16 Juanma Barranquero <lekktu@gmail.com>
76
77 * expand.el (expand-pos, expand-index, expand-point):
78 Remove redundant info from docstring.
79 (expand-add-abbrevs): Doc fix.
80 (expand-c-sample-expand-list, expand-sample-lisp-mode-expand-list)
81 (expand-sample-perl-mode-expand-list): Fix typos.
82
83 * net/dbus.el (dbus-event-member-name):
84 * play/5x5.el (5x5-solve-rotate-left, 5x5-solver-output):
85 * term/pc-win.el (msdos-create-frame-with-faces):
86 * textmodes/texinfmt.el (texinfo-format-image): Fix typos.
87
882011-11-16 Martin Rudalics <rudalics@gmx.at>
89
90 * window.el (split-window, window-state-get-1)
91 (window-state-put-1, window-state-put-2): Rename occurrences of
92 window-nest to window-combination-limit.
93 * cus-start.el (window-nest): Rename to
94 window-combination-limit.
95
962011-11-16 Chong Yidong <cyd@gnu.org>
97
98 * progmodes/autoconf.el (autoconf-mode): Fix comment-start-skip
99 regexp (Bug#10033).
100
1012011-11-16 Stefan Monnier <monnier@iro.umontreal.ca>
102
103 * tmm.el (tmm-prompt): Use minibuffer-with-setup-hook (bug#10053).
104 `completing-read' will remove *Completions* and will preserve
105 current-buffer for us.
106 (tmm-add-prompt): Users of *Completions* will always (re)set its
107 major mode.
108 (tmm-old-comp-map): Remove.
109
1102011-11-16 Glenn Morris <rgm@gnu.org>
111
112 * mail/rmailedit.el: Require rmailmm when compiling.
113 (rmail-old-mime-state): New declaration.
114 (rmail-edit-current-message): If editing a mime message,
115 edit the "raw" message from the mbox buffer.
116 (rmail-cease-edit): Handle mime messages. (Bug#9840)
117
1182011-11-15 Glenn Morris <rgm@gnu.org>
119
120 * mail/rmailmm.el (rmail-mime-toggle-raw): Remove entity arg,
121 which wasn't being used. Add optional arg to force given state.
122 (rmail-mime): Add optional arg to force given state.
123
1242011-11-15 Juanma Barranquero <lekktu@gmail.com>
125
126 * allout.el (allout-encryption-plaintext-sanitization-regexps):
127 * frame.el (display-mm-dimensions-alist):
128 * outline.el (outline-mode-menu-bar-map, outline-move-subtree-up)
129 (outline-move-subtree-down):
130 * net/newst-treeview.el (newsticker--treeview-do-get-node-of-feed)
131 (newsticker--treeview-do-get-node):
132 * net/quickurl.el (quickurl-list-buffer-name):
133 * progmodes/dcl-mode.el (dcl-mode):
134 * progmodes/gdb-mi.el (gdb-mapcar*):
135 * progmodes/sql.el (sql-mode-oracle-font-lock-keywords): Fix typos.
136
1372011-11-15 Glenn Morris <rgm@gnu.org>
138
139 * mail/rmail.el (rmail-file-coding-system): It's only ever used
140 in a boolean sense, so just make it a boolean, and fix the doc.
141 (rmail-show-mime-function, rmail-mime-feature)
142 (rmail-require-mime-maybe): Doc fixes.
143 (rmail-show-message-1): Check rmail-show-mime-function is non-nil.
144
145 * mail/rmailmm.el (rmail-show-mime): Doc fix.
146
1472011-11-15 Juanma Barranquero <lekktu@gmail.com>
148
149 * epg.el (epg-start-decrypt, epg-start-verify, epg-start-sign)
150 (epg-start-encrypt, epg-start-export-keys, epg-start-import-keys)
151 (epg-start-receive-keys, epg-start-delete-keys, epg-start-sign-keys)
152 (epg-start-generate-key, epg-context-set-progress-callback): Fix typos.
153
1542011-11-15 Glenn Morris <rgm@gnu.org>
155
156 * mail/rmailmm.el (rmail-mime-entity, rmail-mime-entity-segment)
157 (rmail-mime-shown-mode, rmail-mime-hidden-mode, rmail-mime-raw-mode)
158 (rmail-mime-toggle-hidden, rmail-mime-insert-tagline)
159 (rmail-mime-insert-header, rmail-mime-handle, rmail-mime-parse)
160 (rmail-mime, rmail-show-mime): Doc fixes.
161
162 * term/ns-win.el (mode-line-frame-identification):
163 Leave it alone. (Bug#10051)
164
165 * simple.el (mark-whole-buffer): Doc fix. (Bug#10023)
166
167 * mail/rmailout.el (rmail-output-to-rmail-buffer):
168 Handle empty buffers. (Bug#9978)
169
1702011-11-14 Juanma Barranquero <lekktu@gmail.com>
171
172 * international/mule.el (define-charset):
173 * mail/rmailmm.el (rmail-mime-find-header-encoding):
174 * progmodes/prolog.el (prolog-mode-hook, prolog-inferior-mode-hook):
175 * progmodes/verilog-mode.el (verilog-backward-token):
176 * textmodes/ispell.el (lookup-words):
177 * textmodes/sgml-mode.el (sgml-guess-indent): Fix typos.
178
1792011-11-14 Glenn Morris <rgm@gnu.org>
180
181 * progmodes/executable.el
182 (executable-make-buffer-file-executable-if-script-p):
183 Handle file-modes returning nil.
184
185 * mail/rmailsum.el (rmail-summary): Remove movement to beginning of
186 message - not necessary, and causes problems. (Bug#9831)
187
188 * mail/rmailsum.el (rmail-new-summary): Preserve message number.
189
190 * mail/rmail.el (rmail-no-mail-p): Remove mode-line N/M indicator.
191
192 * mail/rmailsum.el (rmail-summary, rmail-new-summary)
193 (rmail-new-summary-1): Allow empty summaries. (Bug#9964)
194 (rmail-new-summary): Remember that rmail-summary-buffer is buffer-local.
195
1962011-11-12 Martin Rudalics <rudalics@gmx.at>
197
198 * window.el (window-resize, delete-window): Use window-splits
199 variable instead of function.
200 (window-state-get-1, window-state-put-2, window-state-put):
201 Don't deal with windows' splits status.
202
2032011-11-12 Glenn Morris <rgm@gnu.org>
204
205 * apropos.el (apropos-do-all, apropos-library, apropos-value)
206 (apropos-documentation): Doc fixes.
207
2082011-11-11 Juanma Barranquero <lekktu@gmail.com>
209
210 * progmodes/idlw-shell.el (idlwave-shell-make-new-bp-overlay):
211 * textmodes/sgml-mode.el (html-tag-help): Fix typos.
212
2132011-11-11 Stefan Monnier <monnier@iro.umontreal.ca>
214
215 * electric.el (electric-indent-post-self-insert-function): Make it
216 possible for a char to only indent in some circumstances.
217 (electric-indent-mode): Simplify.
218
2192011-11-11 Martin Rudalics <rudalics@gmx.at>
220
221 * window.el (windows-with-parameter): Remove unused function.
222 (windows-at-side): Rename to window-at-side-list.
223 (window-check, window-atom-check, window-atom-check-1)
224 (window-side-check, window-size-ignore, window-size-fixed-1)
225 (window-in-direction-2): Prefix with "window--".
226 (window-tree-1): Rename to window--subtree, fix doc-string.
227
2282011-11-11 Glenn Morris <rgm@gnu.org>
229
230 * subr.el (eval-after-load): If FILE is already loaded,
231 evaluate FORM before it gets wrapped in more stuff. (Bug#10009)
232
2332011-11-10 Glenn Morris <rgm@gnu.org>
234
235 * vc/vc-svn.el (vc-svn-create-repo, vc-svn-modify-change-comment):
236 Call svn via vc-svn-command rather than vc-do-command.
237 (vc-svn-command): Add --non-interactive. (Bug#9993)
238 (vc-svn-update, vc-svn-merge-news): No need for --non-interactive.
239
240 * emacs-lisp/bytecomp.el (byte-compile-interactive-only-functions):
241 Add toggle-read-only. (Bug#7292)
242 * files.el (toggle-read-only): Mention that it should only
243 be used interactively. (Bug#10006)
244
2452011-11-09 Stefan Monnier <monnier@iro.umontreal.ca>
246
247 * progmodes/compile.el (compilation-error-regexp-alist-alist):
248 Adjust regexp for OCaml warnings.
249
250 * electric.el (electric-pair-post-self-insert-function): Let user
251 turn it off buffer-locally (bug#9932).
252
253 * progmodes/python.el (python-beginning-of-statement):
254 Rewrite (bug#2703).
255
256 * progmodes/compile.el: Better handle TABs (bug#9749).
257 (compilation-internal-error-properties)
258 (compilation-next-error-function): Obey the target buffer's
259 compilation-error-screen-columns.
260
2612011-11-09 Juanma Barranquero <lekktu@gmail.com>
262
263 * progmodes/meta-mode.el: Remove obsolete comments.
264 (meta-right-comment-regexp, meta-ignore-comment-regexp):
265 Fix typos in docstrings.
266
12011-11-09 Martin Rudalics <rudalics@gmx.at> 2672011-11-09 Martin Rudalics <rudalics@gmx.at>
2 268
3 * window.el (window-size-fixed-p): Rewrite doc-string. 269 * window.el (window-size-fixed-p): Rewrite doc-string.
4 (window-resizable-p): Rename to window--resizable-p. Update 270 (window-resizable-p): Rename to window--resizable-p. Update callers.
5 callers.
6 (window--resizable): New function. Make all callers of 271 (window--resizable): New function. Make all callers of
7 window-resizable call window--resizable instead. 272 window-resizable call window--resizable instead.
8 (window-resizable): Rewrite in terms of window--resizable. 273 (window-resizable): Rewrite in terms of window--resizable.
@@ -90,7 +355,7 @@
90 (window-size-ignore, window-state-get): Callers changed. 355 (window-size-ignore, window-state-get): Callers changed.
91 (window-normalize-window): Rename from window-normalize-any-window. 356 (window-normalize-window): Rename from window-normalize-any-window.
92 New arg LIVE-ONLY, replacing window-normalize-live-window. 357 New arg LIVE-ONLY, replacing window-normalize-live-window.
93 (window-normalize-live-window): Deleted. 358 (window-normalize-live-window): Delete.
94 (window-combination-p, window-combined-p, window-combinations) 359 (window-combination-p, window-combined-p, window-combinations)
95 (walk-window-subtree, window-atom-root, window-min-size) 360 (walk-window-subtree, window-atom-root, window-min-size)
96 (window-sizable, window-sizable-p, window-size-fixed-p) 361 (window-sizable, window-sizable-p, window-size-fixed-p)
@@ -286,11 +551,10 @@
286 * progmodes/cc-defs.el: Update "virtual semicolon" comments. 551 * progmodes/cc-defs.el: Update "virtual semicolon" comments.
287 552
288 * progmodes/cc-engine.el (c-crosses-statement-barrier-p): 553 * progmodes/cc-engine.el (c-crosses-statement-barrier-p):
289 Recode to scan one line at at time rather than having \n and \r 554 Recode to scan one line at a time rather than having \n and \r
290 explicitly in c-stmt-delim-chars 555 explicitly in c-stmt-delim-chars (for some modes, e.g. AWK).
291 (for some modes, e.g. AWK).
292 (c-forward-label): Amend for virtual semicolons. 556 (c-forward-label): Amend for virtual semicolons.
293 (c-at-macro-vsemi-p, c-macro-vsemi-status-unknown-p): New functions 557 (c-at-macro-vsemi-p, c-macro-vsemi-status-unknown-p): New functions.
294 558
295 * progmodes/cc-fonts.el (c-font-lock-declarations): Take account 559 * progmodes/cc-fonts.el (c-font-lock-declarations): Take account
296 of the new C macros. 560 of the new C macros.
@@ -307,7 +571,7 @@
307 571
308 * progmodes/cc-vars.el (c-macro-with-semi-re): 572 * progmodes/cc-vars.el (c-macro-with-semi-re):
309 (c-macro-names-with-semicolon): New variables. 573 (c-macro-names-with-semicolon): New variables.
310 (c-make-macro-with-semi-re): New function 574 (c-make-macro-with-semi-re): New function.
311 575
3122011-10-28 Stefan Monnier <monnier@iro.umontreal.ca> 5762011-10-28 Stefan Monnier <monnier@iro.umontreal.ca>
313 577
@@ -362,7 +626,7 @@
3622011-10-26 Michael Albinus <michael.albinus@gmx.de> 6262011-10-26 Michael Albinus <michael.albinus@gmx.de>
363 627
364 * ido.el (ido-file-name-all-completions-1): Do not require 628 * ido.el (ido-file-name-all-completions-1): Do not require
365 tramp.el explicitely. (Bug#7583) 629 tramp.el explicitly. (Bug#7583)
366 630
3672011-10-26 Stefan Monnier <monnier@iro.umontreal.ca> 6312011-10-26 Stefan Monnier <monnier@iro.umontreal.ca>
368 632
@@ -2380,13 +2644,13 @@
2380 2644
23812011-08-20 Alan Mackenzie <acm@muc.de> 26452011-08-20 Alan Mackenzie <acm@muc.de>
2382 2646
2383 * Fontify CPP expressions correctly when starting in the middle of 2647 Fontify CPP expressions correctly when starting in the middle of
2384 such a construct. Mainly for when jit-lock etc. starts a chunk 2648 such a construct. Mainly for when jit-lock etc. starts a chunk
2385 here. 2649 here.
2386 2650
2387 * progmodes/cc-fonts.el (c-font-lock-context): new buffer local 2651 * progmodes/cc-fonts.el (c-font-lock-context): New buffer local
2388 variable. 2652 variable.
2389 (c-make-font-lock-search-form): new function, extracted from 2653 (c-make-font-lock-search-form): New function, extracted from
2390 c-make-font-lock-search-function. 2654 c-make-font-lock-search-function.
2391 (c-make-font-lock-search-function): Use the above function. 2655 (c-make-font-lock-search-function): Use the above function.
2392 (c-make-font-lock-context-search-function): New function. 2656 (c-make-font-lock-context-search-function): New function.
@@ -2717,7 +2981,7 @@
2717 2981
2718 * progmodes/cc-fonts.el (c-font-lock-declarations): Jump over the 2982 * progmodes/cc-fonts.el (c-font-lock-declarations): Jump over the
2719 QT keyword "more" to prevent "more slots: ...." being spuriously 2983 QT keyword "more" to prevent "more slots: ...." being spuriously
2720 parsed as a bitfield declaraion. 2984 parsed as a bitfield declaration.
2721 2985
2722 * progmodes/cc-engine.el (c-beginning-of-statement-1): 2986 * progmodes/cc-engine.el (c-beginning-of-statement-1):
2723 Refactor and enhance to handle bitfield declarations. 2987 Refactor and enhance to handle bitfield declarations.
@@ -3416,7 +3680,7 @@
3416 Also clean up the code slightly. 3680 Also clean up the code slightly.
3417 3681
3418 * progmodes/grep.el (rgrep): Don't bind `process-connection-type', 3682 * progmodes/grep.el (rgrep): Don't bind `process-connection-type',
3419 because that makes the colours go away. 3683 because that makes the colors go away.
3420 3684
3421 * mail/sendmail.el (send-mail-function): Change the default to 3685 * mail/sendmail.el (send-mail-function): Change the default to
3422 `sendmail-query-once'. 3686 `sendmail-query-once'.
@@ -3789,7 +4053,7 @@
3789 for list)" (bug#6475). 4053 for list)" (bug#6475).
3790 4054
3791 * files.el (file-expand-wildcards): Ignore non-readable 4055 * files.el (file-expand-wildcards): Ignore non-readable
3792 sub-directories while trying to find matches instead of signalling 4056 sub-directories while trying to find matches instead of signaling
3793 an error (bug#6297). 4057 an error (bug#6297).
3794 4058
3795 * man.el (Man-reference-regexp): Allow matching possible 4059 * man.el (Man-reference-regexp): Allow matching possible
@@ -5462,7 +5726,7 @@
5462 5726
5463 * image-mode.el (image-toggle-display-image): Ensure that the 5727 * image-mode.el (image-toggle-display-image): Ensure that the
5464 image spec passed to the animate timer is the same object as in 5728 image spec passed to the animate timer is the same object as in
5465 the the buffer's display property (Bug#6981). 5729 the buffer's display property (Bug#6981).
5466 (image-transform-properties): Doc fix. 5730 (image-transform-properties): Doc fix.
5467 5731
5468 * image.el (image-animate-max-time): Default to nil. 5732 * image.el (image-animate-max-time): Default to nil.
@@ -5544,7 +5808,7 @@
55442011-05-28 Stefan Monnier <monnier@iro.umontreal.ca> 58082011-05-28 Stefan Monnier <monnier@iro.umontreal.ca>
5545 5809
5546 * minibuffer.el (completion--capf-wrapper): Check applicability before 5810 * minibuffer.el (completion--capf-wrapper): Check applicability before
5547 retuning non-nil for non-exclusive completion data. 5811 returning non-nil for non-exclusive completion data.
5548 * progmodes/etags.el (tags-completion-at-point-function): 5812 * progmodes/etags.el (tags-completion-at-point-function):
5549 * info-look.el (info-lookup-completions-at-point): Mark as 5813 * info-look.el (info-lookup-completions-at-point): Mark as
5550 non-exclusive. 5814 non-exclusive.
diff --git a/lisp/ChangeLog.1 b/lisp/ChangeLog.1
index f1c931589d1..aac6e998a88 100644
--- a/lisp/ChangeLog.1
+++ b/lisp/ChangeLog.1
@@ -1947,7 +1947,7 @@
1947 elements of command-history are expressions. 1947 elements of command-history are expressions.
1948 1948
1949 * simple.el (error): 1949 * simple.el (error):
1950 Just keep signalling if user tries to continue. 1950 Just keep signaling if user tries to continue.
1951 1951
19521985-09-07 Richard M. Stallman (rms@mit-prep) 19521985-09-07 Richard M. Stallman (rms@mit-prep)
1953 1953
diff --git a/lisp/ChangeLog.10 b/lisp/ChangeLog.10
index 1c2f2b5b015..0cf64cf36e9 100644
--- a/lisp/ChangeLog.10
+++ b/lisp/ChangeLog.10
@@ -2339,7 +2339,7 @@
2339 skips encoded regions. Allow user to skip saving Fcc messages with 2339 skips encoded regions. Allow user to skip saving Fcc messages with
2340 large attachments. Fixed region skipping bug with multi-line 2340 large attachments. Fixed region skipping bug with multi-line
2341 comments - e.g. tex $ regions spanning multiple lines. 2341 comments - e.g. tex $ regions spanning multiple lines.
2342 Added support for postscript and uuencoded regions. 2342 Added support for PostScript and uuencoded regions.
2343 Redundant dictionary file names purged. 2343 Redundant dictionary file names purged.
2344 Dictionary definition field name changed from "Character Set" 2344 Dictionary definition field name changed from "Character Set"
2345 to "Coding System". Fixed bug in reloading dictionaries. 2345 to "Coding System". Fixed bug in reloading dictionaries.
@@ -2374,7 +2374,7 @@
2374 (ispell-valid-dictionary-list): New function returning all valid 2374 (ispell-valid-dictionary-list): New function returning all valid
2375 dictionaries on machine. 2375 dictionaries on machine.
2376 (ispell-checking-message): Documentation string improved. 2376 (ispell-checking-message): Documentation string improved.
2377 (ispell-skip-region-alist): Add uuencoded and postscript region 2377 (ispell-skip-region-alist): Add uuencoded and PostScript region
2378 skipping. Improve http/e-mail/file regexp to not match `/.\w'. 2378 skipping. Improve http/e-mail/file regexp to not match `/.\w'.
2379 (ispell-html-skip-alists): New variable for html region support. 2379 (ispell-html-skip-alists): New variable for html region support.
2380 (ispell-send-string): Remove redundant xemacs check. 2380 (ispell-send-string): Remove redundant xemacs check.
@@ -2402,7 +2402,7 @@
2402 html skipping pushed to alists. 2402 html skipping pushed to alists.
2403 (ispell-get-line): Add support for multi-line comment regions. 2403 (ispell-get-line): Add support for multi-line comment regions.
2404 (ispell): Check that variables to continue spelling are bound. 2404 (ispell): Check that variables to continue spelling are bound.
2405 (ispell-message-text-end): Postscript and uuencoded regions now 2405 (ispell-message-text-end): PostScript and uuencoded regions now
2406 supported as MIME regions, rather than as end-of-message region. 2406 supported as MIME regions, rather than as end-of-message region.
2407 (ispell-mime-multipartp): New function supporting MIME. 2407 (ispell-mime-multipartp): New function supporting MIME.
2408 (ispell-mime-skip-part): New function supporting MIME. 2408 (ispell-mime-skip-part): New function supporting MIME.
@@ -3318,7 +3318,7 @@
3318 ada-prj.el are now defined in this package, which makes it easier to 3318 ada-prj.el are now defined in this package, which makes it easier to
3319 edit menus. 3319 edit menus.
3320 (ada-narrow-to-defun): Add support for `narrow-to-region'. 3320 (ada-narrow-to-defun): Add support for `narrow-to-region'.
3321 No longer explicitely load ada-xref.el and ada-prj.el. Use autoload 3321 No longer explicitly load ada-xref.el and ada-prj.el. Use autoload
3322 statements instead. 3322 statements instead.
3323 3323
3324 * progmodes/ada-xref.el (ada-gnatls-args): New variable. 3324 * progmodes/ada-xref.el (ada-gnatls-args): New variable.
@@ -3516,7 +3516,7 @@
35162003-04-23 Stefan Monnier <monnier@cs.yale.edu> 35162003-04-23 Stefan Monnier <monnier@cs.yale.edu>
3517 3517
3518 * newcomment.el (comment-normalize-vars): Prompt the user for 3518 * newcomment.el (comment-normalize-vars): Prompt the user for
3519 the comment-start to use rather than signalling an error. Fix regexp. 3519 the comment-start to use rather than signaling an error. Fix regexp.
3520 (uncomment-region): Don't leave half-removed comment markers. 3520 (uncomment-region): Don't leave half-removed comment markers.
3521 3521
35222003-04-23 Richard M. Stallman <rms@gnu.org> 35222003-04-23 Richard M. Stallman <rms@gnu.org>
@@ -4332,7 +4332,7 @@
4332 4332
43332003-04-01 Stefan Monnier <monnier@cs.yale.edu> 43332003-04-01 Stefan Monnier <monnier@cs.yale.edu>
4334 4334
4335 * progmodes/asm-mode.el (asm-mode-syntax-table): Setup entries 4335 * progmodes/asm-mode.el (asm-mode-syntax-table): Setup entries
4336 that do not depend on asm-comment-char. 4336 that do not depend on asm-comment-char.
4337 (asm-mode-map): Declare and init at the same time. 4337 (asm-mode-map): Declare and init at the same time.
4338 (asm-code-level-empty-comment-pattern) 4338 (asm-code-level-empty-comment-pattern)
@@ -9383,7 +9383,7 @@
9383 9383
93842002-10-06 Glenn Morris <gmorris@ast.cam.ac.uk> 93842002-10-06 Glenn Morris <gmorris@ast.cam.ac.uk>
9385 9385
9386 * progmodes/fortran.el (fortran-beginning-do): Ignore labelled DO 9386 * progmodes/fortran.el (fortran-beginning-do): Ignore labeled DO
9387 loops. 9387 loops.
9388 9388
93892002-10-05 Stefan Monnier <monnier@cs.yale.edu> 93892002-10-05 Stefan Monnier <monnier@cs.yale.edu>
@@ -9632,7 +9632,7 @@
9632 named ucs-translation-table-for-decode vacant. If FOR-ENCODE is 9632 named ucs-translation-table-for-decode vacant. If FOR-ENCODE is
9633 non-nil, make a proper char-table populates the translation table 9633 non-nil, make a proper char-table populates the translation table
9634 name utf-translation-table-for-encode. Call register-char-codings 9634 name utf-translation-table-for-encode. Call register-char-codings
9635 for all mule-utf-* to to reset their status to the original. 9635 for all mule-utf-* to reset their status to the original.
9636 (unify-8859-on-encoding-mode): Call ucs-unify-8859 and 9636 (unify-8859-on-encoding-mode): Call ucs-unify-8859 and
9637 ucs-fragment-8859 with fixed arguments. Set the version to 21.3. 9637 ucs-fragment-8859 with fixed arguments. Set the version to 21.3.
9638 (unify-8859-on-decoding-mode): Likewise. Remove dependency. 9638 (unify-8859-on-decoding-mode): Likewise. Remove dependency.
@@ -10545,7 +10545,7 @@
10545 10545
105462002-09-22 Kai Großjohann <grossjoh@ls6.informatik.uni-dortmund.de> 105462002-09-22 Kai Großjohann <grossjoh@ls6.informatik.uni-dortmund.de>
10547 10547
10548 * dired.el (dired-insert-directory): Always add "--dired" to to 10548 * dired.el (dired-insert-directory): Always add "--dired" to
10549 SWITCHES for remote files. 10549 SWITCHES for remote files.
10550 * files.el (insert-directory): Comment saying that "--dired" 10550 * files.el (insert-directory): Comment saying that "--dired"
10551 might be in the SWITCHES. 10551 might be in the SWITCHES.
@@ -11617,7 +11617,7 @@
11617 * emacs-lisp/bytecomp.el (byte-compile-warning-prefix): 11617 * emacs-lisp/bytecomp.el (byte-compile-warning-prefix):
11618 Decide here whether to print which form we're compiling. 11618 Decide here whether to print which form we're compiling.
11619 If we do that, still print file and line. Make file name 11619 If we do that, still print file and line. Make file name
11620 relative to default-directory. Print fewer newlines. 11620 relative to default-directory. Print fewer newlines.
11621 (byte-compile-log-file): Print something even if no file. 11621 (byte-compile-log-file): Print something even if no file.
11622 Print messages for entering and leaving directories, 11622 Print messages for entering and leaving directories,
11623 and set default-directory. 11623 and set default-directory.
@@ -12899,7 +12899,7 @@
12899 * timer.el (timer-inc-time): Doc fix. 12899 * timer.el (timer-inc-time): Doc fix.
12900 12900
12901 * replace.el (keep-lines, flush-lines): Interactively report 12901 * replace.el (keep-lines, flush-lines): Interactively report
12902 read-only error before reading regexp argument. 12902 read-only error before reading regexp argument.
12903 12903
12904 * dabbrev.el (dabbrev--search): Use inhibit-point-motion-hooks. 12904 * dabbrev.el (dabbrev--search): Use inhibit-point-motion-hooks.
12905 12905
@@ -21105,12 +21105,12 @@
21105 so that the next undo after an error will not begin redoing. 21105 so that the next undo after an error will not begin redoing.
21106 21106
21107 * simple.el (shell-command): Doc fix. 21107 * simple.el (shell-command): Doc fix.
21108 (shell-command-on-region): If there is output an an error, 21108 (shell-command-on-region): If there is output and an error,
21109 add "...Shell command failed" to the output. 21109 add "...Shell command failed" to the output.
21110 21110
211112001-12-13 David Ponce <david@dponce.com> 211112001-12-13 David Ponce <david@dponce.com>
21112 21112
21113 * ruler-mode.el (ruler-mode-left-fringe-cols): Variable removed. 21113 * ruler-mode.el (ruler-mode-left-fringe-cols): Variable removed.
21114 (ruler-mode-left-fringe-cols): Function replaced by more efficient 21114 (ruler-mode-left-fringe-cols): Function replaced by more efficient
21115 implementation `ruler-mode-extra-left-cols'. 21115 implementation `ruler-mode-extra-left-cols'.
21116 (ruler-mode-ruler): Use above new function. Take into account 21116 (ruler-mode-ruler): Use above new function. Take into account
@@ -23550,4 +23550,3 @@ See ChangeLog.9 for earlier changes.
23550 23550
23551 You should have received a copy of the GNU General Public License 23551 You should have received a copy of the GNU General Public License
23552 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. 23552 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
23553
diff --git a/lisp/ChangeLog.11 b/lisp/ChangeLog.11
index 76bac50c4b8..08bd70926b4 100644
--- a/lisp/ChangeLog.11
+++ b/lisp/ChangeLog.11
@@ -5283,7 +5283,7 @@
5283 (disabled-command-function): Function renamed from 5283 (disabled-command-function): Function renamed from
5284 `disabled-command-hook'. Adapt code to name change of the variable. 5284 `disabled-command-hook'. Adapt code to name change of the variable.
5285 5285
52862004-08-07 Satyaki Das <satyaki@theforce.stanford.edu> (tiny change) 52862004-08-07 Satyaki Das <satyaki@theforce.stanford.edu>
5287 5287
5288 * simple.el (completion-root-regexp): New defvar. 5288 * simple.el (completion-root-regexp): New defvar.
5289 (completion-setup-function): Use it instead of a literal string. 5289 (completion-setup-function): Use it instead of a literal string.
diff --git a/lisp/ChangeLog.12 b/lisp/ChangeLog.12
index 35572bd6105..e916db64f05 100644
--- a/lisp/ChangeLog.12
+++ b/lisp/ChangeLog.12
@@ -764,7 +764,7 @@
764 Fix calls to get-buffer-window to find windows in other frames. 764 Fix calls to get-buffer-window to find windows in other frames.
765 Reported by David Hansen <david.hansen@gmx.net>. 765 Reported by David Hansen <david.hansen@gmx.net>.
766 766
7672007-03-27 Kevin Ryde <user42@zip.com.au> 7672007-03-27 Kevin Ryde <user42@zip.com.au>
768 768
769 * info.el (Info-display-images-node): On a text-only terminal, 769 * info.el (Info-display-images-node): On a text-only terminal,
770 show the "text" or "alt" parts of the image blobs. 770 show the "text" or "alt" parts of the image blobs.
@@ -938,7 +938,7 @@
9382007-03-20 David Kastrup <dak@gnu.org> 9382007-03-20 David Kastrup <dak@gnu.org>
939 939
940 * files.el (magic-mode-alist): Require literal "%!PS" string for 940 * files.el (magic-mode-alist): Require literal "%!PS" string for
941 magic postscript file detection. 941 magic PostScript file detection.
942 942
9432007-03-20 Richard Stallman <rms@gnu.org> 9432007-03-20 Richard Stallman <rms@gnu.org>
944 944
@@ -7561,7 +7561,7 @@
7561 * pcvs-util.el (cvs-get-buffer-create): Obey `noreuse' even if `name' 7561 * pcvs-util.el (cvs-get-buffer-create): Obey `noreuse' even if `name'
7562 doesn't look like a file name. 7562 doesn't look like a file name.
7563 7563
7564 * complete.el (PC-expand-many-files): Avoid signalling an error when 7564 * complete.el (PC-expand-many-files): Avoid signaling an error when
7565 the current directory doesn't exist. Reported by Michaël Cadilhac. 7565 the current directory doesn't exist. Reported by Michaël Cadilhac.
7566 7566
75672006-08-02 Andreas Schwab <schwab@suse.de> 75672006-08-02 Andreas Schwab <schwab@suse.de>
@@ -8855,7 +8855,7 @@
8855 (org-get-indentation): New optional argument LINE. 8855 (org-get-indentation): New optional argument LINE.
8856 (org-fix-indentation, org-remove-tabs): New functions. 8856 (org-fix-indentation, org-remove-tabs): New functions.
8857 (org-export-as-ascii, org-ascii-level-start): Determine and apply 8857 (org-export-as-ascii, org-ascii-level-start): Determine and apply
8858 correct indentation for headlines that are converted it items. 8858 correct indentation for headlines that are converted to items.
8859 (org-skip-comments): Remove table lines that contain narrowing 8859 (org-skip-comments): Remove table lines that contain narrowing
8860 cookies but no other non-empty fields. 8860 cookies but no other non-empty fields.
8861 (org-set-tags): Allow groups of mutually exclusive tags. 8861 (org-set-tags): Allow groups of mutually exclusive tags.
@@ -9419,7 +9419,7 @@
9419 (org-insert-labeled-timestamps-at-point): New option. 9419 (org-insert-labeled-timestamps-at-point): New option.
9420 (org-cycle, org-occur, org-scan-tags): Use `org-overview' instead 9420 (org-cycle, org-occur, org-scan-tags): Use `org-overview' instead
9421 of `hide-sublevels 1', in case the first headline is not level 1. 9421 of `hide-sublevels 1', in case the first headline is not level 1.
9422 (org-overview, org-content): New fuction. 9422 (org-overview, org-content): New function.
9423 (org-cycle-global-status, org-cycle-subtree-status): Make these 9423 (org-cycle-global-status, org-cycle-subtree-status): Make these
9424 variables buffer-local. 9424 variables buffer-local.
9425 (org-global-cycle): New command. 9425 (org-global-cycle): New command.
@@ -16735,7 +16735,7 @@
16735 * progmodes/cc-cmds.el (c-beginning-of-statement (and 16735 * progmodes/cc-cmds.el (c-beginning-of-statement (and
16736 subfunctions)): Adapt c-\(back\|forward\)-over-illiterals such 16736 subfunctions)): Adapt c-\(back\|forward\)-over-illiterals such
16737 that movement over macros and code are rigorously separated from 16737 that movement over macros and code are rigorously separated from
16738 eachother. Correct a few incidental bugs. 16738 each other. Correct a few incidental bugs.
16739 16739
16740 * progmodes/cc-cmds.el: Restructure c-beginning-of-statement: 16740 * progmodes/cc-cmds.el: Restructure c-beginning-of-statement:
16741 Improve its doc-string. Improve the handling of certain specific cases. 16741 Improve its doc-string. Improve the handling of certain specific cases.
@@ -16884,7 +16884,7 @@
16884 * progmodes/cc-fonts.el (c-font-lock-complex-decl-prepare) 16884 * progmodes/cc-fonts.el (c-font-lock-complex-decl-prepare)
16885 (c-font-lock-declarators, c-font-lock-declarations) 16885 (c-font-lock-declarators, c-font-lock-declarations)
16886 (c-complex-decl-matchers, c-basic-matchers-after): Use a text 16886 (c-complex-decl-matchers, c-basic-matchers-after): Use a text
16887 property to mark the items in in declarator lists to handle 16887 property to mark the items in declarator lists to handle
16888 refontification inside multiline declarations better. 16888 refontification inside multiline declarations better.
16889 16889
16890 * progmodes/cc-fonts.el (c-font-lock-declarations): Recognize a 16890 * progmodes/cc-fonts.el (c-font-lock-declarations): Recognize a
@@ -18374,7 +18374,7 @@
18374 (tar-summarize-buffer): Don't clear the modified-p bit if it wasn't 18374 (tar-summarize-buffer): Don't clear the modified-p bit if it wasn't
18375 cleared before. Obey default-enable-multibyte-characters. 18375 cleared before. Obey default-enable-multibyte-characters.
18376 Use mapconcat. Simplify setting of tar-header-offset. 18376 Use mapconcat. Simplify setting of tar-header-offset.
18377 (tar-mode-map): Move initialization inside delcaration. 18377 (tar-mode-map): Move initialization inside declaration.
18378 (tar-flag-deleted): Use `abs'. 18378 (tar-flag-deleted): Use `abs'.
18379 (tar-expunge-internal): Remove unused var `line'. 18379 (tar-expunge-internal): Remove unused var `line'.
18380 (tar-expunge-internal): Don't hardcode point-min==1. 18380 (tar-expunge-internal): Don't hardcode point-min==1.
@@ -33362,4 +33362,3 @@ See ChangeLog.11 for earlier changes.
33362 33362
33363 You should have received a copy of the GNU General Public License 33363 You should have received a copy of the GNU General Public License
33364 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. 33364 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
33365
diff --git a/lisp/ChangeLog.13 b/lisp/ChangeLog.13
index 993c51163cb..319cdb14b9b 100644
--- a/lisp/ChangeLog.13
+++ b/lisp/ChangeLog.13
@@ -16,7 +16,7 @@
16 * international/fontset.el (script-representative-chars): Add cham 16 * international/fontset.el (script-representative-chars): Add cham
17 and tai-viet. 17 and tai-viet.
18 (setup-default-fontset): Add iso10646-1 font for latin and ipa. 18 (setup-default-fontset): Add iso10646-1 font for latin and ipa.
19 Add fontconfig spec for cjk-misc. Explicitly specify font font 19 Add fontconfig spec for cjk-misc. Explicitly specify font
20 for U+E000..U+F8FF. 20 for U+E000..U+F8FF.
21 21
22 * international/characters.el (script-list): Add cham. 22 * international/characters.el (script-list): Add cham.
@@ -1673,7 +1673,7 @@
1673 x-resolve-font-name. 1673 x-resolve-font-name.
1674 (x-complement-fontset-spec): Never prepend an ASCII font. 1674 (x-complement-fontset-spec): Never prepend an ASCII font.
1675 (create-fontset-from-fontset-spec): If a fontset of the same name 1675 (create-fontset-from-fontset-spec): If a fontset of the same name
1676 already exists, override it instead of signalling an error. Don't 1676 already exists, override it instead of signaling an error. Don't
1677 turn `ascii' into `latin'. Don't update fontset-alias-alist here. 1677 turn `ascii' into `latin'. Don't update fontset-alias-alist here.
1678 1678
1679 * international/mule-conf.el (unicode-bmp): Delete duplicated 1679 * international/mule-conf.el (unicode-bmp): Delete duplicated
@@ -10127,7 +10127,7 @@
101272007-10-08 Richard Stallman <rms@gnu.org> 101272007-10-08 Richard Stallman <rms@gnu.org>
10128 10128
10129 * wid-edit.el (widget-specify-button): Don't merge mouse-face with 10129 * wid-edit.el (widget-specify-button): Don't merge mouse-face with
10130 neighbouring buttons. 10130 neighboring buttons.
10131 10131
101322007-10-08 Andreas Schwab <schwab@suse.de> 101322007-10-08 Andreas Schwab <schwab@suse.de>
10133 10133
@@ -10151,7 +10151,7 @@
101512007-10-08 Stefan Monnier <monnier@iro.umontreal.ca> 101512007-10-08 Stefan Monnier <monnier@iro.umontreal.ca>
10152 10152
10153 * wid-edit.el (widget-image-insert): Don't merge mouse-face with 10153 * wid-edit.el (widget-image-insert): Don't merge mouse-face with
10154 neighbouring buttons. 10154 neighboring buttons.
10155 10155
10156 * progmodes/compile.el (compilation-error-regexp-alist-alist): 10156 * progmodes/compile.el (compilation-error-regexp-alist-alist):
10157 Recognize gcc's use of "note" for informational messages. 10157 Recognize gcc's use of "note" for informational messages.
@@ -11855,7 +11855,7 @@
11855 (org-agenda-files): Ignore non-existing files. 11855 (org-agenda-files): Ignore non-existing files.
11856 (org-agenda-skip-unavailable-files): New variable. 11856 (org-agenda-skip-unavailable-files): New variable.
11857 (org-ellipsis): All a face as value. 11857 (org-ellipsis): All a face as value.
11858 (org-mode): Interprete the face value of `org-ellipsis'. 11858 (org-mode): Interpret the face value of `org-ellipsis'.
11859 (org-archive-save-context-info): New option. 11859 (org-archive-save-context-info): New option.
11860 (org-archive-subtree): Store context info in archived entry. 11860 (org-archive-subtree): Store context info in archived entry.
11861 (org-fast-tag-selection-can-set-todo-state): New variable. 11861 (org-fast-tag-selection-can-set-todo-state): New variable.
@@ -11890,7 +11890,7 @@
11890 (org-set-regexps-and-options): Use `org-remove-keyword-keys'. 11890 (org-set-regexps-and-options): Use `org-remove-keyword-keys'.
11891 (org-remove-keyword-keys): New function. 11891 (org-remove-keyword-keys): New function.
11892 11892
118932007-08-30 Jari Aalto <jari.aalto@cante.net> (tiny change) 118932007-08-30 Jari Aalto <jari.aalto@cante.net>
11894 11894
11895 * progmodes/grep.el (grep-find-ignored-directories): 11895 * progmodes/grep.el (grep-find-ignored-directories):
11896 Add monotone _MTN bookkeeping directory in workspaces. 11896 Add monotone _MTN bookkeeping directory in workspaces.
@@ -16414,7 +16414,7 @@
164142007-05-16 Stefan Monnier <monnier@iro.umontreal.ca> 164142007-05-16 Stefan Monnier <monnier@iro.umontreal.ca>
16415 16415
16416 * files.el (magic-mode-alist, magic-fallback-mode-alist): 16416 * files.el (magic-mode-alist, magic-fallback-mode-alist):
16417 Move the *ml, Postscript, and XmCD entries to the fallback part. 16417 Move the *ml, PostScript, and XmCD entries to the fallback part.
16418 16418
16419 * files.el (magic-fallback-mode-alist): 16419 * files.el (magic-fallback-mode-alist):
16420 Rename from file-start-mode-alist. 16420 Rename from file-start-mode-alist.
diff --git a/lisp/ChangeLog.14 b/lisp/ChangeLog.14
index c30f0e749ce..cd91dfad28c 100644
--- a/lisp/ChangeLog.14
+++ b/lisp/ChangeLog.14
@@ -2885,11 +2885,11 @@
28852009-01-25 Craig Markwardt <cbmarkwardt@gmail.com> 28852009-01-25 Craig Markwardt <cbmarkwardt@gmail.com>
2886 2886
2887 * calendar/icalendar.el (icalendar-uid-format): New defcustom 2887 * calendar/icalendar.el (icalendar-uid-format): New defcustom
2888 variable to allow the user to choose icalendar UID format. 2888 variable to allow the user to choose iCalendar UID format.
2889 (icalendar--diarytime-to-isotime): Bug fix, now times in the range 2889 (icalendar--diarytime-to-isotime): Bug fix, now times in the range
2890 12:00am-12:59am are correctly converted to 0000-0059, instead of 12pm. 2890 12:00am-12:59am are correctly converted to 0000-0059, instead of 12pm.
2891 (icalendar-export-region, icalendar--create-uid): Use custom 2891 (icalendar-export-region, icalendar--create-uid): Use custom
2892 function to compute icalendar UID for each entry. 2892 function to compute iCalendar UID for each entry.
2893 (icalendar--parse-summary-and-rest): Bug fix for parsing of lines 2893 (icalendar--parse-summary-and-rest): Bug fix for parsing of lines
2894 with description, location, etc. fields (need to keep active count 2894 with description, location, etc. fields (need to keep active count
2895 of fields encountered). Another bug fix to the regex that matches 2895 of fields encountered). Another bug fix to the regex that matches
@@ -6724,7 +6724,7 @@
6724 (rx-check-any): Return result as a list. Don't convert chars to 6724 (rx-check-any): Return result as a list. Don't convert chars to
6725 strings. Don't prepend "\\" to "^". Don't search for close bracket. 6725 strings. Don't prepend "\\" to "^". Don't search for close bracket.
6726 Check char category string. Call rx-form instead of rx-to-string. 6726 Check char category string. Call rx-form instead of rx-to-string.
6727 (rx-any): Rebuid to complete the function. 6727 (rx-any): Rebuild to complete the function.
6728 (rx-check-not): Fix char category regexp pattern string. 6728 (rx-check-not): Fix char category regexp pattern string.
6729 Call rx-form instead of rx-to-string. 6729 Call rx-form instead of rx-to-string.
6730 (rx-not): Call rx-form instead of rx-to-string. Convert "[^]" to 6730 (rx-not): Call rx-form instead of rx-to-string. Convert "[^]" to
@@ -7913,7 +7913,7 @@
7913 ignored while matching, replace the entire filename with completion. 7913 ignored while matching, replace the entire filename with completion.
7914 7914
7915 * textmodes/flyspell.el (flyspell-check-pre-word-p): Make sure 7915 * textmodes/flyspell.el (flyspell-check-pre-word-p): Make sure
7916 flyspell-pre-point is valid to avoid signalling an error in 7916 flyspell-pre-point is valid to avoid signaling an error in
7917 post-command-hook. 7917 post-command-hook.
7918 7918
79192008-08-26 Johan Bockgård <bojohan@gnu.org> 79192008-08-26 Johan Bockgård <bojohan@gnu.org>
@@ -17799,7 +17799,7 @@
17799 (org-local-logging): New function. 17799 (org-local-logging): New function.
17800 (org-columns-open-link): Fix bug with opening link in column view. 17800 (org-columns-open-link): Fix bug with opening link in column view.
17801 (org-local-logging): New function. 17801 (org-local-logging): New function.
17802 (org-todo): Make sure that LOGGING properties are honoured. 17802 (org-todo): Make sure that LOGGING properties are honored.
17803 (org-todo-keywords): Improve docstring. 17803 (org-todo-keywords): Improve docstring.
17804 (org-startup-options): Cleanup startup options. 17804 (org-startup-options): Cleanup startup options.
17805 (org-set-regexps-and-options): Process the "!" markers. 17805 (org-set-regexps-and-options): Process the "!" markers.
@@ -20567,4 +20567,3 @@ See ChangeLog.13 for earlier changes.
20567 20567
20568 You should have received a copy of the GNU General Public License 20568 You should have received a copy of the GNU General Public License
20569 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. 20569 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
20570
diff --git a/lisp/ChangeLog.15 b/lisp/ChangeLog.15
index 9cb24baeb1f..ddd8ad7e7ff 100644
--- a/lisp/ChangeLog.15
+++ b/lisp/ChangeLog.15
@@ -2252,7 +2252,7 @@
2252 Use define-derived-mode. 2252 Use define-derived-mode.
2253 * textmodes/reftex-index.el (reftex-index-phrases-mode-map) 2253 * textmodes/reftex-index.el (reftex-index-phrases-mode-map)
2254 (reftex-index-mode-map): Rename from reftex-index(-phrases)-map. 2254 (reftex-index-mode-map): Rename from reftex-index(-phrases)-map.
2255 Move init into delcaration. 2255 Move init into declaration.
2256 (reftex-index-mode, reftex-index-phrases-mode): 2256 (reftex-index-mode, reftex-index-phrases-mode):
2257 Use define-derived-mode. 2257 Use define-derived-mode.
2258 * speedbar.el (speedbar-mode-syntax-table): Renaqme from 2258 * speedbar.el (speedbar-mode-syntax-table): Renaqme from
@@ -3058,7 +3058,7 @@
3058 * net/tramp-sh.el (tramp-sh-handle-start-file-process): 3058 * net/tramp-sh.el (tramp-sh-handle-start-file-process):
3059 Protect buffer-modified value. (Bug#7557) 3059 Protect buffer-modified value. (Bug#7557)
3060 3060
30612010-12-13 Jan Moringen <jmoringe@techfak.uni-bielefeld.de> 30612010-12-13 Jan Moringen <jmoringe@techfak.uni-bielefeld.de>
3062 3062
3063 * log-edit.el (log-edit-changelog-entries): 3063 * log-edit.el (log-edit-changelog-entries):
3064 Regexp quote filename. (Bug#7505) 3064 Regexp quote filename. (Bug#7505)
@@ -5815,7 +5815,7 @@
5815 querying the password for. 5815 querying the password for.
5816 5816
5817 * ibuffer.el (ibuffer-visit-buffer): To mimick list-buffers 5817 * ibuffer.el (ibuffer-visit-buffer): To mimick list-buffers
5818 behaviour, don't bury the ibuffer buffer when visiting other buffers. 5818 behavior, don't bury the ibuffer buffer when visiting other buffers.
5819 5819
58202010-10-08 Chong Yidong <cyd@stupidchicken.com> 58202010-10-08 Chong Yidong <cyd@stupidchicken.com>
5821 5821
@@ -11215,7 +11215,7 @@
11215 * bindings.el (complete-symbol): Move into minibuffer.el. 11215 * bindings.el (complete-symbol): Move into minibuffer.el.
11216 11216
11217 * minibuffer.el (complete-tag): Move from etags.el. If tags 11217 * minibuffer.el (complete-tag): Move from etags.el. If tags
11218 completion cannot be performed, return nil instead of signalling 11218 completion cannot be performed, return nil instead of signaling
11219 an error. 11219 an error.
11220 (completion-at-point): Make it an alias for complete-symbol. 11220 (completion-at-point): Make it an alias for complete-symbol.
11221 (complete-symbol): Move from bindings.el, and replace with the 11221 (complete-symbol): Move from bindings.el, and replace with the
@@ -12221,7 +12221,7 @@
12221 12221
122222010-03-27 Nick Roberts <nickrob@snap.net.nz> 122222010-03-27 Nick Roberts <nickrob@snap.net.nz>
12223 12223
12224 Restore GDB/MI fuctionality removed by 2009-12-29T07:15:34Z!nickrob@snap.net.nz. 12224 Restore GDB/MI functionality removed by 2009-12-29T07:15:34Z!nickrob@snap.net.nz.
12225 * progmodes/gdb-mi.el: Restore. 12225 * progmodes/gdb-mi.el: Restore.
12226 * progmodes/gdb-ui.el: Remove. 12226 * progmodes/gdb-ui.el: Remove.
12227 * progmodes/gud.el: Re-accommodate for gdb-mi.el. 12227 * progmodes/gud.el: Re-accommodate for gdb-mi.el.
@@ -12985,7 +12985,7 @@
12985 file has no read permissions for the owner, there might be 12985 file has no read permissions for the owner, there might be
12986 problems otherwise. Reported by Ole Laursen <olau@iola.dk>. 12986 problems otherwise. Reported by Ole Laursen <olau@iola.dk>.
12987 12987
1298822010-02-18 Glenn Morris <rgm@gnu.org> 129882010-02-18 Glenn Morris <rgm@gnu.org>
12989 12989
12990 * emacs-lisp/authors.el (authors-renamed-files-alist): 12990 * emacs-lisp/authors.el (authors-renamed-files-alist):
12991 Add entries for INSTALL.CVS. 12991 Add entries for INSTALL.CVS.
@@ -13311,7 +13311,7 @@
13311 13311
133122010-01-29 Chong Yidong <cyd@stupidchicken.com> 133122010-01-29 Chong Yidong <cyd@stupidchicken.com>
13313 13313
13314 * dirtrack.el (dirtrack): Warn instead of signalling error if the 13314 * dirtrack.el (dirtrack): Warn instead of signaling error if the
13315 regexp is incorrect (Bug#5476). 13315 regexp is incorrect (Bug#5476).
13316 13316
133172010-01-29 Michael Albinus <michael.albinus@gmx.de> 133172010-01-29 Michael Albinus <michael.albinus@gmx.de>
@@ -13597,7 +13597,7 @@
13597 * textmodes/artist.el (artist-compute-popup-menu-table): 13597 * textmodes/artist.el (artist-compute-popup-menu-table):
13598 Remove duplicated words in doc-strings. 13598 Remove duplicated words in doc-strings.
13599 13599
136002010-01-15 David Abrahams <dave@boostpro.com> (tiny change) 136002010-01-15 David Abrahams <dave@boostpro.com> (tiny change)
13601 13601
13602 * net/mairix.el (mairix-widget-send-query): Send -1 instead of nil 13602 * net/mairix.el (mairix-widget-send-query): Send -1 instead of nil
13603 to mairix-search to suppress threading (Bug#5342). 13603 to mairix-search to suppress threading (Bug#5342).
diff --git a/lisp/ChangeLog.5 b/lisp/ChangeLog.5
index 1edf6d692a0..2d61f464a29 100644
--- a/lisp/ChangeLog.5
+++ b/lisp/ChangeLog.5
@@ -196,7 +196,7 @@
196 (ispell-required-version): Documentation changes. 196 (ispell-required-version): Documentation changes.
197 (ispell-skip-sgml): Documentation changes. 197 (ispell-skip-sgml): Documentation changes.
198 (ispell-command-loop): `mode-line-format' now shows misspelled word. 198 (ispell-command-loop): `mode-line-format' now shows misspelled word.
199 (ispell-message-text-end): Can now process postscript version 1. 199 (ispell-message-text-end): Can now process PostScript version 1.
200 (ispell-message-start-skip): New variable for block skips, set up for 200 (ispell-message-start-skip): New variable for block skips, set up for
201 pgp and forward blocks. 201 pgp and forward blocks.
202 (ispell-message-end-skip): New variable for block skips, set up for 202 (ispell-message-end-skip): New variable for block skips, set up for
@@ -879,7 +879,7 @@
879 * ada-mode.el (initial comments): Copyright 1995; don't speak 879 * ada-mode.el (initial comments): Copyright 1995; don't speak
880 about setup; correct history for a file that actually IS in 880 about setup; correct history for a file that actually IS in
881 Emacs 19.29; update list of known bugs. 881 Emacs 19.29; update list of known bugs.
882 (all functions): Inititialize all local variables explicitely to 'nil'. 882 (all functions): Initialize all local variables explicitly to 'nil'.
883 (ada-font-lock-keywords): Initialized according to new user option 883 (ada-font-lock-keywords): Initialized according to new user option
884 `font-lock-maximum-decoration'. 884 `font-lock-maximum-decoration'.
885 885
@@ -5507,7 +5507,7 @@
5507 5507
55081994-10-26 Michael Ernst <mernst@research.microsoft.com> 55081994-10-26 Michael Ernst <mernst@research.microsoft.com>
5509 5509
5510 * ispell.el (ispell-message-text-end): Match Postscript 3 like 2. 5510 * ispell.el (ispell-message-text-end): Match PostScript 3 like 2.
5511 5511
55121994-10-26 Ed Reingold <reingold@albert.gnu.ai.mit.edu> 55121994-10-26 Ed Reingold <reingold@albert.gnu.ai.mit.edu>
5513 5513
diff --git a/lisp/ChangeLog.7 b/lisp/ChangeLog.7
index 7ef7fe9dffc..cb606cd0847 100644
--- a/lisp/ChangeLog.7
+++ b/lisp/ChangeLog.7
@@ -1948,7 +1948,7 @@
1948 Add support for loading the files that contain :version when doing 1948 Add support for loading the files that contain :version when doing
1949 `customize-changed-options' so it can know which variables have 1949 `customize-changed-options' so it can know which variables have
1950 changed even in files that were not loaded at the time it was called. 1950 changed even in files that were not loaded at the time it was called.
1951 * cus-edit.el (customize-changed-options): Remeber all the 1951 * cus-edit.el (customize-changed-options): Remember all the
1952 versions and load the corresponding files before we show the 1952 versions and load the corresponding files before we show the
1953 customization buffer. Change the sorting to show the groups first 1953 customization buffer. Change the sorting to show the groups first
1954 in the customization buffer. 1954 in the customization buffer.
@@ -4923,10 +4923,10 @@
4923 (fortran-blink-matching-if, fortran-blink-matching-do) 4923 (fortran-blink-matching-if, fortran-blink-matching-do)
4924 (fortran-indent-new-line): Bind case-fold-search. 4924 (fortran-indent-new-line): Bind case-fold-search.
4925 (fortran-end-do, fortran-beginning-do, fortran-end-if) 4925 (fortran-end-do, fortran-beginning-do, fortran-end-if)
4926 (fortran-beginning-if): Bind case-fold-search. Allow labelled blocks. 4926 (fortran-beginning-if): Bind case-fold-search. Allow labeled blocks.
4927 Use fortran-end-prog-re. 4927 Use fortran-end-prog-re.
4928 (fortran-if-start-re): New variable. 4928 (fortran-if-start-re): New variable.
4929 (fortran-calculate-indent): Allow labelled blocks. Simplify the conds. 4929 (fortran-calculate-indent): Allow labeled blocks. Simplify the conds.
4930 Make select case indentation work. 4930 Make select case indentation work.
4931 (fortran-is-in-string-p): Ignore Emacs 18 bug kluge. 4931 (fortran-is-in-string-p): Ignore Emacs 18 bug kluge.
4932 (fortran-fill): Allow double quotes in check for string. 4932 (fortran-fill): Allow double quotes in check for string.
@@ -6526,7 +6526,7 @@
6526 6526
6527 * bibtex.el (bibtex-autokey-get-titles): Non capitalized title words 6527 * bibtex.el (bibtex-autokey-get-titles): Non capitalized title words
6528 are used for key generation as well. 6528 are used for key generation as well.
6529 (bibtex-member-of-regexp): Case is honoured for matches now. 6529 (bibtex-member-of-regexp): Case is honored for matches now.
6530 (bibtex-autokey-titleword-ignore): Added entries provide compatibility 6530 (bibtex-autokey-titleword-ignore): Added entries provide compatibility
6531 to former behavior. 6531 to former behavior.
6532 6532
@@ -6815,9 +6815,9 @@
6815 `reftex-no-include-regexps'. 6815 `reftex-no-include-regexps'.
6816 (reftex-no-include-regexps): New option. 6816 (reftex-no-include-regexps): New option.
6817 (reftex-do-parse): Initialize appendix flag. 6817 (reftex-do-parse): Initialize appendix flag.
6818 (reftex-parse-from-file): Interprete appendix. 6818 (reftex-parse-from-file): Interpret appendix.
6819 (reftex-section-info): Use changed version of reftex-section-number. 6819 (reftex-section-info): Use changed version of reftex-section-number.
6820 (reftex-where-am-I): Interprete appendix match. 6820 (reftex-where-am-I): Interpret appendix match.
6821 (reftex-init-section-numbers): New arg: appendix. 6821 (reftex-init-section-numbers): New arg: appendix.
6822 (reftex-section-number): Treat appendix enumeration. 6822 (reftex-section-number): Treat appendix enumeration.
6823 (reftex-toc-external): Improved message. 6823 (reftex-toc-external): Improved message.
@@ -11240,7 +11240,7 @@
11240 (reftex-cite-comment-format): New variable. 11240 (reftex-cite-comment-format): New variable.
11241 (reftex-cite-punctuation): New variable. 11241 (reftex-cite-punctuation): New variable.
11242 (reftex-make-master-buffer): Changed name of master buffer, 11242 (reftex-make-master-buffer): Changed name of master buffer,
11243 removed interactive. Runs a hook on the buffer. Interprete 11243 removed interactive. Runs a hook on the buffer. Interpret
11244 TEXINPUTS environment variable. Allow naked argument for \input. 11244 TEXINPUTS environment variable. Allow naked argument for \input.
11245 Master buffer is now in fundamental mode. 11245 Master buffer is now in fundamental mode.
11246 (reftex-access-scan-info): Name of master buffer changed. 11246 (reftex-access-scan-info): Name of master buffer changed.
@@ -11264,9 +11264,9 @@
11264 (reftex-allow-for-ctrl-m): New function. 11264 (reftex-allow-for-ctrl-m): New function.
11265 (reftex-label-info-update): Allow more general label commands. 11265 (reftex-label-info-update): Allow more general label commands.
11266 (reftex-label-info): New parameter derive. 11266 (reftex-label-info): New parameter derive.
11267 (reftex-short-context): Interprete integer parse as nth arg of macro. 11267 (reftex-short-context): Interpret integer parse as nth arg of macro.
11268 (reftex-nth-parens-substring): New function. 11268 (reftex-nth-parens-substring): New function.
11269 (reftex-select-item): Interprete the new 'cnt text property. 11269 (reftex-select-item): Interpret the new 'cnt text property.
11270 (reftex-pop-to-label): Allow more general label commands. 11270 (reftex-pop-to-label): Allow more general label commands.
11271 (reftex-nicify-text): Allow more general label commands. 11271 (reftex-nicify-text): Allow more general label commands.
11272 (reftex-toc): Remember previous window configuration. Use text 11272 (reftex-toc): Remember previous window configuration. Use text
@@ -21766,9 +21766,9 @@
21766 21766
21767 * f90.el (f90-no-block-limit): Fixed bug for indentation of 21767 * f90.el (f90-no-block-limit): Fixed bug for indentation of
21768 elsewhere and elseif. 21768 elsewhere and elseif.
21769 (f90-looking-at-where-or-forall): Now allows for labelled forall 21769 (f90-looking-at-where-or-forall): Now allows for labeled forall
21770 and where statements. 21770 and where statements.
21771 (f90-font-lock-keywords-2): New highlighting for labelled where 21771 (f90-font-lock-keywords-2): New highlighting for labeled where
21772 and forall. Fixed small bug with else highlighting. 21772 and forall. Fixed small bug with else highlighting.
21773 (f90-fill-region): Moved indentation to f90-break-line. 21773 (f90-fill-region): Moved indentation to f90-break-line.
21774 (f90-break-line): Will now always indent the second line. 21774 (f90-break-line): Will now always indent the second line.
@@ -22110,7 +22110,7 @@
221101996-09-27 Jacques Duthen <duthen@cegelec-red.fr> 221101996-09-27 Jacques Duthen <duthen@cegelec-red.fr>
22111 22111
22112 * ps-print.el 22112 * ps-print.el
22113 (ps-print-prologue-1): Fix bug in postscript comment lines. 22113 (ps-print-prologue-1): Fix bug in PostScript comment lines.
22114 (ps-nb-pages): Call ps-setup _before_ switching to the other 22114 (ps-nb-pages): Call ps-setup _before_ switching to the other
22115 buffer, because of buffer variables. 22115 buffer, because of buffer variables.
22116 22116
@@ -22123,7 +22123,7 @@
22123 (ps-page-height-i, ps-page-width-i): Variables deleted. 22123 (ps-page-height-i, ps-page-width-i): Variables deleted.
22124 (ps-print-prologue): Variable deleted. 22124 (ps-print-prologue): Variable deleted.
22125 (ps-print-prologue-1, ps-print-prologue-2): New variables. 22125 (ps-print-prologue-1, ps-print-prologue-2): New variables.
22126 Major rewrite of the postscript code to handle landscape mode, 22126 Major rewrite of the PostScript code to handle landscape mode,
22127 multiple columns and new font management. 22127 multiple columns and new font management.
22128 (ps-landscape-mode, ps-number-of-columns, ps-inter-column): New 22128 (ps-landscape-mode, ps-number-of-columns, ps-inter-column): New
22129 variables. 22129 variables.
@@ -22136,7 +22136,7 @@
22136 (ps-header-font, ps-landscape-page-height): New internal variables. 22136 (ps-header-font, ps-landscape-page-height): New internal variables.
22137 (ps-top-margin): Change its semantics. It is now really the top 22137 (ps-top-margin): Change its semantics. It is now really the top
22138 margin, not anymore twice the top margin. 22138 margin, not anymore twice the top margin.
22139 (/ReportAllFontInfo): New postscript function to get all the font 22139 (/ReportAllFontInfo): New PostScript function to get all the font
22140 families of the printer. 22140 families of the printer.
22141 (ps-setup): New function. 22141 (ps-setup): New function.
22142 (ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New 22142 (ps-line-lengths, ps-nb-pages-buffer, ps-nb-pages-region): New
@@ -23123,4 +23123,3 @@ See ChangeLog.6 for earlier changes.
23123 23123
23124 You should have received a copy of the GNU General Public License 23124 You should have received a copy of the GNU General Public License
23125 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. 23125 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
23126
diff --git a/lisp/ChangeLog.8 b/lisp/ChangeLog.8
index ada6d98ce3d..6d3d41a5a5c 100644
--- a/lisp/ChangeLog.8
+++ b/lisp/ChangeLog.8
@@ -434,7 +434,7 @@
434 for Emacs 20.4 and the earlier versions. 434 for Emacs 20.4 and the earlier versions.
435 (ps-mule-init-external-library): Just require a feature for 435 (ps-mule-init-external-library): Just require a feature for
436 external libraries. 436 external libraries.
437 (ps-mule-prologue): Postscript code modified for new composition. 437 (ps-mule-prologue): PostScript code modified for new composition.
438 (ps-mule-find-wrappoint): New arg COMPOSITION. 438 (ps-mule-find-wrappoint): New arg COMPOSITION.
439 (ps-mule-plot-string): Delete code for composite characters. 439 (ps-mule-plot-string): Delete code for composite characters.
440 (ps-mule-plot-composition): New function. 440 (ps-mule-plot-composition): New function.
@@ -447,7 +447,7 @@
447 (ps-mule-plot-rule-cmpchar, ps-mule-plot-cmpchar, 447 (ps-mule-plot-rule-cmpchar, ps-mule-plot-cmpchar,
448 ps-mule-prepare-cmpchar-font): Deleted. 448 ps-mule-prepare-cmpchar-font): Deleted.
449 (ps-mule-string-encoding): New arg NO-SETFONT. 449 (ps-mule-string-encoding): New arg NO-SETFONT.
450 (ps-mule-bitmap-prologue): In Postscript code of BuildGlyphCommon, 450 (ps-mule-bitmap-prologue): In PostScript code of BuildGlyphCommon,
451 check Composing, not Cmpchar. 451 check Composing, not Cmpchar.
452 (ps-mule-initialize): Set ps-mule-composition-prologue-generated 452 (ps-mule-initialize): Set ps-mule-composition-prologue-generated
453 to nil. 453 to nil.
@@ -3475,8 +3475,8 @@
3475 (reftex-process-string): Preserve default directory. 3475 (reftex-process-string): Preserve default directory.
3476 (reftex-label-alist-builtin): Changed prefixes of endnote and footnote. 3476 (reftex-label-alist-builtin): Changed prefixes of endnote and footnote.
3477 Also the magic words. 3477 Also the magic words.
3478 (reftex-reference): Interprete new option `reftex-fref-is-default'. 3478 (reftex-reference): Interpret new option `reftex-fref-is-default'.
3479 (reftex-replace-prefix-escapes): Interprete new `%S' format. 3479 (reftex-replace-prefix-escapes): Interpret new `%S' format.
3480 (reftex-toc-mouse-view-line): Command removed (had no binding). 3480 (reftex-toc-mouse-view-line): Command removed (had no binding).
3481 (reftex-everything-regexp): New function. 3481 (reftex-everything-regexp): New function.
3482 (reftex-nearest-match): Made better. 3482 (reftex-nearest-match): Made better.
@@ -8317,7 +8317,7 @@
83171998-11-11 Sam Steingold <sds@goems.com> 83171998-11-11 Sam Steingold <sds@goems.com>
8318 8318
8319 * inf-lisp.el (switch-to-lisp): If no inferior lisp present, call 8319 * inf-lisp.el (switch-to-lisp): If no inferior lisp present, call
8320 `run-lisp' instead of signalling an error. 8320 `run-lisp' instead of signaling an error.
8321 8321
83221998-11-11 Karl Heuer <kwzh@gnu.org> 83221998-11-11 Karl Heuer <kwzh@gnu.org>
8323 8323
@@ -9750,11 +9750,11 @@
9750 * international/mule.el (charset-description): Doc fix. 9750 * international/mule.el (charset-description): Doc fix.
9751 9751
9752 * language/chinese.el, language/cyrillic.el, language/czech.el, 9752 * language/chinese.el, language/cyrillic.el, language/czech.el,
9753 language/devanagari.el, language/ethiopic.el, 9753 * language/devanagari.el, language/ethiopic.el,
9754 language/european.el, language/hebrew.el, language/indian.el, 9754 * language/european.el, language/hebrew.el, language/indian.el,
9755 language/japanese.el, language/korean.el, language/lao.el, 9755 * language/japanese.el, language/korean.el, language/lao.el,
9756 language/slovak.el, language/thai.el, language/tibetan.el, 9756 * language/slovak.el, language/thai.el, language/tibetan.el,
9757 language/vietnamese.el: 9757 * language/vietnamese.el:
9758 Add coding: local variable, to avoid bootstrapping problem 9758 Add coding: local variable, to avoid bootstrapping problem
9759 if you need to recompile all the Lisp files using interpreted code. 9759 if you need to recompile all the Lisp files using interpreted code.
9760 9760
@@ -10009,4 +10009,3 @@ See ChangeLog.7 for earlier changes.
10009 10009
10010 You should have received a copy of the GNU General Public License 10010 You should have received a copy of the GNU General Public License
10011 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. 10011 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
10012
diff --git a/lisp/ChangeLog.9 b/lisp/ChangeLog.9
index 14214ccc3d3..4f867c24561 100644
--- a/lisp/ChangeLog.9
+++ b/lisp/ChangeLog.9
@@ -135,7 +135,7 @@
135 135
136 * net/ange-ftp.el (ange-ftp-raw-send-cmd, ange-ftp-wait-not-busy): 136 * net/ange-ftp.el (ange-ftp-raw-send-cmd, ange-ftp-wait-not-busy):
137 Use with-current-buffer. 137 Use with-current-buffer.
138 (ange-ftp-cd): New arg `noerror' to prevent signalling an error. 138 (ange-ftp-cd): New arg `noerror' to prevent signaling an error.
139 (ange-ftp-send-cmd): If a `cd' is used (because of a space in the 139 (ange-ftp-send-cmd): If a `cd' is used (because of a space in the
140 filename), catch any error that occurs in `ange-ftp-cd'. 140 filename), catch any error that occurs in `ange-ftp-cd'.
141 If an error happened, don't bother sending `cmd' at all. 141 If an error happened, don't bother sending `cmd' at all.
@@ -1754,7 +1754,7 @@
1754 number, column number and buffer-percent part of the mode-line. 1754 number, column number and buffer-percent part of the mode-line.
1755 1755
1756 * image.el (image-type-regexps): Allow whitespace at the start 1756 * image.el (image-type-regexps): Allow whitespace at the start
1757 of the image data for XPM, XBM and Postscript, which are 1757 of the image data for XPM, XBM and PostScript, which are
1758 text files. 1758 text files.
1759 (image-jpeg-p): Correct calculation of next field offset. 1759 (image-jpeg-p): Correct calculation of next field offset.
1760 1760
@@ -2030,7 +2030,7 @@
2030 Do not bind locally the uniquify-possibly-resolvable flag. Use the 2030 Do not bind locally the uniquify-possibly-resolvable flag. Use the
2031 cached proposed name is possible. 2031 cached proposed name is possible.
2032 (uniquify-get-proposed-name): Arguments changed, callers changed. 2032 (uniquify-get-proposed-name): Arguments changed, callers changed.
2033 (uniquify-rationalize-conflicting-sublist): Explicitely reset the 2033 (uniquify-rationalize-conflicting-sublist): Explicitly reset the
2034 uniquify-possibly-resolvable flag, which is no more bound locally. 2034 uniquify-possibly-resolvable flag, which is no more bound locally.
2035 (uniquify-rename-buffer): Do not set the old unrationalised-buffer 2035 (uniquify-rename-buffer): Do not set the old unrationalised-buffer
2036 flag, which does not exist any more. 2036 flag, which does not exist any more.
@@ -2628,7 +2628,7 @@
2628 2628
26292001-07-06 Vinicius Jose Latorre <vinicius@cpqd.com.br> 26292001-07-06 Vinicius Jose Latorre <vinicius@cpqd.com.br>
2630 2630
2631 * ps-print.el: Use locale dependant date to print date in header. 2631 * ps-print.el: Use locale dependent date to print date in header.
2632 Doc fix. 2632 Doc fix.
2633 (ps-print-version): New version number (6.5.3). 2633 (ps-print-version): New version number (6.5.3).
2634 (ps-right-header, ps-right-footer): Initialization and doc fix. 2634 (ps-right-header, ps-right-footer): Initialization and doc fix.
@@ -5955,7 +5955,7 @@
59552001-01-29 Gerd Moellmann <gerd@gnu.org> 59552001-01-29 Gerd Moellmann <gerd@gnu.org>
5956 5956
5957 * menu-bar.el (menu-bar-files-menu): Add menu items for 5957 * menu-bar.el (menu-bar-files-menu): Add menu items for
5958 Postscript printing in black and white. 5958 PostScript printing in black and white.
5959 5959
5960 * mail/rmail.el (rmail-ignored-headers): Add X-Sign, X-BeenThere, 5960 * mail/rmail.el (rmail-ignored-headers): Add X-Sign, X-BeenThere,
5961 X-Mailman-Version, Precedence, List-Help, List-Post, 5961 X-Mailman-Version, Precedence, List-Help, List-Post,
@@ -10569,7 +10569,7 @@
105692000-10-10 Dave Love <fx@gnu.org> 105692000-10-10 Dave Love <fx@gnu.org>
10570 10570
10571 * toolbar/tool-bar.el (tool-bar-add-item) 10571 * toolbar/tool-bar.el (tool-bar-add-item)
10572 (tool-bar-add-item-from-menu): Don't favour XPM icons on mono display. 10572 (tool-bar-add-item-from-menu): Don't favor XPM icons on mono display.
10573 10573
10574 * toolbar/attach.pbm, toolbar/cancel.pbm, toolbar/close.pbm: 10574 * toolbar/attach.pbm, toolbar/cancel.pbm, toolbar/close.pbm:
10575 * toolbar/copy.pbm, toolbar/cut.pbm, toolbar/exit.pbm: 10575 * toolbar/copy.pbm, toolbar/cut.pbm, toolbar/exit.pbm:
@@ -12638,7 +12638,7 @@
12638 (vc-rcs-diff): Only pass `2' to vc-do-command if necessary and 12638 (vc-rcs-diff): Only pass `2' to vc-do-command if necessary and
12639 just do a recursive call if we need to retry. 12639 just do a recursive call if we need to retry.
12640 (vc-rcs-checkout): Handle the case where rcs is missing by making 12640 (vc-rcs-checkout): Handle the case where rcs is missing by making
12641 the buffer read-write if requested and re-signalling the error. 12641 the buffer read-write if requested and re-signaling the error.
12642 12642
12643 * vc-cvs.el (vc-cvs-diff): Remove unused and unsupported argument CMP. 12643 * vc-cvs.el (vc-cvs-diff): Remove unused and unsupported argument CMP.
12644 12644
@@ -14191,7 +14191,7 @@
14191 14191
14192 * international/ja-dic-cnv.el: Renamed from skkdic-cnv.el. 14192 * international/ja-dic-cnv.el: Renamed from skkdic-cnv.el.
14193 Provide ja-dic-cnv instead of skkdic-cnv. 14193 Provide ja-dic-cnv instead of skkdic-cnv.
14194 (ja-dic-filename): Renamed from skkdic-filename. Referers changed. 14194 (ja-dic-filename): Renamed from skkdic-filename. Referrers changed.
14195 (iso-2022-7bit-short): Add safe-charsets property. 14195 (iso-2022-7bit-short): Add safe-charsets property.
14196 (skkdic-convert-postfix): Search Japanese chou-on character in 14196 (skkdic-convert-postfix): Search Japanese chou-on character in
14197 addition to Hiragana character. 14197 addition to Hiragana character.
@@ -17396,7 +17396,7 @@
17396 17396
173972000-05-25 Kenichi Handa <handa@etl.go.jp> 173972000-05-25 Kenichi Handa <handa@etl.go.jp>
17398 17398
17399 * international/mule-conf.el: Specify CHARSET-ID explicitely for 17399 * international/mule-conf.el: Specify CHARSET-ID explicitly for
17400 private charsets. 17400 private charsets.
17401 (mule-unicode-0100-24ff, japanese-jisx0213-1, 17401 (mule-unicode-0100-24ff, japanese-jisx0213-1,
17402 japanese-jisx0213-2): New charsets. 17402 japanese-jisx0213-2): New charsets.
@@ -20709,4 +20709,3 @@ See ChangeLog.8 for earlier changes.
20709 20709
20710 You should have received a copy of the GNU General Public License 20710 You should have received a copy of the GNU General Public License
20711 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. 20711 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
20712
diff --git a/lisp/allout-widgets.el b/lisp/allout-widgets.el
index 162da1f4815..3c2871594fc 100644
--- a/lisp/allout-widgets.el
+++ b/lisp/allout-widgets.el
@@ -1,14 +1,13 @@
1;; allout-widgets.el --- Visually highlight allout outline structure. 1;; allout-widgets.el --- Visually highlight allout outline structure.
2 2
3;; Copyright (C) 2005, 2006, 2007, 2008, 2009, 2010, 2011 Ken Manheimer 3;; Copyright (C) 2005-2011 Free Software Foundation, Inc.
4 4
5;; Author: Ken Manheimer <ken dot manheimer at gmail dot com> 5;; Author: Ken Manheimer <ken dot manheimer at gmail...>
6;; Maintainer: Ken Manheimer <ken dot manheimer at gmail dot com> 6;; Maintainer: Ken Manheimer <ken dot manheimer at gmail...>
7;; Version: 1.0 7;; Version: 1.0
8;; Created: Dec 2005 8;; Created: Dec 2005
9;; Version: 1.0
10;; Keywords: outlines 9;; Keywords: outlines
11;; Website: http://myriadicity.net/Sundry/EmacsAllout 10;; Website: http://myriadicity.net/software-and-systems/craft/emacs-allout
12 11
13;;; Commentary: 12;;; Commentary:
14 13
@@ -50,7 +49,7 @@
50;; systematically couple overlays, graphics, and other features with 49;; systematically couple overlays, graphics, and other features with
51;; allout-governed text. 50;; allout-governed text.
52 51
53;;;_: Code (structured with comments that delinieate an allout outline) 52;;;_: Code (structured with comments that delineate an allout outline)
54 53
55;;;_ : General Environment 54;;;_ : General Environment
56(require 'allout) 55(require 'allout)
@@ -811,7 +810,7 @@ Optional RECURSING is for internal use, to limit recursion."
811 (forward-char -1))))))) 810 (forward-char -1)))))))
812 811
813 (error 812 (error
814 ;; zero work list so we don't get stuck futily retrying. 813 ;; zero work list so we don't get stuck futilely retrying.
815 ;; error recording done by allout-widgets-hook-error-handler. 814 ;; error recording done by allout-widgets-hook-error-handler.
816 (setq allout-widgets-changes-record nil)))) 815 (setq allout-widgets-changes-record nil))))
817;;;_ , major change handlers: 816;;;_ , major change handlers:
@@ -1245,7 +1244,7 @@ Optional FROM-DEPTH is for internal use."
1245(defun allout-range-overlaps (from to ranges) 1244(defun allout-range-overlaps (from to ranges)
1246 "Return a pair indicating overlap of FROM and TO subtree range in RANGES. 1245 "Return a pair indicating overlap of FROM and TO subtree range in RANGES.
1247 1246
1248First element of result indicates whether candadate range FROM, TO 1247First element of result indicates whether candidate range FROM, TO
1249overlapped any of the existing ranges. 1248overlapped any of the existing ranges.
1250 1249
1251Second element of result is a new version of RANGES incorporating the 1250Second element of result is a new version of RANGES incorporating the
@@ -1465,7 +1464,7 @@ recursive operation."
1465 1464
1466 :from nil ; item beginning - marker 1465 :from nil ; item beginning - marker
1467 :to nil ; item end - marker 1466 :to nil ; item end - marker
1468 :span-overlay nil ; overlay by which actual postion is determined 1467 :span-overlay nil ; overlay by which actual position is determined
1469 1468
1470 ;; also serves as guide-end: 1469 ;; also serves as guide-end:
1471 :icon-start nil 1470 :icon-start nil
@@ -1632,7 +1631,7 @@ We return the item-widget corresponding to the item at point."
1632(defun allout-redecorate-item (item-widget) 1631(defun allout-redecorate-item (item-widget)
1633 "Resituate ITEM-WIDGET decorations, disregarding context. 1632 "Resituate ITEM-WIDGET decorations, disregarding context.
1634 1633
1635Use this to redecorate only the item, when you know that it's 1634Use this to redecorate only the item, when you know that its
1636situation with respect to siblings, parent, and offspring is 1635situation with respect to siblings, parent, and offspring is
1637unchanged from its last decoration. Use 1636unchanged from its last decoration. Use
1638`allout-decorate-item-and-context' instead to reassess and adjust 1637`allout-decorate-item-and-context' instead to reassess and adjust
diff --git a/lisp/allout.el b/lisp/allout.el
index 18cc3c80dc6..8cbdbee7303 100644
--- a/lisp/allout.el
+++ b/lisp/allout.el
@@ -2,12 +2,12 @@
2 2
3;; Copyright (C) 1992-1994, 2001-2011 Free Software Foundation, Inc. 3;; Copyright (C) 1992-1994, 2001-2011 Free Software Foundation, Inc.
4 4
5;; Author: Ken Manheimer <ken dot manheimer at gmail dot com> 5;; Author: Ken Manheimer <ken dot manheimer at gmail...>
6;; Maintainer: Ken Manheimer <ken dot manheimer at gmail dot com> 6;; Maintainer: Ken Manheimer <ken dot manheimer at gmail...>
7;; Created: Dec 1991 -- first release to usenet 7;; Created: Dec 1991 -- first release to usenet
8;; Version: 2.3 8;; Version: 2.3
9;; Keywords: outlines, wp, languages, PGP, GnuPG 9;; Keywords: outlines, wp, languages, PGP, GnuPG
10;; Website: http://myriadicity.net/Sundry/EmacsAllout 10;; Website: http://myriadicity.net/software-and-systems/craft/emacs-allout
11 11
12;; This file is part of GNU Emacs. 12;; This file is part of GNU Emacs.
13 13
@@ -1537,14 +1537,14 @@ Entries must be symbols that are bound to the desired values.
1537Each value can be a regexp or a list with a regexp followed by a 1537Each value can be a regexp or a list with a regexp followed by a
1538substitution string. If it's just a regexp, all its matches are removed 1538substitution string. If it's just a regexp, all its matches are removed
1539before the text is encrypted. If it's a regexp and a substitution, the 1539before the text is encrypted. If it's a regexp and a substitution, the
1540substition is used against the regexp matches, a la `replace-match'.") 1540substitution is used against the regexp matches, a la `replace-match'.")
1541(make-variable-buffer-local 'allout-encryption-text-removal-regexps) 1541(make-variable-buffer-local 'allout-encryption-text-removal-regexps)
1542;;;_ = allout-encryption-ciphertext-rejection-regexps 1542;;;_ = allout-encryption-ciphertext-rejection-regexps
1543(defvar allout-encryption-ciphertext-rejection-regexps nil 1543(defvar allout-encryption-ciphertext-rejection-regexps nil
1544 "Variable for regexps matching plaintext to remove before encryption. 1544 "Variable for regexps matching plaintext to remove before encryption.
1545 1545
1546This is used to detect strings in encryption results that would 1546This is used to detect strings in encryption results that would
1547register as allout mode structural elements, for exmple, as a 1547register as allout mode structural elements, for example, as a
1548topic prefix. 1548topic prefix.
1549 1549
1550Entries must be symbols that are bound to the desired regexp values. 1550Entries must be symbols that are bound to the desired regexp values.
@@ -2525,7 +2525,7 @@ Outermost is first."
2525(defun allout-mark-active-p () 2525(defun allout-mark-active-p ()
2526 "True if the mark is currently or always active." 2526 "True if the mark is currently or always active."
2527 ;; `(cond (boundp...))' (or `(if ...)') invokes special byte-compiler 2527 ;; `(cond (boundp...))' (or `(if ...)') invokes special byte-compiler
2528 ;; provisions, at least in fsf emacs to prevent warnings about lack of, 2528 ;; provisions, at least in GNU Emacs to prevent warnings about lack of,
2529 ;; eg, region-active-p. 2529 ;; eg, region-active-p.
2530 (cond ((boundp 'mark-active) 2530 (cond ((boundp 'mark-active)
2531 mark-active) 2531 mark-active)
@@ -3543,7 +3543,7 @@ PRIOR-BULLET.)
3543Fifth arg, NUMBER-CONTROL, matters only if `allout-numbered-bullet' 3543Fifth arg, NUMBER-CONTROL, matters only if `allout-numbered-bullet'
3544is non-nil *and* no specific INSTEAD was specified. Then 3544is non-nil *and* no specific INSTEAD was specified. Then
3545NUMBER-CONTROL non-nil forces prefix to either numbered or 3545NUMBER-CONTROL non-nil forces prefix to either numbered or
3546denumbered format, depending on the value of the sixth arg, INDEX. 3546unnumbered format, depending on the value of the sixth arg, INDEX.
3547 3547
3548\(Note that NUMBER-CONTROL does *not* apply to level 1 topics. Sorry...) 3548\(Note that NUMBER-CONTROL does *not* apply to level 1 topics. Sorry...)
3549 3549
@@ -3557,7 +3557,7 @@ number is used as the index for the numbered prefix (allowing, eg,
3557sequential renumbering to not require this function counting back the 3557sequential renumbering to not require this function counting back the
3558index for each successive sibling)." 3558index for each successive sibling)."
3559;;;_ . Code: 3559;;;_ . Code:
3560 ;; The options are ordered in likely frequence of use, most common 3560 ;; The options are ordered in likely frequency of use, most common
3561 ;; highest, least lowest. Ie, more likely to be doing prefix 3561 ;; highest, least lowest. Ie, more likely to be doing prefix
3562 ;; adjustments than soliciting, and yet more than numbering. 3562 ;; adjustments than soliciting, and yet more than numbering.
3563 ;; Current prefix is least dominant, but most likely to be commonly 3563 ;; Current prefix is least dominant, but most likely to be commonly
@@ -3807,7 +3807,7 @@ Nuances:
3807 ;;(if doing-beginning (goto-char doing-beginning)) 3807 ;;(if doing-beginning (goto-char doing-beginning))
3808 (if (not (bobp)) 3808 (if (not (bobp))
3809 ;; We insert a newline char rather than using open-line to 3809 ;; We insert a newline char rather than using open-line to
3810 ;; avoid rear-stickiness inheritence of read-only property. 3810 ;; avoid rear-stickiness inheritance of read-only property.
3811 (progn (if (and (not (> depth ref-depth)) 3811 (progn (if (and (not (> depth ref-depth))
3812 (not before)) 3812 (not before))
3813 (open-line 1) 3813 (open-line 1)
@@ -3822,7 +3822,7 @@ Nuances:
3822 (if (and (not (eobp)) 3822 (if (and (not (eobp))
3823 (or (not (bolp)) 3823 (or (not (bolp))
3824 (and (not (bobp)) 3824 (and (not (bobp))
3825 ;; bolp doesnt detect concealed 3825 ;; bolp doesn't detect concealed
3826 ;; trailing newlines, compensate: 3826 ;; trailing newlines, compensate:
3827 (save-excursion 3827 (save-excursion
3828 (forward-char -1) 3828 (forward-char -1)
@@ -5473,7 +5473,7 @@ header and body. The elements of that list are:
5473 "invalid format" format)))) 5473 "invalid format" format))))
5474 (list depth prefix strings)) 5474 (list depth prefix strings))
5475 result)) 5475 result))
5476 ;; Reasses format, if any: 5476 ;; Reassess format, if any:
5477 (if (and format (listp format)) 5477 (if (and format (listp format))
5478 (cond ((= new-depth depth) 5478 (cond ((= new-depth depth)
5479 (setq format (cons (1+ (car format)) 5479 (setq format (cons (1+ (car format))
diff --git a/lisp/ansi-color.el b/lisp/ansi-color.el
index ff7edf40dcb..4d6f02a40b7 100644
--- a/lisp/ansi-color.el
+++ b/lisp/ansi-color.el
@@ -68,7 +68,7 @@
68;; 68;;
69;; Markus Kuhn <Markus.Kuhn@cl.cam.ac.uk> for pointing me to ECMA-48. 69;; Markus Kuhn <Markus.Kuhn@cl.cam.ac.uk> for pointing me to ECMA-48.
70;; 70;;
71;; Stefan Monnier <foo@acm.com> explaing obscure font-lock stuff and 71;; Stefan Monnier <foo@acm.com> for explaining obscure font-lock stuff and for
72;; code suggestions. 72;; code suggestions.
73 73
74 74
diff --git a/lisp/apropos.el b/lisp/apropos.el
index d3d66f2a070..9a372f27991 100644
--- a/lisp/apropos.el
+++ b/lisp/apropos.el
@@ -66,9 +66,22 @@
66 66
67;; I see a degradation of maybe 10-20% only. 67;; I see a degradation of maybe 10-20% only.
68(defcustom apropos-do-all nil 68(defcustom apropos-do-all nil
69 "Whether the apropos commands should do more. 69 "Non nil means apropos commands will search more extensively.
70 70This may be slower. This option affects the following commands:
71Slows them down more or less. Set this non-nil if you have a fast machine." 71
72`apropos-variable' will search all variables, not just user variables.
73`apropos-command' will also search non-interactive functions.
74`apropos' will search all symbols, not just functions, variables, faces,
75and those with property lists.
76`apropos-value' will also search in property lists and functions.
77`apropos-documentation' will search all documentation strings, not just
78those in the etc/DOC documentation file.
79
80This option only controls the default behavior. Each of the above
81commands also has an optional argument to request a more extensive search.
82
83Additionally, this option makes the function `apropos-library'
84include key-binding information in its output."
72 :group 'apropos 85 :group 'apropos
73 :type 'boolean) 86 :type 'boolean)
74 87
@@ -582,7 +595,8 @@ Returns list of symbols and documentation found."
582(defun apropos-library (file) 595(defun apropos-library (file)
583 "List the variables and functions defined by library FILE. 596 "List the variables and functions defined by library FILE.
584FILE should be one of the libraries currently loaded and should 597FILE should be one of the libraries currently loaded and should
585thus be found in `load-history'." 598thus be found in `load-history'. If `apropos-do-all' is non-nil,
599the output includes key-bindings of commands."
586 (interactive 600 (interactive
587 (let* ((libs (delq nil (mapcar 'car load-history))) 601 (let* ((libs (delq nil (mapcar 'car load-history)))
588 (libs 602 (libs
@@ -693,7 +707,9 @@ search for matches for that word as a substring. If it is a list of words,
693search for matches for any two (or more) of those words. 707search for matches for any two (or more) of those words.
694 708
695With \\[universal-argument] prefix, or if `apropos-do-all' is non-nil, also looks 709With \\[universal-argument] prefix, or if `apropos-do-all' is non-nil, also looks
696at the function and at the names and values of properties. 710at function definitions (arguments, documentation and body) and at the
711names and values of properties.
712
697Returns list of symbols and values found." 713Returns list of symbols and values found."
698 (interactive (list (apropos-read-pattern "value") 714 (interactive (list (apropos-read-pattern "value")
699 current-prefix-arg)) 715 current-prefix-arg))
@@ -738,10 +754,14 @@ or a regexp (using some regexp special characters). If it is a word,
738search for matches for that word as a substring. If it is a list of words, 754search for matches for that word as a substring. If it is a list of words,
739search for matches for any two (or more) of those words. 755search for matches for any two (or more) of those words.
740 756
741With \\[universal-argument] prefix, or if `apropos-do-all' is non-nil, also use 757Note that by default this command only searches in the file specified by
742documentation that is not stored in the documentation file and show key 758`internal-doc-file-name'; i.e., the etc/DOC file. With \\[universal-argument] prefix,
743bindings. 759or if `apropos-do-all' is non-nil, it searches all currently defined
760documentation strings.
761
744Returns list of symbols and documentation found." 762Returns list of symbols and documentation found."
763 ;; The doc used to say that DO-ALL includes key-bindings info in the
764 ;; output, but I cannot see that that is true.
745 (interactive (list (apropos-read-pattern "documentation") 765 (interactive (list (apropos-read-pattern "documentation")
746 current-prefix-arg)) 766 current-prefix-arg))
747 (apropos-parse-pattern pattern) 767 (apropos-parse-pattern pattern)
@@ -1032,7 +1052,7 @@ If non-nil TEXT is a string that will be printed as a heading."
1032 ;; omitting any that contain a buffer or a frame. 1052 ;; omitting any that contain a buffer or a frame.
1033 ;; FIXME: Why omit keys that contain buffers and 1053 ;; FIXME: Why omit keys that contain buffers and
1034 ;; frames? This looks like a bad workaround rather 1054 ;; frames? This looks like a bad workaround rather
1035 ;; than a proper fix. Does anybod know what problem 1055 ;; than a proper fix. Does anybody know what problem
1036 ;; this is trying to address? --Stef 1056 ;; this is trying to address? --Stef
1037 (dolist (key keys) 1057 (dolist (key keys)
1038 (let ((i 0) 1058 (let ((i 0)
diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index e3d1955ded5..48b4c5be164 100644
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -4,7 +4,7 @@
4 4
5;; Author: Morten Welinder <terra@gnu.org> 5;; Author: Morten Welinder <terra@gnu.org>
6;; Keywords: files archives msdog editing major-mode 6;; Keywords: files archives msdog editing major-mode
7;; Favourite-brand-of-beer: None, I hate beer. 7;; Favorite-brand-of-beer: None, I hate beer.
8 8
9;; This file is part of GNU Emacs. 9;; This file is part of GNU Emacs.
10 10
@@ -75,7 +75,7 @@
75;; 75;;
76;; LZH A series of (header,file). Headers are checksummed. No 76;; LZH A series of (header,file). Headers are checksummed. No
77;; interaction among members. 77;; interaction among members.
78;; Headers come in three flavours called level 0, 1 and 2 headers. 78;; Headers come in three flavors called level 0, 1 and 2 headers.
79;; Level 2 header is free of DOS specific restrictions and most 79;; Level 2 header is free of DOS specific restrictions and most
80;; prevalently used. Also level 1 and 2 headers consist of base 80;; prevalently used. Also level 1 and 2 headers consist of base
81;; and extension headers. For more details see 81;; and extension headers. For more details see
@@ -1036,7 +1036,7 @@ using `make-temp-file', and the generated name is returned."
1036 (setq archive-file-name-coding-system file-name-coding) 1036 (setq archive-file-name-coding-system file-name-coding)
1037 (if (and 1037 (if (and
1038 (null 1038 (null
1039 (let (;; We may have to encode file name arguement for 1039 (let (;; We may have to encode the file name argument for
1040 ;; external programs. 1040 ;; external programs.
1041 (coding-system-for-write 1041 (coding-system-for-write
1042 (and enable-multibyte-characters 1042 (and enable-multibyte-characters
diff --git a/lisp/bs.el b/lisp/bs.el
index 0c32c8b4f19..2a31b05a31f 100644
--- a/lisp/bs.el
+++ b/lisp/bs.el
@@ -25,7 +25,7 @@
25;; Version: 1.17 25;; Version: 1.17
26;; X-URL: http://www.geekware.de/software/emacs 26;; X-URL: http://www.geekware.de/software/emacs
27;; 27;;
28;; The bs-package contains a main function bs-show for poping up a 28;; The bs-package contains a main function bs-show for popping up a
29;; buffer in a way similar to `list-buffers' and `electric-buffer-list': 29;; buffer in a way similar to `list-buffers' and `electric-buffer-list':
30;; The new buffer offers a Buffer Selection Menu for manipulating 30;; The new buffer offers a Buffer Selection Menu for manipulating
31;; the buffer list and buffers. 31;; the buffer list and buffers.
diff --git a/lisp/button.el b/lisp/button.el
index 6ef79532ae7..262a19c1806 100644
--- a/lisp/button.el
+++ b/lisp/button.el
@@ -42,7 +42,7 @@
42;; button face may not be visible. Using overlays avoids this. 42;; button face may not be visible. Using overlays avoids this.
43;; 43;;
44;; Using `define-button-type' to define default properties for buttons 44;; Using `define-button-type' to define default properties for buttons
45;; is not necessary, but it is is encouraged, since doing so makes the 45;; is not necessary, but it is encouraged, since doing so makes the
46;; resulting code clearer and more efficient. 46;; resulting code clearer and more efficient.
47;; 47;;
48 48
diff --git a/lisp/calc/calc-embed.el b/lisp/calc/calc-embed.el
index f011d187a42..f1f79252857 100644
--- a/lisp/calc/calc-embed.el
+++ b/lisp/calc/calc-embed.el
@@ -125,7 +125,7 @@
125 "The mode settings for Calc buffer when put in embedded mode.") 125 "The mode settings for Calc buffer when put in embedded mode.")
126 126
127(defun calc-embedded-save-original-modes () 127(defun calc-embedded-save-original-modes ()
128 "Save the current Calc modes when entereding embedded mode." 128 "Save the current Calc modes when entering embedded mode."
129 (let ((calcbuf (save-excursion 129 (let ((calcbuf (save-excursion
130 (calc-create-buffer) 130 (calc-create-buffer)
131 (current-buffer))) 131 (current-buffer)))
@@ -144,7 +144,7 @@
144 (let ((var (cdr (car v)))) 144 (let ((var (cdr (car v))))
145 (unless (memq var '(the-language the-display-just)) 145 (unless (memq var '(the-language the-display-just))
146 (setq modes 146 (setq modes
147 (cons (cons var (symbol-value var)) 147 (cons (cons var (symbol-value var))
148 modes)))) 148 modes))))
149 (setq v (cdr v)))) 149 (setq v (cdr v))))
150 (setq calc-embedded-original-modes (cons lang modes))) 150 (setq calc-embedded-original-modes (cons lang modes)))
@@ -182,7 +182,7 @@
182 (calc-set-mode-line)))) 182 (calc-set-mode-line))))
183 (setq calc-embedded-original-modes nil))) 183 (setq calc-embedded-original-modes nil)))
184 184
185;; The variables calc-embed-outer-top, calc-embed-outer-bot, 185;; The variables calc-embed-outer-top, calc-embed-outer-bot,
186;; calc-embed-top and calc-embed-bot are 186;; calc-embed-top and calc-embed-bot are
187;; local to calc-do-embedded, calc-embedded-mark-formula, 187;; local to calc-do-embedded, calc-embedded-mark-formula,
188;; calc-embedded-duplicate, calc-embedded-new-formula and 188;; calc-embedded-duplicate, calc-embedded-new-formula and
@@ -195,7 +195,7 @@
195 195
196;; The variable calc-embed-arg is local to calc-do-embedded, 196;; The variable calc-embed-arg is local to calc-do-embedded,
197;; calc-embedded-update-formula, calc-embedded-edit and 197;; calc-embedded-update-formula, calc-embedded-edit and
198;; calc-do-embedded-activate, but is used by 198;; calc-do-embedded-activate, but is used by
199;; calc-embedded-make-info, which is called by the above 199;; calc-embedded-make-info, which is called by the above
200;; functions. 200;; functions.
201(defvar calc-embed-arg) 201(defvar calc-embed-arg)
@@ -208,14 +208,14 @@
208 208
209;; The following is to take care of any minor modes which override 209;; The following is to take care of any minor modes which override
210;; a Calc command. 210;; a Calc command.
211(defvar calc-override-minor-modes-map 211(defvar calc-override-minor-modes-map
212 (make-sparse-keymap) 212 (make-sparse-keymap)
213 "A list of keybindings that might be overwritten by minor modes.") 213 "A list of keybindings that might be overwritten by minor modes.")
214 214
215;; Add any keys that might be overwritten here. 215;; Add any keys that might be overwritten here.
216(define-key calc-override-minor-modes-map "`" 'calc-edit) 216(define-key calc-override-minor-modes-map "`" 'calc-edit)
217 217
218(defvar calc-override-minor-modes 218(defvar calc-override-minor-modes
219 (cons t calc-override-minor-modes-map)) 219 (cons t calc-override-minor-modes-map))
220 220
221(defun calc-do-embedded (calc-embed-arg end obeg oend) 221(defun calc-do-embedded (calc-embed-arg end obeg oend)
@@ -279,7 +279,7 @@
279 (calc-embedded-save-original-modes) 279 (calc-embedded-save-original-modes)
280 (or calc-embedded-globals 280 (or calc-embedded-globals
281 (calc-find-globals)) 281 (calc-find-globals))
282 (setq info 282 (setq info
283 (calc-embedded-make-info (point) nil t calc-embed-arg end obeg oend)) 283 (calc-embedded-make-info (point) nil t calc-embed-arg end obeg oend))
284 (if (eq (car-safe (aref info 8)) 'error) 284 (if (eq (car-safe (aref info 8)) 'error)
285 (progn 285 (progn
@@ -564,7 +564,7 @@ The command \\[yank] can retrieve it from there."
564 (goto-char calc-embed-outer-bot) 564 (goto-char calc-embed-outer-bot)
565 (insert "\n") 565 (insert "\n")
566 (setq new-top (point)) 566 (setq new-top (point))
567 (insert-buffer-substring (current-buffer) 567 (insert-buffer-substring (current-buffer)
568 calc-embed-outer-top calc-embed-outer-bot) 568 calc-embed-outer-top calc-embed-outer-bot)
569 (goto-char (+ new-top (- calc-embed-top calc-embed-outer-top))) 569 (goto-char (+ new-top (- calc-embed-top calc-embed-outer-top)))
570 (let ((calc-embedded-quiet (if already t 'x))) 570 (let ((calc-embedded-quiet (if already t 'x)))
@@ -659,7 +659,7 @@ The command \\[yank] can retrieve it from there."
659 (equal (symbol-value (car (car v))) value)) 659 (equal (symbol-value (car (car v))) value))
660 (progn 660 (progn
661 (setq changed t) 661 (setq changed t)
662 (if temp (setq calc-embed-prev-modes 662 (if temp (setq calc-embed-prev-modes
663 (cons (cons (car (car v)) 663 (cons (cons (car (car v))
664 (symbol-value (car (car v)))) 664 (symbol-value (car (car v))))
665 calc-embed-prev-modes))) 665 calc-embed-prev-modes)))
@@ -809,12 +809,12 @@ The command \\[yank] can retrieve it from there."
809 (list modes emodes pmodes))) 809 (list modes emodes pmodes)))
810 810
811;; The variable calc-embed-vars-used is local to calc-embedded-make-info, 811;; The variable calc-embed-vars-used is local to calc-embedded-make-info,
812;; calc-embedded-evaluate-expr and calc-embedded-update, but is 812;; calc-embedded-evaluate-expr and calc-embedded-update, but is
813;; used by calc-embedded-find-vars, which is called by the above functions. 813;; used by calc-embedded-find-vars, which is called by the above functions.
814(defvar calc-embed-vars-used) 814(defvar calc-embed-vars-used)
815 815
816(defun calc-embedded-make-info (point cbuf fresh &optional 816(defun calc-embedded-make-info (point cbuf fresh &optional
817 calc-embed-top calc-embed-bot 817 calc-embed-top calc-embed-bot
818 calc-embed-outer-top calc-embed-outer-bot) 818 calc-embed-outer-top calc-embed-outer-bot)
819 (let* ((bufentry (assq (current-buffer) calc-embedded-active)) 819 (let* ((bufentry (assq (current-buffer) calc-embedded-active))
820 (found bufentry) 820 (found bufentry)
@@ -831,7 +831,7 @@ The command \\[yank] can retrieve it from there."
831 (newform (assoc major-mode calc-embedded-open-close-formula-alist)) 831 (newform (assoc major-mode calc-embedded-open-close-formula-alist))
832 (newword (assoc major-mode calc-embedded-word-regexp-alist)) 832 (newword (assoc major-mode calc-embedded-word-regexp-alist))
833 (newplain (assoc major-mode calc-embedded-open-close-plain-alist)) 833 (newplain (assoc major-mode calc-embedded-open-close-plain-alist))
834 (newnewform 834 (newnewform
835 (assoc major-mode calc-embedded-open-close-new-formula-alist)) 835 (assoc major-mode calc-embedded-open-close-new-formula-alist))
836 (newmode (assoc major-mode calc-embedded-open-close-mode-alist))) 836 (newmode (assoc major-mode calc-embedded-open-close-mode-alist)))
837 (when newann 837 (when newann
@@ -874,9 +874,9 @@ The command \\[yank] can retrieve it from there."
874 (aset info 1 (or cbuf (save-excursion 874 (aset info 1 (or cbuf (save-excursion
875 (calc-create-buffer) 875 (calc-create-buffer)
876 (current-buffer))))) 876 (current-buffer)))))
877 (if (and 877 (if (and
878 (or (integerp calc-embed-top) (equal calc-embed-top '(4))) 878 (or (integerp calc-embed-top) (equal calc-embed-top '(4)))
879 (not calc-embed-bot)) 879 (not calc-embed-bot))
880 ; started with a user-supplied argument 880 ; started with a user-supplied argument
881 (progn 881 (progn
882 (if (equal calc-embed-top '(4)) 882 (if (equal calc-embed-top '(4))
@@ -1157,7 +1157,7 @@ The command \\[yank] can retrieve it from there."
1157 (if need-display 1157 (if need-display
1158 (calc-embedded-set-justify (cdr (car calc-embed-prev-modes))))) 1158 (calc-embedded-set-justify (cdr (car calc-embed-prev-modes)))))
1159 (t 1159 (t
1160 (set (car (car calc-embed-prev-modes)) 1160 (set (car (car calc-embed-prev-modes))
1161 (cdr (car calc-embed-prev-modes))))) 1161 (cdr (car calc-embed-prev-modes)))))
1162 (setq calc-embed-prev-modes (cdr calc-embed-prev-modes)))))) 1162 (setq calc-embed-prev-modes (cdr calc-embed-prev-modes))))))
1163 1163
diff --git a/lisp/calc/calc-ext.el b/lisp/calc/calc-ext.el
index 8b816665d97..5429509af86 100644
--- a/lisp/calc/calc-ext.el
+++ b/lisp/calc/calc-ext.el
@@ -432,7 +432,7 @@
432 (define-key calc-mode-map "ls" 'calc-spn) 432 (define-key calc-mode-map "ls" 'calc-spn)
433 (define-key calc-mode-map "lm" 'calc-midi) 433 (define-key calc-mode-map "lm" 'calc-midi)
434 (define-key calc-mode-map "lf" 'calc-freq) 434 (define-key calc-mode-map "lf" 'calc-freq)
435 435
436 (define-key calc-mode-map "l?" 'calc-l-prefix-help) 436 (define-key calc-mode-map "l?" 'calc-l-prefix-help)
437 437
438 (define-key calc-mode-map "m" nil) 438 (define-key calc-mode-map "m" nil)
@@ -2867,7 +2867,7 @@ If X is not an error form, return 1."
2867 (memq (nth 2 expr) '(var-inf var-uinf var-nan))))) 2867 (memq (nth 2 expr) '(var-inf var-uinf var-nan)))))
2868 2868
2869;; The variable math-integral-cache is originally declared in calcalg2.el, 2869;; The variable math-integral-cache is originally declared in calcalg2.el,
2870;; but is set by math-defintegral and math-definitegral2. 2870;; but is set by math-defintegral and math-defintegral-2.
2871(defvar math-integral-cache) 2871(defvar math-integral-cache)
2872 2872
2873(defmacro math-defintegral (funcs &rest code) 2873(defmacro math-defintegral (funcs &rest code)
diff --git a/lisp/calc/calc-help.el b/lisp/calc/calc-help.el
index 427cf6ba233..66e9c002a47 100644
--- a/lisp/calc/calc-help.el
+++ b/lisp/calc/calc-help.el
@@ -683,7 +683,7 @@ C-w Describe how there is no warranty for Calc."
683 (calc-do-prefix-help 683 (calc-do-prefix-help
684 '("Pack, Unpack, Identity, Diagonal, indeX, Build" 684 '("Pack, Unpack, Identity, Diagonal, indeX, Build"
685 "Row, Column, Subvector; Length; Find; Mask, Expand" 685 "Row, Column, Subvector; Length; Find; Mask, Expand"
686 "Tranpose, Arrange, reVerse; Head, Kons; rNorm" 686 "Transpose, Arrange, reVerse; Head, Kons; rNorm"
687 "SHIFT + Det, & (inverse), LUD, Trace, conJtrn, Cross" 687 "SHIFT + Det, & (inverse), LUD, Trace, conJtrn, Cross"
688 "SHIFT + Sort, Grade, Histogram; cNorm" 688 "SHIFT + Sort, Grade, Histogram; cNorm"
689 "SHIFT + Apply, Map, Reduce, accUm, Inner-, Outer-prod" 689 "SHIFT + Apply, Map, Reduce, accUm, Inner-, Outer-prod"
diff --git a/lisp/calc/calc-units.el b/lisp/calc/calc-units.el
index 43cb5828e85..86e8cbbc73a 100644
--- a/lisp/calc/calc-units.el
+++ b/lisp/calc/calc-units.el
@@ -1598,7 +1598,7 @@ In symbolic mode, return the list (^ a b)."
1598 (or (math-lessp acoeff bcoeff) 1598 (or (math-lessp acoeff bcoeff)
1599 (math-equal acoeff bcoeff))) 1599 (math-equal acoeff bcoeff)))
1600 (calc-record-why "*Improper coefficients" nil) 1600 (calc-record-why "*Improper coefficients" nil)
1601 (math-mul 1601 (math-mul
1602 (if (equal aunit '(var dB var-dB)) 1602 (if (equal aunit '(var dB var-dB))
1603 (let ((coef (if power 10 20))) 1603 (let ((coef (if power 10 20)))
1604 (math-mul coef 1604 (math-mul coef
@@ -1681,7 +1681,7 @@ In symbolic mode, return the list (^ a b)."
1681 (math-simplify 1681 (math-simplify
1682 (math-mul 1682 (math-mul
1683 (math-add 1683 (math-add
1684 coef 1684 coef
1685 (math-mul (if power 10 20) 1685 (math-mul (if power 10 20)
1686 (math-conditional-apply 'calcFunc-log10 number))) 1686 (math-conditional-apply 'calcFunc-log10 number)))
1687 units))) 1687 units)))
@@ -1689,7 +1689,7 @@ In symbolic mode, return the list (^ a b)."
1689 (math-simplify 1689 (math-simplify
1690 (math-mul 1690 (math-mul
1691 (math-add 1691 (math-add
1692 coef 1692 coef
1693 (math-div (math-conditional-apply 'calcFunc-ln number) (if power 2 1))) 1693 (math-div (math-conditional-apply 'calcFunc-ln number) (if power 2 1)))
1694 units)))) 1694 units))))
1695 (calc-record-why "*Improper units" nil)))) 1695 (calc-record-why "*Improper units" nil))))
@@ -1707,7 +1707,7 @@ In symbolic mode, return the list (^ a b)."
1707 (math-simplify 1707 (math-simplify
1708 (math-mul 1708 (math-mul
1709 (math-sub 1709 (math-sub
1710 coef 1710 coef
1711 (math-mul (if power 10 20) 1711 (math-mul (if power 10 20)
1712 (math-conditional-apply 'calcFunc-log10 b))) 1712 (math-conditional-apply 'calcFunc-log10 b)))
1713 units))) 1713 units)))
@@ -1715,7 +1715,7 @@ In symbolic mode, return the list (^ a b)."
1715 (math-simplify 1715 (math-simplify
1716 (math-mul 1716 (math-mul
1717 (math-sub 1717 (math-sub
1718 coef 1718 coef
1719 (math-div (math-conditional-apply 'calcFunc-ln b) (if power 2 1))) 1719 (math-div (math-conditional-apply 'calcFunc-ln b) (if power 2 1)))
1720 units))))))))) 1720 units)))))))))
1721 1721
@@ -1762,17 +1762,17 @@ In symbolic mode, return the list (^ a b)."
1762 (coeff (math-simplify (math-div val units)))) 1762 (coeff (math-simplify (math-div val units))))
1763 (math-mul 1763 (math-mul
1764 (if (equal lunit '(var dB var-dB)) 1764 (if (equal lunit '(var dB var-dB))
1765 (math-mul 1765 (math-mul
1766 ref 1766 ref
1767 (math-conditional-pow 1767 (math-conditional-pow
1768 10 1768 10
1769 (math-div 1769 (math-div
1770 coeff 1770 coeff
1771 (if power 10 20)))) 1771 (if power 10 20))))
1772 (math-mul 1772 (math-mul
1773 ref 1773 ref
1774 (math-conditional-apply 'calcFunc-exp 1774 (math-conditional-apply 'calcFunc-exp
1775 (if power 1775 (if power
1776 (math-mul 2 coeff) 1776 (math-mul 2 coeff)
1777 coeff)))) 1777 coeff))))
1778 runits))))) 1778 runits)))))
@@ -1869,7 +1869,7 @@ In symbolic mode, return the list (^ a b)."
1869 (let* ((n (math-round num)) 1869 (let* ((n (math-round num))
1870 (diff (math-abs 1870 (diff (math-abs
1871 (math-sub num n)))) 1871 (math-sub num n))))
1872 (if (< (math-compare diff 1872 (if (< (math-compare diff
1873 (math-div (math-read-expr calc-note-threshold) 100)) 0) 1873 (math-div (math-read-expr calc-note-threshold) 100)) 0)
1874 n 1874 n
1875 num))) 1875 num)))
@@ -1927,10 +1927,10 @@ If non-nil, return a list consisting of the note and the cents coefficient."
1927 (assoc (nth 1 note) math-notes) 1927 (assoc (nth 1 note) math-notes)
1928 (integerp (nth 2 note)) 1928 (integerp (nth 2 note))
1929 (setq rnote note) 1929 (setq rnote note)
1930 (or 1930 (or
1931 (not cents) 1931 (not cents)
1932 (Math-numberp (setq rcents 1932 (Math-numberp (setq rcents
1933 (math-simplify 1933 (math-simplify
1934 (math-div cents '(var cents var-cents))))))) 1934 (math-div cents '(var cents var-cents)))))))
1935 (list rnote rcents)) 1935 (list rnote rcents))
1936 ((and ;; CENTS is a note, NOTE is cents. 1936 ((and ;; CENTS is a note, NOTE is cents.
@@ -1938,10 +1938,10 @@ If non-nil, return a list consisting of the note and the cents coefficient."
1938 (assoc (nth 1 cents) math-notes) 1938 (assoc (nth 1 cents) math-notes)
1939 (integerp (nth 2 cents)) 1939 (integerp (nth 2 cents))
1940 (setq rnote cents) 1940 (setq rnote cents)
1941 (or 1941 (or
1942 (not note) 1942 (not note)
1943 (Math-numberp (setq rcents 1943 (Math-numberp (setq rcents
1944 (math-simplify 1944 (math-simplify
1945 (math-div note '(var cents var-cents))))))) 1945 (math-div note '(var cents var-cents)))))))
1946 (list rnote rcents))))) 1946 (list rnote rcents)))))
1947 1947
@@ -1972,7 +1972,7 @@ If non-nil, return a list consisting of the note and the cents coefficient."
1972 "Return the scientific pitch notation corresponding to midi number MIDI." 1972 "Return the scientific pitch notation corresponding to midi number MIDI."
1973 (let (midin cents) 1973 (let (midin cents)
1974 (if (math-integerp midi) 1974 (if (math-integerp midi)
1975 (setq midin midi 1975 (setq midin midi
1976 cents nil) 1976 cents nil)
1977 (setq midin (math-floor midi) 1977 (setq midin (math-floor midi)
1978 cents (math-mul 100 (math-sub midi midin)))) 1978 cents (math-mul 100 (math-sub midi midin))))
@@ -1989,7 +1989,7 @@ If non-nil, return a list consisting of the note and the cents coefficient."
1989 (n (math-sub (car nr) 1)) 1989 (n (math-sub (car nr) 1))
1990 (note (car (rassoc (cdr nr) math-notes)))) 1990 (note (car (rassoc (cdr nr) math-notes))))
1991 (if cents 1991 (if cents
1992 (list '+ (list 'calcFunc-subscr note n) 1992 (list '+ (list 'calcFunc-subscr note n)
1993 (list '* cents '(var cents var-cents))) 1993 (list '* cents '(var cents var-cents)))
1994 (list 'calcFunc-subscr note n))))) 1994 (list 'calcFunc-subscr note n)))))
1995 1995
@@ -2005,7 +2005,7 @@ If non-nil, return a list consisting of the note and the cents coefficient."
2005 440 2005 440
2006 (math-pow 2006 (math-pow
2007 2 2007 2
2008 (math-div 2008 (math-div
2009 (math-sub 2009 (math-sub
2010 midi 2010 midi
2011 69) 2011 69)
@@ -2018,7 +2018,7 @@ If non-nil, return a list consisting of the note and the cents coefficient."
2018 2018
2019(defun calcFunc-spn (expr) 2019(defun calcFunc-spn (expr)
2020 "Return EXPR written as scientific pitch notation + cents." 2020 "Return EXPR written as scientific pitch notation + cents."
2021 ;; Get the coeffecient of Hz 2021 ;; Get the coefficient of Hz
2022 (let (note) 2022 (let (note)
2023 (cond 2023 (cond
2024 ((setq note (math-freqp expr)) 2024 ((setq note (math-freqp expr))
diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el
index 55ac412b435..60a84bdff35 100644
--- a/lisp/calc/calc.el
+++ b/lisp/calc/calc.el
@@ -124,7 +124,7 @@
124;; target integral is not complete (and the time limit has not run out) 124;; target integral is not complete (and the time limit has not run out)
125;; choose an incomplete integral from the cache and, for every integral 125;; choose an incomplete integral from the cache and, for every integral
126;; appearing in its RHS's, add those integrals to the cache using the 126;; appearing in its RHS's, add those integrals to the cache using the
127;; same substitition, parts, etc. rules. The cache should be organized 127;; same substitution, parts, etc. rules. The cache should be organized
128;; as a priority queue, choosing the "simplest" incomplete integral at 128;; as a priority queue, choosing the "simplest" incomplete integral at
129;; each step, or choosing randomly among equally simple integrals. 129;; each step, or choosing randomly among equally simple integrals.
130;; Simplicity equals small size, and few steps removed from the original 130;; Simplicity equals small size, and few steps removed from the original
@@ -428,7 +428,7 @@ in normal mode."
428 nil 428 nil
429 "If non-nil, use a separate face to indicate selected sub-formulas. 429 "If non-nil, use a separate face to indicate selected sub-formulas.
430If `calc-show-selections' is non-nil, then selected sub-formulas are shown 430If `calc-show-selections' is non-nil, then selected sub-formulas are shown
431by displaying the rest of the formula in `calc-nonselected-face'. 431by displaying the rest of the formula in `calc-nonselected-face'.
432If `calc-show-selections' is nil, then selected sub-formulas are shown 432If `calc-show-selections' is nil, then selected sub-formulas are shown
433by displaying the sub-formula in `calc-selected-face'." 433by displaying the sub-formula in `calc-selected-face'."
434 :group 'calc 434 :group 'calc
@@ -446,14 +446,14 @@ by displaying the sub-formula in `calc-selected-face'."
446 :group 'calc 446 :group 'calc
447 :type '(string)) 447 :type '(string))
448 448
449(defcustom calc-note-threshold "1" 449(defcustom calc-note-threshold "1"
450 "The number of cents that a frequency should be near a note 450 "The number of cents that a frequency should be near a note
451to be identified as that note." 451to be identified as that note."
452 :type 'string 452 :type 'string
453 :group 'calc) 453 :group 'calc)
454 454
455(defface calc-nonselected-face 455(defface calc-nonselected-face
456 '((t :inherit shadow 456 '((t :inherit shadow
457 :slant italic)) 457 :slant italic))
458 "Face used to show the non-selected portion of a formula." 458 "Face used to show the non-selected portion of a formula."
459 :group 'calc) 459 :group 'calc)
diff --git a/lisp/calendar/icalendar.el b/lisp/calendar/icalendar.el
index 3ffd55db18d..62bea11e82e 100644
--- a/lisp/calendar/icalendar.el
+++ b/lisp/calendar/icalendar.el
@@ -112,7 +112,7 @@
112;; Customizables 112;; Customizables
113;; ====================================================================== 113;; ======================================================================
114(defgroup icalendar nil 114(defgroup icalendar nil
115 "Icalendar support." 115 "iCalendar support."
116 :prefix "icalendar-" 116 :prefix "icalendar-"
117 :group 'calendar) 117 :group 'calendar)
118 118
@@ -234,7 +234,7 @@ code for the event, and your personal domain name."
234 "Enable icalendar debug messages.") 234 "Enable icalendar debug messages.")
235 235
236;; ====================================================================== 236;; ======================================================================
237;; NO USER SERVICABLE PARTS BELOW THIS LINE 237;; NO USER SERVICEABLE PARTS BELOW THIS LINE
238;; ====================================================================== 238;; ======================================================================
239 239
240(defconst icalendar--weekday-array ["SU" "MO" "TU" "WE" "TH" "FR" "SA"]) 240(defconst icalendar--weekday-array ["SU" "MO" "TU" "WE" "TH" "FR" "SA"])
@@ -474,9 +474,9 @@ The strings are suitable for assembling into a TZ variable."
474 (week (if (eq day -1) 474 (week (if (eq day -1)
475 byday 475 byday
476 (substring byday 0 -2)))) 476 (substring byday 0 -2))))
477 ;; "Translate" the icalendar way to specify the last 477 ;; "Translate" the iCalendar way to specify the last
478 ;; (sun|mon|...)day in month to the tzset way. 478 ;; (sun|mon|...)day in month to the tzset way.
479 (if (string= week "-1") ; last day as icalendar calls it 479 (if (string= week "-1") ; last day as iCalendar calls it
480 (setq week "5")) ; last day as tzset calls it 480 (setq week "5")) ; last day as tzset calls it
481 (concat "M" bymonth "." week "." (if (eq day -1) "0" 481 (concat "M" bymonth "." week "." (if (eq day -1) "0"
482 (int-to-string day)) 482 (int-to-string day))
@@ -907,7 +907,7 @@ would be \"pm\"."
907 "\\\\," "," string))))) 907 "\\\\," "," string)))))
908 908
909;; ====================================================================== 909;; ======================================================================
910;; Export -- convert emacs-diary to icalendar 910;; Export -- convert emacs-diary to iCalendar
911;; ====================================================================== 911;; ======================================================================
912 912
913;;;###autoload 913;;;###autoload
@@ -915,7 +915,7 @@ would be \"pm\"."
915 "Export diary file to iCalendar format. 915 "Export diary file to iCalendar format.
916All diary entries in the file DIARY-FILENAME are converted to iCalendar 916All diary entries in the file DIARY-FILENAME are converted to iCalendar
917format. The result is appended to the file ICAL-FILENAME." 917format. The result is appended to the file ICAL-FILENAME."
918 (interactive "FExport diary data from file: 918 (interactive "FExport diary data from file:
919Finto iCalendar file: ") 919Finto iCalendar file: ")
920 (save-current-buffer 920 (save-current-buffer
921 (set-buffer (find-file diary-filename)) 921 (set-buffer (find-file diary-filename))
@@ -1063,7 +1063,7 @@ FExport diary data into iCalendar file: ")
1063 found-error)) 1063 found-error))
1064 1064
1065(defun icalendar--convert-to-ical (nonmarker entry-main) 1065(defun icalendar--convert-to-ical (nonmarker entry-main)
1066 "Convert a diary entry to icalendar format. 1066 "Convert a diary entry to iCalendar format.
1067NONMARKER is a regular expression matching the start of non-marking 1067NONMARKER is a regular expression matching the start of non-marking
1068entries. ENTRY-MAIN is the first line of the diary entry." 1068entries. ENTRY-MAIN is the first line of the diary entry."
1069 (or 1069 (or
@@ -1194,7 +1194,7 @@ Returns an alist."
1194 1194
1195;; subroutines for icalendar-export-region 1195;; subroutines for icalendar-export-region
1196(defun icalendar--convert-ordinary-to-ical (nonmarker entry-main) 1196(defun icalendar--convert-ordinary-to-ical (nonmarker entry-main)
1197 "Convert \"ordinary\" diary entry to icalendar format. 1197 "Convert \"ordinary\" diary entry to iCalendar format.
1198NONMARKER is a regular expression matching the start of non-marking 1198NONMARKER is a regular expression matching the start of non-marking
1199entries. ENTRY-MAIN is the first line of the diary entry." 1199entries. ENTRY-MAIN is the first line of the diary entry."
1200 (if (string-match 1200 (if (string-match
@@ -1291,7 +1291,7 @@ Returns day number."
1291 result)) 1291 result))
1292 1292
1293(defun icalendar--convert-weekly-to-ical (nonmarker entry-main) 1293(defun icalendar--convert-weekly-to-ical (nonmarker entry-main)
1294 "Convert weekly diary entry to icalendar format. 1294 "Convert weekly diary entry to iCalendar format.
1295NONMARKER is a regular expression matching the start of non-marking 1295NONMARKER is a regular expression matching the start of non-marking
1296entries. ENTRY-MAIN is the first line of the diary entry." 1296entries. ENTRY-MAIN is the first line of the diary entry."
1297 (if (and (string-match (concat nonmarker 1297 (if (and (string-match (concat nonmarker
@@ -1373,7 +1373,7 @@ entries. ENTRY-MAIN is the first line of the diary entry."
1373 nil)) 1373 nil))
1374 1374
1375(defun icalendar--convert-yearly-to-ical (nonmarker entry-main) 1375(defun icalendar--convert-yearly-to-ical (nonmarker entry-main)
1376 "Convert yearly diary entry to icalendar format. 1376 "Convert yearly diary entry to iCalendar format.
1377NONMARKER is a regular expression matching the start of non-marking 1377NONMARKER is a regular expression matching the start of non-marking
1378entries. ENTRY-MAIN is the first line of the diary entry." 1378entries. ENTRY-MAIN is the first line of the diary entry."
1379 (if (string-match (concat nonmarker 1379 (if (string-match (concat nonmarker
@@ -1453,7 +1453,7 @@ entries. ENTRY-MAIN is the first line of the diary entry."
1453 nil)) 1453 nil))
1454 1454
1455(defun icalendar--convert-sexp-to-ical (nonmarker entry-main) 1455(defun icalendar--convert-sexp-to-ical (nonmarker entry-main)
1456 "Convert complex sexp diary entry to icalendar format -- unsupported! 1456 "Convert complex sexp diary entry to iCalendar format -- unsupported!
1457 1457
1458FIXME! 1458FIXME!
1459 1459
@@ -1480,7 +1480,7 @@ entries. ENTRY-MAIN is the first line of the diary entry."
1480 nil))) 1480 nil)))
1481 1481
1482(defun icalendar--convert-block-to-ical (nonmarker entry-main) 1482(defun icalendar--convert-block-to-ical (nonmarker entry-main)
1483 "Convert block diary entry to icalendar format. 1483 "Convert block diary entry to iCalendar format.
1484NONMARKER is a regular expression matching the start of non-marking 1484NONMARKER is a regular expression matching the start of non-marking
1485entries. ENTRY-MAIN is the first line of the diary entry." 1485entries. ENTRY-MAIN is the first line of the diary entry."
1486 (if (string-match (concat nonmarker 1486 (if (string-match (concat nonmarker
@@ -1556,10 +1556,10 @@ entries. ENTRY-MAIN is the first line of the diary entry."
1556 nil)) 1556 nil))
1557 1557
1558(defun icalendar--convert-float-to-ical (nonmarker entry-main) 1558(defun icalendar--convert-float-to-ical (nonmarker entry-main)
1559 "Convert float diary entry to icalendar format -- partially unsupported! 1559 "Convert float diary entry to iCalendar format -- partially unsupported!
1560 1560
1561 FIXME! DAY from diary-float yet unimplemented. 1561 FIXME! DAY from diary-float yet unimplemented.
1562 1562
1563 NONMARKER is a regular expression matching the start of non-marking 1563 NONMARKER is a regular expression matching the start of non-marking
1564 entries. ENTRY-MAIN is the first line of the diary entry." 1564 entries. ENTRY-MAIN is the first line of the diary entry."
1565 (if (string-match (concat nonmarker "%%\\((diary-float .+\\) ?$") entry-main) 1565 (if (string-match (concat nonmarker "%%\\((diary-float .+\\) ?$") entry-main)
@@ -1619,7 +1619,7 @@ entries. ENTRY-MAIN is the first line of the diary entry."
1619 nil)) 1619 nil))
1620 1620
1621(defun icalendar--convert-date-to-ical (nonmarker entry-main) 1621(defun icalendar--convert-date-to-ical (nonmarker entry-main)
1622 "Convert `diary-date' diary entry to icalendar format -- unsupported! 1622 "Convert `diary-date' diary entry to iCalendar format -- unsupported!
1623 1623
1624FIXME! 1624FIXME!
1625 1625
@@ -1635,7 +1635,7 @@ entries. ENTRY-MAIN is the first line of the diary entry."
1635 nil)) 1635 nil))
1636 1636
1637(defun icalendar--convert-cyclic-to-ical (nonmarker entry-main) 1637(defun icalendar--convert-cyclic-to-ical (nonmarker entry-main)
1638 "Convert `diary-cyclic' diary entry to icalendar format. 1638 "Convert `diary-cyclic' diary entry to iCalendar format.
1639NONMARKER is a regular expression matching the start of non-marking 1639NONMARKER is a regular expression matching the start of non-marking
1640entries. ENTRY-MAIN is the first line of the diary entry." 1640entries. ENTRY-MAIN is the first line of the diary entry."
1641 (if (string-match (concat nonmarker 1641 (if (string-match (concat nonmarker
@@ -1709,7 +1709,7 @@ entries. ENTRY-MAIN is the first line of the diary entry."
1709 nil)) 1709 nil))
1710 1710
1711(defun icalendar--convert-anniversary-to-ical (nonmarker entry-main) 1711(defun icalendar--convert-anniversary-to-ical (nonmarker entry-main)
1712 "Convert `diary-anniversary' diary entry to icalendar format. 1712 "Convert `diary-anniversary' diary entry to iCalendar format.
1713NONMARKER is a regular expression matching the start of non-marking 1713NONMARKER is a regular expression matching the start of non-marking
1714entries. ENTRY-MAIN is the first line of the diary entry." 1714entries. ENTRY-MAIN is the first line of the diary entry."
1715 (if (string-match (concat nonmarker 1715 (if (string-match (concat nonmarker
@@ -1783,7 +1783,7 @@ entries. ENTRY-MAIN is the first line of the diary entry."
1783 nil)) 1783 nil))
1784 1784
1785;; ====================================================================== 1785;; ======================================================================
1786;; Import -- convert icalendar to emacs-diary 1786;; Import -- convert iCalendar to emacs-diary
1787;; ====================================================================== 1787;; ======================================================================
1788 1788
1789;;;###autoload 1789;;;###autoload
@@ -1794,8 +1794,8 @@ Argument ICAL-FILENAME output iCalendar file.
1794Argument DIARY-FILENAME input `diary-file'. 1794Argument DIARY-FILENAME input `diary-file'.
1795Optional argument NON-MARKING determines whether events are created as 1795Optional argument NON-MARKING determines whether events are created as
1796non-marking or not." 1796non-marking or not."
1797 (interactive "fImport iCalendar data from file: 1797 (interactive "fImport iCalendar data from file:
1798Finto diary file: 1798Finto diary file:
1799p") 1799p")
1800 ;; clean up the diary file 1800 ;; clean up the diary file
1801 (save-current-buffer 1801 (save-current-buffer
@@ -1825,19 +1825,19 @@ buffer `*icalendar-errors*'."
1825 (interactive) 1825 (interactive)
1826 (save-current-buffer 1826 (save-current-buffer
1827 ;; prepare ical 1827 ;; prepare ical
1828 (message "Preparing icalendar...") 1828 (message "Preparing iCalendar...")
1829 (set-buffer (icalendar--get-unfolded-buffer (current-buffer))) 1829 (set-buffer (icalendar--get-unfolded-buffer (current-buffer)))
1830 (goto-char (point-min)) 1830 (goto-char (point-min))
1831 (message "Preparing icalendar...done") 1831 (message "Preparing iCalendar...done")
1832 (if (re-search-forward "^BEGIN:VCALENDAR\\s-*$" nil t) 1832 (if (re-search-forward "^BEGIN:VCALENDAR\\s-*$" nil t)
1833 (let (ical-contents ical-errors) 1833 (let (ical-contents ical-errors)
1834 ;; read ical 1834 ;; read ical
1835 (message "Reading icalendar...") 1835 (message "Reading iCalendar...")
1836 (beginning-of-line) 1836 (beginning-of-line)
1837 (setq ical-contents (icalendar--read-element nil nil)) 1837 (setq ical-contents (icalendar--read-element nil nil))
1838 (message "Reading icalendar...done") 1838 (message "Reading iCalendar...done")
1839 ;; convert ical 1839 ;; convert ical
1840 (message "Converting icalendar...") 1840 (message "Converting iCalendar...")
1841 (setq ical-errors (icalendar--convert-ical-to-diary 1841 (setq ical-errors (icalendar--convert-ical-to-diary
1842 ical-contents 1842 ical-contents
1843 diary-file do-not-ask non-marking)) 1843 diary-file do-not-ask non-marking))
@@ -1848,11 +1848,11 @@ buffer `*icalendar-errors*'."
1848 (save-current-buffer 1848 (save-current-buffer
1849 (set-buffer b) 1849 (set-buffer b)
1850 (save-buffer))))) 1850 (save-buffer)))))
1851 (message "Converting icalendar...done") 1851 (message "Converting iCalendar...done")
1852 ;; return t if no error occurred 1852 ;; return t if no error occurred
1853 (not ical-errors)) 1853 (not ical-errors))
1854 (message 1854 (message
1855 "Current buffer does not contain icalendar contents!") 1855 "Current buffer does not contain iCalendar contents!")
1856 ;; return nil, i.e. import did not work 1856 ;; return nil, i.e. import did not work
1857 nil))) 1857 nil)))
1858 1858
@@ -2056,12 +2056,12 @@ written into the buffer `*icalendar-errors*'."
2056 (set-buffer (get-buffer-create "*icalendar-errors*")) 2056 (set-buffer (get-buffer-create "*icalendar-errors*"))
2057 (erase-buffer) 2057 (erase-buffer)
2058 (insert error-string))) 2058 (insert error-string)))
2059 (message "Converting icalendar...done") 2059 (message "Converting iCalendar...done")
2060 found-error)) 2060 found-error))
2061 2061
2062;; subroutines for importing 2062;; subroutines for importing
2063(defun icalendar--convert-recurring-to-diary (e dtstart-dec start-t end-t) 2063(defun icalendar--convert-recurring-to-diary (e dtstart-dec start-t end-t)
2064 "Convert recurring icalendar event E to diary format. 2064 "Convert recurring iCalendar event E to diary format.
2065 2065
2066DTSTART-DEC is the DTSTART property of E. 2066DTSTART-DEC is the DTSTART property of E.
2067START-T is the event's start time in diary format. 2067START-T is the event's start time in diary format.
@@ -2274,7 +2274,7 @@ END-T is the event's end time in diary format."
2274 result)) 2274 result))
2275 2275
2276(defun icalendar--convert-non-recurring-all-day-to-diary (event start-d end-d) 2276(defun icalendar--convert-non-recurring-all-day-to-diary (event start-d end-d)
2277 "Convert non-recurring icalendar EVENT to diary format. 2277 "Convert non-recurring iCalendar EVENT to diary format.
2278 2278
2279DTSTART is the decoded DTSTART property of E. 2279DTSTART is the decoded DTSTART property of E.
2280Argument START-D gives the first day. 2280Argument START-D gives the first day.
@@ -2339,7 +2339,7 @@ the entry."
2339;; Examples 2339;; Examples
2340;; ====================================================================== 2340;; ======================================================================
2341(defun icalendar-import-format-sample (event) 2341(defun icalendar-import-format-sample (event)
2342 "Example function for formatting an icalendar EVENT." 2342 "Example function for formatting an iCalendar EVENT."
2343 (format (concat "SUMMARY=`%s' DESCRIPTION=`%s' LOCATION=`%s' ORGANIZER=`%s' " 2343 (format (concat "SUMMARY=`%s' DESCRIPTION=`%s' LOCATION=`%s' ORGANIZER=`%s' "
2344 "STATUS=`%s' URL=`%s' CLASS=`%s'") 2344 "STATUS=`%s' URL=`%s' CLASS=`%s'")
2345 (or (icalendar--get-event-property event 'SUMMARY) "") 2345 (or (icalendar--get-event-property event 'SUMMARY) "")
diff --git a/lisp/calendar/timeclock.el b/lisp/calendar/timeclock.el
index 1ec474e828e..c9b8fdac613 100644
--- a/lisp/calendar/timeclock.el
+++ b/lisp/calendar/timeclock.el
@@ -407,7 +407,7 @@ discover the reason."
407 (if arg 407 (if arg
408 (run-hooks 'timeclock-done-hook)))) 408 (run-hooks 'timeclock-done-hook))))
409 409
410;; Should today-only be removed in favour of timeclock-relative? - gm 410;; Should today-only be removed in favor of timeclock-relative? - gm
411(defsubst timeclock-workday-remaining (&optional today-only) 411(defsubst timeclock-workday-remaining (&optional today-only)
412 "Return the number of seconds until the workday is complete. 412 "Return the number of seconds until the workday is complete.
413The amount returned is relative to the value of `timeclock-workday'. 413The amount returned is relative to the value of `timeclock-workday'.
@@ -547,7 +547,7 @@ non-nil, the amount returned will be relative to past time worked."
547 547
548(defalias 'timeclock-seconds-to-time 'seconds-to-time) 548(defalias 'timeclock-seconds-to-time 'seconds-to-time)
549 549
550;; Should today-only be removed in favour of timeclock-relative? - gm 550;; Should today-only be removed in favor of timeclock-relative? - gm
551(defsubst timeclock-when-to-leave (&optional today-only) 551(defsubst timeclock-when-to-leave (&optional today-only)
552 "Return a time value representing the end of today's workday. 552 "Return a time value representing the end of today's workday.
553If TODAY-ONLY is non-nil, the value returned will be relative only to 553If TODAY-ONLY is non-nil, the value returned will be relative only to
@@ -569,7 +569,7 @@ This string is relative to the value of `timeclock-workday'. If
569SHOW-SECONDS is non-nil, the value printed/returned will include 569SHOW-SECONDS is non-nil, the value printed/returned will include
570seconds. If TODAY-ONLY is non-nil, the value returned will be 570seconds. If TODAY-ONLY is non-nil, the value returned will be
571relative only to the time worked today, and not to past time." 571relative only to the time worked today, and not to past time."
572 ;; Should today-only be removed in favour of timeclock-relative? - gm 572 ;; Should today-only be removed in favor of timeclock-relative? - gm
573 (interactive) 573 (interactive)
574 (let* ((then (timeclock-when-to-leave today-only)) 574 (let* ((then (timeclock-when-to-leave today-only))
575 (string 575 (string
diff --git a/lisp/calendar/todo-mode.el b/lisp/calendar/todo-mode.el
index 4c59e2634ae..b0c7f125982 100644
--- a/lisp/calendar/todo-mode.el
+++ b/lisp/calendar/todo-mode.el
@@ -31,7 +31,7 @@
31;; TODO is a major mode for EMACS which offers functionality to 31;; TODO is a major mode for EMACS which offers functionality to
32;; treat most lines in one buffer as a list of items one has to 32;; treat most lines in one buffer as a list of items one has to
33;; do. There are facilities to add new items, which are 33;; do. There are facilities to add new items, which are
34;; categorised, to edit or even delete items from the buffer. 34;; categorized, to edit or even delete items from the buffer.
35;; The buffer contents are currently compatible with the diary, 35;; The buffer contents are currently compatible with the diary,
36;; so that the list of todo-items will show up in the FANCY diary 36;; so that the list of todo-items will show up in the FANCY diary
37;; mode. 37;; mode.
@@ -536,7 +536,7 @@ Use `todo-categories' instead.")
536 (unless (zerop (buffer-size buf)) 536 (unless (zerop (buffer-size buf))
537 (and (null todo-categories) 537 (and (null todo-categories)
538 (null todo-cats) 538 (null todo-cats)
539 (error "Error in %s: File is non-empty but contains no category" 539 (error "Error in %s: File is non-empty but contains no category"
540 todo-file-do))) 540 todo-file-do)))
541 (unless cat (setq cat (read-from-minibuffer prompt))) 541 (unless cat (setq cat (read-from-minibuffer prompt)))
542 (with-current-buffer buf 542 (with-current-buffer buf
diff --git a/lisp/cedet/ChangeLog b/lisp/cedet/ChangeLog
index 2dc345b45da..e5969a3c291 100644
--- a/lisp/cedet/ChangeLog
+++ b/lisp/cedet/ChangeLog
@@ -1,3 +1,21 @@
12011-11-16 Juanma Barranquero <lekktu@gmail.com>
2
3 * semantic/lex.el (semantic-lex-tokens):
4 * semantic/tag-ls.el (semantic-tag-protected-p):
5 * srecode/mode.el (srecode-prefix-map): Fix typos.
6
72011-11-15 Juanma Barranquero <lekktu@gmail.com>
8
9 * ede/project-am.el (project-compile-target-command): Fix typo.
10
112011-11-14 Juanma Barranquero <lekktu@gmail.com>
12
13 * ede/auto.el (ede-project-autoload):
14 * ede/proj-comp.el (ede-makefile-rule):
15 * semantic/analyze.el (semantic-analyze-current-context):
16 * semantic/ctxt.el (semantic-get-local-variables):
17 * semantic/tag-ls.el (semantic-tag-calculate-parent): Fix typos.
18
12011-11-03 David Engster <dengste@eml.cc> 192011-11-03 David Engster <dengste@eml.cc>
2 20
3 * srecode.el: 21 * srecode.el:
@@ -444,7 +462,7 @@
444 * semantic/decorate/include.el 462 * semantic/decorate/include.el
445 (semantic-decoration-on-unknown-includes): Change light bgcolor. 463 (semantic-decoration-on-unknown-includes): Change light bgcolor.
446 (semantic-decoration-on-includes-highlight-default): Check that 464 (semantic-decoration-on-includes-highlight-default): Check that
447 the include tag has a postion. 465 the include tag has a position.
448 466
449 * semantic/complete.el (semantic-collector-local-members): 467 * semantic/complete.el (semantic-collector-local-members):
450 (semantic-complete-read-tag-local-members) 468 (semantic-complete-read-tag-local-members)
@@ -547,7 +565,7 @@
547 (semantic-analyzer-debug-missing-innertype): Change "prefix" to 565 (semantic-analyzer-debug-missing-innertype): Change "prefix" to
548 "symbol" in messages. 566 "symbol" in messages.
549 567
550 * semantic/analyze/refs.el: (semantic-analyze-refs-impl) 568 * semantic/analyze/refs.el (semantic-analyze-refs-impl)
551 (semantic-analyze-refs-proto): When calculating value, make sure 569 (semantic-analyze-refs-proto): When calculating value, make sure
552 the found tag is 'similar' to the originating tag. 570 the found tag is 'similar' to the originating tag.
553 (semantic--analyze-refs-find-tags-with-parent): Attempt to 571 (semantic--analyze-refs-find-tags-with-parent): Attempt to
diff --git a/lisp/cedet/cedet.el b/lisp/cedet/cedet.el
index d2fb066515b..d7645bc97ed 100644
--- a/lisp/cedet/cedet.el
+++ b/lisp/cedet/cedet.el
@@ -75,7 +75,7 @@
75This is used by `semantic-mode' and `global-ede-mode'.") 75This is used by `semantic-mode' and `global-ede-mode'.")
76 76
77(defun cedet-version () 77(defun cedet-version ()
78 "Display all active versions of CEDET and Dependant packages. 78 "Display all active versions of CEDET and Dependent packages.
79 79
80The PACKAGE column is the name of a given package from CEDET. 80The PACKAGE column is the name of a given package from CEDET.
81 81
diff --git a/lisp/cedet/data-debug.el b/lisp/cedet/data-debug.el
index cd910f35a6a..e50e9993af0 100644
--- a/lisp/cedet/data-debug.el
+++ b/lisp/cedet/data-debug.el
@@ -955,7 +955,7 @@ we move to."
955 955
956(defun data-debug-line-expandable-p () 956(defun data-debug-line-expandable-p ()
957 "Return non-nil if the current line is expandable. 957 "Return non-nil if the current line is expandable.
958Lines that are not expandable are assumed to not be contractable." 958Lines that are not expandable are assumed to not be contractible."
959 (not (get-text-property (point) 'ddebug-noexpand))) 959 (not (get-text-property (point) 'ddebug-noexpand)))
960 960
961(defun data-debug-expand-current-line () 961(defun data-debug-expand-current-line ()
diff --git a/lisp/cedet/ede.el b/lisp/cedet/ede.el
index 14f09517b1d..987351a25e0 100644
--- a/lisp/cedet/ede.el
+++ b/lisp/cedet/ede.el
@@ -909,7 +909,7 @@ Optional ROOTRETURN will return the root project for DIR."
909 ;; recomment as we go 909 ;; recomment as we go
910 ;;nil 910 ;;nil
911 )) 911 ))
912 ;; Do nothing if we are buiding an EDE project already 912 ;; Do nothing if we are building an EDE project already.
913 (ede-constructing 913 (ede-constructing
914 nil) 914 nil)
915 ;; Load in the project in question. 915 ;; Load in the project in question.
diff --git a/lisp/cedet/ede/auto.el b/lisp/cedet/ede/auto.el
index 09535ffce6b..d08ab543b82 100644
--- a/lisp/cedet/ede/auto.el
+++ b/lisp/cedet/ede/auto.el
@@ -49,7 +49,7 @@ routine instead.")
49 :documentation 49 :documentation
50 "Initializers passed to the project object. 50 "Initializers passed to the project object.
51These are used so there can be multiple types of projects 51These are used so there can be multiple types of projects
52associated with a single object class, based on the initilizeres used.") 52associated with a single object class, based on the initializers used.")
53 (load-type :initarg :load-type 53 (load-type :initarg :load-type
54 :documentation "Fn symbol used to load this project file.") 54 :documentation "Fn symbol used to load this project file.")
55 (class-sym :initarg :class-sym 55 (class-sym :initarg :class-sym
diff --git a/lisp/cedet/ede/custom.el b/lisp/cedet/ede/custom.el
index fed1a1b2155..ac0907e8e7f 100644
--- a/lisp/cedet/ede/custom.el
+++ b/lisp/cedet/ede/custom.el
@@ -40,7 +40,7 @@
40 40
41;;; Customization Commands 41;;; Customization Commands
42;; 42;;
43;; These commands initialize custoization of EDE control objects. 43;; These commands initialize customization of EDE control objects.
44 44
45;;;###autoload 45;;;###autoload
46(defun ede-customize-project () 46(defun ede-customize-project ()
diff --git a/lisp/cedet/ede/emacs.el b/lisp/cedet/ede/emacs.el
index b8759dd06ee..c1ca8b69208 100644
--- a/lisp/cedet/ede/emacs.el
+++ b/lisp/cedet/ede/emacs.el
@@ -63,7 +63,7 @@ DIR is the directory to search from."
63 (if proj 63 (if proj
64 (ede-up-directory (file-name-directory 64 (ede-up-directory (file-name-directory
65 (oref proj :file))) 65 (oref proj :file)))
66 ;; No pre-existing project. Lets take a wild-guess if we have 66 ;; No pre-existing project. Let's take a wild-guess if we have
67 ;; an Emacs project here. 67 ;; an Emacs project here.
68 (when (string-match "emacs[^/]*" dir) 68 (when (string-match "emacs[^/]*" dir)
69 (let ((base (substring dir 0 (match-end 0)))) 69 (let ((base (substring dir 0 (match-end 0))))
@@ -121,7 +121,7 @@ Return nil if there isn't one.
121Argument DIR is the directory it is created for. 121Argument DIR is the directory it is created for.
122ROOTPROJ is nil, since there is only one project." 122ROOTPROJ is nil, since there is only one project."
123 (or (ede-emacs-file-existing dir) 123 (or (ede-emacs-file-existing dir)
124 ;; Doesn't already exist, so lets make one. 124 ;; Doesn't already exist, so let's make one.
125 (let* ((vertuple (ede-emacs-version dir))) 125 (let* ((vertuple (ede-emacs-version dir)))
126 (ede-emacs-project (car vertuple) 126 (ede-emacs-project (car vertuple)
127 :name (car vertuple) 127 :name (car vertuple)
diff --git a/lisp/cedet/ede/files.el b/lisp/cedet/ede/files.el
index 3d165c39016..6179d304464 100644
--- a/lisp/cedet/ede/files.el
+++ b/lisp/cedet/ede/files.el
@@ -101,7 +101,7 @@ of the anchor file for the project."
101 (setq ans SP) 101 (setq ans SP)
102 (ede-find-subproject-for-directory SP dir))))) 102 (ede-find-subproject-for-directory SP dir)))))
103 ans) 103 ans)
104 ;; We can use inodes, so lets try it. 104 ;; We can use inodes, so let's try it.
105 (let ((ans nil) 105 (let ((ans nil)
106 (inode (ede--inode-for-dir dir))) 106 (inode (ede--inode-for-dir dir)))
107 (ede-map-subprojects 107 (ede-map-subprojects
diff --git a/lisp/cedet/ede/generic.el b/lisp/cedet/ede/generic.el
index 7eef0a4121e..7efe534a640 100644
--- a/lisp/cedet/ede/generic.el
+++ b/lisp/cedet/ede/generic.el
@@ -46,7 +46,7 @@
46;; Since these projects are all so increadibly generic, a user will 46;; Since these projects are all so increadibly generic, a user will
47;; need to configure some aspects of the project by hand. In order to 47;; need to configure some aspects of the project by hand. In order to
48;; enable this without configuring the project objects directly (which 48;; enable this without configuring the project objects directly (which
49;; are auto-generated) a special ede-generic-confg object is defined to 49;; are auto-generated) a special ede-generic-config object is defined to
50;; hold the basics. Generic projects will identify and use these 50;; hold the basics. Generic projects will identify and use these
51;; config files. 51;; config files.
52;; 52;;
@@ -70,7 +70,7 @@
70;; subclasses `ede-generic-target'. The slots `shortname' and 70;; subclasses `ede-generic-target'. The slots `shortname' and
71;; `extension' should be given new initial values. 71;; `extension' should be given new initial values.
72;; 72;;
73;; Optionally, any target method used by EDE can then be overriden. 73;; Optionally, any target method used by EDE can then be overridden.
74;; The ede-generic-target-c-cpp has some example methods setting up 74;; The ede-generic-target-c-cpp has some example methods setting up
75;; the pre-processor map and system include path. 75;; the pre-processor map and system include path.
76;; 76;;
@@ -105,7 +105,7 @@
105 :group (default build) 105 :group (default build)
106 :documentation 106 :documentation
107 "Command used for debugging this project.") 107 "Command used for debugging this project.")
108 ;; C target customixations 108 ;; C target customizations
109 (c-include-path :initarg :c-include-path 109 (c-include-path :initarg :c-include-path
110 :initform nil 110 :initform nil
111 :type list 111 :type list
@@ -133,7 +133,7 @@
133Return nil if there isn't one. 133Return nil if there isn't one.
134Argument DIR is the directory it is created for. 134Argument DIR is the directory it is created for.
135ROOTPROJ is nil, since there is only one project." 135ROOTPROJ is nil, since there is only one project."
136 ;; Doesn't already exist, so lets make one. 136 ;; Doesn't already exist, so let's make one.
137 (let* ((alobj ede-constructing) 137 (let* ((alobj ede-constructing)
138 (this nil)) 138 (this nil))
139 (when (not alobj) (error "Cannot load generic project without the autoload instance")) 139 (when (not alobj) (error "Cannot load generic project without the autoload instance"))
@@ -249,7 +249,7 @@ All directories need at least one target.")
249 "EDE Generic Project target for Misc files. 249 "EDE Generic Project target for Misc files.
250All directories need at least one target.") 250All directories need at least one target.")
251 251
252;;; Automatic target aquisition. 252;;; Automatic target acquisition.
253(defun ede-generic-find-matching-target (class dir targets) 253(defun ede-generic-find-matching-target (class dir targets)
254 "Find a target that is a CLASS and is in DIR in the list of TARGETS." 254 "Find a target that is a CLASS and is in DIR in the list of TARGETS."
255 (let ((match nil)) 255 (let ((match nil))
diff --git a/lisp/cedet/ede/linux.el b/lisp/cedet/ede/linux.el
index e11286c710e..0ed9c3054ef 100644
--- a/lisp/cedet/ede/linux.el
+++ b/lisp/cedet/ede/linux.el
@@ -62,7 +62,7 @@ DIR is the directory to search from."
62 (if proj 62 (if proj
63 (ede-up-directory (file-name-directory 63 (ede-up-directory (file-name-directory
64 (oref proj :file))) 64 (oref proj :file)))
65 ;; No pre-existing project. Lets take a wild-guess if we have 65 ;; No pre-existing project. Let's take a wild-guess if we have
66 ;; an Linux project here. 66 ;; an Linux project here.
67 (when (string-match "linux[^/]*" dir) 67 (when (string-match "linux[^/]*" dir)
68 (let ((base (substring dir 0 (match-end 0)))) 68 (let ((base (substring dir 0 (match-end 0))))
@@ -101,7 +101,7 @@ Return nil if there isn't one.
101Argument DIR is the directory it is created for. 101Argument DIR is the directory it is created for.
102ROOTPROJ is nil, since there is only one project." 102ROOTPROJ is nil, since there is only one project."
103 (or (ede-linux-file-existing dir) 103 (or (ede-linux-file-existing dir)
104 ;; Doesn't already exist, so lets make one. 104 ;; Doesn't already exist, so let's make one.
105 (ede-linux-project "Linux" 105 (ede-linux-project "Linux"
106 :name "Linux" 106 :name "Linux"
107 :version (ede-linux-version dir) 107 :version (ede-linux-version dir)
diff --git a/lisp/cedet/ede/makefile-edit.el b/lisp/cedet/ede/makefile-edit.el
index 63991c54e7f..718fdf58b11 100644
--- a/lisp/cedet/ede/makefile-edit.el
+++ b/lisp/cedet/ede/makefile-edit.el
@@ -71,7 +71,7 @@
71 (end-of-line) 71 (end-of-line)
72 (= (preceding-char) ?\\))) 72 (= (preceding-char) ?\\)))
73 73
74;;; Programatic editing of a Makefile 74;;; Programmatic editing of a Makefile
75;; 75;;
76(defun makefile-move-to-macro (macro &optional next) 76(defun makefile-move-to-macro (macro &optional next)
77 "Move to the definition of MACRO. Return t if found. 77 "Move to the definition of MACRO. Return t if found.
diff --git a/lisp/cedet/ede/pconf.el b/lisp/cedet/ede/pconf.el
index 08fc98728e1..05290158189 100644
--- a/lisp/cedet/ede/pconf.el
+++ b/lisp/cedet/ede/pconf.el
@@ -149,7 +149,7 @@ don't do it. A value of nil means to just do it.")
149 )))) 149 ))))
150 150
151(defmethod ede-proj-configure-recreate ((this ede-proj-project)) 151(defmethod ede-proj-configure-recreate ((this ede-proj-project))
152 "Delete project THISes configure script and start over." 152 "Delete project THIS's configure script and start over."
153 (if (not (ede-proj-configure-file this)) 153 (if (not (ede-proj-configure-file this))
154 (error "Could not determine configure.ac for %S" (object-name this))) 154 (error "Could not determine configure.ac for %S" (object-name this)))
155 (let ((b (get-file-buffer (ede-proj-configure-file this)))) 155 (let ((b (get-file-buffer (ede-proj-configure-file this))))
diff --git a/lisp/cedet/ede/proj-comp.el b/lisp/cedet/ede/proj-comp.el
index 1a2843f7651..ae5796e042b 100644
--- a/lisp/cedet/ede/proj-comp.el
+++ b/lisp/cedet/ede/proj-comp.el
@@ -149,7 +149,7 @@ belonging to the target name.")
149 :type list 149 :type list
150 :custom (repeat string) 150 :custom (repeat string)
151 :documentation "Scripts to execute. 151 :documentation "Scripts to execute.
152These scripst will be executed in sh (Unless the SHELL variable is overriden). 152These scripts will be executed in sh (Unless the SHELL variable is overridden).
153Do not prefix with TAB. 153Do not prefix with TAB.
154Each individual element of this list can be either a string, or 154Each individual element of this list can be either a string, or
155a lambda function. (The custom element does not yet express that.") 155a lambda function. (The custom element does not yet express that.")
diff --git a/lisp/cedet/ede/proj-elisp.el b/lisp/cedet/ede/proj-elisp.el
index 42a20cc4a1a..66c71063363 100644
--- a/lisp/cedet/ede/proj-elisp.el
+++ b/lisp/cedet/ede/proj-elisp.el
@@ -217,7 +217,7 @@ is found, such as a `-version' variable, or the standard header."
217 (save-excursion 217 (save-excursion
218 (if (file-symlink-p ec) 218 (if (file-symlink-p ec)
219 (progn 219 (progn
220 ;; Desymlinkafy 220 ;; Desymlinkify
221 (rename-file ec (concat ec ".tmp")) 221 (rename-file ec (concat ec ".tmp"))
222 (copy-file (concat ec ".tmp") ec) 222 (copy-file (concat ec ".tmp") ec)
223 (delete-file (concat ec ".tmp")))) 223 (delete-file (concat ec ".tmp"))))
diff --git a/lisp/cedet/ede/proj-misc.el b/lisp/cedet/ede/proj-misc.el
index 4d68e1544a7..1c9b9bea0f4 100644
--- a/lisp/cedet/ede/proj-misc.el
+++ b/lisp/cedet/ede/proj-misc.el
@@ -50,7 +50,7 @@ All listed sources are included in the distribution.")
50 50
51(defvar ede-misc-source 51(defvar ede-misc-source
52 (ede-sourcecode "ede-misc-source" 52 (ede-sourcecode "ede-misc-source"
53 :name "Miscelaneous" 53 :name "Miscellaneous"
54 :sourcepattern ".*") 54 :sourcepattern ".*")
55 "Miscellaneous field definition.") 55 "Miscellaneous field definition.")
56 56
diff --git a/lisp/cedet/ede/project-am.el b/lisp/cedet/ede/project-am.el
index ec54d8151bc..316309092e7 100644
--- a/lisp/cedet/ede/project-am.el
+++ b/lisp/cedet/ede/project-am.el
@@ -428,7 +428,7 @@ Argument COMMAND is the command to use for compiling the target."
428If a given set of projects has already been loaded, then do nothing 428If a given set of projects has already been loaded, then do nothing
429but return the project for the directory given. 429but return the project for the directory given.
430Optional ROOTPROJ is the root EDE project." 430Optional ROOTPROJ is the root EDE project."
431 (let* ((ede-constructiong t) 431 (let* ((ede-constructing t)
432 (amo (object-assoc (expand-file-name "Makefile.am" directory) 432 (amo (object-assoc (expand-file-name "Makefile.am" directory)
433 'file ede-projects))) 433 'file ede-projects)))
434 (when (not amo) 434 (when (not amo)
@@ -659,7 +659,7 @@ Strip out duplicates, and recurse on variables."
659 ;; their object still exists! 659 ;; their object still exists!
660 ;; FIGURE THIS OUT 660 ;; FIGURE THIS OUT
661 (project-am-expand-subdirlist 'csubprojexpanded csubproj) 661 (project-am-expand-subdirlist 'csubprojexpanded csubproj)
662 ;; Ok, now lets look at all our sub-projects. 662 ;; Ok, now let's look at all our sub-projects.
663 (mapc (lambda (sp) 663 (mapc (lambda (sp)
664 (let* ((subdir (file-name-as-directory 664 (let* ((subdir (file-name-as-directory
665 (expand-file-name 665 (expand-file-name
@@ -836,7 +836,7 @@ nil means that this buffer belongs to no-one."
836 (oref this :name)) 836 (oref this :name))
837 837
838(defmethod project-compile-target-command ((this project-am-texinfo)) 838(defmethod project-compile-target-command ((this project-am-texinfo))
839 "Default target t- use when compling a texinfo file." 839 "Default target t- use when compiling a texinfo file."
840 (let ((n (oref this :name))) 840 (let ((n (oref this :name)))
841 (if (string-match "\\.texi?\\(nfo\\)?" n) 841 (if (string-match "\\.texi?\\(nfo\\)?" n)
842 (setq n (replace-match ".info" t t n))) 842 (setq n (replace-match ".info" t t n)))
diff --git a/lisp/cedet/ede/speedbar.el b/lisp/cedet/ede/speedbar.el
index 252ce47df67..fdf61b51b68 100644
--- a/lisp/cedet/ede/speedbar.el
+++ b/lisp/cedet/ede/speedbar.el
@@ -297,7 +297,7 @@ INDENT is the current indentation level."
297 (let ((file (ede-find-nearest-file-line))) 297 (let ((file (ede-find-nearest-file-line)))
298 (speedbar-find-file-in-frame file) 298 (speedbar-find-file-in-frame file)
299 (save-excursion (speedbar-stealthy-updates)) 299 (save-excursion (speedbar-stealthy-updates))
300 ;; Reset the timer with a new timeout when cliking a file 300 ;; Reset the timer with a new timeout when clicking a file
301 ;; in case the user was navigating directories, we can cancel 301 ;; in case the user was navigating directories, we can cancel
302 ;; that other timer. 302 ;; that other timer.
303; (speedbar-set-timer speedbar-update-speed) 303; (speedbar-set-timer speedbar-update-speed)
diff --git a/lisp/cedet/inversion.el b/lisp/cedet/inversion.el
index 71960ddecd4..065ac6d0559 100644
--- a/lisp/cedet/inversion.el
+++ b/lisp/cedet/inversion.el
@@ -419,7 +419,7 @@ INSTALLDIR path."
419 ;;(message "%S added to `load-path'" default-directory) 419 ;;(message "%S added to `load-path'" default-directory)
420 (add-to-list 'load-path default-directory)) 420 (add-to-list 'load-path default-directory))
421 ;; We get to this point iff we do not accept or there is no 421 ;; We get to this point iff we do not accept or there is no
422 ;; system file. Lets check the version of what we just 422 ;; system file. Let's check the version of what we just
423 ;; installed... just to be safe. 423 ;; installed... just to be safe.
424 (let ((newver (inversion-find-version package))) 424 (let ((newver (inversion-find-version package)))
425 (if (not newver) 425 (if (not newver)
diff --git a/lisp/cedet/mode-local.el b/lisp/cedet/mode-local.el
index d077dd95f3c..0e7657642c2 100644
--- a/lisp/cedet/mode-local.el
+++ b/lisp/cedet/mode-local.el
@@ -637,7 +637,7 @@ SYMBOL is a function that can be overridden."
637 637
638(defun mode-local-print-bindings (table) 638(defun mode-local-print-bindings (table)
639 "Print bindings in TABLE." 639 "Print bindings in TABLE."
640 (let (us ;; List of unpecified symbols 640 (let (us ;; List of unspecified symbols
641 mc ;; List of mode local constants 641 mc ;; List of mode local constants
642 mv ;; List of mode local variables 642 mv ;; List of mode local variables
643 ov ;; List of overloaded functions 643 ov ;; List of overloaded functions
@@ -656,7 +656,7 @@ SYMBOL is a function that can be overridden."
656 table) 656 table)
657 ;; Print symbols by type 657 ;; Print symbols by type
658 (when us 658 (when us
659 (princ "\n !! Unpecified symbols\n") 659 (princ "\n !! Unspecified symbols\n")
660 (mapc 'mode-local-print-binding us)) 660 (mapc 'mode-local-print-binding us))
661 (when mc 661 (when mc
662 (princ "\n ** Mode local constants\n") 662 (princ "\n ** Mode local constants\n")
diff --git a/lisp/cedet/semantic.el b/lisp/cedet/semantic.el
index 34d886b6807..639b46ad2cf 100644
--- a/lisp/cedet/semantic.el
+++ b/lisp/cedet/semantic.el
@@ -1015,7 +1015,7 @@ Throw away all the old tags, and recreate the tag database."
1015 :visible semantic-mode 1015 :visible semantic-mode
1016 :button (:toggle . global-semanticdb-minor-mode)))) 1016 :button (:toggle . global-semanticdb-minor-mode))))
1017 1017
1018;; The `semantic-mode' command, in conjuction with the 1018;; The `semantic-mode' command, in conjunction with the
1019;; `semantic-default-submodes' variable, toggles Semantic's various 1019;; `semantic-default-submodes' variable, toggles Semantic's various
1020;; auxiliary minor modes. 1020;; auxiliary minor modes.
1021 1021
diff --git a/lisp/cedet/semantic/analyze.el b/lisp/cedet/semantic/analyze.el
index 5cdd1577a6e..43e998b852e 100644
--- a/lisp/cedet/semantic/analyze.el
+++ b/lisp/cedet/semantic/analyze.el
@@ -106,7 +106,7 @@ called in a dereference sequence.")
106 (prefixclass :initarg :prefixclass 106 (prefixclass :initarg :prefixclass
107 :type list 107 :type list
108 :documentation "Tag classes expected at this context. 108 :documentation "Tag classes expected at this context.
109These are clases for tags, such as 'function, or 'variable.") 109These are classes for tags, such as 'function, or 'variable.")
110 (prefixtypes :initarg :prefixtypes 110 (prefixtypes :initarg :prefixtypes
111 :type list 111 :type list
112 :documentation "List of tags defining types for :prefix. 112 :documentation "List of tags defining types for :prefix.
@@ -287,7 +287,7 @@ Optional argument THROWSYM specifies a symbol the throw on non-recoverable error
287 287
288 ;; For the middle entries 288 ;; For the middle entries
289 (while s 289 (while s
290 ;; Using the tag found in TMP, lets find the tag 290 ;; Using the tag found in TMP, let's find the tag
291 ;; representing the full typeographic information of its 291 ;; representing the full typeographic information of its
292 ;; type, and use that to determine the search context for 292 ;; type, and use that to determine the search context for
293 ;; (car s) 293 ;; (car s)
@@ -302,7 +302,7 @@ Optional argument THROWSYM specifies a symbol the throw on non-recoverable error
302 (mapcar 'semantic-tag-type-members 302 (mapcar 'semantic-tag-type-members
303 tagtype)))) 303 tagtype))))
304 (oset miniscope fullscope rawscope))) 304 (oset miniscope fullscope rawscope)))
305 ;; Now analayze the type to remove metatypes. 305 ;; Now analyze the type to remove metatypes.
306 (or (semantic-analyze-type tmp miniscope) 306 (or (semantic-analyze-type tmp miniscope)
307 tmp)) 307 tmp))
308 (t 308 (t
@@ -476,7 +476,7 @@ If called interactively, display interesting information about POSITION
476in a separate buffer. 476in a separate buffer.
477Returns an object based on symbol `semantic-analyze-context'. 477Returns an object based on symbol `semantic-analyze-context'.
478 478
479This function can be overriden with the symbol `analyze-context'. 479This function can be overridden with the symbol `analyze-context'.
480When overriding this function, your override will be called while 480When overriding this function, your override will be called while
481cursor is at POSITION. In addition, your function will not be called 481cursor is at POSITION. In addition, your function will not be called
482if a cached copy of the return object is found." 482if a cached copy of the return object is found."
diff --git a/lisp/cedet/semantic/analyze/complete.el b/lisp/cedet/semantic/analyze/complete.el
index ae993a743d6..89937f45ec8 100644
--- a/lisp/cedet/semantic/analyze/complete.el
+++ b/lisp/cedet/semantic/analyze/complete.el
@@ -188,7 +188,7 @@ FLAGS can be any number of:
188 ;; Reset c. 188 ;; Reset c.
189 (setq c nil) 189 (setq c nil)
190 190
191 ;; Loop over all the found matches, and catagorize them 191 ;; Loop over all the found matches, and categorize them
192 ;; as being possible features. 192 ;; as being possible features.
193 (while (and loopc do-typeconstraint) 193 (while (and loopc do-typeconstraint)
194 194
diff --git a/lisp/cedet/semantic/bovine.el b/lisp/cedet/semantic/bovine.el
index 1dfbb72d416..036a6f38724 100644
--- a/lisp/cedet/semantic/bovine.el
+++ b/lisp/cedet/semantic/bovine.el
@@ -240,7 +240,7 @@ list of semantic tokens found."
240 matchlist nil) ;;generate exit condition 240 matchlist nil) ;;generate exit condition
241 (if (not end) 241 (if (not end)
242 (setq out nil))) 242 (setq out nil)))
243 ;; Nothin? 243 ;; Nothing?
244 )) 244 ))
245 (setq result 245 (setq result
246 (if (eq s starting-stream) 246 (if (eq s starting-stream)
diff --git a/lisp/cedet/semantic/bovine/c.el b/lisp/cedet/semantic/bovine/c.el
index 0b3e6881891..d8b004df1bd 100644
--- a/lisp/cedet/semantic/bovine/c.el
+++ b/lisp/cedet/semantic/bovine/c.el
@@ -240,7 +240,7 @@ Return the defined symbol as a special spp lex token."
240 (goto-char (match-end 0)) 240 (goto-char (match-end 0))
241 (looking-at "("))) 241 (looking-at "(")))
242 (semantic-lex-spp-replacements-enabled nil) 242 (semantic-lex-spp-replacements-enabled nil)
243 ;; Temporarilly override the lexer to include 243 ;; Temporarily override the lexer to include
244 ;; special items needed inside a macro 244 ;; special items needed inside a macro
245 (semantic-lex-analyzer #'semantic-cpp-lexer) 245 (semantic-lex-analyzer #'semantic-cpp-lexer)
246 (raw-stream 246 (raw-stream
@@ -249,7 +249,7 @@ Return the defined symbol as a special spp lex token."
249 (point)))) 249 (point))))
250 ) 250 )
251 251
252 ;; Only do argument checking if the paren was immediatly after 252 ;; Only do argument checking if the paren was immediately after
253 ;; the macro name. 253 ;; the macro name.
254 (if with-args 254 (if with-args
255 (semantic-lex-spp-first-token-arg-list (car raw-stream))) 255 (semantic-lex-spp-first-token-arg-list (car raw-stream)))
@@ -1092,7 +1092,7 @@ Optional argument STAR and REF indicate the number of * and & in the typedef."
1092 ;; `throws' as a common name for things that toss 1092 ;; `throws' as a common name for things that toss
1093 ;; exceptions about. 1093 ;; exceptions about.
1094 :throws (nth 5 tokenpart) 1094 :throws (nth 5 tokenpart)
1095 ;; Reemtrant is a C++ thingy. Add it here 1095 ;; Reentrant is a C++ thingy. Add it here
1096 :reentrant-flag (if (member "reentrant" (nth 6 tokenpart)) t) 1096 :reentrant-flag (if (member "reentrant" (nth 6 tokenpart)) t)
1097 ;; A function post-const is funky. Try stuff 1097 ;; A function post-const is funky. Try stuff
1098 :methodconst-flag (if (member "const" (nth 6 tokenpart)) t) 1098 :methodconst-flag (if (member "const" (nth 6 tokenpart)) t)
@@ -1128,7 +1128,7 @@ Optional PARENT and COLOR are ignored."
1128 1128
1129(define-mode-local-override semantic-format-tag-canonical-name 1129(define-mode-local-override semantic-format-tag-canonical-name
1130 c-mode (tag &optional parent color) 1130 c-mode (tag &optional parent color)
1131 "Create a cannonical name for TAG. 1131 "Create a canonical name for TAG.
1132PARENT specifies a parent class. 1132PARENT specifies a parent class.
1133COLOR indicates that the text should be type colorized. 1133COLOR indicates that the text should be type colorized.
1134Enhances the base class to search for the entire parent 1134Enhances the base class to search for the entire parent
diff --git a/lisp/cedet/semantic/bovine/el.el b/lisp/cedet/semantic/bovine/el.el
index cfdd4cf6f6c..2151e9ef53b 100644
--- a/lisp/cedet/semantic/bovine/el.el
+++ b/lisp/cedet/semantic/bovine/el.el
@@ -463,7 +463,7 @@ Return a bovination list to use."
463 ;; Try an Emacs 22 fcn. This throws errors. 463 ;; Try an Emacs 22 fcn. This throws errors.
464 (find-library-name (semantic-tag-name tag)) 464 (find-library-name (semantic-tag-name tag))
465 (error 465 (error
466 (message "semantic: connot find source file %s" 466 (message "semantic: cannot find source file %s"
467 (semantic-tag-name tag)))) 467 (semantic-tag-name tag))))
468 ;; No handy function available. (Older Emacsen) 468 ;; No handy function available. (Older Emacsen)
469 (let* ((lib (locate-library (semantic-tag-name tag))) 469 (let* ((lib (locate-library (semantic-tag-name tag)))
@@ -515,7 +515,7 @@ Optional argument NOSNARF is ignored."
515 (let ((d (semantic-tag-docstring tag))) 515 (let ((d (semantic-tag-docstring tag)))
516 (when (not d) 516 (when (not d)
517 (cond ((semantic-tag-with-position-p tag) 517 (cond ((semantic-tag-with-position-p tag)
518 ;; Doc isn't in the tag itself. Lets pull it out of the 518 ;; Doc isn't in the tag itself. Let's pull it out of the
519 ;; sources. 519 ;; sources.
520 (let ((semantic-elisp-store-documentation-in-tag t)) 520 (let ((semantic-elisp-store-documentation-in-tag t))
521 (setq tag (with-current-buffer (semantic-tag-buffer tag) 521 (setq tag (with-current-buffer (semantic-tag-buffer tag)
@@ -534,9 +534,9 @@ Optional argument NOSNARF is ignored."
534 (t 534 (t
535 (setq d (documentation-property 535 (setq d (documentation-property
536 sym 'variable-documentation))))) 536 sym 'variable-documentation)))))
537 ;; Label it as system doc.. perhaps just for debugging 537 ;; Label it as system doc. perhaps just for debugging
538 ;; purposes. 538 ;; purposes.
539 (if d (setq d (concat "Sytem Doc: \n" d))) 539 (if d (setq d (concat "System Doc: \n" d)))
540 )) 540 ))
541 ) 541 )
542 542
@@ -823,7 +823,7 @@ In Emacs Lisp this is easily defined by parenthesis bounding."
823 (&optional point) 823 (&optional point)
824 "Return a list of tag classes allowed at POINT. 824 "Return a list of tag classes allowed at POINT.
825Emacs Lisp knows much more about the class of the tag needed to perform 825Emacs Lisp knows much more about the class of the tag needed to perform
826completion than some languages. We distincly know if we are to be a 826completion than some languages. We distinctly know if we are to be a
827function name, variable name, or any type of symbol. We could identify 827function name, variable name, or any type of symbol. We could identify
828fields and such to, but that is for some other day." 828fields and such to, but that is for some other day."
829 (save-excursion 829 (save-excursion
diff --git a/lisp/cedet/semantic/complete.el b/lisp/cedet/semantic/complete.el
index 18c7b5a1a50..41a569564d0 100644
--- a/lisp/cedet/semantic/complete.el
+++ b/lisp/cedet/semantic/complete.el
@@ -54,7 +54,7 @@
54;; 54;;
55;; Here, we will treat each section separately (excluding D) 55;; Here, we will treat each section separately (excluding D)
56;; They can then be strung together in user-visible commands to 56;; They can then be strung together in user-visible commands to
57;; fulfil specific needs. 57;; fulfill specific needs.
58;; 58;;
59;; COLLECTORS: 59;; COLLECTORS:
60;; 60;;
@@ -891,7 +891,7 @@ making the action of homing in on a token faster.")
891This completion is calculated and saved for future use.") 891This completion is calculated and saved for future use.")
892 (last-whitespace-completion :type (or null string) 892 (last-whitespace-completion :type (or null string)
893 :documentation "The last whitespace completion. 893 :documentation "The last whitespace completion.
894For partial completion, SPC will disabiguate over whitespace type 894For partial completion, SPC will disambiguate over whitespace type
895characters. This is the last calculated version.") 895characters. This is the last calculated version.")
896 (current-exact-match :type list 896 (current-exact-match :type list
897 :protection :protected 897 :protection :protected
@@ -1353,7 +1353,7 @@ to click on the items to aid in completion.")
1353(defmethod semantic-displayor-show-request ((obj semantic-displayor-traditional)) 1353(defmethod semantic-displayor-show-request ((obj semantic-displayor-traditional))
1354 "A request to show the current tags table." 1354 "A request to show the current tags table."
1355 1355
1356 ;; NOTE TO SELF. Find the character to type next, and emphesize it. 1356 ;; NOTE TO SELF. Find the character to type next, and emphasize it.
1357 1357
1358 (with-output-to-temp-buffer "*Completions*" 1358 (with-output-to-temp-buffer "*Completions*"
1359 (display-completion-list 1359 (display-completion-list
@@ -1377,7 +1377,7 @@ given tag, by highlighting its location.")
1377 ) 1377 )
1378 "Abstract displayor supporting `focus'. 1378 "Abstract displayor supporting `focus'.
1379A displayor which has the ability to focus in on one tag. 1379A displayor which has the ability to focus in on one tag.
1380Focusing is a way of differentiationg between multiple tags 1380Focusing is a way of differentiating among multiple tags
1381which have the same name." 1381which have the same name."
1382 :abstract t) 1382 :abstract t)
1383 1383
@@ -1618,7 +1618,7 @@ Display mechanism using tooltip for a list of possible completions.")
1618 (string= (this-command-keys) "\C-i")) 1618 (string= (this-command-keys) "\C-i"))
1619 (oset obj typing-count (1+ typing-count))) 1619 (oset obj typing-count (1+ typing-count)))
1620 ;; At this point, we know we have too many items. 1620 ;; At this point, we know we have too many items.
1621 ;; Lets be brave, and truncate l 1621 ;; Let's be brave, and truncate l
1622 (setcdr (nthcdr (oref obj max-tags) l) nil) 1622 (setcdr (nthcdr (oref obj max-tags) l) nil)
1623 (setq msg (mapconcat 'identity l "\n")) 1623 (setq msg (mapconcat 'identity l "\n"))
1624 (cond 1624 (cond
diff --git a/lisp/cedet/semantic/ctxt.el b/lisp/cedet/semantic/ctxt.el
index 2eddfdc1c8e..4fef5937bc3 100644
--- a/lisp/cedet/semantic/ctxt.el
+++ b/lisp/cedet/semantic/ctxt.el
@@ -154,7 +154,7 @@ Return non-nil if there is no upper context."
154(define-overloadable-function semantic-get-local-variables (&optional point) 154(define-overloadable-function semantic-get-local-variables (&optional point)
155 "Get the local variables based on POINT's context. 155 "Get the local variables based on POINT's context.
156Local variables are returned in Semantic tag format. 156Local variables are returned in Semantic tag format.
157This can be overriden with `get-local-variables'." 157This can be overridden with `get-local-variables'."
158 ;; Disable parsing messages 158 ;; Disable parsing messages
159 (let ((semantic--progress-reporter nil)) 159 (let ((semantic--progress-reporter nil))
160 (save-excursion 160 (save-excursion
@@ -410,7 +410,7 @@ Depends on `semantic-type-relation-separator-character'."
410 ;; Set our end point. 410 ;; Set our end point.
411 (setq end (point)) 411 (setq end (point))
412 412
413 ;; Now that we have gotten started, lets do the rest. 413 ;; Now that we have gotten started, let's do the rest.
414 (condition-case nil 414 (condition-case nil
415 (while (save-excursion 415 (while (save-excursion
416 (forward-char -1) 416 (forward-char -1)
diff --git a/lisp/cedet/semantic/db-ebrowse.el b/lisp/cedet/semantic/db-ebrowse.el
index d719fde3174..fe5f3c193df 100644
--- a/lisp/cedet/semantic/db-ebrowse.el
+++ b/lisp/cedet/semantic/db-ebrowse.el
@@ -219,7 +219,7 @@ warn instead."
219 219
220;JAVE this just instantiates a default empty ebrowse struct? 220;JAVE this just instantiates a default empty ebrowse struct?
221; how would new instances wind up here? 221; how would new instances wind up here?
222; the ebrowse class isnt singleton, unlike the emacs lisp one 222; the ebrowse class isn't singleton, unlike the emacs lisp one
223(defvar-mode-local c++-mode semanticdb-project-system-databases 223(defvar-mode-local c++-mode semanticdb-project-system-databases
224 () 224 ()
225 "Search Ebrowse for symbols.") 225 "Search Ebrowse for symbols.")
@@ -296,7 +296,7 @@ If there is no database for DIRECTORY available, then
296 (when (string= (oref (car dbs) reference-directory) directory) 296 (when (string= (oref (car dbs) reference-directory) directory)
297 (setq found (car dbs)))) 297 (setq found (car dbs))))
298 (setq dbs (cdr dbs))) 298 (setq dbs (cdr dbs)))
299 ;;STATIC means DBE cant be used as object, only as a class 299 ;;STATIC means DBE can't be used as object, only as a class
300 (let* ((ebrowse-data (semanticdb-ebrowse-get-ebrowse-structure directory)) 300 (let* ((ebrowse-data (semanticdb-ebrowse-get-ebrowse-structure directory))
301 (dat (car (cdr ebrowse-data))) 301 (dat (car (cdr ebrowse-data)))
302 (ebd (car dat)) 302 (ebd (car dat))
@@ -331,7 +331,7 @@ If there is no database for DIRECTORY available, then
331;JAVE what it actually seems to do is split the original tree in "tables" associated with files 331;JAVE what it actually seems to do is split the original tree in "tables" associated with files
332; im not sure it actually works: 332; im not sure it actually works:
333; the filename slot sometimes gets to be nil, 333; the filename slot sometimes gets to be nil,
334; apparently for classes which definition cant be found, yet needs to be included in the tree 334; apparently for classes which definition can't be found, yet needs to be included in the tree
335; like library baseclasses 335; like library baseclasses
336; a file can define several classes 336; a file can define several classes
337 (let ((T (car (cdr data))));1st comes a header, then the tree 337 (let ((T (car (cdr data))));1st comes a header, then the tree
diff --git a/lisp/cedet/semantic/db-file.el b/lisp/cedet/semantic/db-file.el
index 661bc8d6841..943ccf23031 100644
--- a/lisp/cedet/semantic/db-file.el
+++ b/lisp/cedet/semantic/db-file.el
@@ -289,7 +289,7 @@ Argument OBJ is the object to write."
289 (when (and (boundp semantic-show-unmatched-syntax-mode) 289 (when (and (boundp semantic-show-unmatched-syntax-mode)
290 semantic-show-unmatched-syntax-mode) 290 semantic-show-unmatched-syntax-mode)
291 ;; Only do this if the user runs unmatched syntax 291 ;; Only do this if the user runs unmatched syntax
292 ;; mode display enties. 292 ;; mode display entries.
293 (oset obj unmatched-syntax 293 (oset obj unmatched-syntax
294 (semantic-show-unmatched-lex-tokens-fetch)) 294 (semantic-show-unmatched-lex-tokens-fetch))
295 ) 295 )
diff --git a/lisp/cedet/semantic/db-find.el b/lisp/cedet/semantic/db-find.el
index 34718d1fdd2..35aef5d16ef 100644
--- a/lisp/cedet/semantic/db-find.el
+++ b/lisp/cedet/semantic/db-find.el
@@ -862,7 +862,7 @@ instead."
862 (let ((tab (car (car tmp))) 862 (let ((tab (car (car tmp)))
863 (tags (cdr (car tmp)))) 863 (tags (cdr (car tmp))))
864 (dolist (T tags) 864 (dolist (T tags)
865 ;; Normilzation gives specialty database tables a chance 865 ;; Normalization gives specialty database tables a chance
866 ;; to convert into a more stable tag format. 866 ;; to convert into a more stable tag format.
867 (let* ((norm (semanticdb-normalize-one-tag tab T)) 867 (let* ((norm (semanticdb-normalize-one-tag tab T))
868 (ntab (car norm)) 868 (ntab (car norm))
@@ -918,7 +918,7 @@ but should be good enough for debugging assertions."
918 result 918 result
919 " ") 919 " ")
920 ">") 920 ">")
921 ;; Longer results should have an abreviated form. 921 ;; Longer results should have an abbreviated form.
922 (format "#<FIND RESULT %d TAGS in %d FILES>" 922 (format "#<FIND RESULT %d TAGS in %d FILES>"
923 (semanticdb-find-result-length result) 923 (semanticdb-find-result-length result)
924 (length result)))) 924 (length result))))
diff --git a/lisp/cedet/semantic/db-typecache.el b/lisp/cedet/semantic/db-typecache.el
index 0096c1aab09..a4c4bd99f26 100644
--- a/lisp/cedet/semantic/db-typecache.el
+++ b/lisp/cedet/semantic/db-typecache.el
@@ -97,7 +97,7 @@ Said object must support `semantic-reset' methods.")
97 (when (semantic-find-tags-by-class 'type new-tags) 97 (when (semantic-find-tags-by-class 'type new-tags)
98 ;; Reset our index 98 ;; Reset our index
99 (oset tc filestream nil) 99 (oset tc filestream nil)
100 t ;; Return true, our core file tags have changed in a relavant way. 100 t ;; Return true, our core file tags have changed in a relevant way.
101 ) 101 )
102 102
103 ;; NO CODE HERE 103 ;; NO CODE HERE
@@ -368,7 +368,7 @@ a master list."
368 (semanticdb-typecache-merge-streams 368 (semanticdb-typecache-merge-streams
369 incstream 369 incstream
370 ;; Getting the cache from this table will also cause this 370 ;; Getting the cache from this table will also cause this
371 ;; file to update it's cache from it's decendants. 371 ;; file to update its cache from its decendents.
372 ;; 372 ;;
373 ;; In theory, caches are only built for most includes 373 ;; In theory, caches are only built for most includes
374 ;; only once (in the loop before this one), so this ends 374 ;; only once (in the loop before this one), so this ends
@@ -473,7 +473,7 @@ found tag to be loaded."
473 ;; find a type/namespace because everything else is excluded. 473 ;; find a type/namespace because everything else is excluded.
474 474
475 ;; If this is not the last entry from the list, then it 475 ;; If this is not the last entry from the list, then it
476 ;; must be a type or a namespace. Lets double check. 476 ;; must be a type or a namespace. Let's double check.
477 (when (cdr type) 477 (when (cdr type)
478 478
479 ;; From above, there is only one tag in ans, and we prefer 479 ;; From above, there is only one tag in ans, and we prefer
@@ -511,7 +511,7 @@ found tag to be loaded."
511 ;; This won't liven up the tag since we have a copy, but 511 ;; This won't liven up the tag since we have a copy, but
512 ;; we ought to be able to get there and go to the right line. 512 ;; we ought to be able to get there and go to the right line.
513 (find-file-noselect lastfile) 513 (find-file-noselect lastfile)
514 ;; We don't want to find-file match, so instead lets 514 ;; We don't want to find-file match, so instead let's
515 ;; push the filename onto the return tag. 515 ;; push the filename onto the return tag.
516 (when lastans 516 (when lastans
517 (setq lastans (semantic-tag-copy lastans nil lastfile)) 517 (setq lastans (semantic-tag-copy lastans nil lastfile))
diff --git a/lisp/cedet/semantic/db.el b/lisp/cedet/semantic/db.el
index 65897b96adb..c9013ed8c90 100644
--- a/lisp/cedet/semantic/db.el
+++ b/lisp/cedet/semantic/db.el
@@ -459,7 +459,7 @@ other than :table."
459 (setq cache (cdr cache))) 459 (setq cache (cdr cache)))
460 (if obj 460 (if obj
461 obj ;; Just return it. 461 obj ;; Just return it.
462 ;; No object, lets create a new one and return that. 462 ;; No object, let's create a new one and return that.
463 (setq obj (funcall desired-class "Cache" :table table)) 463 (setq obj (funcall desired-class "Cache" :table table))
464 (object-add-to-list table 'cache obj) 464 (object-add-to-list table 'cache obj)
465 obj))) 465 obj)))
@@ -510,7 +510,7 @@ other than :table."
510 (setq cache (cdr cache))) 510 (setq cache (cdr cache)))
511 (if obj 511 (if obj
512 obj ;; Just return it. 512 obj ;; Just return it.
513 ;; No object, lets create a new one and return that. 513 ;; No object, let's create a new one and return that.
514 (setq obj (funcall desired-class "Cache" :db db)) 514 (setq obj (funcall desired-class "Cache" :db db))
515 (object-add-to-list db 'cache obj) 515 (object-add-to-list db 'cache obj)
516 obj))) 516 obj)))
@@ -606,7 +606,7 @@ The file associated with OBJ does not need to be in a buffer."
606 ;; The lexical table should be good too. 606 ;; The lexical table should be good too.
607 (when (featurep 'semantic/lex-spp) 607 (when (featurep 'semantic/lex-spp)
608 (oset table lexical-table (semantic-lex-spp-save-table))) 608 (oset table lexical-table (semantic-lex-spp-save-table)))
609 ;; this implies dirtyness 609 ;; this implies dirtiness
610 (semanticdb-set-dirty table) 610 (semanticdb-set-dirty table)
611 611
612 ;; Synchronize the index 612 ;; Synchronize the index
@@ -941,7 +941,7 @@ DONTLOAD does not affect the creation of new database objects."
941 (setq fullfile (file-truename file)) 941 (setq fullfile (file-truename file))
942 ) 942 )
943 943
944 ;; If we have a table, but no fullfile, that's ok. Lets get the filename 944 ;; If we have a table, but no fullfile, that's ok. Let's get the filename
945 ;; from the table which is pre-truenamed. 945 ;; from the table which is pre-truenamed.
946 (when (and (not fullfile) tab) 946 (when (and (not fullfile) tab)
947 (setq fullfile (semanticdb-full-filename tab))) 947 (setq fullfile (semanticdb-full-filename tab)))
diff --git a/lisp/cedet/semantic/decorate.el b/lisp/cedet/semantic/decorate.el
index ee356ad3a9e..4eeac8de141 100644
--- a/lisp/cedet/semantic/decorate.el
+++ b/lisp/cedet/semantic/decorate.el
@@ -107,7 +107,7 @@ the extent 'intangible' property does not exist."
107 "Hook used in modification hooks to prevent modification. 107 "Hook used in modification hooks to prevent modification.
108Allows deletion of the entire text. 108Allows deletion of the entire text.
109Argument OVERLAY, AFTER, START, END, and LEN are passed in by the system." 109Argument OVERLAY, AFTER, START, END, and LEN are passed in by the system."
110 ;; Stolen blithly from cpp.el in Emacs 21.1 110 ;; Stolen blithely from cpp.el in Emacs 21.1
111 (if (and (not after) 111 (if (and (not after)
112 (or (< (semantic-overlay-start overlay) start) 112 (or (< (semantic-overlay-start overlay) start)
113 (> (semantic-overlay-end overlay) end))) 113 (> (semantic-overlay-end overlay) end)))
diff --git a/lisp/cedet/semantic/decorate/include.el b/lisp/cedet/semantic/decorate/include.el
index e984965a737..766a13023e8 100644
--- a/lisp/cedet/semantic/decorate/include.el
+++ b/lisp/cedet/semantic/decorate/include.el
@@ -296,7 +296,7 @@ This mode provides a nice context menu on the include statements."
296 ;; Set ourselves up for synchronization 296 ;; Set ourselves up for synchronization
297 (semanticdb-cache-get 297 (semanticdb-cache-get
298 table 'semantic-decoration-unparsed-include-cache) 298 table 'semantic-decoration-unparsed-include-cache)
299 ;; Add a dependancy. 299 ;; Add a dependency.
300 (let ((table semanticdb-current-table)) 300 (let ((table semanticdb-current-table))
301 (semanticdb-add-reference table tag)) 301 (semanticdb-add-reference table tag))
302 ) 302 )
@@ -459,7 +459,7 @@ to add the path to Semantic's search.
459If this is an include file that belongs to your project, then you may 459If this is an include file that belongs to your project, then you may
460need to update `semanticdb-project-roots' or better yet, use `ede' 460need to update `semanticdb-project-roots' or better yet, use `ede'
461to manage your project. See the ede manual for projects that will 461to manage your project. See the ede manual for projects that will
462wrap existing project code for Semantic's benifit. 462wrap existing project code for Semantic's benefit.
463") 463")
464 464
465 (when (or (eq mm 'c++-mode) (eq mm 'c-mode)) 465 (when (or (eq mm 'c++-mode) (eq mm 'c-mode))
@@ -739,7 +739,7 @@ any decorated referring includes.")
739 "Refresh any highlighting in buffers referred to by TABLE. 739 "Refresh any highlighting in buffers referred to by TABLE.
740If TABLE is not in a buffer, do nothing." 740If TABLE is not in a buffer, do nothing."
741 ;; This cache removal may seem odd in that we are "creating one", but 741 ;; This cache removal may seem odd in that we are "creating one", but
742 ;; since we cant get in the fcn unless one exists, this ought to be 742 ;; since we can't get in the fcn unless one exists, this ought to be
743 ;; ok. 743 ;; ok.
744 (let ((c (semanticdb-cache-get 744 (let ((c (semanticdb-cache-get
745 table 'semantic-decoration-unparsed-include-cache))) 745 table 'semantic-decoration-unparsed-include-cache)))
diff --git a/lisp/cedet/semantic/doc.el b/lisp/cedet/semantic/doc.el
index e5579d09113..ec3b5878c63 100644
--- a/lisp/cedet/semantic/doc.el
+++ b/lisp/cedet/semantic/doc.el
@@ -56,7 +56,7 @@ If nosnarf if 'lex, then only return the lex token."
56 ;; Check just before the definition. 56 ;; Check just before the definition.
57 (when (semantic-tag-with-position-p tag) 57 (when (semantic-tag-with-position-p tag)
58 (semantic-documentation-comment-preceeding-tag tag nosnarf)) 58 (semantic-documentation-comment-preceeding-tag tag nosnarf))
59 ;; Lets look for comments either after the definition, but before code: 59 ;; Let's look for comments either after the definition, but before code:
60 ;; Not sure yet. Fill in something clever later.... 60 ;; Not sure yet. Fill in something clever later....
61 nil)))))) 61 nil))))))
62 62
diff --git a/lisp/cedet/semantic/edit.el b/lisp/cedet/semantic/edit.el
index 7f7e82a95c2..4ac2733a34f 100644
--- a/lisp/cedet/semantic/edit.el
+++ b/lisp/cedet/semantic/edit.el
@@ -316,7 +316,7 @@ See `semantic-edits-change-leaf-tag' for details on parents."
316 (setq list-to-search nil))) 316 (setq list-to-search nil)))
317 ;; Search list is nil. 317 ;; Search list is nil.
318 )) 318 ))
319 ;; If we have a search list, lets go. Otherwise nothing. 319 ;; If we have a search list, let's go. Otherwise nothing.
320 (while (and list-to-search (not found)) 320 (while (and list-to-search (not found))
321 (if (cdr list-to-search) 321 (if (cdr list-to-search)
322 ;; We end when the start of the CDR is after the end of our 322 ;; We end when the start of the CDR is after the end of our
@@ -427,7 +427,7 @@ See `semantic-edits-change-leaf-tag' for details on parents."
427 ;; which must have a value by now. 427 ;; which must have a value by now.
428 428
429 ;; Loop over the search list to find the preceding CDR. 429 ;; Loop over the search list to find the preceding CDR.
430 ;; Fortunatly, (car overlapped-tags) happens to be 430 ;; Fortunately, (car overlapped-tags) happens to be
431 ;; the first tag positionally. 431 ;; the first tag positionally.
432 (let ((tokstart (semantic-tag-start (car overlapped-tags)))) 432 (let ((tokstart (semantic-tag-start (car overlapped-tags))))
433 (while (and list-to-search 433 (while (and list-to-search
@@ -537,7 +537,7 @@ This function is for internal use by `semantic-edits-incremental-parser'."
537 ;; We want to take some set of changes, and group them 537 ;; We want to take some set of changes, and group them
538 ;; together into a small change group. One change forces 538 ;; together into a small change group. One change forces
539 ;; a reparse of a larger region (the size of some set of 539 ;; a reparse of a larger region (the size of some set of
540 ;; tags it encompases.) It may contain several tags. 540 ;; tags it encompasses.) It may contain several tags.
541 ;; That region may have other changes in it (several small 541 ;; That region may have other changes in it (several small
542 ;; changes in one function, for example.) 542 ;; changes in one function, for example.)
543 ;; Optimize for the simple cases here, but try to handle 543 ;; Optimize for the simple cases here, but try to handle
@@ -595,7 +595,7 @@ This function is for internal use by `semantic-edits-incremental-parser'."
595 ;; Feb 06 - 595 ;; Feb 06 -
596 ;; IDed when the first cache-list tag is after 596 ;; IDed when the first cache-list tag is after
597 ;; our change, meaning there is nothing before 597 ;; our change, meaning there is nothing before
598 ;; the chnge. 598 ;; the change.
599 ((> (semantic-tag-start (car cache-list)) 599 ((> (semantic-tag-start (car cache-list))
600 (semantic-overlay-end (car changes))) 600 (semantic-overlay-end (car changes)))
601 (setq last-cond "Beginning of buffer") 601 (setq last-cond "Beginning of buffer")
diff --git a/lisp/cedet/semantic/find.el b/lisp/cedet/semantic/find.el
index c2d07fbcc35..b4d94321bc1 100644
--- a/lisp/cedet/semantic/find.el
+++ b/lisp/cedet/semantic/find.el
@@ -574,7 +574,7 @@ FUNCTION must return non-nil if an element of STREAM will be included
574in the new list. 574in the new list.
575 575
576If optional argument SEARCH-PARTS is non-nil, all sub-parts of tags 576If optional argument SEARCH-PARTS is non-nil, all sub-parts of tags
577are searched. The overloadable function `semantic-tag-componenets' is 577are searched. The overloadable function `semantic-tag-components' is
578used for the searching child lists. If SEARCH-PARTS is the symbol 578used for the searching child lists. If SEARCH-PARTS is the symbol
579'positiononly, then only children that have positional information are 579'positiononly, then only children that have positional information are
580searched. 580searched.
diff --git a/lisp/cedet/semantic/format.el b/lisp/cedet/semantic/format.el
index fa6e7517624..876ec9bbd4a 100644
--- a/lisp/cedet/semantic/format.el
+++ b/lisp/cedet/semantic/format.el
@@ -291,7 +291,7 @@ local definitions."
291 ;; Try and find a trail of parents from PARENT 291 ;; Try and find a trail of parents from PARENT
292 (let ((rlist (list parent)) 292 (let ((rlist (list parent))
293 ) 293 )
294 ;; IMPLELEMENT ME!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 294 ;; IMPLEMENT ME!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
295 (reverse rlist))) 295 (reverse rlist)))
296 296
297(define-overloadable-function semantic-format-tag-canonical-name (tag &optional parent color) 297(define-overloadable-function semantic-format-tag-canonical-name (tag &optional parent color)
@@ -431,7 +431,7 @@ Optional argument COLOR means highlight the prototype with font-lock colors."
431 (doc (semantic-tag-docstring tag buf))) 431 (doc (semantic-tag-docstring tag buf)))
432 (when (and (not doc) (not buf) fname) 432 (when (and (not doc) (not buf) fname)
433 ;; If there is no doc, and no buffer, but we have a filename, 433 ;; If there is no doc, and no buffer, but we have a filename,
434 ;; lets try again. 434 ;; let's try again.
435 (save-match-data 435 (save-match-data
436 (setq buf (find-file-noselect fname))) 436 (setq buf (find-file-noselect fname)))
437 (setq doc (semantic-tag-docstring tag buf))) 437 (setq doc (semantic-tag-docstring tag buf)))
@@ -603,7 +603,7 @@ This associates a symbol, such as 'public with the st ring \"+\".")
603 "Convert PROTECTION-SYMBOL to a string for UML. 603 "Convert PROTECTION-SYMBOL to a string for UML.
604By default, uses `semantic-format-tag-protection-symbol-to-string-assoc-list' 604By default, uses `semantic-format-tag-protection-symbol-to-string-assoc-list'
605to convert. 605to convert.
606By defaul character returns are: 606By default character returns are:
607 public -- + 607 public -- +
608 private -- - 608 private -- -
609 protected -- #. 609 protected -- #.
diff --git a/lisp/cedet/semantic/html.el b/lisp/cedet/semantic/html.el
index 972ce5e26bc..137759d46ac 100644
--- a/lisp/cedet/semantic/html.el
+++ b/lisp/cedet/semantic/html.el
@@ -61,7 +61,7 @@
61(define-mode-local-override semantic-parse-region 61(define-mode-local-override semantic-parse-region
62 html-mode (&rest ignore) 62 html-mode (&rest ignore)
63 "Parse the current html buffer for semantic tags. 63 "Parse the current html buffer for semantic tags.
64INGNORE any arguments. Always parse the whole buffer. 64IGNORE any arguments. Always parse the whole buffer.
65Each tag returned is of the form: 65Each tag returned is of the form:
66 (\"NAME\" section (:members CHILDREN)) 66 (\"NAME\" section (:members CHILDREN))
67or 67or
diff --git a/lisp/cedet/semantic/ia-sb.el b/lisp/cedet/semantic/ia-sb.el
index 57067936a90..95a68673b8c 100644
--- a/lisp/cedet/semantic/ia-sb.el
+++ b/lisp/cedet/semantic/ia-sb.el
@@ -36,7 +36,7 @@
36 nil 36 nil
37 (setq semantic-ia-sb-key-map (speedbar-make-specialized-keymap)) 37 (setq semantic-ia-sb-key-map (speedbar-make-specialized-keymap))
38 38
39 ;; Basic featuers. 39 ;; Basic features.
40 (define-key semantic-ia-sb-key-map "\C-m" 'speedbar-edit-line) 40 (define-key semantic-ia-sb-key-map "\C-m" 'speedbar-edit-line)
41 (define-key semantic-ia-sb-key-map "I" 'semantic-ia-sb-show-tag-info) 41 (define-key semantic-ia-sb-key-map "I" 'semantic-ia-sb-show-tag-info)
42 ) 42 )
diff --git a/lisp/cedet/semantic/ia.el b/lisp/cedet/semantic/ia.el
index 69b1dba0bcf..2aae39d4b21 100644
--- a/lisp/cedet/semantic/ia.el
+++ b/lisp/cedet/semantic/ia.el
@@ -115,11 +115,11 @@ Completion options are calculated with `semantic-analyze-possible-completions'."
115 (if (null syms) 115 (if (null syms)
116 (if (semantic-analyze-context-p a) 116 (if (semantic-analyze-context-p a)
117 ;; This is a clever hack. If we were unable to find any 117 ;; This is a clever hack. If we were unable to find any
118 ;; smart completions, lets divert to how senator derives 118 ;; smart completions, let's divert to how senator derives
119 ;; completions. 119 ;; completions.
120 ;; 120 ;;
121 ;; This is a way of making this fcn more useful since 121 ;; This is a way of making this fcn more useful since
122 ;; the smart completion engine sometimes failes. 122 ;; the smart completion engine sometimes fails.
123 (semantic-complete-symbol)) 123 (semantic-complete-symbol))
124 ;; Use try completion to seek a common substring. 124 ;; Use try completion to seek a common substring.
125 (let ((tc (try-completion (or pre "") syms))) 125 (let ((tc (try-completion (or pre "") syms)))
@@ -199,7 +199,7 @@ Completion options are calculated with `semantic-analyze-possible-completions'."
199 ) 199 )
200 (if pf 200 (if pf
201 (message "%s" (semantic-format-tag-summarize pf nil t)) 201 (message "%s" (semantic-format-tag-summarize pf nil t))
202 (message "No summary info availalble")))) 202 (message "No summary info available"))))
203 203
204;;; Variants 204;;; Variants
205;; 205;;
@@ -245,14 +245,14 @@ Completion options are calculated with `semantic-analyze-possible-completions'."
245;; Jump to a destination based on the local context. 245;; Jump to a destination based on the local context.
246;; 246;;
247;; This shows how to use the analyzer context, and the 247;; This shows how to use the analyzer context, and the
248;; analyer references objects to choose a good destination. 248;; analyzer references objects to choose a good destination.
249 249
250(defun semantic-ia--fast-jump-helper (dest) 250(defun semantic-ia--fast-jump-helper (dest)
251 "Jump to DEST, a Semantic tag. 251 "Jump to DEST, a Semantic tag.
252This helper manages the mark, buffer switching, and pulsing." 252This helper manages the mark, buffer switching, and pulsing."
253 ;; We have a tag, but in C++, we usually get a prototype instead 253 ;; We have a tag, but in C++, we usually get a prototype instead
254 ;; because of header files. Lets try to find the actual 254 ;; because of header files. Let's try to find the actual
255 ;; implementaion instead. 255 ;; implementation instead.
256 (when (semantic-tag-prototype-p dest) 256 (when (semantic-tag-prototype-p dest)
257 (let* ((refs (semantic-analyze-tag-references dest)) 257 (let* ((refs (semantic-analyze-tag-references dest))
258 (impl (semantic-analyze-refs-impl refs t)) 258 (impl (semantic-analyze-refs-impl refs t))
diff --git a/lisp/cedet/semantic/idle.el b/lisp/cedet/semantic/idle.el
index 1c1233303e9..b49d1db1ad5 100644
--- a/lisp/cedet/semantic/idle.el
+++ b/lisp/cedet/semantic/idle.el
@@ -427,7 +427,7 @@ datasets."
427 427
428(defun semantic-idle-scheduler-work-parse-neighboring-files () 428(defun semantic-idle-scheduler-work-parse-neighboring-files ()
429 "Parse all the files in similar directories to buffers being edited." 429 "Parse all the files in similar directories to buffers being edited."
430 ;; Lets check to see if EDE matters. 430 ;; Let's check to see if EDE matters.
431 (let ((ede-auto-add-method 'never)) 431 (let ((ede-auto-add-method 'never))
432 (dolist (a auto-mode-alist) 432 (dolist (a auto-mode-alist)
433 (when (eq (cdr a) major-mode) 433 (when (eq (cdr a) major-mode)
diff --git a/lisp/cedet/semantic/imenu.el b/lisp/cedet/semantic/imenu.el
index e7e1da55ce3..033c34e1b83 100644
--- a/lisp/cedet/semantic/imenu.el
+++ b/lisp/cedet/semantic/imenu.el
@@ -96,7 +96,7 @@ This option is ignored if `semantic-imenu-bucketize-file' is nil."
96(defcustom semantic-imenu-bucketize-type-members t 96(defcustom semantic-imenu-bucketize-type-members t
97 "*Non-nil if members of a type should be grouped into buckets. 97 "*Non-nil if members of a type should be grouped into buckets.
98A nil value means to keep them in the same order. 98A nil value means to keep them in the same order.
99Overriden to nil if `semantic-imenu-bucketize-file' is nil." 99Overridden to nil if `semantic-imenu-bucketize-file' is nil."
100 :group 'semantic-imenu 100 :group 'semantic-imenu
101 :type 'boolean) 101 :type 'boolean)
102(make-variable-buffer-local 'semantic-imenu-bucketize-type-members) 102(make-variable-buffer-local 'semantic-imenu-bucketize-type-members)
@@ -393,7 +393,7 @@ Optional argument PARENT is a tag parent of STREAM."
393 semantic-imenu-bucketize-file) 393 semantic-imenu-bucketize-file)
394 (semantic-create-imenu-index-1 parts tag) 394 (semantic-create-imenu-index-1 parts tag)
395 (semantic-create-imenu-subindex parts)))) 395 (semantic-create-imenu-subindex parts))))
396 ;; Only add a *definition* if we have a postion 396 ;; Only add a *definition* if we have a position
397 ;; in that type tag. 397 ;; in that type tag.
398 (if (semantic-tag-with-position-p tag) 398 (if (semantic-tag-with-position-p tag)
399 (cons 399 (cons
diff --git a/lisp/cedet/semantic/lex-spp.el b/lisp/cedet/semantic/lex-spp.el
index e49968b07e7..8009a257a7b 100644
--- a/lisp/cedet/semantic/lex-spp.el
+++ b/lisp/cedet/semantic/lex-spp.el
@@ -639,7 +639,7 @@ and what valid VAL values are."
639 639
640;;; Macro Merging 640;;; Macro Merging
641;; 641;;
642;; Used when token streams from different macros include eachother. 642;; Used when token streams from different macros include each other.
643;; Merged macro streams perform in place replacements. 643;; Merged macro streams perform in place replacements.
644 644
645(defun semantic-lex-spp-merge-streams (raw-stream) 645(defun semantic-lex-spp-merge-streams (raw-stream)
@@ -709,7 +709,7 @@ ARGVALUES are values for any arg list, or nil."
709 709
710;;; Symbol Is Macro 710;;; Symbol Is Macro
711;; 711;;
712;; An analyser that will push tokens from a macro in place 712;; An analyzer that will push tokens from a macro in place
713;; of the macro symbol. 713;; of the macro symbol.
714;; 714;;
715(defun semantic-lex-spp-anlyzer-do-replace (sym val beg end) 715(defun semantic-lex-spp-anlyzer-do-replace (sym val beg end)
diff --git a/lisp/cedet/semantic/lex.el b/lisp/cedet/semantic/lex.el
index d6b8e1a8bf5..4da3be98f37 100644
--- a/lisp/cedet/semantic/lex.el
+++ b/lisp/cedet/semantic/lex.el
@@ -491,7 +491,7 @@ For compatibility with Semantic 1.x it defaults to `semantic-flex'.")
491 (symbol) 491 (symbol)
492 (whitespace) 492 (whitespace)
493 ) 493 )
494 "An alist of of semantic token types. 494 "An alist of semantic token types.
495As of December 2001 (semantic 1.4beta13), this variable is not used in 495As of December 2001 (semantic 1.4beta13), this variable is not used in
496any code. The only use is to refer to the doc-string from elsewhere. 496any code. The only use is to refer to the doc-string from elsewhere.
497 497
@@ -1437,7 +1437,7 @@ Return either a paren token or a semantic list token depending on
1437;;; Comment lexer 1437;;; Comment lexer
1438;; 1438;;
1439;; Predefined lexers that could be used instead of creating new 1439;; Predefined lexers that could be used instead of creating new
1440;; analyers. 1440;; analyzers.
1441 1441
1442(define-lex semantic-comment-lexer 1442(define-lex semantic-comment-lexer
1443 "A simple lexical analyzer that handles comments. 1443 "A simple lexical analyzer that handles comments.
@@ -1677,7 +1677,7 @@ When the lexer encounters the open-paren delimiter \"(\":
1677;;; Lexical Safety 1677;;; Lexical Safety
1678;; 1678;;
1679;; The semantic lexers, unlike other lexers, can throw errors on 1679;; The semantic lexers, unlike other lexers, can throw errors on
1680;; unbalanced syntax. Since editing is all about changeging test 1680;; unbalanced syntax. Since editing is all about changing text
1681;; we need to provide a convenient way to protect against syntactic 1681;; we need to provide a convenient way to protect against syntactic
1682;; inequalities. 1682;; inequalities.
1683 1683
@@ -1758,7 +1758,7 @@ If there is no error, then the last value of FORMS is returned."
1758(semantic-alias-obsolete 'semantic-flex-map-keywords 'semantic-lex-map-keywords "23.2") 1758(semantic-alias-obsolete 'semantic-flex-map-keywords 'semantic-lex-map-keywords "23.2")
1759(semantic-alias-obsolete 'semantic-flex-keywords 'semantic-lex-keywords "23.2") 1759(semantic-alias-obsolete 'semantic-flex-keywords 'semantic-lex-keywords "23.2")
1760(semantic-alias-obsolete 'semantic-flex-buffer 'semantic-lex-buffer "23.2") 1760(semantic-alias-obsolete 'semantic-flex-buffer 'semantic-lex-buffer "23.2")
1761(semantic-alias-obsolete 'semantic-flex-list 'semantic-lex-list "23.2") 1761(semantic-alias-obsolete 'semantic-flex-list 'semantic-lex-list "23.2")
1762 1762
1763;; This simple scanner uses the syntax table to generate a stream of 1763;; This simple scanner uses the syntax table to generate a stream of
1764;; simple tokens of the form: 1764;; simple tokens of the form:
@@ -1769,7 +1769,7 @@ If there is no error, then the last value of FORMS is returned."
1769;; objects boundary. 1769;; objects boundary.
1770 1770
1771(defvar semantic-flex-tokens semantic-lex-tokens 1771(defvar semantic-flex-tokens semantic-lex-tokens
1772 "An alist of of semantic token types. 1772 "An alist of semantic token types.
1773See variable `semantic-lex-tokens'.") 1773See variable `semantic-lex-tokens'.")
1774 1774
1775(defvar semantic-flex-unterminated-syntax-end-function 1775(defvar semantic-flex-unterminated-syntax-end-function
diff --git a/lisp/cedet/semantic/sb.el b/lisp/cedet/semantic/sb.el
index 88b0cc33d43..d9a3ede360d 100644
--- a/lisp/cedet/semantic/sb.el
+++ b/lisp/cedet/semantic/sb.el
@@ -313,7 +313,7 @@ TEXT TOKEN and INDENT are the details."
313 (save-excursion (speedbar-stealthy-updates)) 313 (save-excursion (speedbar-stealthy-updates))
314 (semantic-go-to-tag token parent) 314 (semantic-go-to-tag token parent)
315 (switch-to-buffer (current-buffer)) 315 (switch-to-buffer (current-buffer))
316 ;; Reset the timer with a new timeout when cliking a file 316 ;; Reset the timer with a new timeout when clicking a file
317 ;; in case the user was navigating directories, we can cancel 317 ;; in case the user was navigating directories, we can cancel
318 ;; that other timer. 318 ;; that other timer.
319 ;; (speedbar-set-timer dframe-update-speed) 319 ;; (speedbar-set-timer dframe-update-speed)
@@ -399,7 +399,7 @@ Returns the tag list, or t for an error."
399 (if (listp out) 399 (if (listp out)
400 (condition-case nil 400 (condition-case nil
401 (progn 401 (progn
402 ;; This brings externally defind methods into 402 ;; This brings externally defined methods into
403 ;; their classes, and creates meta classes for 403 ;; their classes, and creates meta classes for
404 ;; orphans. 404 ;; orphans.
405 (setq out (semantic-adopt-external-members out)) 405 (setq out (semantic-adopt-external-members out))
diff --git a/lisp/cedet/semantic/scope.el b/lisp/cedet/semantic/scope.el
index 78a1fd049f0..16deb245527 100644
--- a/lisp/cedet/semantic/scope.el
+++ b/lisp/cedet/semantic/scope.el
@@ -186,7 +186,7 @@ Use `semantic-ctxt-scoped-types' to find types."
186 (save-excursion 186 (save-excursion
187 (goto-char position) 187 (goto-char position)
188 (let ((code-scoped-types nil)) 188 (let ((code-scoped-types nil))
189 ;; Lets ask if any types are currently scoped. Scoped 189 ;; Let's ask if any types are currently scoped. Scoped
190 ;; classes and types provide their public methods and types 190 ;; classes and types provide their public methods and types
191 ;; in source code, but are unrelated hierarchically. 191 ;; in source code, but are unrelated hierarchically.
192 (let ((sp (semantic-ctxt-scoped-types))) 192 (let ((sp (semantic-ctxt-scoped-types)))
@@ -249,7 +249,7 @@ are from nesting data types."
249 ;; Analyze the stack of tags we are nested in as parents. 249 ;; Analyze the stack of tags we are nested in as parents.
250 ;; 250 ;;
251 251
252 ;; If we have a pparent tag, lets go there 252 ;; If we have a pparent tag, let's go there
253 ;; an analyze that stack of tags. 253 ;; an analyze that stack of tags.
254 (when (and pparent (semantic-tag-with-position-p pparent)) 254 (when (and pparent (semantic-tag-with-position-p pparent))
255 (semantic-go-to-tag pparent) 255 (semantic-go-to-tag pparent)
@@ -384,7 +384,7 @@ be found."
384;;------------------------------------------------------------ 384;;------------------------------------------------------------
385 385
386(define-overloadable-function semantic-analyze-scoped-tags (typelist parentlist) 386(define-overloadable-function semantic-analyze-scoped-tags (typelist parentlist)
387 "Return accessable tags when TYPELIST and PARENTLIST is in scope. 387 "Return accessible tags when TYPELIST and PARENTLIST is in scope.
388Tags returned are not in the global name space, but are instead 388Tags returned are not in the global name space, but are instead
389scoped inside a class or namespace. Such items can be referenced 389scoped inside a class or namespace. Such items can be referenced
390without use of \"object.function()\" style syntax due to an 390without use of \"object.function()\" style syntax due to an
@@ -412,7 +412,7 @@ implicit \"object\"."
412 )) 412 ))
413 (setq typelist (cdr typelist))) 413 (setq typelist (cdr typelist)))
414 414
415 ;; Loop over the types (which should be sorted by postion 415 ;; Loop over the types (which should be sorted by position)
416 ;; adding to the scopelist as we go, and using the scopelist 416 ;; adding to the scopelist as we go, and using the scopelist
417 ;; for additional searching! 417 ;; for additional searching!
418 (while typelist2 418 (while typelist2
@@ -424,9 +424,9 @@ implicit \"object\"."
424 currentscope)) 424 currentscope))
425 (setq typelist2 (cdr typelist2))) 425 (setq typelist2 (cdr typelist2)))
426 426
427 ;; Collect all the types (class, etc) that are in our heratage. 427 ;; Collect all the types (class, etc) that are in our heritage.
428 ;; These are types that we can extract members from, not those 428 ;; These are types that we can extract members from, not those
429 ;; delclared in using statements, or the like. 429 ;; declared in using statements, or the like.
430 ;; Get the PARENTS including nesting scope for this location. 430 ;; Get the PARENTS including nesting scope for this location.
431 (while parentlist 431 (while parentlist
432 (oset miniscope scope currentscope) 432 (oset miniscope scope currentscope)
diff --git a/lisp/cedet/semantic/symref/grep.el b/lisp/cedet/semantic/symref/grep.el
index 1571622b29a..da250e66bb5 100644
--- a/lisp/cedet/semantic/symref/grep.el
+++ b/lisp/cedet/semantic/symref/grep.el
@@ -102,7 +102,7 @@ ROOTDIR is the root location to run the `find' from.
102FILEPATTERN is a string representing find flags for searching file patterns. 102FILEPATTERN is a string representing find flags for searching file patterns.
103GREPFLAGS are flags passed to grep, such as -n or -l. 103GREPFLAGS are flags passed to grep, such as -n or -l.
104GREPPATTERN is the pattern used by grep." 104GREPPATTERN is the pattern used by grep."
105 ;; We have grep-compute-defaults. Lets use it. 105 ;; We have grep-compute-defaults. Let's use it.
106 (grep-compute-defaults) 106 (grep-compute-defaults)
107 (let* ((grep-expand-keywords semantic-symref-grep-expand-keywords) 107 (let* ((grep-expand-keywords semantic-symref-grep-expand-keywords)
108 (cmd (grep-expand-template grep-find-template 108 (cmd (grep-expand-template grep-find-template
diff --git a/lisp/cedet/semantic/tag-file.el b/lisp/cedet/semantic/tag-file.el
index 17fd3b45356..d118d9b6203 100644
--- a/lisp/cedet/semantic/tag-file.el
+++ b/lisp/cedet/semantic/tag-file.el
@@ -154,7 +154,7 @@ Depends on `semantic-dependency-include-path' for searching. Always searches
154 (setq result 154 (setq result
155 ;; I don't have a plan for refreshing tags with a dependency 155 ;; I don't have a plan for refreshing tags with a dependency
156 ;; stuck on them somehow. I'm thinking that putting a cache 156 ;; stuck on them somehow. I'm thinking that putting a cache
157 ;; onto the dependancy finding with a hash table might be best. 157 ;; onto the dependency finding with a hash table might be best.
158 ;;(if (semantic--tag-get-property tag 'dependency-file) 158 ;;(if (semantic--tag-get-property tag 'dependency-file)
159 ;; (semantic--tag-get-property tag 'dependency-file) 159 ;; (semantic--tag-get-property tag 'dependency-file)
160 (:override 160 (:override
diff --git a/lisp/cedet/semantic/tag-ls.el b/lisp/cedet/semantic/tag-ls.el
index 8f54698d506..4d001322108 100644
--- a/lisp/cedet/semantic/tag-ls.el
+++ b/lisp/cedet/semantic/tag-ls.el
@@ -41,7 +41,7 @@
41 41
42(define-overloadable-function semantic-tag-calculate-parent (tag) 42(define-overloadable-function semantic-tag-calculate-parent (tag)
43 "Attempt to calculate the parent of TAG. 43 "Attempt to calculate the parent of TAG.
44The default behavior (if not overriden with `tag-calculate-parent') 44The default behavior (if not overridden with `tag-calculate-parent')
45is to search a buffer found with TAG, and if externally defined, 45is to search a buffer found with TAG, and if externally defined,
46search locally, then semanticdb for that tag (when enabled.)") 46search locally, then semanticdb for that tag (when enabled.)")
47 47
@@ -98,7 +98,7 @@ See `semantic-tag-protection'."
98 prot)) 98 prot))
99 99
100(defun semantic-tag-protected-p (tag protection &optional parent) 100(defun semantic-tag-protected-p (tag protection &optional parent)
101 "Non-nil if TAG is is protected. 101 "Non-nil if TAG is protected.
102PROTECTION is a symbol which can be returned by the method 102PROTECTION is a symbol which can be returned by the method
103`semantic-tag-protection'. 103`semantic-tag-protection'.
104PARENT is the parent data type which contains TAG. 104PARENT is the parent data type which contains TAG.
@@ -106,7 +106,7 @@ PARENT is the parent data type which contains TAG.
106For these PROTECTIONs, true is returned if TAG is: 106For these PROTECTIONs, true is returned if TAG is:
107@table @asis 107@table @asis
108@item nil 108@item nil
109 Always true 109 Always true.
110@item private 110@item private
111 True if nil. 111 True if nil.
112@item protected 112@item protected
@@ -221,7 +221,7 @@ something without an implementation."
221 221
222(define-overloadable-function semantic-tag-full-name (tag &optional stream-or-buffer) 222(define-overloadable-function semantic-tag-full-name (tag &optional stream-or-buffer)
223 "Return the fully qualified name of TAG in the package hierarchy. 223 "Return the fully qualified name of TAG in the package hierarchy.
224STREAM-OR-BUFFER can be anything convertable by `semantic-something-to-stream', 224STREAM-OR-BUFFER can be anything convertible by `semantic-something-to-stream',
225but must be a toplevel semantic tag stream that contains TAG. 225but must be a toplevel semantic tag stream that contains TAG.
226A Package Hierarchy is defined in UML by the way classes and methods 226A Package Hierarchy is defined in UML by the way classes and methods
227are organized on disk. Some language use this concept such that a 227are organized on disk. Some language use this concept such that a
diff --git a/lisp/cedet/semantic/texi.el b/lisp/cedet/semantic/texi.el
index 393d64e6420..c2f080ce75b 100644
--- a/lisp/cedet/semantic/texi.el
+++ b/lisp/cedet/semantic/texi.el
@@ -421,7 +421,7 @@ Optional argument POINT is where to look for the environment."
421 texinfo-mode (context) 421 texinfo-mode (context)
422 "List smart completions at point. 422 "List smart completions at point.
423Since texinfo is not a programming language the default version is not 423Since texinfo is not a programming language the default version is not
424useful. Insted, look at the current symbol. If it is a command 424useful. Instead, look at the current symbol. If it is a command
425do primitive texinfo built ins. If not, use ispell to lookup words 425do primitive texinfo built ins. If not, use ispell to lookup words
426that start with that symbol." 426that start with that symbol."
427 (let ((prefix (car (oref context :prefix))) 427 (let ((prefix (car (oref context :prefix)))
@@ -579,7 +579,7 @@ Note: TYPE not yet implemented."
579;; (setq doctag (if docstring sourcetag nil)))) 579;; (setq doctag (if docstring sourcetag nil))))
580;; (setq tags (cdr tags))))) 580;; (setq tags (cdr tags)))))
581;; ;; If we found a prototype of the function that has some doc, but not the 581;; ;; If we found a prototype of the function that has some doc, but not the
582;; ;; actual function, lets make due with that. 582;; ;; actual function, let's make due with that.
583;; (if (not docstring) 583;; (if (not docstring)
584;; (cond ((stringp docstringvar) 584;; (cond ((stringp docstringvar)
585;; (setq docstring docstringvar 585;; (setq docstring docstringvar
@@ -597,7 +597,7 @@ Note: TYPE not yet implemented."
597;; ;; If we have a string, do the replacement. 597;; ;; If we have a string, do the replacement.
598;; (delete-region (semantic-tag-start tag) 598;; (delete-region (semantic-tag-start tag)
599;; (semantic-tag-end tag)) 599;; (semantic-tag-end tag))
600;; ;; Use useful functions from the docaument library. 600;; ;; Use useful functions from the document library.
601;; (srecode-texi-insert-tag-as-doc doctag) 601;; (srecode-texi-insert-tag-as-doc doctag)
602;; ;(semantic-insert-foreign-tag doctag) 602;; ;(semantic-insert-foreign-tag doctag)
603;; )) 603;; ))
diff --git a/lisp/cedet/semantic/wisent/python.el b/lisp/cedet/semantic/wisent/python.el
index 095a817f08d..1f52e9eb3b6 100644
--- a/lisp/cedet/semantic/wisent/python.el
+++ b/lisp/cedet/semantic/wisent/python.el
@@ -108,7 +108,7 @@ line ends at the end of the buffer, leave the point there."
108(defun wisent-python-forward-line-skip-indented () 108(defun wisent-python-forward-line-skip-indented ()
109 "Move point to the next logical line, skipping indented lines. 109 "Move point to the next logical line, skipping indented lines.
110That is the next line whose indentation is less than or equal to the 110That is the next line whose indentation is less than or equal to the
111identation of the current line." 111indentation of the current line."
112 (let ((indent (current-indentation))) 112 (let ((indent (current-indentation)))
113 (while (progn (wisent-python-forward-line) 113 (while (progn (wisent-python-forward-line)
114 (and (not (eobp)) 114 (and (not (eobp))
@@ -291,7 +291,7 @@ To be implemented for Python! For now just return nil."
291 ;; Character used to separation a parent/child relationship 291 ;; Character used to separation a parent/child relationship
292 semantic-type-relation-separator-character '(".") 292 semantic-type-relation-separator-character '(".")
293 semantic-command-separation-character ";" 293 semantic-command-separation-character ";"
294 ;; The following is no more necessary as semantic-lex is overriden 294 ;; The following is no more necessary as semantic-lex is overridden
295 ;; in python-mode. 295 ;; in python-mode.
296 ;; semantic-lex-analyzer 'wisent-python-lexer 296 ;; semantic-lex-analyzer 'wisent-python-lexer
297 297
diff --git a/lisp/cedet/srecode/compile.el b/lisp/cedet/srecode/compile.el
index 052999bf7c8..d3623d6022f 100644
--- a/lisp/cedet/srecode/compile.el
+++ b/lisp/cedet/srecode/compile.el
@@ -62,11 +62,11 @@
62 (dictionary :initarg :dictionary 62 (dictionary :initarg :dictionary
63 :type (or null srecode-dictionary) 63 :type (or null srecode-dictionary)
64 :documentation 64 :documentation
65 "List of section dictinaries. 65 "List of section dictionaries.
66The compiled template can contain lists of section dictionaries, 66The compiled template can contain lists of section dictionaries,
67or values that are expected to be passed down into different 67or values that are expected to be passed down into different
68section macros. The template section dictionaries are merged in with 68section macros. The template section dictionaries are merged in with
69any incomming dictionaries values.") 69any incoming dictionaries values.")
70 (binding :initarg :binding 70 (binding :initarg :binding
71 :documentation 71 :documentation
72 "Preferred keybinding for this template in `srecode-minor-mode-map'.") 72 "Preferred keybinding for this template in `srecode-minor-mode-map'.")
@@ -552,7 +552,7 @@ A list of defined variables VARS provides a variable table."
552 (when (not hs) 552 (when (not hs)
553 (setq hs (make-hash-table :test 'equal :size 20)) 553 (setq hs (make-hash-table :test 'equal :size 20))
554 (puthash context hs contexthash)) 554 (puthash context hs contexthash))
555 ;; Put into that contenxt's hash. 555 ;; Put into that context's hash.
556 (puthash objname (car lp) hs) 556 (puthash objname (car lp) hs)
557 ) 557 )
558 558
diff --git a/lisp/cedet/srecode/ctxt.el b/lisp/cedet/srecode/ctxt.el
index cae52428e75..f392379347a 100644
--- a/lisp/cedet/srecode/ctxt.el
+++ b/lisp/cedet/srecode/ctxt.el
@@ -73,7 +73,7 @@ Some useful context values used by the provided srecode templates are:
73 ) 73 )
74 74
75(defun srecode-calculate-nearby-things () 75(defun srecode-calculate-nearby-things ()
76 ;; NOTE: May need to add bounes to this FCN 76 ;; NOTE: May need to add bounds to this FCN
77 "Calculate the CONTEXT type items nearby the current point. 77 "Calculate the CONTEXT type items nearby the current point.
78Assume that what we want to insert next is based on what is just 78Assume that what we want to insert next is based on what is just
79before point. If there is nothing, then assume it is whatever is 79before point. If there is nothing, then assume it is whatever is
diff --git a/lisp/cedet/srecode/dictionary.el b/lisp/cedet/srecode/dictionary.el
index 521532bed33..62ceff82448 100644
--- a/lisp/cedet/srecode/dictionary.el
+++ b/lisp/cedet/srecode/dictionary.el
@@ -202,7 +202,7 @@ associated with a buffer or parent."
202 :size 20) 202 :size 20)
203 :origin origin))) 203 :origin origin)))
204 ;; Only set up the default variables if we are being built 204 ;; Only set up the default variables if we are being built
205 ;; directroy for a particular buffer. 205 ;; directly for a particular buffer.
206 (when initfrombuff 206 (when initfrombuff
207 ;; Variables from the table we are inserting from. 207 ;; Variables from the table we are inserting from.
208 ;; @todo - get a better tree of tables. 208 ;; @todo - get a better tree of tables.
@@ -280,7 +280,7 @@ inserted dictionaries."
280 (progn 280 (progn
281 (srecode-dictionary-show-section new "FIRST") 281 (srecode-dictionary-show-section new "FIRST")
282 (srecode-dictionary-show-section new "LAST")) 282 (srecode-dictionary-show-section new "LAST"))
283 ;; Not the very first one. Lets clean up CAR. 283 ;; Not the very first one. Let's clean up CAR.
284 (let ((tail (car (last ov)))) 284 (let ((tail (car (last ov))))
285 (srecode-dictionary-hide-section tail "LAST") 285 (srecode-dictionary-hide-section tail "LAST")
286 (srecode-dictionary-show-section tail "NOTLAST") 286 (srecode-dictionary-show-section tail "NOTLAST")
@@ -436,7 +436,7 @@ The root dictionary is usually for a current or active insertion."
436 436
437;;; COMPOUND VALUE METHODS 437;;; COMPOUND VALUE METHODS
438;; 438;;
439;; Compound values must provide at least the toStriong method 439;; Compound values must provide at least the toString method
440;; for use in converting the compound value into sometehing insertable. 440;; for use in converting the compound value into sometehing insertable.
441 441
442(defmethod srecode-compound-toString ((cp srecode-dictionary-compound-value) 442(defmethod srecode-compound-toString ((cp srecode-dictionary-compound-value)
diff --git a/lisp/cedet/srecode/document.el b/lisp/cedet/srecode/document.el
index a52cadbfb2c..caf1ddebdb2 100644
--- a/lisp/cedet/srecode/document.el
+++ b/lisp/cedet/srecode/document.el
@@ -167,7 +167,7 @@ doesn't always work correctly."
167 ("str\\(ing\\)?" . "string") 167 ("str\\(ing\\)?" . "string")
168 ("use?r" . "user") 168 ("use?r" . "user")
169 ("num\\(ber\\)?" . "number") 169 ("num\\(ber\\)?" . "number")
170 ("\\(^\\|\\s-\\)id\\($\\|\\s-\\)" . "Identifier") ;complex cause ;commen sylable 170 ("\\(^\\|\\s-\\)id\\($\\|\\s-\\)" . "Identifier") ;complex cause ;common sylable
171 ) 171 )
172 "List of common English abbreviations or full words. 172 "List of common English abbreviations or full words.
173These are nouns (as opposed to verbs) for use in creating expanded 173These are nouns (as opposed to verbs) for use in creating expanded
@@ -720,7 +720,7 @@ allocating something based on its type."
720 "Convert tag or string PARAM into a name,comment pair. 720 "Convert tag or string PARAM into a name,comment pair.
721Optional COMMENTLIST is list of previously existing comments to 721Optional COMMENTLIST is list of previously existing comments to
722use instead in alist form. If the name doesn't appear in the list of 722use instead in alist form. If the name doesn't appear in the list of
723standard names, then englishify it instead." 723standard names, then english it instead."
724 (let ((cmt "") 724 (let ((cmt "")
725 (aso srecode-document-autocomment-param-alist) 725 (aso srecode-document-autocomment-param-alist)
726 (fnd nil) 726 (fnd nil)
@@ -811,8 +811,8 @@ not account for verb parts."
811 (if (string-match (car (car al)) (downcase ts)) 811 (if (string-match (car (car al)) (downcase ts))
812 (progn 812 (progn
813 (setq newstr (concat newstr (cdr (car al)))) 813 (setq newstr (concat newstr (cdr (car al))))
814 ;; don't terminate because we may actuall have 2 words 814 ;; don't terminate because we may actually have 2 words
815 ;; next to eachother we didn't identify before 815 ;; next to each other we didn't identify before
816 (setq llow t))) 816 (setq llow t)))
817 (setq al (cdr al))) 817 (setq al (cdr al)))
818 (if (not llow) (setq newstr (concat newstr ts))) 818 (if (not llow) (setq newstr (concat newstr ts)))
diff --git a/lisp/cedet/srecode/extract.el b/lisp/cedet/srecode/extract.el
index dba4b876edb..d87dc315829 100644
--- a/lisp/cedet/srecode/extract.el
+++ b/lisp/cedet/srecode/extract.el
@@ -61,12 +61,12 @@
61 (oset st lastdict dict)) 61 (oset st lastdict dict))
62 62
63(defmethod srecode-extract-state-set-anchor ((st srecode-extract-state)) 63(defmethod srecode-extract-state-set-anchor ((st srecode-extract-state))
64 "Reset the achor point on extract state ST." 64 "Reset the anchor point on extract state ST."
65 (oset st anchor (point))) 65 (oset st anchor (point)))
66 66
67(defmethod srecode-extract-state-extract ((st srecode-extract-state) 67(defmethod srecode-extract-state-extract ((st srecode-extract-state)
68 endpoint) 68 endpoint)
69 "Perform an extraction on the extract state ST with ENDPOITNT. 69 "Perform an extraction on the extract state ST with ENDPOINT.
70If there was no waiting inserter, do nothing." 70If there was no waiting inserter, do nothing."
71 (when (oref st lastinserter) 71 (when (oref st lastinserter)
72 (save-match-data 72 (save-match-data
diff --git a/lisp/cedet/srecode/fields.el b/lisp/cedet/srecode/fields.el
index 088781cfb53..f13fb17ca8f 100644
--- a/lisp/cedet/srecode/fields.el
+++ b/lisp/cedet/srecode/fields.el
@@ -101,7 +101,7 @@ Has virtual :start and :end initializers.")
101 )) 101 ))
102 102
103 ;; Create a temporary overlay now. We have to use an overlay and 103 ;; Create a temporary overlay now. We have to use an overlay and
104 ;; not a marker becaues of the in-front insertion rules. The rules 104 ;; not a marker because of the in-front insertion rules. The rules
105 ;; are backward from what is wanted while typing. 105 ;; are backward from what is wanted while typing.
106 (setq olay (make-overlay start end (current-buffer) t nil)) 106 (setq olay (make-overlay start end (current-buffer) t nil))
107 (overlay-put olay 'srecode-init-only t) 107 (overlay-put olay 'srecode-init-only t)
@@ -338,7 +338,7 @@ PRE-LEN is used in the after mode for the length of the changed text."
338 (inhibit-modification-hooks t) 338 (inhibit-modification-hooks t)
339 ) 339 )
340 ;; Sometimes a field is deleted, but we might still get a stray 340 ;; Sometimes a field is deleted, but we might still get a stray
341 ;; event. Lets just ignore those events. 341 ;; event. Let's just ignore those events.
342 (when (slot-boundp field 'overlay) 342 (when (slot-boundp field 'overlay)
343 ;; First, fixup the two overlays, in case they got confused. 343 ;; First, fixup the two overlays, in case they got confused.
344 (let ((main (oref field overlay)) 344 (let ((main (oref field overlay))
diff --git a/lisp/cedet/srecode/find.el b/lisp/cedet/srecode/find.el
index fdca64a7da1..d9765ebd449 100644
--- a/lisp/cedet/srecode/find.el
+++ b/lisp/cedet/srecode/find.el
@@ -103,7 +103,7 @@ If TAB is nil, then always return t."
103 (let ((proj (oref tab :project))) 103 (let ((proj (oref tab :project)))
104 ;; Return t if the project wasn't set. 104 ;; Return t if the project wasn't set.
105 (if (not proj) t 105 (if (not proj) t
106 ;; If the project directory was set, lets check it. 106 ;; If the project directory was set, let's check it.
107 (let ((dd (expand-file-name default-directory)) 107 (let ((dd (expand-file-name default-directory))
108 (projexp (regexp-quote (directory-file-name proj)))) 108 (projexp (regexp-quote (directory-file-name proj))))
109 (if (string-match (concat "^" projexp) dd) 109 (if (string-match (concat "^" projexp) dd)
diff --git a/lisp/cedet/srecode/getset.el b/lisp/cedet/srecode/getset.el
index a582d4ff59e..9a6c27dcd73 100644
--- a/lisp/cedet/srecode/getset.el
+++ b/lisp/cedet/srecode/getset.el
@@ -215,7 +215,7 @@ INCLASS specifies if the cursor is already in CLASS or not."
215 (when (not te) 215 (when (not te)
216 (message "Unknown location for tag-end in %s:" (semantic-tag-name aftertag))) 216 (message "Unknown location for tag-end in %s:" (semantic-tag-name aftertag)))
217 (goto-char te) 217 (goto-char te)
218 ;; If there is a comment immediatly after aftertag, skip over it. 218 ;; If there is a comment immediately after aftertag, skip over it.
219 (when (looking-at (concat "\\s-*\n?\\s-*" semantic-lex-comment-regex)) 219 (when (looking-at (concat "\\s-*\n?\\s-*" semantic-lex-comment-regex))
220 (let ((pos (point)) 220 (let ((pos (point))
221 (rnext (semantic-find-tag-by-overlay-next (point)))) 221 (rnext (semantic-find-tag-by-overlay-next (point))))
diff --git a/lisp/cedet/srecode/insert.el b/lisp/cedet/srecode/insert.el
index 84964a9e8b4..9fbfc5dc042 100644
--- a/lisp/cedet/srecode/insert.el
+++ b/lisp/cedet/srecode/insert.el
@@ -255,7 +255,7 @@ ST can be a class, or an object."
255 (let ((c (oref st code))) 255 (let ((c (oref st code)))
256 (srecode-push st) 256 (srecode-push st)
257 (srecode-insert-code-stream c dictionary)) 257 (srecode-insert-code-stream c dictionary))
258 ;; Poping the stack is protected 258 ;; Popping the stack is protected.
259 (srecode-pop st))) 259 (srecode-pop st)))
260 260
261(defun srecode-insert-code-stream (code dictionary) 261(defun srecode-insert-code-stream (code dictionary)
@@ -936,7 +936,7 @@ with the dictionaries found in the dictionary."
936 (if (srecode-dictionary-lookup-name dictionary (oref sti :object-name)) 936 (if (srecode-dictionary-lookup-name dictionary (oref sti :object-name))
937 ;; If we have a value, then call the next method 937 ;; If we have a value, then call the next method
938 (srecode-insert-method-helper sti dictionary 'includedtemplate) 938 (srecode-insert-method-helper sti dictionary 'includedtemplate)
939 ;; If we don't have a special dictitonary, then just insert with the 939 ;; If we don't have a special dictionary, then just insert with the
940 ;; current dictionary. 940 ;; current dictionary.
941 (srecode-insert-subtemplate sti dictionary 'includedtemplate)) 941 (srecode-insert-subtemplate sti dictionary 'includedtemplate))
942 ) 942 )
diff --git a/lisp/cedet/srecode/mode.el b/lisp/cedet/srecode/mode.el
index 6ca0cefe9a7..23d09bc9a4b 100644
--- a/lisp/cedet/srecode/mode.el
+++ b/lisp/cedet/srecode/mode.el
@@ -61,7 +61,7 @@
61 (define-key km (format "%c" k) 'srecode-bind-insert) 61 (define-key km (format "%c" k) 'srecode-bind-insert)
62 (setq k (1+ k)))) 62 (setq k (1+ k))))
63 km) 63 km)
64 "Keymap used behind the srecode prefix key in in srecode minor mode.") 64 "Keymap used behind the srecode prefix key in srecode minor mode.")
65 65
66(defvar srecode-menu-bar 66(defvar srecode-menu-bar
67 (list 67 (list
@@ -366,7 +366,7 @@ programming modes."
366 (define-key srecode-prefix-map oldkey nil) 366 (define-key srecode-prefix-map oldkey nil)
367 ))) 367 )))
368 368
369 ;; Update Keybings 369 ;; Update Keybindings
370 (let ((oldbinding (lookup-key srecode-prefix-map binding))) 370 (let ((oldbinding (lookup-key srecode-prefix-map binding)))
371 371
372 ;; During development, allow overrides. 372 ;; During development, allow overrides.
diff --git a/lisp/cedet/srecode/semantic.el b/lisp/cedet/srecode/semantic.el
index 4a1a15c1d12..956bdfbd97a 100644
--- a/lisp/cedet/srecode/semantic.el
+++ b/lisp/cedet/srecode/semantic.el
@@ -394,7 +394,7 @@ as `function' will leave point where code might be inserted."
394 (srecode-semantic-apply-tag-to-dict tagobj dict))) 394 (srecode-semantic-apply-tag-to-dict tagobj dict)))
395 395
396 ;; Insert dict-entries into the dictionary LAST so that previous 396 ;; Insert dict-entries into the dictionary LAST so that previous
397 ;; items can be overriden. 397 ;; items can be overridden.
398 (let ((entries dict-entries)) 398 (let ((entries dict-entries))
399 (while entries 399 (while entries
400 (srecode-dictionary-set-value dict 400 (srecode-dictionary-set-value dict
diff --git a/lisp/cedet/srecode/srt-mode.el b/lisp/cedet/srecode/srt-mode.el
index 5a407aad135..0a99b7869e8 100644
--- a/lisp/cedet/srecode/srt-mode.el
+++ b/lisp/cedet/srecode/srt-mode.el
@@ -483,7 +483,7 @@ section or ? for an ask variable."
483 483
484 (if (> start (point)) 484 (if (> start (point))
485 ;; If our starting point is after the found point, that 485 ;; If our starting point is after the found point, that
486 ;; means we are not inside the macro. Retur nil. 486 ;; means we are not inside the macro. Return nil.
487 nil 487 nil
488 ;; We are inside the macro, extract the text so far. 488 ;; We are inside the macro, extract the text so far.
489 (let* ((macroend (match-beginning 0)) 489 (let* ((macroend (match-beginning 0))
diff --git a/lisp/cedet/srecode/texi.el b/lisp/cedet/srecode/texi.el
index 33440d04432..acfc2486711 100644
--- a/lisp/cedet/srecode/texi.el
+++ b/lisp/cedet/srecode/texi.el
@@ -231,7 +231,7 @@ This is to take advantage of TeXinfo's markup symbols."
231 (if buffer 231 (if buffer
232 (progn (set-buffer buffer) 232 (progn (set-buffer buffer)
233 (srecode-texi-texify-docstring string)) 233 (srecode-texi-texify-docstring string))
234 ;; Else, no buffer, so lets do something else 234 ;; Else, no buffer, so let's do something else
235 (with-mode-local texinfo-mode 235 (with-mode-local texinfo-mode
236 (srecode-texi-texify-docstring string))))) 236 (srecode-texi-texify-docstring string)))))
237 237
diff --git a/lisp/comint.el b/lisp/comint.el
index b91b82adb21..f25293ff3ac 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -3442,7 +3442,7 @@ Also print a message when redirection is completed."
3442 :group 'comint 3442 :group 'comint
3443 :type 'boolean) 3443 :type 'boolean)
3444 3444
3445;; Directly analagous to comint-preoutput-filter-functions 3445;; Directly analogous to comint-preoutput-filter-functions
3446(defvar comint-redirect-filter-functions nil 3446(defvar comint-redirect-filter-functions nil
3447 "List of functions to call before inserting redirected process output. 3447 "List of functions to call before inserting redirected process output.
3448Each function gets one argument, a string containing the text received 3448Each function gets one argument, a string containing the text received
diff --git a/lisp/cus-start.el b/lisp/cus-start.el
index 3760a7a9d74..1d6b42f48e6 100644
--- a/lisp/cus-start.el
+++ b/lisp/cus-start.el
@@ -400,8 +400,8 @@ since it could result in memory overflow and make Emacs crash."
400 (const :tag "Never (nil)" :value nil) 400 (const :tag "Never (nil)" :value nil)
401 (const :tag "Only on ttys" :value tty) 401 (const :tag "Only on ttys" :value tty)
402 (other :tag "Always" t)) "23.1") 402 (other :tag "Always" t)) "23.1")
403 (window-splits windows boolean "24.1") 403 (window-combination-resize windows boolean "24.1")
404 (window-nest windows boolean "24.1") 404 (window-combination-limit windows boolean "24.1")
405 ;; xdisp.c 405 ;; xdisp.c
406 (show-trailing-whitespace whitespace-faces boolean nil 406 (show-trailing-whitespace whitespace-faces boolean nil
407 :safe booleanp) 407 :safe booleanp)
diff --git a/lisp/desktop.el b/lisp/desktop.el
index cdc787dfde9..8a61bec0eea 100644
--- a/lisp/desktop.el
+++ b/lisp/desktop.el
@@ -4,7 +4,7 @@
4 4
5;; Author: Morten Welinder <terra@diku.dk> 5;; Author: Morten Welinder <terra@diku.dk>
6;; Keywords: convenience 6;; Keywords: convenience
7;; Favourite-brand-of-beer: None, I hate beer. 7;; Favorite-brand-of-beer: None, I hate beer.
8 8
9;; This file is part of GNU Emacs. 9;; This file is part of GNU Emacs.
10 10
@@ -1176,7 +1176,7 @@ directory DIRNAME."
1176 (setq desktop-buffer-fail-count (1+ desktop-buffer-fail-count)) 1176 (setq desktop-buffer-fail-count (1+ desktop-buffer-fail-count))
1177 (setq result nil)) 1177 (setq result nil))
1178 ;; Restore buffer list order with new buffer at end. Don't change 1178 ;; Restore buffer list order with new buffer at end. Don't change
1179 ;; the order for old desktop files (old desktop module behaviour). 1179 ;; the order for old desktop files (old desktop module behavior).
1180 (unless (< desktop-file-version 206) 1180 (unless (< desktop-file-version 206)
1181 (mapc 'bury-buffer buffer-list) 1181 (mapc 'bury-buffer buffer-list)
1182 (when result (bury-buffer result))) 1182 (when result (bury-buffer result)))
diff --git a/lisp/dframe.el b/lisp/dframe.el
index 02eeef064fe..93d9e7948cf 100644
--- a/lisp/dframe.el
+++ b/lisp/dframe.el
@@ -523,7 +523,7 @@ LOCATION can be one of 'random, 'left-right, or 'top-bottom."
523 (funcall f 'default frame))))) 523 (funcall f 'default frame)))))
524 524
525(defun dframe-detach (frame-var cache-var buffer-var) 525(defun dframe-detach (frame-var cache-var buffer-var)
526 "Detatch the frame in symbol FRAME-VAR. 526 "Detach the frame in symbol FRAME-VAR.
527CACHE-VAR and BUFFER-VAR are symbols as in `dframe-frame-mode'" 527CACHE-VAR and BUFFER-VAR are symbols as in `dframe-frame-mode'"
528 (with-current-buffer (symbol-value buffer-var) 528 (with-current-buffer (symbol-value buffer-var)
529 (rename-buffer (buffer-name) t) 529 (rename-buffer (buffer-name) t)
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index b09096978fd..b63940cec2d 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -347,7 +347,7 @@ This calls touch."
347 ;; Do the operation and record failures. 347 ;; Do the operation and record failures.
348 failures (nconc (apply function (append args pending)) 348 failures (nconc (apply function (append args pending))
349 failures) 349 failures)
350 ;; Transfer the elemens of PENDING onto PAST 350 ;; Transfer the elements of PENDING onto PAST
351 ;; and clear it out. Now PAST contains the first N files 351 ;; and clear it out. Now PAST contains the first N files
352 ;; specified (for some N), and FILES contains the rest. 352 ;; specified (for some N), and FILES contains the rest.
353 past (nconc past pending) 353 past (nconc past pending)
@@ -1490,7 +1490,7 @@ ARG as in `dired-get-marked-files'.
1490Optional arg MARKER-CHAR as in `dired-create-files'. 1490Optional arg MARKER-CHAR as in `dired-create-files'.
1491Optional arg OP1 is an alternate form for OPERATION if there is 1491Optional arg OP1 is an alternate form for OPERATION if there is
1492 only one file. 1492 only one file.
1493Optional arg HOW-TO determiness how to treat the target. 1493Optional arg HOW-TO determines how to treat the target.
1494 If HOW-TO is nil, use `file-directory-p' to determine if the 1494 If HOW-TO is nil, use `file-directory-p' to determine if the
1495 target is a directory. If so, the marked file(s) are created 1495 target is a directory. If so, the marked file(s) are created
1496 inside that directory. Otherwise, the target is a plain file; 1496 inside that directory. Otherwise, the target is a plain file;
diff --git a/lisp/dired.el b/lisp/dired.el
index 4e03d61a06e..e88ebc83b33 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -1025,7 +1025,7 @@ BEG..END is the line where the file info is located."
1025 ;; spaces there (and within the filename as well, of course). 1025 ;; spaces there (and within the filename as well, of course).
1026 (save-excursion 1026 (save-excursion
1027 (let (file file-col other other-col) 1027 (let (file file-col other other-col)
1028 ;; Check that there is indeed a file, and that there is anoter adjacent 1028 ;; Check that there is indeed a file, and that there is another adjacent
1029 ;; file with which to align, and that additional spaces are needed to 1029 ;; file with which to align, and that additional spaces are needed to
1030 ;; align the filenames. 1030 ;; align the filenames.
1031 (when (and (setq file (progn (goto-char beg) 1031 (when (and (setq file (progn (goto-char beg)
@@ -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" "0ffe89ae728efb341dfacff6c85e2ba4") 3670;;;;;; dired-diff) "dired-aux" "dired-aux.el" "2026ac587f0d9e893bae7662ff9d9318")
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/electric.el b/lisp/electric.el
index 26fba20ea12..69acb773648 100644
--- a/lisp/electric.el
+++ b/lisp/electric.el
@@ -197,7 +197,11 @@ 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
202form (CHAR . PREDICATE) which means that CHAR should cause reindentation
203only if PREDICATE returns non-nil. PREDICATE is called with no arguments
204and with point before the inserted char.")
201 205
202(defun electric-indent-post-self-insert-function () 206(defun electric-indent-post-self-insert-function ()
203 ;; FIXME: This reindents the current line, but what we really want instead is 207 ;; FIXME: This reindents the current line, but what we really want instead is
@@ -208,7 +212,12 @@ Returns nil when we can't find this char."
208 ;; There might be a way to get it working by analyzing buffer-undo-list, but 212 ;; There might be a way to get it working by analyzing buffer-undo-list, but
209 ;; it looks challenging. 213 ;; it looks challenging.
210 (let (pos) 214 (let (pos)
211 (when (and (memq last-command-event electric-indent-chars) 215 (when (and (or (memq last-command-event electric-indent-chars)
216 (let ((cp (assq last-command-event electric-indent-chars)))
217 (and cp (setq pos (electric--after-char-pos))
218 (save-excursion
219 (goto-char (1- pos))
220 (funcall (cdr cp))))))
212 ;; Don't reindent while inserting spaces at beginning of line. 221 ;; Don't reindent while inserting spaces at beginning of line.
213 (or (not (memq last-command-event '(?\s ?\t))) 222 (or (not (memq last-command-event '(?\s ?\t)))
214 (save-excursion (skip-chars-backward " \t") (not (bolp)))) 223 (save-excursion (skip-chars-backward " \t") (not (bolp))))
@@ -253,19 +262,13 @@ in `electric-indent-chars'."
253 :group 'electricity 262 :group 'electricity
254 (if electric-indent-mode 263 (if electric-indent-mode
255 (add-hook 'post-self-insert-hook 264 (add-hook 'post-self-insert-hook
256 #'electric-indent-post-self-insert-function) 265 #'electric-indent-post-self-insert-function
266 ;; post-self-insert-hooks interact in non-trivial ways.
267 ;; It turns out that electric-indent-mode generally works
268 ;; better last.
269 'append)
257 (remove-hook 'post-self-insert-hook 270 (remove-hook 'post-self-insert-hook
258 #'electric-indent-post-self-insert-function)) 271 #'electric-indent-post-self-insert-function)))
259 ;; FIXME: electric-indent-mode and electric-layout-mode interact
260 ;; in non-trivial ways. It turns out that electric-indent-mode works
261 ;; better if it is run *after* electric-layout-mode's hook.
262 (when (memq #'electric-layout-post-self-insert-function
263 (memq #'electric-indent-post-self-insert-function
264 (default-value 'post-self-insert-hook)))
265 (remove-hook 'post-self-insert-hook
266 #'electric-layout-post-self-insert-function)
267 (add-hook 'post-self-insert-hook
268 #'electric-layout-post-self-insert-function)))
269 272
270;; Electric pairing. 273;; Electric pairing.
271 274
@@ -284,6 +287,7 @@ This can be convenient for people who find it easier to hit ) than C-f."
284 287
285(defun electric-pair-post-self-insert-function () 288(defun electric-pair-post-self-insert-function ()
286 (let* ((syntax (and (eq (char-before) last-command-event) ; Sanity check. 289 (let* ((syntax (and (eq (char-before) last-command-event) ; Sanity check.
290 electric-pair-mode
287 (let ((x (assq last-command-event electric-pair-pairs))) 291 (let ((x (assq last-command-event electric-pair-pairs)))
288 (cond 292 (cond
289 (x (if (eq (car x) (cdr x)) ?\" ?\()) 293 (x (if (eq (car x) (cdr x)) ?\" ?\())
diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el
index a245a91c5c1..8527bc9e640 100644
--- a/lisp/emacs-lisp/advice.el
+++ b/lisp/emacs-lisp/advice.el
@@ -664,8 +664,8 @@
664 664
665;; @@@ Enabling automatic advice activation: 665;; @@@ Enabling automatic advice activation:
666;; ========================================= 666;; =========================================
667;; Automatic advice activation is enabled by default. It can be disabled by 667;; Automatic advice activation is enabled by default. It can be disabled with
668;; doint `M-x ad-stop-advice' and enabled again with `M-x ad-start-advice'. 668;; `M-x ad-stop-advice' and enabled again with `M-x ad-start-advice'.
669 669
670;; @@ Caching of advised definitions: 670;; @@ Caching of advised definitions:
671;; ================================== 671;; ==================================
diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index 6d5067151d3..b3ac23b2b76 100644
--- a/lisp/emacs-lisp/autoload.el
+++ b/lisp/emacs-lisp/autoload.el
@@ -514,6 +514,13 @@ Return non-nil if and only if FILE adds no autoloads to OUTFILE
514 (let ((secondary-autoloads-file-buf 514 (let ((secondary-autoloads-file-buf
515 (if (local-variable-p 'generated-autoload-file) 515 (if (local-variable-p 'generated-autoload-file)
516 (current-buffer)))) 516 (current-buffer))))
517 ;; Ignore a buffer-local setting if it points to the
518 ;; global value. Otherwise we end up writing a mix of md5s
519 ;; and time-stamps to the global file. (Bug#10049)
520 (and secondary-autoloads-file-buf
521 outfile
522 (not otherbuf)
523 (setq secondary-autoloads-file-buf nil))
517 (with-current-buffer (marker-buffer output-start) 524 (with-current-buffer (marker-buffer output-start)
518 (save-excursion 525 (save-excursion
519 ;; Insert the section-header line which lists the file name 526 ;; Insert the section-header line which lists the file name
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index 7b98ade2422..0630f5f4e4e 100644
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -527,7 +527,7 @@
527 ;; However, don't actually bother calling `ignore'. 527 ;; However, don't actually bother calling `ignore'.
528 `(prog1 nil . ,(mapcar 'byte-optimize-form (cdr form)))) 528 `(prog1 nil . ,(mapcar 'byte-optimize-form (cdr form))))
529 529
530 ;; Neeeded as long as we run byte-optimize-form after cconv. 530 ;; Needed as long as we run byte-optimize-form after cconv.
531 ((eq fn 'internal-make-closure) form) 531 ((eq fn 'internal-make-closure) form)
532 532
533 ((byte-code-function-p fn) 533 ((byte-code-function-p fn)
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index fae402d4215..096e91ea4fb 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -355,7 +355,7 @@ else the global value will be modified."
355(defvar byte-compile-interactive-only-functions 355(defvar byte-compile-interactive-only-functions
356 '(beginning-of-buffer end-of-buffer replace-string replace-regexp 356 '(beginning-of-buffer end-of-buffer replace-string replace-regexp
357 insert-file insert-buffer insert-file-literally previous-line next-line 357 insert-file insert-buffer insert-file-literally previous-line next-line
358 goto-line comint-run delete-backward-char) 358 goto-line comint-run delete-backward-char toggle-read-only)
359 "List of commands that are not meant to be called from Lisp.") 359 "List of commands that are not meant to be called from Lisp.")
360 360
361(defvar byte-compile-not-obsolete-vars nil 361(defvar byte-compile-not-obsolete-vars nil
@@ -743,7 +743,7 @@ BYTES and PC are updated after evaluating all the arguments."
743 743
744(defmacro byte-compile-push-bytecode-const2 (opcode const2 bytes pc) 744(defmacro byte-compile-push-bytecode-const2 (opcode const2 bytes pc)
745 "Push OPCODE and the two-byte constant CONST2 onto BYTES, and add 3 to PC. 745 "Push OPCODE and the two-byte constant CONST2 onto BYTES, and add 3 to PC.
746CONST2 may be evaulated multiple times." 746CONST2 may be evaluated multiple times."
747 `(byte-compile-push-bytecodes ,opcode (logand ,const2 255) (lsh ,const2 -8) 747 `(byte-compile-push-bytecodes ,opcode (logand ,const2 255) (lsh ,const2 -8)
748 ,bytes ,pc)) 748 ,bytes ,pc))
749 749
diff --git a/lisp/emacs-lisp/cconv.el b/lisp/emacs-lisp/cconv.el
index 742a98f5e7b..c6e157be776 100644
--- a/lisp/emacs-lisp/cconv.el
+++ b/lisp/emacs-lisp/cconv.el
@@ -26,21 +26,21 @@
26 26
27;; This takes a piece of Elisp code, and eliminates all free variables from 27;; This takes a piece of Elisp code, and eliminates all free variables from
28;; lambda expressions. The user entry points are cconv-closure-convert and 28;; lambda expressions. The user entry points are cconv-closure-convert and
29;; cconv-closure-convert-toplevel(for toplevel forms). 29;; cconv-closure-convert-toplevel (for toplevel forms).
30;; All macros should be expanded beforehand. 30;; All macros should be expanded beforehand.
31;; 31;;
32;; Here is a brief explanation how this code works. 32;; Here is a brief explanation how this code works.
33;; Firstly, we analyse the tree by calling cconv-analyse-form. 33;; Firstly, we analyze the tree by calling cconv-analyse-form.
34;; This function finds all mutated variables, all functions that are suitable 34;; This function finds all mutated variables, all functions that are suitable
35;; for lambda lifting and all variables captured by closure. It passes the tree 35;; for lambda lifting and all variables captured by closure. It passes the tree
36;; once, returning a list of three lists. 36;; once, returning a list of three lists.
37;; 37;;
38;; Then we calculate the intersection of first and third lists returned by 38;; Then we calculate the intersection of the first and third lists returned by
39;; cconv-analyse form to find all mutated variables that are captured by 39;; cconv-analyse form to find all mutated variables that are captured by
40;; closure. 40;; closure.
41 41
42;; Armed with this data, we call cconv-closure-convert-rec, that rewrites the 42;; Armed with this data, we call cconv-closure-convert-rec, that rewrites the
43;; tree recursivly, lifting lambdas where possible, building closures where it 43;; tree recursively, lifting lambdas where possible, building closures where it
44;; is needed and eliminating mutable variables used in closure. 44;; is needed and eliminating mutable variables used in closure.
45;; 45;;
46;; We do following replacements : 46;; We do following replacements :
@@ -142,7 +142,7 @@ Returns a form where all lambdas don't have any free variables."
142 (let ((cconv-freevars-alist '()) 142 (let ((cconv-freevars-alist '())
143 (cconv-lambda-candidates '()) 143 (cconv-lambda-candidates '())
144 (cconv-captured+mutated '())) 144 (cconv-captured+mutated '()))
145 ;; Analyse form - fill these variables with new information. 145 ;; Analyze form - fill these variables with new information.
146 (cconv-analyse-form form '()) 146 (cconv-analyse-form form '())
147 (setq cconv-freevars-alist (nreverse cconv-freevars-alist)) 147 (setq cconv-freevars-alist (nreverse cconv-freevars-alist))
148 (cconv-convert form nil nil))) ; Env initially empty. 148 (cconv-convert form nil nil))) ; Env initially empty.
@@ -581,7 +581,7 @@ FORM is the parent form that binds this var."
581 581
582(defun cconv-analyse-form (form env) 582(defun cconv-analyse-form (form env)
583 "Find mutated variables and variables captured by closure. 583 "Find mutated variables and variables captured by closure.
584Analyse lambdas if they are suitable for lambda lifting. 584Analyze lambdas if they are suitable for lambda lifting.
585- FORM is a piece of Elisp code after macroexpansion. 585- FORM is a piece of Elisp code after macroexpansion.
586- ENV is an alist mapping each enclosing lexical variable to its info. 586- ENV is an alist mapping each enclosing lexical variable to its info.
587 I.e. each element has the form (VAR . (READ MUTATED CAPTURED CALLED)). 587 I.e. each element has the form (VAR . (READ MUTATED CAPTURED CALLED)).
diff --git a/lisp/emacs-lisp/chart.el b/lisp/emacs-lisp/chart.el
index 56930a74693..75e7d62f395 100644
--- a/lisp/emacs-lisp/chart.el
+++ b/lisp/emacs-lisp/chart.el
@@ -634,7 +634,7 @@ SORT-PRED if desired."
634 (setq extlst (cons s extlst) 634 (setq extlst (cons s extlst)
635 cntlst (cons 1 cntlst))))) 635 cntlst (cons 1 cntlst)))))
636 (setq flst (cdr flst))) 636 (setq flst (cdr flst)))
637 ;; Lets create the chart! 637 ;; Let's create the chart!
638 (chart-bar-quickie 'vertical "Files Extension Distribution" 638 (chart-bar-quickie 'vertical "Files Extension Distribution"
639 extlst "File Extensions" 639 extlst "File Extensions"
640 cntlst "# of occurrences" 640 cntlst "# of occurrences"
@@ -693,7 +693,7 @@ SORT-PRED if desired."
693 ;(car (nth 5 data)) ; floats are Emacs only 693 ;(car (nth 5 data)) ; floats are Emacs only
694 ;(cdr (nth 5 data)) 694 ;(cdr (nth 5 data))
695 ))) 695 )))
696 ;; Lets create the chart! 696 ;; Let's create the chart!
697 (chart-bar-quickie 'vertical "Emacs Runtime Storage Usage" 697 (chart-bar-quickie 'vertical "Emacs Runtime Storage Usage"
698 names "Storage Items" 698 names "Storage Items"
699 nums "Objects"))) 699 nums "Objects")))
@@ -710,7 +710,7 @@ SORT-PRED if desired."
710 (if (fboundp 'x-display-list) 710 (if (fboundp 'x-display-list)
711 (setq names (append names '("x-displays")) 711 (setq names (append names '("x-displays"))
712 nums (append nums (list (length (x-display-list)))))) 712 nums (append nums (list (length (x-display-list))))))
713 ;; Lets create the chart! 713 ;; Let's create the chart!
714 (chart-bar-quickie 'vertical "Emacs List Size Chart" 714 (chart-bar-quickie 'vertical "Emacs List Size Chart"
715 names "Various Lists" 715 names "Various Lists"
716 nums "Objects"))) 716 nums "Objects")))
diff --git a/lisp/emacs-lisp/eieio-base.el b/lisp/emacs-lisp/eieio-base.el
index 139f5e6a4ce..df57148962f 100644
--- a/lisp/emacs-lisp/eieio-base.el
+++ b/lisp/emacs-lisp/eieio-base.el
@@ -54,7 +54,7 @@ not been set, use values from the parent."
54 54
55(defmethod slot-unbound ((object eieio-instance-inheritor) class slot-name fn) 55(defmethod slot-unbound ((object eieio-instance-inheritor) class slot-name fn)
56 "If a slot OBJECT in this CLASS is unbound, try to inherit, or throw a signal. 56 "If a slot OBJECT in this CLASS is unbound, try to inherit, or throw a signal.
57SLOT-NAME is the offending slot. FN is the function signalling the error." 57SLOT-NAME is the offending slot. FN is the function signaling the error."
58 (if (slot-boundp object 'parent-instance) 58 (if (slot-boundp object 'parent-instance)
59 ;; It may not look like it, but this line recurses back into this 59 ;; It may not look like it, but this line recurses back into this
60 ;; method if the parent instance's slot is unbound. 60 ;; method if the parent instance's slot is unbound.
diff --git a/lisp/emacs-lisp/eieio-opt.el b/lisp/emacs-lisp/eieio-opt.el
index 1b101cef875..8869530dc23 100644
--- a/lisp/emacs-lisp/eieio-opt.el
+++ b/lisp/emacs-lisp/eieio-opt.el
@@ -92,7 +92,7 @@ Optional HEADERFCN should be called to insert a few bits of info first."
92 (princ "Class ") 92 (princ "Class ")
93 (prin1 class) 93 (prin1 class)
94 (terpri) 94 (terpri)
95 ;; Inheritence tree information 95 ;; Inheritance tree information
96 (let ((pl (class-parents class))) 96 (let ((pl (class-parents class)))
97 (when pl 97 (when pl
98 (princ " Inherits from ") 98 (princ " Inherits from ")
diff --git a/lisp/emacs-lisp/eieio-speedbar.el b/lisp/emacs-lisp/eieio-speedbar.el
index d28ecd9615b..4ff3cc01978 100644
--- a/lisp/emacs-lisp/eieio-speedbar.el
+++ b/lisp/emacs-lisp/eieio-speedbar.el
@@ -282,7 +282,7 @@ Add one of the child classes to this class to the parent list of a class."
282 :abstract t) 282 :abstract t)
283 283
284 284
285;;; Methods to eieio-speedbar-* which do not need to be overriden 285;;; Methods to eieio-speedbar-* which do not need to be overridden
286;; 286;;
287(defmethod eieio-speedbar-make-tag-line ((object eieio-speedbar) 287(defmethod eieio-speedbar-make-tag-line ((object eieio-speedbar)
288 depth) 288 depth)
@@ -409,7 +409,7 @@ Optional DEPTH is the depth we start at."
409 default-directory)))) 409 default-directory))))
410 410
411 411
412;;; Methods to the eieio-speedbar-* classes which need to be overriden. 412;;; Methods to the eieio-speedbar-* classes which need to be overridden.
413;; 413;;
414(defmethod eieio-speedbar-object-children ((object eieio-speedbar)) 414(defmethod eieio-speedbar-object-children ((object eieio-speedbar))
415 "Return a list of children to be displayed in speedbar. 415 "Return a list of children to be displayed in speedbar.
diff --git a/lisp/emacs-lisp/eieio.el b/lisp/emacs-lisp/eieio.el
index f1fe9594fc0..5e29a85d386 100644
--- a/lisp/emacs-lisp/eieio.el
+++ b/lisp/emacs-lisp/eieio.el
@@ -1,5 +1,5 @@
1;;; eieio.el --- Enhanced Implementation of Emacs Interpreted Objects 1;;; eieio.el --- Enhanced Implementation of Emacs Interpreted Objects
2;;; or maybe Eric's Implementation of Emacs Intrepreted Objects 2;;; or maybe Eric's Implementation of Emacs Interpreted Objects
3 3
4;; Copyright (C) 1995-1996, 1998-2011 Free Software Foundation, Inc. 4;; Copyright (C) 1995-1996, 1998-2011 Free Software Foundation, Inc.
5 5
@@ -395,7 +395,7 @@ It creates an autoload function for CNAME's constructor."
395 (aset newc class-parent (cons SC (aref newc class-parent))) 395 (aset newc class-parent (cons SC (aref newc class-parent)))
396 ) 396 )
397 397
398 ;; turn this into a useable self-pointing symbol 398 ;; turn this into a usable self-pointing symbol
399 (set cname cname) 399 (set cname cname)
400 400
401 ;; Store the new class vector definition into the symbol. We need to 401 ;; Store the new class vector definition into the symbol. We need to
@@ -509,7 +509,7 @@ See `defclass' for more information."
509 ;; save parent in child 509 ;; save parent in child
510 (aset newc class-parent (list eieio-default-superclass)))) 510 (aset newc class-parent (list eieio-default-superclass))))
511 511
512 ;; turn this into a useable self-pointing symbol 512 ;; turn this into a usable self-pointing symbol
513 (set cname cname) 513 (set cname cname)
514 514
515 ;; These two tests must be created right away so we can have self- 515 ;; These two tests must be created right away so we can have self-
@@ -553,7 +553,7 @@ See `defclass' for more information."
553 (put cname 'cl-deftype-handler 553 (put cname 'cl-deftype-handler
554 (list 'lambda () `(list 'satisfies (quote ,csym))))) 554 (list 'lambda () `(list 'satisfies (quote ,csym)))))
555 555
556 ;; before adding new slots, lets add all the methods and classes 556 ;; before adding new slots, let's add all the methods and classes
557 ;; in from the parent class 557 ;; in from the parent class
558 (eieio-copy-parents-into-subclass newc superclasses) 558 (eieio-copy-parents-into-subclass newc superclasses)
559 559
@@ -826,7 +826,7 @@ if default value is nil."
826 ;; Make sure we duplicate those items that are sequences. 826 ;; Make sure we duplicate those items that are sequences.
827 (condition-case nil 827 (condition-case nil
828 (if (sequencep d) (setq d (copy-sequence d))) 828 (if (sequencep d) (setq d (copy-sequence d)))
829 ;; This copy can fail on a cons cell with a non-cons in the cdr. Lets skip it if it doesn't work. 829 ;; This copy can fail on a cons cell with a non-cons in the cdr. Let's skip it if it doesn't work.
830 (error nil)) 830 (error nil))
831 (if (sequencep type) (setq type (copy-sequence type))) 831 (if (sequencep type) (setq type (copy-sequence type)))
832 (if (sequencep cust) (setq cust (copy-sequence cust))) 832 (if (sequencep cust) (setq cust (copy-sequence cust)))
@@ -958,7 +958,7 @@ if default value is nil."
958 (progn 958 (progn
959 (eieio-perform-slot-validation-for-default a type value skipnil) 959 (eieio-perform-slot-validation-for-default a type value skipnil)
960 ;; Here we have found a :class version of a slot. This 960 ;; Here we have found a :class version of a slot. This
961 ;; requires a very different aproach. 961 ;; requires a very different approach.
962 (aset newc class-class-allocation-a (cons a (aref newc class-class-allocation-a))) 962 (aset newc class-class-allocation-a (cons a (aref newc class-class-allocation-a)))
963 (aset newc class-class-allocation-doc (cons doc (aref newc class-class-allocation-doc))) 963 (aset newc class-class-allocation-doc (cons doc (aref newc class-class-allocation-doc)))
964 (aset newc class-class-allocation-type (cons type (aref newc class-class-allocation-type))) 964 (aset newc class-class-allocation-type (cons type (aref newc class-class-allocation-type)))
@@ -1470,7 +1470,7 @@ created by the :initarg tag."
1470 (c (eieio-slot-name-index class obj slot))) 1470 (c (eieio-slot-name-index class obj slot)))
1471 (if (not c) 1471 (if (not c)
1472 ;; It might be missing because it is a :class allocated slot. 1472 ;; It might be missing because it is a :class allocated slot.
1473 ;; Lets check that info out. 1473 ;; Let's check that info out.
1474 (if (setq c (eieio-class-slot-name-index class slot)) 1474 (if (setq c (eieio-class-slot-name-index class slot))
1475 ;; Oref that slot. 1475 ;; Oref that slot.
1476 (aref (aref (class-v class) class-class-allocation-values) c) 1476 (aref (aref (class-v class) class-class-allocation-values) c)
@@ -1503,7 +1503,7 @@ Fills in OBJ's SLOT with its default value."
1503 (c (eieio-slot-name-index cl obj slot))) 1503 (c (eieio-slot-name-index cl obj slot)))
1504 (if (not c) 1504 (if (not c)
1505 ;; It might be missing because it is a :class allocated slot. 1505 ;; It might be missing because it is a :class allocated slot.
1506 ;; Lets check that info out. 1506 ;; Let's check that info out.
1507 (if (setq c 1507 (if (setq c
1508 (eieio-class-slot-name-index cl slot)) 1508 (eieio-class-slot-name-index cl slot))
1509 ;; Oref that slot. 1509 ;; Oref that slot.
@@ -1549,7 +1549,7 @@ Fills in OBJ's SLOT with VALUE."
1549 (let ((c (eieio-slot-name-index (object-class-fast obj) obj slot))) 1549 (let ((c (eieio-slot-name-index (object-class-fast obj) obj slot)))
1550 (if (not c) 1550 (if (not c)
1551 ;; It might be missing because it is a :class allocated slot. 1551 ;; It might be missing because it is a :class allocated slot.
1552 ;; Lets check that info out. 1552 ;; Let's check that info out.
1553 (if (setq c 1553 (if (setq c
1554 (eieio-class-slot-name-index (aref obj object-class) slot)) 1554 (eieio-class-slot-name-index (aref obj object-class) slot))
1555 ;; Oset that slot. 1555 ;; Oset that slot.
@@ -1581,7 +1581,7 @@ Fills in the default value in CLASS' in SLOT with VALUE."
1581 (c (eieio-slot-name-index class nil slot))) 1581 (c (eieio-slot-name-index class nil slot)))
1582 (if (not c) 1582 (if (not c)
1583 ;; It might be missing because it is a :class allocated slot. 1583 ;; It might be missing because it is a :class allocated slot.
1584 ;; Lets check that info out. 1584 ;; Let's check that info out.
1585 (if (setq c (eieio-class-slot-name-index class slot)) 1585 (if (setq c (eieio-class-slot-name-index class slot))
1586 (progn 1586 (progn
1587 ;; Oref that slot. 1587 ;; Oref that slot.
@@ -2563,7 +2563,7 @@ This is usually a symbol that starts with `:'."
2563 2563
2564;;; 2564;;;
2565;; We want all objects created by EIEIO to have some default set of 2565;; We want all objects created by EIEIO to have some default set of
2566;; behaviours so we can create object utilities, and allow various 2566;; behaviors so we can create object utilities, and allow various
2567;; types of error checking. To do this, create the default EIEIO 2567;; types of error checking. To do this, create the default EIEIO
2568;; class, and when no parent class is specified, use this as the 2568;; class, and when no parent class is specified, use this as the
2569;; default. (But don't store it in the other classes as the default, 2569;; default. (But don't store it in the other classes as the default,
@@ -3051,7 +3051,7 @@ Optional argument GROUP is the sub-group of slots to display.
3051 3051
3052;;;### (autoloads (eieio-help-mode-augmentation-maybee eieio-describe-generic 3052;;;### (autoloads (eieio-help-mode-augmentation-maybee eieio-describe-generic
3053;;;;;; eieio-describe-constructor eieio-describe-class eieio-browse) 3053;;;;;; eieio-describe-constructor eieio-describe-class eieio-browse)
3054;;;;;; "eieio-opt" "eieio-opt.el" "1bed0a56310f402683419139ebc18d7f") 3054;;;;;; "eieio-opt" "eieio-opt.el" "4fb6625c3a007438aab4e8e77b6c73c2")
3055;;; Generated autoloads from eieio-opt.el 3055;;; Generated autoloads from eieio-opt.el
3056 3056
3057(autoload 'eieio-browse "eieio-opt" "\ 3057(autoload 'eieio-browse "eieio-opt" "\
diff --git a/lisp/emacs-lisp/eldoc.el b/lisp/emacs-lisp/eldoc.el
index 901b6d1bf6a..9822b556f34 100644
--- a/lisp/emacs-lisp/eldoc.el
+++ b/lisp/emacs-lisp/eldoc.el
@@ -434,7 +434,7 @@ In the absence of INDEX, just call `eldoc-docstring-format-sym-doc'."
434 nil 434 nil
435 (list (eldoc-current-symbol) argument-index))))) 435 (list (eldoc-current-symbol) argument-index)))))
436 436
437;; Move to the beginnig of current sexp. Return the number of nested 437;; Move to the beginning of current sexp. Return the number of nested
438;; sexp the point was over or after. 438;; sexp the point was over or after.
439(defun eldoc-beginning-of-sexp () 439(defun eldoc-beginning-of-sexp ()
440 (let ((parse-sexp-ignore-comments t) 440 (let ((parse-sexp-ignore-comments t)
diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el
index 2afe42dc070..8b64cd84bb1 100644
--- a/lisp/emacs-lisp/ert.el
+++ b/lisp/emacs-lisp/ert.el
@@ -248,7 +248,7 @@ Emacs bug 6581 at URL `http://debbugs.gnu.org/cgi/bugreport.cgi?bug=6581'."
248 ;; We disallow nil since `ert-test-at-point' and related functions 248 ;; We disallow nil since `ert-test-at-point' and related functions
249 ;; want to return a test name, but also need an out-of-band value 249 ;; want to return a test name, but also need an out-of-band value
250 ;; on failure. Nil is the most natural out-of-band value; using 0 250 ;; on failure. Nil is the most natural out-of-band value; using 0
251 ;; or "" or signalling an error would be too awkward. 251 ;; or "" or signaling an error would be too awkward.
252 ;; 252 ;;
253 ;; Note that nil is still a valid value for the `name' slot in 253 ;; Note that nil is still a valid value for the `name' slot in
254 ;; ert-test objects. It designates an anonymous test. 254 ;; ert-test objects. It designates an anonymous test.
@@ -448,7 +448,7 @@ arguments: INNER-FORM and FORM-DESCRIPTION-FORM, where INNER-FORM
448is an expression equivalent to FORM, and FORM-DESCRIPTION-FORM is 448is an expression equivalent to FORM, and FORM-DESCRIPTION-FORM is
449an expression that returns a description of FORM. INNER-EXPANDER 449an expression that returns a description of FORM. INNER-EXPANDER
450should return code that calls INNER-FORM and performs the checks 450should return code that calls INNER-FORM and performs the checks
451and error signalling specific to the particular variant of 451and error signaling specific to the particular variant of
452`should'. The code that INNER-EXPANDER returns must not call 452`should'. The code that INNER-EXPANDER returns must not call
453FORM-DESCRIPTION-FORM before it has called INNER-FORM." 453FORM-DESCRIPTION-FORM before it has called INNER-FORM."
454 (lexical-let ((inner-expander inner-expander)) 454 (lexical-let ((inner-expander inner-expander))
@@ -489,17 +489,17 @@ Returns nil."
489 489
490Determines whether CONDITION matches TYPE and EXCLUDE-SUBTYPES, 490Determines whether CONDITION matches TYPE and EXCLUDE-SUBTYPES,
491and aborts the current test as failed if it doesn't." 491and aborts the current test as failed if it doesn't."
492 (let ((signalled-conditions (get (car condition) 'error-conditions)) 492 (let ((signaled-conditions (get (car condition) 'error-conditions))
493 (handled-conditions (etypecase type 493 (handled-conditions (etypecase type
494 (list type) 494 (list type)
495 (symbol (list type))))) 495 (symbol (list type)))))
496 (assert signalled-conditions) 496 (assert signaled-conditions)
497 (unless (ert--intersection signalled-conditions handled-conditions) 497 (unless (ert--intersection signaled-conditions handled-conditions)
498 (ert-fail (append 498 (ert-fail (append
499 (funcall form-description-fn) 499 (funcall form-description-fn)
500 (list 500 (list
501 :condition condition 501 :condition condition
502 :fail-reason (concat "the error signalled did not" 502 :fail-reason (concat "the error signaled did not"
503 " have the expected type"))))) 503 " have the expected type")))))
504 (when exclude-subtypes 504 (when exclude-subtypes
505 (unless (member (car condition) handled-conditions) 505 (unless (member (car condition) handled-conditions)
@@ -507,7 +507,7 @@ and aborts the current test as failed if it doesn't."
507 (funcall form-description-fn) 507 (funcall form-description-fn)
508 (list 508 (list
509 :condition condition 509 :condition condition
510 :fail-reason (concat "the error signalled was a subtype" 510 :fail-reason (concat "the error signaled was a subtype"
511 " of the expected type")))))))) 511 " of the expected type"))))))))
512 512
513;; FIXME: The expansion will evaluate the keyword args (if any) in 513;; FIXME: The expansion will evaluate the keyword args (if any) in
@@ -515,7 +515,7 @@ and aborts the current test as failed if it doesn't."
515(defmacro* should-error (form &rest keys &key type exclude-subtypes) 515(defmacro* should-error (form &rest keys &key type exclude-subtypes)
516 "Evaluate FORM and check that it signals an error. 516 "Evaluate FORM and check that it signals an error.
517 517
518The error signalled needs to match TYPE. TYPE should be a list 518The error signaled needs to match TYPE. TYPE should be a list
519of condition names. (It can also be a non-nil symbol, which is 519of condition names. (It can also be a non-nil symbol, which is
520equivalent to a singleton list containing that symbol.) If 520equivalent to a singleton list containing that symbol.) If
521EXCLUDE-SUBTYPES is nil, the error matches TYPE if one of its 521EXCLUDE-SUBTYPES is nil, the error matches TYPE if one of its
@@ -523,7 +523,7 @@ condition names is an element of TYPE. If EXCLUDE-SUBTYPES is
523non-nil, the error matches TYPE if it is an element of TYPE. 523non-nil, the error matches TYPE if it is an element of TYPE.
524 524
525If the error matches, returns (ERROR-SYMBOL . DATA) from the 525If the error matches, returns (ERROR-SYMBOL . DATA) from the
526error. If not, or if no error was signalled, abort the test as 526error. If not, or if no error was signaled, abort the test as
527failed." 527failed."
528 (unless type (setq type ''error)) 528 (unless type (setq type ''error))
529 (ert--expand-should 529 (ert--expand-should
@@ -2120,7 +2120,7 @@ To be used in the ERT results buffer."
2120 2120
2121EWOC-FN specifies the direction and should be either `ewoc-prev' 2121EWOC-FN specifies the direction and should be either `ewoc-prev'
2122or `ewoc-next'. If there are no more nodes in that direction, an 2122or `ewoc-next'. If there are no more nodes in that direction, an
2123error is signalled with the message ERROR-MESSAGE." 2123error is signaled with the message ERROR-MESSAGE."
2124 (loop 2124 (loop
2125 (setq node (funcall ewoc-fn ert--results-ewoc node)) 2125 (setq node (funcall ewoc-fn ert--results-ewoc node))
2126 (when (null node) 2126 (when (null node)
diff --git a/lisp/emacs-lisp/regi.el b/lisp/emacs-lisp/regi.el
index 8000dcd53dd..6905589e5be 100644
--- a/lisp/emacs-lisp/regi.el
+++ b/lisp/emacs-lisp/regi.el
@@ -161,7 +161,7 @@ useful information:
161 (progn (goto-char end) (regi-pos 'bonl)) 161 (progn (goto-char end) (regi-pos 'bonl))
162 (progn (goto-char start) (regi-pos 'bol))))) 162 (progn (goto-char start) (regi-pos 'bol)))))
163 163
164 ;; lets find the special tags and remove them from the working 164 ;; let's find the special tags and remove them from the working
165 ;; frame. note that only the last special tag is used. 165 ;; frame. note that only the last special tag is used.
166 (mapc 166 (mapc
167 (function 167 (function
diff --git a/lisp/emacs-lisp/rx.el b/lisp/emacs-lisp/rx.el
index 56efd142198..2e388d20114 100644
--- a/lisp/emacs-lisp/rx.el
+++ b/lisp/emacs-lisp/rx.el
@@ -393,7 +393,7 @@ FORM is of the form `(and FORM1 ...)'."
393(defun rx-anything (form) 393(defun rx-anything (form)
394 "Match any character." 394 "Match any character."
395 (if (consp form) 395 (if (consp form)
396 (error "rx `anythng' syntax error: %s" form)) 396 (error "rx `anything' syntax error: %s" form))
397 (rx-or (list 'or 'not-newline ?\n))) 397 (rx-or (list 'or 'not-newline ?\n)))
398 398
399 399
diff --git a/lisp/emacs-lisp/smie.el b/lisp/emacs-lisp/smie.el
index cad7c8419b2..265328631e9 100644
--- a/lisp/emacs-lisp/smie.el
+++ b/lisp/emacs-lisp/smie.el
@@ -130,7 +130,7 @@
130;; - a 2 dimensional precedence table (key word "prec2"), is a 2D 130;; - a 2 dimensional precedence table (key word "prec2"), is a 2D
131;; table recording the precedence relation (can be `<', `=', `>', or 131;; table recording the precedence relation (can be `<', `=', `>', or
132;; nil) between each pair of tokens. 132;; nil) between each pair of tokens.
133;; - a precedence-level table (key word "grammar"), which is a alist 133;; - a precedence-level table (key word "grammar"), which is an alist
134;; giving for each token its left and right precedence level (a 134;; giving for each token its left and right precedence level (a
135;; number or nil). This is used in `smie-grammar'. 135;; number or nil). This is used in `smie-grammar'.
136;; The prec2 tables are only intermediate data structures: the source 136;; The prec2 tables are only intermediate data structures: the source
@@ -759,7 +759,7 @@ Possible return values:
759 (indirect-function 'smie-op-left) 759 (indirect-function 'smie-op-left)
760 halfsexp)) 760 halfsexp))
761 761
762;;; Miscellanous commands using the precedence parser. 762;;; Miscellaneous commands using the precedence parser.
763 763
764(defun smie-backward-sexp-command (&optional n) 764(defun smie-backward-sexp-command (&optional n)
765 "Move backward through N logical elements." 765 "Move backward through N logical elements."
@@ -1579,8 +1579,9 @@ KEYWORDS are additional arguments, which can use the following keywords:
1579 (while (setq closer (pop closers)) 1579 (while (setq closer (pop closers))
1580 (unless (and closers 1580 (unless (and closers
1581 ;; FIXME: this eliminates prefixes of other 1581 ;; FIXME: this eliminates prefixes of other
1582 ;; closers, but we should probably elimnate 1582 ;; closers, but we should probably
1583 ;; prefixes of other keywords as well. 1583 ;; eliminate prefixes of other keywords
1584 ;; as well.
1584 (string-prefix-p closer (car closers))) 1585 (string-prefix-p closer (car closers)))
1585 (push (aref closer (1- (length closer))) triggers))) 1586 (push (aref closer (1- (length closer))) triggers)))
1586 (delete-dups triggers))))))) 1587 (delete-dups triggers)))))))
diff --git a/lisp/emacs-lisp/tabulated-list.el b/lisp/emacs-lisp/tabulated-list.el
index 75c9a01323d..e16970c6804 100644
--- a/lisp/emacs-lisp/tabulated-list.el
+++ b/lisp/emacs-lisp/tabulated-list.el
@@ -321,7 +321,7 @@ This mode is usually not used directly; instead, other major
321modes are derived from it, using `define-derived-mode'. 321modes are derived from it, using `define-derived-mode'.
322 322
323In this major mode, the buffer is divided into multiple columns, 323In this major mode, the buffer is divided into multiple columns,
324which are labelled using the header line. Each non-empty line 324which are labeled using the header line. Each non-empty line
325belongs to one \"entry\", and the entries can be sorted according 325belongs to one \"entry\", and the entries can be sorted according
326to their column values. 326to their column values.
327 327
diff --git a/lisp/emacs-lisp/tcover-unsafep.el b/lisp/emacs-lisp/tcover-unsafep.el
index cc3e633f098..7144138445c 100644
--- a/lisp/emacs-lisp/tcover-unsafep.el
+++ b/lisp/emacs-lisp/tcover-unsafep.el
@@ -100,7 +100,7 @@
100 . (risky-local-variable format-alist)) 100 . (risky-local-variable format-alist))
101 ( (setq buffer-display-count (delete-file "x")) 101 ( (setq buffer-display-count (delete-file "x"))
102 . (function delete-file)) 102 . (function delete-file))
103 ;;These are actualy safe (they signal errors) 103 ;;These are actually safe (they signal errors)
104 ( (apply '(x) '(1 2 3)) 104 ( (apply '(x) '(1 2 3))
105 . (function (x))) 105 . (function (x)))
106 ( (let (((x))) 1) 106 ( (let (((x))) 1)
diff --git a/lisp/emacs-lisp/testcover.el b/lisp/emacs-lisp/testcover.el
index 4c83e7e2e0d..8f991575eda 100644
--- a/lisp/emacs-lisp/testcover.el
+++ b/lisp/emacs-lisp/testcover.el
@@ -509,7 +509,7 @@ eliminated by adding more test cases."
509 (set-buffer-modified-p changed)))) 509 (set-buffer-modified-p changed))))
510 510
511(defun testcover-mark-all (&optional buffer) 511(defun testcover-mark-all (&optional buffer)
512 "Mark all forms in BUFFER that did not get completley tested during 512 "Mark all forms in BUFFER that did not get completely tested during
513coverage tests. This function creates many overlays." 513coverage tests. This function creates many overlays."
514 (interactive "bMark forms in buffer: ") 514 (interactive "bMark forms in buffer: ")
515 (if buffer 515 (if buffer
diff --git a/lisp/emulation/crisp.el b/lisp/emulation/crisp.el
index 010e32857c5..71e607140de 100644
--- a/lisp/emulation/crisp.el
+++ b/lisp/emulation/crisp.el
@@ -34,7 +34,7 @@
34;; you put (setq crisp-load-scroll-all t) in your .emacs before 34;; you put (setq crisp-load-scroll-all t) in your .emacs before
35;; loading this package. If this feature is enabled, it will bind 35;; loading this package. If this feature is enabled, it will bind
36;; meta-f1 to the scroll-all mode toggle. The scroll-all package 36;; meta-f1 to the scroll-all mode toggle. The scroll-all package
37;; duplicates the scroll-alling feature in CRiSP. 37;; duplicates the scroll-all feature in CRiSP.
38 38
39;; Also, the default keybindings for brief/CRiSP override the M-x 39;; Also, the default keybindings for brief/CRiSP override the M-x
40;; key to exit the editor. If you don't like this functionality, you 40;; key to exit the editor. If you don't like this functionality, you
diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el
index 359b3ff751d..df37157f7a9 100644
--- a/lisp/emulation/viper-cmd.el
+++ b/lisp/emulation/viper-cmd.el
@@ -1599,7 +1599,7 @@ as a Meta key and any number of multiple escapes are allowed."
1599;; call viper-execute-com to execute viper-exec-change, which eventually will 1599;; call viper-execute-com to execute viper-exec-change, which eventually will
1600;; call viper-change to invoke the replace mode on the region. 1600;; call viper-change to invoke the replace mode on the region.
1601;; 1601;;
1602;; The var viper-d-com is set to (M-COM VAL COM REG INSETED-TEXT COMMAND-KEYS) 1602;; The var viper-d-com is set to (M-COM VAL COM REG INSERTED-TEXT COMMAND-KEYS)
1603;; via a call to viper-set-destructive-command, for later use by viper-repeat. 1603;; via a call to viper-set-destructive-command, for later use by viper-repeat.
1604(defun viper-execute-com (m-com val com) 1604(defun viper-execute-com (m-com val com)
1605 (let ((reg viper-use-register)) 1605 (let ((reg viper-use-register))
diff --git a/lisp/emulation/viper-util.el b/lisp/emulation/viper-util.el
index 24a38236176..fcab8b57c1e 100644
--- a/lisp/emulation/viper-util.el
+++ b/lisp/emulation/viper-util.el
@@ -871,7 +871,7 @@ Otherwise return the normal value."
871 (abbreviate-file-name file))) 871 (abbreviate-file-name file)))
872 872
873;; Sit for VAL milliseconds. XEmacs doesn't support the millisecond arg 873;; Sit for VAL milliseconds. XEmacs doesn't support the millisecond arg
874;; in sit-for, so this function smoothes out the differences. 874;; in sit-for, so this function smooths out the differences.
875(defsubst viper-sit-for-short (val &optional nodisp) 875(defsubst viper-sit-for-short (val &optional nodisp)
876 (sit-for (/ val 1000.0) nodisp)) 876 (sit-for (/ val 1000.0) nodisp))
877 877
@@ -1112,7 +1112,7 @@ Otherwise return the normal value."
1112 lis))) 1112 lis)))
1113 1113
1114 1114
1115;; Smoothes out the difference between Emacs' unread-command-events 1115;; Smooths out the difference between Emacs' unread-command-events
1116;; and XEmacs unread-command-event. Arg is a character, an event, a list of 1116;; and XEmacs unread-command-event. Arg is a character, an event, a list of
1117;; events or a sequence of keys. 1117;; events or a sequence of keys.
1118;; 1118;;
diff --git a/lisp/epg.el b/lisp/epg.el
index 9ca07e213b4..00c00f9c9d3 100644
--- a/lisp/epg.el
+++ b/lisp/epg.el
@@ -356,7 +356,7 @@ query by itself and Emacs can intercept them."
356PROGRESS-CALLBACK is either a function, or a cons-cell whose 356PROGRESS-CALLBACK is either a function, or a cons-cell whose
357car is a function and cdr is a callback data. 357car is a function and cdr is a callback data.
358 358
359The function gets five arguments: the context, the operation 359The function gets six arguments: the context, the operation
360description, the character to display a progress unit, the 360description, the character to display a progress unit, the
361current amount done, the total amount to be done, and the 361current amount done, the total amount to be done, and the
362callback data (if any)." 362callback data (if any)."
@@ -2031,7 +2031,7 @@ CIPHER must be a file data object.
2031 2031
2032If you use this function, you will need to wait for the completion of 2032If you use this function, you will need to wait for the completion of
2033`epg-gpg-program' by using `epg-wait-for-completion' and call 2033`epg-gpg-program' by using `epg-wait-for-completion' and call
2034`epg-reset' to clear a temporaly output file. 2034`epg-reset' to clear a temporary output file.
2035If you are unsure, use synchronous version of this function 2035If you are unsure, use synchronous version of this function
2036`epg-decrypt-file' or `epg-decrypt-string' instead." 2036`epg-decrypt-file' or `epg-decrypt-string' instead."
2037 (unless (epg-data-file cipher) 2037 (unless (epg-data-file cipher)
@@ -2097,7 +2097,7 @@ For a normal or a cleartext signature, SIGNED-TEXT should be nil.
2097 2097
2098If you use this function, you will need to wait for the completion of 2098If you use this function, you will need to wait for the completion of
2099`epg-gpg-program' by using `epg-wait-for-completion' and call 2099`epg-gpg-program' by using `epg-wait-for-completion' and call
2100`epg-reset' to clear a temporaly output file. 2100`epg-reset' to clear a temporary output file.
2101If you are unsure, use synchronous version of this function 2101If you are unsure, use synchronous version of this function
2102`epg-verify-file' or `epg-verify-string' instead." 2102`epg-verify-file' or `epg-verify-string' instead."
2103 (epg-context-set-operation context 'verify) 2103 (epg-context-set-operation context 'verify)
@@ -2195,7 +2195,7 @@ Otherwise, it makes a cleartext signature.
2195 2195
2196If you use this function, you will need to wait for the completion of 2196If you use this function, you will need to wait for the completion of
2197`epg-gpg-program' by using `epg-wait-for-completion' and call 2197`epg-gpg-program' by using `epg-wait-for-completion' and call
2198`epg-reset' to clear a temporaly output file. 2198`epg-reset' to clear a temporary output file.
2199If you are unsure, use synchronous version of this function 2199If you are unsure, use synchronous version of this function
2200`epg-sign-file' or `epg-sign-string' instead." 2200`epg-sign-file' or `epg-sign-string' instead."
2201 (epg-context-set-operation context 'sign) 2201 (epg-context-set-operation context 'sign)
@@ -2299,7 +2299,7 @@ If RECIPIENTS is nil, it performs symmetric encryption.
2299 2299
2300If you use this function, you will need to wait for the completion of 2300If you use this function, you will need to wait for the completion of
2301`epg-gpg-program' by using `epg-wait-for-completion' and call 2301`epg-gpg-program' by using `epg-wait-for-completion' and call
2302`epg-reset' to clear a temporaly output file. 2302`epg-reset' to clear a temporary output file.
2303If you are unsure, use synchronous version of this function 2303If you are unsure, use synchronous version of this function
2304`epg-encrypt-file' or `epg-encrypt-string' instead." 2304`epg-encrypt-file' or `epg-encrypt-string' instead."
2305 (epg-context-set-operation context 'encrypt) 2305 (epg-context-set-operation context 'encrypt)
@@ -2414,7 +2414,7 @@ If RECIPIENTS is nil, it performs symmetric encryption."
2414 2414
2415If you use this function, you will need to wait for the completion of 2415If you use this function, you will need to wait for the completion of
2416`epg-gpg-program' by using `epg-wait-for-completion' and call 2416`epg-gpg-program' by using `epg-wait-for-completion' and call
2417`epg-reset' to clear a temporaly output file. 2417`epg-reset' to clear a temporary output file.
2418If you are unsure, use synchronous version of this function 2418If you are unsure, use synchronous version of this function
2419`epg-export-keys-to-file' or `epg-export-keys-to-string' instead." 2419`epg-export-keys-to-file' or `epg-export-keys-to-string' instead."
2420 (epg-context-set-operation context 'export-keys) 2420 (epg-context-set-operation context 'export-keys)
@@ -2457,7 +2457,7 @@ KEYS is a data object.
2457 2457
2458If you use this function, you will need to wait for the completion of 2458If you use this function, you will need to wait for the completion of
2459`epg-gpg-program' by using `epg-wait-for-completion' and call 2459`epg-gpg-program' by using `epg-wait-for-completion' and call
2460`epg-reset' to clear a temporaly output file. 2460`epg-reset' to clear a temporary output file.
2461If you are unsure, use synchronous version of this function 2461If you are unsure, use synchronous version of this function
2462`epg-import-keys-from-file' or `epg-import-keys-from-string' instead." 2462`epg-import-keys-from-file' or `epg-import-keys-from-string' instead."
2463 (epg-context-set-operation context 'import-keys) 2463 (epg-context-set-operation context 'import-keys)
@@ -2498,7 +2498,7 @@ KEY-ID-LIST is a list of key IDs.
2498 2498
2499If you use this function, you will need to wait for the completion of 2499If you use this function, you will need to wait for the completion of
2500`epg-gpg-program' by using `epg-wait-for-completion' and call 2500`epg-gpg-program' by using `epg-wait-for-completion' and call
2501`epg-reset' to clear a temporaly output file. 2501`epg-reset' to clear a temporary output file.
2502If you are unsure, use synchronous version of this function 2502If you are unsure, use synchronous version of this function
2503`epg-receive-keys' instead." 2503`epg-receive-keys' instead."
2504 (epg-context-set-operation context 'receive-keys) 2504 (epg-context-set-operation context 'receive-keys)
@@ -2526,7 +2526,7 @@ KEYS is a list of key IDs"
2526 2526
2527If you use this function, you will need to wait for the completion of 2527If you use this function, you will need to wait for the completion of
2528`epg-gpg-program' by using `epg-wait-for-completion' and call 2528`epg-gpg-program' by using `epg-wait-for-completion' and call
2529`epg-reset' to clear a temporaly output file. 2529`epg-reset' to clear a temporary output file.
2530If you are unsure, use synchronous version of this function 2530If you are unsure, use synchronous version of this function
2531`epg-delete-keys' instead." 2531`epg-delete-keys' instead."
2532 (epg-context-set-operation context 'delete-keys) 2532 (epg-context-set-operation context 'delete-keys)
@@ -2558,7 +2558,7 @@ If you are unsure, use synchronous version of this function
2558 2558
2559If you use this function, you will need to wait for the completion of 2559If you use this function, you will need to wait for the completion of
2560`epg-gpg-program' by using `epg-wait-for-completion' and call 2560`epg-gpg-program' by using `epg-wait-for-completion' and call
2561`epg-reset' to clear a temporaly output file. 2561`epg-reset' to clear a temporary output file.
2562If you are unsure, use synchronous version of this function 2562If you are unsure, use synchronous version of this function
2563`epg-sign-keys' instead." 2563`epg-sign-keys' instead."
2564 (epg-context-set-operation context 'sign-keys) 2564 (epg-context-set-operation context 'sign-keys)
@@ -2593,7 +2593,7 @@ PARAMETERS specifies parameters for the key.
2593 2593
2594If you use this function, you will need to wait for the completion of 2594If you use this function, you will need to wait for the completion of
2595`epg-gpg-program' by using `epg-wait-for-completion' and call 2595`epg-gpg-program' by using `epg-wait-for-completion' and call
2596`epg-reset' to clear a temporaly output file. 2596`epg-reset' to clear a temporary output file.
2597If you are unsure, use synchronous version of this function 2597If you are unsure, use synchronous version of this function
2598`epg-generate-key-from-file' or `epg-generate-key-from-string' instead." 2598`epg-generate-key-from-file' or `epg-generate-key-from-string' instead."
2599 (epg-context-set-operation context 'generate-key) 2599 (epg-context-set-operation context 'generate-key)
diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog
index d72d3f51bb1..9a029893352 100644
--- a/lisp/erc/ChangeLog
+++ b/lisp/erc/ChangeLog
@@ -1,3 +1,7 @@
12011-11-14 Juanma Barranquero <lekktu@gmail.com>
2
3 * erc-notify.el (erc-notify-interval, erc-cmd-NOTIFY): Fix typos.
4
12011-10-20 Chong Yidong <cyd@gnu.org> 52011-10-20 Chong Yidong <cyd@gnu.org>
2 6
3 * erc.el (define-erc-module): Fix autogenerated docstring to 7 * erc.el (define-erc-module): Fix autogenerated docstring to
diff --git a/lisp/erc/ChangeLog.01 b/lisp/erc/ChangeLog.01
index 4016586abc7..1e90b33a23b 100644
--- a/lisp/erc/ChangeLog.01
+++ b/lisp/erc/ChangeLog.01
@@ -160,9 +160,9 @@
160 160
161 * debian/control: integrated erc-speak back into erc 161 * debian/control: integrated erc-speak back into erc
162 162
163 * debian/maint/conffiles, debian/maint/conffiles.in, debian/maint/postinst, 163 * debian/maint/conffiles, debian/maint/conffiles.in, debian/maint/postinst,
164 debian/maint/postinst.in, debian/maint/prerm, debian/maint/prerm.in, 164 debian/maint/postinst.in, debian/maint/prerm, debian/maint/prerm.in,
165 debian/scripts/install, debian/scripts/install.in, debian/scripts/remove, 165 debian/scripts/install, debian/scripts/install.in, debian/scripts/remove,
166 debian/scripts/remove.in, debian/scripts/startup.erc-speak: 166 debian/scripts/remove.in, debian/scripts/startup.erc-speak:
167 since erc-speak is gone, resurrect the static files, and update them to support the latest erc 167 since erc-speak is gone, resurrect the static files, and update them to support the latest erc
168 168
@@ -220,7 +220,7 @@
220 * erc.el: 220 * erc.el:
221 * Applied antifuchs/mhp patches, the latest on erc-help, unmodified 221 * Applied antifuchs/mhp patches, the latest on erc-help, unmodified
222 * New variable: erc-reuse-buffers default to t. 222 * New variable: erc-reuse-buffers default to t.
223 * Modified erc-generate-new-buffer-name to use it. it checks if server and port are the same, 223 * Modified erc-generate-new-buffer-name to use it. it checks if server and port are the same,
224 then one can assume thats the same channel/query target again. 224 then one can assume thats the same channel/query target again.
225 225
2262001-11-23 Mario Lang <mlang@delysid.org> 2262001-11-23 Mario Lang <mlang@delysid.org>
@@ -238,7 +238,7 @@
238 238
239 * erc.el: * New local variable, erc-announced-server-name 239 * erc.el: * New local variable, erc-announced-server-name
240 * erc-mode-line-format supports a new symbol, target-and/or-server 240 * erc-mode-line-format supports a new symbol, target-and/or-server
241 * The mode-line displays the announced server name now (for autojoin later..., 241 * The mode-line displays the announced server name now (for autojoin later...,
242 greets Adam) 242 greets Adam)
243 * New macro, erc-server-hook-list for a nice way to define the defcustoms of the erc-server-*-hook's 243 * New macro, erc-server-hook-list for a nice way to define the defcustoms of the erc-server-*-hook's
244 Thanks go to the guy from #emacs who helped with that 244 Thanks go to the guy from #emacs who helped with that
@@ -457,7 +457,7 @@
457 * erc.el: * Reduction patch 2 457 * erc.el: * Reduction patch 2
458 This time, we move the input ring handling into erc-ring.el 458 This time, we move the input ring handling into erc-ring.el
459 Remember that you need (require 'erc-ring) in your .emacs to get the input handling as a feature 459 Remember that you need (require 'erc-ring) in your .emacs to get the input handling as a feature
460 And remeber, that you don't need it if you don't use input ring :-) 460 And remember, that you don't need it if you don't use input ring :-)
461 461
462 * erc-ring.el: * Initial checkin 462 * erc-ring.el: * Initial checkin
463 463
@@ -603,11 +603,11 @@
603 603
604 * debian/control: added the new erc-speak package 604 * debian/control: added the new erc-speak package
605 605
606 * debian/README.erc-speak, debian/maint/postinst.in, debian/maint/prerm.in, 606 * debian/README.erc-speak, debian/maint/postinst.in, debian/maint/prerm.in,
607 debian/scripts/install.in, debian/scripts/remove.in: 607 debian/scripts/install.in, debian/scripts/remove.in:
608 new file 608 new file
609 609
610 * debian/maint/postinst, debian/maint/prerm, debian/scripts/install, 610 * debian/maint/postinst, debian/maint/prerm, debian/scripts/install,
611 debian/scripts/remove: 611 debian/scripts/remove:
612 removed, superseded by its .in counterpart 612 removed, superseded by its .in counterpart
613 613
@@ -625,7 +625,7 @@
6252001-10-23 Mario Lang <mlang@delysid.org> 6252001-10-23 Mario Lang <mlang@delysid.org>
626 626
627 * erc-speak.el: 627 * erc-speak.el:
628 * Added a new personality for channel name announcement, This makes streams of flooded channels much easier to listen to, 628 * Added a new personality for channel name announcement, This makes streams of flooded channels much easier to listen to,
629 especially if you are on more than one channel simultaneously. 629 especially if you are on more than one channel simultaneously.
630 630
631 * erc.el: 631 * erc.el:
@@ -643,7 +643,7 @@
643 * Removed now really obsolete code. Package size reduced by 50% 643 * Removed now really obsolete code. Package size reduced by 50%
644 644
645 * erc-speak.el: 645 * erc-speak.el:
646 * Very important fix! Now erc-speak is really complete. Messages don't get cut anymore. Be sure to use auditory icons, 646 * Very important fix! Now erc-speak is really complete. Messages don't get cut anymore. Be sure to use auditory icons,
647 it's reallllly cool now!!! 647 it's reallllly cool now!!!
648 648
649 * erc-speak.el: *** empty log message *** 649 * erc-speak.el: *** empty log message ***
@@ -655,9 +655,9 @@
655 655
656 * debian/changelog: oops, silly typo 656 * debian/changelog: oops, silly typo
657 657
658 * debian/changelog, debian/control, debian/copyright, 658 * debian/changelog, debian/control, debian/copyright,
659 debian/maint/conffiles, debian/maint/postinst, debian/maint/prerm, 659 debian/maint/conffiles, debian/maint/postinst, debian/maint/prerm,
660 debian/rules, debian/scripts/install, debian/scripts/remove, 660 debian/rules, debian/scripts/install, debian/scripts/remove,
661 debian/scripts/startup: 661 debian/scripts/startup:
662 initial check-in 662 initial check-in
663 663
@@ -666,7 +666,7 @@
666 * erc.el: 666 * erc.el:
667 * Changed erc-insert-hook to get two arguments, START and END of the region 667 * Changed erc-insert-hook to get two arguments, START and END of the region
668 which got inserted. CAREFUL! This could break stuff, but it makes the hook 668 which got inserted. CAREFUL! This could break stuff, but it makes the hook
669 much more useable. 669 much more usable.
670 670
671 * erc.el: 671 * erc.el:
672 * Made erc-smiley a new option, currently set to t to showoff this feature. :) 672 * Made erc-smiley a new option, currently set to t to showoff this feature. :)
@@ -826,11 +826,11 @@
826 * (erc-complete-nick): Add ": " only if one completes directly after the erc-prompt, otherwise, add just one space 826 * (erc-complete-nick): Add ": " only if one completes directly after the erc-prompt, otherwise, add just one space
827 827
828 * erc.el: 828 * erc.el:
829 * Changed menu-definition to use easymenu (hopefully this now works under Xemacs) 829 * Changed menu-definition to use easymenu (hopefully this now works under XEmacs)
830 * Fix for custom problem with :must-match on XEmacs (thanks shapr) 830 * Fix for custom problem with :must-match on XEmacs (thanks shapr)
831 * Added /COUNTRY command using (what-domain) from package mail-extr (shapr) 831 * Added /COUNTRY command using (what-domain) from package mail-extr (shapr)
832 * Fix for case-sensitivity problem with pals (they are now all downcased) 832 * Fix for case-sensitivity problem with pals (they are now all downcased)
833 * Different (erc-version) function which now can take prefix argument to insert the version information into the current buffer, 833 * Different (erc-version) function which now can take prefix argument to insert the version information into the current buffer,
834 instead of just displaying it in the minibuffer. 834 instead of just displaying it in the minibuffer.
835 835
8362001-09-10 Mario Lang <mlang@delysid.org> 8362001-09-10 Mario Lang <mlang@delysid.org>
@@ -1055,4 +1055,3 @@
1055;; Local Variables: 1055;; Local Variables:
1056;; coding: utf-8 1056;; coding: utf-8
1057;; End: 1057;; End:
1058
diff --git a/lisp/erc/ChangeLog.02 b/lisp/erc/ChangeLog.02
index 09ab1cb3796..d1b05a23140 100644
--- a/lisp/erc/ChangeLog.02
+++ b/lisp/erc/ChangeLog.02
@@ -1373,7 +1373,7 @@
1373 1373
1374 * erc-menu.el: 1374 * erc-menu.el:
1375 * changed how we check if we should activate "Track hidden channels" and 1375 * changed how we check if we should activate "Track hidden channels" and
1376 whether it should be selected - fixes a bug Xemacs where whole menu bar 1376 whether it should be selected - fixes a bug XEmacs where whole menu bar
1377 does not work if menu is loaded 1377 does not work if menu is loaded
1378 1378
1379 * erc-menu.el: 1379 * erc-menu.el:
@@ -1545,7 +1545,7 @@
1545 1545
1546 * added s461 to english catalog 1546 * added s461 to english catalog
1547 1547
1548 * fixed bug where Xemacs would not quit if erc-quit-reason was 1548 * fixed bug where XEmacs would not quit if erc-quit-reason was
1549 set to erc-quit-reason-various and assoc-default was not defined 1549 set to erc-quit-reason-various and assoc-default was not defined
1550 1550
15512002-06-04 Andreas Fuchs <asf@void.at> 15512002-06-04 Andreas Fuchs <asf@void.at>
diff --git a/lisp/erc/ChangeLog.03 b/lisp/erc/ChangeLog.03
index 7f82a9bcbe2..956ef5f4c66 100644
--- a/lisp/erc/ChangeLog.03
+++ b/lisp/erc/ChangeLog.03
@@ -323,7 +323,7 @@
323 323
324 * erc.el(erc-modules): Add some more symbols to the set 324 * erc.el(erc-modules): Add some more symbols to the set
325 325
326 * erc.el(erc-modules): * erc.el(erc-modules): Add :greedy t to the set in 326 * erc.el(erc-modules): * erc.el(erc-modules): Add :greedy t to the set in
327 327
328 * erc-dcc.el: 328 * erc-dcc.el:
329 More autoloads which make dcc autoload upon ctcp dcc query received. 329 More autoloads which make dcc autoload upon ctcp dcc query received.
@@ -744,7 +744,7 @@
744 744
7452003-04-27 Damien Elmes <erc@repose.cx> 7452003-04-27 Damien Elmes <erc@repose.cx>
746 746
747 * erc.el: * erc.el: erc-modules: added 747 * erc.el: * erc.el: erc-modules: added
748 748
7492003-04-27 Alex Schroeder <alex@gnu.org> 7492003-04-27 Alex Schroeder <alex@gnu.org>
750 750
@@ -1232,7 +1232,7 @@
1232 1232
12332003-01-19 Mario Lang <mlang@delysid.org> 12332003-01-19 Mario Lang <mlang@delysid.org>
1234 1234
1235 * debian/README.Debian, debian/changelog, debian/scripts/install, 1235 * debian/README.Debian, debian/changelog, debian/scripts/install,
1236 debian/scripts/startup.erc, Makefile: 1236 debian/scripts/startup.erc, Makefile:
1237 Prepare for 20030119 debian package 1237 Prepare for 20030119 debian package
1238 1238
@@ -1305,7 +1305,7 @@
1305 * (erc-current-logfile): call expand-file-name, so that downcase doesn't mess up ~ 1305 * (erc-current-logfile): call expand-file-name, so that downcase doesn't mess up ~
1306 1306
1307 * erc.el: * (erc-mode): Define a proper case-table. 1307 * erc.el: * (erc-mode): Define a proper case-table.
1308 * (erc-downcase): just call downcase for now, lets see if the case-table is portable, if yes, we'll remove all erc-downcase references anyway... 1308 * (erc-downcase): just call downcase for now, let's see if the case-table is portable, if yes, we'll remove all erc-downcase references anyway...
1309 1309
1310 * erc-button.el: * (erc-button-add-buttons): regex-quote the nick 1310 * erc-button.el: * (erc-button-add-buttons): regex-quote the nick
1311 1311
@@ -1600,7 +1600,8 @@
1600 1600
1601 * erc-dcc.el: * erc-dcc-ipv4-regexp: New constant 1601 * erc-dcc.el: * erc-dcc-ipv4-regexp: New constant
1602 * (erc-ip-to-decimal): Use it. 1602 * (erc-ip-to-decimal): Use it.
1603 * erc-dcc-host:valid-regexp erc-dcc-ipv4-regexp: * erc-dcc-host: :type 1603 * erc-dcc-host:valid-regexp erc-dcc-ipv4-regexp:
1604 * erc-dcc-host: :type
1604 * (pcomplete/erc-mode/DCC): Add completion for GET and CLOSE. 1605 * (pcomplete/erc-mode/DCC): Add completion for GET and CLOSE.
1605 * Some docstring/comment fixes. 1606 * Some docstring/comment fixes.
1606 1607
@@ -1609,8 +1610,8 @@
1609 POS in any case, otherwise, linewrap occurs. 1610 POS in any case, otherwise, linewrap occurs.
1610 1611
1611 * erc-dcc.el: 1612 * erc-dcc.el:
1612 * Fixed the unibyte-multibyte problem (now a dcc get buffer is (set-buffer-multibyte nil), 1613 * Fixed the unibyte-multibyte problem (now a dcc get buffer is (set-buffer-multibyte nil),
1613 and saves correctly (tried with 21.3.50). Thanks to Eli for suggesting it! 1614 and saves correctly (tried with 21.3.50)). Thanks to Eli for suggesting it!
1614 * Added :start-time plist property/value to GET handling so that we can calculate elapsed-time. 1615 * Added :start-time plist property/value to GET handling so that we can calculate elapsed-time.
1615 * Some (unwind-protect (progn (set-buffer ...) ...)) constructs replaced with (with-current-buffer ...) 1616 * Some (unwind-protect (progn (set-buffer ...) ...)) constructs replaced with (with-current-buffer ...)
1616 1617
@@ -1691,12 +1692,12 @@
1691 1692
16922003-01-11 Mario Lang <mlang@delysid.org> 16932003-01-11 Mario Lang <mlang@delysid.org>
1693 1694
1694 * erc-dcc.el: * erc-dcc.el: * (erc-dcc-do-LIST-command): Fix 1695 * erc-dcc.el: * erc-dcc.el: * (erc-dcc-do-LIST-command): Fix
1695 1696
1696 * erc-dcc.el: 1697 * erc-dcc.el:
1697 * buffer-local variables erc-dcc-sent-marker and erc-dcc-send-confirmed marker removed 1698 * buffer-local variables erc-dcc-sent-marker and erc-dcc-send-confirmed marker removed
1698 Keep This info in erc-dcc-member :sent and :confirmed plist values 1699 Keep This info in erc-dcc-member :sent and :confirmed plist values
1699 * : * :buffer plist for :type 'SEND removed, since we can get this with (marker-buffer 1700 * : * :buffer plist for :type 'SEND removed, since we can get this with (marker-buffer
1700 * erc-dcc-send-connect-hook: New hook, defaults to erc-dcc-send-block and erc-dcc-send-connected, which now prints a msg... 1701 * erc-dcc-send-connect-hook: New hook, defaults to erc-dcc-send-block and erc-dcc-send-connected, which now prints a msg...
1701 1702
1702 * erc-dcc.el: 1703 * erc-dcc.el:
@@ -1985,7 +1986,7 @@
1985 (erc-server-PRIVMSG-or-NOTICE): Capitalized first word in message to user. 1986 (erc-server-PRIVMSG-or-NOTICE): Capitalized first word in message to user.
1986 1987
1987 * erc.el(erc-scroll-to-bottom): 1988 * erc.el(erc-scroll-to-bottom):
1988 Temporarilly bind resize-mini-windows to nil so that 1989 Temporarily bind resize-mini-windows to nil so that
1989 users who have it set to a non-nil value will not suffer from premature 1990 users who have it set to a non-nil value will not suffer from premature
1990 minibuffer shrinkage due to the below recenter call. I have no idea why 1991 minibuffer shrinkage due to the below recenter call. I have no idea why
1991 this works, but it solves the problem, and has no negative side effects. 1992 this works, but it solves the problem, and has no negative side effects.
@@ -2160,4 +2161,3 @@ See ChangeLog.02 for earlier changes.
2160;; Local Variables: 2161;; Local Variables:
2161;; coding: utf-8 2162;; coding: utf-8
2162;; End: 2163;; End:
2163
diff --git a/lisp/erc/ChangeLog.04 b/lisp/erc/ChangeLog.04
index 7db040fd23f..ff47372b8e3 100644
--- a/lisp/erc/ChangeLog.04
+++ b/lisp/erc/ChangeLog.04
@@ -136,7 +136,7 @@
1362004-12-14 Diane Murray <disumu@x3y2z1.net> 1362004-12-14 Diane Murray <disumu@x3y2z1.net>
137 137
138 * erc.el: The last change to `erc-mode-line-format' introduced a 138 * erc.el: The last change to `erc-mode-line-format' introduced a
139 bug in Xemacs - it can't handle the #(" "...) strings at all. The 139 bug in XEmacs - it can't handle the #(" "...) strings at all. The
140 following changes fix the bug and simplify the mode-line handling 140 following changes fix the bug and simplify the mode-line handling
141 considerably. (erc-mode-line-format): Now defined as a string 141 considerably. (erc-mode-line-format): Now defined as a string
142 which will be formatted using `format-spec' and take the place of 142 which will be formatted using `format-spec' and take the place of
diff --git a/lisp/erc/erc-autoaway.el b/lisp/erc/erc-autoaway.el
index a15e038dddc..74172b2573f 100644
--- a/lisp/erc/erc-autoaway.el
+++ b/lisp/erc/erc-autoaway.el
@@ -263,7 +263,7 @@ exceeds `erc-autoaway-idle-seconds'."
263 "Set the away state globally. 263 "Set the away state globally.
264 264
265If NOTEST is specified, do not check to see whether there is an 265If NOTEST is specified, do not check to see whether there is an
266activer server buffer available." 266active server buffer available."
267 ;; Note that the idle timer runs, even when Emacs is inactive. In 267 ;; Note that the idle timer runs, even when Emacs is inactive. In
268 ;; order to prevent flooding when we connect, we test for an 268 ;; order to prevent flooding when we connect, we test for an
269 ;; existing process. 269 ;; existing process.
@@ -284,4 +284,3 @@ activer server buffer available."
284;; indent-tabs-mode: t 284;; indent-tabs-mode: t
285;; tab-width: 8 285;; tab-width: 8
286;; End: 286;; End:
287
diff --git a/lisp/erc/erc-backend.el b/lisp/erc/erc-backend.el
index d363ea92bdb..f86c9ef845a 100644
--- a/lisp/erc/erc-backend.el
+++ b/lisp/erc/erc-backend.el
@@ -79,7 +79,7 @@
79 79
80;;; TODO: 80;;; TODO:
81 81
82;; o Generalise the display-line code so that we can use it to 82;; o Generalize the display-line code so that we can use it to
83;; display the stuff we send, as well as the stuff we receive. 83;; display the stuff we send, as well as the stuff we receive.
84;; Then, move all display-related code into another backend-like 84;; Then, move all display-related code into another backend-like
85;; file, erc-display.el, say. 85;; file, erc-display.el, say.
@@ -2000,4 +2000,3 @@ See `erc-display-error-notice'." nil
2000;; Local Variables: 2000;; Local Variables:
2001;; indent-tabs-mode: nil 2001;; indent-tabs-mode: nil
2002;; End: 2002;; End:
2003
diff --git a/lisp/erc/erc-notify.el b/lisp/erc/erc-notify.el
index 1b245ec2e33..10f6806ec12 100644
--- a/lisp/erc/erc-notify.el
+++ b/lisp/erc/erc-notify.el
@@ -46,7 +46,7 @@ status change."
46 :type '(repeat string)) 46 :type '(repeat string))
47 47
48(defcustom erc-notify-interval 60 48(defcustom erc-notify-interval 60
49 "*Time interval (in seconds) for checking online status of notificated 49 "*Time interval (in seconds) for checking online status of notified
50people." 50people."
51 :group 'erc-notify 51 :group 'erc-notify
52 :type 'integer) 52 :type 'integer)
@@ -88,7 +88,7 @@ strings."
88(defun erc-notify-install-message-catalogs () 88(defun erc-notify-install-message-catalogs ()
89 (erc-define-catalog 89 (erc-define-catalog
90 'english 90 'english
91 '((notify_current . "Notificated people online: %l") 91 '((notify_current . "Notified people online: %l")
92 (notify_list . "Current notify list: %l") 92 (notify_list . "Current notify list: %l")
93 (notify_on . "Detected %n on IRC network %m") 93 (notify_on . "Detected %n on IRC network %m")
94 (notify_off . "%n has left IRC network %m")))) 94 (notify_off . "%n has left IRC network %m"))))
@@ -197,11 +197,11 @@ nick from `erc-last-ison' to prevent any further notifications."
197;;;###autoload 197;;;###autoload
198(defun erc-cmd-NOTIFY (&rest args) 198(defun erc-cmd-NOTIFY (&rest args)
199 "Change `erc-notify-list' or list current notify-list members online. 199 "Change `erc-notify-list' or list current notify-list members online.
200Without args, list the current list of notificated people online, 200Without args, list the current list of notified people online,
201with args, toggle notify status of people." 201with args, toggle notify status of people."
202 (cond 202 (cond
203 ((null args) 203 ((null args)
204 ;; Print current notificated people (online) 204 ;; Print current notified people (online)
205 (let ((ison (erc-with-server-buffer erc-last-ison))) 205 (let ((ison (erc-with-server-buffer erc-last-ison)))
206 (if (not ison) 206 (if (not ison)
207 (erc-display-message 207 (erc-display-message
@@ -250,4 +250,3 @@ with args, toggle notify status of people."
250;; indent-tabs-mode: t 250;; indent-tabs-mode: t
251;; tab-width: 8 251;; tab-width: 8
252;; End: 252;; End:
253
diff --git a/lisp/eshell/em-hist.el b/lisp/eshell/em-hist.el
index 993e9d63a94..db5e98062a9 100644
--- a/lisp/eshell/em-hist.el
+++ b/lisp/eshell/em-hist.el
@@ -609,7 +609,7 @@ See also `eshell-read-history'."
609 history)))) 609 history))))
610 (setq index (1- index))) 610 (setq index (1- index)))
611 (let ((fhist (list t))) 611 (let ((fhist (list t)))
612 ;; uniqify the list, but preserve the order 612 ;; uniquify the list, but preserve the order
613 (while history 613 (while history
614 (unless (member (car history) fhist) 614 (unless (member (car history) fhist)
615 (nconc fhist (list (car history)))) 615 (nconc fhist (list (car history))))
diff --git a/lisp/eshell/esh-arg.el b/lisp/eshell/esh-arg.el
index 1fb8b7f4c32..dcb23967645 100644
--- a/lisp/eshell/esh-arg.el
+++ b/lisp/eshell/esh-arg.el
@@ -311,7 +311,7 @@ special character that is not itself a backslash."
311 (char-to-string (char-before)))) 311 (char-to-string (char-before))))
312 ;; allow \\<RET> to mean a literal "\" character followed by a 312 ;; allow \\<RET> to mean a literal "\" character followed by a
313 ;; normal return, rather than a backslash followed by a line 313 ;; normal return, rather than a backslash followed by a line
314 ;; continuator (i.e., "\\ + \n" rather than "\ + \\n"). This 314 ;; continuation (i.e., "\\ + \n" rather than "\ + \\n"). This
315 ;; is necessary because backslashes in Eshell are not special 315 ;; is necessary because backslashes in Eshell are not special
316 ;; unless they either precede something special, or precede a 316 ;; unless they either precede something special, or precede a
317 ;; backslash that precedes something special. (Mainly this is 317 ;; backslash that precedes something special. (Mainly this is
diff --git a/lisp/eshell/esh-cmd.el b/lisp/eshell/esh-cmd.el
index 52c8c2ddc20..a7c92084bf9 100644
--- a/lisp/eshell/esh-cmd.el
+++ b/lisp/eshell/esh-cmd.el
@@ -247,7 +247,7 @@ will have to visit the file 'eshell-cmd.el' and run the command
247 '(eshell-named-command 247 '(eshell-named-command
248 eshell-lisp-command 248 eshell-lisp-command
249 eshell-process-identity) 249 eshell-process-identity)
250 "A list of functions which might return an ansychronous process. 250 "A list of functions which might return an asynchronous process.
251If they return a process object, execution of the calling Eshell 251If they return a process object, execution of the calling Eshell
252command will wait for completion (in the background) before finishing 252command will wait for completion (in the background) before finishing
253the command." 253the command."
diff --git a/lisp/eshell/esh-mode.el b/lisp/eshell/esh-mode.el
index 9abb0c8ecc0..43d56a5b89f 100644
--- a/lisp/eshell/esh-mode.el
+++ b/lisp/eshell/esh-mode.el
@@ -607,7 +607,7 @@ will return the parsed command."
607 (setq command (eshell-parse-command (cons beg end) 607 (setq command (eshell-parse-command (cons beg end)
608 args t))))) 608 args t)))))
609 (ignore 609 (ignore
610 (message "Expecting completion of delimeter %c ..." 610 (message "Expecting completion of delimiter %c ..."
611 (if (listp delim) 611 (if (listp delim)
612 (car delim) 612 (car delim)
613 delim))) 613 delim)))
diff --git a/lisp/eshell/esh-var.el b/lisp/eshell/esh-var.el
index 69004a841f1..03774396485 100644
--- a/lisp/eshell/esh-var.el
+++ b/lisp/eshell/esh-var.el
@@ -344,7 +344,7 @@ This function is explicit for adding to `eshell-parse-argument-hook'."
344 (pcomplete-here)))) 344 (pcomplete-here))))
345 345
346(defun eshell/env (&rest args) 346(defun eshell/env (&rest args)
347 "Implemention of `env' in Lisp." 347 "Implementation of `env' in Lisp."
348 (eshell-init-print-buffer) 348 (eshell-init-print-buffer)
349 (eshell-eval-using-options 349 (eshell-eval-using-options
350 "env" args 350 "env" args
diff --git a/lisp/expand.el b/lisp/expand.el
index 544d0b1cb17..beb76321781 100644
--- a/lisp/expand.el
+++ b/lisp/expand.el
@@ -111,7 +111,7 @@
111 ("while" "while () {\n\n}" (8 12)) 111 ("while" "while () {\n\n}" (8 12))
112 ("default" "default:\n\nbreak;" 10) 112 ("default" "default:\n\nbreak;" 10)
113 ("main" "int\nmain(int argc, char * argv[])\n{\n\n}\n" 37)) 113 ("main" "int\nmain(int argc, char * argv[])\n{\n\n}\n" 37))
114 "Expansions for C mode. See `expand-add-abbrevs'.") 114 "Expansions for C mode. See `expand-add-abbrevs'.")
115 115
116;; lisp example from Jari Aalto <jaalto@tre.tele.nokia.fi> 116;; lisp example from Jari Aalto <jaalto@tre.tele.nokia.fi>
117(defconst expand-sample-lisp-mode-expand-list 117(defconst expand-sample-lisp-mode-expand-list
@@ -181,7 +181,7 @@
181 (list 12 14)) 181 (list 12 14))
182 182
183 ) 183 )
184 "Expansions for Lisp mode. See `expand-add-abbrevs'.") 184 "Expansions for Lisp mode. See `expand-add-abbrevs'.")
185 185
186;; perl example from Jari Aalto <jaalto@tre.tele.nokia.fi> 186;; perl example from Jari Aalto <jaalto@tre.tele.nokia.fi>
187(defconst expand-sample-perl-mode-expand-list 187(defconst expand-sample-perl-mode-expand-list
@@ -257,20 +257,20 @@
257 (list "rtu" "return ;" (list 8)) 257 (list "rtu" "return ;" (list 8))
258 258
259 ) 259 )
260 "Expansions for Perl mode. See `expand-add-abbrevs'.") 260 "Expansions for Perl mode. See `expand-add-abbrevs'.")
261 261
262;;; Code: 262;;; Code:
263 263
264;;;###autoload 264;;;###autoload
265(defun expand-add-abbrevs (table abbrevs) 265(defun expand-add-abbrevs (table abbrevs)
266 "Add a list of abbrev to abbrev table TABLE. 266 "Add a list of abbreviations to abbrev table TABLE.
267ABBREVS is a list of abbrev definitions; each abbrev description entry 267ABBREVS is a list of abbrev definitions; each abbrev description entry
268has the form (ABBREV EXPANSION ARG). 268has the form (ABBREV EXPANSION ARG).
269 269
270ABBREV is the abbreviation to replace. 270ABBREV is the abbreviation to replace.
271 271
272EXPANSION is the replacement string or a function which will make the 272EXPANSION is the replacement string or a function which will make the
273expansion. For example you, could use the DMacros or skeleton packages 273expansion. For example, you could use the DMacros or skeleton packages
274to generate such functions. 274to generate such functions.
275 275
276ARG is an optional argument which can be a number or a list of 276ARG is an optional argument which can be a number or a list of
@@ -279,7 +279,7 @@ beginning of the expanded text.
279 279
280If ARG is a list of numbers, point is placed according to the first 280If ARG is a list of numbers, point is placed according to the first
281member of the list, but you can visit the other specified positions 281member of the list, but you can visit the other specified positions
282cyclicaly with the functions `expand-jump-to-previous-slot' and 282cyclically with the functions `expand-jump-to-previous-slot' and
283`expand-jump-to-next-slot'. 283`expand-jump-to-next-slot'.
284 284
285If ARG is omitted, point is placed at the end of the expanded text." 285If ARG is omitted, point is placed at the end of the expanded text."
@@ -293,18 +293,15 @@ If ARG is omitted, point is placed at the end of the expanded text."
293(defvar expand-list nil "Temporary variable used by the Expand package.") 293(defvar expand-list nil "Temporary variable used by the Expand package.")
294 294
295(defvar expand-pos nil 295(defvar expand-pos nil
296 "If non-nil, stores a vector containing markers to positions defined by the last expansion. 296 "If non-nil, stores a vector containing markers to positions defined by the last expansion.")
297This variable is local to a buffer.")
298(make-variable-buffer-local 'expand-pos) 297(make-variable-buffer-local 'expand-pos)
299 298
300(defvar expand-index 0 299(defvar expand-index 0
301 "Index of the last marker used in `expand-pos'. 300 "Index of the last marker used in `expand-pos'.")
302This variable is local to a buffer.")
303(make-variable-buffer-local 'expand-index) 301(make-variable-buffer-local 'expand-index)
304 302
305(defvar expand-point nil 303(defvar expand-point nil
306 "End of the expanded region. 304 "End of the expanded region.")
307This variable is local to a buffer.")
308(make-variable-buffer-local 'expand-point) 305(make-variable-buffer-local 'expand-point)
309 306
310(defun expand-add-abbrev (table abbrev expansion arg) 307(defun expand-add-abbrev (table abbrev expansion arg)
diff --git a/lisp/ezimage.el b/lisp/ezimage.el
index b828f79f8fa..a3562944039 100644
--- a/lisp/ezimage.el
+++ b/lisp/ezimage.el
@@ -59,7 +59,7 @@ IMAGESPEC is the image data, and DOCSTRING is documentation for the image."
59 (defimage ,variable ,imagespec ,docstring) 59 (defimage ,variable ,imagespec ,docstring)
60 (put (quote ,variable) 'ezimage t))) 60 (put (quote ,variable) 'ezimage t)))
61 61
62;; This hack is for the ezimage install which has an icons direcory for 62;; This hack is for the ezimage install which has an icons directory for
63;; the default icons to be used. 63;; the default icons to be used.
64;; (add-to-list 'load-path 64;; (add-to-list 'load-path
65;; (concat (file-name-directory 65;; (concat (file-name-directory
@@ -257,9 +257,9 @@ Optional argument STRING is a string upon which to add text properties."
257 (a (assoc bt ezimage-expand-image-button-alist))) 257 (a (assoc bt ezimage-expand-image-button-alist)))
258 ;; Regular images (created with `insert-image' are intangible 258 ;; Regular images (created with `insert-image' are intangible
259 ;; which (I suppose) make them more compatible with XEmacs 21. 259 ;; which (I suppose) make them more compatible with XEmacs 21.
260 ;; Unfortunatly, there is a giant pile o code dependent on the 260 ;; Unfortunately, there is a giant pile of code dependent on the
261 ;; underlying text. This means if we leave it tangible, then I 261 ;; underlying text. This means if we leave it tangible, then I
262 ;; don't have to change said giant piles o code. 262 ;; don't have to change said giant piles of code.
263 (if (and a (symbol-value (cdr a))) 263 (if (and a (symbol-value (cdr a)))
264 (ezimage-insert-over-text (symbol-value (cdr a)) 264 (ezimage-insert-over-text (symbol-value (cdr a))
265 start 265 start
diff --git a/lisp/faces.el b/lisp/faces.el
index 45173eb35da..7bc103ca699 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -2457,7 +2457,7 @@ It is used for characters of no fonts too."
2457;;; Manipulating font names. 2457;;; Manipulating font names.
2458;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 2458;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2459 2459
2460;; This is here for compatibilty with Emacs 20.2. For example, 2460;; This is here for compatibility with Emacs 20.2. For example,
2461;; international/fontset.el uses x-resolve-font-name. The following 2461;; international/fontset.el uses x-resolve-font-name. The following
2462;; functions are not used in the face implementation itself. 2462;; functions are not used in the face implementation itself.
2463 2463
diff --git a/lisp/ffap.el b/lisp/ffap.el
index 97105ed422b..74df9883324 100644
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -523,7 +523,7 @@ The optional NOMODIFY argument suppresses the extra search."
523 ;; (ffap-file-remote-p "/ffap.el:80") 523 ;; (ffap-file-remote-p "/ffap.el:80")
524 (or (and ffap-ftp-regexp 524 (or (and ffap-ftp-regexp
525 (string-match ffap-ftp-regexp filename) 525 (string-match ffap-ftp-regexp filename)
526 ;; Convert "/host.com://dir" to "/host:/dir", to handle a dieing 526 ;; Convert "/host.com://dir" to "/host:/dir", to handle a dying
527 ;; practice of advertising ftp files as "host.dom://filename". 527 ;; practice of advertising ftp files as "host.dom://filename".
528 (if (string-match "//" filename) 528 (if (string-match "//" filename)
529 ;; (replace-match "/" nil nil filename) 529 ;; (replace-match "/" nil nil filename)
diff --git a/lisp/files.el b/lisp/files.el
index acff3395019..6cf94a89c92 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2603,7 +2603,7 @@ we don't actually set it to the same mode the buffer already has."
2603 (if (looking-at auto-mode-interpreter-regexp) 2603 (if (looking-at auto-mode-interpreter-regexp)
2604 (match-string 2) 2604 (match-string 2)
2605 "")) 2605 ""))
2606 ;; Map interpreter name to a mode, signalling we're done at the 2606 ;; Map interpreter name to a mode, signaling we're done at the
2607 ;; same time. 2607 ;; same time.
2608 done (assoc (file-name-nondirectory mode) 2608 done (assoc (file-name-nondirectory mode)
2609 interpreter-mode-alist)) 2609 interpreter-mode-alist))
@@ -4686,7 +4686,15 @@ prints a message in the minibuffer. Instead, use `set-buffer-modified-p'."
4686 "Change whether this buffer is read-only. 4686 "Change whether this buffer is read-only.
4687With prefix argument ARG, make the buffer read-only if ARG is 4687With prefix argument ARG, make the buffer read-only if ARG is
4688positive, otherwise make it writable. If buffer is read-only 4688positive, otherwise make it writable. If buffer is read-only
4689and `view-read-only' is non-nil, enter view mode." 4689and `view-read-only' is non-nil, enter view mode.
4690
4691This function is usually the wrong thing to use in a Lisp program.
4692It can have side-effects beyond changing the read-only status of a buffer
4693\(e.g., enabling view mode), and does not affect read-only regions that
4694are caused by text properties. To make a buffer read-only in Lisp code,
4695set `buffer-read-only'. To ignore read-only status (whether due to text
4696properties or buffer state) and make changes, temporarily bind
4697`inhibit-read-only'."
4690 (interactive "P") 4698 (interactive "P")
4691 (if (and arg 4699 (if (and arg
4692 (if (> (prefix-numeric-value arg) 0) buffer-read-only 4700 (if (> (prefix-numeric-value arg) 0) buffer-read-only
@@ -6492,7 +6500,7 @@ Otherwise, trash FILENAME using the freedesktop.org conventions,
6492 (setq tries 0 success t)) 6500 (setq tries 0 success t))
6493 (file-already-exists nil)) 6501 (file-already-exists nil))
6494 (setq tries (1- tries)) 6502 (setq tries (1- tries))
6495 ;; Uniqify new-fn. (Some file managers do not 6503 ;; Uniquify new-fn. (Some file managers do not
6496 ;; like Emacs-style backup file names---e.g. bug 6504 ;; like Emacs-style backup file names---e.g. bug
6497 ;; 170956 in Konqueror bug tracker.) 6505 ;; 170956 in Konqueror bug tracker.)
6498 (setq new-fn (make-temp-name (concat base-fn "_"))))) 6506 (setq new-fn (make-temp-name (concat base-fn "_")))))
diff --git a/lisp/follow.el b/lisp/follow.el
index b387427a47f..92efc8d8cfa 100644
--- a/lisp/follow.el
+++ b/lisp/follow.el
@@ -118,7 +118,7 @@
118;; (setq pixel-vertical-clip-threshold 30) 118;; (setq pixel-vertical-clip-threshold 30)
119 119
120 120
121;; The correct way to configurate Follow mode, or any other mode for 121;; The correct way to configure Follow mode, or any other mode for
122;; that matter, is to create one or more functions that do 122;; that matter, is to create one or more functions that do
123;; whatever you would like to do. These functions are then added to 123;; whatever you would like to do. These functions are then added to
124;; a hook. 124;; a hook.
@@ -560,7 +560,7 @@ Keys specific to Follow mode:
560 560
561;; `scroll-up' and `-down', but for windows in Follow mode. 561;; `scroll-up' and `-down', but for windows in Follow mode.
562;; 562;;
563;; Almost like the real thing, excpet when the cursor ends up outside 563;; Almost like the real thing, except when the cursor ends up outside
564;; the top or bottom... In our case however, we end up outside the 564;; the top or bottom... In our case however, we end up outside the
565;; window and hence we are recenterd. Should we let `recenter' handle 565;; window and hence we are recenterd. Should we let `recenter' handle
566;; the point position we would never leave the selected window. To do 566;; the point position we would never leave the selected window. To do
@@ -652,7 +652,7 @@ the rightmost is selected. If ARG is nil, the leftmost window is
652selected if the original window is the first one in the frame. 652selected if the original window is the first one in the frame.
653 653
654To bind this command to a hotkey, place the following line 654To bind this command to a hotkey, place the following line
655in your `~/.emacs' file, replacing [f7] by your favourite key: 655in your `~/.emacs' file, replacing [f7] by your favorite key:
656 (global-set-key [f7] 'follow-delete-other-windows-and-split)" 656 (global-set-key [f7] 'follow-delete-other-windows-and-split)"
657 (interactive "P") 657 (interactive "P")
658 (let ((other (or (and (null arg) 658 (let ((other (or (and (null arg)
@@ -894,7 +894,7 @@ Returns (end-pos end-of-buffer-p)"
894 (save-restriction 894 (save-restriction
895 ;; Fix a mis-feature in `vertical-motion': 895 ;; Fix a mis-feature in `vertical-motion':
896 ;; The start of the window is assumed to 896 ;; The start of the window is assumed to
897 ;; coinside with the start of a line. 897 ;; coincide with the start of a line.
898 (narrow-to-region (point) (point-max)) 898 (narrow-to-region (point) (point-max))
899 (not (= height (vertical-motion height)))))) 899 (not (= height (vertical-motion height))))))
900 (list (point) buffer-end-p)))))) 900 (list (point) buffer-end-p))))))
@@ -1064,7 +1064,7 @@ Return the selected window."
1064;; it wasn't just moved here. (I.e. M-> shall not unconditionally place 1064;; it wasn't just moved here. (I.e. M-> shall not unconditionally place
1065;; the point in the selected window.) 1065;; the point in the selected window.)
1066;; 1066;;
1067;; (Compatibility cludge: in Emacs `window-end' is equal to `point-max'; 1067;; (Compatibility kludge: in Emacs `window-end' is equal to `point-max';
1068;; in XEmacs, it is equal to `point-max + 1'. Should I really bother 1068;; in XEmacs, it is equal to `point-max + 1'. Should I really bother
1069;; checking `window-end' now when I check `end-of-buffer' explicitly?) 1069;; checking `window-end' now when I check `end-of-buffer' explicitly?)
1070 1070
diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index 2f4b7413dcc..d410b8eb51a 100644
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -1742,7 +1742,7 @@ If SYNTACTIC-KEYWORDS is non-nil, it means these keywords are used for
1742 keyword))) 1742 keyword)))
1743 1743
1744(defun font-lock-eval-keywords (keywords) 1744(defun font-lock-eval-keywords (keywords)
1745 "Evalulate KEYWORDS if a function (funcall) or variable (eval) name." 1745 "Evaluate KEYWORDS if a function (funcall) or variable (eval) name."
1746 (if (listp keywords) 1746 (if (listp keywords)
1747 keywords 1747 keywords
1748 (font-lock-eval-keywords (if (fboundp keywords) 1748 (font-lock-eval-keywords (if (fboundp keywords)
diff --git a/lisp/frame.el b/lisp/frame.el
index 8359fed14a4..f63179de1f1 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -1299,7 +1299,7 @@ Each element of the alist has the form (display . (width . height)),
1299e.g. (\":0.0\" . (287 . 215)). 1299e.g. (\":0.0\" . (287 . 215)).
1300 1300
1301If `display' equals t, it specifies dimensions for all graphical 1301If `display' equals t, it specifies dimensions for all graphical
1302displays not explicitely specified." 1302displays not explicitly specified."
1303 :version "22.1" 1303 :version "22.1"
1304 :type '(alist :key-type (choice (string :tag "Display name") 1304 :type '(alist :key-type (choice (string :tag "Display name")
1305 (const :tag "Default" t)) 1305 (const :tag "Default" t))
diff --git a/lisp/generic-x.el b/lisp/generic-x.el
index 2c00229c76e..b0ef0439404 100644
--- a/lisp/generic-x.el
+++ b/lisp/generic-x.el
@@ -1446,7 +1446,7 @@ like an INI file. You can add this hook to `find-file-hook'."
1446 "REGDB_STRING" 1446 "REGDB_STRING"
1447 "REGDB_UNINSTALL_NAME" 1447 "REGDB_UNINSTALL_NAME"
1448 "REMOTE_DRIVE" 1448 "REMOTE_DRIVE"
1449 "REMOVALE_DRIVE" 1449 "REMOVEABLE_DRIVE"
1450 "REPLACE_ITEM" 1450 "REPLACE_ITEM"
1451 "REPLACE" 1451 "REPLACE"
1452 "RESET" 1452 "RESET"
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index c36d4729518..5e25d01da71 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,19 @@
12011-11-16 Juanma Barranquero <lekktu@gmail.com>
2
3 * gnus-sum.el (gnus-summary-make-menu-bar):
4 * gnus-uu.el (gnus-uu-decode-postscript)
5 (gnus-uu-decode-postscript-and-save):
6 * mailcap.el (mailcap-print-command):
7 * registry.el (registry-lookup, registry-lookup-breaks-before-lexbind):
8 Fix typos.
9
102011-11-15 Juanma Barranquero <lekktu@gmail.com>
11
12 * gnus-art.el (gnus-article-part-wrapper):
13 * shr-color.el (shr-color-visible-distance-min)
14 (shr-color-relative-to-absolute, set-minimum-interval)
15 (shr-color-visible): Fix typos.
16
12011-11-03 Lars Magne Ingebrigtsen <larsi@gnus.org> 172011-11-03 Lars Magne Ingebrigtsen <larsi@gnus.org>
2 18
3 * gnus-sum.el (gnus-articles-to-read): Change wording in prompt to be 19 * gnus-sum.el (gnus-articles-to-read): Change wording in prompt to be
@@ -1820,7 +1836,7 @@
1820 1836
18212011-03-15 Lars Magne Ingebrigtsen <larsi@gnus.org> 18372011-03-15 Lars Magne Ingebrigtsen <larsi@gnus.org>
1822 1838
1823 * gnus-sum.el (gnus-articles-to-read): Revert back to old behaviour if 1839 * gnus-sum.el (gnus-articles-to-read): Revert back to old behavior if
1824 we're selecting a group with unread articles. 1840 we're selecting a group with unread articles.
1825 1841
1826 * nnimap.el (nnimap-open-connection-1): Allow `network-only', too. 1842 * nnimap.el (nnimap-open-connection-1): Allow `network-only', too.
@@ -2559,7 +2575,7 @@
2559 * gnus-sum.el (gnus-user-date): Rename back from 2575 * gnus-sum.el (gnus-user-date): Rename back from
2560 gnus-summary-user-date since user code refers to it. 2576 gnus-summary-user-date since user code refers to it.
2561 2577
2562 * shr.el (shr-render-td): Store the actual background colour used. 2578 * shr.el (shr-render-td): Store the actual background color used.
2563 2579
2564 * message.el (message-setup-1): Don't bind the constant 2580 * message.el (message-setup-1): Don't bind the constant
2565 -forbidden-properties. 2581 -forbidden-properties.
@@ -2647,9 +2663,9 @@
2647 2663
26482011-02-01 Lars Ingebrigtsen <larsi@gnus.org> 26642011-02-01 Lars Ingebrigtsen <larsi@gnus.org>
2649 2665
2650 * shr.el (shr-render-td): Only do colours at the final rendering. 2666 * shr.el (shr-render-td): Only do colors at the final rendering.
2651 Should be slightly faster. 2667 Should be slightly faster.
2652 (shr-insert-table): Fix up TD background colours when doing the 2668 (shr-insert-table): Fix up TD background colors when doing the
2653 vertical padding. 2669 vertical padding.
2654 2670
2655 * gnus-art.el (article-date-ut): Protect against articles with no Date 2671 * gnus-art.el (article-date-ut): Protect against articles with no Date
@@ -2777,7 +2793,7 @@
2777 2793
27782011-01-27 Lars Ingebrigtsen <larsi@gnus.org> 27942011-01-27 Lars Ingebrigtsen <larsi@gnus.org>
2779 2795
2780 * shr.el (shr-put-color): Special-case background colours: Do put them 2796 * shr.el (shr-put-color): Special-case background colors: Do put them
2781 at the blank parts at the front of the lines. 2797 at the blank parts at the front of the lines.
2782 2798
2783 * gnus-draft.el (gnus-draft-clear-marks): New function to be run as an 2799 * gnus-draft.el (gnus-draft-clear-marks): New function to be run as an
@@ -3782,7 +3798,7 @@
3782 3798
37832010-11-25 Lars Magne Ingebrigtsen <larsi@gnus.org> 37992010-11-25 Lars Magne Ingebrigtsen <larsi@gnus.org>
3784 3800
3785 * shr-color.el (shr-color-visible): Don't bug out if the colour names 3801 * shr-color.el (shr-color-visible): Don't bug out if the color names
3786 don't exist. 3802 don't exist.
3787 3803
37882010-11-25 Katsumi Yamaoka <yamaoka@jpl.org> 38042010-11-25 Katsumi Yamaoka <yamaoka@jpl.org>
@@ -3854,7 +3870,7 @@
3854 3870
38552010-11-24 Lars Magne Ingebrigtsen <larsi@gnus.org> 38712010-11-24 Lars Magne Ingebrigtsen <larsi@gnus.org>
3856 3872
3857 * shr.el (shr-color-check): Protect against non-existent colour names. 3873 * shr.el (shr-color-check): Protect against non-existent color names.
3858 3874
38592010-11-24 Julien Danjou <julien@danjou.info> 38752010-11-24 Julien Danjou <julien@danjou.info>
3860 3876
@@ -3880,7 +3896,7 @@
38802010-11-23 Lars Magne Ingebrigtsen <larsi@gnus.org> 38962010-11-23 Lars Magne Ingebrigtsen <larsi@gnus.org>
3881 3897
3882 * shr.el (shr-insert-color-overlay): Split stuff like 3898 * shr.el (shr-insert-color-overlay): Split stuff like
3883 "#444444 !important" to find the real colour. 3899 "#444444 !important" to find the real color.
3884 (shr-tag-font): Resurrect shr-tag-font again, since it's needed to 3900 (shr-tag-font): Resurrect shr-tag-font again, since it's needed to
3885 parse <font color="red"> entries. 3901 parse <font color="red"> entries.
3886 3902
@@ -4422,7 +4438,7 @@
4422 gnus-original-article-buffer is alive. 4438 gnus-original-article-buffer is alive.
4423 4439
4424 * nndoc.el (nndoc-dissect-buffer): Reverse the order of the articles to 4440 * nndoc.el (nndoc-dissect-buffer): Reverse the order of the articles to
4425 reflect the order they're in in the digest. 4441 reflect the order they are in the digest.
4426 4442
4427 * gnus.el (gnus-group-startup-message): Move point to the start of the 4443 * gnus.el (gnus-group-startup-message): Move point to the start of the
4428 buffer. 4444 buffer.
@@ -4557,7 +4573,7 @@
4557 4573
4558 * shr.el (shr-put-image): Use point even if only inserting text. 4574 * shr.el (shr-put-image): Use point even if only inserting text.
4559 (shr-put-image): Save excursion when inserting alt text on non-graphic 4575 (shr-put-image): Save excursion when inserting alt text on non-graphic
4560 display, so the behaviour is the same when we are on a graphic display. 4576 display, so the behavior is the same when we are on a graphic display.
4561 4577
4562 * nnir.el (nnir-run-swish-e): Remove hyrex support. 4578 * nnir.el (nnir-run-swish-e): Remove hyrex support.
4563 4579
@@ -5178,7 +5194,7 @@
5178 bidning gnus-agent variables. 5194 bidning gnus-agent variables.
5179 5195
5180 * shr.el (shr-render-td): Use a cache for the table rendering function 5196 * shr.el (shr-render-td): Use a cache for the table rendering function
5181 to avoid getting an exponential rendering behaviour in nested tables. 5197 to avoid getting an exponential rendering behavior in nested tables.
5182 (shr-insert): Rework the line-breaking algorithm. 5198 (shr-insert): Rework the line-breaking algorithm.
5183 (shr-insert): Don't leave trailing spaces. 5199 (shr-insert): Don't leave trailing spaces.
5184 (shr-insert-table): Also insert empty TDs. 5200 (shr-insert-table): Also insert empty TDs.
@@ -5991,15 +6007,15 @@
5991 highlight again, so that the highlight is correct. 6007 highlight again, so that the highlight is correct.
5992 6008
5993 * gnus-picon.el (gnus-picon): Remove again. 6009 * gnus-picon.el (gnus-picon): Remove again.
5994 (gnus-picon-create-glyph): Set the background XPM colour explicitly. 6010 (gnus-picon-create-glyph): Set the background XPM color explicitly.
5995 6011
5996 * gnus-art.el (gnus-treatment-function-alist): Insert picons after 6012 * gnus-art.el (gnus-treatment-function-alist): Insert picons after
5997 doing the header highlightling, so that the background colour of the 6013 doing the header highlightling, so that the background color of the
5998 picon is correct. 6014 picon is correct.
5999 6015
6000 * gnus-picon.el (gnus-picon-xbm): Remove obsolete face. 6016 * gnus-picon.el (gnus-picon-xbm): Remove obsolete face.
6001 (gnus-picon): Ditto. 6017 (gnus-picon): Ditto.
6002 (gnus-picon): Reinstate. The background colour for picons is white. 6018 (gnus-picon): Reinstate. The background color for picons is white.
6003 (gnus-picon-insert-glyph): Make the background white. 6019 (gnus-picon-insert-glyph): Make the background white.
6004 6020
6005 * nnml.el (nnml-open-nov): Don't return dead buffers. 6021 * nnml.el (nnml-open-nov): Don't return dead buffers.
@@ -6783,7 +6799,7 @@
6783 6799
6784 * gnus-start.el (gnus-get-unread-articles): Allow the backends to 6800 * gnus-start.el (gnus-get-unread-articles): Allow the backends to
6785 update the group info. This makes the nndraft groups, for instance, go 6801 update the group info. This makes the nndraft groups, for instance, go
6786 back to their old behaviour. 6802 back to their old behavior.
6787 6803
6788 * gnus-sum.el (gnus-select-newsgroup): Indent. 6804 * gnus-sum.el (gnus-select-newsgroup): Indent.
6789 6805
@@ -7175,7 +7191,7 @@
7175 7191
7176 * gnus-agent.el (gnus-agent-auto-agentize-methods): Change the default 7192 * gnus-agent.el (gnus-agent-auto-agentize-methods): Change the default
7177 so that nnimap methods aren't agentized by default. There's apparently 7193 so that nnimap methods aren't agentized by default. There's apparently
7178 many problems related to agent/imap behaviour. 7194 many problems related to agent/imap behavior.
7179 7195
7180 * gnus-art.el (gnus-article-copy-string): New command and key binding. 7196 * gnus-art.el (gnus-article-copy-string): New command and key binding.
7181 7197
@@ -7220,7 +7236,7 @@
7220 storage than before. 7236 storage than before.
7221 7237
7222 * gnus.el (gnus-refer-article-method): Change default to 'current. 7238 * gnus.el (gnus-refer-article-method): Change default to 'current.
7223 When referring an article, the common behaviour is to refer it from the 7239 When referring an article, the common behavior is to refer it from the
7224 current select method, not the native select method. The chances of 7240 current select method, not the native select method. The chances of
7225 the native select method having the message in question is rather slim 7241 the native select method having the message in question is rather slim
7226 these days. 7242 these days.
@@ -7236,7 +7252,7 @@
7236 * gnus-sum.el (gnus-summary-goto-unread): Change default to nil, so 7252 * gnus-sum.el (gnus-summary-goto-unread): Change default to nil, so
7237 that commands like `d' (and the like) go to the next line in the 7253 that commands like `d' (and the like) go to the next line in the
7238 buffer, instead of the next unread article. I think this is the 7254 buffer, instead of the next unread article. I think this is the
7239 behaviour that is most natural for most users. 7255 behavior that is most natural for most users.
7240 (gnus-single-article-buffer): Change default to nil, so that people can 7256 (gnus-single-article-buffer): Change default to nil, so that people can
7241 have as many article buffers open as they have summary buffer. I think 7257 have as many article buffers open as they have summary buffer. I think
7242 this is the most natural way for the groups to behave. 7258 this is the most natural way for the groups to behave.
@@ -7411,7 +7427,7 @@
7411 UTF-8. This seems to fix problems with some German web feeds. 7427 UTF-8. This seems to fix problems with some German web feeds.
7412 7428
7413 * gnus.el (gnus-group-startup-message): Put the xpm version of the logo 7429 * gnus.el (gnus-group-startup-message): Put the xpm version of the logo
7414 at the top so that the proper colours are applied. 7430 at the top so that the proper colors are applied.
7415 7431
7416 * gnus-art.el (gnus-article-view-part): Doc fix. 7432 * gnus-art.el (gnus-article-view-part): Doc fix.
7417 7433
@@ -16517,7 +16533,7 @@
165172005-06-16 Arne Jørgensen <arne@arnested.dk> 165332005-06-16 Arne Jørgensen <arne@arnested.dk>
16518 16534
16519 * smime.el (smime-cert-by-ldap-1): Detect PEM format without 16535 * smime.el (smime-cert-by-ldap-1): Detect PEM format without
16520 header by looking for magic "MII" at the beginnig. 16536 header by looking for magic "MII" at the beginning.
16521 16537
165222005-06-16 Miles Bader <miles@gnu.org> 165382005-06-16 Miles Bader <miles@gnu.org>
16523 16539
@@ -18491,7 +18507,7 @@
184912004-10-05 Jesper Harder <harder@ifa.au.dk> 185072004-10-05 Jesper Harder <harder@ifa.au.dk>
18492 18508
18493 * nnsoup.el (nnsoup-read-active-file): Use dolist, mapc or last 18509 * nnsoup.el (nnsoup-read-active-file): Use dolist, mapc or last
18494 where approriate. 18510 where appropriate.
18495 18511
18496 * nnml.el (nnml-generate-active-info): do. 18512 * nnml.el (nnml-generate-active-info): do.
18497 18513
@@ -20046,7 +20062,7 @@
20046 * mail-source.el (mail-source-delete-crash-box): Refactor. 20062 * mail-source.el (mail-source-delete-crash-box): Refactor.
20047 (mail-source-fetch): Use it. 20063 (mail-source-fetch): Use it.
20048 (mail-source-fetch-file): Ditto. 20064 (mail-source-fetch-file): Ditto.
20049 (mail-source-fetch-directory): Run postscript in loop. 20065 (mail-source-fetch-directory): Run PostScript in loop.
20050 (mail-source-fetch-pop): Delete. 20066 (mail-source-fetch-pop): Delete.
20051 (mail-source-fetch-maildir): Ditto. 20067 (mail-source-fetch-maildir): Ditto.
20052 (mail-source-fetch-imap): Ditto. 20068 (mail-source-fetch-imap): Ditto.
diff --git a/lisp/gnus/ChangeLog.1 b/lisp/gnus/ChangeLog.1
index 7448808b20f..86c4eea59ab 100644
--- a/lisp/gnus/ChangeLog.1
+++ b/lisp/gnus/ChangeLog.1
@@ -1336,7 +1336,7 @@
1336 1336
13371998-05-07 Hrvoje Niksic <hniksic@srce.hr> 13371998-05-07 Hrvoje Niksic <hniksic@srce.hr>
1338 1338
1339 * nnmail.el: (nnmail-get-split-group): Use `regexp-quote' 1339 * nnmail.el (nnmail-get-split-group): Use `regexp-quote'
1340 when file name is a part of pattern. 1340 when file name is a part of pattern.
1341 1341
1342 * nnmail.el (nnmail-crosspost-link-function): Ditto. 1342 * nnmail.el (nnmail-crosspost-link-function): Ditto.
@@ -2540,7 +2540,7 @@
2540 `gnus-simplify-ignored-prefixes'. 2540 `gnus-simplify-ignored-prefixes'.
2541 (gnus-summary-set-display-table): Keep TAB. 2541 (gnus-summary-set-display-table): Keep TAB.
2542 2542
25431998-01-15 <Use-Author-Address-Header@[127.1]> 25431998-01-15 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
2544 2544
2545 * gnus-art.el (gnus-request-article-this-buffer): Put it into the 2545 * gnus-art.el (gnus-request-article-this-buffer): Put it into the
2546 backlog. 2546 backlog.
diff --git a/lisp/gnus/ChangeLog.2 b/lisp/gnus/ChangeLog.2
index 779c84296f4..e52f898b184 100644
--- a/lisp/gnus/ChangeLog.2
+++ b/lisp/gnus/ChangeLog.2
@@ -5562,7 +5562,7 @@
5562 5562
55632003-01-14 Kevin Greiner <kgreiner@xpediantsolutions.com> 55632003-01-14 Kevin Greiner <kgreiner@xpediantsolutions.com>
5564 * gnus-agent.el (gnus-agent-get-undownloaded-list): Include the 5564 * gnus-agent.el (gnus-agent-get-undownloaded-list): Include the
5565 fictious headers generated by nnagent (ie. Undownloaded Article 5565 fictitious headers generated by nnagent (ie. Undownloaded Article
5566 ####) in the list of articles that have not been downloaded. 5566 ####) in the list of articles that have not been downloaded.
5567 5567
5568 * gnus-int.el (): Added require declarations to resolve 5568 * gnus-int.el (): Added require declarations to resolve
diff --git a/lisp/gnus/gmm-utils.el b/lisp/gnus/gmm-utils.el
index 8deb27379a3..f913ddb5378 100644
--- a/lisp/gnus/gmm-utils.el
+++ b/lisp/gnus/gmm-utils.el
@@ -140,7 +140,7 @@ This is a copy of the `lazy' widget in Emacs 22.1 provided for compatibility."
140;; :mouse-2 command-on-mouse-2-press 140;; :mouse-2 command-on-mouse-2-press
141;; :mouse-3 command-on-mouse-3-press) ;; typically a menu of related commands 141;; :mouse-3 command-on-mouse-3-press) ;; typically a menu of related commands
142;; 142;;
143;; Combinations of mouse-[23] plus shift and/or controll might be overkill. 143;; Combinations of mouse-[23] plus shift and/or control might be overkill.
144;; 144;;
145;; Then use (plist-get rs-command :none), (plist-get rs-command :shift) 145;; Then use (plist-get rs-command :none), (plist-get rs-command :shift)
146 146
diff --git a/lisp/gnus/gnus-agent.el b/lisp/gnus/gnus-agent.el
index 669f9675536..71f8cf82d39 100644
--- a/lisp/gnus/gnus-agent.el
+++ b/lisp/gnus/gnus-agent.el
@@ -1130,7 +1130,7 @@ article's mark is toggled."
1130 (setq alist (cdr alist))) 1130 (setq alist (cdr alist)))
1131 ((> a h) 1131 ((> a h)
1132 ;; Headers that are not in the alist should be 1132 ;; Headers that are not in the alist should be
1133 ;; fictious (see nnagent-retrieve-headers); they 1133 ;; fictitious (see nnagent-retrieve-headers); they
1134 ;; imply that this article isn't in the agent. 1134 ;; imply that this article isn't in the agent.
1135 (gnus-agent-append-to-list tail-undownloaded h) 1135 (gnus-agent-append-to-list tail-undownloaded h)
1136 (gnus-agent-append-to-list tail-unfetched h) 1136 (gnus-agent-append-to-list tail-unfetched h)
@@ -3613,7 +3613,7 @@ articles in every agentized group? "))
3613 (setq r d 3613 (setq r d
3614 d (directory-file-name d))) 3614 d (directory-file-name d)))
3615 ;; if ANY ancestor was NOT in keep hash and 3615 ;; if ANY ancestor was NOT in keep hash and
3616 ;; it it's already in to-remove, add it to 3616 ;; it's already in to-remove, add it to
3617 ;; to-remove. 3617 ;; to-remove.
3618 (if (and r 3618 (if (and r
3619 (not (member r to-remove))) 3619 (not (member r to-remove)))
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index 0068fbad6e2..dd41947a2af 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -535,7 +535,7 @@ that the symbol of the saver function, which is specified by
535 535
536;; Note that "Rmail format" is mbox since Emacs 23, but Babyl before. 536;; Note that "Rmail format" is mbox since Emacs 23, but Babyl before.
537(defcustom gnus-default-article-saver 'gnus-summary-save-in-rmail 537(defcustom gnus-default-article-saver 'gnus-summary-save-in-rmail
538 "A function to save articles in your favourite format. 538 "A function to save articles in your favorite format.
539The function will be called by way of the `gnus-summary-save-article' 539The function will be called by way of the `gnus-summary-save-article'
540command, and friends such as `gnus-summary-save-article-rmail'. 540command, and friends such as `gnus-summary-save-article-rmail'.
541 541
@@ -1559,7 +1559,7 @@ node `(gnus)Gravatars' for details."
1559 gnus-treat-from-picon 1559 gnus-treat-from-picon
1560 gnus-treat-from-gravatar 1560 gnus-treat-from-gravatar
1561 gnus-treat-mail-gravatar) 1561 gnus-treat-mail-gravatar)
1562 ;; If there's much decoration, the user might prefer a boundery. 1562 ;; If there's much decoration, the user might prefer a boundary.
1563 'head 1563 'head
1564 nil) 1564 nil)
1565 "Draw a boundary at the end of the headers. 1565 "Draw a boundary at the end of the headers.
@@ -5418,8 +5418,8 @@ If no internal viewer is available, use an external viewer."
5418 5418
5419(defun gnus-article-part-wrapper (n function &optional no-handle interactive) 5419(defun gnus-article-part-wrapper (n function &optional no-handle interactive)
5420 "Call FUNCTION on MIME part N. 5420 "Call FUNCTION on MIME part N.
5421Unless NO-HANDLE, call FUNCTION with N-th MIME handle as it's only argument. 5421Unless NO-HANDLE, call FUNCTION with N-th MIME handle as its only argument.
5422If INTERACTIVE, call FUNCTION interactivly." 5422If INTERACTIVE, call FUNCTION interactively."
5423 (let (window frame) 5423 (let (window frame)
5424 ;; Check whether the article is displayed. 5424 ;; Check whether the article is displayed.
5425 (unless (and (gnus-buffer-live-p gnus-article-buffer) 5425 (unless (and (gnus-buffer-live-p gnus-article-buffer)
diff --git a/lisp/gnus/gnus-diary.el b/lisp/gnus/gnus-diary.el
index 0b5a7ebf1f9..9f86e74bd99 100644
--- a/lisp/gnus/gnus-diary.el
+++ b/lisp/gnus/gnus-diary.el
@@ -157,7 +157,7 @@ There are currently two built-in format functions:
157;; I just ignore it. 157;; I just ignore it.
158;;;###autoload 158;;;###autoload
159(defun gnus-user-format-function-d (header) 159(defun gnus-user-format-function-d (header)
160 ;; Returns an aproximative delay string for the next occurrence of this 160 ;; Return an approximate delay string for the next occurrence of this
161 ;; message. The delay is given only in the first non zero unit. 161 ;; message. The delay is given only in the first non zero unit.
162 ;; Code partly stolen from article-make-date-line 162 ;; Code partly stolen from article-make-date-line
163 (let* ((extras (mail-header-extra header)) 163 (let* ((extras (mail-header-extra header))
diff --git a/lisp/gnus/gnus-srvr.el b/lisp/gnus/gnus-srvr.el
index ec98b2ff749..2d8587ace3f 100644
--- a/lisp/gnus/gnus-srvr.el
+++ b/lisp/gnus/gnus-srvr.el
@@ -553,7 +553,7 @@ The following commands are available:
553 (gnus-server-list-servers)) 553 (gnus-server-list-servers))
554 554
555(defun gnus-server-copy-server (from to) 555(defun gnus-server-copy-server (from to)
556 "Copy a server definiton to a new name." 556 "Copy a server definition to a new name."
557 (interactive 557 (interactive
558 (list 558 (list
559 (or (gnus-server-server-name) 559 (or (gnus-server-server-name)
diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el
index 7c63d5e2653..b18b78df063 100644
--- a/lisp/gnus/gnus-start.el
+++ b/lisp/gnus/gnus-start.el
@@ -1678,7 +1678,7 @@ If SCAN, request a scan of that group as well."
1678 1678
1679 ;; Sort the methods based so that the primary and secondary 1679 ;; Sort the methods based so that the primary and secondary
1680 ;; methods come first. This is done for legacy reasons to try to 1680 ;; methods come first. This is done for legacy reasons to try to
1681 ;; ensure that side-effect behaviour doesn't change from previous 1681 ;; ensure that side-effect behavior doesn't change from previous
1682 ;; Gnus versions. 1682 ;; Gnus versions.
1683 (setq type-cache 1683 (setq type-cache
1684 (sort (nreverse type-cache) 1684 (sort (nreverse type-cache)
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index b84c493cc58..08f5e44e13f 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -2529,7 +2529,7 @@ gnus-summary-show-article-from-menu-as-charset-%s" cs))))
2529 ["Unshar and save" gnus-uu-decode-unshar-and-save t] 2529 ["Unshar and save" gnus-uu-decode-unshar-and-save t]
2530 ["Save" gnus-uu-decode-save t] 2530 ["Save" gnus-uu-decode-save t]
2531 ["Binhex" gnus-uu-decode-binhex t] 2531 ["Binhex" gnus-uu-decode-binhex t]
2532 ["Postscript" gnus-uu-decode-postscript t] 2532 ["PostScript" gnus-uu-decode-postscript t]
2533 ["All MIME parts" gnus-summary-save-parts t]) 2533 ["All MIME parts" gnus-summary-save-parts t])
2534 ("Cache" 2534 ("Cache"
2535 ["Enter article" gnus-cache-enter-article t] 2535 ["Enter article" gnus-cache-enter-article t]
@@ -4727,7 +4727,7 @@ If LINE, insert the rebuilt thread starting on line LINE."
4727 (car headers)))) 4727 (car headers))))
4728 4728
4729(defun gnus-parent-headers (in-headers &optional generation) 4729(defun gnus-parent-headers (in-headers &optional generation)
4730 "Return the headers of the GENERATIONeth parent of HEADERS." 4730 "Return the headers of the GENERATIONth parent of HEADERS."
4731 (unless generation 4731 (unless generation
4732 (setq generation 1)) 4732 (setq generation 1))
4733 (let ((parent t) 4733 (let ((parent t)
diff --git a/lisp/gnus/gnus-topic.el b/lisp/gnus/gnus-topic.el
index f1a2ed43e26..17af1a38333 100644
--- a/lisp/gnus/gnus-topic.el
+++ b/lisp/gnus/gnus-topic.el
@@ -430,7 +430,7 @@ inheritance."
430 regexp list-topic topic-level) 430 regexp list-topic topic-level)
431 "List all newsgroups with unread articles of level LEVEL or lower. 431 "List all newsgroups with unread articles of level LEVEL or lower.
432Use the `gnus-group-topics' to sort the groups. 432Use the `gnus-group-topics' to sort the groups.
433If PREDICTE is a function, list groups that the function returns non-nil; 433If PREDICATE is a function, list groups that the function returns non-nil;
434if it is t, list groups that have no unread articles. 434if it is t, list groups that have no unread articles.
435If LOWEST is non-nil, list all newsgroups of level LOWEST or higher." 435If LOWEST is non-nil, list all newsgroups of level LOWEST or higher."
436 (set-buffer gnus-group-buffer) 436 (set-buffer gnus-group-buffer)
diff --git a/lisp/gnus/gnus-uu.el b/lisp/gnus/gnus-uu.el
index 15c3d41bece..50a33809946 100644
--- a/lisp/gnus/gnus-uu.el
+++ b/lisp/gnus/gnus-uu.el
@@ -41,7 +41,7 @@
41 :group 'gnus) 41 :group 'gnus)
42 42
43(defgroup gnus-extract-view nil 43(defgroup gnus-extract-view nil
44 "Viewwing extracted files." 44 "Viewing extracted files."
45 :group 'gnus-extract) 45 :group 'gnus-extract)
46 46
47(defgroup gnus-extract-archive nil 47(defgroup gnus-extract-archive nil
@@ -727,7 +727,7 @@ When called interactively, prompt for REGEXP."
727;; All PostScript functions written by Erik Selberg <speed@cs.washington.edu>. 727;; All PostScript functions written by Erik Selberg <speed@cs.washington.edu>.
728 728
729(defun gnus-uu-decode-postscript (&optional n) 729(defun gnus-uu-decode-postscript (&optional n)
730 "Gets postscript of the current article." 730 "Gets PostScript of the current article."
731 (interactive "P") 731 (interactive "P")
732 (gnus-uu-decode-with-method 'gnus-uu-decode-postscript-article n)) 732 (gnus-uu-decode-with-method 'gnus-uu-decode-postscript-article n))
733 733
@@ -738,7 +738,7 @@ When called interactively, prompt for REGEXP."
738 (gnus-uu-decode-postscript n))) 738 (gnus-uu-decode-postscript n)))
739 739
740(defun gnus-uu-decode-postscript-and-save (n dir) 740(defun gnus-uu-decode-postscript-and-save (n dir)
741 "Extracts postscript and saves the current article." 741 "Extracts PostScript and saves the current article."
742 (interactive 742 (interactive
743 (list current-prefix-arg 743 (list current-prefix-arg
744 (file-name-as-directory 744 (file-name-as-directory
diff --git a/lisp/gnus/gnus-win.el b/lisp/gnus/gnus-win.el
index a1a8abc3086..ecd5b3b525b 100644
--- a/lisp/gnus/gnus-win.el
+++ b/lisp/gnus/gnus-win.el
@@ -54,7 +54,7 @@
54 :type 'boolean) 54 :type 'boolean)
55 55
56(defcustom gnus-use-frames-on-any-display nil 56(defcustom gnus-use-frames-on-any-display nil
57 "*If non-nil, frames on all displays will be considered useable by Gnus. 57 "*If non-nil, frames on all displays will be considered usable by Gnus.
58When nil, only frames on the same display as the selected frame will be 58When nil, only frames on the same display as the selected frame will be
59used to display Gnus windows." 59used to display Gnus windows."
60 :version "22.1" 60 :version "22.1"
diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el
index 924d974eb3c..5f385ec1054 100644
--- a/lisp/gnus/gnus.el
+++ b/lisp/gnus/gnus.el
@@ -3582,7 +3582,7 @@ that that variable is buffer-local to the summary buffers."
3582 (equal (nth 1 m1) (nth 1 m2))))))) 3582 (equal (nth 1 m1) (nth 1 m2)))))))
3583 3583
3584(defsubst gnus-sloppily-equal-method-parameters (m1 m2) 3584(defsubst gnus-sloppily-equal-method-parameters (m1 m2)
3585 ;; Check parameters for sloppy equalness. 3585 ;; Check parameters for sloppy equality.
3586 (let ((p1 (copy-sequence (cddr m1))) 3586 (let ((p1 (copy-sequence (cddr m1)))
3587 (p2 (copy-sequence (cddr m2))) 3587 (p2 (copy-sequence (cddr m2)))
3588 e1 e2) 3588 e1 e2)
diff --git a/lisp/gnus/html2text.el b/lisp/gnus/html2text.el
index 8cfd9b9f903..dade86ab174 100644
--- a/lisp/gnus/html2text.el
+++ b/lisp/gnus/html2text.el
@@ -123,7 +123,7 @@ If this list contains the element \"font\".")
123This is an alist where each dotted pair consists of a tag, and then 123This is an alist where each dotted pair consists of a tag, and then
124the name of a function to be called when this tag is found. The 124the name of a function to be called when this tag is found. The
125function is called with the arguments p1, p2, p3 and p4. These are 125function is called with the arguments p1, p2, p3 and p4. These are
126demontrated below: 126demonstrated below:
127 127
128\"<b> This is bold text </b>\" 128\"<b> This is bold text </b>\"
129 ^ ^ ^ ^ 129 ^ ^ ^ ^
@@ -410,7 +410,7 @@ fashion, quite close to pure guess-work. It does work in some cases though."
410 (while (re-search-forward "^<br>$" nil t) 410 (while (re-search-forward "^<br>$" nil t)
411 (delete-region (match-beginning 0) (match-end 0))) 411 (delete-region (match-beginning 0) (match-end 0)))
412 ;; Removing lonely <br> on a single line, if they are left intact we 412 ;; Removing lonely <br> on a single line, if they are left intact we
413 ;; dont have any paragraphs at all. 413 ;; don't have any paragraphs at all.
414 (goto-char (point-min)) 414 (goto-char (point-min))
415 (while (not (eobp)) 415 (while (not (eobp))
416 (let ((p1 (point))) 416 (let ((p1 (point)))
diff --git a/lisp/gnus/mailcap.el b/lisp/gnus/mailcap.el
index 7959104d646..cbfa05bb87d 100644
--- a/lisp/gnus/mailcap.el
+++ b/lisp/gnus/mailcap.el
@@ -82,7 +82,7 @@ This is a compatibility function for different Emacsen."
82 (list lpr-switches) 82 (list lpr-switches)
83 lpr-switches))) 83 lpr-switches)))
84 " ") 84 " ")
85 "Shell command (including switches) used to print Postscript files.") 85 "Shell command (including switches) used to print PostScript files.")
86 86
87;; Postpone using defcustom for this as it's so big and we essentially 87;; Postpone using defcustom for this as it's so big and we essentially
88;; have to have two copies of the data around then. Perhaps just 88;; have to have two copies of the data around then. Perhaps just
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 1d0830afd28..176857633e1 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -2503,7 +2503,7 @@ Return the number of headers removed."
2503 (point-max))) 2503 (point-max)))
2504 (goto-char (point-min))) 2504 (goto-char (point-min)))
2505 2505
2506;; FIXME: clarify diffference: message-narrow-to-head, 2506;; FIXME: clarify difference: message-narrow-to-head,
2507;; message-narrow-to-headers-or-head, message-narrow-to-headers 2507;; message-narrow-to-headers-or-head, message-narrow-to-headers
2508(defun message-narrow-to-head () 2508(defun message-narrow-to-head ()
2509 "Narrow the buffer to the head of the message. 2509 "Narrow the buffer to the head of the message.
diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el
index 37ee59e9b4b..36c56e0921b 100644
--- a/lisp/gnus/mm-decode.el
+++ b/lisp/gnus/mm-decode.el
@@ -1494,7 +1494,7 @@ be determined."
1494 (or (not image) 1494 (or (not image)
1495 (if (featurep 'xemacs) 1495 (if (featurep 'xemacs)
1496 ;; XEmacs' glyphs can actually tell us about their width, so 1496 ;; XEmacs' glyphs can actually tell us about their width, so
1497 ;; lets be nice and smart about them. 1497 ;; let's be nice and smart about them.
1498 (or mm-inline-large-images 1498 (or mm-inline-large-images
1499 (and (<= (glyph-width image) (window-pixel-width)) 1499 (and (<= (glyph-width image) (window-pixel-width))
1500 (<= (glyph-height image) (window-pixel-height)))) 1500 (<= (glyph-height image) (window-pixel-height))))
diff --git a/lisp/gnus/nndiary.el b/lisp/gnus/nndiary.el
index db7ac1b44f8..a798e22902f 100644
--- a/lisp/gnus/nndiary.el
+++ b/lisp/gnus/nndiary.el
@@ -72,7 +72,7 @@
72;; * nndiary-get-new-mail, nndiary-mail-source and nndiary-split-methods: 72;; * nndiary-get-new-mail, nndiary-mail-source and nndiary-split-methods:
73;; NNDiary has some experimental parts, in the sense Gnus normally uses only 73;; NNDiary has some experimental parts, in the sense Gnus normally uses only
74;; one mail back ends for mail retreival and splitting. This back end is 74;; one mail back ends for mail retreival and splitting. This back end is
75;; also an attempt to make it behave differently. For Gnus developpers: as 75;; also an attempt to make it behave differently. For Gnus developers: as
76;; you can see if you snarf into the code, that was not a very difficult 76;; you can see if you snarf into the code, that was not a very difficult
77;; thing to do. Something should be done about the respooling breakage 77;; thing to do. Something should be done about the respooling breakage
78;; though. 78;; though.
diff --git a/lisp/gnus/nnmairix.el b/lisp/gnus/nnmairix.el
index 66ed90be823..9d6011e6573 100644
--- a/lisp/gnus/nnmairix.el
+++ b/lisp/gnus/nnmairix.el
@@ -1634,7 +1634,7 @@ search in raw mode."
1634 (nnheader-message 3 "Couldn't find original article")))) 1634 (nnheader-message 3 "Couldn't find original article"))))
1635 1635
1636(defun nnmairix-determine-original-group-from-registry (mid) 1636(defun nnmairix-determine-original-group-from-registry (mid)
1637 "Try to determinale original group for message-id MID from the registry." 1637 "Try to determine original group for message-id MID from the registry."
1638 (when (gnus-bound-and-true-p 'gnus-registry-enabled) 1638 (when (gnus-bound-and-true-p 'gnus-registry-enabled)
1639 (unless (string-match "^<" mid) 1639 (unless (string-match "^<" mid)
1640 (set mid (concat "<" mid))) 1640 (set mid (concat "<" mid)))
diff --git a/lisp/gnus/registry.el b/lisp/gnus/registry.el
index 8e158f7ca0f..5fd309a5c7d 100644
--- a/lisp/gnus/registry.el
+++ b/lisp/gnus/registry.el
@@ -149,7 +149,7 @@
149 149
150 (defmethod registry-lookup ((db registry-db) keys) 150 (defmethod registry-lookup ((db registry-db) keys)
151 "Search for KEYS in the registry-db THIS. 151 "Search for KEYS in the registry-db THIS.
152Returns a alist of the key followed by the entry in a list, not a cons cell." 152Returns an alist of the key followed by the entry in a list, not a cons cell."
153 (let ((data (oref db :data))) 153 (let ((data (oref db :data)))
154 (delq nil 154 (delq nil
155 (mapcar 155 (mapcar
@@ -160,7 +160,7 @@ Returns a alist of the key followed by the entry in a list, not a cons cell."
160 160
161 (defmethod registry-lookup-breaks-before-lexbind ((db registry-db) keys) 161 (defmethod registry-lookup-breaks-before-lexbind ((db registry-db) keys)
162 "Search for KEYS in the registry-db THIS. 162 "Search for KEYS in the registry-db THIS.
163Returns a alist of the key followed by the entry in a list, not a cons cell." 163Returns an alist of the key followed by the entry in a list, not a cons cell."
164 (let ((data (oref db :data))) 164 (let ((data (oref db :data)))
165 (delq nil 165 (delq nil
166 (loop for key in keys 166 (loop for key in keys
diff --git a/lisp/gnus/rfc2047.el b/lisp/gnus/rfc2047.el
index e82192b91d6..feed078034c 100644
--- a/lisp/gnus/rfc2047.el
+++ b/lisp/gnus/rfc2047.el
@@ -285,11 +285,11 @@ Should be called narrowed to the head of the message."
285 mail-parse-charset) 285 mail-parse-charset)
286 (mm-encode-coding-region (point) (point-max) 286 (mm-encode-coding-region (point) (point-max)
287 mail-parse-charset))) 287 mail-parse-charset)))
288 ;; We get this when CC'ing messsages to newsgroups with 288 ;; We get this when CC'ing messages to newsgroups with
289 ;; 8-bit names. The group name mail copy just got 289 ;; 8-bit names. The group name mail copy just got
290 ;; unconditionally encoded. Previously, it would ask 290 ;; unconditionally encoded. Previously, it would ask
291 ;; whether to encode, which was quite confusing for the 291 ;; whether to encode, which was quite confusing for the
292 ;; user. If the new behavior is wrong, tell me. I have 292 ;; user. If the new behavior is wrong, tell me. I have
293 ;; left the old code commented out below. 293 ;; left the old code commented out below.
294 ;; -- Per Abrahamsen <abraham@dina.kvl.dk> Date: 2001-10-07. 294 ;; -- Per Abrahamsen <abraham@dina.kvl.dk> Date: 2001-10-07.
295 ;; Modified by Dave Love, with the commented-out code changed 295 ;; Modified by Dave Love, with the commented-out code changed
diff --git a/lisp/gnus/shr-color.el b/lisp/gnus/shr-color.el
index 36dd65f4a2d..4fd35659e08 100644
--- a/lisp/gnus/shr-color.el
+++ b/lisp/gnus/shr-color.el
@@ -41,7 +41,7 @@ Must be between 0 and 100."
41 41
42(defcustom shr-color-visible-distance-min 5 42(defcustom shr-color-visible-distance-min 5
43 "Minimum color distance between two colors to be considered visible. 43 "Minimum color distance between two colors to be considered visible.
44This value is used to compare result for `ciede2000'. Its an 44This value is used to compare result for `ciede2000'. It's an
45absolute value without any unit." 45absolute value without any unit."
46 :group 'shr 46 :group 'shr
47 :type 'integer) 47 :type 'integer)
@@ -198,7 +198,8 @@ absolute value without any unit."
198Each entry should have the form (COLOR-NAME . HEXADECIMAL-COLOR).") 198Each entry should have the form (COLOR-NAME . HEXADECIMAL-COLOR).")
199 199
200(defun shr-color-relative-to-absolute (number) 200(defun shr-color-relative-to-absolute (number)
201 "Convert a relative NUMBER to absolute. If NUMBER is absolute, return NUMBER. 201 "Convert a relative NUMBER to absolute.
202If NUMBER is absolute, return NUMBER.
202This will convert \"80 %\" to 204, \"100 %\" to 255 but \"123\" to \"123\"." 203This will convert \"80 %\" to 204, \"100 %\" to 255 but \"123\" to \"123\"."
203 (let ((string-length (- (length number) 1))) 204 (let ((string-length (- (length number) 1)))
204 ;; Is this a number with %? 205 ;; Is this a number with %?
@@ -269,7 +270,7 @@ Like rgb() or hsl()."
269(defun set-minimum-interval (val1 val2 min max interval &optional fixed) 270(defun set-minimum-interval (val1 val2 min max interval &optional fixed)
270 "Set minimum interval between VAL1 and VAL2 to INTERVAL. 271 "Set minimum interval between VAL1 and VAL2 to INTERVAL.
271The values are bound by MIN and MAX. 272The values are bound by MIN and MAX.
272If FIXED is t, then val1 will not be touched." 273If FIXED is t, then VAL1 will not be touched."
273 (let ((diff (abs (- val1 val2)))) 274 (let ((diff (abs (- val1 val2))))
274 (unless (>= diff interval) 275 (unless (>= diff interval)
275 (if fixed 276 (if fixed
@@ -319,10 +320,10 @@ If FIXED is t, then val1 will not be touched."
319 320
320(defun shr-color-visible (bg fg &optional fixed-background) 321(defun shr-color-visible (bg fg &optional fixed-background)
321 "Check that BG and FG colors are visible if they are drawn on each other. 322 "Check that BG and FG colors are visible if they are drawn on each other.
322Return (bg fg) if they are. If they are too similar, two new 323Return (bg fg) if they are. If they are too similar, two new
323colors are returned instead. 324colors are returned instead.
324If FIXED-BACKGROUND is set, and if the color are not visible, a 325If FIXED-BACKGROUND is set, and if the color are not visible, a
325new background color will not be computed. Only the foreground 326new background color will not be computed. Only the foreground
326color will be adapted to be visible on BG." 327color will be adapted to be visible on BG."
327 ;; Convert fg and bg to CIE Lab 328 ;; Convert fg and bg to CIE Lab
328 (let ((fg-norm (color-name-to-rgb fg)) 329 (let ((fg-norm (color-name-to-rgb fg))
@@ -334,7 +335,7 @@ color will be adapted to be visible on BG."
334 (bg-lab (apply 'color-srgb-to-lab bg-norm)) 335 (bg-lab (apply 'color-srgb-to-lab bg-norm))
335 ;; Compute color distance using CIE DE 2000 336 ;; Compute color distance using CIE DE 2000
336 (fg-bg-distance (color-cie-de2000 fg-lab bg-lab)) 337 (fg-bg-distance (color-cie-de2000 fg-lab bg-lab))
337 ;; Compute luminance distance (substract L component) 338 ;; Compute luminance distance (subtract L component)
338 (luminance-distance (abs (- (car fg-lab) (car bg-lab))))) 339 (luminance-distance (abs (- (car fg-lab) (car bg-lab)))))
339 (if (and (>= fg-bg-distance shr-color-visible-distance-min) 340 (if (and (>= fg-bg-distance shr-color-visible-distance-min)
340 (>= luminance-distance shr-color-visible-luminance-min)) 341 (>= luminance-distance shr-color-visible-luminance-min))
diff --git a/lisp/gnus/sieve.el b/lisp/gnus/sieve.el
index 2111d34eac5..a44a03b6913 100644
--- a/lisp/gnus/sieve.el
+++ b/lisp/gnus/sieve.el
@@ -21,7 +21,7 @@
21 21
22;;; Commentary: 22;;; Commentary:
23 23
24;; This file contain utilities to facilate upload, download and 24;; This file contain utilities to facilitate upload, download and
25;; general management of sieve scripts. Currently only the 25;; general management of sieve scripts. Currently only the
26;; Managesieve protocol is supported (using sieve-manage.el), but when 26;; Managesieve protocol is supported (using sieve-manage.el), but when
27;; (useful) alternatives become available, they might be supported as 27;; (useful) alternatives become available, they might be supported as
diff --git a/lisp/gnus/smime.el b/lisp/gnus/smime.el
index f0951b7b803..128bda6f516 100644
--- a/lisp/gnus/smime.el
+++ b/lisp/gnus/smime.el
@@ -588,7 +588,7 @@ A string or a list of strings is returned."
588 (filter &optional host attributes attrsonly withdn)) 588 (filter &optional host attributes attrsonly withdn))
589 589
590(defun smime-cert-by-ldap-1 (mail host) 590(defun smime-cert-by-ldap-1 (mail host)
591 "Get cetificate for MAIL from the ldap server at HOST." 591 "Get certificate for MAIL from the ldap server at HOST."
592 (let ((ldapresult 592 (let ((ldapresult
593 (funcall 593 (funcall
594 (if (featurep 'xemacs) 594 (if (featurep 'xemacs)
diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 5e034b14fde..efdc237d11f 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -256,7 +256,7 @@ if the variable `help-downcase-arguments' is non-nil."
256 ;; so let's skip over it 256 ;; so let's skip over it
257 (search-backward "(") 257 (search-backward "(")
258 (goto-char (scan-sexps (point) 1))))) 258 (goto-char (scan-sexps (point) 1)))))
259 ;; Highlight aguments in the USAGE string 259 ;; Highlight arguments in the USAGE string
260 (setq usage (help-do-arg-highlight (buffer-string) args)) 260 (setq usage (help-do-arg-highlight (buffer-string) args))
261 ;; Highlight arguments in the DOC string 261 ;; Highlight arguments in the DOC string
262 (setq doc (and doc (help-do-arg-highlight doc args)))))) 262 (setq doc (and doc (help-do-arg-highlight doc args))))))
diff --git a/lisp/hilit-chg.el b/lisp/hilit-chg.el
index 46db4280688..0dee4157d78 100644
--- a/lisp/hilit-chg.el
+++ b/lisp/hilit-chg.el
@@ -480,7 +480,7 @@ This is the opposite of `hilit-chg-hide-changes'."
480(defun hilit-chg-make-ov (prop start end) 480(defun hilit-chg-make-ov (prop start end)
481 (or prop 481 (or prop
482 (error "hilit-chg-make-ov: prop is nil")) 482 (error "hilit-chg-make-ov: prop is nil"))
483 ;; For the region create overlays with a distincive face 483 ;; For the region create overlays with a distinctive face
484 ;; and the text property 'hilit-chg. 484 ;; and the text property 'hilit-chg.
485 (let ((ov (make-overlay start end)) 485 (let ((ov (make-overlay start end))
486 (face (if (eq prop 'hilit-chg-delete) 486 (face (if (eq prop 'hilit-chg-delete)
diff --git a/lisp/htmlfontify.el b/lisp/htmlfontify.el
index c8e95581510..cd9f1fa6b43 100644
--- a/lisp/htmlfontify.el
+++ b/lisp/htmlfontify.el
@@ -360,7 +360,7 @@ commands in `hfy-etags-cmd-alist'."
360 :type '(repeat symbol)) 360 :type '(repeat symbol))
361 361
362(defun hfy-which-etags () 362(defun hfy-which-etags ()
363 "Return a string indicating which flavour of etags we are using." 363 "Return a string indicating which flavor of etags we are using."
364 (let ((v (shell-command-to-string (concat hfy-etags-bin " --version")))) 364 (let ((v (shell-command-to-string (concat hfy-etags-bin " --version"))))
365 (cond ((string-match "exube" v) "exuberant ctags") 365 (cond ((string-match "exube" v) "exuberant ctags")
366 ((string-match "GNU E" v) "emacs etags" )) )) 366 ((string-match "GNU E" v) "emacs etags" )) ))
@@ -432,8 +432,8 @@ and so on."
432 (const :tag "Lucid Toolkit" lucid ) 432 (const :tag "Lucid Toolkit" lucid )
433 (const :tag "Motif Toolkit" motif ))) 433 (const :tag "Motif Toolkit" motif )))
434 434
435 (class (choice (const :tag "Colour" color ) 435 (class (choice (const :tag "Color" color )
436 (const :tag "Greyscale" grayscale))) 436 (const :tag "Grayscale" grayscale)))
437 437
438 (background (choice (const :tag "Dark" dark ) 438 (background (choice (const :tag "Dark" dark )
439 (const :tag "Bright" light ))) )) 439 (const :tag "Bright" light ))) ))
@@ -586,7 +586,7 @@ If a window system is unavailable, calls `hfy-fallback-colour-values'."
586(defvar hfy-cperl-mode-kludged-p nil) 586(defvar hfy-cperl-mode-kludged-p nil)
587 587
588(defun hfy-kludge-cperl-mode () 588(defun hfy-kludge-cperl-mode ()
589 "CPerl mode does its damndest not to do some of its fontification when not 589 "CPerl mode does its damnedest not to do some of its fontification when not
590in a windowing system - try to trick it..." 590in a windowing system - try to trick it..."
591 (if (not hfy-cperl-mode-kludged-p) 591 (if (not hfy-cperl-mode-kludged-p)
592 (progn (if (not window-system) 592 (progn (if (not window-system)
@@ -1768,12 +1768,12 @@ hyperlinks as appropriate."
1768 "Return a list of files under DIRECTORY. 1768 "Return a list of files under DIRECTORY.
1769Strips any leading \"./\" from each filename." 1769Strips any leading \"./\" from each filename."
1770 ;;(message "hfy-list-files");;DBUG 1770 ;;(message "hfy-list-files");;DBUG
1771 ;; FIXME: this changes the dir of the currrent buffer. Is that right?? 1771 ;; FIXME: this changes the dir of the current buffer. Is that right??
1772 (cd directory) 1772 (cd directory)
1773 (mapcar (lambda (F) (if (string-match "^./\\(.*\\)" F) (match-string 1 F) F)) 1773 (mapcar (lambda (F) (if (string-match "^./\\(.*\\)" F) (match-string 1 F) F))
1774 (split-string (shell-command-to-string hfy-find-cmd))) ) 1774 (split-string (shell-command-to-string hfy-find-cmd))) )
1775 1775
1776;; strip the filename off, return a directiry name 1776;; strip the filename off, return a directory name
1777;; not a particularly thorough implementaion, but it will be 1777;; not a particularly thorough implementaion, but it will be
1778;; fed pretty carefully, so it should be Ok: 1778;; fed pretty carefully, so it should be Ok:
1779(defun hfy-dirname (file) 1779(defun hfy-dirname (file)
diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index 17ddddbd17a..3f3b0b7a843 100644
--- a/lisp/ibuffer.el
+++ b/lisp/ibuffer.el
@@ -2504,7 +2504,7 @@ Other commands:
2504 2504
2505** Information on Filtering: 2505** Information on Filtering:
2506 2506
2507 You can filter your ibuffer view via different critera. Each Ibuffer 2507 You can filter your ibuffer view via different criteria. Each Ibuffer
2508buffer has its own stack of active filters. For example, suppose you 2508buffer has its own stack of active filters. For example, suppose you
2509are working on an Emacs Lisp project. You can create an Ibuffer 2509are working on an Emacs Lisp project. You can create an Ibuffer
2510buffer displays buffers in just `emacs-lisp' modes via 2510buffer displays buffers in just `emacs-lisp' modes via
diff --git a/lisp/ido.el b/lisp/ido.el
index fda4c0316f7..6af431a2882 100644
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -258,7 +258,7 @@
258;; The highlighting of matching items is controlled via ido-use-faces. 258;; The highlighting of matching items is controlled via ido-use-faces.
259;; The faces used are ido-first-match, ido-only-match and 259;; The faces used are ido-first-match, ido-only-match and
260;; ido-subdir. 260;; ido-subdir.
261;; Colouring of the matching item was suggested by 261;; Coloring of the matching item was suggested by
262;; Carsten Dominik (dominik@strw.leidenuniv.nl). 262;; Carsten Dominik (dominik@strw.leidenuniv.nl).
263 263
264;; Replacement for read-buffer and read-file-name 264;; Replacement for read-buffer and read-file-name
@@ -3152,7 +3152,7 @@ for first matching file."
3152;;; CREATE LIST OF ALL CURRENT FILES 3152;;; CREATE LIST OF ALL CURRENT FILES
3153 3153
3154(defun ido-all-completions () 3154(defun ido-all-completions ()
3155 ;; Return unsorted list of all competions. 3155 ;; Return unsorted list of all completions.
3156 (let ((ido-process-ignore-lists nil) 3156 (let ((ido-process-ignore-lists nil)
3157 (ido-directory-too-big nil)) 3157 (ido-directory-too-big nil))
3158 (cond 3158 (cond
diff --git a/lisp/image-mode.el b/lisp/image-mode.el
index 30223e69ae0..f3e7caab174 100644
--- a/lisp/image-mode.el
+++ b/lisp/image-mode.el
@@ -638,7 +638,7 @@ These properties are determined by the Image mode variables
638`image-transform-resize' and `image-transform-rotation'. The 638`image-transform-resize' and `image-transform-rotation'. The
639return value is suitable for appending to an image spec. 639return value is suitable for appending to an image spec.
640 640
641Recaling and rotation properties only take effect if Emacs is 641Rescaling and rotation properties only take effect if Emacs is
642compiled with ImageMagick support." 642compiled with ImageMagick support."
643 (when (or image-transform-resize 643 (when (or image-transform-resize
644 (not (equal image-transform-rotation 0.0))) 644 (not (equal image-transform-rotation 0.0)))
diff --git a/lisp/info.el b/lisp/info.el
index b8deb3c9c7f..0148ee544f9 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -264,7 +264,7 @@ Before leaving the initial Info node, where isearch was started,
264it fails once with the error message [initial node], and with 264it fails once with the error message [initial node], and with
265subsequent C-s/C-r continues through other nodes without failing 265subsequent C-s/C-r continues through other nodes without failing
266with this error message in other nodes. When isearch fails for 266with this error message in other nodes. When isearch fails for
267the rest of the manual, it wraps aroung the whole manual and 267the rest of the manual, it wraps around the whole manual and
268restarts the search from the top/final node depending on 268restarts the search from the top/final node depending on
269search direction. 269search direction.
270 270
@@ -3328,7 +3328,7 @@ Return a list of matches where each element is in the format
3328 (Info-directory) 3328 (Info-directory)
3329 ;; current-node and current-file are nil when they invoke info-apropos 3329 ;; current-node and current-file are nil when they invoke info-apropos
3330 ;; as the first Info command, i.e. info-apropos loads info.el. In that 3330 ;; as the first Info command, i.e. info-apropos loads info.el. In that
3331 ;; case, we use (DIR)Top instead, to avoid signalling an error after 3331 ;; case, we use (DIR)Top instead, to avoid signaling an error after
3332 ;; the search is complete. 3332 ;; the search is complete.
3333 (when (null current-node) 3333 (when (null current-node)
3334 (setq current-file Info-current-file) 3334 (setq current-file Info-current-file)
diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index 47426784e51..94237a0a489 100644
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -466,7 +466,7 @@ with L, LRE, or LRO Unicode bidi character type.")
466 466
467;; Tai Viet 467;; Tai Viet
468(let ((deflist '(;; chars syntax category 468(let ((deflist '(;; chars syntax category
469 ((?ꪀ. ?ꪯ) "w" ?0) ; cosonant 469 ((?ꪀ. ?ꪯ) "w" ?0) ; consonant
470 ("ꪱꪵꪶ" "w" ?1) ; vowel base 470 ("ꪱꪵꪶ" "w" ?1) ; vowel base
471 ((?ꪹ . ?ꪽ) "w" ?1) ; vowel base 471 ((?ꪹ . ?ꪽ) "w" ?1) ; vowel base
472 ("ꪰꪲꪳꪷꪸꪾ" "w" ?2) ; vowel upper 472 ("ꪰꪲꪳꪷꪸꪾ" "w" ?2) ; vowel upper
diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el
index 777779e5ec5..9f6520c7238 100644
--- a/lisp/international/fontset.el
+++ b/lisp/international/fontset.el
@@ -700,7 +700,7 @@ Internal use only. Should be called at startup time."
700;; HPHEBREW8 8-bit character set 700;; HPHEBREW8 8-bit character set
701;; "HP-Japanese15" [36] 701;; "HP-Japanese15" [36]
702;; HPJAPAN15 15-bit character set, 702;; HPJAPAN15 15-bit character set,
703;; modified from industry defacto 703;; modified from industry de facto
704;; standard Shift-JIS 704;; standard Shift-JIS
705;; "HP-Kana8" [36] 705;; "HP-Kana8" [36]
706;; HPKANA8 8-bit character set 706;; HPKANA8 8-bit character set
diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index cccf65b8051..efb910a3ef6 100644
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -958,7 +958,7 @@ the current buffer."
958 (insert "\n ---<fallback to the default of the default fontset>---") 958 (insert "\n ---<fallback to the default of the default fontset>---")
959 (put-text-property (line-beginning-position) (point) 'face 'highlight))) 959 (put-text-property (line-beginning-position) (point) 'face 'highlight)))
960 (if (and start1 end2) 960 (if (and start1 end2)
961 ;; Reoder the printed information to match with the font 961 ;; Reorder the printed information to match with the font
962 ;; searching strategy; i.e. FONTSET, the default fontset, 962 ;; searching strategy; i.e. FONTSET, the default fontset,
963 ;; default of FONTSET, default of the default fontset. 963 ;; default of FONTSET, default of the default fontset.
964 (transpose-regions start1 end1 start2 end2)) 964 (transpose-regions start1 end1 start2 end2))
diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index cac37b3b8c5..6888056704d 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -120,14 +120,14 @@ MAX-N is the maximum byte value of that.
120 120
121`:min-code' 121`:min-code'
122 122
123VALUE must be an integer specifying the mininum code point of the 123VALUE must be an integer specifying the minimum code point of the
124charset. If omitted, it is calculated from `:code-space'. VALUE may 124charset. If omitted, it is calculated from `:code-space'. VALUE may
125be a cons (HIGH . LOW), where HIGH is the most significant 16 bits of 125be a cons (HIGH . LOW), where HIGH is the most significant 16 bits of
126the code point and LOW is the least significant 16 bits. 126the code point and LOW is the least significant 16 bits.
127 127
128`:max-code' 128`:max-code'
129 129
130VALUE must be an integer specifying the maxinum code point of the 130VALUE must be an integer specifying the maximum code point of the
131charset. If omitted, it is calculated from `:code-space'. VALUE may 131charset. If omitted, it is calculated from `:code-space'. VALUE may
132be a cons (HIGH . LOW), where HIGH is the most significant 16 bits of 132be a cons (HIGH . LOW), where HIGH is the most significant 16 bits of
133the code point and LOW is the least significant 16 bits. 133the code point and LOW is the least significant 16 bits.
@@ -1566,7 +1566,7 @@ of `ctext-non-standard-encodings-alist'.")
1566 1566
1567;; Return an alist of CHARSET vs CTEXT-USAGE-INFO generated from 1567;; Return an alist of CHARSET vs CTEXT-USAGE-INFO generated from
1568;; `ctext-non-standard-encodings' and a list specified by the key 1568;; `ctext-non-standard-encodings' and a list specified by the key
1569;; `ctext-non-standard-encodings' for the currrent language 1569;; `ctext-non-standard-encodings' for the current language
1570;; environment. CTEXT-USAGE-INFO is one of the element of 1570;; environment. CTEXT-USAGE-INFO is one of the element of
1571;; `ctext-non-standard-encodings-alist' or nil. In the former case, a 1571;; `ctext-non-standard-encodings-alist' or nil. In the former case, a
1572;; character in CHARSET is encoded using extended segment. In the 1572;; character in CHARSET is encoded using extended segment. In the
diff --git a/lisp/international/quail.el b/lisp/international/quail.el
index f47d73a9508..bdbf2c07b7a 100644
--- a/lisp/international/quail.el
+++ b/lisp/international/quail.el
@@ -43,7 +43,7 @@
43;; CONVERSION-KEYS argument of the Quail package. 43;; CONVERSION-KEYS argument of the Quail package.
44 44
45;; [There was an input method for Mule 2.3 called `Tamago' from the 45;; [There was an input method for Mule 2.3 called `Tamago' from the
46;; Japanese `TAkusan MAtasete GOmenasai', or `Sorry for having you 46;; Japanese `TAkusan MAtasete GOmen-nasai', or `Sorry for having you
47;; wait so long'; this couldn't be included in Emacs 20. `Tamago' is 47;; wait so long'; this couldn't be included in Emacs 20. `Tamago' is
48;; Japanese for `egg' (implicitly a hen's egg). Handa-san made a 48;; Japanese for `egg' (implicitly a hen's egg). Handa-san made a
49;; smaller and simpler system; the smaller quail egg is also eaten in 49;; smaller and simpler system; the smaller quail egg is also eaten in
@@ -1377,7 +1377,7 @@ Return the input string."
1377 (set-buffer-modified-p modified-p) 1377 (set-buffer-modified-p modified-p)
1378 (quail-show-guidance) 1378 (quail-show-guidance)
1379 (let* ((prompt (if input-method-use-echo-area 1379 (let* ((prompt (if input-method-use-echo-area
1380 (format "%s%s %s" 1380 (format "%s%s %s"
1381 (or input-method-previous-message "") 1381 (or input-method-previous-message "")
1382 quail-current-str 1382 quail-current-str
1383 quail-guidance-str))) 1383 quail-guidance-str)))
@@ -1443,7 +1443,7 @@ Return the input string."
1443 (quail-setup-overlays nil))) 1443 (quail-setup-overlays nil)))
1444 (quail-show-guidance) 1444 (quail-show-guidance)
1445 (let* ((prompt (if input-method-use-echo-area 1445 (let* ((prompt (if input-method-use-echo-area
1446 (format "%s%s%s %s" 1446 (format "%s%s%s %s"
1447 (or input-method-previous-message "") 1447 (or input-method-previous-message "")
1448 quail-conversion-str 1448 quail-conversion-str
1449 quail-current-str 1449 quail-current-str
@@ -2011,7 +2011,7 @@ minibuffer and the selected frame has no other windows)."
2011 (set-window-dedicated-p win t)) 2011 (set-window-dedicated-p win t))
2012 (quail-minibuffer-message 2012 (quail-minibuffer-message
2013 (format " [%s]" current-input-method-title))) 2013 (format " [%s]" current-input-method-title)))
2014 ;; Show the guidance in the next line of the currrent 2014 ;; Show the guidance in the next line of the current
2015 ;; minibuffer. 2015 ;; minibuffer.
2016 (quail-minibuffer-message 2016 (quail-minibuffer-message
2017 (format " [%s]\n%s" 2017 (format " [%s]\n%s"
@@ -2125,7 +2125,7 @@ minibuffer and the selected frame has no other windows)."
2125 (- quail-guidance-translations-starting-column 2125 (- quail-guidance-translations-starting-column
2126 7 (string-width str)) 2126 7 (string-width str))
2127 32)))) 2127 32))))
2128 (setq str (format "%s(%02d/%s)" 2128 (setq str (format "%s(%02d/%s)"
2129 str (nth 3 indices) 2129 str (nth 3 indices)
2130 (if (nth 4 indices) 2130 (if (nth 4 indices)
2131 (format "%02d" (nth 4 indices)) 2131 (format "%02d" (nth 4 indices))
@@ -2135,7 +2135,7 @@ minibuffer and the selected frame has no other windows)."
2135 (trans (aref (cdr quail-current-translations) idx))) 2135 (trans (aref (cdr quail-current-translations) idx)))
2136 (or (stringp trans) 2136 (or (stringp trans)
2137 (setq trans (string trans))) 2137 (setq trans (string trans)))
2138 (setq str (format "%s %d.%s" 2138 (setq str (format "%s %d.%s"
2139 str 2139 str
2140 (if (= (- idx start) 9) 0 2140 (if (= (- idx start) 9) 0
2141 (1+ (- idx start))) 2141 (1+ (- idx start)))
@@ -2787,7 +2787,7 @@ If CHAR is an ASCII character and can be input by typing itself, return t."
2787 (cdr decode-map))) 2787 (cdr decode-map)))
2788 (let ((key-head (aref decode-map char))) 2788 (let ((key-head (aref decode-map char)))
2789 (if (stringp key-head) 2789 (if (stringp key-head)
2790 (setq key-list (quail-find-key1 2790 (setq key-list (quail-find-key1
2791 (quail-lookup-key key-head nil t) 2791 (quail-lookup-key key-head nil t)
2792 key-head char nil)) 2792 key-head char nil))
2793 (mapc #'(lambda (elt) 2793 (mapc #'(lambda (elt)
diff --git a/lisp/international/robin.el b/lisp/international/robin.el
index 6f78aaede3f..443a292f4c1 100644
--- a/lisp/international/robin.el
+++ b/lisp/international/robin.el
@@ -229,7 +229,7 @@
229;; As stated in Murphy's law, it took longer than expected to develop the 229;; As stated in Murphy's law, it took longer than expected to develop the
230;; very first version of Japanese input subsystem in NEmacs (Nihongo 230;; very first version of Japanese input subsystem in NEmacs (Nihongo
231;; Emacs). So the subsystem was named "TAMAGO", which is an acronym of 231;; Emacs). So the subsystem was named "TAMAGO", which is an acronym of
232;; "TAkusan Matasete GOmennasai" (Sorry to have kept you waiting so 232;; "TAkusan Matasete GOmen-nasai" (Sorry to have kept you waiting so
233;; long). "Tamago" as a Japanese word means "egg", so the word "egg" was 233;; long). "Tamago" as a Japanese word means "egg", so the word "egg" was
234;; also used for related filenames and function names. 234;; also used for related filenames and function names.
235 235
diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el
index e68dc8bdc17..757322aa0ce 100644
--- a/lisp/international/titdic-cnv.el
+++ b/lisp/international/titdic-cnv.el
@@ -305,7 +305,7 @@ SPC, 6, 3, 4, or 7 specifing a tone (SPC:$(0?v(N(B, 6:$(0Dm(N(B, 3:$(0&9Vy
305 (cond ((looking-at "PROMPT:[ \t]*") 305 (cond ((looking-at "PROMPT:[ \t]*")
306 (goto-char (match-end 0)) 306 (goto-char (match-end 0))
307 (setq tit-prompt (tit-read-key-value)) 307 (setq tit-prompt (tit-read-key-value))
308 ;; Some TIT dictionaies that are encoded by 308 ;; Some TIT dictionaries that are encoded by
309 ;; euc-china contains invalid character at the tail. 309 ;; euc-china contains invalid character at the tail.
310 (let* ((last (aref tit-prompt (1- (length tit-prompt)))) 310 (let* ((last (aref tit-prompt (1- (length tit-prompt))))
311 (split (split-char last))) 311 (split (split-char last)))
@@ -734,7 +734,7 @@ To get complete usage, invoke \"emacs -batch -f batch-titdic-convert -h\"."
734;; dictionary in the buffer DICBUF. The input method name of the 734;; dictionary in the buffer DICBUF. The input method name of the
735;; Quail package is NAME, and the title string is TITLE. 735;; Quail package is NAME, and the title string is TITLE.
736 736
737;; TSANG-P is non-nil, genereate $(06AQo(B input method. Otherwise 737;; TSANG-P is non-nil, generate $(06AQo(B input method. Otherwise
738;; generate $(0X|/y(B (simple version of $(06AQo(B). If BIG5-P is non-nil, the 738;; generate $(0X|/y(B (simple version of $(06AQo(B). If BIG5-P is non-nil, the
739;; input method is for inputting Big5 characters. Otherwise the input 739;; input method is for inputting Big5 characters. Otherwise the input
740;; method is for inputting CNS characters. 740;; method is for inputting CNS characters.
diff --git a/lisp/isearch.el b/lisp/isearch.el
index 3ffe6e8a656..977de6ac4b0 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -542,8 +542,8 @@ Each set is a vector of the form:
542(defvar isearch-string "") ; The current search string. 542(defvar isearch-string "") ; The current search string.
543(defvar isearch-message "") ; text-char-description version of isearch-string 543(defvar isearch-message "") ; text-char-description version of isearch-string
544 544
545(defvar isearch-message-prefix-add nil) ; Additonal text for the message prefix 545(defvar isearch-message-prefix-add nil) ; Additional text for the message prefix
546(defvar isearch-message-suffix-add nil) ; Additonal text for the message suffix 546(defvar isearch-message-suffix-add nil) ; Additional text for the message suffix
547 547
548(defvar isearch-success t) ; Searching is currently successful. 548(defvar isearch-success t) ; Searching is currently successful.
549(defvar isearch-error nil) ; Error message for failed search. 549(defvar isearch-error nil) ; Error message for failed search.
@@ -2243,7 +2243,7 @@ If there is no completion possible, say so and continue searching."
2243;; Searching 2243;; Searching
2244 2244
2245(defvar isearch-search-fun-function nil 2245(defvar isearch-search-fun-function nil
2246 "Overrides the default `isearch-search-fun' behaviour. 2246 "Overrides the default `isearch-search-fun' behavior.
2247This variable's value should be a function, which will be called 2247This variable's value should be a function, which will be called
2248with no arguments, and should return a function that takes three 2248with no arguments, and should return a function that takes three
2249arguments: STRING, BOUND, and NOERROR. 2249arguments: STRING, BOUND, and NOERROR.
diff --git a/lisp/iswitchb.el b/lisp/iswitchb.el
index a7d3328526a..a96fbf9253f 100644
--- a/lisp/iswitchb.el
+++ b/lisp/iswitchb.el
@@ -163,7 +163,7 @@
163;; Font-Lock 163;; Font-Lock
164 164
165;; font-lock is used to highlight the first matching buffer. To 165;; font-lock is used to highlight the first matching buffer. To
166;; switch this off, set (setq iswitchb-use-faces nil). Colouring of 166;; switch this off, set (setq iswitchb-use-faces nil). Coloring of
167;; the matching buffer name was suggested by Carsten Dominik 167;; the matching buffer name was suggested by Carsten Dominik
168;; (dominik@strw.leidenuniv.nl) 168;; (dominik@strw.leidenuniv.nl)
169 169
@@ -1110,7 +1110,7 @@ Return the modified list with the last element prepended to it."
1110 (if (fboundp 'set-buffer-major-mode) 1110 (if (fboundp 'set-buffer-major-mode)
1111 (set-buffer-major-mode newbufcreated)) 1111 (set-buffer-major-mode newbufcreated))
1112 (iswitchb-visit-buffer newbufcreated)) 1112 (iswitchb-visit-buffer newbufcreated))
1113 ;; else wont create new buffer 1113 ;; else won't create new buffer
1114 (message "no buffer matching `%s'" buf)))) 1114 (message "no buffer matching `%s'" buf))))
1115 1115
1116(defun iswitchb-window-buffer-p (buffer) 1116(defun iswitchb-window-buffer-p (buffer)
diff --git a/lisp/kmacro.el b/lisp/kmacro.el
index e47f571db71..eea3009faf4 100644
--- a/lisp/kmacro.el
+++ b/lisp/kmacro.el
@@ -1020,7 +1020,7 @@ following additional answers: `insert', `insert-1', `replace', `replace-1',
1020 (setq executing-kbd-macro-index (- executing-kbd-macro-index (length unread-command-events)) 1020 (setq executing-kbd-macro-index (- executing-kbd-macro-index (length unread-command-events))
1021 next-index executing-kbd-macro-index))))) 1021 next-index executing-kbd-macro-index)))))
1022 1022
1023 ;; Query the user; stop macro exection temporarily 1023 ;; Query the user; stop macro execution temporarily.
1024 (let ((macro executing-kbd-macro) 1024 (let ((macro executing-kbd-macro)
1025 (executing-kbd-macro nil) 1025 (executing-kbd-macro nil)
1026 (defining-kbd-macro nil)) 1026 (defining-kbd-macro nil))
diff --git a/lisp/language/ethio-util.el b/lisp/language/ethio-util.el
index bb242a50acc..444f4d519da 100644
--- a/lisp/language/ethio-util.el
+++ b/lisp/language/ethio-util.el
@@ -582,7 +582,7 @@ See also the descriptions of the variables
582 (narrow-to-region p (point)) 582 (narrow-to-region p (point))
583 (robin-invert-region (point-min) (point-max) "ethiopic-sera") 583 (robin-invert-region (point-min) (point-max) "ethiopic-sera")
584 584
585 ;; ethio-quote-vowel-alwyas 585 ;; ethio-quote-vowel-always
586 (goto-char (point-min)) 586 (goto-char (point-min))
587 (while (re-search-forward "'[eauio]" nil t) 587 (while (re-search-forward "'[eauio]" nil t)
588 (save-excursion 588 (save-excursion
diff --git a/lisp/language/ethiopic.el b/lisp/language/ethiopic.el
index 22ccd56dab3..13a645a9975 100644
--- a/lisp/language/ethiopic.el
+++ b/lisp/language/ethiopic.el
@@ -61,7 +61,7 @@
61 (features ethio-util) 61 (features ethio-util)
62 (sample-text . "áŠá‹°áˆ") 62 (sample-text . "áŠá‹°áˆ")
63 (documentation . 63 (documentation .
64"This language envrironment provides these function key bindings: 64"This language environment provides these function key bindings:
65 [f3] ethio-fidel-to-sera-buffer 65 [f3] ethio-fidel-to-sera-buffer
66 [S-f3] ethio-fidel-to-sera-region 66 [S-f3] ethio-fidel-to-sera-region
67 [C-f3] ethio-fidel-to-sera-marker 67 [C-f3] ethio-fidel-to-sera-marker
diff --git a/lisp/language/european.el b/lisp/language/european.el
index 6dfc03d0f5f..5bdec6dec7b 100644
--- a/lisp/language/european.el
+++ b/lisp/language/european.el
@@ -146,8 +146,8 @@ These languages are supported with the Latin-3 (ISO-8859-3) character set:
146 (input-method . "latin-4-postfix") 146 (input-method . "latin-4-postfix")
147 (documentation . "\ 147 (documentation . "\
148These languages are supported with the Latin-4 (ISO-8859-4) character set: 148These languages are supported with the Latin-4 (ISO-8859-4) character set:
149 Danish, English, Estonian, Finnish, German, Greenlandic, Lappish, 149 Danish, English, Estonian, Finnish, German, Greenlandic, Latvian,
150 Latvian, Lithuanian, and Norwegian.")) 150 Lithuanian, Norwegian, and Sami."))
151 '("European")) 151 '("European"))
152 152
153 153
@@ -226,7 +226,7 @@ See also the Turkish environment."))
226 "ISO 2022 based 8-bit encoding for Latin-8 (MIME:ISO-8859-14)." 226 "ISO 2022 based 8-bit encoding for Latin-8 (MIME:ISO-8859-14)."
227 :coding-type 'charset 227 :coding-type 'charset
228 ;; `W' for `Welsh', since `C' for `Celtic' is taken. 228 ;; `W' for `Welsh', since `C' for `Celtic' is taken.
229 :mnemonic ?W 229 :mnemonic ?W
230 :charset-list '(iso-8859-14) 230 :charset-list '(iso-8859-14)
231 :mime-charset 'iso-8859-14) 231 :mime-charset 'iso-8859-14)
232 232
@@ -610,7 +610,7 @@ method and applying Turkish case rules for the characters i, I, $(D)E(B, $(D*
610(define-coding-system 'mac-roman 610(define-coding-system 'mac-roman
611 "Mac Roman Encoding (MIME:MACINTOSH)." 611 "Mac Roman Encoding (MIME:MACINTOSH)."
612 :coding-type 'charset 612 :coding-type 'charset
613 :mnemonic ?M 613 :mnemonic ?M
614 :charset-list '(mac-roman) 614 :charset-list '(mac-roman)
615 :mime-charset 'macintosh) 615 :mime-charset 'macintosh)
616 616
diff --git a/lisp/language/lao-util.el b/lisp/language/lao-util.el
index 81c5577fa57..008eb92dbbc 100644
--- a/lisp/language/lao-util.el
+++ b/lisp/language/lao-util.el
@@ -371,8 +371,8 @@ consonant. It is a list vowel characters or 0. The element 0
371indicate the place to embed a consonant. 371indicate the place to embed a consonant.
372 372
373Optional WITH-MAA-SAKOD-RULE is a rule to re-order and modify VOWEL 373Optional WITH-MAA-SAKOD-RULE is a rule to re-order and modify VOWEL
374follwoing a consonant and preceding a maa-sakod character. If it is 374following a consonant and preceding a maa-sakod character. If it is
375nil, NO-MAA-SAKOD-RULE is used. The maa-sakod character is alwasy 375nil, NO-MAA-SAKOD-RULE is used. The maa-sakod character is always
376appended at the tail. 376appended at the tail.
377 377
378For instance, rule `(\"(1`WM(B\" (?(1`(B t ?(1W(B ?(1M(B))' tells that this vowel 378For instance, rule `(\"(1`WM(B\" (?(1`(B t ?(1W(B ?(1M(B))' tells that this vowel
diff --git a/lisp/language/romanian.el b/lisp/language/romanian.el
index b9c250fd700..25a10633a28 100644
--- a/lisp/language/romanian.el
+++ b/lisp/language/romanian.el
@@ -35,7 +35,7 @@
35 (unibyte-display . iso-8859-2) 35 (unibyte-display . iso-8859-2)
36 (tutorial . "TUTORIAL.ro") 36 (tutorial . "TUTORIAL.ro")
37 (sample-text . "Bunã ziua, bine aþi venit!") 37 (sample-text . "Bunã ziua, bine aþi venit!")
38 (documentation . "Rmoanian environment using Latin-2 encoding. 38 (documentation . "Romanian environment using Latin-2 encoding.
39An environment for generic Latin-10 encoding is also available.")) 39An environment for generic Latin-10 encoding is also available."))
40 '("European")) 40 '("European"))
41 41
diff --git a/lisp/language/vietnamese.el b/lisp/language/vietnamese.el
index 97d5037f3c5..4034566afca 100644
--- a/lisp/language/vietnamese.el
+++ b/lisp/language/vietnamese.el
@@ -28,7 +28,7 @@
28 28
29;;; Commentary: 29;;; Commentary:
30 30
31;; For Vietnames, the character sets VISCII, VSCII and TCVN-5712 are 31;; For Vietnamese, the character sets VISCII, VSCII and TCVN-5712 are
32;; supported. 32;; supported.
33 33
34;;; Code: 34;;; Code:
@@ -84,7 +84,7 @@
84 (documentation . "\ 84 (documentation . "\
85For Vietnamese, Emacs uses special charsets internally. 85For Vietnamese, Emacs uses special charsets internally.
86They can be decoded from and encoded to VISCII, VSCII, TCVN-5712, VIQR 86They can be decoded from and encoded to VISCII, VSCII, TCVN-5712, VIQR
87and windows-1258. VSCII is deprecated in favour of TCVN-5712. The 87and windows-1258. VSCII is deprecated in favor of TCVN-5712. The
88Current setting gives higher priority to the coding system VISCII than 88Current setting gives higher priority to the coding system VISCII than
89TCVN-5712. If you prefer TCVN-5712, please do: (prefer-coding-system 89TCVN-5712. If you prefer TCVN-5712, please do: (prefer-coding-system
90'vietnamese-tcvn). There are two Vietnamese input methods: VIQR and 90'vietnamese-tcvn). There are two Vietnamese input methods: VIQR and
diff --git a/lisp/ldefs-boot.el b/lisp/ldefs-boot.el
index 0ce53fcb9a3..7f595db4814 100644
--- a/lisp/ldefs-boot.el
+++ b/lisp/ldefs-boot.el
@@ -11099,7 +11099,7 @@ the rightmost is selected. If ARG is nil, the leftmost window is
11099selected if the original window is the first one in the frame. 11099selected if the original window is the first one in the frame.
11100 11100
11101To bind this command to a hotkey, place the following line 11101To bind this command to a hotkey, place the following line
11102in your `~/.emacs' file, replacing [f7] by your favourite key: 11102in your `~/.emacs' file, replacing [f7] by your favorite key:
11103 (global-set-key [f7] 'follow-delete-other-windows-and-split) 11103 (global-set-key [f7] 'follow-delete-other-windows-and-split)
11104 11104
11105\(fn &optional ARG)" t nil) 11105\(fn &optional ARG)" t nil)
@@ -20621,7 +20621,7 @@ normalized footnotes towards the end of the pre-processing buffer.
20621Some exporters like docbook, odt, etc. expect that footnote 20621Some exporters like docbook, odt, etc. expect that footnote
20622definitions be available before any references to them. Such 20622definitions be available before any references to them. Such
20623exporters can let bind `org-footnote-insert-pos-for-preprocessor' to 20623exporters can let bind `org-footnote-insert-pos-for-preprocessor' to
20624symbol 'point-min to achieve the desired behaviour. 20624symbol 'point-min to achieve the desired behavior.
20625 20625
20626Additional note on `org-footnote-insert-pos-for-preprocessor': 20626Additional note on `org-footnote-insert-pos-for-preprocessor':
206271. This variable has not effect when FOR-PREPROCESSOR is nil. 206271. This variable has not effect when FOR-PREPROCESSOR is nil.
@@ -26109,7 +26109,7 @@ That's all. Here's the board after two moves:
26109 26109
26110 o o o 26110 o o o
26111 26111
26112Pick your favourite shortcuts: 26112Pick your favorite shortcuts:
26113 26113
26114\\{solitaire-mode-map} 26114\\{solitaire-mode-map}
26115 26115
@@ -27789,7 +27789,7 @@ This mode is usually not used directly; instead, other major
27789modes are derived from it, using `define-derived-mode'. 27789modes are derived from it, using `define-derived-mode'.
27790 27790
27791In this major mode, the buffer is divided into multiple columns, 27791In this major mode, the buffer is divided into multiple columns,
27792which are labelled using the header line. Each non-empty line 27792which are labeled using the header line. Each non-empty line
27793belongs to one \"entry\", and the entries can be sorted according 27793belongs to one \"entry\", and the entries can be sorted according
27794to their column values. 27794to their column values.
27795 27795
diff --git a/lisp/loadhist.el b/lisp/loadhist.el
index 0b569199935..da20e4cb7ca 100644
--- a/lisp/loadhist.el
+++ b/lisp/loadhist.el
@@ -144,7 +144,7 @@ These are symbols with hooklike values whose names don't end in
144pertinent symbols.") 144pertinent symbols.")
145 145
146(defvar unload-function-defs-list nil 146(defvar unload-function-defs-list nil
147 "List of defintions in the Lisp library being unloaded. 147 "List of definitions in the Lisp library being unloaded.
148 148
149This is meant to be used by `FEATURE-unload-function'; see the 149This is meant to be used by `FEATURE-unload-function'; see the
150documentation of `unload-feature' for details.") 150documentation of `unload-feature' for details.")
diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el
index f4b29958aab..47583e3f860 100644
--- a/lisp/mail/feedmail.el
+++ b/lisp/mail/feedmail.el
@@ -83,7 +83,7 @@
83;; work properly. If you don't know what custom is all about and want 83;; work properly. If you don't know what custom is all about and want
84;; to edit your user option elisp variables the old fashioned way, 84;; to edit your user option elisp variables the old fashioned way,
85;; just imagine that all the "defcustom" stuff you see below is really 85;; just imagine that all the "defcustom" stuff you see below is really
86;; "defvar", and ignore everthing else. For info about custom, see 86;; "defvar", and ignore everything else. For info about custom, see
87;; <URL:http://www.dina.kvl.dk/~abraham/custom/>. 87;; <URL:http://www.dina.kvl.dk/~abraham/custom/>.
88;; 88;;
89;; This code does in elisp a superset of the stuff that used to be done 89;; This code does in elisp a superset of the stuff that used to be done
@@ -336,7 +336,7 @@
336;; for FQM files if you're a VM user 336;; for FQM files if you're a VM user
337;; change buffer-substring calls to buffer-substring-no-properties for 337;; change buffer-substring calls to buffer-substring-no-properties for
338;; speed-up (suggested by Howard Melman <howard@silverstream.com>) 338;; speed-up (suggested by Howard Melman <howard@silverstream.com>)
339;; feedmail-sendmail-f-doesnt-sell-me-out to contol "-f" in call to sendmail 339;; feedmail-sendmail-f-doesnt-sell-me-out to control "-f" in call to sendmail
340;; in feedmail-buffer-to-sendmail 340;; in feedmail-buffer-to-sendmail
341;; better trapping of odd conditions during the running of the queue; 341;; better trapping of odd conditions during the running of the queue;
342;; thanks to Yigal Hochberg for helping me test much of this by remote 342;; thanks to Yigal Hochberg for helping me test much of this by remote
@@ -1356,7 +1356,7 @@ for you. Add this function to `mail-send-hook' with something like this:
1356 (add-hook 'mail-send-hook 'feedmail-mail-send-hook-splitter) 1356 (add-hook 'mail-send-hook 'feedmail-mail-send-hook-splitter)
1357 1357
1358Then add the functions you want called to either `feedmail-mail-send-hook-queued' 1358Then add the functions you want called to either `feedmail-mail-send-hook-queued'
1359or `feedmail-mail-send-hook', as apprpriate. The distinction is that 1359or `feedmail-mail-send-hook', as appropriate. The distinction is that
1360`feedmail-mail-send-hook' will be called when you send mail from a composition 1360`feedmail-mail-send-hook' will be called when you send mail from a composition
1361buffer (typically by typing C-c C-c), whether the message is sent immediately 1361buffer (typically by typing C-c C-c), whether the message is sent immediately
1362or placed in the queue or drafts directory. `feedmail-mail-send-hook-queued' is 1362or placed in the queue or drafts directory. `feedmail-mail-send-hook-queued' is
@@ -2410,7 +2410,7 @@ mapped to mostly alphanumerics for safety."
2410 (a-re-dtcb "^\\(To\\|Cc\\|Bcc\\):") 2410 (a-re-dtcb "^\\(To\\|Cc\\|Bcc\\):")
2411 (a-re-dtc "^\\(To\\|Cc\\):") 2411 (a-re-dtc "^\\(To\\|Cc\\):")
2412 (a-re-db "^Bcc:") 2412 (a-re-db "^Bcc:")
2413 ;; to get a temporary changable copy 2413 ;; to get a temporary changeable copy
2414 (mail-header-separator mail-header-separator) 2414 (mail-header-separator mail-header-separator)
2415 ) 2415 )
2416 (unwind-protect 2416 (unwind-protect
diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el
index c3a7da41823..12826001d86 100644
--- a/lisp/mail/mail-extr.el
+++ b/lisp/mail/mail-extr.el
@@ -1961,7 +1961,7 @@ place. It affects how `mail-extract-address-components' works."
1961 ("gw" "Guinea-Bissau") 1961 ("gw" "Guinea-Bissau")
1962 ("gy" "Guyana") 1962 ("gy" "Guyana")
1963 ("hk" "Hong Kong") 1963 ("hk" "Hong Kong")
1964 ("hm" "Heard Island and Mcdonald Islands") 1964 ("hm" "Heard Island and McDonald Islands")
1965 ("hn" "Honduras") 1965 ("hn" "Honduras")
1966 ("hr" "Croatia" "Croatia (Hrvatska)") 1966 ("hr" "Croatia" "Croatia (Hrvatska)")
1967 ("ht" "Haiti") 1967 ("ht" "Haiti")
diff --git a/lisp/mail/rmail-spam-filter.el b/lisp/mail/rmail-spam-filter.el
index 70226b26965..14a76746797 100644
--- a/lisp/mail/rmail-spam-filter.el
+++ b/lisp/mail/rmail-spam-filter.el
@@ -317,7 +317,7 @@ it from rmail file. Called for each new message retrieved by
317 ;; that this email is spam, output the email to the spam 317 ;; that this email is spam, output the email to the spam
318 ;; rmail file, mark the email for deletion, leave the 318 ;; rmail file, mark the email for deletion, leave the
319 ;; while loop and return nil so that an rmail summary line 319 ;; while loop and return nil so that an rmail summary line
320 ;; wont be displayed for this message: (FIXME ?) 320 ;; won't be displayed for this message: (FIXME ?)
321 (if (and (car maybe-spam) (cdr maybe-spam)) 321 (if (and (car maybe-spam) (cdr maybe-spam))
322 (setq exit-while-loop t) 322 (setq exit-while-loop t)
323 ;; Else, spam was not yet found, proceed to next element 323 ;; Else, spam was not yet found, proceed to next element
@@ -554,4 +554,4 @@ checks to see if the old format is used, and updates it if necessary."
554 554
555(provide 'rmail-spam-filter) 555(provide 'rmail-spam-filter)
556 556
557;;; rmail-spam-fitler ends here 557;;; rmail-spam-filter ends here
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 4b3441a8cdc..5d219c0084f 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -631,27 +631,20 @@ Element N specifies the summary line for message N+1.")
631This is set to nil by default.") 631This is set to nil by default.")
632 632
633(defcustom rmail-enable-mime t 633(defcustom rmail-enable-mime t
634 "If non-nil, RMAIL uses MIME features. 634 "If non-nil, RMAIL automatically displays decoded MIME messages.
635If the value is t, RMAIL automatically shows MIME decoded message. 635For this to work, the feature specified by `rmail-mime-feature' must
636If the value is neither t nor nil, RMAIL does not show MIME decoded message 636be available."
637until a user explicitly requires it. 637 :type 'boolean
638
639Even if the value is non-nil, you can't use MIME features
640unless the feature specified by `rmail-mime-feature' is available."
641 :type '(choice (const :tag "on" t)
642 (const :tag "off" nil)
643 (other :tag "when asked" ask))
644 :version "23.3" 638 :version "23.3"
645 :group 'rmail) 639 :group 'rmail)
646 640
647(defvar rmail-enable-mime-composing t 641(defvar rmail-enable-mime-composing t
648 "*If non-nil, RMAIL uses `rmail-insert-mime-forwarded-message-function' to forward.") 642 "*If non-nil, RMAIL uses `rmail-insert-mime-forwarded-message-function' to forward.")
649 643
650;; FIXME unused.
651(defvar rmail-show-mime-function nil 644(defvar rmail-show-mime-function nil
652 "Function to show MIME decoded message of RMAIL file. 645 "Function of no argument called to show a decoded MIME message.
653This function is called when `rmail-enable-mime' is non-nil. 646This function is called when `rmail-enable-mime' is non-nil.
654It is called with no argument.") 647The package providing MIME support should set this.")
655 648
656;;;###autoload 649;;;###autoload
657(defvar rmail-insert-mime-forwarded-message-function nil 650(defvar rmail-insert-mime-forwarded-message-function nil
@@ -687,7 +680,7 @@ where MSG is the message number, REGEXP is the regular
687expression, LIMIT is the position specifying the end of header.") 680expression, LIMIT is the position specifying the end of header.")
688 681
689(defvar rmail-mime-feature 'rmailmm 682(defvar rmail-mime-feature 'rmailmm
690 "Feature to require to load MIME support in Rmail. 683 "Feature to require for MIME support in Rmail.
691When starting Rmail, if `rmail-enable-mime' is non-nil, 684When starting Rmail, if `rmail-enable-mime' is non-nil,
692this feature is required with `require'. 685this feature is required with `require'.
693 686
@@ -837,10 +830,10 @@ isn't provided."
837 (display-warning 830 (display-warning
838 'rmail 831 'rmail
839 (format "Although MIME support is requested 832 (format "Although MIME support is requested
840by setting `rmail-enable-mime' to non-nil, the required feature 833through `rmail-enable-mime' being non-nil, the required feature
841`%s' (the value of `rmail-mime-feature') 834`%s' (the value of `rmail-mime-feature')
842is not available in the current session. 835is not available in the current session.
843So, the MIME support is turned off for the moment." 836So, MIME support is turned off for the moment."
844 rmail-mime-feature) 837 rmail-mime-feature)
845 :warning) 838 :warning)
846 (setq rmail-enable-mime nil))))) 839 (setq rmail-enable-mime nil)))))
@@ -2071,7 +2064,7 @@ Call with point at the end of the message."
2071(defun rmail-add-mbox-headers () 2064(defun rmail-add-mbox-headers ()
2072 "Validate the RFC2822 format for the new messages. 2065 "Validate the RFC2822 format for the new messages.
2073Point should be at the first new message. 2066Point should be at the first new message.
2074An error is signalled if the new messages are not RFC2822 2067An error is signaled if the new messages are not RFC2822
2075compliant. 2068compliant.
2076Unless an Rmail attribute header already exists, add it to the 2069Unless an Rmail attribute header already exists, add it to the
2077new messages. Return the number of new messages." 2070new messages. Return the number of new messages."
@@ -2440,7 +2433,7 @@ Output a helpful message unless NOMSG is non-nil."
2440 ;; the entry for message N+1, which marks 2433 ;; the entry for message N+1, which marks
2441 ;; the end of message N. (N = number of messages). 2434 ;; the end of message N. (N = number of messages).
2442 (setq messages-head (list (point-marker))) 2435 (setq messages-head (list (point-marker)))
2443 (setq messages-after-point 2436 (setq messages-after-point
2444 (or (rmail-set-message-counters-counter (min (point) point-save)) 2437 (or (rmail-set-message-counters-counter (min (point) point-save))
2445 0)) 2438 0))
2446 2439
@@ -2602,6 +2595,8 @@ Ask the user whether to add that list name to `mail-mailing-lists'."
2602 "Return nil if there is mail, else \"No mail.\"." 2595 "Return nil if there is mail, else \"No mail.\"."
2603 (if (zerop rmail-total-messages) 2596 (if (zerop rmail-total-messages)
2604 (save-excursion 2597 (save-excursion
2598 ;; Eg we deleted all the messages, so remove the old N/M mark.
2599 (with-current-buffer rmail-buffer (setq mode-line-process nil))
2605 (with-current-buffer rmail-view-buffer 2600 (with-current-buffer rmail-view-buffer
2606 (erase-buffer) 2601 (erase-buffer)
2607 "No mail.")))) 2602 "No mail."))))
@@ -2698,6 +2693,7 @@ The current mail message becomes the message displayed."
2698 ;; inspect this value to determine how to toggle. 2693 ;; inspect this value to determine how to toggle.
2699 (set (make-local-variable 'rmail-header-style) header-style)) 2694 (set (make-local-variable 'rmail-header-style) header-style))
2700 (if (and rmail-enable-mime 2695 (if (and rmail-enable-mime
2696 rmail-show-mime-function
2701 (re-search-forward "mime-version: 1.0" nil t)) 2697 (re-search-forward "mime-version: 1.0" nil t))
2702 (let ((rmail-buffer mbox-buf) 2698 (let ((rmail-buffer mbox-buf)
2703 (rmail-view-buffer view-buf)) 2699 (rmail-view-buffer view-buf))
@@ -3094,7 +3090,7 @@ but probably is garbage."
3094 ;; correspond to the lines in the inbox file. 3090 ;; correspond to the lines in the inbox file.
3095 (goto-char (point-min)) 3091 (goto-char (point-min))
3096 (if header-field 3092 (if header-field
3097 (progn 3093 (progn
3098 (re-search-forward (concat "^" (regexp-quote header-field)) nil t) 3094 (re-search-forward (concat "^" (regexp-quote header-field)) nil t)
3099 (forward-line line-number-within)) 3095 (forward-line line-number-within))
3100 (search-forward "\n\n" nil t) 3096 (search-forward "\n\n" nil t)
@@ -4443,7 +4439,7 @@ encoded string (and the same mask) will decode the string."
4443;;; Start of automatically extracted autoloads. 4439;;; Start of automatically extracted autoloads.
4444 4440
4445;;;### (autoloads (rmail-edit-current-message) "rmailedit" "rmailedit.el" 4441;;;### (autoloads (rmail-edit-current-message) "rmailedit" "rmailedit.el"
4446;;;;;; "090ad9432c3bf9a6098bb9c3d7c71baf") 4442;;;;;; "7f9bff22ed0bbac561c97fd1e3ab503d")
4447;;; Generated autoloads from rmailedit.el 4443;;; Generated autoloads from rmailedit.el
4448 4444
4449(autoload 'rmail-edit-current-message "rmailedit" "\ 4445(autoload 'rmail-edit-current-message "rmailedit" "\
@@ -4498,28 +4494,29 @@ With prefix argument N moves forward N messages with these labels.
4498 4494
4499;;;*** 4495;;;***
4500 4496
4501;;;### (autoloads (rmail-mime) "rmailmm" "rmailmm.el" "2c8675d7c069c68bc36a4003b15448d1") 4497;;;### (autoloads (rmail-mime) "rmailmm" "rmailmm.el" "6296f0170a37670c49a88a1b92d78187")
4502;;; Generated autoloads from rmailmm.el 4498;;; Generated autoloads from rmailmm.el
4503 4499
4504(autoload 'rmail-mime "rmailmm" "\ 4500(autoload 'rmail-mime "rmailmm" "\
4505Toggle displaying of a MIME message. 4501Toggle the display of a MIME message.
4506
4507The actualy behavior depends on the value of `rmail-enable-mime'.
4508 4502
4509If `rmail-enable-mime' is t (default), this command change the 4503The actual behavior depends on the value of `rmail-enable-mime'.
4510displaying of a MIME message between decoded presentation form
4511and raw data.
4512 4504
4513With ARG, toggle the displaying of the current MIME entity only. 4505If `rmail-enable-mime' is non-nil (the default), this command toggles
4506the display of a MIME message between decoded presentation form and
4507raw data. With optional prefix argument ARG, it toggles the display only
4508of the MIME entity at point, if there is one. The optional argument
4509STATE forces a particular display state, rather than toggling.
4510`raw' forces raw mode, any other non-nil value forces decoded mode.
4514 4511
4515If `rmail-enable-mime' is nil, this creates a temporary 4512If `rmail-enable-mime' is nil, this creates a temporary \"*RMAIL*\"
4516\"*RMAIL*\" buffer holding a decoded copy of the message. Inline 4513buffer holding a decoded copy of the message. Inline content-types are
4517content-types are handled according to 4514handled according to `rmail-mime-media-type-handlers-alist'.
4518`rmail-mime-media-type-handlers-alist'. By default, this 4515By default, this displays text and multipart messages, and offers to
4519displays text and multipart messages, and offers to download 4516download attachments as specified by `rmail-mime-attachment-dirs-alist'.
4520attachments as specfied by `rmail-mime-attachment-dirs-alist'. 4517The arguments ARG and STATE have no effect in this case.
4521 4518
4522\(fn &optional ARG)" t nil) 4519\(fn &optional ARG STATE)" t nil)
4523 4520
4524;;;*** 4521;;;***
4525 4522
@@ -4599,7 +4596,7 @@ If prefix argument REVERSE is non-nil, sorts in reverse order.
4599 4596
4600;;;### (autoloads (rmail-summary-by-senders rmail-summary-by-topic 4597;;;### (autoloads (rmail-summary-by-senders rmail-summary-by-topic
4601;;;;;; rmail-summary-by-regexp rmail-summary-by-recipients rmail-summary-by-labels 4598;;;;;; rmail-summary-by-regexp rmail-summary-by-recipients rmail-summary-by-labels
4602;;;;;; rmail-summary) "rmailsum" "rmailsum.el" "3817e21639db697abe5832d3223ecfc2") 4599;;;;;; rmail-summary) "rmailsum" "rmailsum.el" "35e07b0a5ea8e41971f31a8780eba6bb")
4603;;; Generated autoloads from rmailsum.el 4600;;; Generated autoloads from rmailsum.el
4604 4601
4605(autoload 'rmail-summary "rmailsum" "\ 4602(autoload 'rmail-summary "rmailsum" "\
diff --git a/lisp/mail/rmailedit.el b/lisp/mail/rmailedit.el
index 868ca15923f..7e70f66ef11 100644
--- a/lisp/mail/rmailedit.el
+++ b/lisp/mail/rmailedit.el
@@ -78,6 +78,7 @@ This function runs the hooks `text-mode-hook' and `rmail-edit-mode-hook'.
78 78
79 79
80(defvar rmail-old-text) 80(defvar rmail-old-text)
81(defvar rmail-old-mime-state)
81(defvar rmail-old-pruned nil 82(defvar rmail-old-pruned nil
82 "Non-nil means the message being edited originally had pruned headers.") 83 "Non-nil means the message being edited originally had pruned headers.")
83(put 'rmail-old-pruned 'permanent-local t) 84(put 'rmail-old-pruned 'permanent-local t)
@@ -86,6 +87,10 @@ This function runs the hooks `text-mode-hook' and `rmail-edit-mode-hook'.
86 "Holds the headers of this message before editing started.") 87 "Holds the headers of this message before editing started.")
87(put 'rmail-old-headers 'permanent-local t) 88(put 'rmail-old-headers 'permanent-local t)
88 89
90;; Everything we use from here is a defsubst.
91(eval-when-compile
92 (require 'rmailmm))
93
89;;;###autoload 94;;;###autoload
90(defun rmail-edit-current-message () 95(defun rmail-edit-current-message ()
91 "Edit the contents of this message." 96 "Edit the contents of this message."
@@ -96,6 +101,28 @@ This function runs the hooks `text-mode-hook' and `rmail-edit-mode-hook'.
96 (make-local-variable 'rmail-old-pruned) 101 (make-local-variable 'rmail-old-pruned)
97 (setq rmail-old-pruned (rmail-msg-is-pruned)) 102 (setq rmail-old-pruned (rmail-msg-is-pruned))
98 (rmail-edit-mode) 103 (rmail-edit-mode)
104 (set (make-local-variable 'rmail-old-mime-state)
105 (and rmail-enable-mime
106 ;; If you use something else, you are on your own.
107 (eq rmail-mime-feature 'rmailmm)
108 (rmail-mime-message-p)
109 (let ((entity (get-text-property (point-min) 'rmail-mime-entity)))
110 ;; rmailmm has got its hands on the message.
111 ;; Even if the message is in `raw' state, boundaries etc
112 ;; are still missing. All we can do is insert the real
113 ;; raw message. (Bug#9840)
114 (when (and entity
115 (not (equal "text/plain"
116 (car (rmail-mime-entity-type entity)))))
117 (let ((inhibit-read-only t))
118 (erase-buffer)
119 (insert-buffer-substring
120 rmail-view-buffer
121 (aref (rmail-mime-entity-header entity) 0)
122 (aref (rmail-mime-entity-body entity) 1)))
123 (goto-char (point-min))
124 ;; t = decoded; raw = raw.
125 (aref (aref (rmail-mime-entity-display entity) 0) 0)))))
99 (make-local-variable 'rmail-old-text) 126 (make-local-variable 'rmail-old-text)
100 (setq rmail-old-text 127 (setq rmail-old-text
101 (save-restriction 128 (save-restriction
@@ -134,7 +161,10 @@ This function runs the hooks `text-mode-hook' and `rmail-edit-mode-hook'.
134 (error "There must be a blank line at the end of the headers")) 161 (error "There must be a blank line at the end of the headers"))
135 ;; Disguise any "From " lines so they don't start a new message. 162 ;; Disguise any "From " lines so they don't start a new message.
136 (goto-char (point-min)) 163 (goto-char (point-min))
137 (or rmail-old-pruned (forward-line 1)) 164 ;; This tries to skip the mbox From. FIXME less fragile to go to EOH?
165 (if (or rmail-old-mime-state
166 (not rmail-old-pruned))
167 (forward-line 1))
138 (while (re-search-forward "^>*From " nil t) 168 (while (re-search-forward "^>*From " nil t)
139 (beginning-of-line) 169 (beginning-of-line)
140 (insert ">") 170 (insert ">")
@@ -145,6 +175,7 @@ This function runs the hooks `text-mode-hook' and `rmail-edit-mode-hook'.
145 (rmail-ensure-blank-line) 175 (rmail-ensure-blank-line)
146 (let ((old rmail-old-text) 176 (let ((old rmail-old-text)
147 (pruned rmail-old-pruned) 177 (pruned rmail-old-pruned)
178 (mime-state rmail-old-mime-state)
148 ;; People who know what they are doing might have modified the 179 ;; People who know what they are doing might have modified the
149 ;; buffer's encoding if editing the message included inserting 180 ;; buffer's encoding if editing the message included inserting
150 ;; characters that were unencodable by the original message's 181 ;; characters that were unencodable by the original message's
@@ -256,7 +287,9 @@ This function runs the hooks `text-mode-hook' and `rmail-edit-mode-hook'.
256;;; (if (boundp 'rmail-summary-vector) 287;;; (if (boundp 'rmail-summary-vector)
257;;; (aset rmail-summary-vector (1- rmail-current-message) nil)) 288;;; (aset rmail-summary-vector (1- rmail-current-message) nil))
258 (rmail-show-message) 289 (rmail-show-message)
259 (rmail-toggle-header (if pruned 1 0))) 290 (rmail-toggle-header (if pruned 1 0))
291 ;; Restore mime display state.
292 (and mime-state (rmail-mime nil mime-state)))
260 (run-hooks 'rmail-mode-hook)) 293 (run-hooks 'rmail-mode-hook))
261 294
262(defun rmail-abort-edit () 295(defun rmail-abort-edit ()
diff --git a/lisp/mail/rmailmm.el b/lisp/mail/rmailmm.el
index d3351255583..f3b539c52d0 100644
--- a/lisp/mail/rmailmm.el
+++ b/lisp/mail/rmailmm.el
@@ -155,7 +155,7 @@ MIME entities.")
155(defun rmail-mime-entity (type disposition transfer-encoding 155(defun rmail-mime-entity (type disposition transfer-encoding
156 display header tagline body children handler 156 display header tagline body children handler
157 &optional truncated) 157 &optional truncated)
158 "Retrun a newly created MIME-entity object from arguments. 158 "Return a newly created MIME-entity object from arguments.
159 159
160A MIME-entity is a vector of 10 elements: 160A MIME-entity is a vector of 10 elements:
161 161
@@ -180,16 +180,16 @@ The corresponding TYPE argument must be:
180 \(\"boundary\" . \"----=_NextPart_000_0104_01C617E4.BDEC4C40\")) 180 \(\"boundary\" . \"----=_NextPart_000_0104_01C617E4.BDEC4C40\"))
181 181
182TRANSFER-ENCODING corresponds to MIME header 182TRANSFER-ENCODING corresponds to MIME header
183Content-Transfer-Encoding, and is a lowercased string. 183Content-Transfer-Encoding, and is a lower-case string.
184 184
185DISPLAY is a vector [CURRENT NEW], where CURRENT indicates how 185DISPLAY is a vector [CURRENT NEW], where CURRENT indicates how
186the header, tagline, and body of the entity are displayed now, 186the header, tag line, and body of the entity are displayed now,
187and NEW indicates how their displaying should be updated. 187and NEW indicates how their display should be updated.
188Both elements are vector [HEADER-DISPLAY TAGLINE-DISPLAY BODY-DISPLAY], 188Both elements are vectors [HEADER-DISPLAY TAGLINE-DISPLAY BODY-DISPLAY],
189where each element is a symbol for the corresponding item that 189where each constituent element is a symbol for the corresponding
190has these values: 190item with these values:
191 nil: not displayed 191 nil: not displayed
192 t: displayed by the decoded presentation form 192 t: displayed by the decoded presentation form
193 raw: displayed by the raw MIME data (for the header and body only) 193 raw: displayed by the raw MIME data (for the header and body only)
194 194
195HEADER and BODY are vectors [BEG END DISPLAY-FLAG], where BEG and 195HEADER and BODY are vectors [BEG END DISPLAY-FLAG], where BEG and
@@ -201,11 +201,11 @@ presentation form.
201TAGLINE is a vector [TAG BULK-DATA DISPLAY-FLAG], where TAG is a 201TAGLINE is a vector [TAG BULK-DATA DISPLAY-FLAG], where TAG is a
202string indicating the depth and index number of the entity, 202string indicating the depth and index number of the entity,
203BULK-DATA is a cons (SIZE . TYPE) indicating the size and type of 203BULK-DATA is a cons (SIZE . TYPE) indicating the size and type of
204an attached data, DISPLAY-FLAG non-nil means that the tagline is, 204an attached data, DISPLAY-FLAG non-nil means that the tag line is
205by default, displayed. 205displayed by default.
206 206
207CHILDREN is a list of child MIME-entities. A \"multipart/*\" 207CHILDREN is a list of child MIME-entities. A \"multipart/*\"
208entity have one or more children. A \"message/rfc822\" entity 208entity has one or more children. A \"message/rfc822\" entity
209has just one child. Any other entity has no child. 209has just one child. Any other entity has no child.
210 210
211HANDLER is a function to insert the entity according to DISPLAY. 211HANDLER is a function to insert the entity according to DISPLAY.
@@ -284,10 +284,10 @@ TRUNCATED is non-nil if the text of this entity was truncated."
284(defun rmail-mime-entity-segment (pos &optional entity) 284(defun rmail-mime-entity-segment (pos &optional entity)
285 "Return a vector describing the displayed region of a MIME-entity at POS. 285 "Return a vector describing the displayed region of a MIME-entity at POS.
286Optional 2nd argument ENTITY is the MIME-entity at POS. 286Optional 2nd argument ENTITY is the MIME-entity at POS.
287The value is a vector [ INDEX HEADER TAGLINE BODY END], where 287The value is a vector [INDEX HEADER TAGLINE BODY END], where
288 INDEX: index into the returned vector indicating where POS is (1..3). 288 INDEX: index into the returned vector indicating where POS is (1..3)
289 HEADER: the position of the beginning of a header 289 HEADER: the position of the beginning of a header
290 TAGLINE: the position of the beginning of a tagline 290 TAGLINE: the position of the beginning of a tag line
291 BODY: the position of the beginning of a body 291 BODY: the position of the beginning of a body
292 END: the position of the end of the entity." 292 END: the position of the end of the entity."
293 (save-excursion 293 (save-excursion
@@ -331,7 +331,7 @@ The value is a vector [ INDEX HEADER TAGLINE BODY END], where
331 (vector index beg tagline-beg body-beg end))))) 331 (vector index beg tagline-beg body-beg end)))))
332 332
333(defun rmail-mime-shown-mode (entity) 333(defun rmail-mime-shown-mode (entity)
334 "Make MIME-entity ENTITY displayed by the default way." 334 "Make MIME-entity ENTITY display in the default way."
335 (let ((new (aref (rmail-mime-entity-display entity) 1))) 335 (let ((new (aref (rmail-mime-entity-display entity) 1)))
336 (aset new 0 (aref (rmail-mime-entity-header entity) 2)) 336 (aset new 0 (aref (rmail-mime-entity-header entity) 2))
337 (aset new 1 (aref (rmail-mime-entity-tagline entity) 2)) 337 (aset new 1 (aref (rmail-mime-entity-tagline entity) 2))
@@ -340,7 +340,7 @@ The value is a vector [ INDEX HEADER TAGLINE BODY END], where
340 (rmail-mime-shown-mode child))) 340 (rmail-mime-shown-mode child)))
341 341
342(defun rmail-mime-hidden-mode (entity) 342(defun rmail-mime-hidden-mode (entity)
343 "Make MIME-entity ENTITY displayed in the hidden mode." 343 "Make MIME-entity ENTITY display in hidden mode."
344 (let ((new (aref (rmail-mime-entity-display entity) 1))) 344 (let ((new (aref (rmail-mime-entity-display entity) 1)))
345 (aset new 0 nil) 345 (aset new 0 nil)
346 (aset new 1 t) 346 (aset new 1 t)
@@ -349,7 +349,7 @@ The value is a vector [ INDEX HEADER TAGLINE BODY END], where
349 (rmail-mime-hidden-mode child))) 349 (rmail-mime-hidden-mode child)))
350 350
351(defun rmail-mime-raw-mode (entity) 351(defun rmail-mime-raw-mode (entity)
352 "Make MIME-entity ENTITY displayed in the raw mode." 352 "Make MIME-entity ENTITY display in raw mode."
353 (let ((new (aref (rmail-mime-entity-display entity) 1))) 353 (let ((new (aref (rmail-mime-entity-display entity) 1)))
354 (aset new 0 'raw) 354 (aset new 0 'raw)
355 (aset new 1 nil) 355 (aset new 1 nil)
@@ -357,13 +357,17 @@ The value is a vector [ INDEX HEADER TAGLINE BODY END], where
357 (dolist (child (rmail-mime-entity-children entity)) 357 (dolist (child (rmail-mime-entity-children entity))
358 (rmail-mime-raw-mode child))) 358 (rmail-mime-raw-mode child)))
359 359
360(defun rmail-mime-toggle-raw (entity) 360(defun rmail-mime-toggle-raw (&optional state)
361 "Toggle on and off the raw display mode of MIME-entity ENTITY." 361 "Toggle on and off the raw display mode of MIME-entity at point.
362With optional argument STATE, force the specified display mode.
363Use `raw' for raw mode, and any other non-nil value for decoded mode."
362 (let* ((pos (if (eobp) (1- (point-max)) (point))) 364 (let* ((pos (if (eobp) (1- (point-max)) (point)))
363 (entity (get-text-property pos 'rmail-mime-entity)) 365 (entity (get-text-property pos 'rmail-mime-entity))
364 (current (aref (rmail-mime-entity-display entity) 0)) 366 (current (aref (rmail-mime-entity-display entity) 0))
365 (segment (rmail-mime-entity-segment pos entity))) 367 (segment (rmail-mime-entity-segment pos entity)))
366 (if (not (eq (aref current 0) 'raw)) 368 (if (or (eq state 'raw)
369 (and (not state)
370 (not (eq (aref current 0) 'raw))))
367 ;; Enter the raw mode. 371 ;; Enter the raw mode.
368 (rmail-mime-raw-mode entity) 372 (rmail-mime-raw-mode entity)
369 ;; Enter the shown mode. 373 ;; Enter the shown mode.
@@ -376,7 +380,7 @@ The value is a vector [ INDEX HEADER TAGLINE BODY END], where
376 (restore-buffer-modified-p modified))))) 380 (restore-buffer-modified-p modified)))))
377 381
378(defun rmail-mime-toggle-hidden () 382(defun rmail-mime-toggle-hidden ()
379 "Hide or show the body of MIME-entity at point." 383 "Hide or show the body of the MIME-entity at point."
380 (interactive) 384 (interactive)
381 (when (rmail-mime-message-p) 385 (when (rmail-mime-message-p)
382 (let* ((rmail-mime-mbox-buffer rmail-view-buffer) 386 (let* ((rmail-mime-mbox-buffer rmail-view-buffer)
@@ -424,7 +428,7 @@ The value is a vector [ INDEX HEADER TAGLINE BODY END], where
424 428
425(defun rmail-mime-insert-tagline (entity &rest item-list) 429(defun rmail-mime-insert-tagline (entity &rest item-list)
426 "Insert a tag line for MIME-entity ENTITY. 430 "Insert a tag line for MIME-entity ENTITY.
427ITEM-LIST is a list of strings or button-elements (list) to be added 431ITEM-LIST is a list of strings or button-elements (list) to add
428to the tag line." 432to the tag line."
429 (insert "\n[") 433 (insert "\n[")
430 (let ((tag (aref (rmail-mime-entity-tagline entity) 0))) 434 (let ((tag (aref (rmail-mime-entity-tagline entity) 0)))
@@ -464,7 +468,7 @@ to the tag line."
464(defun rmail-mime-insert-header (header) 468(defun rmail-mime-insert-header (header)
465 "Decode and insert a MIME-entity header HEADER in the current buffer. 469 "Decode and insert a MIME-entity header HEADER in the current buffer.
466HEADER is a vector [BEG END DEFAULT-STATUS]. 470HEADER is a vector [BEG END DEFAULT-STATUS].
467See `rmail-mime-entity' for the detail." 471See `rmail-mime-entity' for details."
468 (let ((pos (point)) 472 (let ((pos (point))
469 (last-coding-system-used nil)) 473 (last-coding-system-used nil))
470 (save-restriction 474 (save-restriction
@@ -484,7 +488,7 @@ See `rmail-mime-entity' for the detail."
484 (insert "\n")))) 488 (insert "\n"))))
485 489
486(defun rmail-mime-find-header-encoding (header) 490(defun rmail-mime-find-header-encoding (header)
487 "Retun the last coding system used to decode HEADER. 491 "Return the last coding system used to decode HEADER.
488HEADER is a header component of a MIME-entity object (see 492HEADER is a header component of a MIME-entity object (see
489`rmail-mime-entity')." 493`rmail-mime-entity')."
490 (with-temp-buffer 494 (with-temp-buffer
@@ -882,7 +886,7 @@ The other arguments are the same as `rmail-mime-multipart-handler'."
882 ;; We're handling what's left of a truncated message. 886 ;; We're handling what's left of a truncated message.
883 (setq next (point-max-marker))) 887 (setq next (point-max-marker)))
884 (t 888 (t
885 ;; The original code signalled an error as below, but 889 ;; The original code signaled an error as below, but
886 ;; this line may be a boundary of nested multipart. So, 890 ;; this line may be a boundary of nested multipart. So,
887 ;; we just set `next' to nil to skip this line 891 ;; we just set `next' to nil to skip this line
888 ;; (rmail-mm-get-boundary-error-message 892 ;; (rmail-mm-get-boundary-error-message
@@ -1011,7 +1015,7 @@ point should be at the beginning of the body.
1011 1015
1012CONTENT-TYPE, CONTENT-DISPOSITION, and CONTENT-TRANSFER-ENCODING 1016CONTENT-TYPE, CONTENT-DISPOSITION, and CONTENT-TRANSFER-ENCODING
1013are the values of the respective parsed headers. The latter should 1017are the values of the respective parsed headers. The latter should
1014be downcased. The parsed headers for CONTENT-TYPE and CONTENT-DISPOSITION 1018be lower-case. The parsed headers for CONTENT-TYPE and CONTENT-DISPOSITION
1015have the form 1019have the form
1016 1020
1017 \(VALUE . ALIST) 1021 \(VALUE . ALIST)
@@ -1196,7 +1200,7 @@ modified."
1196 1200
1197(defun rmail-mime-parse () 1201(defun rmail-mime-parse ()
1198 "Parse the current Rmail message as a MIME message. 1202 "Parse the current Rmail message as a MIME message.
1199The value is a MIME-entiy object (see `rmail-mime-entity'). 1203The value is a MIME-entity object (see `rmail-mime-entity').
1200If an error occurs, return an error message string." 1204If an error occurs, return an error message string."
1201 (let ((rmail-mime-mbox-buffer (if (rmail-buffers-swapped-p) 1205 (let ((rmail-mime-mbox-buffer (if (rmail-buffers-swapped-p)
1202 rmail-view-buffer 1206 rmail-view-buffer
@@ -1265,36 +1269,35 @@ available."
1265 (setq font-lock-defaults '(rmail-font-lock-keywords t t nil nil))) 1269 (setq font-lock-defaults '(rmail-font-lock-keywords t t nil nil)))
1266 1270
1267;;;###autoload 1271;;;###autoload
1268(defun rmail-mime (&optional arg) 1272(defun rmail-mime (&optional arg state)
1269 "Toggle displaying of a MIME message. 1273 "Toggle the display of a MIME message.
1270 1274
1271The actualy behavior depends on the value of `rmail-enable-mime'. 1275The actual behavior depends on the value of `rmail-enable-mime'.
1272 1276
1273If `rmail-enable-mime' is t (default), this command change the 1277If `rmail-enable-mime' is non-nil (the default), this command toggles
1274displaying of a MIME message between decoded presentation form 1278the display of a MIME message between decoded presentation form and
1275and raw data. 1279raw data. With optional prefix argument ARG, it toggles the display only
1276 1280of the MIME entity at point, if there is one. The optional argument
1277With ARG, toggle the displaying of the current MIME entity only. 1281STATE forces a particular display state, rather than toggling.
1278 1282`raw' forces raw mode, any other non-nil value forces decoded mode.
1279If `rmail-enable-mime' is nil, this creates a temporary 1283
1280\"*RMAIL*\" buffer holding a decoded copy of the message. Inline 1284If `rmail-enable-mime' is nil, this creates a temporary \"*RMAIL*\"
1281content-types are handled according to 1285buffer holding a decoded copy of the message. Inline content-types are
1282`rmail-mime-media-type-handlers-alist'. By default, this 1286handled according to `rmail-mime-media-type-handlers-alist'.
1283displays text and multipart messages, and offers to download 1287By default, this displays text and multipart messages, and offers to
1284attachments as specfied by `rmail-mime-attachment-dirs-alist'." 1288download attachments as specified by `rmail-mime-attachment-dirs-alist'.
1285 (interactive "P") 1289The arguments ARG and STATE have no effect in this case."
1290 (interactive (list current-prefix-arg nil))
1286 (if rmail-enable-mime 1291 (if rmail-enable-mime
1287 (with-current-buffer rmail-buffer 1292 (with-current-buffer rmail-buffer
1288 (if (rmail-mime-message-p) 1293 (if (rmail-mime-message-p)
1289 (let ((rmail-mime-mbox-buffer rmail-view-buffer) 1294 (let ((rmail-mime-mbox-buffer rmail-view-buffer)
1290 (rmail-mime-view-buffer rmail-buffer) 1295 (rmail-mime-view-buffer rmail-buffer)
1291 (entity (get-text-property (point) 'rmail-mime-entity))) 1296 (entity (get-text-property
1292 (if arg 1297 (progn
1293 (if entity 1298 (or arg (goto-char (point-min)))
1294 (rmail-mime-toggle-raw entity)) 1299 (point)) 'rmail-mime-entity)))
1295 (goto-char (point-min)) 1300 (if (or (not arg) entity) (rmail-mime-toggle-raw state)))
1296 (rmail-mime-toggle-raw
1297 (get-text-property (point) 'rmail-mime-entity))))
1298 (message "Not a MIME message"))) 1301 (message "Not a MIME message")))
1299 (let* ((data (rmail-apply-in-message rmail-current-message 'buffer-string)) 1302 (let* ((data (rmail-apply-in-message rmail-current-message 'buffer-string))
1300 (buf (get-buffer-create "*RMAIL*")) 1303 (buf (get-buffer-create "*RMAIL*"))
@@ -1315,12 +1318,12 @@ attachments as specfied by `rmail-mime-attachment-dirs-alist'."
1315 (view-buffer buf)))) 1318 (view-buffer buf))))
1316 1319
1317(defun rmail-mm-get-boundary-error-message (message type disposition encoding) 1320(defun rmail-mm-get-boundary-error-message (message type disposition encoding)
1318 "Return MESSAGE with more information on the main mime components." 1321 "Return MESSAGE with more information on the main MIME components."
1319 (error "%s; type: %s; disposition: %s; encoding: %s" 1322 (error "%s; type: %s; disposition: %s; encoding: %s"
1320 message type disposition encoding)) 1323 message type disposition encoding))
1321 1324
1322(defun rmail-show-mime () 1325(defun rmail-show-mime ()
1323 "Function to set in `rmail-show-mime-function' (which see)." 1326 "Function to use for the value of `rmail-show-mime-function'."
1324 (let ((entity (rmail-mime-parse)) 1327 (let ((entity (rmail-mime-parse))
1325 (rmail-mime-mbox-buffer rmail-buffer) 1328 (rmail-mime-mbox-buffer rmail-buffer)
1326 (rmail-mime-view-buffer rmail-view-buffer) 1329 (rmail-mime-view-buffer rmail-view-buffer)
@@ -1332,7 +1335,7 @@ attachments as specfied by `rmail-mime-attachment-dirs-alist'."
1332 (if (consp rmail-mime-coding-system) 1335 (if (consp rmail-mime-coding-system)
1333 ;; Decoding is done by rfc2047-decode-region only for a 1336 ;; Decoding is done by rfc2047-decode-region only for a
1334 ;; header. But, as the used coding system may have been 1337 ;; header. But, as the used coding system may have been
1335 ;; overriden by mm-charset-override-alist, we can't 1338 ;; overridden by mm-charset-override-alist, we can't
1336 ;; trust (car rmail-mime-coding-system). So, here we 1339 ;; trust (car rmail-mime-coding-system). So, here we
1337 ;; try the decoding again with mm-charset-override-alist 1340 ;; try the decoding again with mm-charset-override-alist
1338 ;; bound to nil. 1341 ;; bound to nil.
diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el
index 3926b426a67..c168ca9d8f5 100644
--- a/lisp/mail/rmailout.el
+++ b/lisp/mail/rmailout.el
@@ -377,11 +377,12 @@ display message number MSG."
377 (rmail-maybe-set-message-counters) 377 (rmail-maybe-set-message-counters)
378 ;; Insert the new message after the last old message. 378 ;; Insert the new message after the last old message.
379 (widen) 379 (widen)
380 ;; Make sure the last old message ends with a blank line. 380 (unless (zerop (buffer-size))
381 (goto-char (point-max)) 381 ;; Make sure the last old message ends with a blank line.
382 (rmail-ensure-blank-line) 382 (goto-char (point-max))
383 ;; Insert the new message at the end. 383 (rmail-ensure-blank-line)
384 (narrow-to-region (point-max) (point-max)) 384 ;; Insert the new message at the end.
385 (narrow-to-region (point-max) (point-max)))
385 (insert-buffer-substring tembuf) 386 (insert-buffer-substring tembuf)
386 (rmail-count-new-messages t) 387 (rmail-count-new-messages t)
387 ;; FIXME should re-use existing windows. 388 ;; FIXME should re-use existing windows.
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index 8e28201e31f..a3f722443dc 100644
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -268,9 +268,7 @@ Setting this option to nil might speed up the generation of summaries."
268(defun rmail-summary () 268(defun rmail-summary ()
269 "Display a summary of all messages, one line per message." 269 "Display a summary of all messages, one line per message."
270 (interactive) 270 (interactive)
271 (rmail-new-summary "All" '(rmail-summary) nil) 271 (rmail-new-summary "All" '(rmail-summary) nil))
272 (unless (get-buffer-window rmail-buffer)
273 (rmail-summary-beginning-of-message)))
274 272
275;;;###autoload 273;;;###autoload
276(defun rmail-summary-by-labels (labels) 274(defun rmail-summary-by-labels (labels)
@@ -404,13 +402,14 @@ nil for FUNCTION means all messages."
404 (message "Computing summary lines...") 402 (message "Computing summary lines...")
405 (unless rmail-buffer 403 (unless rmail-buffer
406 (error "No RMAIL buffer found")) 404 (error "No RMAIL buffer found"))
407 (let (mesg was-in-summary) 405 (let (mesg was-in-summary sumbuf)
408 (if (eq major-mode 'rmail-summary-mode) 406 (if (eq major-mode 'rmail-summary-mode)
409 (setq was-in-summary t)) 407 (setq was-in-summary t))
410 (with-current-buffer rmail-buffer 408 (with-current-buffer rmail-buffer
411 (if (zerop (setq mesg rmail-current-message)) 409 (setq rmail-summary-buffer (rmail-new-summary-1 desc redo func args)
412 (error "No messages to summarize")) 410 ;; r-s-b is buffer-local.
413 (setq rmail-summary-buffer (rmail-new-summary-1 desc redo func args))) 411 sumbuf rmail-summary-buffer
412 mesg rmail-current-message))
414 ;; Now display the summary buffer and go to the right place in it. 413 ;; Now display the summary buffer and go to the right place in it.
415 (unless was-in-summary 414 (unless was-in-summary
416 (if (and (one-window-p) 415 (if (and (one-window-p)
@@ -420,13 +419,12 @@ nil for FUNCTION means all messages."
420 (progn 419 (progn
421 (split-window (selected-window) rmail-summary-window-size) 420 (split-window (selected-window) rmail-summary-window-size)
422 (select-window (next-window (frame-first-window))) 421 (select-window (next-window (frame-first-window)))
423 (rmail-pop-to-buffer rmail-summary-buffer) 422 (rmail-pop-to-buffer sumbuf)
424 ;; If pop-to-buffer did not use that window, delete that 423 ;; If pop-to-buffer did not use that window, delete that
425 ;; window. (This can happen if it uses another frame.) 424 ;; window. (This can happen if it uses another frame.)
426 (if (not (eq rmail-summary-buffer 425 (if (not (eq sumbuf (window-buffer (frame-first-window))))
427 (window-buffer (frame-first-window))))
428 (delete-other-windows))) 426 (delete-other-windows)))
429 (rmail-pop-to-buffer rmail-summary-buffer)) 427 (rmail-pop-to-buffer sumbuf))
430 (set-buffer rmail-buffer) 428 (set-buffer rmail-buffer)
431 ;; This is how rmail makes the summary buffer reappear. 429 ;; This is how rmail makes the summary buffer reappear.
432 ;; We do this here to make the window the proper size. 430 ;; We do this here to make the window the proper size.
@@ -490,9 +488,6 @@ message."
490 ;; Temporarily, while summary buffer is unfinished, 488 ;; Temporarily, while summary buffer is unfinished,
491 ;; we "don't have" a summary. 489 ;; we "don't have" a summary.
492 (setq rmail-summary-buffer nil) 490 (setq rmail-summary-buffer nil)
493 (unless summary-msgs
494 (kill-buffer sumbuf)
495 (error "Nothing to summarize"))
496 ;; I have not a clue what this clause is doing. If you read this 491 ;; I have not a clue what this clause is doing. If you read this
497 ;; chunk of code and have a clue, then please email that clue to 492 ;; chunk of code and have a clue, then please email that clue to
498 ;; pmr@pajato.com 493 ;; pmr@pajato.com
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 23947795112..9aa0ba4e262 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -116,21 +116,21 @@
116 menu-bar-separator) 116 menu-bar-separator)
117 117
118 (define-key menu [ps-print-region] 118 (define-key menu [ps-print-region]
119 `(menu-item ,(purecopy "Postscript Print Region (B+W)") ps-print-region 119 `(menu-item ,(purecopy "PostScript Print Region (B+W)") ps-print-region
120 :enable mark-active 120 :enable mark-active
121 :help ,(purecopy "Pretty-print marked region in black and white to PostScript printer"))) 121 :help ,(purecopy "Pretty-print marked region in black and white to PostScript printer")))
122 (define-key menu [ps-print-buffer] 122 (define-key menu [ps-print-buffer]
123 `(menu-item ,(purecopy "Postscript Print Buffer (B+W)") ps-print-buffer 123 `(menu-item ,(purecopy "PostScript Print Buffer (B+W)") ps-print-buffer
124 :enable (menu-bar-menu-frame-live-and-visible-p) 124 :enable (menu-bar-menu-frame-live-and-visible-p)
125 :help ,(purecopy "Pretty-print current buffer in black and white to PostScript printer"))) 125 :help ,(purecopy "Pretty-print current buffer in black and white to PostScript printer")))
126 (define-key menu [ps-print-region-faces] 126 (define-key menu [ps-print-region-faces]
127 `(menu-item ,(purecopy "Postscript Print Region") 127 `(menu-item ,(purecopy "PostScript Print Region")
128 ps-print-region-with-faces 128 ps-print-region-with-faces
129 :enable mark-active 129 :enable mark-active
130 :help ,(purecopy 130 :help ,(purecopy
131 "Pretty-print marked region to PostScript printer"))) 131 "Pretty-print marked region to PostScript printer")))
132 (define-key menu [ps-print-buffer-faces] 132 (define-key menu [ps-print-buffer-faces]
133 `(menu-item ,(purecopy "Postscript Print Buffer") 133 `(menu-item ,(purecopy "PostScript Print Buffer")
134 ps-print-buffer-with-faces 134 ps-print-buffer-with-faces
135 :enable (menu-bar-menu-frame-live-and-visible-p) 135 :enable (menu-bar-menu-frame-live-and-visible-p)
136 :help ,(purecopy "Pretty-print current buffer to PostScript printer"))) 136 :help ,(purecopy "Pretty-print current buffer to PostScript printer")))
diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index ee9c9fca2b5..ca179a78b61 100644
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -1,3 +1,7 @@
12011-11-16 Juanma Barranquero <lekktu@gmail.com>
2
3 * mh-search.el (mh-pick-parse-search-buffer): Fix typo.
4
12011-09-20 Bill Wohler <wohler@newt.com> 52011-09-20 Bill Wohler <wohler@newt.com>
2 6
3 Release MH-E version 8.3. 7 Release MH-E version 8.3.
@@ -40,7 +44,7 @@
40 switch-to-buffer. The previous change which used pop-to-buffer 44 switch-to-buffer. The previous change which used pop-to-buffer
41 produced the wrong behavior. 45 produced the wrong behavior.
42 46
432011-07-12 Henrique Martins <henrique@martins.cc> (tiny change) 472011-07-12 Henrique Martins <henrique@martins.cc> (tiny change)
44 48
45 * mh-xface.el (mh-picon-get-image): Remove quote from block 49 * mh-xface.el (mh-picon-get-image): Remove quote from block
46 argument. 50 argument.
diff --git a/lisp/mh-e/ChangeLog.1 b/lisp/mh-e/ChangeLog.1
index 69ca927d5e7..b12c47e7f1f 100644
--- a/lisp/mh-e/ChangeLog.1
+++ b/lisp/mh-e/ChangeLog.1
@@ -610,7 +610,7 @@
610 'utils) (mh-require-cl) calls: 610 'utils) (mh-require-cl) calls:
611 611
612 (eval-when-compile (require 'mh-acros)) 612 (eval-when-compile (require 'mh-acros))
613 (mh-require-cl) 613 (mh-require-cl)
614 614
6152004-08-10 Bill Wohler <wohler@newt.com> 6152004-08-10 Bill Wohler <wohler@newt.com>
616 616
@@ -691,7 +691,7 @@
691 variable `mh-scan-date-regexp'. 691 variable `mh-scan-date-regexp'.
692 692
693 * mh-customize.el (mh-auto-fields-prompt-flag): Made reference to 693 * mh-customize.el (mh-auto-fields-prompt-flag): Made reference to
694 `mh-auto-fileds-lists'. 694 `mh-auto-fields-lists'.
695 (mh-forward-hook): Fixed docstring typo. 695 (mh-forward-hook): Fixed docstring typo.
696 696
6972004-08-07 Bill Wohler <wohler@newt.com> 6972004-08-07 Bill Wohler <wohler@newt.com>
@@ -832,7 +832,7 @@
832 and byte-compiles all the source files with a single instance of 832 and byte-compiles all the source files with a single instance of
833 XEmacs. 833 XEmacs.
834 (dist): Added $(MH-E-XEMACS-SRC) to tarball. 834 (dist): Added $(MH-E-XEMACS-SRC) to tarball.
835 (AUTO_PRELOADS): Removed, in favour of 'AUTOLOAD_PACKAGE_NAME' and 835 (AUTO_PRELOADS): Removed, in favor of 'AUTOLOAD_PACKAGE_NAME' and
836 'AUTOLOAD_FILE'. 836 'AUTOLOAD_FILE'.
837 (AUTOLOAD_PACKAGE_NAME): New. 837 (AUTOLOAD_PACKAGE_NAME): New.
838 (AUTOLOAD_FILE): New. 838 (AUTOLOAD_FILE): New.
@@ -1257,7 +1257,7 @@
1257 1257
1258 * Makefile (XEMACS_OPTIONS): Add '-no-autoloads' to give a cleaner 1258 * Makefile (XEMACS_OPTIONS): Add '-no-autoloads' to give a cleaner
1259 build environment. 1259 build environment.
1260 (AUTO_PRELOADS): Removed, in favour of 'AUTOLOAD_PACKAGE_NAME' and 1260 (AUTO_PRELOADS): Removed, in favor of 'AUTOLOAD_PACKAGE_NAME' and
1261 'AUTOLOAD_FILE'. 1261 'AUTOLOAD_FILE'.
1262 (AUTOLOAD_PACKAGE_NAME): New. 1262 (AUTOLOAD_PACKAGE_NAME): New.
1263 (AUTOLOAD_FILE): New. 1263 (AUTOLOAD_FILE): New.
@@ -1469,7 +1469,7 @@
1469 1469
1470 * mh-mime.el (mh-mml-secure-message-sign-pgpmime): Add an optional 1470 * mh-mime.el (mh-mml-secure-message-sign-pgpmime): Add an optional
1471 dontsign argument to remove an existing secure message directive. 1471 dontsign argument to remove an existing secure message directive.
1472 Update the docstring -- this fuction does not allow for 1472 Update the docstring -- this function does not allow for
1473 encrypt/sign, just sign directives. 1473 encrypt/sign, just sign directives.
1474 1474
1475 * mh-mime.el (mh-mml-secure-message-sign-pgpmime): Use 1475 * mh-mime.el (mh-mml-secure-message-sign-pgpmime): Use
@@ -1484,7 +1484,7 @@
1484 * mh-alias.el (Commentary): Removed as it is now in the manual. 1484 * mh-alias.el (Commentary): Removed as it is now in the manual.
1485 (mh-alias-system-aliases): Moved here from mh-customize.el. By 1485 (mh-alias-system-aliases): Moved here from mh-customize.el. By
1486 definition, "system" definitions are not user-visible, and user 1486 definition, "system" definitions are not user-visible, and user
1487 filenames are in the the Aliasfile: profile component, so this 1487 filenames are in the Aliasfile: profile component, so this
1488 variable really shouldn't be a defcustom. 1488 variable really shouldn't be a defcustom.
1489 (mh-alias-tstamp, mh-alias-filenames, mh-alias-reload) 1489 (mh-alias-tstamp, mh-alias-filenames, mh-alias-reload)
1490 (mh-alias-add-alias, mh-alias-grab-from-field) 1490 (mh-alias-add-alias, mh-alias-grab-from-field)
@@ -1960,8 +1960,8 @@
1960 switch between available variants. 1960 switch between available variants.
1961 (mh-variants): Available MH variants are described in this variable. 1961 (mh-variants): Available MH variants are described in this variable.
1962 (mh-variant-in-use, mh-variant-p): Developers may check which 1962 (mh-variant-in-use, mh-variant-p): Developers may check which
1963 variant is currently in use with the variable `mh-variant-in-use' 1963 variant is currently in use with the variable `mh-variant-in-use'
1964 or the function `mh-variant-p'. 1964 or the function `mh-variant-p'.
1965 1965
19662003-08-15 Bill Wohler <wohler@newt.com> 19662003-08-15 Bill Wohler <wohler@newt.com>
1967 1967
@@ -3289,7 +3289,7 @@
3289 (mh-tick-add-overlay, mh-tick-remove-overlay, mh-notate-tick): 3289 (mh-tick-add-overlay, mh-tick-remove-overlay, mh-notate-tick):
3290 These functions aren't needed any more, since overlays aren't used 3290 These functions aren't needed any more, since overlays aren't used
3291 any more. Also overlays aren't portable to XEmacs, so nasty 3291 any more. Also overlays aren't portable to XEmacs, so nasty
3292 conditional code that used overlays in Emacs and extents in Xemacs 3292 conditional code that used overlays in Emacs and extents in XEmacs
3293 have been eliminated. 3293 have been eliminated.
3294 (mh-toggle-tick): Generalize it to work on a range of messages 3294 (mh-toggle-tick): Generalize it to work on a range of messages
3295 like the other interactive messages. 3295 like the other interactive messages.
@@ -4533,7 +4533,7 @@
4533 4533
4534 * mh-xemacs-toolbar.el: Remove the code since that gets generated 4534 * mh-xemacs-toolbar.el: Remove the code since that gets generated
4535 when mh-tool-bar-define is expanded. 4535 when mh-tool-bar-define is expanded.
4536 (mh-xemacs-icon-map): A alist to map GNU Emacs icon names to the 4536 (mh-xemacs-icon-map): An alist to map GNU Emacs icon names to the
4537 actual icons to be used in XEmacs. This is used in 4537 actual icons to be used in XEmacs. This is used in
4538 mh-tool-bar-define. 4538 mh-tool-bar-define.
4539 4539
@@ -5022,7 +5022,7 @@
5022 * mh-utils.el (mh-truncate-log-buffer): Modify the function to 5022 * mh-utils.el (mh-truncate-log-buffer): Modify the function to
5023 return the current size of mh-log-buffer. Also we are now a bit 5023 return the current size of mh-log-buffer. Also we are now a bit
5024 more careful in adding separators between consecutive messages. 5024 more careful in adding separators between consecutive messages.
5025 (mh-exec-cmd): Fix a bug where the the log buffer would be 5025 (mh-exec-cmd): Fix a bug where the log buffer would be
5026 displayed even if no error happened in the current command but 5026 displayed even if no error happened in the current command but
5027 the log buffer had messages from a previous error. 5027 the log buffer had messages from a previous error.
5028 5028
@@ -5130,7 +5130,7 @@
5130 5130
5131 * mh-utils.el (mh-face-display-function): Fix bug that was 5131 * mh-utils.el (mh-face-display-function): Fix bug that was
5132 corrupting xface images when displayed with XEmacs' internal 5132 corrupting xface images when displayed with XEmacs' internal
5133 xface image support. Also make XEmacs honour 'mh-show-xface-face' 5133 xface image support. Also make XEmacs honor 'mh-show-xface-face'
5134 when using internal xface image support. 5134 when using internal xface image support.
5135 5135
51362003-02-12 Peter S Galbraith <psg@debian.org> 51362003-02-12 Peter S Galbraith <psg@debian.org>
@@ -5959,7 +5959,7 @@
5959 to allow the user a customizable variable which will turn off 5959 to allow the user a customizable variable which will turn off
5960 folders based completion. 5960 folders based completion.
5961 (mh-prompt-for-folder): Use mh-folder-completing-read to read in 5961 (mh-prompt-for-folder): Use mh-folder-completing-read to read in
5962 the folder name with hierachical completion (closes SF #664821). 5962 the folder name with hierarchical completion (closes SF #664821).
5963 5963
5964 * mh-speed.el (mh-speed-folders, mh-speed-folders-cache) 5964 * mh-speed.el (mh-speed-folders, mh-speed-folders-cache)
5965 (mh-speed-folders-actual): Moved to mh-utils.el as mh-sub-folders, 5965 (mh-speed-folders-actual): Moved to mh-utils.el as mh-sub-folders,
@@ -8048,7 +8048,7 @@
80482002-10-26 Peter S Galbraith <psg@debia.org> 80482002-10-26 Peter S Galbraith <psg@debia.org>
8049 8049
8050 * mh-comp.el (mh-search-addr-regexp, mh-re-search-to-cc): Remove 8050 * mh-comp.el (mh-search-addr-regexp, mh-re-search-to-cc): Remove
8051 `mh-re-search-to-cc' in favour of more generalized new function 8051 `mh-re-search-to-cc' in favor of more generalized new function
8052 `mh-search-addr-regexp'. 8052 `mh-search-addr-regexp'.
8053 (mh-insert-mail-followup-to): Use it. 8053 (mh-insert-mail-followup-to): Use it.
8054 8054
@@ -8162,7 +8162,7 @@
8162 8162
81632002-10-24 Bill Wohler <wohler@newt.com> 81632002-10-24 Bill Wohler <wohler@newt.com>
8164 8164
8165 * mh-e is completely checkdoc clean now. 8165 * mh-e is completely checkdoc clean now.
8166 8166
8167 * mh-utils.el (mh-clean-message-header-flag): Renamed from 8167 * mh-utils.el (mh-clean-message-header-flag): Renamed from
8168 mh-clean-message-header. 8168 mh-clean-message-header.
@@ -8594,7 +8594,7 @@
8594 mail-header-separator. 8594 mail-header-separator.
8595 (mh-send-letter): The default BCC encapsulation will make a MIME 8595 (mh-send-letter): The default BCC encapsulation will make a MIME
8596 message unreadable. If we are running nmh and the letter contains 8596 message unreadable. If we are running nmh and the letter contains
8597 a Bcc: and a Content-Type: field, add the -mime switch to to the 8597 a Bcc: and a Content-Type: field, add the -mime switch to the
8598 arguments to send. 8598 arguments to send.
8599 8599
86002002-10-21 Peter S Galbraith <psg@debian.org> 86002002-10-21 Peter S Galbraith <psg@debian.org>
@@ -9213,7 +9213,7 @@
9213 font, you may set this variable to expand the single reply 9213 font, you may set this variable to expand the single reply
9214 button into three buttons that won't lead to minibuffer prompt 9214 button into three buttons that won't lead to minibuffer prompt
9215 about who to reply to. 9215 about who to reply to.
9216 (mh-folder-tool-bar-map): Use mh-tool-bar-reply-3-buttons to 9216 (mh-folder-tool-bar-map): Use mh-tool-bar-reply-3-buttons to
9217 decide how many buttons to use for replying. 9217 decide how many buttons to use for replying.
9218 9218
9219 * mh-mime.el (mh-file-mime-type-substitutions) 9219 * mh-mime.el (mh-file-mime-type-substitutions)
@@ -9445,7 +9445,7 @@
9445 Non-fatal depencencies on the mm-decode, mm-uu and mm-view 9445 Non-fatal depencencies on the mm-decode, mm-uu and mm-view
9446 libraries. 9446 libraries.
9447 9447
94482002-07-15 Satyaki Das <satyaki@theforce.stanford.edu> 94482002-07-15 Satyaki Das <satyaki@theforce.stanford.edu>
9449 9449
9450 * mh-utils.el (mh-require, mh-autoload): Remove these macros. 9450 * mh-utils.el (mh-require, mh-autoload): Remove these macros.
9451 (mh-decode-mime): Initialized to t iff the mm-decode library is 9451 (mh-decode-mime): Initialized to t iff the mm-decode library is
@@ -9455,8 +9455,8 @@
94552002-07-15 Mark D Baushke <mdb@gnu.org> 94552002-07-15 Mark D Baushke <mdb@gnu.org>
9456 9456
9457 * mh-utils.el (mh-update-scan-format): Rewrite for compatibility 9457 * mh-utils.el (mh-update-scan-format): Rewrite for compatibility
9458 with Xemacs as replace-match appears not to have identical 9458 with XEmacs as replace-match appears not to have identical
9459 functionality with FSF emacs. 9459 functionality with GNU Emacs.
9460 (mh-scan-msg-format-regexp): Deleted. This regexp is now hardcoded 9460 (mh-scan-msg-format-regexp): Deleted. This regexp is now hardcoded
9461 into the mh-update-scan-format function. 9461 into the mh-update-scan-format function.
9462 9462
@@ -9610,7 +9610,7 @@
96102002-06-27 Satyaki Das <satyaki@theforce.stanford.edu> 96102002-06-27 Satyaki Das <satyaki@theforce.stanford.edu>
9611 9611
9612 * mh-e.el (mh-next-undeleted-msg): Get rid of optional arg 9612 * mh-e.el (mh-next-undeleted-msg): Get rid of optional arg
9613 reverse-p. If there are no more undeleted messages the the point 9613 reverse-p. If there are no more undeleted messages the point
9614 remains at its original position and a message is produced (closes 9614 remains at its original position and a message is produced (closes
9615 SF #494304). 9615 SF #494304).
9616 (mh-previous-undeleted-msg): Change similar to 9616 (mh-previous-undeleted-msg): Change similar to
@@ -10337,7 +10337,7 @@
10337 arguments in XEmacs. 10337 arguments in XEmacs.
10338 (mh-send-letter): sendmail-coding-system not bound in XEmacs. 10338 (mh-send-letter): sendmail-coding-system not bound in XEmacs.
10339 (mh-send-letter): default-buffer-file-coding-system not bound in 10339 (mh-send-letter): default-buffer-file-coding-system not bound in
10340 Xemacs. 10340 XEmacs.
10341 10341
10342 * mh-e.el (mh-delete-msg, mh-refile-msg, mh-undo): 10342 * mh-e.el (mh-delete-msg, mh-refile-msg, mh-undo):
10343 transient-mark-mode not bound in XEmacs. The feature of 10343 transient-mark-mode not bound in XEmacs. The feature of
@@ -10456,10 +10456,10 @@
10456 10456
104572001-12-04 Eric Ding <ericding@alum.mit.edu> 104572001-12-04 Eric Ding <ericding@alum.mit.edu>
10458 10458
10459 * mh-e.el: changes to face colors on dark backgrounds. 10459 * mh-e.el: changes to face colors on dark backgrounds.
10460 (mh-folder-followup-face): change to LightGoldenRod. 10460 (mh-folder-followup-face): change to LightGoldenRod.
10461 (mh-folder-date-face): change to snow3. 10461 (mh-folder-date-face): change to snow3.
10462 (mh-folder-msg-number-face): change to snow4. 10462 (mh-folder-msg-number-face): change to snow4.
10463 10463
104642001-12-04 Bill Wohler <wohler@newt.com> 104642001-12-04 Bill Wohler <wohler@newt.com>
10465 10465
@@ -11049,7 +11049,7 @@
11049 line, starting with Re: 11049 line, starting with Re:
11050 (mh-scan-body-regexp): 11050 (mh-scan-body-regexp):
11051 Regexp matching the message body beginning displayed in scan lines. 11051 Regexp matching the message body beginning displayed in scan lines.
11052 (mh-scan.font-lock-regexp): Regexp matching output of the the 11052 (mh-scan.font-lock-regexp): Regexp matching output of the
11053 optional scan.font-lock format file. 11053 optional scan.font-lock format file.
11054 (mh-folder-font-lock-keywords): New font-lock for folder-mode that 11054 (mh-folder-font-lock-keywords): New font-lock for folder-mode that
11055 uses the above regexps. 11055 uses the above regexps.
@@ -11336,7 +11336,7 @@
11336 typically have 70 lines in my Emacs frame, so having a default of 11336 typically have 70 lines in my Emacs frame, so having a default of
11337 4 was silly for my case. 11337 4 was silly for my case.
11338 * mh-e.el (mh-update-sequences): Check for nil value of 11338 * mh-e.el (mh-update-sequences): Check for nil value of
11339 mh-current-folder, which happens if mh-summary-height < 4 11339 mh-current-folder, which happens if mh-summary-height < 4
11340 although I haven't tracked doen why that happens. 11340 although I haven't tracked doen why that happens.
11341 11341
113422001-10-22 Peter S Galbraith <psg@debian.org> 113422001-10-22 Peter S Galbraith <psg@debian.org>
diff --git a/lisp/mh-e/mh-alias.el b/lisp/mh-e/mh-alias.el
index d1b3ccebf46..c6d60b3b2e2 100644
--- a/lisp/mh-e/mh-alias.el
+++ b/lisp/mh-e/mh-alias.el
@@ -272,7 +272,7 @@ Blind aliases or users from /etc/passwd are not expanded."
272 (completing-read prompt mh-alias-alist nil nil) ","))))) 272 (completing-read prompt mh-alias-alist nil nil) ",")))))
273 (if (not mh-alias-expand-aliases-flag) 273 (if (not mh-alias-expand-aliases-flag)
274 (mapconcat 'identity the-answer ", ") 274 (mapconcat 'identity the-answer ", ")
275 ;; Loop over all elements, checking if in passwd aliast or blind first 275 ;; Loop over all elements, checking if in passwd alias or blind first
276 (mapconcat 'mh-alias-expand the-answer ",\n "))))) 276 (mapconcat 'mh-alias-expand the-answer ",\n ")))))
277 277
278;;;###mh-autoload 278;;;###mh-autoload
diff --git a/lisp/mh-e/mh-comp.el b/lisp/mh-e/mh-comp.el
index 882a8771e28..eceb7a5fe3a 100644
--- a/lisp/mh-e/mh-comp.el
+++ b/lisp/mh-e/mh-comp.el
@@ -504,7 +504,7 @@ See also `mh-compose-forward-as-mime-flag',
504 folder msg) 504 folder msg)
505 ;; Was inserted before us, move to end of file to preserve order 505 ;; Was inserted before us, move to end of file to preserve order
506 (goto-char (point-max))))))) 506 (goto-char (point-max)))))))
507 ;; Postition just before forwarded message 507 ;; Position just before forwarded message.
508 (if (re-search-forward "^------- Forwarded Message" nil t) 508 (if (re-search-forward "^------- Forwarded Message" nil t)
509 (forward-line -1) 509 (forward-line -1)
510 (goto-char (mh-mail-header-end)) 510 (goto-char (mh-mail-header-end))
diff --git a/lisp/mh-e/mh-compat.el b/lisp/mh-e/mh-compat.el
index 07c558f60cc..88a6ed84055 100644
--- a/lisp/mh-e/mh-compat.el
+++ b/lisp/mh-e/mh-compat.el
@@ -1,4 +1,4 @@
1;;; mh-compat.el --- make MH-E compatibile with various versions of Emacs 1;;; mh-compat.el --- make MH-E compatible with various versions of Emacs
2 2
3;; Copyright (C) 2006-2011 Free Software Foundation, Inc. 3;; Copyright (C) 2006-2011 Free Software Foundation, Inc.
4 4
diff --git a/lisp/mh-e/mh-e.el b/lisp/mh-e/mh-e.el
index e0e213b92b9..b614cdb7991 100644
--- a/lisp/mh-e/mh-e.el
+++ b/lisp/mh-e/mh-e.el
@@ -2447,7 +2447,7 @@ of citations entirely, choose \"None\"."
2447 "Followup-To:" ; RFC 1036 2447 "Followup-To:" ; RFC 1036
2448 "For-Approval:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ 2448 "For-Approval:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
2449 "For-Comment:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ 2449 "For-Comment:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
2450 "For-Handdling:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ 2450 "For-Handling:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
2451 "Forwarded:" ; MH 2451 "Forwarded:" ; MH
2452 "From " ; sendmail 2452 "From " ; sendmail
2453 "Generate-Delivery-Report:" ; RFC 2156 2453 "Generate-Delivery-Report:" ; RFC 2156
@@ -2478,7 +2478,7 @@ of citations entirely, choose \"None\"."
2478 "Original-NNTP-" ; mail to news 2478 "Original-NNTP-" ; mail to news
2479 "Original-Path:" ; mail to news 2479 "Original-Path:" ; mail to news
2480 "Original-Received:" ; mail to news 2480 "Original-Received:" ; mail to news
2481 "Original-Recipt:" ; RFC 2298 2481 "Original-Recipient:" ; RFC 2298
2482 "Original-To:" ; mail to news 2482 "Original-To:" ; mail to news
2483 "Original-X-" ; mail to news 2483 "Original-X-" ; mail to news
2484 "Origination-Client:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ 2484 "Origination-Client:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
diff --git a/lisp/mh-e/mh-search.el b/lisp/mh-e/mh-search.el
index a547dd8d80a..c06bc6649a5 100644
--- a/lisp/mh-e/mh-search.el
+++ b/lisp/mh-e/mh-search.el
@@ -646,7 +646,7 @@ Uses the pick method described in `mh-pick-execute-search'."
646 646
647(defun mh-pick-parse-search-buffer () 647(defun mh-pick-parse-search-buffer ()
648 "Parse the search buffer contents. 648 "Parse the search buffer contents.
649The function returns a alist. The car of each element is either 649The function returns an alist. The car of each element is either
650the header name to search in or nil to search the whole message. 650the header name to search in or nil to search the whole message.
651The cdr of the element is the pattern to search." 651The cdr of the element is the pattern to search."
652 (save-excursion 652 (save-excursion
@@ -1791,7 +1791,7 @@ PROC is used to convert the value to actual data."
1791;; To add support for your favorite checksum program add a clause to 1791;; To add support for your favorite checksum program add a clause to
1792;; the cond statement in mh-checksum-choose. This should set the 1792;; the cond statement in mh-checksum-choose. This should set the
1793;; variable mh-checksum-cmd to the command line needed to run the 1793;; variable mh-checksum-cmd to the command line needed to run the
1794;; checsum program and should set mh-checksum-parser to a function 1794;; checksum program and should set mh-checksum-parser to a function
1795;; which returns a cons cell containing the message number and 1795;; which returns a cons cell containing the message number and
1796;; checksum string. 1796;; checksum string.
1797 1797
diff --git a/lisp/mpc.el b/lisp/mpc.el
index 40ccb456400..238e8ad68ae 100644
--- a/lisp/mpc.el
+++ b/lisp/mpc.el
@@ -2358,7 +2358,7 @@ This is used so that they can be compared with `eq', which is needed for
2358 (let* ((currenttime (float-time)) 2358 (let* ((currenttime (float-time))
2359 (last-time (- currenttime (car mpc-last-seek-time)))) 2359 (last-time (- currenttime (car mpc-last-seek-time))))
2360 (if (< last-time (* 0.9 repeat-delay)) 2360 (if (< last-time (* 0.9 repeat-delay))
2361 nil ;; Trottle 2361 nil ;; Throttle
2362 (let* ((status (if (< last-time 1.0) 2362 (let* ((status (if (< last-time 1.0)
2363 mpc-status (mpc-cmd-status))) 2363 mpc-status (mpc-cmd-status)))
2364 (songid (cdr (assq 'songid status))) 2364 (songid (cdr (assq 'songid status)))
diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index 488a4fdb976..cbad30199d7 100644
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -4027,7 +4027,7 @@ E.g.,
4027 (concat bestmatch "/") 4027 (concat bestmatch "/")
4028 bestmatch))))) 4028 bestmatch)))))
4029 4029
4030;; Put these lines uncommmented in your .emacs if you want C-r to refresh 4030;; Put these lines uncommented in your .emacs if you want C-r to refresh
4031;; ange-ftp's cache whilst doing filename completion. 4031;; ange-ftp's cache whilst doing filename completion.
4032;; 4032;;
4033;;(define-key minibuffer-local-completion-map "\C-r" 'ange-ftp-re-read-dir) 4033;;(define-key minibuffer-local-completion-map "\C-r" 'ange-ftp-re-read-dir)
@@ -4507,7 +4507,7 @@ NEWNAME should be the name to give the new compressed or uncompressed file.")
4507 ;; We used to follow symlinks on `file' here. Apparently it was done 4507 ;; We used to follow symlinks on `file' here. Apparently it was done
4508 ;; because some FTP servers react to "ls foo" by listing the symlink foo 4508 ;; because some FTP servers react to "ls foo" by listing the symlink foo
4509 ;; rather than the directory it points to. Now that ange-ftp-ls uses 4509 ;; rather than the directory it points to. Now that ange-ftp-ls uses
4510 ;; "cd foo; ls" instead, this is not necesssary any more. 4510 ;; "cd foo; ls" instead, this is not necessary any more.
4511 (let ((beg (point)) 4511 (let ((beg (point))
4512 (end (point-marker))) 4512 (end (point-marker)))
4513 (set-marker-insertion-type end t) 4513 (set-marker-insertion-type end t)
diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index 87e772f1833..b78e8d5676c 100644
--- a/lisp/net/browse-url.el
+++ b/lisp/net/browse-url.el
@@ -389,7 +389,7 @@ Defaults to the value of `browse-url-epiphany-arguments' at the time
389 :type '(repeat (string :tag "Argument")) 389 :type '(repeat (string :tag "Argument"))
390 :group 'browse-url) 390 :group 'browse-url)
391 391
392;; GNOME means of invoking either Mozilla or Netrape. 392;; GNOME means of invoking either Mozilla or Netscape.
393(defvar browse-url-gnome-moz-program "gnome-moz-remote") 393(defvar browse-url-gnome-moz-program "gnome-moz-remote")
394 394
395(defcustom browse-url-gnome-moz-arguments '() 395(defcustom browse-url-gnome-moz-arguments '()
diff --git a/lisp/net/dbus.el b/lisp/net/dbus.el
index ba7d7115ffc..03b84a45ea3 100644
--- a/lisp/net/dbus.el
+++ b/lisp/net/dbus.el
@@ -145,7 +145,7 @@ association to the service from D-Bus."
145 (service (car value)) 145 (service (car value))
146 (entry (gethash key dbus-registered-objects-table)) 146 (entry (gethash key dbus-registered-objects-table))
147 ret) 147 ret)
148 ;; key has the structure (BUS INTERRFACE MEMBER). 148 ;; key has the structure (BUS INTERFACE MEMBER).
149 ;; value has the structure (SERVICE PATH [HANDLER]). 149 ;; value has the structure (SERVICE PATH [HANDLER]).
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
@@ -505,7 +505,7 @@ not well formed."
505 505
506(defun dbus-event-member-name (event) 506(defun dbus-event-member-name (event)
507 "Return the member name the event is coming from. 507 "Return the member name the event is coming from.
508It is either a signal name or a method name. The result is is a 508It is either a signal name or a method name. The result is a
509string. EVENT is a D-Bus event, see `dbus-check-event'. This 509string. EVENT is a D-Bus event, see `dbus-check-event'. This
510function raises a `dbus-error' signal in case the event is not 510function raises a `dbus-error' signal in case the event is not
511well formed." 511well formed."
diff --git a/lisp/net/eudc-hotlist.el b/lisp/net/eudc-hotlist.el
index 64b2d34af9c..1f6c4464808 100644
--- a/lisp/net/eudc-hotlist.el
+++ b/lisp/net/eudc-hotlist.el
@@ -53,7 +53,7 @@ These are the special commands of this mode:
53 s -- Select the server at point. 53 s -- Select the server at point.
54 t -- Transpose the server at point and the previous one 54 t -- Transpose the server at point and the previous one
55 q -- Commit the changes and quit. 55 q -- Commit the changes and quit.
56 x -- Quit without commiting the changes." 56 x -- Quit without committing the changes."
57 (interactive) 57 (interactive)
58 (kill-all-local-variables) 58 (kill-all-local-variables)
59 (setq major-mode 'eudc-hotlist-mode) 59 (setq major-mode 'eudc-hotlist-mode)
diff --git a/lisp/net/mairix.el b/lisp/net/mairix.el
index 8c4bbb4a785..68a0a6a85d4 100644
--- a/lisp/net/mairix.el
+++ b/lisp/net/mairix.el
@@ -51,7 +51,7 @@
51;; Currently, RMail, Gnus (with mbox files), and VM are supported as 51;; Currently, RMail, Gnus (with mbox files), and VM are supported as
52;; mail programs, but it is pretty easy to interface it with other 52;; mail programs, but it is pretty easy to interface it with other
53;; ones as well. Please see the docs and the source for details. 53;; ones as well. Please see the docs and the source for details.
54;; In a nutshell: include your favourite mail program in 54;; In a nutshell: include your favorite mail program in
55;; `mairix-mail-program' and write functions for 55;; `mairix-mail-program' and write functions for
56;; `mairix-display-functions' and `mairix-get-mail-header-functions'. 56;; `mairix-display-functions' and `mairix-get-mail-header-functions'.
57;; If you have written such functions for your Emacs mail program of 57;; If you have written such functions for your Emacs mail program of
@@ -945,4 +945,3 @@ Use cursor keys or C-n,C-p to select next/previous search.\n\n")
945(provide 'mairix) 945(provide 'mairix)
946 946
947;;; mairix.el ends here 947;;; mairix.el ends here
948
diff --git a/lisp/net/newst-plainview.el b/lisp/net/newst-plainview.el
index 906044079cd..16b36df07f8 100644
--- a/lisp/net/newst-plainview.el
+++ b/lisp/net/newst-plainview.el
@@ -783,11 +783,11 @@ Return new buffer position."
783 (newsticker--buffer-set-uptodate nil) 783 (newsticker--buffer-set-uptodate nil)
784 (newsticker--ticker-text-setup) 784 (newsticker--ticker-text-setup)
785 (newsticker-buffer-update) 785 (newsticker-buffer-update)
786 ;; go back to where we came frome 786 ;; Go back to where we came from.
787 (goto-char pos) 787 (goto-char pos)
788 (end-of-line) 788 (end-of-line)
789 (newsticker--buffer-goto '(feed) nil t)))) 789 (newsticker--buffer-goto '(feed) nil t))))
790 790
791(defun newsticker-mark-all-items-at-point-as-read () 791(defun newsticker-mark-all-items-at-point-as-read ()
792 "Mark all items as read and clear ticker contents." 792 "Mark all items as read and clear ticker contents."
793 (interactive) 793 (interactive)
diff --git a/lisp/net/newst-treeview.el b/lisp/net/newst-treeview.el
index 5e38a905ad5..7cfdd2cb89d 100644
--- a/lisp/net/newst-treeview.el
+++ b/lisp/net/newst-treeview.el
@@ -227,7 +227,7 @@ their id stays constant."
227 (string= (widget-get node1 :tag) (widget-get node2 :tag))))) 227 (string= (widget-get node1 :tag) (widget-get node2 :tag)))))
228 228
229(defun newsticker--treeview-do-get-node-of-feed (feed-name startnode) 229(defun newsticker--treeview-do-get-node-of-feed (feed-name startnode)
230 "Recursivly search node for feed FEED-NAME starting from STARTNODE." 230 "Recursively search node for feed FEED-NAME starting from STARTNODE."
231 ;;(message "%s/%s" feed-name (widget-get startnode :nt-feed)) 231 ;;(message "%s/%s" feed-name (widget-get startnode :nt-feed))
232 (if (string= feed-name (or (widget-get startnode :nt-feed) 232 (if (string= feed-name (or (widget-get startnode :nt-feed)
233 (widget-get startnode :nt-vfeed))) 233 (widget-get startnode :nt-vfeed)))
@@ -245,7 +245,7 @@ their id stays constant."
245 newsticker--treeview-vfeed-tree))) 245 newsticker--treeview-vfeed-tree)))
246 246
247(defun newsticker--treeview-do-get-node (id startnode) 247(defun newsticker--treeview-do-get-node (id startnode)
248 "Recursivly search node with ID starting from STARTNODE." 248 "Recursively search node with ID starting from STARTNODE."
249 (if (newsticker--treeview-ids-eq id (widget-get startnode :nt-id)) 249 (if (newsticker--treeview-ids-eq id (widget-get startnode :nt-id))
250 (throw 'found startnode) 250 (throw 'found startnode)
251 (let ((children (widget-get startnode :children))) 251 (let ((children (widget-get startnode :children)))
diff --git a/lisp/net/newsticker.el b/lisp/net/newsticker.el
index 3a2cf3f04f7..0a1e07e63f1 100644
--- a/lisp/net/newsticker.el
+++ b/lisp/net/newsticker.el
@@ -106,7 +106,7 @@
106;; asynchronous download of headlines. The modeline in the `*newsticker*' 106;; asynchronous download of headlines. The modeline in the `*newsticker*'
107;; buffer informs whenever new headlines have arrived. Clicking 107;; buffer informs whenever new headlines have arrived. Clicking
108;; mouse-button 2 or pressing RET in this buffer on a headline will call 108;; mouse-button 2 or pressing RET in this buffer on a headline will call
109;; browse-url to load the corresponding news story in your favourite web 109;; browse-url to load the corresponding news story in your favorite web
110;; browser. 110;; browser.
111 111
112;; The scrolling, or flashing of headlines in the echo area, can be started 112;; The scrolling, or flashing of headlines in the echo area, can be started
diff --git a/lisp/net/quickurl.el b/lisp/net/quickurl.el
index 3f1437f0799..7a1e5fc6a80 100644
--- a/lisp/net/quickurl.el
+++ b/lisp/net/quickurl.el
@@ -26,7 +26,7 @@
26;; 26;;
27;; This package provides a simple method of inserting a URL based on the 27;; This package provides a simple method of inserting a URL based on the
28;; text at point in the current buffer. This is part of an on-going effort 28;; text at point in the current buffer. This is part of an on-going effort
29;; to increase the information I provide people while reducing the ammount 29;; to increase the information I provide people while reducing the amount
30;; of typing I need to do. No-doubt there are undiscovered Emacs packages 30;; of typing I need to do. No-doubt there are undiscovered Emacs packages
31;; out there that do all of this and do it better, feel free to point me to 31;; out there that do all of this and do it better, feel free to point me to
32;; them, in the mean time I'm having fun playing with Emacs Lisp. 32;; them, in the mean time I'm having fun playing with Emacs Lisp.
@@ -189,7 +189,7 @@ in your ~/.emacs (after loading/requiring quickurl).")
189 "Local keymap for a `quickurl-list-mode' buffer.") 189 "Local keymap for a `quickurl-list-mode' buffer.")
190 190
191(defvar quickurl-list-buffer-name "*quickurl-list*" 191(defvar quickurl-list-buffer-name "*quickurl-list*"
192 "Name for the URL listinig buffer.") 192 "Name for the URL listing buffer.")
193 193
194(defvar quickurl-list-last-buffer nil 194(defvar quickurl-list-last-buffer nil
195 "`current-buffer' when `quickurl-list' was called.") 195 "`current-buffer' when `quickurl-list' was called.")
diff --git a/lisp/net/secrets.el b/lisp/net/secrets.el
index 9fa5eb32d43..7e0eaff1dce 100644
--- a/lisp/net/secrets.el
+++ b/lisp/net/secrets.el
@@ -78,7 +78,7 @@
78;; (secrets-create-collection "my collection") 78;; (secrets-create-collection "my collection")
79 79
80;; There exists a special collection called "session", which has the 80;; There exists a special collection called "session", which has the
81;; lifetime of the corrresponding client session (aka Emacs' 81;; lifetime of the corresponding client session (aka Emacs'
82;; lifetime). It is created automatically when Emacs uses the Secret 82;; lifetime). It is created automatically when Emacs uses the Secret
83;; Service interface, and it is deleted when Emacs is killed. 83;; Service interface, and it is deleted when Emacs is killed.
84;; Therefore, it can be used to store and retrieve secret items 84;; Therefore, it can be used to store and retrieve secret items
@@ -379,7 +379,7 @@ returned, and it will be stored in `secrets-session-path'."
379(defun secrets-prompt-handler (&rest args) 379(defun secrets-prompt-handler (&rest args)
380 "Handler for signals emitted by `secrets-interface-prompt'." 380 "Handler for signals emitted by `secrets-interface-prompt'."
381 ;; An empty object path is always identified as `secrets-empty-path' 381 ;; An empty object path is always identified as `secrets-empty-path'
382 ;; or `nil'. Either we set it explicitely, or it is returned by the 382 ;; or `nil'. Either we set it explicitly, or it is returned by the
383 ;; "Completed" signal. 383 ;; "Completed" signal.
384 (if (car args) ;; dismissed 384 (if (car args) ;; dismissed
385 (setq secrets-prompt-signal (list secrets-empty-path)) 385 (setq secrets-prompt-signal (list secrets-empty-path))
@@ -431,7 +431,7 @@ returned, and it will be stored in `secrets-session-path'."
431 (secrets-get-collections))) 431 (secrets-get-collections)))
432 432
433(defun secrets-collection-path (collection) 433(defun secrets-collection-path (collection)
434 "Return the object path of collection labelled COLLECTION. 434 "Return the object path of collection labeled COLLECTION.
435If COLLECTION is nil, return the session collection path. 435If COLLECTION is nil, return the session collection path.
436If there is no such COLLECTION, return nil." 436If there is no such COLLECTION, return nil."
437 (or 437 (or
@@ -454,7 +454,7 @@ If there is no such COLLECTION, return nil."
454 (throw 'collection-found collection-path)))))) 454 (throw 'collection-found collection-path))))))
455 455
456(defun secrets-create-collection (collection) 456(defun secrets-create-collection (collection)
457 "Create collection labelled COLLECTION if it doesn't exist. 457 "Create collection labeled COLLECTION if it doesn't exist.
458Return the D-Bus object path for collection." 458Return the D-Bus object path for collection."
459 (let ((collection-path (secrets-collection-path collection))) 459 (let ((collection-path (secrets-collection-path collection)))
460 ;; Create the collection. 460 ;; Create the collection.
@@ -480,7 +480,7 @@ For the time being, only the alias \"default\" is supported."
480 "Label")) 480 "Label"))
481 481
482(defun secrets-set-alias (collection alias) 482(defun secrets-set-alias (collection alias)
483 "Set ALIAS as alias of collection labelled COLLECTION. 483 "Set ALIAS as alias of collection labeled COLLECTION.
484For the time being, only the alias \"default\" is supported." 484For the time being, only the alias \"default\" is supported."
485 (let ((collection-path (secrets-collection-path collection))) 485 (let ((collection-path (secrets-collection-path collection)))
486 (unless (secrets-empty-path collection-path) 486 (unless (secrets-empty-path collection-path)
@@ -497,7 +497,7 @@ For the time being, only the alias \"default\" is supported."
497 alias :object-path secrets-empty-path)) 497 alias :object-path secrets-empty-path))
498 498
499(defun secrets-unlock-collection (collection) 499(defun secrets-unlock-collection (collection)
500 "Unlock collection labelled COLLECTION. 500 "Unlock collection labeled COLLECTION.
501If successful, return the object path of the collection." 501If successful, return the object path of the collection."
502 (let ((collection-path (secrets-collection-path collection))) 502 (let ((collection-path (secrets-collection-path collection)))
503 (unless (secrets-empty-path collection-path) 503 (unless (secrets-empty-path collection-path)
@@ -509,7 +509,7 @@ If successful, return the object path of the collection."
509 collection-path)) 509 collection-path))
510 510
511(defun secrets-delete-collection (collection) 511(defun secrets-delete-collection (collection)
512 "Delete collection labelled COLLECTION." 512 "Delete collection labeled COLLECTION."
513 (let ((collection-path (secrets-collection-path collection))) 513 (let ((collection-path (secrets-collection-path collection)))
514 (unless (secrets-empty-path collection-path) 514 (unless (secrets-empty-path collection-path)
515 (secrets-prompt 515 (secrets-prompt
@@ -636,7 +636,7 @@ The object path of the created item is returned."
636 (car result))))) 636 (car result)))))
637 637
638(defun secrets-item-path (collection item) 638(defun secrets-item-path (collection item)
639 "Return the object path of item labelled ITEM in COLLECTION. 639 "Return the object path of item labeled ITEM in COLLECTION.
640If there is no such item, return nil." 640If there is no such item, return nil."
641 (let ((collection-path (secrets-unlock-collection collection))) 641 (let ((collection-path (secrets-unlock-collection collection)))
642 (catch 'item-found 642 (catch 'item-found
@@ -645,7 +645,7 @@ If there is no such item, return nil."
645 (throw 'item-found item-path)))))) 645 (throw 'item-found item-path))))))
646 646
647(defun secrets-get-secret (collection item) 647(defun secrets-get-secret (collection item)
648 "Return the secret of item labelled ITEM in COLLECTION. 648 "Return the secret of item labeled ITEM in COLLECTION.
649If there is no such item, return nil." 649If there is no such item, return nil."
650 (let ((item-path (secrets-item-path collection item))) 650 (let ((item-path (secrets-item-path collection item)))
651 (unless (secrets-empty-path item-path) 651 (unless (secrets-empty-path item-path)
@@ -656,7 +656,7 @@ If there is no such item, return nil."
656 "GetSecret" :object-path secrets-session-path)))))) 656 "GetSecret" :object-path secrets-session-path))))))
657 657
658(defun secrets-get-attributes (collection item) 658(defun secrets-get-attributes (collection item)
659 "Return the lookup attributes of item labelled ITEM in COLLECTION. 659 "Return the lookup attributes of item labeled ITEM in COLLECTION.
660If there is no such item, or the item has no attributes, return nil." 660If there is no such item, or the item has no attributes, return nil."
661 (unless (stringp collection) (setq collection "default")) 661 (unless (stringp collection) (setq collection "default"))
662 (let ((item-path (secrets-item-path collection item))) 662 (let ((item-path (secrets-item-path collection item)))
@@ -669,7 +669,7 @@ If there is no such item, or the item has no attributes, return nil."
669 secrets-interface-item "Attributes"))))) 669 secrets-interface-item "Attributes")))))
670 670
671(defun secrets-get-attribute (collection item attribute) 671(defun secrets-get-attribute (collection item attribute)
672 "Return the value of ATTRIBUTE of item labelled ITEM in COLLECTION. 672 "Return the value of ATTRIBUTE of item labeled ITEM in COLLECTION.
673If there is no such item, or the item doesn't own this attribute, return nil." 673If there is no such item, or the item doesn't own this attribute, return nil."
674 (cdr (assoc attribute (secrets-get-attributes collection item)))) 674 (cdr (assoc attribute (secrets-get-attributes collection item))))
675 675
diff --git a/lisp/net/snmp-mode.el b/lisp/net/snmp-mode.el
index e9783d46ba8..8112ed5b177 100644
--- a/lisp/net/snmp-mode.el
+++ b/lisp/net/snmp-mode.el
@@ -676,7 +676,7 @@ controls whether case is significant."
676;; v2 SMI TEXTUAL-CONVENTION macro template 676;; v2 SMI TEXTUAL-CONVENTION macro template
677;; 677;;
678(tempo-define-template "snmpv2-textual-convention" 678(tempo-define-template "snmpv2-textual-convention"
679 '(> (P "Texual Convention Type: ") " ::= TEXTUAL-CONVENTION" n> 679 '(> (P "Textual Convention Type: ") " ::= TEXTUAL-CONVENTION" n>
680 "STATUS " 680 "STATUS "
681 (if tempo-interactive 681 (if tempo-interactive
682 (snmp-completing-read "Status: " snmp-mode-status-list nil t) 682 (snmp-completing-read "Status: " snmp-mode-status-list nil t)
diff --git a/lisp/net/soap-client.el b/lisp/net/soap-client.el
index 42c698876cd..74f51d148ef 100644
--- a/lisp/net/soap-client.el
+++ b/lisp/net/soap-client.el
@@ -32,7 +32,7 @@
32;; `soap-invoke' method passing it the WSDL, the service name, the operation 32;; `soap-invoke' method passing it the WSDL, the service name, the operation
33;; you wish to invoke and any required parameters. 33;; you wish to invoke and any required parameters.
34;; 34;;
35;; Idealy, the service you want to access will have some documentation about 35;; Ideally, the service you want to access will have some documentation about
36;; the operations it supports. If it does not, you can try using 36;; the operations it supports. If it does not, you can try using
37;; `soap-inspect' to browse the WSDL document and see the available operations 37;; `soap-inspect' to browse the WSDL document and see the available operations
38;; and their parameters. 38;; and their parameters.
@@ -373,7 +373,7 @@ binding) but the same name."
373 373
374(defstruct (soap-sequence-type (:include soap-element)) 374(defstruct (soap-sequence-type (:include soap-element))
375 parent ; OPTIONAL WSDL-TYPE name 375 parent ; OPTIONAL WSDL-TYPE name
376 elements ; LIST of SOAP-SEQUCENCE-ELEMENT 376 elements ; LIST of SOAP-SEQUENCE-ELEMENT
377 ) 377 )
378 378
379(defstruct (soap-array-type (:include soap-element)) 379(defstruct (soap-array-type (:include soap-element))
diff --git a/lisp/net/tramp-cache.el b/lisp/net/tramp-cache.el
index b35ca3bbd18..56087a3aef6 100644
--- a/lisp/net/tramp-cache.el
+++ b/lisp/net/tramp-cache.el
@@ -162,6 +162,11 @@ FILE must be a local file name on a connection identified via VEC."
162;;;###tramp-autoload 162;;;###tramp-autoload
163(defun tramp-flush-file-property (vec file) 163(defun tramp-flush-file-property (vec file)
164 "Remove all properties of FILE in the cache context of VEC." 164 "Remove all properties of FILE in the cache context of VEC."
165 ;; Remove file property of symlinks.
166 (let ((truename (tramp-get-file-property vec file "file-truename" nil)))
167 (when (and (stringp truename)
168 (not (string-equal file truename)))
169 (tramp-flush-file-property vec truename)))
165 ;; Unify localname. 170 ;; Unify localname.
166 (setq vec (copy-sequence vec)) 171 (setq vec (copy-sequence vec))
167 (aset vec 3 (tramp-run-real-handler 'directory-file-name (list file))) 172 (aset vec 3 (tramp-run-real-handler 'directory-file-name (list file)))
diff --git a/lisp/net/tramp-compat.el b/lisp/net/tramp-compat.el
index 5054f1d232d..89c7db241d8 100644
--- a/lisp/net/tramp-compat.el
+++ b/lisp/net/tramp-compat.el
@@ -412,7 +412,7 @@ element is not omitted."
412 (program &optional infile destination display &rest args) 412 (program &optional infile destination display &rest args)
413 "Calls `call-process' on the local host. 413 "Calls `call-process' on the local host.
414This is needed because for some Emacs flavors Tramp has 414This is needed because for some Emacs flavors Tramp has
415defadviced `call-process' to behave like `process-file'. The 415defadvised `call-process' to behave like `process-file'. The
416Lisp error raised when PROGRAM is nil is trapped also, returning 1." 416Lisp error raised when PROGRAM is nil is trapped also, returning 1."
417 (let ((default-directory 417 (let ((default-directory
418 (if (file-remote-p default-directory) 418 (if (file-remote-p default-directory)
diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el
index 55732194bc8..50a3c1fca5e 100644
--- a/lisp/net/tramp-sh.el
+++ b/lisp/net/tramp-sh.el
@@ -549,7 +549,7 @@ as given in your `~/.profile'."
549 "*List of environment variables to be set on the remote host. 549 "*List of environment variables to be set on the remote host.
550 550
551Each element should be a string of the form ENVVARNAME=VALUE. An 551Each element should be a string of the form ENVVARNAME=VALUE. An
552entry ENVVARNAME= diables the corresponding environment variable, 552entry ENVVARNAME= disables the corresponding environment variable,
553which might have been set in the init files like ~/.profile. 553which might have been set in the init files like ~/.profile.
554 554
555Special handling is applied to the PATH environment, which should 555Special handling is applied to the PATH environment, which should
@@ -1058,106 +1058,110 @@ target of the symlink differ."
1058(defun tramp-sh-handle-file-truename (filename &optional counter prev-dirs) 1058(defun tramp-sh-handle-file-truename (filename &optional counter prev-dirs)
1059 "Like `file-truename' for Tramp files." 1059 "Like `file-truename' for Tramp files."
1060 (with-parsed-tramp-file-name (expand-file-name filename) nil 1060 (with-parsed-tramp-file-name (expand-file-name filename) nil
1061 (with-file-property v localname "file-truename" 1061 (tramp-make-tramp-file-name method user host
1062 (let ((result nil)) ; result steps in reverse order 1062 (with-file-property v localname "file-truename"
1063 (tramp-message v 4 "Finding true name for `%s'" filename) 1063 (let ((result nil)) ; result steps in reverse order
1064 (cond 1064 (tramp-message v 4 "Finding true name for `%s'" filename)
1065 ;; Use GNU readlink --canonicalize-missing where available. 1065 (cond
1066 ((tramp-get-remote-readlink v) 1066 ;; Use GNU readlink --canonicalize-missing where available.
1067 (setq result 1067 ((tramp-get-remote-readlink v)
1068 (tramp-send-command-and-read 1068 (setq result
1069 v 1069 (tramp-send-command-and-read
1070 (format "echo \"\\\"`%s --canonicalize-missing %s`\\\"\"" 1070 v
1071 (tramp-get-remote-readlink v) 1071 (format "echo \"\\\"`%s --canonicalize-missing %s`\\\"\""
1072 (tramp-shell-quote-argument localname))))) 1072 (tramp-get-remote-readlink v)
1073 1073 (tramp-shell-quote-argument localname)))))
1074 ;; Use Perl implementation. 1074
1075 ((and (tramp-get-remote-perl v) 1075 ;; Use Perl implementation.
1076 (tramp-get-connection-property v "perl-file-spec" nil) 1076 ((and (tramp-get-remote-perl v)
1077 (tramp-get-connection-property v "perl-cwd-realpath" nil)) 1077 (tramp-get-connection-property v "perl-file-spec" nil)
1078 (tramp-maybe-send-script 1078 (tramp-get-connection-property v "perl-cwd-realpath" nil))
1079 v tramp-perl-file-truename "tramp_perl_file_truename") 1079 (tramp-maybe-send-script
1080 (setq result 1080 v tramp-perl-file-truename "tramp_perl_file_truename")
1081 (tramp-send-command-and-read 1081 (setq result
1082 v 1082 (tramp-send-command-and-read
1083 (format "tramp_perl_file_truename %s" 1083 v
1084 (tramp-shell-quote-argument localname))))) 1084 (format "tramp_perl_file_truename %s"
1085 1085 (tramp-shell-quote-argument localname)))))
1086 ;; Do it yourself. We bind `directory-sep-char' here for 1086
1087 ;; XEmacs on Windows, which would otherwise use backslash. 1087 ;; Do it yourself. We bind `directory-sep-char' here for
1088 (t (let* ((directory-sep-char ?/) 1088 ;; XEmacs on Windows, which would otherwise use backslash.
1089 (steps (tramp-compat-split-string localname "/")) 1089 (t (let* ((directory-sep-char ?/)
1090 (localnamedir (tramp-run-real-handler 1090 (steps (tramp-compat-split-string localname "/"))
1091 'file-name-as-directory (list localname))) 1091 (localnamedir (tramp-run-real-handler
1092 (is-dir (string= localname localnamedir)) 1092 'file-name-as-directory (list localname)))
1093 (thisstep nil) 1093 (is-dir (string= localname localnamedir))
1094 (numchase 0) 1094 (thisstep nil)
1095 ;; Don't make the following value larger than 1095 (numchase 0)
1096 ;; necessary. People expect an error message in a 1096 ;; Don't make the following value larger than
1097 ;; timely fashion when something is wrong; 1097 ;; necessary. People expect an error message in
1098 ;; otherwise they might think that Emacs is hung. 1098 ;; a timely fashion when something is wrong;
1099 ;; Of course, correctness has to come first. 1099 ;; otherwise they might think that Emacs is hung.
1100 (numchase-limit 20) 1100 ;; Of course, correctness has to come first.
1101 symlink-target) 1101 (numchase-limit 20)
1102 (while (and steps (< numchase numchase-limit)) 1102 symlink-target)
1103 (setq thisstep (pop steps)) 1103 (while (and steps (< numchase numchase-limit))
1104 (tramp-message 1104 (setq thisstep (pop steps))
1105 v 5 "Check %s" 1105 (tramp-message
1106 (mapconcat 'identity 1106 v 5 "Check %s"
1107 (append '("") (reverse result) (list thisstep)) 1107 (mapconcat 'identity
1108 "/")) 1108 (append '("") (reverse result) (list thisstep))
1109 (setq symlink-target 1109 "/"))
1110 (nth 0 (file-attributes 1110 (setq symlink-target
1111 (tramp-make-tramp-file-name 1111 (nth 0 (file-attributes
1112 method user host 1112 (tramp-make-tramp-file-name
1113 (mapconcat 'identity 1113 method user host
1114 (append '("") 1114 (mapconcat 'identity
1115 (reverse result) 1115 (append '("")
1116 (list thisstep)) 1116 (reverse result)
1117 "/"))))) 1117 (list thisstep))
1118 (cond ((string= "." thisstep) 1118 "/")))))
1119 (tramp-message v 5 "Ignoring step `.'")) 1119 (cond ((string= "." thisstep)
1120 ((string= ".." thisstep) 1120 (tramp-message v 5 "Ignoring step `.'"))
1121 (tramp-message v 5 "Processing step `..'") 1121 ((string= ".." thisstep)
1122 (pop result)) 1122 (tramp-message v 5 "Processing step `..'")
1123 ((stringp symlink-target) 1123 (pop result))
1124 ;; It's a symlink, follow it. 1124 ((stringp symlink-target)
1125 (tramp-message v 5 "Follow symlink to %s" symlink-target) 1125 ;; It's a symlink, follow it.
1126 (setq numchase (1+ numchase)) 1126 (tramp-message
1127 (when (file-name-absolute-p symlink-target) 1127 v 5 "Follow symlink to %s" symlink-target)
1128 (setq result nil)) 1128 (setq numchase (1+ numchase))
1129 ;; If the symlink was absolute, we'll get a string like 1129 (when (file-name-absolute-p symlink-target)
1130 ;; "/user@host:/some/target"; extract the 1130 (setq result nil))
1131 ;; "/some/target" part from it. 1131 ;; If the symlink was absolute, we'll get a
1132 (when (tramp-tramp-file-p symlink-target) 1132 ;; string like "/user@host:/some/target";
1133 (unless (tramp-equal-remote filename symlink-target) 1133 ;; extract the "/some/target" part from it.
1134 (tramp-error 1134 (when (tramp-tramp-file-p symlink-target)
1135 v 'file-error 1135 (unless (tramp-equal-remote filename symlink-target)
1136 "Symlink target `%s' on wrong host" symlink-target)) 1136 (tramp-error
1137 (setq symlink-target localname)) 1137 v 'file-error
1138 (setq steps 1138 "Symlink target `%s' on wrong host"
1139 (append (tramp-compat-split-string 1139 symlink-target))
1140 symlink-target "/") 1140 (setq symlink-target localname))
1141 steps))) 1141 (setq steps
1142 (t 1142 (append (tramp-compat-split-string
1143 ;; It's a file. 1143 symlink-target "/")
1144 (setq result (cons thisstep result))))) 1144 steps)))
1145 (when (>= numchase numchase-limit) 1145 (t
1146 (tramp-error 1146 ;; It's a file.
1147 v 'file-error 1147 (setq result (cons thisstep result)))))
1148 "Maximum number (%d) of symlinks exceeded" numchase-limit)) 1148 (when (>= numchase numchase-limit)
1149 (setq result (reverse result)) 1149 (tramp-error
1150 ;; Combine list to form string. 1150 v 'file-error
1151 (setq result 1151 "Maximum number (%d) of symlinks exceeded" numchase-limit))
1152 (if result 1152 (setq result (reverse result))
1153 (mapconcat 'identity (cons "" result) "/") 1153 ;; Combine list to form string.
1154 "/")) 1154 (setq result
1155 (when (and is-dir (or (string= "" result) 1155 (if result
1156 (not (string= (substring result -1) "/")))) 1156 (mapconcat 'identity (cons "" result) "/")
1157 (setq result (concat result "/")))))) 1157 "/"))
1158 1158 (when (and is-dir
1159 (tramp-message v 4 "True name of `%s' is `%s'" filename result) 1159 (or (string= "" result)
1160 (tramp-make-tramp-file-name method user host result))))) 1160 (not (string= (substring result -1) "/"))))
1161 (setq result (concat result "/"))))))
1162
1163 (tramp-message v 4 "True name of `%s' is `%s'" localname result)
1164 result)))))
1161 1165
1162;; Basic functions. 1166;; Basic functions.
1163 1167
@@ -4307,7 +4311,7 @@ connection if a previous connection has died for some reason."
4307 (tramp-compat-temporary-file-directory))))) 4311 (tramp-compat-temporary-file-directory)))))
4308 spec) 4312 spec)
4309 4313
4310 ;; Add arguments for asynchrononous processes. 4314 ;; Add arguments for asynchronous processes.
4311 (when (and process-name async-args) 4315 (when (and process-name async-args)
4312 (setq login-args (append async-args login-args))) 4316 (setq login-args (append async-args login-args)))
4313 4317
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 5fca1018095..0ee6ad8dea4 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -152,7 +152,7 @@ local host, so if you want to use `~' in those commands, you should
152choose a shell here which groks tilde expansion. `/bin/sh' normally 152choose a shell here which groks tilde expansion. `/bin/sh' normally
153does not understand tilde expansion. 153does not understand tilde expansion.
154 154
155For encoding and deocding, commands like the following are executed: 155For encoding and decoding, commands like the following are executed:
156 156
157 /bin/sh -c COMMAND < INPUT > OUTPUT 157 /bin/sh -c COMMAND < INPUT > OUTPUT
158 158
@@ -3851,7 +3851,7 @@ Only works for Bourne-like shells."
3851;; expects English? Or just to set LC_MESSAGES to "C" if Tramp 3851;; expects English? Or just to set LC_MESSAGES to "C" if Tramp
3852;; expects only English messages? (Juri Linkov) 3852;; expects only English messages? (Juri Linkov)
3853;; * Make shadowfile.el grok Tramp filenames. (Bug#4526, Bug#4846) 3853;; * Make shadowfile.el grok Tramp filenames. (Bug#4526, Bug#4846)
3854;; * I was wondering it it would be possible to use tramp even if I'm 3854;; * I was wondering if it would be possible to use tramp even if I'm
3855;; actually using sshfs. But when I launch a command I would like 3855;; actually using sshfs. But when I launch a command I would like
3856;; to get it executed on the remote machine where the files really 3856;; to get it executed on the remote machine where the files really
3857;; are. (Andrea Crotti) 3857;; are. (Andrea Crotti)
diff --git a/lisp/net/webjump.el b/lisp/net/webjump.el
index 3a2560b3c61..6ef24e9f354 100644
--- a/lisp/net/webjump.el
+++ b/lisp/net/webjump.el
@@ -235,7 +235,7 @@
235 "www.faqs.org/faqs/") 235 "www.faqs.org/faqs/")
236 ("RTFM Usenet FAQs by Group" . 236 ("RTFM Usenet FAQs by Group" .
237 "ftp://rtfm.mit.edu/pub/usenet-by-group/") 237 "ftp://rtfm.mit.edu/pub/usenet-by-group/")
238 ("RTFM Usenet FAQs by Hierachy" . 238 ("RTFM Usenet FAQs by Hierarchy" .
239 "ftp://rtfm.mit.edu/pub/usenet-by-hierarchy/") 239 "ftp://rtfm.mit.edu/pub/usenet-by-hierarchy/")
240 ("X Consortium Archive" . "ftp.x.org") 240 ("X Consortium Archive" . "ftp.x.org")
241 241
diff --git a/lisp/net/xesam.el b/lisp/net/xesam.el
index 56e9cb68c61..efb2cdd6166 100644
--- a/lisp/net/xesam.el
+++ b/lisp/net/xesam.el
@@ -409,7 +409,7 @@ If there is no registered search engine at all, the function returns `nil'."
409 (setq vendor-id (xesam-get-property engine "vendor.id") 409 (setq vendor-id (xesam-get-property engine "vendor.id")
410 hit-fields (xesam-get-property engine "hit.fields")) 410 hit-fields (xesam-get-property engine "hit.fields"))
411 411
412 ;; Ususally, `hit.fields' shall describe supported fields. 412 ;; Usually, `hit.fields' shall describe supported fields.
413 ;; That is not the case now, so we set it ourselves. 413 ;; That is not the case now, so we set it ourselves.
414 ;; Hopefully, this will change later. 414 ;; Hopefully, this will change later.
415 (setq hit-fields 415 (setq hit-fields
diff --git a/lisp/net/zeroconf.el b/lisp/net/zeroconf.el
index d801a4c094c..cc538c224dc 100644
--- a/lisp/net/zeroconf.el
+++ b/lisp/net/zeroconf.el
@@ -249,7 +249,7 @@ qualified name, i.e., it contains DOMAIN.
249APROTOCOL stands for the network protocol family ADDRESS is 249APROTOCOL stands for the network protocol family ADDRESS is
250encoded (`zeroconf-avahi-protocol-inet4' means INET4, 250encoded (`zeroconf-avahi-protocol-inet4' means INET4,
251`zeroconf-avahi-protocol-inet6' means INET6). It can be 251`zeroconf-avahi-protocol-inet6' means INET6). It can be
252different from PROTOCOL, when an adrress resolution has been 252different from PROTOCOL, when an address resolution has been
253requested for another protocol family but the default one. 253requested for another protocol family but the default one.
254 254
255ADDRESS is the service address, encoded according to the 255ADDRESS is the service address, encoded according to the
@@ -486,7 +486,7 @@ TYPE. The resulting list has the format
486 (nth 9 (zeroconf-resolve-service service))) 486 (nth 9 (zeroconf-resolve-service service)))
487 487
488 488
489;;; Services signalling. 489;;; Services signaling.
490 490
491;; Register for the service type browser. Service registrations will 491;; Register for the service type browser. Service registrations will
492;; happen in `zeroconf-service-type-browser-handler', when there is an 492;; happen in `zeroconf-service-type-browser-handler', when there is an
diff --git a/lisp/nxml/nxml-outln.el b/lisp/nxml/nxml-outln.el
index 6a2a9daf7e4..53d2cabc2e5 100644
--- a/lisp/nxml/nxml-outln.el
+++ b/lisp/nxml/nxml-outln.el
@@ -60,7 +60,7 @@
60;; form. Single-line form is used when the outline state is hide-children 60;; form. Single-line form is used when the outline state is hide-children
61;; or there are no child sections; multi-line form is used otherwise. 61;; or there are no child sections; multi-line form is used otherwise.
62;; There are two flavors of single-line form: with children and without. 62;; There are two flavors of single-line form: with children and without.
63;; The with-childen flavor is used when there are child sections. 63;; The with-children flavor is used when there are child sections.
64;; Single line with children looks like 64;; Single line with children looks like
65;; <+section>A section title...</> 65;; <+section>A section title...</>
66;; Single line without children looks like 66;; Single line without children looks like
diff --git a/lisp/obsolete/iso-acc.el b/lisp/obsolete/iso-acc.el
index cb06091dfcf..347db281f1a 100644
--- a/lisp/obsolete/iso-acc.el
+++ b/lisp/obsolete/iso-acc.el
@@ -32,7 +32,7 @@
32;; In `iso-accents-mode', pseudo accent characters are used to 32;; In `iso-accents-mode', pseudo accent characters are used to
33;; introduce accented keys. The pseudo-accent characters are: 33;; introduce accented keys. The pseudo-accent characters are:
34;; 34;;
35;; ' (minute) -> actue accent 35;; ' (minute) -> acute accent
36;; ` (backtick) -> grave accent 36;; ` (backtick) -> grave accent
37;; " (second) -> diaeresis 37;; " (second) -> diaeresis
38;; ^ (caret) -> circumflex 38;; ^ (caret) -> circumflex
diff --git a/lisp/obsolete/pgg-gpg.el b/lisp/obsolete/pgg-gpg.el
index 064985f4566..2eafc631e98 100644
--- a/lisp/obsolete/pgg-gpg.el
+++ b/lisp/obsolete/pgg-gpg.el
@@ -384,7 +384,7 @@ passphrase cache or user."
384 (pgg-process-when-success))) 384 (pgg-process-when-success)))
385 385
386(defun pgg-gpg-update-agent () 386(defun pgg-gpg-update-agent ()
387 "Try to connet to gpg-agent and send UPDATESTARTUPTTY." 387 "Try to connect to gpg-agent and send UPDATESTARTUPTTY."
388 (if (fboundp 'make-network-process) 388 (if (fboundp 'make-network-process)
389 (let* ((agent-info (getenv "GPG_AGENT_INFO")) 389 (let* ((agent-info (getenv "GPG_AGENT_INFO"))
390 (socket (and agent-info 390 (socket (and agent-info
diff --git a/lisp/obsolete/s-region.el b/lisp/obsolete/s-region.el
index b06861c0efc..8fb6703aa25 100644
--- a/lisp/obsolete/s-region.el
+++ b/lisp/obsolete/s-region.el
@@ -4,7 +4,7 @@
4 4
5;; Author: Morten Welinder <terra@diku.dk> 5;; Author: Morten Welinder <terra@diku.dk>
6;; Keywords: terminals 6;; Keywords: terminals
7;; Favourite-brand-of-beer: None, I hate beer. 7;; Favorite-brand-of-beer: None, I hate beer.
8;; Obsolete-since: 24.1 8;; Obsolete-since: 24.1
9 9
10;; This file is part of GNU Emacs. 10;; This file is part of GNU Emacs.
diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog
index ae150621dc0..b946d147e5b 100644
--- a/lisp/org/ChangeLog
+++ b/lisp/org/ChangeLog
@@ -1,3 +1,19 @@
12011-11-16 Juanma Barranquero <lekktu@gmail.com>
2
3 * org-agenda.el (org-agenda-add-entry-text-descriptive-links)
4 (org-agenda-custom-commands, org-write-agenda, org-check-for-org-mode)
5 (org-search-syntax-table, org-modify-diary-entry-string)
6 (org-write-agenda):
7 * org-bbdb.el (org-bbdb-anniv-export-ical):
8 * org-bibtex.el (org-bibtex-fields):
9 * org-icalendar.el (org-icalendar-date-time-format):
10 * org-latex.el (org-export-latex-inline-image-extensions):
11 * org-list.el (org-list-insert-item): Fix typos.
12
132011-11-11 Juanma Barranquero <lekktu@gmail.com>
14
15 * org-plot.el (org-plot/gnuplot-to-grid-data): Fix typo in docstring.
16
12011-09-27 Eli Zaretskii <eliz@gnu.org> 172011-09-27 Eli Zaretskii <eliz@gnu.org>
2 18
3 * org.el (org-mode): Force left-to-right paragraphs in Org 19 * org.el (org-mode): Force left-to-right paragraphs in Org
@@ -51,7 +67,7 @@
51 67
522011-07-28 Bastien Guerry <bzg@gnu.org> 682011-07-28 Bastien Guerry <bzg@gnu.org>
53 69
54 * org-publish.el (org-publish-index-generate-theindex): rename 70 * org-publish.el (org-publish-index-generate-theindex): Rename
55 from `org-publish-index-generate-theindex.inc'. Use the file 71 from `org-publish-index-generate-theindex.inc'. Use the file
56 theindex.org directly instead of including theindex.inc. 72 theindex.org directly instead of including theindex.inc.
57 (org-publish-projects): Don't delete .orgx files. 73 (org-publish-projects): Don't delete .orgx files.
@@ -131,7 +147,7 @@
131 147
1322011-07-28 Nicolas Goaziou <n.goaziou@gmail.com> 1482011-07-28 Nicolas Goaziou <n.goaziou@gmail.com>
133 149
134 * org.el (org-timestamp-change): keep point in the same category 150 * org.el (org-timestamp-change): Keep point in the same category
135 when updating a time-stamp. This requires to be careful, as, 151 when updating a time-stamp. This requires to be careful, as,
136 depending on the locale, name of day might change of length during 152 depending on the locale, name of day might change of length during
137 the process. 153 the process.
@@ -582,7 +598,7 @@
582 598
5832011-07-28 Nicolas Goaziou <n.goaziou@gmail.com> 5992011-07-28 Nicolas Goaziou <n.goaziou@gmail.com>
584 600
585 * org.el (org-in-block-p): new function. 601 * org.el (org-in-block-p): New function.
586 602
587 * org-footnote.el (org-footnote-forbidden-blocks): New variable. 603 * org-footnote.el (org-footnote-forbidden-blocks): New variable.
588 (org-footnote-in-valid-context-p): New function. 604 (org-footnote-in-valid-context-p): New function.
@@ -876,131 +892,131 @@
876 892
8772011-07-28 Nicolas Goaziou <n.goaziou@gmail.com> 8932011-07-28 Nicolas Goaziou <n.goaziou@gmail.com>
878 894
879 * org-footnote.el (org-footnote-action): offer to create 895 * org-footnote.el (org-footnote-action): Offer to create
880 definition when none is found. 896 definition when none is found.
881 897
8822011-07-28 Nicolas Goaziou <n.goaziou@gmail.com> 8982011-07-28 Nicolas Goaziou <n.goaziou@gmail.com>
883 899
884 * org-footnote.el (org-footnote-re): avoid matching inactive 900 * org-footnote.el (org-footnote-re): Avoid matching inactive
885 time-stamps or check-box cookies. 901 time-stamps or check-box cookies.
886 (org-footnote-next-reference-or-definition): adapt to the new regexp. 902 (org-footnote-next-reference-or-definition): Adapt to the new regexp.
887 903
8882011-07-28 Nicolas Goaziou <n.goaziou@gmail.com> 9042011-07-28 Nicolas Goaziou <n.goaziou@gmail.com>
889 905
890 * org-exp.el (org-export-preprocess-string): if the last subtree 906 * org-exp.el (org-export-preprocess-string): If the last subtree
891 is commented, footnotes inserted during normalizing at the end of 907 is commented, footnotes inserted during normalizing at the end of
892 the buffer may get deleted. This patch ensures deletion comes 908 the buffer may get deleted. This patch ensures deletion comes
893 first, normalization second. 909 first, normalization second.
894 910
8952011-07-28 Nicolas Goaziou <n.goaziou@gmail.com> 9112011-07-28 Nicolas Goaziou <n.goaziou@gmail.com>
896 912
897 * org-exp.el (org-export-footnotes-data): change docstring. 913 * org-exp.el (org-export-footnotes-data): Change docstring.
898 (org-export-footnotes-seen): renamed from 914 (org-export-footnotes-seen): Rename from
899 org-export-footnotes-markers. 915 org-export-footnotes-markers.
900 916
901 * org-ascii.el (org-export-as-ascii): apply change. 917 * org-ascii.el (org-export-as-ascii): Apply change.
902 918
903 * org-docbook.el (org-export-as-docbook): apply change. 919 * org-docbook.el (org-export-as-docbook): Apply change.
904 920
905 * org-footnote.el (org-footnote-normalize): apply change. 921 * org-footnote.el (org-footnote-normalize): Apply change.
906 922
907 * org-html.el (org-export-as-html): apply change. 923 * org-html.el (org-export-as-html): Apply change.
908 924
909 * org-latex.el (org-export-as-latex): apply change. 925 * org-latex.el (org-export-as-latex): Apply change.
910 926
9112011-07-28 Nicolas Goaziou <n.goaziou@gmail.com> 9272011-07-28 Nicolas Goaziou <n.goaziou@gmail.com>
912 928
913 * org-latex.el (org-export-latex-preprocess): rely on 929 * org-latex.el (org-export-latex-preprocess): Rely on
914 `org-export-footnotes-markers' to retreive definition of the 930 `org-export-footnotes-markers' to retreive definition of the
915 current footnote during export. 931 current footnote during export.
916 932
9172011-07-28 Nicolas Goaziou <n.goaziou@gmail.com> 9332011-07-28 Nicolas Goaziou <n.goaziou@gmail.com>
918 934
919 * org-footnote.el (org-footnote-normalize): remember footnotes 935 * org-footnote.el (org-footnote-normalize): Remember footnotes
920 seen so far by the exporter when choosing the new marker. 936 seen so far by the exporter when choosing the new marker.
921 937
9222011-07-28 Nicolas Goaziou <n.goaziou@gmail.com> 9382011-07-28 Nicolas Goaziou <n.goaziou@gmail.com>
923 939
924 * org-footnote.el (org-footnote-normalize): make use of 940 * org-footnote.el (org-footnote-normalize): Make use of
925 `org-footnote-insert-pos-for-preprocessor'. 941 `org-footnote-insert-pos-for-preprocessor'.
926 942
9272011-07-28 Nicolas Goaziou <n.goaziou@gmail.com> 9432011-07-28 Nicolas Goaziou <n.goaziou@gmail.com>
928 944
929 * org-footnote.el (org-footnote-normalize): add `org-footnote' 945 * org-footnote.el (org-footnote-normalize): Add `org-footnote'
930 property to footnote markers when preparing for exportation. 946 property to footnote markers when preparing for exportation.
931 947
932 * org-html.el (org-export-as-html): read new property to decide 948 * org-html.el (org-export-as-html): Read new property to decide
933 when to export a footnote. 949 when to export a footnote.
934 950
935 * org-docbook.el (org-export-as-docbook): read new property to 951 * org-docbook.el (org-export-as-docbook): Read new property to
936 decide when to export a footnote. 952 decide when to export a footnote.
937 953
938 * org-latex.el (org-export-latex-preprocess): ensure footnote at 954 * org-latex.el (org-export-latex-preprocess): Ensure footnote at
939 column 0 cannot end a list containing it by adding 955 column 0 cannot end a list containing it by adding
940 `original-indentation' property to it. 956 `original-indentation' property to it.
941 957
9422011-07-28 Nicolas Goaziou <n.goaziou@gmail.com> 9582011-07-28 Nicolas Goaziou <n.goaziou@gmail.com>
943 959
944 * org-exp.el (org-export-preprocess-string): normalize footnotes 960 * org-exp.el (org-export-preprocess-string): Normalize footnotes
945 before marking lists ending. 961 before marking lists ending.
946 962
947 * org-latex.el (org-export-latex-preprocess): work with labels as 963 * org-latex.el (org-export-latex-preprocess): Work with labels as
948 strings and not as numbers. 964 strings and not as numbers.
949 965
9502011-07-28 Nicolas Goaziou <n.goaziou@gmail.com> 9662011-07-28 Nicolas Goaziou <n.goaziou@gmail.com>
951 967
952 * org-docbook.el (org-export-docbook-footnote-separator): new 968 * org-docbook.el (org-export-docbook-footnote-separator): New
953 variable 969 variable.
954 (org-export-as-docbook): add a separator between footnotes. 970 (org-export-as-docbook): Add a separator between footnotes.
955 971
956 * org-html.el (org-export-html-footnote-separator): new variable. 972 * org-html.el (org-export-html-footnote-separator): New variable.
957 (org-export-as-html): add a separator between footnotes. 973 (org-export-as-html): Add a separator between footnotes.
958 974
959 * org-latex.el (org-export-latex-footnote-separator): new 975 * org-latex.el (org-export-latex-footnote-separator): New
960 variable. 976 variable.
961 (org-export-latex-preprocess): add a separator between footnotes. 977 (org-export-latex-preprocess): Add a separator between footnotes.
962 978
9632011-07-28 Nicolas Goaziou <n.goaziou@gmail.com> 9792011-07-28 Nicolas Goaziou <n.goaziou@gmail.com>
964 980
965 * org-exp.el (org-export-footnotes-markers) 981 * org-exp.el (org-export-footnotes-markers)
966 (org-export-footnotes-data): new variables. 982 (org-export-footnotes-data): New variables.
967 (org-export-preprocess-string): use a more explicit argument. 983 (org-export-preprocess-string): Use a more explicit argument.
968 984
9692011-07-28 Nicolas Goaziou <n.goaziou@gmail.com> 9852011-07-28 Nicolas Goaziou <n.goaziou@gmail.com>
970 986
971 * org-footnote.el (org-footnote-goto-definition): now, determining 987 * org-footnote.el (org-footnote-goto-definition): Now, determining
972 if point is at a footnote reference is entirely determined by 988 if point is at a footnote reference is entirely determined by
973 `org-footnote-at-reference-p'. No need to check if pattern isn't 989 `org-footnote-at-reference-p'. No need to check if pattern isn't
974 at beginning of the line elsewhere. 990 at beginning of the line elsewhere.
975 991
9762011-07-28 Nicolas Goaziou <n.goaziou@gmail.com> 9922011-07-28 Nicolas Goaziou <n.goaziou@gmail.com>
977 993
978 * org-footnote.el (org-footnote-next-reference-or-definition): new 994 * org-footnote.el (org-footnote-next-reference-or-definition): New
979 function. 995 function.
980 996
981 * org.el (org-activate-footnote-links): activate the whole 997 * org.el (org-activate-footnote-links): Activate the whole
982 footnote, but only fontify its label. 998 footnote, but only fontify its label.
983 999
9842011-07-28 Nicolas Goaziou <n.goaziou@gmail.com> 10002011-07-28 Nicolas Goaziou <n.goaziou@gmail.com>
985 1001
986 * org-footnote.el (org-footnote-normalize): make use of changes to 1002 * org-footnote.el (org-footnote-normalize): Make use of changes to
987 `org-footnote-at-reference-p' and creation of various functions.. 1003 `org-footnote-at-reference-p' and creation of various functions..
988 Also comment code. 1004 Also comment code.
989 (org-footnote-get-next-reference, org-footnote-delete-references, 1005 (org-footnote-get-next-reference, org-footnote-delete-references)
990 org-footnote-delete-definitions): new functions 1006 (org-footnote-delete-definitions): New functions.
991 (org-footnote-goto-previous-reference, org-footnote-all-labels, 1007 (org-footnote-goto-previous-reference, org-footnote-all-labels)
992 org-insert-footnote-reference-near-definition, org-footnote-delete): 1008 (org-insert-footnote-reference-near-definition, org-footnote-delete):
993 rewrite to use org-footnote-get-next-reference. 1009 Rewrite to use org-footnote-get-next-reference.
994 1010
9952011-07-28 Nicolas Goaziou <n.goaziou@gmail.com> 10112011-07-28 Nicolas Goaziou <n.goaziou@gmail.com>
996 1012
997 * org-footnote.el (org-footnote-re): don't end an inline footnote 1013 * org-footnote.el (org-footnote-re): Don't end an inline footnote
998 at unrelated closing square brackets. 1014 at unrelated closing square brackets.
999 (org-footnote-at-reference-p): improve accuracy of the function to 1015 (org-footnote-at-reference-p): Improve accuracy of the function to
1000 determine if point is at a reference and to extract definition of an 1016 determine if point is at a reference and to extract definition of an
1001 inline footnote. 1017 inline footnote.
1002 (org-footnote-all-labels, org-footnote-action, org-footnote-delete, 1018 (org-footnote-all-labels, org-footnote-action, org-footnote-delete)
1003 org-footnote-auto-adjust-maybe): make use of previous function. 1019 (org-footnote-auto-adjust-maybe): Make use of previous function.
1004 1020
10052011-07-28 Bastien Guerry <bzg@gnu.org> 10212011-07-28 Bastien Guerry <bzg@gnu.org>
1006 1022
@@ -1054,14 +1070,14 @@
1054 1070
10552011-07-28 Nicolas Goaziou <n.goaziou@gmail.com> 10712011-07-28 Nicolas Goaziou <n.goaziou@gmail.com>
1056 1072
1057 * org-list.el (org-cycle-item-indentation): cycling back to 1073 * org-list.el (org-cycle-item-indentation): Cycling back to
1058 original position deleted any additional information in the item, 1074 original position deleted any additional information in the item,
1059 like a counter or a tag. 1075 like a counter or a tag.
1060 1076
10612011-07-28 Pieter Praet <pieter@praet.org> 10772011-07-28 Pieter Praet <pieter@praet.org>
1062 1078
1063 * org-crypt.el (org-crypt-disable-auto-save): New defcustom. 1079 * org-crypt.el (org-crypt-disable-auto-save): New defcustom.
1064 (org-decrypt-entry): before decrypting, check whether 1080 (org-decrypt-entry): Before decrypting, check whether
1065 `auto-save-mode' is enabled for the current buffer, and act on it 1081 `auto-save-mode' is enabled for the current buffer, and act on it
1066 according to how `org-crypt-disable-auto-save' is set. Remove 1082 according to how `org-crypt-disable-auto-save' is set. Remove
1067 comment re "encrypt[ing] Org auto-saved buffers". Remove on-init 1083 comment re "encrypt[ing] Org auto-saved buffers". Remove on-init
@@ -1245,29 +1261,29 @@
1245 1261
12462011-07-28 Eric Schulte <schulte.eric@gmail.com> 12622011-07-28 Eric Schulte <schulte.eric@gmail.com>
1247 1263
1248 * ob-C.el (ob-tangle): initialize variable from `ob-tangle'. 1264 * ob-C.el (ob-tangle): Initialize variable from `ob-tangle'.
1249 1265
1250 * ob-asymptote.el (ob-tangle): initialize variable from `ob-tangle'. 1266 * ob-asymptote.el (ob-tangle): Initialize variable from `ob-tangle'.
1251 1267
1252 * ob-awk.el (ob-tangle): initialize variable from `ob-tangle'. 1268 * ob-awk.el (ob-tangle): Initialize variable from `ob-tangle'.
1253 1269
1254 * ob-clojure.el (ob-tangle): initialize variable from `ob-tangle'. 1270 * ob-clojure.el (ob-tangle): Initialize variable from `ob-tangle'.
1255 1271
1256 * ob-haskell.el (ob-tangle): initialize variable from `ob-tangle'. 1272 * ob-haskell.el (ob-tangle): Initialize variable from `ob-tangle'.
1257 1273
1258 * ob-latex.el (ob-tangle): initialize variable from `ob-tangle'. 1274 * ob-latex.el (ob-tangle): Initialize variable from `ob-tangle'.
1259 1275
1260 * ob-lisp.el (ob-tangle): initialize variable from `ob-tangle'. 1276 * ob-lisp.el (ob-tangle): Initialize variable from `ob-tangle'.
1261 1277
1262 * ob-ocaml.el (ob-tangle): initialize variable from `ob-tangle'. 1278 * ob-ocaml.el (ob-tangle): Initialize variable from `ob-tangle'.
1263 1279
1264 * ob-perl.el (ob-tangle): initialize variable from `ob-tangle'. 1280 * ob-perl.el (ob-tangle): Initialize variable from `ob-tangle'.
1265 1281
1266 * ob-python.el (ob-tangle): initialize variable from `ob-tangle'. 1282 * ob-python.el (ob-tangle): Initialize variable from `ob-tangle'.
1267 1283
1268 * ob-ruby.el (ob-tangle): initialize variable from `ob-tangle'. 1284 * ob-ruby.el (ob-tangle): Initialize variable from `ob-tangle'.
1269 1285
1270 * ob-tangle.el (ob-tangle): initialize variable from `ob-tangle'. 1286 * ob-tangle.el (ob-tangle): Initialize variable from `ob-tangle'.
1271 1287
12722011-07-28 Eric Schulte <schulte.eric@gmail.com> 12882011-07-28 Eric Schulte <schulte.eric@gmail.com>
1273 1289
@@ -1290,12 +1306,12 @@
1290 1306
12912011-07-28 Nicolas Goaziou <n.goaziou@gmail.com> 13072011-07-28 Nicolas Goaziou <n.goaziou@gmail.com>
1292 1308
1293 * org-list.el (org-reset-checkbox-state-subtree): make the command 1309 * org-list.el (org-reset-checkbox-state-subtree): Make the command
1294 more robust, and correctly update check-boxes in the whole 1310 more robust, and correctly update check-boxes in the whole
1295 sub-tree. 1311 sub-tree.
1296 (org-update-checkbox-count): fix bug accumulating count of checkboxes 1312 (org-update-checkbox-count): Fix bug accumulating count of checkboxes
1297 when walking a subtree. 1313 when walking a subtree.
1298 (org-update-checkbox-count-maybe): add an optional argument passed to 1314 (org-update-checkbox-count-maybe): Add an optional argument passed to
1299 org-update-checkbox-count. 1315 org-update-checkbox-count.
1300 1316
13012011-07-28 Ted Zlatanov <tzz@lifelogs.com> 13172011-07-28 Ted Zlatanov <tzz@lifelogs.com>
@@ -1321,9 +1337,9 @@
1321 1337
13222011-07-28 Nicolas Goaziou <n.goaziou@gmail.com> 13382011-07-28 Nicolas Goaziou <n.goaziou@gmail.com>
1323 1339
1324 * org-list.el (org-list-parse-list): replace transitional 1340 * org-list.el (org-list-parse-list): Replace transitional
1325 check-boxes with "[CBTRANS]" string during parsing. 1341 check-boxes with "[CBTRANS]" string during parsing.
1326 (org-list-to-generic): use the new property `:cbtrans' to configure 1342 (org-list-to-generic): Use the new property `:cbtrans' to configure
1327 export string for transitional check-boxes. 1343 export string for transitional check-boxes.
1328 1344
13292011-07-28 Carsten Dominik <carsten.dominik@gmail.com> 13452011-07-28 Carsten Dominik <carsten.dominik@gmail.com>
@@ -1965,7 +1981,7 @@
1965 1981
19662011-07-28 Carsten Dominik <carsten.dominik@gmail.com> 19822011-07-28 Carsten Dominik <carsten.dominik@gmail.com>
1967 1983
1968 * org-latex.el (org-export-latex-preprocess): Protect index string 1984 * org-latex.el (org-export-latex-preprocess): Protect index string.
1969 1985
19702011-07-28 Carsten Dominik <carsten.dominik@gmail.com> 19862011-07-28 Carsten Dominik <carsten.dominik@gmail.com>
1971 1987
@@ -2119,11 +2135,11 @@
2119 (org-bibtex-headline): Make use of new 2135 (org-bibtex-headline): Make use of new
2120 `org-bibtex-export-arbitrary-fields' and `org-bibtex-key-property' 2136 `org-bibtex-export-arbitrary-fields' and `org-bibtex-key-property'
2121 variables. 2137 variables.
2122 (org-bibtex-autokey): Make use of new `org-bibtex-key-property' 2138 (org-bibtex-autokey): Make use of new `org-bibtex-key-property'
2123 variable. 2139 variable.
2124 (org-bibtex-fleshout): Make use of new `org-bibtex-key-property' 2140 (org-bibtex-fleshout): Make use of new `org-bibtex-key-property'
2125 variable. 2141 variable.
2126 (org-bibtex-write): Make use of new `org-bibtex-key-property' 2142 (org-bibtex-write): Make use of new `org-bibtex-key-property'
2127 variable. 2143 variable.
2128 2144
21292011-07-28 Eric Schulte <schulte.eric@gmail.com> 21452011-07-28 Eric Schulte <schulte.eric@gmail.com>
@@ -2247,7 +2263,7 @@
22472011-07-28 Manuel Giraud <manuel.giraud@univ-nantes.fr> 22632011-07-28 Manuel Giraud <manuel.giraud@univ-nantes.fr>
2248 2264
2249 * org-html.el (org-html-handle-links): Add an alternate for inline 2265 * org-html.el (org-html-handle-links): Add an alternate for inline
2250 images 2266 images.
2251 2267
22522011-07-28 Carsten Dominik <carsten.dominik@gmail.com> 22682011-07-28 Carsten Dominik <carsten.dominik@gmail.com>
2253 2269
@@ -2293,7 +2309,7 @@
2293 2309
2294 * ob-python.el (org-babel-python-evaluate-external-process): Allow 2310 * ob-python.el (org-babel-python-evaluate-external-process): Allow
2295 parsing as a table in the case of ":results output table". 2311 parsing as a table in the case of ":results output table".
2296 (org-babel-python-evaluate-session): Allow parsing as a table in 2312 (org-babel-python-evaluate-session): Allow parsing as a table in
2297 the case of ":results output table". 2313 the case of ":results output table".
2298 2314
22992011-07-28 Carsten Dominik <carsten.dominik@gmail.com> 23152011-07-28 Carsten Dominik <carsten.dominik@gmail.com>
@@ -2343,7 +2359,7 @@
2343 2359
2344 * org.el (org-set-font-lock-defaults): Be more strict when 2360 * org.el (org-set-font-lock-defaults): Be more strict when
2345 recognizing description items, and do not fontify wrong cases 2361 recognizing description items, and do not fontify wrong cases
2346 like: "- term ::description" or "1. term :: description" 2362 like: "- term ::description" or "1. term :: description".
2347 2363
23482011-07-28 Nicolas Goaziou <n.goaziou@gmail.com> 23642011-07-28 Nicolas Goaziou <n.goaziou@gmail.com>
2349 2365
@@ -2789,7 +2805,7 @@
2789 2805
27902011-07-28 Bastien Guerry <bzg@gnu.org> 28062011-07-28 Bastien Guerry <bzg@gnu.org>
2791 2807
2792 * org-html.el (org-export-as-html): fix export of email. 2808 * org-html.el (org-export-as-html): Fix export of email.
2793 2809
27942011-07-28 Eric Schulte <schulte.eric@gmail.com> 28102011-07-28 Eric Schulte <schulte.eric@gmail.com>
2795 2811
@@ -2810,11 +2826,11 @@
2810 2826
28112011-07-28 Bastien Guerry <bzg@gnu.org> 28272011-07-28 Bastien Guerry <bzg@gnu.org>
2812 2828
2813 * org-crypt.el: remove useless TODO in comments. 2829 * org-crypt.el: Remove useless TODO in comments.
2814 2830
28152011-07-28 Bastien Guerry <bzg@gnu.org> 28312011-07-28 Bastien Guerry <bzg@gnu.org>
2816 2832
2817 * org-html.el (org-export-as-html): the default postamble now only 2833 * org-html.el (org-export-as-html): The default postamble now only
2818 export a date paragraph if `org-export-time-stamp-file' is 2834 export a date paragraph if `org-export-time-stamp-file' is
2819 non-nil. 2835 non-nil.
2820 2836
@@ -2894,12 +2910,12 @@
28942011-07-28 Bernt Hansen <bernt@norang.ca> 29102011-07-28 Bernt Hansen <bernt@norang.ca>
2895 2911
2896 * org-clock.el (org-clock-in): Allow clocking in new tasks 2912 * org-clock.el (org-clock-in): Allow clocking in new tasks
2897 inserted before the current clocking task 2913 inserted before the current clocking task.
2898 2914
28992011-07-28 Bernt Hansen <bernt@norang.ca> 29152011-07-28 Bernt Hansen <bernt@norang.ca>
2900 2916
2901 * org-clock.el (org-clock-in): Set default clocking task when 2917 * org-clock.el (org-clock-in): Set default clocking task when
2902 already clocking the task 2918 already clocking the task.
2903 2919
29042011-07-28 Nicolas Goaziou <n.goaziou@gmail.com> 29202011-07-28 Nicolas Goaziou <n.goaziou@gmail.com>
2905 2921
@@ -2920,9 +2936,9 @@
2920 2936
29212011-07-28 Manuel Giraud <manuel.giraud@univ-nantes.fr> 29372011-07-28 Manuel Giraud <manuel.giraud@univ-nantes.fr>
2922 2938
2923 * org-html.el (org-format-org-table-html): fix anchors in HTML 2939 * org-html.el (org-format-org-table-html): Fix anchors in HTML
2924 export (thanks to <aankhen@gmail.com>) 2940 export (thanks to <aankhen@gmail.com>)
2925 (org-html-protect): fix a bug that prevents some target to be 2941 (org-html-protect): Fix a bug that prevents some target to be
2926 rendered correctly. 2942 rendered correctly.
2927 2943
29282011-07-28 Bastien Guerry <bzg@gnu.org> 29442011-07-28 Bastien Guerry <bzg@gnu.org>
@@ -3007,15 +3023,15 @@
3007 3023
30082011-07-28 Bastien Guerry <bzg@gnu.org> 30242011-07-28 Bastien Guerry <bzg@gnu.org>
3009 3025
3010 * org-capture.el (org-capture-put-target-region-and-position): New 3026 * org-capture.el (org-capture-put-target-region-and-position):
3011 function to store information about the target buffer. 3027 New function to store information about the target buffer.
3012 (org-capture-set-target-location): Use it. 3028 (org-capture-set-target-location): Use it.
3013 (org-capture-finalize): restore the target buffer in its 3029 (org-capture-finalize): Restore the target buffer in its
3014 possibly narrowed state. Also restore the cursor position. 3030 possibly narrowed state. Also restore the cursor position.
3015 3031
30162011-07-28 Bastien Guerry <bzg@gnu.org> 30322011-07-28 Bastien Guerry <bzg@gnu.org>
3017 3033
3018 * org-crypt.el (auto-save-default): make sure entries are 3034 * org-crypt.el (auto-save-default): Make sure entries are
3019 encrypted before auto-saving. 3035 encrypted before auto-saving.
3020 3036
30212011-07-28 Nicolas Goaziou <n.goaziou@gmail.com> 30372011-07-28 Nicolas Goaziou <n.goaziou@gmail.com>
@@ -3031,7 +3047,7 @@
3031 3047
30322011-07-28 Nicolas Goaziou <n.goaziou@gmail.com> 30482011-07-28 Nicolas Goaziou <n.goaziou@gmail.com>
3033 3049
3034 * org.el (org-narrow-to-subtree): ensure `org-back-to-heading' 3050 * org.el (org-narrow-to-subtree): Ensure `org-back-to-heading'
3035 will move point to a real heading and not an inline task by 3051 will move point to a real heading and not an inline task by
3036 wraping function into a `org-with-limited-levels' macro. 3052 wraping function into a `org-with-limited-levels' macro.
3037 3053
@@ -3045,7 +3061,7 @@
30452011-07-28 Bastien Guerry <bzg@gnu.org> 30612011-07-28 Bastien Guerry <bzg@gnu.org>
3046 3062
3047 * org.el (org-refile-get-targets): Rename from 3063 * org.el (org-refile-get-targets): Rename from
3048 `org-get-refile-targets.' 3064 `org-get-refile-targets'.
3049 3065
30502011-07-28 Bastien Guerry <bzg@gnu.org> 30662011-07-28 Bastien Guerry <bzg@gnu.org>
3051 3067
@@ -3055,7 +3071,7 @@
3055 3071
30562011-07-28 Bastien Guerry <bzg@gnu.org> 30722011-07-28 Bastien Guerry <bzg@gnu.org>
3057 3073
3058 * org-table.el (org-table-fix-formulas-confirm): new custom 3074 * org-table.el (org-table-fix-formulas-confirm): New custom
3059 variable. 3075 variable.
3060 (org-table-insert-column, org-table-delete-column) 3076 (org-table-insert-column, org-table-delete-column)
3061 (org-table-move-column, org-table-move-row) 3077 (org-table-move-column, org-table-move-row)
@@ -3085,14 +3101,14 @@
3085 3101
30862011-07-28 Lawrence Mitchell <wence@gmx.li> 31022011-07-28 Lawrence Mitchell <wence@gmx.li>
3087 3103
3088 * org-latex.el: place \title \author \date before 3104 * org-latex.el: Place \title \author \date before
3089 \begin{document}. 3105 \begin{document}.
3090 3106
30912011-07-28 Bastien Guerry <bzg@gnu.org> 31072011-07-28 Bastien Guerry <bzg@gnu.org>
3092 3108
3093 * org-html.el (org-export-html-preamble) 3109 * org-html.el (org-export-html-preamble)
3094 (org-export-html-postamble): now default to `nil'. 3110 (org-export-html-postamble): Now default to `nil'.
3095 (org-export-as-html): when :html-pre/postamble is nil, fall 3111 (org-export-as-html): When :html-pre/postamble is nil, fall
3096 back on the default pre/postamble, which depends on the 3112 back on the default pre/postamble, which depends on the
3097 :author-info, :email-info, :creator-info options. 3113 :author-info, :email-info, :creator-info options.
3098 3114
@@ -3113,7 +3129,7 @@
3113 3129
31142011-07-28 Bastien Guerry <bzg@gnu.org> 31302011-07-28 Bastien Guerry <bzg@gnu.org>
3115 3131
3116 * org.el (org-move-subtree-down): leave the cursor at the same 3132 * org.el (org-move-subtree-down): Leave the cursor at the same
3117 column we were at. 3133 column we were at.
3118 3134
31192011-07-28 Bastien Guerry <bzg@gnu.org> 31352011-07-28 Bastien Guerry <bzg@gnu.org>
@@ -3126,7 +3142,7 @@
3126 3142
31272011-07-28 Bastien Guerry <bzg@gnu.org> 31432011-07-28 Bastien Guerry <bzg@gnu.org>
3128 3144
3129 * org-exp.el (org-export-remove-headline-metadata): bugfix: don't 3145 * org-exp.el (org-export-remove-headline-metadata): Bugfix: don't
3130 case-fold-search to avoid mixing TODO keywords with real headline 3146 case-fold-search to avoid mixing TODO keywords with real headline
3131 words. 3147 words.
3132 3148
@@ -3152,7 +3168,7 @@
31522011-07-28 Bastien Guerry <bzg@gnu.org> 31682011-07-28 Bastien Guerry <bzg@gnu.org>
3153 3169
3154 * org-html.el (org-export-html-postamble-format) 3170 * org-html.el (org-export-html-postamble-format)
3155 (org-export-html-preamble-format): explain how to escape the 3171 (org-export-html-preamble-format): Explain how to escape the
3156 `%' character. 3172 `%' character.
3157 3173
31582011-07-28 Bastien Guerry <bzg@gnu.org> 31742011-07-28 Bastien Guerry <bzg@gnu.org>
@@ -3329,14 +3345,14 @@
33292011-07-28 Eric Schulte <schulte.eric@gmail.com> 33452011-07-28 Eric Schulte <schulte.eric@gmail.com>
3330 3346
3331 * ob-latex.el (org-babel-execute:latex): Add imagemagick options, 3347 * ob-latex.el (org-babel-execute:latex): Add imagemagick options,
3332 and for file types other than png and pdf it uses imagemagick to 3348 and for file types other than png and PDF it uses imagemagick to
3333 convert a compiled pdf file to the desired file type. 3349 convert a compiled PDF file to the desired file type.
3334 (convert-pdf): Convert a pdf file to a new file type using 3350 (convert-pdf): Convert a PDF file to a new file type using
3335 imagemagick. 3351 imagemagick.
3336 3352
33372011-07-28 Puneeth Chaganti <punchagan@gmail.com> 33532011-07-28 Puneeth Chaganti <punchagan@gmail.com>
3338 3354
3339 * org-capture.el (org-capture-fill-template): fix bug with the 3355 * org-capture.el (org-capture-fill-template): Fix bug with the
3340 display of interactive prompt in templates expansion. 3356 display of interactive prompt in templates expansion.
3341 3357
33422011-07-28 Reiner Steib <reiner.steib@gmx.de> 33582011-07-28 Reiner Steib <reiner.steib@gmx.de>
@@ -3495,7 +3511,7 @@
3495 * org.el (org-set-autofill-regexps): Use `org-item-re' in 3511 * org.el (org-set-autofill-regexps): Use `org-item-re' in
3496 `paragraph-start' to recognize alphabetical lists. 3512 `paragraph-start' to recognize alphabetical lists.
3497 (org-fill-paragraph): Enforce a pre-computed fill-prefix before 3513 (org-fill-paragraph): Enforce a pre-computed fill-prefix before
3498 calling `fill-paragraph' when point in in an item. Also prevent 3514 calling `fill-paragraph' when point is in an item. Also prevent
3499 paragraphs getting merged into an adjacent list upon filling. 3515 paragraphs getting merged into an adjacent list upon filling.
3500 (org-adaptive-fill-function): Make sure to determine real 3516 (org-adaptive-fill-function): Make sure to determine real
3501 fill-prefix for auto-fill. 3517 fill-prefix for auto-fill.
@@ -3593,7 +3609,7 @@
3593 3609
35942011-07-28 Nicolas Goaziou <n.goaziou@gmail.com> 36102011-07-28 Nicolas Goaziou <n.goaziou@gmail.com>
3595 3611
3596 * org-list.el (org-list-struct): when a line has org-example 3612 * org-list.el (org-list-struct): When a line has org-example
3597 property, skip the entire block. This is needed during export, 3613 property, skip the entire block. This is needed during export,
3598 for example when src blocks in org markup contain lists, and are 3614 for example when src blocks in org markup contain lists, and are
3599 returned verbatim because org isn't in the list of interpreted 3615 returned verbatim because org isn't in the list of interpreted
@@ -3702,7 +3718,7 @@
3702 * org-capture.el (org-capture-place-item): Reflect changes to 3718 * org-capture.el (org-capture-place-item): Reflect changes to
3703 `org-item-beginning-re'. 3719 `org-item-beginning-re'.
3704 3720
3705 * org-docbook.el (org-export-docbook-list-line): handle New type 3721 * org-docbook.el (org-export-docbook-list-line): Handle New type
3706 of items. 3722 of items.
3707 3723
3708 * org-exp.el (org-export-mark-list-end) 3724 * org-exp.el (org-export-mark-list-end)
@@ -3727,7 +3743,7 @@
3727 (org-in-item-p,org-list-struct,org-list-parse-list): Apply change. 3743 (org-in-item-p,org-list-struct,org-list-parse-list): Apply change.
3728 3744
3729 * org-exp.el (org-export-mark-list-end) 3745 * org-exp.el (org-export-mark-list-end)
3730 (org-export-mark-list-properties): Apply change 3746 (org-export-mark-list-properties): Apply change.
3731 3747
3732 * org-latex.el (org-export-latex-lists): Apply change. Also 3748 * org-latex.el (org-export-latex-lists): Apply change. Also
3733 prevent items with org-example property to be considered as real 3749 prevent items with org-example property to be considered as real
@@ -4161,7 +4177,7 @@
4161 4177
41622011-07-28 Bastien Guerry <bzg@gnu.org> 41782011-07-28 Bastien Guerry <bzg@gnu.org>
4163 4179
4164 * org-html.el (org-export-as-html): expand the HTML title. 4180 * org-html.el (org-export-as-html): Expand the HTML title.
4165 4181
41662011-07-28 Bastien Guerry <bzg@gnu.org> 41822011-07-28 Bastien Guerry <bzg@gnu.org>
4167 4183
@@ -4774,7 +4790,7 @@
4774 * ob-tangle.el (org-babel-spec-to-string): Adding "noweb" as a 4790 * ob-tangle.el (org-babel-spec-to-string): Adding "noweb" as a
4775 linking comment type 4791 linking comment type
4776 (org-babel-tangle-comment-links): Returns comment links for the 4792 (org-babel-tangle-comment-links): Returns comment links for the
4777 source code block at point 4793 source code block at point.
4778 4794
47792011-07-28 Bastien Guerry <bzg@gnu.org> 47952011-07-28 Bastien Guerry <bzg@gnu.org>
4780 4796
@@ -4855,7 +4871,7 @@
4855 4871
4856 * org-capture.el (org-capture-templates): Add %f and %F escapes 4872 * org-capture.el (org-capture-templates): Add %f and %F escapes
4857 (org-capture): Add more information to capture property list 4873 (org-capture): Add more information to capture property list
4858 (org-capture-fill-template): Handle %f and %F escapes 4874 (org-capture-fill-template): Handle %f and %F escapes.
4859 4875
48602011-07-28 David Maus <dmaus@ictsoc.de> 48762011-07-28 David Maus <dmaus@ictsoc.de>
4861 4877
@@ -4941,7 +4957,7 @@
4941 4957
49422011-07-28 Nicolas Goaziou <n.goaziou@gmail.com> 49582011-07-28 Nicolas Goaziou <n.goaziou@gmail.com>
4943 4959
4944 * org-exp.el (org-export-mark-list-ending): insert additional 4960 * org-exp.el (org-export-mark-list-ending): Insert additional
4945 newline characters if end-list-marker is at a wrong position. 4961 newline characters if end-list-marker is at a wrong position.
4946 4962
49472011-07-28 Eric Schulte <schulte.eric@gmail.com> 49632011-07-28 Eric Schulte <schulte.eric@gmail.com>
@@ -5003,7 +5019,7 @@
5003 output file. 5019 output file.
5004 5020
5005 * ob-sass.el (org-babel-execute:sass): Return nil if result has 5021 * ob-sass.el (org-babel-execute:sass): Return nil if result has
5006 been written to file 5022 been written to file.
5007 5023
50082011-07-28 Dan Davison <dandavison7@gmail.com> 50242011-07-28 Dan Davison <dandavison7@gmail.com>
5009 5025
@@ -5016,7 +5032,7 @@
5016 with code implementing the writing of graohical output to file. 5032 with code implementing the writing of graohical output to file.
5017 (org-babel-execute:R): Use `org-babel-R-graphical-output-file' to 5033 (org-babel-execute:R): Use `org-babel-R-graphical-output-file' to
5018 determine whether R is taking responsibility for writing output to 5034 determine whether R is taking responsibility for writing output to
5019 file; if so, this is signalled to ob.el by returning a nil result. 5035 file; if so, this is signaled to ob.el by returning a nil result.
5020 5036
50212011-07-28 Dan Davison <dandavison7@gmail.com> 50372011-07-28 Dan Davison <dandavison7@gmail.com>
5022 5038
@@ -5782,7 +5798,7 @@
5782 5798
57832010-12-11 Nicolas Goaziou <n.goaziou@gmail.com> 57992010-12-11 Nicolas Goaziou <n.goaziou@gmail.com>
5784 5800
5785 * org-exp.el (org-export-preprocess-string): delaying code block 5801 * org-exp.el (org-export-preprocess-string): Delay code block
5786 processing a bit to allow correct list parsing in the export string. 5802 processing a bit to allow correct list parsing in the export string.
5787 5803
57882010-12-11 Christopher Allan Webber <cwebber@dustycloud.org> 58042010-12-11 Christopher Allan Webber <cwebber@dustycloud.org>
@@ -5839,7 +5855,7 @@
5839 5855
58402010-12-11 Eric Schulte <schulte.eric@gmail.com> 58562010-12-11 Eric Schulte <schulte.eric@gmail.com>
5841 5857
5842 * ob-lob.el (org-babel-lob-get-info): including pass-through 5858 * ob-lob.el (org-babel-lob-get-info): Include pass-through
5843 header arguments in results variable header argument string. 5859 header arguments in results variable header argument string.
5844 5860
58452010-12-11 David Maus <dmaus@ictsoc.de> 58612010-12-11 David Maus <dmaus@ictsoc.de>
@@ -5863,7 +5879,7 @@
5863 5879
58642010-12-11 Nicolas Goaziou <n.goaziou@gmail.com> 58802010-12-11 Nicolas Goaziou <n.goaziou@gmail.com>
5865 5881
5866 * org.el (org-indent-line-function): simplify code and remove bug that 5882 * org.el (org-indent-line-function): Simplify code and remove bug that
5867 would insert a tab at the beginning of the line when trying to 5883 would insert a tab at the beginning of the line when trying to
5868 indent the item. 5884 indent the item.
5869 5885
@@ -5887,7 +5903,7 @@
5887 5903
58882010-12-11 Eric Schulte <schulte.eric@gmail.com> 59042010-12-11 Eric Schulte <schulte.eric@gmail.com>
5889 5905
5890 * ob-calc.el (org-babel-execute:calc): support for variables -- 5906 * ob-calc.el (org-babel-execute:calc): Support for variables --
5891 converts :var variables in calc variables. 5907 converts :var variables in calc variables.
5892 5908
58932010-12-11 Carsten Dominik <carsten.dominik@gmail.com> 59092010-12-11 Carsten Dominik <carsten.dominik@gmail.com>
@@ -7159,7 +7175,7 @@
7159 src blocks. 7175 src blocks.
7160 (org-speed-command-default-hook): The default hook for 7176 (org-speed-command-default-hook): The default hook for
7161 org-speed-command-hook. Factored out from org-self-insert-command 7177 org-speed-command-hook. Factored out from org-self-insert-command
7162 and mimics existing behaviour. 7178 and mimics existing behavior.
7163 (org-self-insert-command): Modified to use org-speed-command-hook. 7179 (org-self-insert-command): Modified to use org-speed-command-hook.
7164 7180
71652010-11-11 Carsten Dominik <carsten.dominik@gmail.com> 71812010-11-11 Carsten Dominik <carsten.dominik@gmail.com>
@@ -7465,7 +7481,7 @@
7465 7481
74662010-11-11 Eric Schulte <schulte.eric@gmail.com> 74822010-11-11 Eric Schulte <schulte.eric@gmail.com>
7467 7483
7468 * ob-tangle.el: autoload org-babel-tangle-lang-exts from ob-tangle. 7484 * ob-tangle.el: Autoload org-babel-tangle-lang-exts from ob-tangle.
7469 7485
74702010-11-11 Dan Davison <davison@stats.ox.ac.uk> 74862010-11-11 Dan Davison <davison@stats.ox.ac.uk>
7471 7487
@@ -8058,7 +8074,7 @@
80582010-11-11 Nicolas Goaziou <n.goaziou@gmail.com> 80742010-11-11 Nicolas Goaziou <n.goaziou@gmail.com>
8059 8075
8060 * org-list.el (org-insert-item-internal): Guessing of blank lines 8076 * org-list.el (org-insert-item-internal): Guessing of blank lines
8061 number is made by looking at neighbours items, if any. 8077 number is made by looking at neighboring items, if any.
8062 8078
80632010-11-11 Nicolas Goaziou <n.goaziou@gmail.com> 80792010-11-11 Nicolas Goaziou <n.goaziou@gmail.com>
8064 8080
@@ -8427,7 +8443,7 @@
8427 8443
84282010-11-11 Eric Schulte <schulte.eric@gmail.com> 84442010-11-11 Eric Schulte <schulte.eric@gmail.com>
8429 8445
8430 * ob-scheme.el: very preliminary support for evaluating scheme 8446 * ob-scheme.el: Very preliminary support for evaluating scheme
8431 code blocks. 8447 code blocks.
8432 8448
8433 * org.el (org-babel-load-languages): Adding scheme. 8449 * org.el (org-babel-load-languages): Adding scheme.
@@ -8537,7 +8553,7 @@
8537 8553
8538 * ob-latex.el (org-babel-execute:latex): Adding new ":fit" and 8554 * ob-latex.el (org-babel-execute:latex): Adding new ":fit" and
8539 ":border" header arguments which both use the "preview" latex 8555 ":border" header arguments which both use the "preview" latex
8540 package to fit the resulting pdf image to the figure. 8556 package to fit the resulting PDF image to the figure.
8541 8557
85422010-11-11 David Maus <dmaus@ictsoc.de> 85582010-11-11 David Maus <dmaus@ictsoc.de>
8543 8559
@@ -8596,8 +8612,8 @@
8596 8612
85972010-11-11 David Maus <dmaus@ictsoc.de> 86132010-11-11 David Maus <dmaus@ictsoc.de>
8598 8614
8599 * org-agenda.el (org-write-agenda): Delete postscript file after 8615 * org-agenda.el (org-write-agenda): Delete PostScript file after
8600 creating conversion to pdf. 8616 creating conversion to PDF.
8601 8617
86022010-11-11 David Maus <dmaus@ictsoc.de> 86182010-11-11 David Maus <dmaus@ictsoc.de>
8603 8619
@@ -10573,7 +10589,7 @@
10573 a list of symbols specifying which of the special keywords #+DATE, 10589 a list of symbols specifying which of the special keywords #+DATE,
10574 #+AUTHOR, #+EMAIL and #+TITLE should be hidden by font lock. 10590 #+AUTHOR, #+EMAIL and #+TITLE should be hidden by font lock.
10575 (org-fontify-meta-lines-and-blocks): Changes to font-lock code 10591 (org-fontify-meta-lines-and-blocks): Changes to font-lock code
10576 implementing new faces and hiding behaviour. 10592 implementing new faces and hiding behavior.
10577 10593
10578 * org-faces.el (org-document-title): New face for #+TITLE lines. 10594 * org-faces.el (org-document-title): New face for #+TITLE lines.
10579 (org-document-info): New face for #+DATE, #+AUTHOR, #+EMAIL lines. 10595 (org-document-info): New face for #+DATE, #+AUTHOR, #+EMAIL lines.
@@ -11436,7 +11452,7 @@
11436 package. 11452 package.
11437 11453
11438 * org-latex.el (org-export-latex-tables): Only add a caption when 11454 * org-latex.el (org-export-latex-tables): Only add a caption when
11439 macro in in longtable environments if one has been defined. 11455 macro is in longtable environments if one has been defined.
11440 11456
11441 * org-html.el (org-export-as-html): Only take title from buffer if 11457 * org-html.el (org-export-as-html): Only take title from buffer if
11442 not exporting body-only. 11458 not exporting body-only.
@@ -13804,7 +13820,7 @@
13804 13820
138052009-08-06 Bastien Guerry <bzg@altern.org> 138212009-08-06 Bastien Guerry <bzg@altern.org>
13806 13822
13807 * org.el (org-special-ctrl-a/e): Explicitely bind the value 13823 * org.el (org-special-ctrl-a/e): Explicitly bind the value
13808 'reversed for this option to the "true line boundary first" 13824 'reversed for this option to the "true line boundary first"
13809 behavior. 13825 behavior.
13810 (org-tags-match-list-sublevels): Document the 'indented value for 13826 (org-tags-match-list-sublevels): Document the 'indented value for
@@ -15555,7 +15571,7 @@
15555 * org.el (org-agenda-tags-todo-honor-ignore-options): 15571 * org.el (org-agenda-tags-todo-honor-ignore-options):
15556 Declare variable. 15572 Declare variable.
15557 15573
15558 * org-table.el (org-table-insert-hline): Fix typo in fuction call 15574 * org-table.el (org-table-insert-hline): Fix typo in function call
15559 to `backward-char'. 15575 to `backward-char'.
15560 15576
15561 * org-exp.el (org-export-as-html): Remove the initial space from 15577 * org-exp.el (org-export-as-html): Remove the initial space from
@@ -16478,14 +16494,14 @@
164782008-11-23 Carsten Dominik <carsten.dominik@gmail.com> 164942008-11-23 Carsten Dominik <carsten.dominik@gmail.com>
16479 16495
16480 * org-export-latex.el (org-export-latex-subcontent): 16496 * org-export-latex.el (org-export-latex-subcontent):
16481 Interprete target aliases as additonal labels. 16497 Interpret target aliases as additional labels.
16482 16498
16483 * org-exp.el (org-export-target-aliases): New variable. 16499 * org-exp.el (org-export-target-aliases): New variable.
16484 (org-export-preprocess-string) 16500 (org-export-preprocess-string)
16485 (org-export-handle-invisible-targets): Fill the alias alist. 16501 (org-export-handle-invisible-targets): Fill the alias alist.
16486 (org-export-as-html): Remove the &nbsp; from the anchor, and also 16502 (org-export-as-html): Remove the &nbsp; from the anchor, and also
16487 assign an id. 16503 assign an id.
16488 (org-html-level-start): Insert the target aliases as additonal 16504 (org-html-level-start): Insert the target aliases as additional
16489 anchors. 16505 anchors.
16490 16506
16491 * org.el (org-edit-fixed-width-region): Fix bug when starting a new 16507 * org.el (org-edit-fixed-width-region): Fix bug when starting a new
@@ -16833,7 +16849,7 @@
16833 16849
16834 * org-agenda.el (org-format-agenda-item) 16850 * org-agenda.el (org-format-agenda-item)
16835 (org-agenda-filter-make-matcher): Make sure tags are stored and 16851 (org-agenda-filter-make-matcher): Make sure tags are stored and
16836 compared donwcased. 16852 compared downcased.
16837 16853
168382008-10-26 Carsten Dominik <dominik@science.uva.nl> 168542008-10-26 Carsten Dominik <dominik@science.uva.nl>
16839 16855
@@ -17048,7 +17064,7 @@
17048 * org.el (org-entry-get-multivalued-property) 17064 * org.el (org-entry-get-multivalued-property)
17049 (org-entry-protect-space, org-entry-restore-space): 17065 (org-entry-protect-space, org-entry-restore-space):
17050 New functions. 17066 New functions.
17051 (org-file-apps-defaults-macosx): Let postscript files be opened by 17067 (org-file-apps-defaults-macosx): Let PostScript files be opened by
17052 preview. 17068 preview.
17053 (org-time-stamp-inactive): Call `org-time-stamp'. 17069 (org-time-stamp-inactive): Call `org-time-stamp'.
17054 (org-time-stamp): New argument `inactive'. Also edit inacive 17070 (org-time-stamp): New argument `inactive'. Also edit inacive
@@ -17286,7 +17302,7 @@
17286 (org-edit-fixed-width-region): Also try 17302 (org-edit-fixed-width-region): Also try
17287 `org-edit-fixed-width-region'. 17303 `org-edit-fixed-width-region'.
17288 (org-edit-fixed-width-region-mode): New option. 17304 (org-edit-fixed-width-region-mode): New option.
17289 (org-activate-code): Only interprete lines starting with colon 17305 (org-activate-code): Only interpret lines starting with colon
17290 plus a space as example lines. 17306 plus a space as example lines.
17291 17307
17292 * org-remember.el (org-remember-templates): Add nil instead of 17308 * org-remember.el (org-remember-templates): Add nil instead of
@@ -18033,4 +18049,3 @@
18033 18049
18034 You should have received a copy of the GNU General Public License 18050 You should have received a copy of the GNU General Public License
18035 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. 18051 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
18036
diff --git a/lisp/org/ob-haskell.el b/lisp/org/ob-haskell.el
index cae07036c57..236dbba28f1 100644
--- a/lisp/org/ob-haskell.el
+++ b/lisp/org/ob-haskell.el
@@ -29,7 +29,7 @@
29;; they can be run, but haskell code can also be run through an 29;; they can be run, but haskell code can also be run through an
30;; interactive interpreter. 30;; interactive interpreter.
31;; 31;;
32;; For now lets only allow evaluation using the haskell interpreter. 32;; For now let's only allow evaluation using the haskell interpreter.
33 33
34;;; Requirements: 34;;; Requirements:
35 35
@@ -80,7 +80,7 @@
80 (cdr (member org-babel-haskell-eoe 80 (cdr (member org-babel-haskell-eoe
81 (reverse (mapcar #'org-babel-trim raw))))))) 81 (reverse (mapcar #'org-babel-trim raw)))))))
82 (org-babel-reassemble-table 82 (org-babel-reassemble-table
83 (cond 83 (cond
84 ((equal result-type 'output) 84 ((equal result-type 'output)
85 (mapconcat #'identity (reverse (cdr results)) "\n")) 85 (mapconcat #'identity (reverse (cdr results)) "\n"))
86 ((equal result-type 'value) 86 ((equal result-type 'value)
diff --git a/lisp/org/ob-ocaml.el b/lisp/org/ob-ocaml.el
index ee7a7cc212c..78d309b9e13 100644
--- a/lisp/org/ob-ocaml.el
+++ b/lisp/org/ob-ocaml.el
@@ -29,7 +29,7 @@
29;; they can be run, but ocaml code can also be run through an 29;; they can be run, but ocaml code can also be run through an
30;; interactive interpreter. 30;; interactive interpreter.
31;; 31;;
32;; For now lets only allow evaluation using the ocaml interpreter. 32;; For now let's only allow evaluation using the ocaml interpreter.
33 33
34;;; Requirements: 34;;; Requirements:
35 35
@@ -99,7 +99,7 @@
99 (lambda (pair) (format "let %s = %s;;" (car pair) 99 (lambda (pair) (format "let %s = %s;;" (car pair)
100 (org-babel-ocaml-elisp-to-ocaml (cdr pair)))) 100 (org-babel-ocaml-elisp-to-ocaml (cdr pair))))
101 (mapcar #'cdr (org-babel-get-header params :var)))) 101 (mapcar #'cdr (org-babel-get-header params :var))))
102 102
103(defun org-babel-ocaml-elisp-to-ocaml (val) 103(defun org-babel-ocaml-elisp-to-ocaml (val)
104 "Return a string of ocaml code which evaluates to VAL." 104 "Return a string of ocaml code which evaluates to VAL."
105 (if (listp val) 105 (if (listp val)
diff --git a/lisp/org/ob-sql.el b/lisp/org/ob-sql.el
index 9274438c18e..7a5c7c8a46a 100644
--- a/lisp/org/ob-sql.el
+++ b/lisp/org/ob-sql.el
@@ -32,7 +32,7 @@
32;; 32;;
33;; Also SQL evaluation generally takes place inside of a database. 33;; Also SQL evaluation generally takes place inside of a database.
34;; 34;;
35;; For now lets just allow a generic ':cmdline' header argument. 35;; For now let's just allow a generic ':cmdline' header argument.
36;; 36;;
37;; TODO: 37;; TODO:
38;; 38;;
@@ -40,7 +40,7 @@
40;; - add more useful header arguments (user, passwd, database, etc...) 40;; - add more useful header arguments (user, passwd, database, etc...)
41;; - support for more engines (currently only supports mysql) 41;; - support for more engines (currently only supports mysql)
42;; - what's a reasonable way to drop table data into SQL? 42;; - what's a reasonable way to drop table data into SQL?
43;; 43;;
44 44
45;;; Code: 45;;; Code:
46(require 'ob) 46(require 'ob)
diff --git a/lisp/org/org-agenda.el b/lisp/org/org-agenda.el
index 53a0c5587a2..f7aa7bf4701 100644
--- a/lisp/org/org-agenda.el
+++ b/lisp/org/org-agenda.el
@@ -156,7 +156,7 @@ and `org-agenda-entry-text-maxlines'."
156 "Non-nil means export org-links as descriptive links in agenda added text. 156 "Non-nil means export org-links as descriptive links in agenda added text.
157This variable applies to the text added to the agenda when 157This variable applies to the text added to the agenda when
158`org-agenda-add-entry-text-maxlines' is larger than 0. 158`org-agenda-add-entry-text-maxlines' is larger than 0.
159When this variable nil, the URL will (also) be shown." 159When this variable is nil, the URL will (also) be shown."
160 :group 'org-agenda 160 :group 'org-agenda
161 :type 'boolean) 161 :type 'boolean)
162 162
@@ -339,7 +339,7 @@ agenda dispatcher \\[org-agenda]. Each entry is a list like this:
339 339
340key The key (one or more characters as a string) to be associated 340key The key (one or more characters as a string) to be associated
341 with the command. 341 with the command.
342desc A description of the command, when omitted or nil, a default 342desc A description of the command; when omitted or nil, a default
343 description is built using MATCH. 343 description is built using MATCH.
344type The command type, any of the following symbols: 344type The command type, any of the following symbols:
345 agenda The daily/weekly agenda. 345 agenda The daily/weekly agenda.
@@ -354,7 +354,7 @@ type The command type, any of the following symbols:
354match What to search for: 354match What to search for:
355 - a single keyword for TODO keyword searches 355 - a single keyword for TODO keyword searches
356 - a tags match expression for tags searches 356 - a tags match expression for tags searches
357 - a word search expression for text searches. 357 - a word search expression for text searches
358 - a regular expression for occur searches 358 - a regular expression for occur searches
359 For all other commands, this should be the empty string. 359 For all other commands, this should be the empty string.
360settings A list of option settings, similar to that in a let form, so like 360settings A list of option settings, similar to that in a let form, so like
@@ -363,7 +363,7 @@ settings A list of option settings, similar to that in a let form, so like
363files A list of files file to write the produced agenda buffer to 363files A list of files file to write the produced agenda buffer to
364 with the command `org-store-agenda-views'. 364 with the command `org-store-agenda-views'.
365 If a file name ends in \".html\", an HTML version of the buffer 365 If a file name ends in \".html\", an HTML version of the buffer
366 is written out. If it ends in \".ps\", a postscript version is 366 is written out. If it ends in \".ps\", a PostScript version is
367 produced. Otherwise, only the plain text is written to the file. 367 produced. Otherwise, only the plain text is written to the file.
368 368
369You can also define a set of commands, to create a composite agenda buffer. 369You can also define a set of commands, to create a composite agenda buffer.
@@ -2744,8 +2744,8 @@ This ensures the export commands can easily use it."
2744(defun org-write-agenda (file &optional open nosettings) 2744(defun org-write-agenda (file &optional open nosettings)
2745 "Write the current buffer (an agenda view) as a file. 2745 "Write the current buffer (an agenda view) as a file.
2746Depending on the extension of the file name, plain text (.txt), 2746Depending on the extension of the file name, plain text (.txt),
2747HTML (.html or .htm) or Postscript (.ps) is produced. 2747HTML (.html or .htm) or PostScript (.ps) is produced.
2748If the extension is .ics, run icalendar export over all files used 2748If the extension is .ics, run iCalendar export over all files used
2749to construct the agenda and limit the export to entries listed in the 2749to construct the agenda and limit the export to entries listed in the
2750agenda now. 2750agenda now.
2751With prefix argument OPEN, open the new file immediately. 2751With prefix argument OPEN, open the new file immediately.
@@ -2793,7 +2793,7 @@ higher priority settings."
2793 ((string-match "\\.ps\\'" file) 2793 ((string-match "\\.ps\\'" file)
2794 (require 'ps-print) 2794 (require 'ps-print)
2795 (ps-print-buffer-with-faces file) 2795 (ps-print-buffer-with-faces file)
2796 (message "Postscript written to %s" file)) 2796 (message "PostScript written to %s" file))
2797 ((string-match "\\.pdf\\'" file) 2797 ((string-match "\\.pdf\\'" file)
2798 (require 'ps-print) 2798 (require 'ps-print)
2799 (ps-print-buffer-with-faces 2799 (ps-print-buffer-with-faces
@@ -2972,7 +2972,7 @@ removed from the entry content. Currently only `planning' is allowed here."
2972 (nreverse markers))) 2972 (nreverse markers)))
2973 2973
2974(defun org-create-marker-find-array (marker-list) 2974(defun org-create-marker-find-array (marker-list)
2975 "Create a alist of files names with all marker positions in that file." 2975 "Create an alist of files names with all marker positions in that file."
2976 (let (f tbl m a p) 2976 (let (f tbl m a p)
2977 (while (setq m (pop marker-list)) 2977 (while (setq m (pop marker-list))
2978 (setq p (marker-position m) 2978 (setq p (marker-position m)
@@ -2997,7 +2997,7 @@ removed from the entry content. Currently only `planning' is allowed here."
2997 (member (point) (cdr a))))))) 2997 (member (point) (cdr a)))))))
2998 2998
2999(defun org-check-for-org-mode () 2999(defun org-check-for-org-mode ()
3000 "Make sure current buffer is in org-mode. Error if not." 3000 "Make sure current buffer is in Org-mode. Error if not."
3001 (or (org-mode-p) 3001 (or (org-mode-p)
3002 (error "Cannot execute org-mode agenda command on buffer in %s" 3002 (error "Cannot execute org-mode agenda command on buffer in %s"
3003 major-mode))) 3003 major-mode)))
@@ -3715,9 +3715,9 @@ given in `org-agenda-start-on-weekday'."
3715(defvar org-todo-only nil) 3715(defvar org-todo-only nil)
3716 3716
3717(defvar org-search-syntax-table nil 3717(defvar org-search-syntax-table nil
3718 "Special syntax table for org-mode search. 3718 "Special syntax table for Org-mode search.
3719In this table, we have single quotes not as word constituents, to 3719In this table, we have single quotes not as word constituents, so
3720that when \"+Ameli\" is searched as a work, it will also match \"Ameli's\"") 3720that when \"+Ameli\" is searched as a word, it will also match \"Ameli's\"")
3721 3721
3722(defun org-search-syntax-table () 3722(defun org-search-syntax-table ()
3723 (unless org-search-syntax-table 3723 (unless org-search-syntax-table
@@ -4425,7 +4425,7 @@ date. It also removes lines that contain only whitespace."
4425 (setq string (org-modify-diary-entry-string string)))))) 4425 (setq string (org-modify-diary-entry-string string))))))
4426 4426
4427(defun org-modify-diary-entry-string (string) 4427(defun org-modify-diary-entry-string (string)
4428 "Add text properties to string, allowing org-mode to act on it." 4428 "Add text properties to string, allowing Org-mode to act on it."
4429 (org-add-props string nil 4429 (org-add-props string nil
4430 'mouse-face 'highlight 4430 'mouse-face 'highlight
4431 'help-echo (if buffer-file-name 4431 'help-echo (if buffer-file-name
@@ -5059,7 +5059,7 @@ See also the user option `org-agenda-clock-consistency-checks'."
5059 (/ (- tlend ts) 60)) 5059 (/ (- tlend ts) 60))
5060 face (or (plist-get pl :overlap-face) face))) 5060 face (or (plist-get pl :overlap-face) face)))
5061 ((and (> tlend 0) (> ts (+ tlend (* 60 maxgap)))) 5061 ((and (> tlend 0) (> ts (+ tlend (* 60 maxgap))))
5062 ;; There is a gap, lets see if we need to report it 5062 ;; There is a gap, let's see if we need to report it
5063 (unless (org-agenda-check-clock-gap tlend ts gapok) 5063 (unless (org-agenda-check-clock-gap tlend ts gapok)
5064 (setq issue (format "Clocking gap: %d minutes" 5064 (setq issue (format "Clocking gap: %d minutes"
5065 (/ (- ts tlend) 60)) 5065 (/ (- ts tlend) 60))
diff --git a/lisp/org/org-bbdb.el b/lisp/org/org-bbdb.el
index a7b6efae836..8401196c81a 100644
--- a/lisp/org/org-bbdb.el
+++ b/lisp/org/org-bbdb.el
@@ -357,7 +357,7 @@ This is used by Org to re-create the anniversary hash table."
357 (bbdb-record-name (car (bbdb-completing-read-record "Name: "))))) 357 (bbdb-record-name (car (bbdb-completing-read-record "Name: ")))))
358 358
359(defun org-bbdb-anniv-export-ical () 359(defun org-bbdb-anniv-export-ical ()
360 "Extract anniversaries from BBDB and convert them to icalendar format." 360 "Extract anniversaries from BBDB and convert them to iCalendar format."
361 (require 'bbdb) 361 (require 'bbdb)
362 (require 'diary-lib) 362 (require 'diary-lib)
363 (unless (hash-table-p org-bbdb-anniv-hash) 363 (unless (hash-table-p org-bbdb-anniv-hash)
diff --git a/lisp/org/org-beamer.el b/lisp/org/org-beamer.el
index 5cebe50efd1..d5f9beea337 100644
--- a/lisp/org/org-beamer.el
+++ b/lisp/org/org-beamer.el
@@ -411,7 +411,7 @@ the value will be inserted right after the documentclass statement."
411 411
412 412
413;; Functions to initialize and post-process 413;; Functions to initialize and post-process
414;; These fuctions will be hooked into various places in the export process 414;; These functions will be hooked into various places in the export process
415 415
416(defun org-beamer-initialize-open-trackers () 416(defun org-beamer-initialize-open-trackers ()
417 "Reset variables that track if certain environments are open during export." 417 "Reset variables that track if certain environments are open during export."
@@ -451,7 +451,7 @@ The effect is that these values will be accessible during export."
451 ((stringp org-beamer-frame-level-now) 451 ((stringp org-beamer-frame-level-now)
452 (setq org-beamer-frame-level-now 452 (setq org-beamer-frame-level-now
453 (string-to-number org-beamer-frame-level-now)))) 453 (string-to-number org-beamer-frame-level-now))))
454 ;; Find the header additons, most likely theme commands 454 ;; Find the header additions, most likely theme commands
455 (setq org-beamer-header-extra 455 (setq org-beamer-header-extra
456 (or (and (org-region-active-p) 456 (or (and (org-region-active-p)
457 (save-excursion 457 (save-excursion
diff --git a/lisp/org/org-bibtex.el b/lisp/org/org-bibtex.el
index 5c9b37b2341..138d99a36d9 100644
--- a/lisp/org/org-bibtex.el
+++ b/lisp/org/org-bibtex.el
@@ -204,7 +204,7 @@
204 (:pages . "One or more page numbers or range of numbers, such as 42-111 or 7,41,73-97 or 43+ (the ‘+’ in this last example indicates pages following that don’t form simple range). BibTEX requires double dashes for page ranges (--).") 204 (:pages . "One or more page numbers or range of numbers, such as 42-111 or 7,41,73-97 or 43+ (the ‘+’ in this last example indicates pages following that don’t form simple range). BibTEX requires double dashes for page ranges (--).")
205 (:publisher . "The publisher’s name.") 205 (:publisher . "The publisher’s name.")
206 (:school . "The name of the school where a thesis was written.") 206 (:school . "The name of the school where a thesis was written.")
207 (:series . "The name of a series or set of books. When citing an entire book, the the title field gives its title and an optional series field gives the name of a series or multi-volume set in which the book is published.") 207 (:series . "The name of a series or set of books. When citing an entire book, the title field gives its title and an optional series field gives the name of a series or multi-volume set in which the book is published.")
208 (:title . "The work’s title, typed as explained in the LaTeX book.") 208 (:title . "The work’s title, typed as explained in the LaTeX book.")
209 (:type . "The type of a technical report for example, 'Research Note'.") 209 (:type . "The type of a technical report for example, 'Research Note'.")
210 (:volume . "The volume of a journal or multi-volume book.") 210 (:volume . "The volume of a journal or multi-volume book.")
@@ -221,7 +221,7 @@
221 221
222(defcustom org-bibtex-prefix nil 222(defcustom org-bibtex-prefix nil
223 "Optional prefix for all bibtex property names. 223 "Optional prefix for all bibtex property names.
224For example setting to 'BIB_' would allow interoperability with fireforg." 224For example setting to 'BIB_' would allow interoperability with Fireforg."
225 :group 'org-bibtex 225 :group 'org-bibtex
226 :type 'string) 226 :type 'string)
227 227
diff --git a/lisp/org/org-clock.el b/lisp/org/org-clock.el
index de5087e163c..6279ed3df0d 100644
--- a/lisp/org/org-clock.el
+++ b/lisp/org/org-clock.el
@@ -1261,7 +1261,7 @@ line and position cursor in that line."
1261 (and (re-search-forward org-property-end-re nil t) 1261 (and (re-search-forward org-property-end-re nil t)
1262 (goto-char (match-beginning 0)))) 1262 (goto-char (match-beginning 0))))
1263 (throw 'exit t)) 1263 (throw 'exit t))
1264 ;; Lets count the CLOCK lines 1264 ;; Let's count the CLOCK lines
1265 (goto-char beg) 1265 (goto-char beg)
1266 (while (re-search-forward re end t) 1266 (while (re-search-forward re end t)
1267 (setq first (or first (match-beginning 0)) 1267 (setq first (or first (match-beginning 0))
@@ -2125,7 +2125,7 @@ the currently selected interval size."
2125 "Write out a clock table at position IPOS in the current buffer. 2125 "Write out a clock table at position IPOS in the current buffer.
2126TABLES is a list of tables with clocking data as produced by 2126TABLES is a list of tables with clocking data as produced by
2127`org-clock-get-table-data'. PARAMS is the parameter property list obtained 2127`org-clock-get-table-data'. PARAMS is the parameter property list obtained
2128from the dynamic block defintion." 2128from the dynamic block definition."
2129 ;; This function looks quite complicated, mainly because there are a 2129 ;; This function looks quite complicated, mainly because there are a
2130 ;; lot of options which can add or remove columns. I have massively 2130 ;; lot of options which can add or remove columns. I have massively
2131 ;; commented this function, the I hope it is understandable. If 2131 ;; commented this function, the I hope it is understandable. If
@@ -2641,4 +2641,3 @@ The details of what will be saved are regulated by the variable
2641 2641
2642 2642
2643;;; org-clock.el ends here 2643;;; org-clock.el ends here
2644
diff --git a/lisp/org/org-compat.el b/lisp/org/org-compat.el
index 896acc5aeae..5e4935caa7e 100644
--- a/lisp/org/org-compat.el
+++ b/lisp/org/org-compat.el
@@ -272,7 +272,7 @@ Works on both Emacs and XEmacs."
272 nil)) 272 nil))
273 273
274(defmacro org-xemacs-without-invisibility (&rest body) 274(defmacro org-xemacs-without-invisibility (&rest body)
275 "Turn off exents with invisibility while executing BODY." 275 "Turn off extents with invisibility while executing BODY."
276 `(let ((ext-inv (extent-list nil (point-at-bol) (point-at-eol) 276 `(let ((ext-inv (extent-list nil (point-at-bol) (point-at-eol)
277 'all-extents-closed-open 'invisible)) 277 'all-extents-closed-open 'invisible))
278 ext-inv-specs) 278 ext-inv-specs)
diff --git a/lisp/org/org-ctags.el b/lisp/org/org-ctags.el
index 48eced9ea08..352d414a4b6 100644
--- a/lisp/org/org-ctags.el
+++ b/lisp/org/org-ctags.el
@@ -64,19 +64,19 @@
64;; with the same name as the link; then, if unsuccessful, ask the user if 64;; with the same name as the link; then, if unsuccessful, ask the user if
65;; he/she wants to rebuild the 'TAGS' database and try again; then ask if 65;; he/she wants to rebuild the 'TAGS' database and try again; then ask if
66;; the user wishes to append 'tag' as a new toplevel heading at the end of 66;; the user wishes to append 'tag' as a new toplevel heading at the end of
67;; the buffer; and finally, defer to org's default behaviour which is to 67;; the buffer; and finally, defer to org's default behavior which is to
68;; search the entire text of the current buffer for 'tag'. 68;; search the entire text of the current buffer for 'tag'.
69;; 69;;
70;; This behaviour can be modified by changing the value of 70;; This behavior can be modified by changing the value of
71;; ORG-CTAGS-OPEN-LINK-FUNCTIONS. For example I have the following in my 71;; ORG-CTAGS-OPEN-LINK-FUNCTIONS. For example I have the following in my
72;; .emacs, which describes the same behaviour as the above paragraph with 72;; .emacs, which describes the same behavior as the above paragraph with
73;; one difference: 73;; one difference:
74;; 74;;
75;; (setq org-ctags-open-link-functions 75;; (setq org-ctags-open-link-functions
76;; '(org-ctags-find-tag 76;; '(org-ctags-find-tag
77;; org-ctags-ask-rebuild-tags-file-then-find-tag 77;; org-ctags-ask-rebuild-tags-file-then-find-tag
78;; org-ctags-ask-append-topic 78;; org-ctags-ask-append-topic
79;; org-ctags-fail-silently)) ; <-- prevents org default behaviour 79;; org-ctags-fail-silently)) ; <-- prevents org default behavior
80;; 80;;
81;; 81;;
82;; Usage 82;; Usage
diff --git a/lisp/org/org-footnote.el b/lisp/org/org-footnote.el
index 223d2573fdb..0d47132d2f8 100644
--- a/lisp/org/org-footnote.el
+++ b/lisp/org/org-footnote.el
@@ -574,7 +574,7 @@ normalized footnotes towards the end of the pre-processing buffer.
574Some exporters like docbook, odt, etc. expect that footnote 574Some exporters like docbook, odt, etc. expect that footnote
575definitions be available before any references to them. Such 575definitions be available before any references to them. Such
576exporters can let bind `org-footnote-insert-pos-for-preprocessor' to 576exporters can let bind `org-footnote-insert-pos-for-preprocessor' to
577symbol 'point-min to achieve the desired behaviour. 577symbol 'point-min to achieve the desired behavior.
578 578
579Additional note on `org-footnote-insert-pos-for-preprocessor': 579Additional note on `org-footnote-insert-pos-for-preprocessor':
5801. This variable has not effect when FOR-PREPROCESSOR is nil. 5801. This variable has not effect when FOR-PREPROCESSOR is nil.
diff --git a/lisp/org/org-icalendar.el b/lisp/org/org-icalendar.el
index dd64fc2f783..8a2d66306f3 100644
--- a/lisp/org/org-icalendar.el
+++ b/lisp/org/org-icalendar.el
@@ -204,7 +204,7 @@ When nil of the empty string, use the abbreviation retrieved from Emacs."
204 (if org-icalendar-use-UTC-date-time 204 (if org-icalendar-use-UTC-date-time
205 ":%Y%m%dT%H%M%SZ" 205 ":%Y%m%dT%H%M%SZ"
206 ":%Y%m%dT%H%M%S") 206 ":%Y%m%dT%H%M%S")
207 "Format-string for exporting icalendar DATE-TIME. 207 "Format-string for exporting iCalendar DATE-TIME.
208See `format-time-string' for a full documentation. The only 208See `format-time-string' for a full documentation. The only
209difference is that `org-icalendar-timezone' is used for %Z. 209difference is that `org-icalendar-timezone' is used for %Z.
210 210
diff --git a/lisp/org/org-latex.el b/lisp/org/org-latex.el
index 0402b2da964..7abf85a7092 100644
--- a/lisp/org/org-latex.el
+++ b/lisp/org/org-latex.el
@@ -304,8 +304,8 @@ markup defined, the first one in the association list will be used."
304 304
305(defcustom org-export-latex-href-format "\\href{%s}{%s}" 305(defcustom org-export-latex-href-format "\\href{%s}{%s}"
306 "A printf format string to be applied to href links. 306 "A printf format string to be applied to href links.
307The format must contain either two %s instances or just one. 307The format must contain either two %s instances or just one.
308If it contains two %s instances, the first will be filled with 308If it contains two %s instances, the first will be filled with
309the link, the second with the link description. If it contains 309the link, the second with the link description. If it contains
310only one, the %s will be filled with the link." 310only one, the %s will be filled with the link."
311 :group 'org-export-latex 311 :group 'org-export-latex
@@ -594,7 +594,7 @@ and `org-export-with-tags' instead."
594 "Extensions of image files that can be inlined into LaTeX. 594 "Extensions of image files that can be inlined into LaTeX.
595Note that the image extension *actually* allowed depend on the way the 595Note that the image extension *actually* allowed depend on the way the
596LaTeX file is processed. When used with pdflatex, pdf, jpg and png images 596LaTeX file is processed. When used with pdflatex, pdf, jpg and png images
597are OK. When processing through dvi to Postscript, only ps and eps are 597are OK. When processing through dvi to PostScript, only ps and eps are
598allowed. The default we use here encompasses both." 598allowed. The default we use here encompasses both."
599 :group 'org-export-latex 599 :group 'org-export-latex
600 :type '(repeat (string :tag "Extension"))) 600 :type '(repeat (string :tag "Extension")))
@@ -2203,7 +2203,7 @@ The conversion is made depending of STRING-BEFORE and STRING-AFTER."
2203 ;; a LaTeX issue, but we here implement a work-around anyway. 2203 ;; a LaTeX issue, but we here implement a work-around anyway.
2204 (setq path (org-export-latex-protect-amp path) 2204 (setq path (org-export-latex-protect-amp path)
2205 desc (org-export-latex-protect-amp desc))) 2205 desc (org-export-latex-protect-amp desc)))
2206 (insert 2206 (insert
2207 (if (string-match "%s.*%s" org-export-latex-href-format) 2207 (if (string-match "%s.*%s" org-export-latex-href-format)
2208 (format org-export-latex-href-format path desc) 2208 (format org-export-latex-href-format path desc)
2209 (format org-export-latex-href-format path)))) 2209 (format org-export-latex-href-format path))))
diff --git a/lisp/org/org-list.el b/lisp/org/org-list.el
index d3c5dd99aa6..9184f0c3d54 100644
--- a/lisp/org/org-list.el
+++ b/lisp/org/org-list.el
@@ -70,12 +70,12 @@
70;; (a few thousand lines long). Thus, code should follow the rule : 70;; (a few thousand lines long). Thus, code should follow the rule :
71;; "collect once, use many". As a corollary, it is usally a bad idea 71;; "collect once, use many". As a corollary, it is usally a bad idea
72;; to use directly an interactive function inside the code, as those, 72;; to use directly an interactive function inside the code, as those,
73;; being independant entities, read the whole list structure another 73;; being independent entities, read the whole list structure another
74;; time. 74;; time.
75 75
76;;; Code: 76;;; Code:
77 77
78(eval-when-compile 78(eval-when-compile
79 (require 'cl)) 79 (require 'cl))
80(require 'org-macs) 80(require 'org-macs)
81(require 'org-compat) 81(require 'org-compat)
@@ -681,7 +681,7 @@ Assume point is at an item."
681 (cond 681 (cond
682 ((<= (point) lim-up) 682 ((<= (point) lim-up)
683 ;; At upward limit: if we ended at an item, store it, 683 ;; At upward limit: if we ended at an item, store it,
684 ;; else dimiss useless data recorded above BEG-CELL. 684 ;; else dismiss useless data recorded above BEG-CELL.
685 ;; Jump to part 2. 685 ;; Jump to part 2.
686 (throw 'exit 686 (throw 'exit
687 (setq itm-lst 687 (setq itm-lst
@@ -1177,7 +1177,7 @@ some heuristics to guess the result."
1177 ;; When `org-blank-before-new-entry' says so, it is 1. 1177 ;; When `org-blank-before-new-entry' says so, it is 1.
1178 ((eq insert-blank-p t) 1) 1178 ((eq insert-blank-p t) 1)
1179 ;; `plain-list-item' is 'auto. Count blank lines separating 1179 ;; `plain-list-item' is 'auto. Count blank lines separating
1180 ;; neighbours items in list. 1180 ;; neighboring items in list.
1181 (t (let ((next-p (org-list-get-next-item item struct prevs))) 1181 (t (let ((next-p (org-list-get-next-item item struct prevs)))
1182 (cond 1182 (cond
1183 ;; Is there a next item? 1183 ;; Is there a next item?
@@ -1207,7 +1207,7 @@ some heuristics to guess the result."
1207If POS is before first character after bullet of the item, the 1207If POS is before first character after bullet of the item, the
1208new item will be created before the current one. 1208new item will be created before the current one.
1209 1209
1210STRUCT is the list structure. PREVS is the the alist of previous 1210STRUCT is the list structure. PREVS is the alist of previous
1211items, as returned by `org-list-prevs-alist'. 1211items, as returned by `org-list-prevs-alist'.
1212 1212
1213Insert a checkbox if CHECKBOX is non-nil, and string AFTER-BULLET 1213Insert a checkbox if CHECKBOX is non-nil, and string AFTER-BULLET
@@ -2642,7 +2642,7 @@ If a region is active, all items inside will be moved."
2642(defvar org-tab-ind-state) 2642(defvar org-tab-ind-state)
2643(defun org-cycle-item-indentation () 2643(defun org-cycle-item-indentation ()
2644 "Cycle levels of indentation of an empty item. 2644 "Cycle levels of indentation of an empty item.
2645The first run indents the item, if applicable. Subsequents runs 2645The first run indents the item, if applicable. Subsequent runs
2646outdent it at meaningful levels in the list. When done, item is 2646outdent it at meaningful levels in the list. When done, item is
2647put back at its original position with its original bullet. 2647put back at its original position with its original bullet.
2648 2648
diff --git a/lisp/org/org-plot.el b/lisp/org/org-plot.el
index b90c248eb6d..419467226c9 100644
--- a/lisp/org/org-plot.el
+++ b/lisp/org/org-plot.el
@@ -136,7 +136,7 @@ Pass PARAMS through to `orgtbl-to-generic' when exporting TABLE."
136 "Export the data in TABLE to DATA-FILE for gnuplot. 136 "Export the data in TABLE to DATA-FILE for gnuplot.
137This means in a format appropriate for grid plotting by gnuplot. 137This means in a format appropriate for grid plotting by gnuplot.
138PARAMS specifies which columns of TABLE should be plotted as independent 138PARAMS specifies which columns of TABLE should be plotted as independent
139and dependant variables." 139and dependent variables."
140 (interactive) 140 (interactive)
141 (let* ((ind (- (plist-get params :ind) 1)) 141 (let* ((ind (- (plist-get params :ind) 1))
142 (deps (if (plist-member params :deps) 142 (deps (if (plist-member params :deps)
diff --git a/lisp/org/org-publish.el b/lisp/org/org-publish.el
index ddb3cf7b63a..0c924cd9f07 100644
--- a/lisp/org/org-publish.el
+++ b/lisp/org/org-publish.el
@@ -191,7 +191,7 @@ sitemap of files or summary page for a given project.
191 display folders first or last, respectively. 191 display folders first or last, respectively.
192 Any other value will mix files and folders. 192 Any other value will mix files and folders.
193 :sitemap-sort-files The site map is normally sorted alphabetically. 193 :sitemap-sort-files The site map is normally sorted alphabetically.
194 You can change this behaviour setting this to 194 You can change this behavior setting this to
195 `chronologically', `anti-chronologically' or nil. 195 `chronologically', `anti-chronologically' or nil.
196 :sitemap-ignore-case Should sorting be case-sensitive? Default nil. 196 :sitemap-ignore-case Should sorting be case-sensitive? Default nil.
197 197
@@ -1114,7 +1114,7 @@ so that the file including them will be republished as well."
1114 (let ((ctime (org-publish-cache-ctime-of-src filename))) 1114 (let ((ctime (org-publish-cache-ctime-of-src filename)))
1115 (or (< pstamp ctime) 1115 (or (< pstamp ctime)
1116 (when included-files-ctime 1116 (when included-files-ctime
1117 (not (null (delq nil (mapcar (lambda(ct) (< ctime ct)) 1117 (not (null (delq nil (mapcar (lambda(ct) (< ctime ct))
1118 included-files-ctime)))))))))) 1118 included-files-ctime))))))))))
1119 1119
1120(defun org-publish-cache-set-file-property (filename property value &optional project-name) 1120(defun org-publish-cache-set-file-property (filename property value &optional project-name)
diff --git a/lisp/org/org-remember.el b/lisp/org/org-remember.el
index 2bc5ef92ae7..8819f416f1d 100644
--- a/lisp/org/org-remember.el
+++ b/lisp/org/org-remember.el
@@ -63,7 +63,7 @@ and `org-remember-default-headline'. To force prompting anyway, use
63\\[universal-argument] \\[org-remember-finalize] to file the note. 63\\[universal-argument] \\[org-remember-finalize] to file the note.
64 64
65When this variable is nil, \\[org-remember-finalize] gives you the prompts, and 65When this variable is nil, \\[org-remember-finalize] gives you the prompts, and
66\\[universal-argument] \\[org-remember-finalize] triggers the fasttrack." 66\\[universal-argument] \\[org-remember-finalize] triggers the fast track."
67 :group 'org-remember 67 :group 'org-remember
68 :type 'boolean) 68 :type 'boolean)
69 69
@@ -1122,7 +1122,7 @@ See also the variable `org-reverse-note-order'."
1122 (condition-case nil 1122 (condition-case nil
1123 (require 'remember) 1123 (require 'remember)
1124 (error 1124 (error
1125 ;; Lets install our own micro version of remember 1125 ;; Let's install our own micro version of remember
1126 (defvar remember-register ?R) 1126 (defvar remember-register ?R)
1127 (defvar remember-mode-hook nil) 1127 (defvar remember-mode-hook nil)
1128 (defvar remember-handler-functions nil) 1128 (defvar remember-handler-functions nil)
@@ -1153,4 +1153,3 @@ See also the variable `org-reverse-note-order'."
1153 1153
1154 1154
1155;;; org-remember.el ends here 1155;;; org-remember.el ends here
1156
diff --git a/lisp/org/org-table.el b/lisp/org/org-table.el
index 7f49b3236ee..2fba931528e 100644
--- a/lisp/org/org-table.el
+++ b/lisp/org/org-table.el
@@ -2204,7 +2204,7 @@ For all numbers larger than LIMIT, shift them by DELTA."
2204 (string-match "^[a-zA-Z][a-zA-Z0-9]*$" field)) 2204 (string-match "^[a-zA-Z][a-zA-Z0-9]*$" field))
2205 (push (cons field v) org-table-local-parameters) 2205 (push (cons field v) org-table-local-parameters)
2206 (push (list field line col) org-table-named-field-locations)))) 2206 (push (list field line col) org-table-named-field-locations))))
2207 ;; Analyse the line types 2207 ;; Analyze the line types
2208 (goto-char beg) 2208 (goto-char beg)
2209 (setq org-table-current-begin-line (org-current-line) 2209 (setq org-table-current-begin-line (org-current-line)
2210 org-table-current-begin-pos (point) 2210 org-table-current-begin-pos (point)
@@ -2432,7 +2432,7 @@ not overwrite the stored one."
2432 duration-output-format nil 2432 duration-output-format nil
2433 fmt (replace-match "" t t fmt))) 2433 fmt (replace-match "" t t fmt)))
2434 (if (string-match "t" fmt) 2434 (if (string-match "t" fmt)
2435 (setq duration t 2435 (setq duration t
2436 duration-output-format org-table-duration-custom-format 2436 duration-output-format org-table-duration-custom-format
2437 numbers t 2437 numbers t
2438 fmt (replace-match "" t t fmt))) 2438 fmt (replace-match "" t t fmt)))
@@ -2500,7 +2500,7 @@ not overwrite the stored one."
2500 ;; Insert complex ranges 2500 ;; Insert complex ranges
2501 (while (and (string-match org-table-range-regexp form) 2501 (while (and (string-match org-table-range-regexp form)
2502 (> (length (match-string 0 form)) 1)) 2502 (> (length (match-string 0 form)) 1))
2503 (setq formrg (save-match-data 2503 (setq formrg (save-match-data
2504 (org-table-get-range (match-string 0 form) nil n0))) 2504 (org-table-get-range (match-string 0 form) nil n0)))
2505 (setq formrpl 2505 (setq formrpl
2506 (save-match-data 2506 (save-match-data
@@ -4723,4 +4723,3 @@ list of the fields in the rectangle ."
4723 4723
4724 4724
4725;;; org-table.el ends here 4725;;; org-table.el ends here
4726
diff --git a/lisp/org/org.el b/lisp/org/org.el
index da39aa189ba..25bfb8a78e8 100644
--- a/lisp/org/org.el
+++ b/lisp/org/org.el
@@ -1480,9 +1480,9 @@ When nil, the link search tries to match a phrase with all words
1480in the search text." 1480in the search text."
1481 :group 'org-link-follow 1481 :group 'org-link-follow
1482 :type '(choice 1482 :type '(choice
1483 (const :tag "Use fuzy text search" nil) 1483 (const :tag "Use fuzzy text search" nil)
1484 (const :tag "Match only exact headline" t) 1484 (const :tag "Match only exact headline" t)
1485 (const :tag "Match extact headline or query to create it" 1485 (const :tag "Match exact headline or query to create it"
1486 query-to-create))) 1486 query-to-create)))
1487 1487
1488(defcustom org-link-frame-setup 1488(defcustom org-link-frame-setup
@@ -2681,7 +2681,7 @@ When this variable is set to t, the date/time prompt will not let
2681you specify dates outside the 1970-2037 range, so it is certain that 2681you specify dates outside the 1970-2037 range, so it is certain that
2682these dates will work in whatever version of Emacs you are 2682these dates will work in whatever version of Emacs you are
2683running, and also that you can move a file from one Emacs implementation 2683running, and also that you can move a file from one Emacs implementation
2684to another. WHenever Org is forcing the year for you, it will display 2684to another. Whenever Org is forcing the year for you, it will display
2685a message and beep. 2685a message and beep.
2686 2686
2687When this variable is nil, Org will check if the date is 2687When this variable is nil, Org will check if the date is
@@ -2924,7 +2924,7 @@ is better to limit inheritance to certain tags using the variables
2924 (const :tag "List them, indented with leading dots" indented))) 2924 (const :tag "List them, indented with leading dots" indented)))
2925 2925
2926(defcustom org-tags-sort-function nil 2926(defcustom org-tags-sort-function nil
2927 "When set, tags are sorted using this function as a comparator." 2927 "When set, tags are sorted using this comparison function."
2928 :group 'org-tags 2928 :group 'org-tags
2929 :type '(choice 2929 :type '(choice
2930 (const :tag "No sorting" nil) 2930 (const :tag "No sorting" nil)
@@ -5052,7 +5052,7 @@ The time stamps may be either active or inactive.")
5052(defvar org-emph-face nil) 5052(defvar org-emph-face nil)
5053 5053
5054(defun org-do-emphasis-faces (limit) 5054(defun org-do-emphasis-faces (limit)
5055 "Run through the buffer and add overlays to emphasised strings." 5055 "Run through the buffer and add overlays to emphasized strings."
5056 (let (rtn a) 5056 (let (rtn a)
5057 (while (and (not rtn) (re-search-forward org-emph-re limit t)) 5057 (while (and (not rtn) (re-search-forward org-emph-re limit t))
5058 (if (not (= (char-after (match-beginning 3)) 5058 (if (not (= (char-after (match-beginning 3))
@@ -5549,7 +5549,7 @@ Use `org-reduced-level' to remove the effect of `org-odd-levels'."
5549 5549
5550(defvar org-font-lock-set-keywords-hook nil 5550(defvar org-font-lock-set-keywords-hook nil
5551 "Functions that can manipulate `org-font-lock-extra-keywords'. 5551 "Functions that can manipulate `org-font-lock-extra-keywords'.
5552This is calles after `org-font-lock-extra-keywords' is defined, but before 5552This is called after `org-font-lock-extra-keywords' is defined, but before
5553it is installed to be used by font lock. This can be useful if something 5553it is installed to be used by font lock. This can be useful if something
5554needs to be inserted at a specific position in the font-lock sequence.") 5554needs to be inserted at a specific position in the font-lock sequence.")
5555 5555
@@ -11217,7 +11217,7 @@ changes. Such blocking occurs when:
11217 (forward-line 1) 11217 (forward-line 1)
11218 (re-search-forward org-not-done-heading-regexp pos t)) 11218 (re-search-forward org-not-done-heading-regexp pos t))
11219 (throw 'dont-block nil)) ; block, there is an older sibling not done. 11219 (throw 'dont-block nil)) ; block, there is an older sibling not done.
11220 ;; Search further up the hierarchy, to see if an anchestor is blocked 11220 ;; Search further up the hierarchy, to see if an ancestor is blocked
11221 (while t 11221 (while t
11222 (goto-char parent-pos) 11222 (goto-char parent-pos)
11223 (if (not (looking-at org-not-done-heading-regexp)) 11223 (if (not (looking-at org-not-done-heading-regexp))
@@ -14835,7 +14835,7 @@ user."
14835 (setq ans (replace-match (format "%04d-%02d-%02d\\5" year month day) 14835 (setq ans (replace-match (format "%04d-%02d-%02d\\5" year month day)
14836 t nil ans))) 14836 t nil ans)))
14837 14837
14838 ;; Help matching dottet european dates 14838 ;; Help matching dotted european dates
14839 (when (string-match 14839 (when (string-match
14840 "^ *\\(3[01]\\|0?[1-9]\\|[12][0-9]\\)\\. ?\\(0?[1-9]\\|1[012]\\)\\. ?\\([1-9][0-9][0-9][0-9]\\)?" ans) 14840 "^ *\\(3[01]\\|0?[1-9]\\|[12][0-9]\\)\\. ?\\(0?[1-9]\\|1[012]\\)\\. ?\\([1-9][0-9][0-9][0-9]\\)?" ans)
14841 (setq year (if (match-end 3) 14841 (setq year (if (match-end 3)
diff --git a/lisp/outline.el b/lisp/outline.el
index 34d30fc4591..b5bf8296455 100644
--- a/lisp/outline.el
+++ b/lisp/outline.el
@@ -144,10 +144,10 @@ in the file it applies to."
144 :help "Promote headings higher up the tree")) 144 :help "Promote headings higher up the tree"))
145 (define-key map [headings move-subtree-down] 145 (define-key map [headings move-subtree-down]
146 '(menu-item "Move Subtree Down" outline-move-subtree-down 146 '(menu-item "Move Subtree Down" outline-move-subtree-down
147 :help "Move the currrent subtree down past arg headlines of the same level")) 147 :help "Move the current subtree down past arg headlines of the same level"))
148 (define-key map [headings move-subtree-up] 148 (define-key map [headings move-subtree-up]
149 '(menu-item "Move Subtree Up" outline-move-subtree-up 149 '(menu-item "Move Subtree Up" outline-move-subtree-up
150 :help "Move the currrent subtree up past arg headlines of the same level")) 150 :help "Move the current subtree up past arg headlines of the same level"))
151 (define-key map [headings copy] 151 (define-key map [headings copy]
152 '(menu-item "Copy to Kill Ring" outline-headers-as-kill 152 '(menu-item "Copy to Kill Ring" outline-headers-as-kill
153 :enable mark-active 153 :enable mark-active
@@ -642,12 +642,12 @@ the match data is set appropriately."
642;; Vertical tree motion 642;; Vertical tree motion
643 643
644(defun outline-move-subtree-up (&optional arg) 644(defun outline-move-subtree-up (&optional arg)
645 "Move the currrent subtree up past ARG headlines of the same level." 645 "Move the current subtree up past ARG headlines of the same level."
646 (interactive "p") 646 (interactive "p")
647 (outline-move-subtree-down (- arg))) 647 (outline-move-subtree-down (- arg)))
648 648
649(defun outline-move-subtree-down (&optional arg) 649(defun outline-move-subtree-down (&optional arg)
650 "Move the currrent subtree down past ARG headlines of the same level." 650 "Move the current subtree down past ARG headlines of the same level."
651 (interactive "p") 651 (interactive "p")
652 (let ((movfunc (if (> arg 0) 'outline-get-next-sibling 652 (let ((movfunc (if (> arg 0) 'outline-get-next-sibling
653 'outline-get-last-sibling)) 653 'outline-get-last-sibling))
diff --git a/lisp/play/5x5.el b/lisp/play/5x5.el
index 86e6b4abb6c..a7a332d97f2 100644
--- a/lisp/play/5x5.el
+++ b/lisp/play/5x5.el
@@ -151,7 +151,7 @@
151 "Local keymap for the 5x5 game.") 151 "Local keymap for the 5x5 game.")
152 152
153(5x5-defvar-local 5x5-solver-output nil 153(5x5-defvar-local 5x5-solver-output nil
154 "List that is is the output of artihmetic solver. 154 "List that is the output of an arithmetic solver.
155 155
156This list L is such that 156This list L is such that
157 157
@@ -162,8 +162,8 @@ M is the move count when the solve output was stored.
162S_1 ... S_N are all the solutions ordered from least to greatest 162S_1 ... S_N are all the solutions ordered from least to greatest
163number of strokes. S_1 is the solution to be displayed. 163number of strokes. S_1 is the solution to be displayed.
164 164
165Each solution S_1, ..., S_N is a a list (STROKE-COUNT GRID) where 165Each solution S_1, ..., S_N is a list (STROKE-COUNT GRID) where
166STROKE-COUNT is to number of strokes to achieve the solution and 166STROKE-COUNT is the number of strokes to achieve the solution and
167GRID is the grid of positions to click.") 167GRID is the grid of positions to click.")
168 168
169 169
@@ -816,9 +816,8 @@ solution that is presented is the one that needs least number of
816strokes --- other solutions can be viewed by rotating through the 816strokes --- other solutions can be viewed by rotating through the
817list. The list of solution is ordered by number of strokes, so 817list. The list of solution is ordered by number of strokes, so
818rotating left just after calling `5x5-solve-suggest' will show 818rotating left just after calling `5x5-solve-suggest' will show
819the the solution with second least number of strokes, while 819the solution with second least number of strokes, while rotating
820rotating right will show the solution with greatest number of 820right will show the solution with greatest number of strokes."
821strokes."
822 (interactive "P") 821 (interactive "P")
823 (let ((len (length 5x5-solver-output))) 822 (let ((len (length 5x5-solver-output)))
824 (when (>= len 3) 823 (when (>= len 3)
diff --git a/lisp/play/animate.el b/lisp/play/animate.el
index facdfa2f347..ec0cacc4a68 100644
--- a/lisp/play/animate.el
+++ b/lisp/play/animate.el
@@ -93,7 +93,7 @@
93 93
94(defvar animation-buffer-name nil 94(defvar animation-buffer-name nil
95 "*String naming the default buffer for animations. 95 "*String naming the default buffer for animations.
96When nil animations dipslayed in the buffer named *Animation*.") 96When nil animations displayed in the buffer named *Animation*.")
97 97
98;;;###autoload 98;;;###autoload
99(defun animate-string (string vpos &optional hpos) 99(defun animate-string (string vpos &optional hpos)
diff --git a/lisp/play/bruce.el b/lisp/play/bruce.el
index 168d528ecb1..a41d5a3d3d1 100644
--- a/lisp/play/bruce.el
+++ b/lisp/play/bruce.el
@@ -110,7 +110,7 @@
110 :group 'games) 110 :group 'games)
111 111
112(defcustom bruce-phrases-file "~/bruce.lines" 112(defcustom bruce-phrases-file "~/bruce.lines"
113 "Keep your favourite phrases here." 113 "Keep your favorite phrases here."
114 :type 'file 114 :type 'file
115 :group 'bruce) 115 :group 'bruce)
116 116
diff --git a/lisp/play/decipher.el b/lisp/play/decipher.el
index b9ce669533a..4d4ea71cd7a 100644
--- a/lisp/play/decipher.el
+++ b/lisp/play/decipher.el
@@ -672,7 +672,7 @@ X: A B C D E F G H I J K L M N O P Q R S T U V W X Y Z * 11 14 9%
672 1 1 1 2 1 1 2 5 7 672 1 1 1 2 1 1 2 5 7
673This says that X comes before D once, and after B once. X begins 5 673This says that X comes before D once, and after B once. X begins 5
674words, and ends 3 words (`*' represents a space). X comes before 8 674words, and ends 3 words (`*' represents a space). X comes before 8
675different letters, after 7 differerent letters, and is next to a total 675different letters, after 7 different letters, and is next to a total
676of 11 different letters. It occurs 14 times, making up 9% of the 676of 11 different letters. It occurs 14 times, making up 9% of the
677ciphertext." 677ciphertext."
678 (interactive (list (upcase (following-char)))) 678 (interactive (list (upcase (following-char))))
diff --git a/lisp/play/fortune.el b/lisp/play/fortune.el
index 55b0a564fef..a46c2ba8171 100644
--- a/lisp/play/fortune.el
+++ b/lisp/play/fortune.el
@@ -52,7 +52,7 @@
52;; (lambda () 52;; (lambda ()
53;; (define-key gnus-article-mode-map "i" 'fortune-from-region))) 53;; (define-key gnus-article-mode-map "i" 'fortune-from-region)))
54;; which allows marking a region and then pressing "i" so that the marked 54;; which allows marking a region and then pressing "i" so that the marked
55;; region will be automatically added to my favourite fortune-file. 55;; region will be automatically added to my favorite fortune-file.
56 56
57;;; Code: 57;;; Code:
58 58
diff --git a/lisp/play/landmark.el b/lisp/play/landmark.el
index f0e6670fe58..8629baf35d3 100644
--- a/lisp/play/landmark.el
+++ b/lisp/play/landmark.el
@@ -1584,7 +1584,7 @@ If the game is finished, this command requests for another game."
1584 1584
1585;;;_ - something which doesn't work 1585;;;_ - something which doesn't work
1586; no-a-worka!! 1586; no-a-worka!!
1587;(defum landmark-sum-list (list) 1587;(defun landmark-sum-list (list)
1588; (if (> (length list) 0) 1588; (if (> (length list) 0)
1589; (+ (car list) (landmark-sum-list (cdr list))) 1589; (+ (car list) (landmark-sum-list (cdr list)))
1590; 0)) 1590; 0))
diff --git a/lisp/play/solitaire.el b/lisp/play/solitaire.el
index 722c3b43033..b52ade6fdb7 100644
--- a/lisp/play/solitaire.el
+++ b/lisp/play/solitaire.el
@@ -190,7 +190,7 @@ That's all. Here's the board after two moves:
190 190
191 o o o 191 o o o
192 192
193Pick your favourite shortcuts: 193Pick your favorite shortcuts:
194 194
195\\{solitaire-mode-map}" 195\\{solitaire-mode-map}"
196 196
diff --git a/lisp/printing.el b/lisp/printing.el
index 9f98c2b6e29..c5951a4983f 100644
--- a/lisp/printing.el
+++ b/lisp/printing.el
@@ -4667,7 +4667,7 @@ bottom."
4667 "Interactively select a PostScript utility." 4667 "Interactively select a PostScript utility."
4668 (interactive) 4668 (interactive)
4669 (pr-menu-set-utility-title 4669 (pr-menu-set-utility-title
4670 (pr-complete-alist "Postscript utility" 4670 (pr-complete-alist "PostScript utility"
4671 pr-ps-utility-alist pr-ps-utility))) 4671 pr-ps-utility-alist pr-ps-utility)))
4672 4672
4673 4673
diff --git a/lisp/progmodes/ada-mode.el b/lisp/progmodes/ada-mode.el
index 89a37307506..9d2aad7741b 100644
--- a/lisp/progmodes/ada-mode.el
+++ b/lisp/progmodes/ada-mode.el
@@ -105,8 +105,8 @@
105;; should be loaded before the ada-mode, which will then setup some variables 105;; should be loaded before the ada-mode, which will then setup some variables
106;; to improve the support for Ada code. 106;; to improve the support for Ada code.
107;; Here is the list of these modes: 107;; Here is the list of these modes:
108;; `which-function-mode': Display the name of the subprogram the cursor is 108;; `which-function-mode': Display in the modeline the name of the subprogram
109;; in in the mode line. 109;; the cursor is in.
110;; `outline-mode': Provides the capability to collapse or expand the code 110;; `outline-mode': Provides the capability to collapse or expand the code
111;; for specific language constructs, for instance if you want to hide the 111;; for specific language constructs, for instance if you want to hide the
112;; code corresponding to a subprogram 112;; code corresponding to a subprogram
diff --git a/lisp/progmodes/ada-xref.el b/lisp/progmodes/ada-xref.el
index 4a57a1eef67..0cfdab23702 100644
--- a/lisp/progmodes/ada-xref.el
+++ b/lisp/progmodes/ada-xref.el
@@ -1163,7 +1163,8 @@ If OTHER-FRAME is non-nil, display the cross-reference in another frame."
1163 1163
1164(defun ada-goto-declaration-other-frame (pos) 1164(defun ada-goto-declaration-other-frame (pos)
1165 "Display the declaration of the identifier around POS. 1165 "Display the declaration of the identifier around POS.
1166The declation is shown in another frame if `ada-xref-other-buffer' is non-nil." 1166The declaration is shown in another frame if `ada-xref-other-buffer' is
1167non-nil."
1167 (interactive "d") 1168 (interactive "d")
1168 (ada-goto-declaration pos t)) 1169 (ada-goto-declaration pos t))
1169 1170
@@ -1747,7 +1748,7 @@ Information is extracted from the ali file."
1747 1748
1748 (unless declaration-found 1749 (unless declaration-found
1749 1750
1750 ;; Since we alread know the number of the file, search for a direct 1751 ;; Since we already know the number of the file, search for a direct
1751 ;; reference to it 1752 ;; reference to it
1752 (goto-char (point-min)) 1753 (goto-char (point-min))
1753 (set 'declaration-found t) 1754 (set 'declaration-found t)
diff --git a/lisp/progmodes/autoconf.el b/lisp/progmodes/autoconf.el
index 3aa9a6cfb87..fce725c3b3c 100644
--- a/lisp/progmodes/autoconf.el
+++ b/lisp/progmodes/autoconf.el
@@ -83,7 +83,8 @@ searching backwards at another AC_... command."
83 (set (make-local-variable 'defun-prompt-regexp) 83 (set (make-local-variable 'defun-prompt-regexp)
84 "^[ \t]*A[CM]_\\(\\sw\\|\\s_\\)+") 84 "^[ \t]*A[CM]_\\(\\sw\\|\\s_\\)+")
85 (set (make-local-variable 'comment-start) "dnl ") 85 (set (make-local-variable 'comment-start) "dnl ")
86 (set (make-local-variable 'comment-start-skip) "\\(?:\\<dnl\\|#\\) +") 86 (set (make-local-variable 'comment-start-skip)
87 "\\(?:\\(\\W\\|\\`\\)dnl\\|#\\) +")
87 (set (make-local-variable 'syntax-propertize-function) 88 (set (make-local-variable 'syntax-propertize-function)
88 (syntax-propertize-rules ("\\<dnl\\>" (0 "<")))) 89 (syntax-propertize-rules ("\\<dnl\\>" (0 "<"))))
89 (set (make-local-variable 'font-lock-defaults) 90 (set (make-local-variable 'font-lock-defaults)
diff --git a/lisp/progmodes/cc-awk.el b/lisp/progmodes/cc-awk.el
index d19ba47aa3f..aa1289cd632 100644
--- a/lisp/progmodes/cc-awk.el
+++ b/lisp/progmodes/cc-awk.el
@@ -71,7 +71,7 @@
71 ;; / can delimit regexes or be a division operator. By default we assume 71 ;; / can delimit regexes or be a division operator. By default we assume
72 ;; that it is a division sign, and fix the regexp operator cases with 72 ;; that it is a division sign, and fix the regexp operator cases with
73 ;; `font-lock-syntactic-keywords'. 73 ;; `font-lock-syntactic-keywords'.
74 (modify-syntax-entry ?/ "." st) ; ACM 2002/4/27. 74 (modify-syntax-entry ?/ "." st) ; ACM 2002/4/27.
75 (modify-syntax-entry ?* "." st) 75 (modify-syntax-entry ?* "." st)
76 (modify-syntax-entry ?+ "." st) 76 (modify-syntax-entry ?+ "." st)
77 (modify-syntax-entry ?- "." st) 77 (modify-syntax-entry ?- "." st)
@@ -195,7 +195,7 @@
195;; Matches the inside of an AWK regexp (i.e. without the enclosing /s) 195;; Matches the inside of an AWK regexp (i.e. without the enclosing /s)
196(defconst c-awk-regexp-without-end-re 196(defconst c-awk-regexp-without-end-re
197 (concat "/" c-awk-regexp-innards-re)) 197 (concat "/" c-awk-regexp-innards-re))
198;; Matches an AWK regexp up to, but not including, any terminating /. 198;; Matches an AWK regexp up to, but not including, any terminating /.
199(defconst c-awk-one-line-possibly-open-regexp-re 199(defconst c-awk-one-line-possibly-open-regexp-re
200 (concat "/\\(" c-awk-non-eol-esc-pair-re 200 (concat "/\\(" c-awk-non-eol-esc-pair-re
201 "\\|" c-awk-regexp-one-line-possibly-open-char-list-re 201 "\\|" c-awk-regexp-one-line-possibly-open-char-list-re
@@ -256,7 +256,7 @@
256 256
257 257
258;; ACM, 2002/5/29: 258;; ACM, 2002/5/29:
259;; 259;;
260;; The next section of code is about determining whether or not an AWK 260;; The next section of code is about determining whether or not an AWK
261;; statement is complete or not. We use this to indent the following line. 261;; statement is complete or not. We use this to indent the following line.
262;; The determination is pretty straightforward in C, where a statement ends 262;; The determination is pretty straightforward in C, where a statement ends
@@ -382,7 +382,7 @@
382 ;; Kludge: If c-backward-syntactic-ws gets stuck at a BOL, it is likely 382 ;; Kludge: If c-backward-syntactic-ws gets stuck at a BOL, it is likely
383 ;; that the previous line contains an unterminated string (without \). In 383 ;; that the previous line contains an unterminated string (without \). In
384 ;; this case, assume that the previous line's c-awk-NL-prop is a $. 384 ;; this case, assume that the previous line's c-awk-NL-prop is a $.
385 ;; 385 ;;
386 ;; POINT MUST BE AT THE START OF A LINE when calling this function. This 386 ;; POINT MUST BE AT THE START OF A LINE when calling this function. This
387 ;; is to ensure that the various backward-comment functions will work 387 ;; is to ensure that the various backward-comment functions will work
388 ;; properly. 388 ;; properly.
@@ -425,13 +425,13 @@
425 ;; Calculate and set the value of the c-awk-NL-prop on the immediately 425 ;; Calculate and set the value of the c-awk-NL-prop on the immediately
426 ;; preceding EOL. This may also involve doing the same for several 426 ;; preceding EOL. This may also involve doing the same for several
427 ;; preceding EOLs. 427 ;; preceding EOLs.
428 ;; 428 ;;
429 ;; NOTE that if the property was already set, we return it without 429 ;; NOTE that if the property was already set, we return it without
430 ;; recalculation. (This is by accident rather than design.) 430 ;; recalculation. (This is by accident rather than design.)
431 ;; 431 ;;
432 ;; Return the property which got set (or was already set) on the previous 432 ;; Return the property which got set (or was already set) on the previous
433 ;; line. Return nil if we hit BOB. 433 ;; line. Return nil if we hit BOB.
434 ;; 434 ;;
435 ;; See c-awk-after-if-for-while-condition-p for a description of DO-LIM. 435 ;; See c-awk-after-if-for-while-condition-p for a description of DO-LIM.
436 ;; 436 ;;
437 ;; This function might do hidden buffer changes. 437 ;; This function might do hidden buffer changes.
@@ -492,7 +492,7 @@
492 ;; if necessary. (As a special case, the property doesn't get set on an 492 ;; if necessary. (As a special case, the property doesn't get set on an
493 ;; empty line at EOB (there's no position to set the property on), but the 493 ;; empty line at EOB (there's no position to set the property on), but the
494 ;; function returns the property value an EOL would have got.) 494 ;; function returns the property value an EOL would have got.)
495 ;; 495 ;;
496 ;; See c-awk-after-if-for-while-condition-p for a description of DO-LIM. 496 ;; See c-awk-after-if-for-while-condition-p for a description of DO-LIM.
497 ;; 497 ;;
498 ;; This function might do hidden buffer changes. 498 ;; This function might do hidden buffer changes.
@@ -566,7 +566,7 @@
566 ;; this, a new newline inserted after an old newline (e.g. by C-j) would 566 ;; this, a new newline inserted after an old newline (e.g. by C-j) would
567 ;; inherit any c-awk-NL-prop from the old newline. This would be a Bad 567 ;; inherit any c-awk-NL-prop from the old newline. This would be a Bad
568 ;; Thing. This function's action is required by c-put-char-property. 568 ;; Thing. This function's action is required by c-put-char-property.
569 (if (and (boundp 'text-property-default-nonsticky) ; doesn't exist in Xemacs 569 (if (and (boundp 'text-property-default-nonsticky) ; doesn't exist in XEmacs
570 (not (assoc 'c-awk-NL-prop text-property-default-nonsticky))) 570 (not (assoc 'c-awk-NL-prop text-property-default-nonsticky)))
571 (setq text-property-default-nonsticky 571 (setq text-property-default-nonsticky
572 (cons '(c-awk-NL-prop . t) text-property-default-nonsticky)))) 572 (cons '(c-awk-NL-prop . t) text-property-default-nonsticky))))
@@ -611,7 +611,7 @@
611;; Go back to the start of the (apparent) current line (or the start of the 611;; Go back to the start of the (apparent) current line (or the start of the
612;; line containing POS), returning the buffer position of that point. I.e., 612;; line containing POS), returning the buffer position of that point. I.e.,
613;; go back to the last line which doesn't have an escaped EOL before it. 613;; go back to the last line which doesn't have an escaped EOL before it.
614;; 614;;
615;; This is guaranteed to be "safe" for syntactic analysis, i.e. outwith any 615;; This is guaranteed to be "safe" for syntactic analysis, i.e. outwith any
616;; comment, string or regexp. IT MAY WELL BE that this function should not be 616;; comment, string or regexp. IT MAY WELL BE that this function should not be
617;; executed on a narrowed buffer. 617;; executed on a narrowed buffer.
@@ -718,7 +718,7 @@
718 ;; This function does hidden buffer changes. 718 ;; This function does hidden buffer changes.
719 (let ((/point (point))) 719 (let ((/point (point)))
720 (goto-char anchor) 720 (goto-char anchor)
721 ;; Analyse the line to find out what the / is. 721 ;; Analyze the line to find out what the / is.
722 (if (if anchor-state-/div 722 (if (if anchor-state-/div
723 (not (search-forward-regexp c-awk-regexp-sign-re (1+ /point) t)) 723 (not (search-forward-regexp c-awk-regexp-sign-re (1+ /point) t))
724 (search-forward-regexp c-awk-div-sign-re (1+ /point) t)) 724 (search-forward-regexp c-awk-div-sign-re (1+ /point) t))
@@ -776,7 +776,7 @@
776 (setq anchor (point)) 776 (setq anchor (point))
777 (search-forward-regexp c-awk-harmless-string*-here-re nil t) 777 (search-forward-regexp c-awk-harmless-string*-here-re nil t)
778 ;; We are now looking at either a " or a /. 778 ;; We are now looking at either a " or a /.
779 ;; Do our thing on the string, regexp or divsion sign. 779 ;; Do our thing on the string, regexp or division sign.
780 (setq anchor-state-/div 780 (setq anchor-state-/div
781 (if (looking-at "_?\"") 781 (if (looking-at "_?\"")
782 (c-awk-syntax-tablify-string) 782 (c-awk-syntax-tablify-string)
@@ -823,14 +823,14 @@
823;; Don't overlook the possibility of the buffer change being the "recapturing" 823;; Don't overlook the possibility of the buffer change being the "recapturing"
824;; of a previously escaped newline. 824;; of a previously escaped newline.
825 825
826;; ACM 2008-02-05: 826;; ACM 2008-02-05:
827(defun c-awk-extend-and-syntax-tablify-region (beg end old-len) 827(defun c-awk-extend-and-syntax-tablify-region (beg end old-len)
828 ;; Expand the region (BEG END) as needed to (c-new-BEG c-new-END) then put 828 ;; Expand the region (BEG END) as needed to (c-new-BEG c-new-END) then put
829 ;; `syntax-table' properties on this region. 829 ;; `syntax-table' properties on this region.
830 ;; 830 ;;
831 ;; This function is called from an after-change function, BEG END and 831 ;; This function is called from an after-change function, BEG END and
832 ;; OLD-LEN being the standard parameters. 832 ;; OLD-LEN being the standard parameters.
833 ;; 833 ;;
834 ;; Point is undefined both before and after this function call, the buffer 834 ;; Point is undefined both before and after this function call, the buffer
835 ;; has been widened, and match-data saved. The return value is ignored. 835 ;; has been widened, and match-data saved. The return value is ignored.
836 ;; 836 ;;
@@ -847,8 +847,8 @@
847 847
848;; Awk regexps written with help from Peter Galbraith 848;; Awk regexps written with help from Peter Galbraith
849;; <galbraith@mixing.qc.dfo.ca>. 849;; <galbraith@mixing.qc.dfo.ca>.
850;; Take GNU Emacs's 'words out of the following regexp-opts. They dont work 850;; Take GNU Emacs's 'words out of the following regexp-opts. They don't work
851;; in Xemacs 21.4.4. acm 2002/9/19. 851;; in XEmacs 21.4.4. acm 2002/9/19.
852(defconst awk-font-lock-keywords 852(defconst awk-font-lock-keywords
853 (eval-when-compile 853 (eval-when-compile
854 (list 854 (list
diff --git a/lisp/progmodes/cc-cmds.el b/lisp/progmodes/cc-cmds.el
index e59fdc16af7..68f31c55e71 100644
--- a/lisp/progmodes/cc-cmds.el
+++ b/lisp/progmodes/cc-cmds.el
@@ -1042,7 +1042,7 @@ reindented unless `c-syntactic-indentation' is nil.
1042 (setcar (car elem) 'label)) 1042 (setcar (car elem) 'label))
1043 (setq elem (cdr elem))) 1043 (setq elem (cdr elem)))
1044 ;; some language elements can only be determined by checking 1044 ;; some language elements can only be determined by checking
1045 ;; the following line. Lets first look for ones that can be 1045 ;; the following line. Let's first look for ones that can be
1046 ;; found when looking on the line with the colon 1046 ;; found when looking on the line with the colon
1047 (setq newlines 1047 (setq newlines
1048 (and c-auto-newline 1048 (and c-auto-newline
@@ -2969,7 +2969,7 @@ A prefix argument acts as a repeat count. With a negative argument,
2969move backward across a preprocessor conditional. 2969move backward across a preprocessor conditional.
2970 2970
2971If there aren't enough conditionals after \(or before) point, an 2971If there aren't enough conditionals after \(or before) point, an
2972error is signalled. 2972error is signaled.
2973 2973
2974\"#elif\" is treated like \"#else\" followed by \"#if\", except that 2974\"#elif\" is treated like \"#else\" followed by \"#if\", except that
2975the nesting level isn't changed when tracking subconditionals. 2975the nesting level isn't changed when tracking subconditionals.
@@ -4094,7 +4094,7 @@ command to conveniently insert and align the necessary backslashes."
4094; (or (<= (- (cdr c-lit-limits) 2) (point)) 4094; (or (<= (- (cdr c-lit-limits) 2) (point))
4095; 2010-10-17 Construct removed. 4095; 2010-10-17 Construct removed.
4096; (or (< (- (cdr c-lit-limits) 2) (point)) 4096; (or (< (- (cdr c-lit-limits) 2) (point))
4097 (and 4097 (and
4098 (search-forward-regexp 4098 (search-forward-regexp
4099 (concat "\\=[ \t]*\\(" c-current-comment-prefix "\\)") 4099 (concat "\\=[ \t]*\\(" c-current-comment-prefix "\\)")
4100 (- (cdr c-lit-limits) 2) t) 4100 (- (cdr c-lit-limits) 2) t)
diff --git a/lisp/progmodes/cc-defs.el b/lisp/progmodes/cc-defs.el
index 8632807f2b8..fb9fd406ef8 100644
--- a/lisp/progmodes/cc-defs.el
+++ b/lisp/progmodes/cc-defs.el
@@ -555,7 +555,7 @@ certain situations."
555 `(c-forward-sexp ,(if (numberp count) (- count) `(- ,count)))) 555 `(c-forward-sexp ,(if (numberp count) (- count) `(- ,count))))
556 556
557(defmacro c-safe-scan-lists (from count depth &optional limit) 557(defmacro c-safe-scan-lists (from count depth &optional limit)
558 "Like `scan-lists' but returns nil instead of signalling errors 558 "Like `scan-lists' but returns nil instead of signaling errors
559for unbalanced parens. 559for unbalanced parens.
560 560
561A limit for the search may be given. FROM is assumed to be on the 561A limit for the search may be given. FROM is assumed to be on the
@@ -760,7 +760,7 @@ be after it."
760;; non-nil if point (or the optional parameter POS) is at a VS, nil otherwise. 760;; non-nil if point (or the optional parameter POS) is at a VS, nil otherwise.
761;; 761;;
762;; The language specific function might well do extensive analysis of the 762;; The language specific function might well do extensive analysis of the
763;; source text, and may use a cacheing scheme to speed up repeated calls. 763;; source text, and may use a caching scheme to speed up repeated calls.
764;; 764;;
765;; The "virtual semicolon" lies just after the last non-ws token on the line. 765;; The "virtual semicolon" lies just after the last non-ws token on the line.
766;; Like POINT, it is considered to lie between two characters. For example, 766;; Like POINT, it is considered to lie between two characters. For example,
@@ -784,7 +784,7 @@ be after it."
784;; `c-beginning-of-statement-1'. `c-vsemi-status-unknown-p' may not itself 784;; `c-beginning-of-statement-1'. `c-vsemi-status-unknown-p' may not itself
785;; call `c-beginning-of-statement-1'. 785;; call `c-beginning-of-statement-1'.
786;; 786;;
787;; The macro `c-vsemi-status-unknown-p' will typically check the cacheing 787;; The macro `c-vsemi-status-unknown-p' will typically check the caching
788;; scheme used by the `c-at-vsemi-p-fn', hence the name - the status is 788;; scheme used by the `c-at-vsemi-p-fn', hence the name - the status is
789;; "unknown" if there is no cache entry current for the line. 789;; "unknown" if there is no cache entry current for the line.
790;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 790;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
diff --git a/lisp/progmodes/cc-engine.el b/lisp/progmodes/cc-engine.el
index ea0a8f2d3b3..31a58e48f50 100644
--- a/lisp/progmodes/cc-engine.el
+++ b/lisp/progmodes/cc-engine.el
@@ -988,7 +988,7 @@ comment at the start of cc-engine.el for more info."
988 ;; Just gone back over an ordinary symbol of some sort? 988 ;; Just gone back over an ordinary symbol of some sort?
989 (t (c-crosses-statement-barrier-p 989 (t (c-crosses-statement-barrier-p
990 (point) maybe-after-boundary-pos)))) 990 (point) maybe-after-boundary-pos))))
991 991
992 (when boundary-pos 992 (when boundary-pos
993 (setq pptok ptok 993 (setq pptok ptok
994 ptok tok 994 ptok tok
@@ -1065,7 +1065,7 @@ comment at the start of cc-engine.el for more info."
1065 pos tok) ; always non-nil 1065 pos tok) ; always non-nil
1066 ) ; end of (catch loop ....) 1066 ) ; end of (catch loop ....)
1067 ) ; end of sexp-at-a-time (while ....) 1067 ) ; end of sexp-at-a-time (while ....)
1068 1068
1069 ;; If the stack isn't empty there might be errors to report. 1069 ;; If the stack isn't empty there might be errors to report.
1070 (while stack 1070 (while stack
1071 (if (and (vectorp saved-pos) (eq (length saved-pos) 3)) 1071 (if (and (vectorp saved-pos) (eq (length saved-pos) 3))
@@ -1795,7 +1795,7 @@ comment at the start of cc-engine.el for more info."
1795 rung-is-marked simple-ws-beg cmt-skip-pos) 1795 rung-is-marked simple-ws-beg cmt-skip-pos)
1796 1796
1797 ;; Skip simple horizontal ws and do a quick check on the preceding 1797 ;; Skip simple horizontal ws and do a quick check on the preceding
1798 ;; character to see if it's anying that can't end syntactic ws, so we can 1798 ;; character to see if it's anything that can't end syntactic ws, so we can
1799 ;; bail out early in the majority of cases when there just are a few ws 1799 ;; bail out early in the majority of cases when there just are a few ws
1800 ;; chars. Newlines are complicated in the backward direction, so we can't 1800 ;; chars. Newlines are complicated in the backward direction, so we can't
1801 ;; skip over them. 1801 ;; skip over them.
@@ -2032,7 +2032,7 @@ comment at the start of cc-engine.el for more info."
2032(defconst c-state-cache-too-far 5000) 2032(defconst c-state-cache-too-far 5000)
2033;; A maximum comfortable scanning distance, e.g. between 2033;; A maximum comfortable scanning distance, e.g. between
2034;; `c-state-cache-good-pos' and "HERE" (where we call c-parse-state). When 2034;; `c-state-cache-good-pos' and "HERE" (where we call c-parse-state). When
2035;; this distance is exceeded, we take "emergency meausures", e.g. by clearing 2035;; this distance is exceeded, we take "emergency measures", e.g. by clearing
2036;; the cache and starting again from point-min or a beginning of defun. This 2036;; the cache and starting again from point-min or a beginning of defun. This
2037;; value can be tuned for efficiency or set to a lower value for testing. 2037;; value can be tuned for efficiency or set to a lower value for testing.
2038 2038
@@ -2302,7 +2302,7 @@ comment at the start of cc-engine.el for more info."
2302;; `c-parse-state', or nil. 2302;; `c-parse-state', or nil.
2303 2303
2304;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 2304;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2305;; Defuns which analyse the buffer, yet don't change `c-state-cache'. 2305;; Defuns which analyze the buffer, yet don't change `c-state-cache'.
2306(defun c-get-fallback-scan-pos (here) 2306(defun c-get-fallback-scan-pos (here)
2307 ;; Return a start position for building `c-state-cache' from 2307 ;; Return a start position for building `c-state-cache' from
2308 ;; scratch. This will be at the top level, 2 defuns back. 2308 ;; scratch. This will be at the top level, 2 defuns back.
@@ -2331,7 +2331,7 @@ comment at the start of cc-engine.el for more info."
2331 ;; 2331 ;;
2332 ;; If there aren't enough opening paren/brace/brackets, return the position 2332 ;; If there aren't enough opening paren/brace/brackets, return the position
2333 ;; of the outermost one found, or HERE- if there are none. If there are no 2333 ;; of the outermost one found, or HERE- if there are none. If there are no
2334 ;; closeing p/b/bs between HERE+ and TOP, return HERE-. HERE-/+ and TOP 2334 ;; closing p/b/bs between HERE+ and TOP, return HERE-. HERE-/+ and TOP
2335 ;; must not be inside literals. Only the accessible portion of the buffer 2335 ;; must not be inside literals. Only the accessible portion of the buffer
2336 ;; will be scanned. 2336 ;; will be scanned.
2337 2337
@@ -4051,7 +4051,7 @@ comment at the start of cc-engine.el for more info."
4051 ;; a relevant match. 4051 ;; a relevant match.
4052 (goto-char pos) 4052 (goto-char pos)
4053 nil)))))) 4053 nil))))))
4054 4054
4055 (> (point) 4055 (> (point)
4056 (progn 4056 (progn
4057 ;; Skip syntactic ws afterwards so that we don't stop at the 4057 ;; Skip syntactic ws afterwards so that we don't stop at the
@@ -4219,9 +4219,9 @@ comment at the start of cc-engine.el for more info."
4219;; complicated anyway. In this case, lim is only used to detect 4219;; complicated anyway. In this case, lim is only used to detect
4220;; cpp directives. 4220;; cpp directives.
4221;; 4221;;
4222;; Note that there is a bug in Xemacs's buffer-syntactic-context when used in 4222;; Note that there is a bug in XEmacs's buffer-syntactic-context when used in
4223;; conjunction with syntax-table-properties. The bug is present in, e.g., 4223;; conjunction with syntax-table-properties. The bug is present in, e.g.,
4224;; Xemacs 21.4.4. It manifested itself thus: 4224;; XEmacs 21.4.4. It manifested itself thus:
4225;; 4225;;
4226;; Starting with an empty AWK Mode buffer, type 4226;; Starting with an empty AWK Mode buffer, type
4227;; /regexp/ {<C-j> 4227;; /regexp/ {<C-j>
@@ -4235,7 +4235,7 @@ comment at the start of cc-engine.el for more info."
4235;; 4235;;
4236;; The workaround for this is for the AWK Mode initialisation to switch the 4236;; The workaround for this is for the AWK Mode initialisation to switch the
4237;; defalias for c-in-literal to c-slow-in-literal. This will slow down other 4237;; defalias for c-in-literal to c-slow-in-literal. This will slow down other
4238;; cc-modes in Xemacs whenever an awk-buffer has been initialised. 4238;; cc-modes in XEmacs whenever an awk-buffer has been initialised.
4239;; 4239;;
4240;; (Alan Mackenzie, 2003/4/30). 4240;; (Alan Mackenzie, 2003/4/30).
4241 4241
@@ -6277,7 +6277,7 @@ comment at the start of cc-engine.el for more info."
6277 ;; car ^ ^ point 6277 ;; car ^ ^ point
6278 ;; Foo::Foo (int b) : Base (b) {} 6278 ;; Foo::Foo (int b) : Base (b) {}
6279 ;; car ^ ^ point 6279 ;; car ^ ^ point
6280 ;; 6280 ;;
6281 ;; The cdr of the return value is non-nil when a 6281 ;; The cdr of the return value is non-nil when a
6282 ;; `c-typedef-decl-kwds' specifier is found in the declaration. 6282 ;; `c-typedef-decl-kwds' specifier is found in the declaration.
6283 ;; Specifically it is a dotted pair (A . B) where B is t when a 6283 ;; Specifically it is a dotted pair (A . B) where B is t when a
@@ -6285,7 +6285,7 @@ comment at the start of cc-engine.el for more info."
6285 ;; other `c-typedef-decl-kwds' (e.g. class, struct, enum) 6285 ;; other `c-typedef-decl-kwds' (e.g. class, struct, enum)
6286 ;; specifier is present. I.e., (some of) the declared 6286 ;; specifier is present. I.e., (some of) the declared
6287 ;; identifier(s) are types. 6287 ;; identifier(s) are types.
6288 ;; 6288 ;;
6289 ;; If a cast is parsed: 6289 ;; If a cast is parsed:
6290 ;; 6290 ;;
6291 ;; The point is left at the first token after the closing paren of 6291 ;; The point is left at the first token after the closing paren of
@@ -8461,7 +8461,7 @@ comment at the start of cc-engine.el for more info."
8461 nil) 8461 nil)
8462 (t nil)))) 8462 (t nil))))
8463 (eolp)) 8463 (eolp))
8464 8464
8465 (goto-char pos) 8465 (goto-char pos)
8466 (progn (c-backward-syntactic-ws) 8466 (progn (c-backward-syntactic-ws)
8467 (eq (point) pos)) 8467 (eq (point) pos))
@@ -8832,7 +8832,7 @@ comment at the start of cc-engine.el for more info."
8832 ;; CASE B.4: Continued statement with block open. The most 8832 ;; CASE B.4: Continued statement with block open. The most
8833 ;; accurate analysis is perhaps `statement-cont' together with 8833 ;; accurate analysis is perhaps `statement-cont' together with
8834 ;; `block-open' but we play DWIM and use `substatement-open' 8834 ;; `block-open' but we play DWIM and use `substatement-open'
8835 ;; instead. The rationaly is that this typically is a macro 8835 ;; instead. The rationale is that this typically is a macro
8836 ;; followed by a block which makes it very similar to a 8836 ;; followed by a block which makes it very similar to a
8837 ;; statement with a substatement block. 8837 ;; statement with a substatement block.
8838 (t 8838 (t
@@ -8922,7 +8922,7 @@ comment at the start of cc-engine.el for more info."
8922 ;; FIXME: Should use c-add-stmt-syntax, but it's not yet 8922 ;; FIXME: Should use c-add-stmt-syntax, but it's not yet
8923 ;; template aware. 8923 ;; template aware.
8924 (c-add-syntax 'template-args-cont (point) placeholder)) 8924 (c-add-syntax 'template-args-cont (point) placeholder))
8925 8925
8926 ;; CASE D: continued statement. 8926 ;; CASE D: continued statement.
8927 (t 8927 (t
8928 (c-beginning-of-statement-1 containing-sexp) 8928 (c-beginning-of-statement-1 containing-sexp)
diff --git a/lisp/progmodes/cc-fonts.el b/lisp/progmodes/cc-fonts.el
index 9a83d5196db..a5a9582315b 100644
--- a/lisp/progmodes/cc-fonts.el
+++ b/lisp/progmodes/cc-fonts.el
@@ -317,7 +317,7 @@
317 (match-beginning ,(car highlight)) 317 (match-beginning ,(car highlight))
318 (match-end ,(car highlight)) 318 (match-end ,(car highlight))
319 ,(elt highlight 1)))) 319 ,(elt highlight 1))))
320 ;; highlight is an "ANCHORED HIGHLIGHER" of the form 320 ;; highlight is an "ANCHORED HIGHLIGHTER" of the form
321 ;; (ANCHORED-MATCHER PRE-FORM POST-FORM SUBEXP-HIGHLIGHTERS...) 321 ;; (ANCHORED-MATCHER PRE-FORM POST-FORM SUBEXP-HIGHLIGHTERS...)
322 (when (nth 3 highlight) 322 (when (nth 3 highlight)
323 (error "Match highlights currently not supported in %s" 323 (error "Match highlights currently not supported in %s"
@@ -1103,7 +1103,7 @@ casts and declarations are fontified. Used on level 2 and higher."
1103 (<= (point) limit)) 1103 (<= (point) limit))
1104 1104
1105 ;; Search syntactically to the end of the declarator (";", 1105 ;; Search syntactically to the end of the declarator (";",
1106 ;; ",", a closen paren, eob etc) or to the beginning of an 1106 ;; ",", a closing paren, eob etc) or to the beginning of an
1107 ;; initializer or function prototype ("=" or "\\s\("). 1107 ;; initializer or function prototype ("=" or "\\s\(").
1108 ;; Note that the open paren will match array specs in 1108 ;; Note that the open paren will match array specs in
1109 ;; square brackets, and we treat them as initializers too. 1109 ;; square brackets, and we treat them as initializers too.
diff --git a/lisp/progmodes/cc-mode.el b/lisp/progmodes/cc-mode.el
index a6bf241f0db..d93d174047b 100644
--- a/lisp/progmodes/cc-mode.el
+++ b/lisp/progmodes/cc-mode.el
@@ -484,7 +484,7 @@ that requires a literal mode spec at compile time."
484 (make-local-variable 'comment-start) 484 (make-local-variable 'comment-start)
485 (make-local-variable 'comment-end) 485 (make-local-variable 'comment-end)
486 (make-local-variable 'comment-start-skip) 486 (make-local-variable 'comment-start-skip)
487 487
488 (make-local-variable 'paragraph-start) 488 (make-local-variable 'paragraph-start)
489 (make-local-variable 'paragraph-separate) 489 (make-local-variable 'paragraph-separate)
490 (make-local-variable 'paragraph-ignore-fill-prefix) 490 (make-local-variable 'paragraph-ignore-fill-prefix)
@@ -660,7 +660,7 @@ compatible with old code; callers should always specify it."
660 (when (eq (car elt) 'c-file-style) 660 (when (eq (car elt) 'c-file-style)
661 (setq cownt (1+ cownt)))) 661 (setq cownt (1+ cownt))))
662 cownt)) 662 cownt))
663 663
664(defun c-before-hack-hook () 664(defun c-before-hack-hook ()
665 "Set the CC Mode style and \"offsets\" when in the buffer's local variables. 665 "Set the CC Mode style and \"offsets\" when in the buffer's local variables.
666They are set only when, respectively, the pseudo variables 666They are set only when, respectively, the pseudo variables
@@ -860,7 +860,7 @@ Note that the style variables are always made local to the buffer."
860 ;; (i) Extend the font lock region to cover all changed preprocessor 860 ;; (i) Extend the font lock region to cover all changed preprocessor
861 ;; regions; it does this by setting the variables `c-new-BEG' and 861 ;; regions; it does this by setting the variables `c-new-BEG' and
862 ;; `c-new-END' to the new boundaries. 862 ;; `c-new-END' to the new boundaries.
863 ;; 863 ;;
864 ;; (ii) "Neutralize" every preprocessor line wholly or partially in the 864 ;; (ii) "Neutralize" every preprocessor line wholly or partially in the
865 ;; extended changed region. "Restore" lines which were CPP lines before the 865 ;; extended changed region. "Restore" lines which were CPP lines before the
866 ;; change and are no longer so; these can be located from the Buffer local 866 ;; change and are no longer so; these can be located from the Buffer local
@@ -1562,7 +1562,7 @@ Key bindings:
1562 (c-common-init 'awk-mode) 1562 (c-common-init 'awk-mode)
1563 (c-awk-unstick-NL-prop) 1563 (c-awk-unstick-NL-prop)
1564 1564
1565 ;; Prevent Xemacs's buffer-syntactic-context being used. See the comment 1565 ;; Prevent XEmacs's buffer-syntactic-context being used. See the comment
1566 ;; in cc-engine.el, just before (defun c-fast-in-literal ... 1566 ;; in cc-engine.el, just before (defun c-fast-in-literal ...
1567 (defalias 'c-in-literal 'c-slow-in-literal) 1567 (defalias 'c-in-literal 'c-slow-in-literal)
1568 1568
diff --git a/lisp/progmodes/cc-vars.el b/lisp/progmodes/cc-vars.el
index 24361e3667a..02256ead392 100644
--- a/lisp/progmodes/cc-vars.el
+++ b/lisp/progmodes/cc-vars.el
@@ -963,7 +963,7 @@ this is `c-lineup-ObjC-method-call', which would align it like:
963 [foo blahBlahBlah: fred 963 [foo blahBlahBlah: fred
964 thisIsTooDamnLong: barney 964 thisIsTooDamnLong: barney
965 965
966This behaviour can be overridden by customizing the indentation of 966This behavior can be overridden by customizing the indentation of
967`objc-method-call-cont' in the \"objc\" style." 967`objc-method-call-cont' in the \"objc\" style."
968 :type 'integer 968 :type 'integer
969 :group 'c) 969 :group 'c)
@@ -1327,7 +1327,7 @@ Here is the current list of valid syntactic element symbols:
1327 statement-case-open -- The first line in a case block starting with brace. 1327 statement-case-open -- The first line in a case block starting with brace.
1328 substatement -- The first line after an if/while/for/do/else. 1328 substatement -- The first line after an if/while/for/do/else.
1329 substatement-open -- The brace that opens a substatement block. 1329 substatement-open -- The brace that opens a substatement block.
1330 substatement-label -- Labelled line after an if/while/for/do/else. 1330 substatement-label -- Labeled line after an if/while/for/do/else.
1331 case-label -- A \"case\" or \"default\" label. 1331 case-label -- A \"case\" or \"default\" label.
1332 access-label -- C++ private/protected/public access label. 1332 access-label -- C++ private/protected/public access label.
1333 label -- Any ordinary label. 1333 label -- Any ordinary label.
@@ -1625,7 +1625,7 @@ names)."))
1625(defvar c-macro-with-semi-re nil 1625(defvar c-macro-with-semi-re nil
1626 ;; Regular expression which matches a (#define'd) symbol whose expansion 1626 ;; Regular expression which matches a (#define'd) symbol whose expansion
1627 ;; ends with a semicolon. 1627 ;; ends with a semicolon.
1628 ;; 1628 ;;
1629 ;; This variable should be set by `c-make-macros-with-semi-re' rather than 1629 ;; This variable should be set by `c-make-macros-with-semi-re' rather than
1630 ;; directly. 1630 ;; directly.
1631) 1631)
@@ -1651,7 +1651,7 @@ names)."))
1651 (t (error "c-make-macro-with-semi-re: invalid \ 1651 (t (error "c-make-macro-with-semi-re: invalid \
1652c-macro-names-with-semicolon: %s" 1652c-macro-names-with-semicolon: %s"
1653 c-macro-names-with-semicolon)))))) 1653 c-macro-names-with-semicolon))))))
1654 1654
1655(defvar c-macro-names-with-semicolon 1655(defvar c-macro-names-with-semicolon
1656 '("Q_OBJECT" "Q_PROPERTY" "Q_DECLARE" "Q_ENUMS") 1656 '("Q_OBJECT" "Q_PROPERTY" "Q_DECLARE" "Q_ENUMS")
1657 "List of #defined symbols whose expansion ends with a semicolon. 1657 "List of #defined symbols whose expansion ends with a semicolon.
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 156c90159cd..3dba1af515a 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -157,7 +157,7 @@ of[ \t]+\"?\\([a-zA-Z]?:?[^\":\n]+\\)\"?:" 3 2 nil (1))
157 157
158 (python-tracebacks-and-caml 158 (python-tracebacks-and-caml
159 "^[ \t]*File \\(\"?\\)\\([^,\" \n\t<>]+\\)\\1, lines? \\([0-9]+\\)-?\\([0-9]+\\)?\\(?:$\\|,\ 159 "^[ \t]*File \\(\"?\\)\\([^,\" \n\t<>]+\\)\\1, lines? \\([0-9]+\\)-?\\([0-9]+\\)?\\(?:$\\|,\
160\\(?: characters? \\([0-9]+\\)-?\\([0-9]+\\)?:\\)?\\([ \n]Warning:\\)?\\)" 160\\(?: characters? \\([0-9]+\\)-?\\([0-9]+\\)?:\\)?\\([ \n]Warning\\(?: [0-9]+\\)?:\\)?\\)"
161 2 (3 . 4) (5 . 6) (7)) 161 2 (3 . 4) (5 . 6) (7))
162 162
163 (comma 163 (comma
@@ -1056,7 +1056,7 @@ FMTS is a list of format specs for transforming the file name.
1056 (cadr (compilation--file-struct->loc-tree file-struct))) 1056 (cadr (compilation--file-struct->loc-tree file-struct)))
1057 (marker 1057 (marker
1058 (if marker-line (compilation--loc->marker (cadr marker-line)))) 1058 (if marker-line (compilation--loc->marker (cadr marker-line))))
1059 (compilation-error-screen-columns compilation-error-screen-columns) 1059 (screen-columns compilation-error-screen-columns)
1060 end-marker loc end-loc) 1060 end-marker loc end-loc)
1061 (if (not (and marker (marker-buffer marker))) 1061 (if (not (and marker (marker-buffer marker)))
1062 (setq marker nil) ; no valid marker for this file 1062 (setq marker nil) ; no valid marker for this file
@@ -1064,16 +1064,21 @@ FMTS is a list of format specs for transforming the file name.
1064 (catch 'marker ; find nearest loc, at least one exists 1064 (catch 'marker ; find nearest loc, at least one exists
1065 (dolist (x (cddr (compilation--file-struct->loc-tree 1065 (dolist (x (cddr (compilation--file-struct->loc-tree
1066 file-struct))) ; Loop over remaining lines. 1066 file-struct))) ; Loop over remaining lines.
1067 (if (> (car x) loc) ; still bigger 1067 (if (> (car x) loc) ; Still bigger.
1068 (setq marker-line x) 1068 (setq marker-line x)
1069 (if (> (- (or (car marker-line) 1) loc) 1069 (if (> (- (or (car marker-line) 1) loc)
1070 (- loc (car x))) ; current line is nearer 1070 (- loc (car x))) ; Current line is nearer.
1071 (setq marker-line x)) 1071 (setq marker-line x))
1072 (throw 'marker t)))) 1072 (throw 'marker t))))
1073 (setq marker (compilation--loc->marker (cadr marker-line)) 1073 (setq marker (compilation--loc->marker (cadr marker-line))
1074 marker-line (or (car marker-line) 1)) 1074 marker-line (or (car marker-line) 1))
1075 (with-current-buffer (marker-buffer marker) 1075 (with-current-buffer (marker-buffer marker)
1076 (save-excursion 1076 (let ((screen-columns
1077 ;; Obey the compilation-error-screen-columns of the target
1078 ;; buffer if its major mode set it buffer-locally.
1079 (if (local-variable-p 'compilation-error-screen-columns)
1080 compilation-error-screen-columns screen-columns)))
1081 (save-excursion
1077 (save-restriction 1082 (save-restriction
1078 (widen) 1083 (widen)
1079 (goto-char (marker-position marker)) 1084 (goto-char (marker-position marker))
@@ -1081,17 +1086,15 @@ FMTS is a list of format specs for transforming the file name.
1081 (beginning-of-line (- (or end-line line) marker-line -1)) 1086 (beginning-of-line (- (or end-line line) marker-line -1))
1082 (if (or (null end-col) (< end-col 0)) 1087 (if (or (null end-col) (< end-col 0))
1083 (end-of-line) 1088 (end-of-line)
1084 (compilation-move-to-column 1089 (compilation-move-to-column end-col screen-columns))
1085 end-col compilation-error-screen-columns))
1086 (setq end-marker (point-marker))) 1090 (setq end-marker (point-marker)))
1087 (beginning-of-line (if end-line 1091 (beginning-of-line (if end-line
1088 (- line end-line -1) 1092 (- line end-line -1)
1089 (- loc marker-line -1))) 1093 (- loc marker-line -1)))
1090 (if col 1094 (if col
1091 (compilation-move-to-column 1095 (compilation-move-to-column col screen-columns)
1092 col compilation-error-screen-columns)
1093 (forward-to-indentation 0)) 1096 (forward-to-indentation 0))
1094 (setq marker (point-marker)))))) 1097 (setq marker (point-marker)))))))
1095 1098
1096 (setq loc (compilation-assq line (compilation--file-struct->loc-tree 1099 (setq loc (compilation-assq line (compilation--file-struct->loc-tree
1097 file-struct))) 1100 file-struct)))
@@ -2266,7 +2269,7 @@ This is the value of `next-error-function' in Compilation buffers."
2266 (interactive "p") 2269 (interactive "p")
2267 (when reset 2270 (when reset
2268 (setq compilation-current-error nil)) 2271 (setq compilation-current-error nil))
2269 (let* ((columns compilation-error-screen-columns) ; buffer's local value 2272 (let* ((screen-columns compilation-error-screen-columns)
2270 (last 1) 2273 (last 1)
2271 (msg (compilation-next-error (or n 1) nil 2274 (msg (compilation-next-error (or n 1) nil
2272 (or compilation-current-error 2275 (or compilation-current-error
@@ -2301,29 +2304,34 @@ This is the value of `next-error-function' in Compilation buffers."
2301 marker 2304 marker
2302 (caar (compilation--loc->file-struct loc)) 2305 (caar (compilation--loc->file-struct loc))
2303 (cadr (car (compilation--loc->file-struct loc)))) 2306 (cadr (car (compilation--loc->file-struct loc))))
2304 (save-restriction 2307 (let ((screen-columns
2305 (widen) 2308 ;; Obey the compilation-error-screen-columns of the target
2306 (goto-char (point-min)) 2309 ;; buffer if its major mode set it buffer-locally.
2307 ;; Treat file's found lines in forward order, 1 by 1. 2310 (if (local-variable-p 'compilation-error-screen-columns)
2308 (dolist (line (reverse (cddr (compilation--loc->file-struct loc)))) 2311 compilation-error-screen-columns screen-columns)))
2309 (when (car line) ; else this is a filename w/o a line# 2312 (save-restriction
2310 (beginning-of-line (- (car line) last -1)) 2313 (widen)
2311 (setq last (car line))) 2314 (goto-char (point-min))
2312 ;; Treat line's found columns and store/update a marker for each. 2315 ;; Treat file's found lines in forward order, 1 by 1.
2313 (dolist (col (cdr line)) 2316 (dolist (line (reverse (cddr (compilation--loc->file-struct loc))))
2314 (if (compilation--loc->col col) 2317 (when (car line) ; else this is a filename w/o a line#
2315 (if (eq (compilation--loc->col col) -1) 2318 (beginning-of-line (- (car line) last -1))
2316 ;; Special case for range end. 2319 (setq last (car line)))
2317 (end-of-line) 2320 ;; Treat line's found columns and store/update a marker for each.
2318 (compilation-move-to-column (compilation--loc->col col) 2321 (dolist (col (cdr line))
2319 columns)) 2322 (if (compilation--loc->col col)
2320 (beginning-of-line) 2323 (if (eq (compilation--loc->col col) -1)
2321 (skip-chars-forward " \t")) 2324 ;; Special case for range end.
2322 (if (compilation--loc->marker col) 2325 (end-of-line)
2323 (set-marker (compilation--loc->marker col) (point)) 2326 (compilation-move-to-column (compilation--loc->col col)
2324 (setf (compilation--loc->marker col) (point-marker))) 2327 screen-columns))
2325 ;; (setf (compilation--loc->timestamp col) timestamp) 2328 (beginning-of-line)
2326 ))))) 2329 (skip-chars-forward " \t"))
2330 (if (compilation--loc->marker col)
2331 (set-marker (compilation--loc->marker col) (point))
2332 (setf (compilation--loc->marker col) (point-marker)))
2333 ;; (setf (compilation--loc->timestamp col) timestamp)
2334 ))))))
2327 (compilation-goto-locus marker (compilation--loc->marker loc) 2335 (compilation-goto-locus marker (compilation--loc->marker loc)
2328 (compilation--loc->marker end-loc)) 2336 (compilation--loc->marker end-loc))
2329 (setf (compilation--loc->visited loc) t))) 2337 (setf (compilation--loc->visited loc) t)))
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index a79d1a2c064..1925d16ba58 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -902,7 +902,7 @@ the settings present before the switch.
9029) When doing indentation of control constructs, may correct 9029) When doing indentation of control constructs, may correct
903line-breaks/spacing between elements of the construct. 903line-breaks/spacing between elements of the construct.
904 904
90510) Uses a linear-time algorith for indentation of regions (on Emaxen with 90510) Uses a linear-time algorithm for indentation of regions (on Emaxen with
906capable syntax engines). 906capable syntax engines).
907 907
90811) Syntax-highlight, indentation, sexp-recognition inside regular expressions. 90811) Syntax-highlight, indentation, sexp-recognition inside regular expressions.
@@ -1304,7 +1304,7 @@ versions of Emacs."
1304 (get-text-property (point) 'syntax-type)) 1304 (get-text-property (point) 'syntax-type))
1305 '(here-doc pod))] 1305 '(here-doc pod))]
1306 "----" 1306 "----"
1307 ["CPerl pretty print (exprmntl)" cperl-ps-print 1307 ["CPerl pretty print (experimental)" cperl-ps-print
1308 (fboundp 'ps-extend-face-list)] 1308 (fboundp 'ps-extend-face-list)]
1309 "----" 1309 "----"
1310 ["Syntaxify region" cperl-find-pods-heres-region 1310 ["Syntaxify region" cperl-find-pods-heres-region
@@ -1512,7 +1512,7 @@ the last)."
1512(defvar cperl-font-locking nil) 1512(defvar cperl-font-locking nil)
1513 1513
1514;; NB as it stands the code in cperl-mode assumes this only has one 1514;; NB as it stands the code in cperl-mode assumes this only has one
1515;; element. If Xemacs 19 support were dropped, this could all be simplified. 1515;; element. If XEmacs 19 support were dropped, this could all be simplified.
1516(defvar cperl-compilation-error-regexp-alist 1516(defvar cperl-compilation-error-regexp-alist
1517 ;; This look like a paranoiac regexp: could anybody find a better one? (which WORKS). 1517 ;; This look like a paranoiac regexp: could anybody find a better one? (which WORKS).
1518 '(("^[^\n]* \\(file\\|at\\) \\([^ \t\n]+\\) [^\n]*line \\([0-9]+\\)[\\., \n]" 1518 '(("^[^\n]* \\(file\\|at\\) \\([^ \t\n]+\\) [^\n]*line \\([0-9]+\\)[\\., \n]"
@@ -5793,7 +5793,7 @@ indentation and initial hashes. Behaves usually outside of comment."
5793 ;; "\\|") 5793 ;; "\\|")
5794 '("-[rwxoRWXOezsfdlpSbctugkTBMAC]\\>\\([ \t]+_\\>\\)?" 0 5794 '("-[rwxoRWXOezsfdlpSbctugkTBMAC]\\>\\([ \t]+_\\>\\)?" 0
5795 font-lock-function-name-face keep) ; Not very good, triggers at "[a-z]" 5795 font-lock-function-name-face keep) ; Not very good, triggers at "[a-z]"
5796 ;; This highlights declarations and definitions differenty. 5796 ;; This highlights declarations and definitions differently.
5797 ;; We do not try to highlight in the case of attributes: 5797 ;; We do not try to highlight in the case of attributes:
5798 ;; it is already done by `cperl-find-pods-heres' 5798 ;; it is already done by `cperl-find-pods-heres'
5799 (list (concat "\\<sub" 5799 (list (concat "\\<sub"
@@ -8946,7 +8946,7 @@ do extra unwind via `cperl-unwind-to-safe'."
8946;; Called when any modification is made to buffer text. 8946;; Called when any modification is made to buffer text.
8947(defun cperl-after-change-function (beg end old-len) 8947(defun cperl-after-change-function (beg end old-len)
8948 ;; We should have been informed about changes by `font-lock'. Since it 8948 ;; We should have been informed about changes by `font-lock'. Since it
8949 ;; does not inform as which calls are defered, do it ourselves 8949 ;; does not inform as which calls are deferred, do it ourselves
8950 (if cperl-syntax-done-to 8950 (if cperl-syntax-done-to
8951 (setq cperl-syntax-done-to (min cperl-syntax-done-to beg)))) 8951 (setq cperl-syntax-done-to (min cperl-syntax-done-to beg))))
8952 8952
diff --git a/lisp/progmodes/dcl-mode.el b/lisp/progmodes/dcl-mode.el
index b4094914d61..d855861d552 100644
--- a/lisp/progmodes/dcl-mode.el
+++ b/lisp/progmodes/dcl-mode.el
@@ -512,7 +512,7 @@ Variables controlling indentation style and extra features:
512 dcl-block-begin-regexp 512 dcl-block-begin-regexp
513 dcl-block-end-regexp 513 dcl-block-end-regexp
514 Regexps that match command lines that begin and end, respectively, 514 Regexps that match command lines that begin and end, respectively,
515 a block of commmand lines that will be given extra indentation. 515 a block of command lines that will be given extra indentation.
516 Command lines between THEN-ELSE-ENDIF are always indented; these variables 516 Command lines between THEN-ELSE-ENDIF are always indented; these variables
517 make it possible to define other places to indent. 517 make it possible to define other places to indent.
518 Set to nil to disable this feature. 518 Set to nil to disable this feature.
diff --git a/lisp/progmodes/ebnf2ps.el b/lisp/progmodes/ebnf2ps.el
index f7965d2cd01..f98f3d191d7 100644
--- a/lisp/progmodes/ebnf2ps.el
+++ b/lisp/progmodes/ebnf2ps.el
@@ -2084,7 +2084,7 @@ special."
2084 "*Specify extra width for arrow shape drawing. 2084 "*Specify extra width for arrow shape drawing.
2085 2085
2086The extra width is used to avoid that the arrowhead and the terminal border 2086The extra width is used to avoid that the arrowhead and the terminal border
2087overlap. It depens on `ebnf-arrow-shape' and `ebnf-line-width'." 2087overlap. It depends on `ebnf-arrow-shape' and `ebnf-line-width'."
2088 :type 'number 2088 :type 'number
2089 :version "22" 2089 :version "22"
2090 :group 'ebnf-shape) 2090 :group 'ebnf-shape)
@@ -4007,7 +4007,7 @@ See documentation for `ebnf-terminal-shape', `ebnf-non-terminal-shape' and
4007/#ebnf2ps#dict 230 dict def 4007/#ebnf2ps#dict 230 dict def
4008#ebnf2ps#dict begin 4008#ebnf2ps#dict begin
4009 4009
4010% Initiliaze variables to avoid name-conflicting with document variables. 4010% Initialize variables to avoid name-conflicting with document variables.
4011% This is the case when using `bind' operator. 4011% This is the case when using `bind' operator.
4012/-fillp- 0 def /h 0 def 4012/-fillp- 0 def /h 0 def
4013/-ox- 0 def /half 0 def 4013/-ox- 0 def /half 0 def
@@ -5037,7 +5037,7 @@ killed after process termination."
5037 (when gen-func 5037 (when gen-func
5038 (setq error-msg "EMPTY RULES" 5038 (setq error-msg "EMPTY RULES"
5039 tree (ebnf-eliminate-empty-rules tree)) 5039 tree (ebnf-eliminate-empty-rules tree))
5040 (setq error-msg "OPTMIZE" 5040 (setq error-msg "OPTIMIZE"
5041 tree (ebnf-optimize tree)) 5041 tree (ebnf-optimize tree))
5042 (setq error-msg "DIMENSIONS" 5042 (setq error-msg "DIMENSIONS"
5043 tree (ebnf-dimensions tree)) 5043 tree (ebnf-dimensions tree))
diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index d321e9c1388..13cba0fe701 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -1144,7 +1144,7 @@ error message."
1144 (setq order tag-order)) 1144 (setq order tag-order))
1145 ;; We throw out on match, so only get here if there were no matches. 1145 ;; We throw out on match, so only get here if there were no matches.
1146 ;; Clear out the markers we use to avoid duplicate matches so they 1146 ;; Clear out the markers we use to avoid duplicate matches so they
1147 ;; don't slow down editting and are immediately available for GC. 1147 ;; don't slow down editing and are immediately available for GC.
1148 (while tag-lines-already-matched 1148 (while tag-lines-already-matched
1149 (set-marker (car tag-lines-already-matched) nil nil) 1149 (set-marker (car tag-lines-already-matched) nil nil)
1150 (setq tag-lines-already-matched (cdr tag-lines-already-matched))) 1150 (setq tag-lines-already-matched (cdr tag-lines-already-matched)))
diff --git a/lisp/progmodes/executable.el b/lisp/progmodes/executable.el
index d8133cb6b90..281fa3cef72 100644
--- a/lisp/progmodes/executable.el
+++ b/lisp/progmodes/executable.el
@@ -268,12 +268,16 @@ file modes."
268 (save-restriction 268 (save-restriction
269 (widen) 269 (widen)
270 (string= "#!" (buffer-substring (point-min) (+ 2 (point-min))))) 270 (string= "#!" (buffer-substring (point-min) (+ 2 (point-min)))))
271 (let* ((current-mode (file-modes (buffer-file-name))) 271 (condition-case nil
272 (add-mode (logand ?\111 (default-file-modes)))) 272 (let* ((current-mode (file-modes (buffer-file-name)))
273 (or (/= (logand ?\111 current-mode) 0) 273 (add-mode (logand ?\111 (default-file-modes))))
274 (zerop add-mode) 274 (or (/= (logand ?\111 current-mode) 0)
275 (set-file-modes (buffer-file-name) 275 (zerop add-mode)
276 (logior current-mode add-mode)))))) 276 (set-file-modes (buffer-file-name)
277 (logior current-mode add-mode))))
278 ;; Eg file-modes can return nil (bug#9879). It should not,
279 ;; in this context, but we should handle it all the same.
280 (error (message "Unable to make file executable")))))
277 281
278(provide 'executable) 282(provide 'executable)
279 283
diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el
index 007203a8b21..ce04d8b390e 100644
--- a/lisp/progmodes/f90.el
+++ b/lisp/progmodes/f90.el
@@ -1837,7 +1837,7 @@ after indenting."
1837 (and (< (point) pos) 1837 (and (< (point) pos)
1838 (goto-char pos)) 1838 (goto-char pos))
1839 (if auto-fill-function 1839 (if auto-fill-function
1840 ;; GM NO-UPDATE not honoured, since this calls f90-update-line. 1840 ;; GM NO-UPDATE not honored, since this calls f90-update-line.
1841 (f90-do-auto-fill) 1841 (f90-do-auto-fill)
1842 (or no-update (f90-update-line))) 1842 (or no-update (f90-update-line)))
1843 (set-marker pos nil))) 1843 (set-marker pos nil)))
diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el
index fd3d42685f0..e98ca58f3e0 100644
--- a/lisp/progmodes/fortran.el
+++ b/lisp/progmodes/fortran.el
@@ -29,7 +29,7 @@
29;; form. For editing Fortran 90 free format source, use `f90-mode' 29;; form. For editing Fortran 90 free format source, use `f90-mode'
30;; (f90.el). It is meant to support the GNU Fortran language 30;; (f90.el). It is meant to support the GNU Fortran language
31;; implemented by g77 (its extensions to Fortran77 and 31;; implemented by g77 (its extensions to Fortran77 and
32;; interpretations, e.g. of blackslash in strings). 32;; interpretations, e.g. of backslash in strings).
33 33
34;;; History: 34;;; History:
35 35
@@ -571,7 +571,7 @@ in the Fortran entry in `hs-special-modes-alist'.")
571 ;; An alternative is to match on THEN at a line end, eg: 571 ;; An alternative is to match on THEN at a line end, eg:
572 ;; ".*)[ \t]*then[ \t]*\\($\\|!\\)" 572 ;; ".*)[ \t]*then[ \t]*\\($\\|!\\)"
573 ;; This would also match ELSE branches, though. This does not seem 573 ;; This would also match ELSE branches, though. This does not seem
574 ;; right to me, because then one has neighbouring blocks that are 574 ;; right to me, because then one has neighboring blocks that are
575 ;; not nested in each other. 575 ;; not nested in each other.
576 "\\(if[ \t]*(\\(.*\\|" 576 "\\(if[ \t]*(\\(.*\\|"
577 ".*\n\\([^if]*\\([^i].\\|.[^f]\\|.\\>\\)\\)\\)\\<then\\|" 577 ".*\n\\([^if]*\\([^i].\\|.[^f]\\|.\\>\\)\\)\\)\\<then\\|"
@@ -1462,7 +1462,7 @@ Return point or nil."
1462 1462
1463(defun fortran-beginning-do () 1463(defun fortran-beginning-do ()
1464 "Search backwards for first unmatched DO [WHILE]. 1464 "Search backwards for first unmatched DO [WHILE].
1465Return point or nil. Ignores labelled DO loops (ie DO 10 ... 10 CONTINUE)." 1465Return point or nil. Ignores labeled DO loops (ie DO 10 ... 10 CONTINUE)."
1466 (let ((case-fold-search t) 1466 (let ((case-fold-search t)
1467 (dostart-re "\\(\\(\\sw\\|\\s_\\)+:[ \t]*\\)?do[ \t]+[^0-9]")) 1467 (dostart-re "\\(\\(\\sw\\|\\s_\\)+:[ \t]*\\)?do[ \t]+[^0-9]"))
1468 (if (save-excursion 1468 (if (save-excursion
@@ -1482,7 +1482,7 @@ Return point or nil. Ignores labelled DO loops (ie DO 10 ... 10 CONTINUE)."
1482 (skip-chars-forward " \t0-9") 1482 (skip-chars-forward " \t0-9")
1483 (cond ((looking-at dostart-re) 1483 (cond ((looking-at dostart-re)
1484 (setq count (1- count))) 1484 (setq count (1- count)))
1485 ;; Note labelled loop ends not considered. 1485 ;; Note labeled loop ends not considered.
1486 ((looking-at "end[ \t]*do\\b") 1486 ((looking-at "end[ \t]*do\\b")
1487 (setq count (1+ count))))) 1487 (setq count (1+ count)))))
1488 (and (zerop count) 1488 (and (zerop count)
diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el
index e47ba3c92f3..7d31fb63e91 100644
--- a/lisp/progmodes/gdb-mi.el
+++ b/lisp/progmodes/gdb-mi.el
@@ -25,7 +25,7 @@
25 25
26;;; Credits: 26;;; Credits:
27 27
28;; This file was written by by Nick Roberts following the general design 28;; This file was written by Nick Roberts following the general design
29;; used in gdb-ui.el for Emacs 22.1 - 23.1. It is currently being developed 29;; used in gdb-ui.el for Emacs 22.1 - 23.1. It is currently being developed
30;; by Dmitry Dzhus <dima@sphinx.net.ru> as part of the Google Summer 30;; by Dmitry Dzhus <dima@sphinx.net.ru> as part of the Google Summer
31;; of Code 2009 Project "Emacs GDB/MI migration". 31;; of Code 2009 Project "Emacs GDB/MI migration".
@@ -350,7 +350,7 @@ automatically.
350 350
351This setting is used in non-stop mode only. In all-stop mode, 351This setting is used in non-stop mode only. In all-stop mode,
352Emacs always switches to the thread which caused the stop." 352Emacs always switches to the thread which caused the stop."
353 ;; exited, exited-normally and exited-signalled are not 353 ;; exited, exited-normally and exited-signaled are not
354 ;; thread-specific stop reasons and therefore are not included in 354 ;; thread-specific stop reasons and therefore are not included in
355 ;; this list 355 ;; this list
356 :type '(choice 356 :type '(choice
@@ -2217,7 +2217,7 @@ Return position where LINE begins."
2217(defun gdb-mapcar* (function &rest seqs) 2217(defun gdb-mapcar* (function &rest seqs)
2218 "Apply FUNCTION to each element of SEQS, and make a list of the results. 2218 "Apply FUNCTION to each element of SEQS, and make a list of the results.
2219If there are several SEQS, FUNCTION is called with that many 2219If there are several SEQS, FUNCTION is called with that many
2220arugments, and mapping stops as sson as the shortest list runs 2220arguments, and mapping stops as soon as the shortest list runs
2221out." 2221out."
2222 (let ((shortest (apply #'min (mapcar #'length seqs)))) 2222 (let ((shortest (apply #'min (mapcar #'length seqs))))
2223 (mapcar (lambda (i) 2223 (mapcar (lambda (i)
@@ -3428,7 +3428,7 @@ breakpoints buffer."
3428 (error "Not recognized as break/watchpoint line"))))) 3428 (error "Not recognized as break/watchpoint line")))))
3429 3429
3430 3430
3431;; Frames buffer. This displays a perpetually correct bactrack trace. 3431;; Frames buffer. This displays a perpetually correct backtrack trace.
3432;; 3432;;
3433(def-gdb-trigger-and-handler 3433(def-gdb-trigger-and-handler
3434 gdb-invalidate-frames (gdb-current-context-command "-stack-list-frames") 3434 gdb-invalidate-frames (gdb-current-context-command "-stack-list-frames")
diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el
index ff192d5678e..dbffbc266e7 100644
--- a/lisp/progmodes/grep.el
+++ b/lisp/progmodes/grep.el
@@ -339,7 +339,7 @@ See `compilation-error-screen-columns'"
339 "The most recent grep buffer. 339 "The most recent grep buffer.
340A grep buffer becomes most recent when you select Grep mode in it. 340A grep buffer becomes most recent when you select Grep mode in it.
341Notice that using \\[next-error] or \\[compile-goto-error] modifies 341Notice that using \\[next-error] or \\[compile-goto-error] modifies
342`complation-last-buffer' rather than `grep-last-buffer'.") 342`compilation-last-buffer' rather than `grep-last-buffer'.")
343 343
344;;;###autoload 344;;;###autoload
345(defconst grep-regexp-alist 345(defconst grep-regexp-alist
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index 7b3a2893610..c60e8d72abc 100644
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -2016,7 +2016,7 @@ extension EXTN. Normally EXTN is given as the regular expression
2016 ((looking-at "final") 2016 ((looking-at "final")
2017 (forward-char 5)) 2017 (forward-char 5))
2018 2018
2019 ;; Move point past a ClassDeclaraction, but save the class 2019 ;; Move point past a ClassDeclaration, but save the class
2020 ;; Identifier. 2020 ;; Identifier.
2021 ((looking-at "class") 2021 ((looking-at "class")
2022 (forward-char 5) 2022 (forward-char 5)
@@ -2102,7 +2102,7 @@ extension EXTN. Normally EXTN is given as the regular expression
2102 massaged-args))) 2102 massaged-args)))
2103 2103
2104;; Search for an association with P, a fully qualified class name, in 2104;; Search for an association with P, a fully qualified class name, in
2105;; gud-jdb-class-source-alist. The asssociation gives the fully 2105;; gud-jdb-class-source-alist. The association gives the fully
2106;; qualified file name of the source file which produced the class. 2106;; qualified file name of the source file which produced the class.
2107(defun gud-jdb-find-source-file (p) 2107(defun gud-jdb-find-source-file (p)
2108 (cdr (assoc p gud-jdb-class-source-alist))) 2108 (cdr (assoc p gud-jdb-class-source-alist)))
@@ -2155,7 +2155,7 @@ during jdb initialization depending on the value of
2155 string 2155 string
2156 (concat "[ \t\n\r,\"" path-separator "]+"))))) 2156 (concat "[ \t\n\r,\"" path-separator "]+")))))
2157 2157
2158;; See comentary for other debugger's marker filters - there you will find 2158;; See commentary for other debugger's marker filters - there you will find
2159;; important notes about STRING. 2159;; important notes about STRING.
2160(defun gud-jdb-marker-filter (string) 2160(defun gud-jdb-marker-filter (string)
2161 2161
@@ -3387,7 +3387,7 @@ This event can be examined by forms in `gud-tooltip-display'.")
3387 3387
3388(defun gud-tooltip-dereference (&optional arg) 3388(defun gud-tooltip-dereference (&optional arg)
3389 "Toggle whether tooltips should show `* expr' or `expr'. 3389 "Toggle whether tooltips should show `* expr' or `expr'.
3390With arg, dereference expr if ARG is positive, otherwise do not derereference." 3390With arg, dereference expr if ARG is positive, otherwise do not dereference."
3391 (interactive "P") 3391 (interactive "P")
3392 (setq gud-tooltip-dereference 3392 (setq gud-tooltip-dereference
3393 (if (null arg) 3393 (if (null arg)
diff --git a/lisp/progmodes/idlw-help.el b/lisp/progmodes/idlw-help.el
index 8d8966ee159..2708346f05f 100644
--- a/lisp/progmodes/idlw-help.el
+++ b/lisp/progmodes/idlw-help.el
@@ -705,7 +705,8 @@ Those words in `idlwave-completion-help-links' have links. The
705 ;; we kill the help frame before the return-frame is selected. 705 ;; we kill the help frame before the return-frame is selected.
706 ;; To protect the workings, we wait for up to one second 706 ;; To protect the workings, we wait for up to one second
707 ;; and check if the return-frame *is* now selected. 707 ;; and check if the return-frame *is* now selected.
708 ;; This is marked "eperimental" since we are not sure when its OK. 708 ;; This is marked "experimental" since we are not sure when
709 ;; it's OK.
709 (let ((maxtime 1.0) (time 0.) (step 0.1)) 710 (let ((maxtime 1.0) (time 0.) (step 0.1))
710 (select-frame idlwave-help-return-frame) 711 (select-frame idlwave-help-return-frame)
711 (while (and (sit-for step) 712 (while (and (sit-for step)
@@ -990,7 +991,7 @@ on a line. Then `NAME:' must be followed by the routine name on the
990same or the next line. When KEYWORD is non-nil, looks first for a 991same or the next line. When KEYWORD is non-nil, looks first for a
991`KEYWORDS' section. It is amazing how inconsisten this is through 992`KEYWORDS' section. It is amazing how inconsisten this is through
992some IDL libraries I have seen. We settle for a line containing an 993some IDL libraries I have seen. We settle for a line containing an
993upper case \"KEYWORD\" string. If this line is not fould we search 994upper case \"KEYWORD\" string. If this line is not found we search
994for the keyword anyway to increase the hit-rate 995for the keyword anyway to increase the hit-rate
995 996
996When one of these sections exists we check for a line starting with any of 997When one of these sections exists we check for a line starting with any of
diff --git a/lisp/progmodes/idlw-shell.el b/lisp/progmodes/idlw-shell.el
index 18f47d14a3f..faccbb1f0ca 100644
--- a/lisp/progmodes/idlw-shell.el
+++ b/lisp/progmodes/idlw-shell.el
@@ -925,7 +925,7 @@ IDL has currently stepped.")
925 \\[idlwave-shell-print] or \\[idlwave-shell-mouse-print] with the 925 \\[idlwave-shell-print] or \\[idlwave-shell-mouse-print] with the
926 mouse, help, \\[idlwave-shell-help-expression] or 926 mouse, help, \\[idlwave-shell-help-expression] or
927 \\[idlwave-shell-mouse-help] with the mouse, or with a 927 \\[idlwave-shell-mouse-help] with the mouse, or with a
928 configureable set of custom examine commands using 928 configurable set of custom examine commands using
929 \\[idlwave-shell-examine-select]. The mouse examine commands can 929 \\[idlwave-shell-examine-select]. The mouse examine commands can
930 also work by click and drag, to select an expression for 930 also work by click and drag, to select an expression for
931 examination. 931 examination.
@@ -939,7 +939,7 @@ IDL has currently stepped.")
939 ------------------------------- 939 -------------------------------
940 Info documentation for this package is available. Use \\[idlwave-info] 940 Info documentation for this package is available. Use \\[idlwave-info]
941 to display (complain to your sysadmin if that does not work). 941 to display (complain to your sysadmin if that does not work).
942 For Postscript and HTML versions of the documentation, check IDLWAVE's 942 For PostScript and HTML versions of the documentation, check IDLWAVE's
943 homepage at URL `http://idlwave.org'. 943 homepage at URL `http://idlwave.org'.
944 IDLWAVE has customize support - see the group `idlwave'. 944 IDLWAVE has customize support - see the group `idlwave'.
945 945
@@ -959,7 +959,7 @@ IDL has currently stepped.")
959 ;; Can not use history expansion because "!" is used for system variables. 959 ;; Can not use history expansion because "!" is used for system variables.
960 (setq comint-input-autoexpand nil) 960 (setq comint-input-autoexpand nil)
961 ;; (setq comint-input-ring-size 64) 961 ;; (setq comint-input-ring-size 64)
962 962
963 (set (make-local-variable 'completion-ignore-case) t) 963 (set (make-local-variable 'completion-ignore-case) t)
964 (set (make-local-variable 'comint-completion-addsuffix) '("/" . "")) 964 (set (make-local-variable 'comint-completion-addsuffix) '("/" . ""))
965 (setq comint-input-ignoredups t) 965 (setq comint-input-ignoredups t)
@@ -3707,7 +3707,7 @@ Existing overlays are recycled, in order to minimize consumption."
3707(defun idlwave-shell-make-new-bp-overlay (&optional type disabled) 3707(defun idlwave-shell-make-new-bp-overlay (&optional type disabled)
3708 "Make a new overlay for highlighting breakpoints. 3708 "Make a new overlay for highlighting breakpoints.
3709 3709
3710This stuff is strongly dependant upon the version of Emacs. If TYPE 3710This stuff is strongly dependent upon the version of Emacs. If TYPE
3711is passed, make an overlay of that type ('bp or 'bp-cond, currently 3711is passed, make an overlay of that type ('bp or 'bp-cond, currently
3712only for glyphs)." 3712only for glyphs)."
3713 (let ((ov (make-overlay 1 1)) 3713 (let ((ov (make-overlay 1 1))
diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el
index c77ee4b76a9..1233ee19ff6 100644
--- a/lisp/progmodes/idlwave.el
+++ b/lisp/progmodes/idlwave.el
@@ -605,7 +605,7 @@ The value of this variable may be nil to inhibit display, or an integer to
605indicate the maximum number of classes to display. 605indicate the maximum number of classes to display.
606 606
607On XEmacs, a full list of classes will also be placed into a `help-echo' 607On XEmacs, a full list of classes will also be placed into a `help-echo'
608property on the competion items, so that the list of classes for the current 608property on the completion items, so that the list of classes for the current
609item is displayed in the echo area. If the value of this variable is a 609item is displayed in the echo area. If the value of this variable is a
610negative integer, the `help-echo' property will be suppressed." 610negative integer, the `help-echo' property will be suppressed."
611 :group 'idlwave-completion 611 :group 'idlwave-completion
@@ -7206,7 +7206,7 @@ If these don't exist, a letter in the string is automatically selected."
7206;;---------------------------------------------------------------------- 7206;;----------------------------------------------------------------------
7207 7207
7208;;; ------------------------------------------------------------------------ 7208;;; ------------------------------------------------------------------------
7209;;; Stucture parsing code, and code to manage class info 7209;;; Structure parsing code, and code to manage class info
7210 7210
7211;; 7211;;
7212;; - Go again over the documentation how to write a completion 7212;; - Go again over the documentation how to write a completion
@@ -8961,7 +8961,7 @@ This expects NAME TYPE IDLWAVE-TWIN-CLASS to be bound to the right values."
8961 (nth 1 source))) 8961 (nth 1 source)))
8962 8962
8963(defun idlwave-downcase-safe (string) 8963(defun idlwave-downcase-safe (string)
8964 "Donwcase if string, else return unchanged." 8964 "Downcase if string, else return unchanged."
8965 (if (stringp string) 8965 (if (stringp string)
8966 (downcase string) 8966 (downcase string)
8967 string)) 8967 string))
diff --git a/lisp/progmodes/js.el b/lisp/progmodes/js.el
index 5505e8e94b2..0e3fdc78a39 100644
--- a/lisp/progmodes/js.el
+++ b/lisp/progmodes/js.el
@@ -1295,7 +1295,7 @@ LIMIT defaults to point."
1295;; Like (up-list -1), but only considers lists that end nearby" 1295;; Like (up-list -1), but only considers lists that end nearby"
1296(defun js--up-nearby-list () 1296(defun js--up-nearby-list ()
1297 (save-restriction 1297 (save-restriction
1298 ;; Look at a very small region so our compuation time doesn't 1298 ;; Look at a very small region so our computation time doesn't
1299 ;; explode in pathological cases. 1299 ;; explode in pathological cases.
1300 (narrow-to-region (max (point-min) (- (point) 500)) (point)) 1300 (narrow-to-region (max (point-min) (- (point) 500)) (point))
1301 (up-list -1))) 1301 (up-list -1)))
@@ -3352,7 +3352,7 @@ If one hasn't been set, or if it's stale, prompt for a new one."
3352 ;; etc. and produce maddening "unbalanced parenthesis" errors. 3352 ;; etc. and produce maddening "unbalanced parenthesis" errors.
3353 ;; When we attempt to find the error and scroll to the portion of 3353 ;; When we attempt to find the error and scroll to the portion of
3354 ;; the buffer containing the problem, JIT-lock will apply the 3354 ;; the buffer containing the problem, JIT-lock will apply the
3355 ;; correct syntax to the regular expresion literal and the problem 3355 ;; correct syntax to the regular expression literal and the problem
3356 ;; will mysteriously disappear. 3356 ;; will mysteriously disappear.
3357 ;; FIXME: We should actually do this fontification lazily by adding 3357 ;; FIXME: We should actually do this fontification lazily by adding
3358 ;; calls to syntax-propertize wherever it's really needed. 3358 ;; calls to syntax-propertize wherever it's really needed.
diff --git a/lisp/progmodes/make-mode.el b/lisp/progmodes/make-mode.el
index 293ba49d4ae..c49519ed179 100644
--- a/lisp/progmodes/make-mode.el
+++ b/lisp/progmodes/make-mode.el
@@ -532,7 +532,7 @@ not be enclosed in { } or ( )."
532;; should return an exit status of zero if the target `foo' is 532;; should return an exit status of zero if the target `foo' is
533;; up to date and a nonzero exit status otherwise. 533;; up to date and a nonzero exit status otherwise.
534;; Many makes can do this although the docs/manpages do not mention 534;; Many makes can do this although the docs/manpages do not mention
535;; it. Try it with your favourite one. GNU make, System V make, and 535;; it. Try it with your favorite one. GNU make, System V make, and
536;; Dennis Vadura's DMake have no problems. 536;; Dennis Vadura's DMake have no problems.
537;; Set the variable `makefile-brave-make' to the name of the 537;; Set the variable `makefile-brave-make' to the name of the
538;; make utility that does this on your system. 538;; make utility that does this on your system.
diff --git a/lisp/progmodes/meta-mode.el b/lisp/progmodes/meta-mode.el
index ab640c0e270..d0a34179cc8 100644
--- a/lisp/progmodes/meta-mode.el
+++ b/lisp/progmodes/meta-mode.el
@@ -27,53 +27,17 @@
27;; 27;;
28;; This Emacs Lisp package provides a major mode for editing Metafont 28;; This Emacs Lisp package provides a major mode for editing Metafont
29;; or MetaPost sources. It includes all the necessary code to set up 29;; or MetaPost sources. It includes all the necessary code to set up
30;; a major mode including an approriate syntax table, keymap, and a 30;; a major mode including an appropriate syntax table, keymap, and a
31;; mode-specific pull-down menu. It also provides a sophisticated set 31;; mode-specific pull-down menu. It also provides a sophisticated set
32;; of font-lock patterns, a fancy indentation function adapted from 32;; of font-lock patterns, a fancy indentation function adapted from
33;; AUCTeX's latex.el, and some basic mode-specific editing functions 33;; AUCTeX's latex.el, and some basic mode-specific editing functions
34;; such as functions to move to the beginning or end of the enclosing 34;; such as functions to move to the beginning or end of the enclosing
35;; environment, or to mark, re-indent, or comment-out environments. 35;; environment, or to mark, re-indent, or comment-out environments.
36;; On the other hand, it doesn't yet provide any functionality for 36;; On the other hand, it doesn't yet provide any functionality for
37;; running Metafont or MetaPost in a shell buffer form within Emacs, 37;; running Metafont or MetaPost in a shell buffer from within Emacs,
38;; but such functionality might be added later, either as part of this 38;; but such functionality might be added later, either as part of this
39;; package or as a separate Emacs Lisp package. 39;; package or as a separate Emacs Lisp package.
40 40
41;; Installation:
42;;
43;; An interface to running Metafont or MetaPost as a shell process
44;; from within Emacs is currently under development as a separate
45;; Emacs Lisp package (meta-buf.el). In order to have that package
46;; loaded automatically when first entering Metafont or MetaPost mode,
47;; you might use the load-hook provided in this package by adding
48;; these lines to your startup file:
49;;
50;; (add-hook 'meta-mode-load-hook
51;; (lambda () (require 'meta-buf)))
52;;
53;; The add-on package loaded this way may in turn make use of the
54;; mode-hooks provided in this package to activate additional features
55;; when entering Metafont or MetaPost mode.
56
57;; Font Lock Support:
58;;
59;; If you are using global-font-lock-mode (introduced in Emacs 19.31),
60;; fontification in Metafont and/or MetaPost mode will be activated
61;; automatically. To speed up fontification for the rather complex
62;; patterns used in these modes, it may be a good idea to activate
63;; lazy-lock as a font-lock-support-mode (introduced in Emacs 19.32)
64;; by adding these lines to your startup file:
65;;
66;; (global-font-lock-mode t)
67;; (setq font-lock-support-mode 'lazy-lock-mode)
68;;
69;; If you are using an older version of Emacs, which doesn't provide
70;; global-font-lock-mode or font-lock-support-mode, you can also
71;; activate fontification in Metafont and/or MetaPost mode by adding
72;; the following lines to your startup file:
73;;
74;; (add-hook 'meta-common-mode-hook 'turn-on-font-lock)
75;; (add-hook 'meta-common-mode-hook 'turn-on-lazy-lock)
76
77;; Customization: 41;; Customization:
78;; 42;;
79;; Following the usual Emacs Lisp coding conventions, the major modes 43;; Following the usual Emacs Lisp coding conventions, the major modes
@@ -88,10 +52,6 @@
88 52
89;; Availability: 53;; Availability:
90;; 54;;
91;; This package is currently available via my "TeX Software" WWW page:
92;;
93;; http://www.thphy.uni-duesseldorf.de/~vieth/subjects/tex/software.html
94;;
95;; As of this version 1.0, this package will be uploaded to CTAN 55;; As of this version 1.0, this package will be uploaded to CTAN
96;; archives, where it shall find a permanent home, presumably in 56;; archives, where it shall find a permanent home, presumably in
97;; tex-archive/support/emacs-modes. It will also be submitted for 57;; tex-archive/support/emacs-modes. It will also be submitted for
@@ -104,7 +64,7 @@
104;; v 0.2 -- 1997/02/03 UV Improved and debugged font-lock patterns. 64;; v 0.2 -- 1997/02/03 UV Improved and debugged font-lock patterns.
105;; Added indent-line-function for TAB. 65;; Added indent-line-function for TAB.
106;; v 0.3 -- 1997/02/17 UV Improved font-lock patterns and syntax table. 66;; v 0.3 -- 1997/02/17 UV Improved font-lock patterns and syntax table.
107;; Improved and debbuged indentation function. 67;; Improved and debugged indentation function.
108;; v 0.4 -- 1997/02/18 UV Added functions to indent regions for M-C-q, 68;; v 0.4 -- 1997/02/18 UV Added functions to indent regions for M-C-q,
109;; also added a preliminary mode-specific menu. 69;; also added a preliminary mode-specific menu.
110;; v 0.5 -- 1997/02/19 UV Added functions to skip to next or previous 70;; v 0.5 -- 1997/02/19 UV Added functions to skip to next or previous
@@ -201,7 +161,7 @@
201 "[ \t\f]+\\(\\sw+\\|\\s_+\\|\\s.+\\)") 161 "[ \t\f]+\\(\\sw+\\|\\s_+\\|\\s.+\\)")
202 '((1 font-lock-keyword-face) 162 '((1 font-lock-keyword-face)
203 (2 font-lock-function-name-face))) 163 (2 font-lock-function-name-face)))
204 ;; binary macro defintions: <leveldef> x operator y 164 ;; binary macro definitions: <leveldef> x operator y
205 (cons (concat "\\<" macro-keywords-2 "\\>" 165 (cons (concat "\\<" macro-keywords-2 "\\>"
206 "[ \t\f]+\\(\\sw+\\)" 166 "[ \t\f]+\\(\\sw+\\)"
207 "[ \t\f]*\\(\\sw+\\|\\s.+\\)" 167 "[ \t\f]*\\(\\sw+\\|\\s.+\\)"
@@ -513,13 +473,13 @@ If the list was changed, sort the list and remove duplicates first."
513 :group 'meta-font) 473 :group 'meta-font)
514 474
515(defcustom meta-right-comment-regexp nil 475(defcustom meta-right-comment-regexp nil
516 "Regexp matching comments that should be placed to the right margin." 476 "Regexp matching comments that should be placed on the right margin."
517 :type '(choice regexp 477 :type '(choice regexp
518 (const :tag "None" nil)) 478 (const :tag "None" nil))
519 :group 'meta-font) 479 :group 'meta-font)
520 480
521(defcustom meta-ignore-comment-regexp "%[^%]" 481(defcustom meta-ignore-comment-regexp "%[^%]"
522 "Regexp matching comments that whose indentation should not be touched." 482 "Regexp matching comments whose indentation should not be touched."
523 :type 'regexp 483 :type 'regexp
524 :group 'meta-font) 484 :group 'meta-font)
525 485
@@ -740,7 +700,7 @@ If the list was changed, sort the list and remove duplicates first."
740 700
741 701
742(defun meta-beginning-of-defun (&optional arg) 702(defun meta-beginning-of-defun (&optional arg)
743 "Move backward to beginnning of a defun in Metafont or MetaPost code. 703 "Move backward to beginning of a defun in Metafont or MetaPost code.
744With numeric argument, do it that many times. 704With numeric argument, do it that many times.
745Negative arg -N means move forward to Nth following beginning of defun. 705Negative arg -N means move forward to Nth following beginning of defun.
746Returns t unless search stops due to beginning or end of buffer." 706Returns t unless search stops due to beginning or end of buffer."
diff --git a/lisp/progmodes/mixal-mode.el b/lisp/progmodes/mixal-mode.el
index 103c7be7d3c..7d1f12595ab 100644
--- a/lisp/progmodes/mixal-mode.el
+++ b/lisp/progmodes/mixal-mode.el
@@ -1058,7 +1058,7 @@ EXECUTION-TIME holds info about the time it takes, number or string.")
1058 (list 1058 (list
1059 (let* ((completion-ignore-case t) 1059 (let* ((completion-ignore-case t)
1060 ;; we already have a list, but it is not in the right format 1060 ;; we already have a list, but it is not in the right format
1061 ;; transform it to a valid table so completition can use it 1061 ;; transform it to a valid table so completion can use it
1062 (table (mapcar (lambda (elm) (cons (symbol-name (car elm)) nil)) 1062 (table (mapcar (lambda (elm) (cons (symbol-name (car elm)) nil))
1063 mixal-operation-codes-alist)) 1063 mixal-operation-codes-alist))
1064 ;; prompt is different depending on we are close to a valid op-code 1064 ;; prompt is different depending on we are close to a valid op-code
diff --git a/lisp/progmodes/modula2.el b/lisp/progmodes/modula2.el
index f0b8f7cbca7..0c43a3ed354 100644
--- a/lisp/progmodes/modula2.el
+++ b/lisp/progmodes/modula2.el
@@ -466,7 +466,7 @@ followed by the first character of the construct.
466 '(m2-var) \n _ \n \n 466 '(m2-var) \n _ \n \n
467 '(m2-begin) 467 '(m2-begin)
468 '(m2-begin-comment) 468 '(m2-begin-comment)
469 " Module " str " Initialisation Code " 469 " Module " str " Initialization Code "
470 '(m2-end-comment) 470 '(m2-end-comment)
471 \n \n "END " str "." > \n) 471 \n \n "END " str "." > \n)
472 472
diff --git a/lisp/progmodes/pascal.el b/lisp/progmodes/pascal.el
index 57ed13969b4..67e3c4a18b4 100644
--- a/lisp/progmodes/pascal.el
+++ b/lisp/progmodes/pascal.el
@@ -227,7 +227,7 @@ will do all lineups."
227 :type '(set :extra-offset 8 227 :type '(set :extra-offset 8
228 (const :tag "Everything" all) 228 (const :tag "Everything" all)
229 (const :tag "Parameter lists" paramlist) 229 (const :tag "Parameter lists" paramlist)
230 (const :tag "Decalrations" declaration) 230 (const :tag "Declarations" declaration)
231 (const :tag "Case statements" case)) 231 (const :tag "Case statements" case))
232 :group 'pascal) 232 :group 'pascal)
233 233
diff --git a/lisp/progmodes/prolog.el b/lisp/progmodes/prolog.el
index 283919c131e..ef0905bb2a8 100644
--- a/lisp/progmodes/prolog.el
+++ b/lisp/progmodes/prolog.el
@@ -116,7 +116,7 @@
116;; Version 1.22: 116;; Version 1.22:
117;; o Allowed both 'swipl' and 'pl' as names for the SWI Prolog 117;; o Allowed both 'swipl' and 'pl' as names for the SWI Prolog
118;; interpreter. 118;; interpreter.
119;; o Atoms that start a line are not blindly coloured as 119;; o Atoms that start a line are not blindly colored as
120;; predicates. Instead we check that they are followed by ( or 120;; predicates. Instead we check that they are followed by ( or
121;; :- first. Patch suggested by Guy Wiener. 121;; :- first. Patch suggested by Guy Wiener.
122;; Version 1.21: 122;; Version 1.21:
@@ -151,7 +151,7 @@
151;; (`prolog-electric-dot-full-predicate-template', defaults to t 151;; (`prolog-electric-dot-full-predicate-template', defaults to t
152;; since it seems quicker to me to just type those commata). A 152;; since it seems quicker to me to just type those commata). A
153;; trivial adaptation of a patch by Markus Triska. 153;; trivial adaptation of a patch by Markus Triska.
154;; o Improved the behaviour of electric if-then-else to only skip 154;; o Improved the behavior of electric if-then-else to only skip
155;; forward if the parenthesis/semicolon is preceded by 155;; forward if the parenthesis/semicolon is preceded by
156;; whitespace. Once more a trivial adaptation of a patch by 156;; whitespace. Once more a trivial adaptation of a patch by
157;; Markus Triska. 157;; Markus Triska.
@@ -1023,7 +1023,7 @@ VERSION is of the format (Major . Minor)"
1023 1023
1024 1024
1025(defvar prolog-mode-hook nil 1025(defvar prolog-mode-hook nil
1026 "List of functions to call after the prolog mode has initialised.") 1026 "List of functions to call after the prolog mode has initialized.")
1027 1027
1028(unless (fboundp 'prog-mode) 1028(unless (fboundp 'prog-mode)
1029 (defalias 'prog-mode 'fundamental-mode)) 1029 (defalias 'prog-mode 'fundamental-mode))
@@ -1090,7 +1090,7 @@ Actually this is just customized `prolog-mode'."
1090 map)) 1090 map))
1091 1091
1092(defvar prolog-inferior-mode-hook nil 1092(defvar prolog-inferior-mode-hook nil
1093 "List of functions to call after the inferior prolog mode has initialised.") 1093 "List of functions to call after the inferior prolog mode has initialized.")
1094 1094
1095(defvar prolog-inferior-error-regexp-alist 1095(defvar prolog-inferior-error-regexp-alist
1096 '(;; GNU Prolog used to not follow the GNU standard format. 1096 '(;; GNU Prolog used to not follow the GNU standard format.
diff --git a/lisp/progmodes/ps-mode.el b/lisp/progmodes/ps-mode.el
index d60e7513651..94d55ee3f61 100644
--- a/lisp/progmodes/ps-mode.el
+++ b/lisp/progmodes/ps-mode.el
@@ -624,7 +624,7 @@ Typing \\<ps-run-mode-map>\\[ps-run-goto-error] when the cursor is at the number
624(defun ps-mode-target-column () 624(defun ps-mode-target-column ()
625 "To what column should text on current line be indented? 625 "To what column should text on current line be indented?
626 626
627Identation is increased if the last token on the current line 627Indentation is increased if the last token on the current line
628defines the beginning of a group. These tokens are: { [ <<" 628defines the beginning of a group. These tokens are: { [ <<"
629 (save-excursion 629 (save-excursion
630 (beginning-of-line) 630 (beginning-of-line)
diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el
index 38bf9552b2a..a0a368777e7 100644
--- a/lisp/progmodes/python.el
+++ b/lisp/progmodes/python.el
@@ -119,7 +119,7 @@
119 (1 font-lock-type-face)) 119 (1 font-lock-type-face))
120 ;; Built-ins. (The next three blocks are from 120 ;; Built-ins. (The next three blocks are from
121 ;; `__builtin__.__dict__.keys()' in Python 2.7) These patterns 121 ;; `__builtin__.__dict__.keys()' in Python 2.7) These patterns
122 ;; are debateable, but they at least help to spot possible 122 ;; are debatable, but they at least help to spot possible
123 ;; shadowing of builtins. 123 ;; shadowing of builtins.
124 (,(rx symbol-start (or 124 (,(rx symbol-start (or
125 ;; exceptions 125 ;; exceptions
@@ -550,7 +550,7 @@ element matches `python-python-command'."
550 "^> \\(.*\\)(\\([0-9]+\\))\\([?a-zA-Z0-9_<>]+\\)()" 550 "^> \\(.*\\)(\\([0-9]+\\))\\([?a-zA-Z0-9_<>]+\\)()"
551 "Regular expression pdbtrack uses to find a stack trace entry.") 551 "Regular expression pdbtrack uses to find a stack trace entry.")
552 552
553(defconst python-pdbtrack-input-prompt "\n[(<]*[Pp]db[>)]+ " 553(defconst python-pdbtrack-input-prompt "\n[(<]*[Ii]?[Pp]db[>)]+ "
554 "Regular expression pdbtrack uses to recognize a pdb prompt.") 554 "Regular expression pdbtrack uses to recognize a pdb prompt.")
555 555
556(defconst python-pdbtrack-track-range 10000 556(defconst python-pdbtrack-track-range 10000
@@ -948,22 +948,12 @@ Finds end of innermost nested class or method definition."
948 "Go to start of current statement. 948 "Go to start of current statement.
949Accounts for continuation lines, multi-line strings, and 949Accounts for continuation lines, multi-line strings, and
950multi-line bracketed expressions." 950multi-line bracketed expressions."
951 (beginning-of-line) 951 (while
952 (python-beginning-of-string)
953 (let (point)
954 (while (and (python-continuation-line-p)
955 (if point
956 (< (point) point)
957 t))
958 (beginning-of-line)
959 (if (python-backslash-continuation-line-p) 952 (if (python-backslash-continuation-line-p)
960 (progn 953 (progn (forward-line -1) t)
961 (forward-line -1) 954 (beginning-of-line)
962 (while (python-backslash-continuation-line-p) 955 (or (python-beginning-of-string)
963 (forward-line -1))) 956 (python-skip-out))))
964 (python-beginning-of-string)
965 (python-skip-out))
966 (setq point (point))))
967 (back-to-indentation)) 957 (back-to-indentation))
968 958
969(defun python-skip-out (&optional forward syntax) 959(defun python-skip-out (&optional forward syntax)
@@ -971,6 +961,7 @@ multi-line bracketed expressions."
971Skip forward if FORWARD is non-nil, else backward. 961Skip forward if FORWARD is non-nil, else backward.
972If SYNTAX is non-nil it is the state returned by `syntax-ppss' at point. 962If SYNTAX is non-nil it is the state returned by `syntax-ppss' at point.
973Return non-nil if and only if skipping was done." 963Return non-nil if and only if skipping was done."
964 ;; FIXME: Use syntax-ppss-toplevel-pos.
974 (let ((depth (syntax-ppss-depth (or syntax (syntax-ppss)))) 965 (let ((depth (syntax-ppss-depth (or syntax (syntax-ppss))))
975 (forward (if forward -1 1))) 966 (forward (if forward -1 1)))
976 (unless (zerop depth) 967 (unless (zerop depth)
@@ -2562,7 +2553,7 @@ If the traceback target file path is invalid, we look for the
2562most recently visited python-mode buffer which either has the 2553most recently visited python-mode buffer which either has the
2563name of the current function or class, or which defines the 2554name of the current function or class, or which defines the
2564function or class. This is to provide for scripts not in the 2555function or class. This is to provide for scripts not in the
2565local filesytem (e.g., Zope's 'Script \(Python)', but it's not 2556local file system (e.g., Zope's 'Script \(Python)', but it's not
2566Zope specific). If you put a copy of the script in a buffer 2557Zope specific). If you put a copy of the script in a buffer
2567named for the script and activate python-mode, then pdbtrack will 2558named for the script and activate python-mode, then pdbtrack will
2568find it." 2559find it."
@@ -2592,6 +2583,7 @@ find it."
2592 (if (not (string-match (concat python-pdbtrack-input-prompt "$") block)) 2583 (if (not (string-match (concat python-pdbtrack-input-prompt "$") block))
2593 (python-pdbtrack-overlay-arrow nil) 2584 (python-pdbtrack-overlay-arrow nil)
2594 2585
2586 (setq block (ansi-color-filter-apply block))
2595 (setq target (python-pdbtrack-get-source-buffer block)) 2587 (setq target (python-pdbtrack-get-source-buffer block))
2596 2588
2597 (if (stringp target) 2589 (if (stringp target)
diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el
index 7b949134c6c..bca5c93e0a5 100644
--- a/lisp/progmodes/sh-script.el
+++ b/lisp/progmodes/sh-script.el
@@ -889,7 +889,7 @@ See `sh-feature'.")
889 font-lock-variable-name-face)) 889 font-lock-variable-name-face))
890 890
891 (rc sh-append es) 891 (rc sh-append es)
892 (bash sh-append shell ("\\$(\\(\\sw+\\)" (1 'sh-quoted-exec t) )) 892 (bash sh-append sh ("\\$(\\(\\sw+\\)" (1 'sh-quoted-exec t) ))
893 (sh sh-append shell 893 (sh sh-append shell
894 ;; Variable names. 894 ;; Variable names.
895 ("\\$\\({#?\\)?\\([[:alpha:]_][[:alnum:]_]*\\|[-#?@!]\\)" 2 895 ("\\$\\({#?\\)?\\([[:alpha:]_][[:alnum:]_]*\\|[-#?@!]\\)" 2
@@ -985,7 +985,7 @@ Find all the unescaped \" characters within said subshell, remembering that
985subshells can nest." 985subshells can nest."
986 ;; FIXME: This can (and often does) match multiple lines, yet it makes no 986 ;; FIXME: This can (and often does) match multiple lines, yet it makes no
987 ;; effort to handle multiline cases correctly, so it ends up being 987 ;; effort to handle multiline cases correctly, so it ends up being
988 ;; rather flakey. 988 ;; rather flaky.
989 (when (eq ?\" (nth 3 (syntax-ppss))) ; Check we matched an opening quote. 989 (when (eq ?\" (nth 3 (syntax-ppss))) ; Check we matched an opening quote.
990 ;; bingo we have a $( or a ` inside a "" 990 ;; bingo we have a $( or a ` inside a ""
991 (let (;; `state' can be: double-quote, backquote, code. 991 (let (;; `state' can be: double-quote, backquote, code.
diff --git a/lisp/progmodes/sql.el b/lisp/progmodes/sql.el
index 97a1c4605c2..af9ab537893 100644
--- a/lisp/progmodes/sql.el
+++ b/lisp/progmodes/sql.el
@@ -672,7 +672,7 @@ highlighted properly when you open them."
672 :safe 'symbolp) 672 :safe 'symbolp)
673(defvaralias 'sql-dialect 'sql-product) 673(defvaralias 'sql-dialect 'sql-product)
674 674
675;; misc customization of sql.el behaviour 675;; misc customization of sql.el behavior
676 676
677(defcustom sql-electric-stuff nil 677(defcustom sql-electric-stuff nil
678 "Treat some input as electric. 678 "Treat some input as electric.
@@ -1595,7 +1595,7 @@ to add functions and PL/SQL keywords.")
1595"cast" "ceil" "chartorowid" "chr" "cluster_id" "cluster_probability" 1595"cast" "ceil" "chartorowid" "chr" "cluster_id" "cluster_probability"
1596"cluster_set" "coalesce" "collect" "compose" "concat" "convert" "corr" 1596"cluster_set" "coalesce" "collect" "compose" "concat" "convert" "corr"
1597"corr_k" "corr_s" "cos" "cosh" "count" "covar_pop" "covar_samp" 1597"corr_k" "corr_s" "cos" "cosh" "count" "covar_pop" "covar_samp"
1598"cube_table" "cume_dist" "currrent_date" "currrent_timestamp" "cv" 1598"cube_table" "cume_dist" "current_date" "current_timestamp" "cv"
1599"dataobj_to_partition" "dbtimezone" "decode" "decompose" "deletexml" 1599"dataobj_to_partition" "dbtimezone" "decode" "decompose" "deletexml"
1600"dense_rank" "depth" "deref" "dump" "empty_blob" "empty_clob" 1600"dense_rank" "depth" "deref" "dump" "empty_blob" "empty_clob"
1601"existsnode" "exp" "extract" "extractvalue" "feature_id" "feature_set" 1601"existsnode" "exp" "extract" "extractvalue" "feature_id" "feature_set"
@@ -3600,12 +3600,12 @@ The list is maintained in SQL interactive buffers.")
3600 (setq has-schema (and 3600 (setq has-schema (and
3601 (>= (length (car names)) schema-len) 3601 (>= (length (car names)) schema-len)
3602 (string= schema-dot 3602 (string= schema-dot
3603 (downcase (substring (car names) 3603 (downcase (substring (car names)
3604 0 schema-len)))) 3604 0 schema-len))))
3605 names (cdr names))) 3605 names (cdr names)))
3606 (unless has-schema 3606 (unless has-schema
3607 (sql-build-completions schema))))) 3607 (sql-build-completions schema)))))
3608 3608
3609 ;; Try to find the completion 3609 ;; Try to find the completion
3610 (cond 3610 (cond
3611 ((not predicate) 3611 ((not predicate)
@@ -3951,7 +3951,7 @@ is specified in the connection settings."
3951 ;; interactive session 3951 ;; interactive session
3952 (eval `(let ((sql-connection ,connection) 3952 (eval `(let ((sql-connection ,connection)
3953 (,param-var ',rem-params)) 3953 (,param-var ',rem-params))
3954 (sql-product-interactive sql-product 3954 (sql-product-interactive sql-product
3955 new-name))))) 3955 new-name)))))
3956 3956
3957 (message "SQL Connection <%s> does not exist" connection) 3957 (message "SQL Connection <%s> does not exist" connection)
@@ -3981,16 +3981,16 @@ optionally is saved to the user's init file."
3981 3981
3982 (if connection 3982 (if connection
3983 (message "This session was started by a connection; it's already been saved.") 3983 (message "This session was started by a connection; it's already been saved.")
3984 3984
3985 (let ((login (sql-get-product-feature product :sqli-login)) 3985 (let ((login (sql-get-product-feature product :sqli-login))
3986 (alist sql-connection-alist) 3986 (alist sql-connection-alist)
3987 connect) 3987 connect)
3988 3988
3989 ;; Remove the existing connection if the user says so 3989 ;; Remove the existing connection if the user says so
3990 (when (and (assoc name alist) 3990 (when (and (assoc name alist)
3991 (yes-or-no-p (format "Replace connection definition <%s>? " name))) 3991 (yes-or-no-p (format "Replace connection definition <%s>? " name)))
3992 (setq alist (assq-delete-all name alist))) 3992 (setq alist (assq-delete-all name alist)))
3993 3993
3994 ;; Add the new connection if it doesn't exist 3994 ;; Add the new connection if it doesn't exist
3995 (if (assoc name alist) 3995 (if (assoc name alist)
3996 (message "Connection <%s> already exists" name) 3996 (message "Connection <%s> already exists" name)
@@ -4747,8 +4747,8 @@ Try to set `comint-output-filter-functions' like this:
4747 (sql-redirect sqlbuf "\\t off") 4747 (sql-redirect sqlbuf "\\t off")
4748 (when (not (string= a "aligned")) 4748 (when (not (string= a "aligned"))
4749 (sql-redirect sqlbuf "\\a")) 4749 (sql-redirect sqlbuf "\\a"))
4750 4750
4751 ;; Return the list of table names (public schema name can be omitted) 4751 ;; Return the list of table names (public schema name can be omitted)
4752 (mapcar (lambda (tbl) 4752 (mapcar (lambda (tbl)
4753 (if (string= (car tbl) "public") 4753 (if (string= (car tbl) "public")
4754 (cadr tbl) 4754 (cadr tbl)
diff --git a/lisp/progmodes/tcl.el b/lisp/progmodes/tcl.el
index f18ec5abe81..d0e2c5abe7d 100644
--- a/lisp/progmodes/tcl.el
+++ b/lisp/progmodes/tcl.el
@@ -861,7 +861,7 @@ Returns nil if line starts inside a string, t if in a comment."
861 expr-p) 861 expr-p)
862 (progn 862 (progn
863 ;; Line is continuation line, or the sexp opener 863 ;; Line is continuation line, or the sexp opener
864 ;; is not a curly brace, or we are are looking at 864 ;; is not a curly brace, or we are looking at
865 ;; an `expr' expression (which must be split 865 ;; an `expr' expression (which must be split
866 ;; specially). So indentation is column of first 866 ;; specially). So indentation is column of first
867 ;; good spot after sexp opener (with some added 867 ;; good spot after sexp opener (with some added
diff --git a/lisp/progmodes/verilog-mode.el b/lisp/progmodes/verilog-mode.el
index f7cb1318dc0..2d8334bcb7d 100644
--- a/lisp/progmodes/verilog-mode.el
+++ b/lisp/progmodes/verilog-mode.el
@@ -292,7 +292,7 @@ STRING should be given if the last search was by `string-match' on STRING."
292 "Filter `easy-menu-define' MENU to support new features." 292 "Filter `easy-menu-define' MENU to support new features."
293 (cond ((not (featurep 'xemacs)) 293 (cond ((not (featurep 'xemacs))
294 menu) ;; GNU Emacs - passthru 294 menu) ;; GNU Emacs - passthru
295 ;; Xemacs doesn't support :help. Strip it. 295 ;; XEmacs doesn't support :help. Strip it.
296 ;; Recursively filter the a submenu 296 ;; Recursively filter the a submenu
297 ((listp menu) 297 ((listp menu)
298 (mapcar 'verilog-easy-menu-filter menu)) 298 (mapcar 'verilog-easy-menu-filter menu))
@@ -737,7 +737,7 @@ See `compilation-error-regexp-alist' for the formatting. For Emacs 22+.")
737(defvar verilog-error-regexp-xemacs-alist 737(defvar verilog-error-regexp-xemacs-alist
738 ;; Emacs form is '((v-tool "re" 1 2) ...) 738 ;; Emacs form is '((v-tool "re" 1 2) ...)
739 ;; XEmacs form is '(verilog ("re" 1 2) ...) 739 ;; XEmacs form is '(verilog ("re" 1 2) ...)
740 ;; So we can just map from Emacs to Xemacs 740 ;; So we can just map from Emacs to XEmacs
741 (cons 'verilog (mapcar 'cdr verilog-error-regexp-emacs-alist)) 741 (cons 'verilog (mapcar 'cdr verilog-error-regexp-emacs-alist))
742 "List of regexps for Verilog compilers. 742 "List of regexps for Verilog compilers.
743See `compilation-error-regexp-alist-alist' for the formatting. For XEmacs.") 743See `compilation-error-regexp-alist-alist' for the formatting. For XEmacs.")
@@ -913,7 +913,7 @@ the MSB or LSB of a signal inside an AUTORESET."
913(put 'verilog-assignment-delay 'safe-local-variable 'stringp) 913(put 'verilog-assignment-delay 'safe-local-variable 'stringp)
914 914
915(defcustom verilog-auto-arg-sort nil 915(defcustom verilog-auto-arg-sort nil
916 "*If set, AUTOARG signal names will be sorted, not in delaration order. 916 "*If set, AUTOARG signal names will be sorted, not in declaration order.
917Declaration order is advantageous with order based instantiations 917Declaration order is advantageous with order based instantiations
918and is the default for backward compatibility. Sorted order 918and is the default for backward compatibility. Sorted order
919reduces changes when declarations are moved around in a file, and 919reduces changes when declarations are moved around in a file, and
@@ -1847,7 +1847,7 @@ find the errors."
1847 )) 1847 ))
1848 1848
1849(defconst verilog-auto-end-comment-lines-re 1849(defconst verilog-auto-end-comment-lines-re
1850 ;; Matches to names in this list cause auto-end-commentation 1850 ;; Matches to names in this list cause auto-end-commenting
1851 (concat "\\(" 1851 (concat "\\("
1852 verilog-directive-re "\\)\\|\\(" 1852 verilog-directive-re "\\)\\|\\("
1853 (eval-when-compile 1853 (eval-when-compile
@@ -2151,7 +2151,7 @@ find the errors."
2151 "interface" "endinterface" 2151 "interface" "endinterface"
2152 "module" "macromodule" "endmodule" 2152 "module" "macromodule" "endmodule"
2153 "package" "endpackage" 2153 "package" "endpackage"
2154 "primitive" "endprimative" 2154 "primitive" "endprimitive"
2155 "program" "endprogram" 2155 "program" "endprogram"
2156 "property" "endproperty" 2156 "property" "endproperty"
2157 "sequence" "randsequence" "endsequence" 2157 "sequence" "randsequence" "endsequence"
@@ -2709,7 +2709,7 @@ either is ok to parse as a non-comment, or `verilog-insert' was used."
2709 (remove-text-properties (point-min) (point-max) '(v-cmt nil)) 2709 (remove-text-properties (point-min) (point-max) '(v-cmt nil))
2710 (verilog-scan-region (point-min) (point-max)) 2710 (verilog-scan-region (point-min) (point-max))
2711 (setq verilog-scan-cache-tick (buffer-chars-modified-tick)) 2711 (setq verilog-scan-cache-tick (buffer-chars-modified-tick))
2712 (when verilog-debug (message "Scaning... done")))))) 2712 (when verilog-debug (message "Scanning... done"))))))
2713 2713
2714(defun verilog-inside-comment-p () 2714(defun verilog-inside-comment-p ()
2715 "Check if point inside a comment. 2715 "Check if point inside a comment.
@@ -3579,7 +3579,7 @@ With ARG, first kill any existing labels."
3579 "Move backward to beginning of statement." 3579 "Move backward to beginning of statement."
3580 (interactive) 3580 (interactive)
3581 ;; Move back token by token until we see the end 3581 ;; Move back token by token until we see the end
3582 ;; of some ealier line. 3582 ;; of some earlier line.
3583 (let (h) 3583 (let (h)
3584 (while 3584 (while
3585 ;; If the current point does not begin a new 3585 ;; If the current point does not begin a new
@@ -5128,7 +5128,7 @@ Set point to where line starts."
5128 continued)) 5128 continued))
5129 5129
5130(defun verilog-backward-token () 5130(defun verilog-backward-token ()
5131 "Step backward token, returing true if this is a continued line." 5131 "Step backward token, returning true if this is a continued line."
5132 (interactive) 5132 (interactive)
5133 (verilog-backward-syntactic-ws) 5133 (verilog-backward-syntactic-ws)
5134 (cond 5134 (cond
@@ -11958,7 +11958,7 @@ Files are checked based on `verilog-library-flags'."
11958 (mouse-set-point event) 11958 (mouse-set-point event)
11959 (verilog-load-file-at-point t))) 11959 (verilog-load-file-at-point t)))
11960 11960
11961;; ffap isn't useable for Verilog mode. It uses library paths. 11961;; ffap isn't usable for Verilog mode. It uses library paths.
11962;; so define this function to do more or less the same as ffap 11962;; so define this function to do more or less the same as ffap
11963;; but first resolve filename... 11963;; but first resolve filename...
11964(defun verilog-load-file-at-point (&optional warn) 11964(defun verilog-load-file-at-point (&optional warn)
diff --git a/lisp/progmodes/vhdl-mode.el b/lisp/progmodes/vhdl-mode.el
index 2f06afaa5ef..cd2d45b7856 100644
--- a/lisp/progmodes/vhdl-mode.el
+++ b/lisp/progmodes/vhdl-mode.el
@@ -58,7 +58,7 @@
58;; - Word/keyword completion 58;; - Word/keyword completion
59;; - Block commenting 59;; - Block commenting
60;; - Code fixing/alignment/beautification 60;; - Code fixing/alignment/beautification
61;; - Postscript printing 61;; - PostScript printing
62;; - VHDL'87/'93 and VHDL-AMS supported 62;; - VHDL'87/'93 and VHDL-AMS supported
63;; - Comprehensive menu 63;; - Comprehensive menu
64;; - Fully customizable 64;; - Fully customizable
@@ -1752,7 +1752,7 @@ NOTE: Activate the new setting in a VHDL buffer by using the menu entry
1752 1752
1753(defcustom vhdl-print-two-column t 1753(defcustom vhdl-print-two-column t
1754 "*Non-nil means print code in two columns and landscape format. 1754 "*Non-nil means print code in two columns and landscape format.
1755Adjusts settings in a way that postscript printing (\"File\" menu, `ps-print') 1755Adjusts settings in a way that PostScript printing (\"File\" menu, `ps-print')
1756prints VHDL files in a nice two-column landscape style. 1756prints VHDL files in a nice two-column landscape style.
1757 1757
1758NOTE: Activate the new setting by restarting Emacs. 1758NOTE: Activate the new setting by restarting Emacs.
@@ -1761,7 +1761,7 @@ NOTE: Activate the new setting by restarting Emacs.
1761 :group 'vhdl-print) 1761 :group 'vhdl-print)
1762 1762
1763(defcustom vhdl-print-customize-faces t 1763(defcustom vhdl-print-customize-faces t
1764 "*Non-nil means use an optimized set of faces for postscript printing. 1764 "*Non-nil means use an optimized set of faces for PostScript printing.
1765 1765
1766NOTE: Activate the new setting by restarting Emacs. 1766NOTE: Activate the new setting by restarting Emacs.
1767 Overrides `ps-print' settings locally." 1767 Overrides `ps-print' settings locally."
@@ -2131,7 +2131,7 @@ Ignore byte-compiler warnings you might see."
2131 (if (fboundp 'start-itimer) 2131 (if (fboundp 'start-itimer)
2132 (start-itimer "vhdl-mode" function secs repeat t) 2132 (start-itimer "vhdl-mode" function secs repeat t)
2133; (run-with-idle-timer secs repeat function))) 2133; (run-with-idle-timer secs repeat function)))
2134 ;; explicitely activate timer (necessary when Emacs is already idle) 2134 ;; explicitly activate timer (necessary when Emacs is already idle)
2135 (aset (run-with-idle-timer secs repeat function) 0 nil))) 2135 (aset (run-with-idle-timer secs repeat function) 0 nil)))
2136 2136
2137(defun vhdl-warning-when-idle (&rest args) 2137(defun vhdl-warning-when-idle (&rest args)
@@ -3117,7 +3117,7 @@ STRING are replaced by `-' and substrings are converted to lower case."
3117 3117
3118 3118
3119;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 3119;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3120;;; Menues 3120;;; Menus
3121;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 3121;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3122 3122
3123;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 3123;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -4567,10 +4567,10 @@ Usage:
4567 4567
4568 4568
4569 PRINTING: 4569 PRINTING:
4570 Postscript printing with different faces (an optimized set of faces is 4570 PostScript printing with different faces (an optimized set of faces is
4571 used if `vhdl-print-customize-faces' is non-nil) or colors \(if 4571 used if `vhdl-print-customize-faces' is non-nil) or colors \(if
4572 `ps-print-color-p' is non-nil) is possible using the standard Emacs 4572 `ps-print-color-p' is non-nil) is possible using the standard Emacs
4573 postscript printing commands. Option `vhdl-print-two-column' defines 4573 PostScript printing commands. Option `vhdl-print-two-column' defines
4574 appropriate default settings for nice landscape two-column printing. 4574 appropriate default settings for nice landscape two-column printing.
4575 The paper format can be set by option `ps-paper-type'. Do not forget to 4575 The paper format can be set by option `ps-paper-type'. Do not forget to
4576 switch `ps-print-color-p' to nil for printing on black-and-white 4576 switch `ps-print-color-p' to nil for printing on black-and-white
@@ -12913,10 +12913,10 @@ This does background highlighting of translate-off regions.")
12913 (font-lock-mode t)) 12913 (font-lock-mode t))
12914 12914
12915;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 12915;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
12916;; Initialization for postscript printing 12916;; Initialization for PostScript printing
12917 12917
12918(defun vhdl-ps-print-settings () 12918(defun vhdl-ps-print-settings ()
12919 "Initialize custom face and page settings for postscript printing." 12919 "Initialize custom face and page settings for PostScript printing."
12920 ;; define custom face settings 12920 ;; define custom face settings
12921 (unless (or (not vhdl-print-customize-faces) 12921 (unless (or (not vhdl-print-customize-faces)
12922 ps-print-color-p) 12922 ps-print-color-p)
@@ -12951,7 +12951,7 @@ This does background highlighting of translate-off regions.")
12951 (set (make-local-variable 'ps-right-margin) 40.0)))) 12951 (set (make-local-variable 'ps-right-margin) 40.0))))
12952 12952
12953(defun vhdl-ps-print-init () 12953(defun vhdl-ps-print-init ()
12954 "Initialize postscript printing." 12954 "Initialize PostScript printing."
12955 (if (featurep 'xemacs) 12955 (if (featurep 'xemacs)
12956 (when (boundp 'ps-print-color-p) 12956 (when (boundp 'ps-print-color-p)
12957 (vhdl-ps-print-settings)) 12957 (vhdl-ps-print-settings))
diff --git a/lisp/ps-samp.el b/lisp/ps-samp.el
index 8b652b26082..bfdcd91d26a 100644
--- a/lisp/ps-samp.el
+++ b/lisp/ps-samp.el
@@ -237,7 +237,7 @@
237;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 237;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
238 238
239;; If zeroconf is enabled, all CUPS printers can be detected. The 239;; If zeroconf is enabled, all CUPS printers can be detected. The
240;; "Postscript printer" menu will be modified dynamically, as printers 240;; "PostScript printer" menu will be modified dynamically, as printers
241;; are added or removed. 241;; are added or removed.
242 242
243;; Preconditions: 243;; Preconditions:
@@ -257,7 +257,7 @@
257(require 'printing) 257(require 'printing)
258(require 'zeroconf) 258(require 'zeroconf)
259 259
260;; Add a Postscript printer to the "Postscript printer" menu. 260;; Add a PostScript printer to the "PostScript printer" menu.
261(defun ps-add-printer (service) 261(defun ps-add-printer (service)
262 (let ((name (zeroconf-service-name service)) 262 (let ((name (zeroconf-service-name service))
263 (text (zeroconf-service-txt service)) 263 (text (zeroconf-service-txt service))
@@ -267,7 +267,7 @@
267 ;; `text' is an array of key=value strings like ("Duplex=T" "Copies=T"). 267 ;; `text' is an array of key=value strings like ("Duplex=T" "Copies=T").
268 (dolist (string text) 268 (dolist (string text)
269 (let ((split (split-string string "=" t))) 269 (let ((split (split-string string "=" t)))
270 ;; If it is a Postscript printer, there must be a string like 270 ;; If it is a PostScript printer, there must be a string like
271 ;; "pdl=application/postscript,application/vnd.hp-PCL,...". 271 ;; "pdl=application/postscript,application/vnd.hp-PCL,...".
272 (when (and (string-equal "pdl" (car split)) 272 (when (and (string-equal "pdl" (car split))
273 (string-match "application/postscript" (cadr split))) 273 (string-match "application/postscript" (cadr split)))
@@ -288,7 +288,7 @@
288 "-H" (format "%s:%s" addr port)))) 288 "-H" (format "%s:%s" addr port))))
289 (pr-update-menus t)))) 289 (pr-update-menus t))))
290 290
291;; Remove a printer from the "Postscript printer" menu. 291;; Remove a printer from the "PostScript printer" menu.
292(defun ps-remove-printer (service) 292(defun ps-remove-printer (service)
293 (setq pr-ps-printer-alist 293 (setq pr-ps-printer-alist
294 (delete (assoc (intern (zeroconf-service-name service)) 294 (delete (assoc (intern (zeroconf-service-name service))
diff --git a/lisp/ses.el b/lisp/ses.el
index 9b2048eae83..c71c603726c 100644
--- a/lisp/ses.el
+++ b/lisp/ses.el
@@ -43,7 +43,7 @@
43;; working fine in most cases, however failed in some cases of several path 43;; working fine in most cases, however failed in some cases of several path
44;; racing together. 44;; racing together.
45;; 45;;
46;; The current algorithm is based on Dijksta algorithm. The ``cycle length'' is 46;; The current algorithm is based on Dijkstra's algorithm. The cycle length is
47;; stored in some cell property. In order not to reset in all cells such 47;; stored in some cell property. In order not to reset in all cells such
48;; property at each update, the cycle length is stored in this property along 48;; property at each update, the cycle length is stored in this property along
49;; with some update attempt id that is incremented at each update. The current 49;; with some update attempt id that is incremented at each update. The current
@@ -980,7 +980,7 @@ if the cell's value is unchanged and FORCE is nil."
980 (error "Circular references: %s" ses--deferred-recalc)) 980 (error "Circular references: %s" ses--deferred-recalc))
981 (message " ")) 981 (message " "))
982 ;; Can't use save-excursion here: if the cell under point is updated, 982 ;; Can't use save-excursion here: if the cell under point is updated,
983 ;; save-excusion's marker will move past the cell. 983 ;; save-excursion's marker will move past the cell.
984 (goto-char pos))) 984 (goto-char pos)))
985 985
986 986
@@ -3204,7 +3204,7 @@ By passing in REST some flags one can configure the way the range
3204is read and how it is formatted. 3204is read and how it is formatted.
3205 3205
3206In the sequel we assume that cells A1, B1, A2 B2 have respective values 3206In the sequel we assume that cells A1, B1, A2 B2 have respective values
32071 2 3 and 4 for examplication. 32071 2 3 and 4.
3208 3208
3209Readout direction is specified by a `>v', '`>^', `<v', `<^', 3209Readout direction is specified by a `>v', '`>^', `<v', `<^',
3210`v>', `v<', `^>', `^<' flag. For historical reasons, in absence 3210`v>', `v<', `^>', `^<' flag. For historical reasons, in absence
@@ -3230,7 +3230,7 @@ vector or a matrix depending on the number of rows, `*1' will
3230flatten the result to a one row vector, and `*2' will make a 3230flatten the result to a one row vector, and `*2' will make a
3231matrix whatever the number of rows. 3231matrix whatever the number of rows.
3232 3232
3233Warning: interaction with Calc is expermimental and may produce 3233Warning: interaction with Calc is experimental and may produce
3234confusing results if you are not aware of Calc data format. Use 3234confusing results if you are not aware of Calc data format. Use
3235`math-format-value' as a printer for Calc objects." 3235`math-format-value' as a printer for Calc objects."
3236 (let (result-row 3236 (let (result-row
diff --git a/lisp/simple.el b/lisp/simple.el
index 90d22c817b0..e70d37588a0 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -878,6 +878,7 @@ KILLFLAG is set if N was explicitly specified."
878 878
879(defun mark-whole-buffer () 879(defun mark-whole-buffer ()
880 "Put point at beginning and mark at end of buffer. 880 "Put point at beginning and mark at end of buffer.
881If narrowing is in effect, only uses the accessible part of the buffer.
881You probably should not use this function in Lisp programs; 882You probably should not use this function in Lisp programs;
882it is usually a mistake for a Lisp function to use any subroutine 883it is usually a mistake for a Lisp function to use any subroutine
883that uses or sets the mark." 884that uses or sets the mark."
@@ -2408,7 +2409,7 @@ and only used if a buffer is displayed."
2408 1)) 2409 1))
2409 1))) 2410 1)))
2410 ;; Don't use the echo area if the output buffer is 2411 ;; Don't use the echo area if the output buffer is
2411 ;; already dispayed in the selected frame. 2412 ;; already displayed in the selected frame.
2412 (not (get-buffer-window (current-buffer)))) 2413 (not (get-buffer-window (current-buffer))))
2413 ;; Echo area 2414 ;; Echo area
2414 (goto-char (point-max)) 2415 (goto-char (point-max))
@@ -2657,7 +2658,7 @@ value passed."
2657Per default, this variable is always set to `t', meaning that a 2658Per default, this variable is always set to `t', meaning that a
2658call of `process-file' could potentially change any file on a 2659call of `process-file' could potentially change any file on a
2659remote host. When set to `nil', a file handler could optimize 2660remote host. When set to `nil', a file handler could optimize
2660its behaviour with respect to remote file attributes caching. 2661its behavior with respect to remote file attributes caching.
2661 2662
2662This variable should never be changed by `setq'. Instead of, it 2663This variable should never be changed by `setq'. Instead of, it
2663shall be set only by let-binding.") 2664shall be set only by let-binding.")
@@ -4323,7 +4324,7 @@ lines when the window is horizontally scrolled."
4323 (when (> rbot 0) 4324 (when (> rbot 0)
4324 (set-window-vscroll nil (+ vs (min rbot (frame-char-height))) t))) 4325 (set-window-vscroll nil (+ vs (min rbot (frame-char-height))) t)))
4325 ;; If cursor just entered the bottom scroll margin, move forward, 4326 ;; If cursor just entered the bottom scroll margin, move forward,
4326 ;; but also vscroll one line so redisplay wont recenter. 4327 ;; but also vscroll one line so redisplay won't recenter.
4327 ((and (> vpos 0) 4328 ((and (> vpos 0)
4328 (= py (min (- (window-text-height) scroll-margin 1) 4329 (= py (min (- (window-text-height) scroll-margin 1)
4329 (1- vpos)))) 4330 (1- vpos))))
diff --git a/lisp/speedbar.el b/lisp/speedbar.el
index 3e707ff3832..23a91888c1b 100644
--- a/lisp/speedbar.el
+++ b/lisp/speedbar.el
@@ -631,8 +631,8 @@ with `.' followed by extensions, followed by full-filenames."
631 (substring (car extlist) 1))) 631 (substring (car extlist) 1)))
632 (setq regex2 (concat regex2 (if regex2 "\\|" "") (car extlist)))) 632 (setq regex2 (concat regex2 (if regex2 "\\|" "") (car extlist))))
633 (setq extlist (cdr extlist))) 633 (setq extlist (cdr extlist)))
634 ;; concat all the sub-exressions together, making sure all types 634 ;; Concatenate all the subexpressions together, making sure all types
635 ;; of parts exist during concatination. 635 ;; of parts exist during concatenation.
636 (concat "\\(" 636 (concat "\\("
637 (if regex1 (concat "\\(\\.\\(" regex1 "\\)\\)") "") 637 (if regex1 (concat "\\(\\.\\(" regex1 "\\)\\)") "")
638 (if (and regex1 regex2) "\\|" "") 638 (if (and regex1 regex2) "\\|" "")
@@ -2100,12 +2100,12 @@ cell of the form ( 'DIRLIST . 'FILELIST )."
2100 (if (= index 0) 2100 (if (= index 0)
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 ;; Luckilly, 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 easilly 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)))
2108 ;; exand them all as we find them 2108 ;; Expand them all as we find them.
2109 (while sf 2109 (while sf
2110 (if (speedbar-goto-this-file (car sf)) 2110 (if (speedbar-goto-this-file (car sf))
2111 (progn 2111 (progn
@@ -2219,7 +2219,7 @@ passes some tests."
2219 ;; Go through all our bins Stick singles into our 2219 ;; Go through all our bins Stick singles into our
2220 ;; junk-list, everything else as sublsts in work-list. 2220 ;; junk-list, everything else as sublsts in work-list.
2221 ;; If two neighboring lists are both small, make a grouped 2221 ;; If two neighboring lists are both small, make a grouped
2222 ;; group combinding those two sub-lists. 2222 ;; group combining those two sub-lists.
2223 (setq diff-idx 0) 2223 (setq diff-idx 0)
2224 (while (> 256 diff-idx) 2224 (while (> 256 diff-idx)
2225 ;; The bins contents are currently in forward order. 2225 ;; The bins contents are currently in forward order.
@@ -3292,7 +3292,7 @@ With universal argument ARG, flush cached data."
3292Optional argument ARG indicates that any cache should be flushed." 3292Optional argument ARG indicates that any cache should be flushed."
3293 (interactive "P") 3293 (interactive "P")
3294 (speedbar-expand-line arg) 3294 (speedbar-expand-line arg)
3295 ;; Now, inside the area expaded here, expand all subnodes of 3295 ;; Now, inside the area expanded here, expand all subnodes of
3296 ;; the same descendant type. 3296 ;; the same descendant type.
3297 (save-excursion 3297 (save-excursion
3298 (speedbar-next 1) ;; Move into the list. 3298 (speedbar-next 1) ;; Move into the list.
@@ -3327,7 +3327,7 @@ current indentation level."
3327 (speedbar-find-file-in-frame (concat cdd text)) 3327 (speedbar-find-file-in-frame (concat cdd text))
3328 (speedbar-stealthy-updates) 3328 (speedbar-stealthy-updates)
3329 (run-hooks 'speedbar-visiting-file-hook) 3329 (run-hooks 'speedbar-visiting-file-hook)
3330 ;; Reset the timer with a new timeout when cliking a file 3330 ;; Reset the timer with a new timeout when clicking a file
3331 ;; in case the user was navigating directories, we can cancel 3331 ;; in case the user was navigating directories, we can cancel
3332 ;; that other timer. 3332 ;; that other timer.
3333 (speedbar-set-timer dframe-update-speed)) 3333 (speedbar-set-timer dframe-update-speed))
@@ -3447,7 +3447,7 @@ INDENT is the current indentation level."
3447 (select-frame f)) 3447 (select-frame f))
3448 (speedbar-find-file-in-frame file) 3448 (speedbar-find-file-in-frame file)
3449 (save-excursion (speedbar-stealthy-updates)) 3449 (save-excursion (speedbar-stealthy-updates))
3450 ;; Reset the timer with a new timeout when cliking a file 3450 ;; Reset the timer with a new timeout when clicking a file
3451 ;; in case the user was navigating directories, we can cancel 3451 ;; in case the user was navigating directories, we can cancel
3452 ;; that other timer. 3452 ;; that other timer.
3453 (speedbar-set-timer dframe-update-speed) 3453 (speedbar-set-timer dframe-update-speed)
diff --git a/lisp/startup.el b/lisp/startup.el
index 842548577c5..877ba1987f6 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1132,7 +1132,7 @@ the `--debug-init' option to view a complete error backtrace."
1132 (eq orig-enable-multibyte (default-value 1132 (eq orig-enable-multibyte (default-value
1133 'enable-multibyte-characters))) 1133 'enable-multibyte-characters)))
1134 ;; Init file changed to unibyte. Reset existing multibyte 1134 ;; Init file changed to unibyte. Reset existing multibyte
1135 ;; buffers (probably *scratch*, *Messages*, *Minibuff-0*). 1135 ;; buffers (probably *scratch*, *Messages*, *Minibuf-0*).
1136 ;; Arguably this should only be done if they're free of 1136 ;; Arguably this should only be done if they're free of
1137 ;; multibyte characters. 1137 ;; multibyte characters.
1138 (mapc (lambda (buffer) 1138 (mapc (lambda (buffer)
diff --git a/lisp/subr.el b/lisp/subr.el
index d5120826812..1cd6598eeb5 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1797,30 +1797,29 @@ This function makes or adds to an entry on `after-load-alist'."
1797 (push elt after-load-alist)) 1797 (push elt after-load-alist))
1798 ;; Make sure `form' is evalled in the current lexical/dynamic code. 1798 ;; Make sure `form' is evalled in the current lexical/dynamic code.
1799 (setq form `(funcall ',(eval `(lambda () ,form) lexical-binding))) 1799 (setq form `(funcall ',(eval `(lambda () ,form) lexical-binding)))
1800 (when (symbolp regexp-or-feature)
1801 ;; For features, the after-load-alist elements get run when `provide' is
1802 ;; called rather than at the end of the file. So add an indirection to
1803 ;; make sure that `form' is really run "after-load" in case the provide
1804 ;; call happens early.
1805 (setq form
1806 `(when load-file-name
1807 (let ((fun (make-symbol "eval-after-load-helper")))
1808 (fset fun `(lambda (file)
1809 (if (not (equal file ',load-file-name))
1810 nil
1811 (remove-hook 'after-load-functions ',fun)
1812 ,',form)))
1813 (add-hook 'after-load-functions fun)))))
1814 ;; Add FORM to the element unless it's already there.
1815 (unless (member form (cdr elt))
1816 (nconc elt (purecopy (list form))))
1817
1818 ;; Is there an already loaded file whose name (or `provide' name) 1800 ;; Is there an already loaded file whose name (or `provide' name)
1819 ;; matches FILE? 1801 ;; matches FILE?
1820 (if (if (stringp file) 1802 (prog1 (if (if (stringp file)
1821 (load-history-filename-element regexp-or-feature) 1803 (load-history-filename-element regexp-or-feature)
1822 (featurep file)) 1804 (featurep file))
1823 (eval form)))) 1805 (eval form))
1806 (when (symbolp regexp-or-feature)
1807 ;; For features, the after-load-alist elements get run when `provide' is
1808 ;; called rather than at the end of the file. So add an indirection to
1809 ;; make sure that `form' is really run "after-load" in case the provide
1810 ;; call happens early.
1811 (setq form
1812 `(when load-file-name
1813 (let ((fun (make-symbol "eval-after-load-helper")))
1814 (fset fun `(lambda (file)
1815 (if (not (equal file ',load-file-name))
1816 nil
1817 (remove-hook 'after-load-functions ',fun)
1818 ,',form)))
1819 (add-hook 'after-load-functions fun)))))
1820 ;; Add FORM to the element unless it's already there.
1821 (unless (member form (cdr elt))
1822 (nconc elt (purecopy (list form)))))))
1824 1823
1825(defvar after-load-functions nil 1824(defvar after-load-functions nil
1826 "Special hook run after loading a file. 1825 "Special hook run after loading a file.
diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index cfa406c2b48..ff528fcc9df 100644
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -142,7 +142,7 @@ This information is useful, but it takes screen space away from file names."
142 142
143;; The Tar data is made up of bytes and better manipulated as bytes 143;; The Tar data is made up of bytes and better manipulated as bytes
144;; and can be very large, so insert/delete can be costly. The summary we 144;; and can be very large, so insert/delete can be costly. The summary we
145;; want to display may contain non-ascci chars, of course, so we'd like it 145;; want to display may contain non-ascii chars, of course, so we'd like it
146;; to be multibyte. We used to keep both in the same buffer and switch 146;; to be multibyte. We used to keep both in the same buffer and switch
147;; from/to uni/multibyte. But this had several downsides: 147;; from/to uni/multibyte. But this had several downsides:
148;; - set-buffer-multibyte has an O(N^2) worst case that tends to be triggered 148;; - set-buffer-multibyte has an O(N^2) worst case that tends to be triggered
diff --git a/lisp/term.el b/lisp/term.el
index 361ff685396..e1638aecc76 100644
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -294,7 +294,7 @@
294;; # Notice that the ^[ character is an ESC, not two chars. You can 294;; # Notice that the ^[ character is an ESC, not two chars. You can
295;; # get it in various ways, for example by typing 295;; # get it in various ways, for example by typing
296;; # echo -e '\033' > escape.file 296;; # echo -e '\033' > escape.file
297;; # or by using your favourite editor 297;; # or by using your favorite editor
298;; 298;;
299;; foreach temp (cd pushd) 299;; foreach temp (cd pushd)
300;; alias $temp "$temp \!* ; echo 'AnSiTc' $cwd_hack" 300;; alias $temp "$temp \!* ; echo 'AnSiTc' $cwd_hack"
@@ -4249,7 +4249,7 @@ special identifiers such as COM1."
4249 "History of serial ports used by `serial-read-name'.") 4249 "History of serial ports used by `serial-read-name'.")
4250 4250
4251(defvar serial-speed-history 4251(defvar serial-speed-history
4252 ;; Initialised with reasonable values for newbies. 4252 ;; Initialized with reasonable values for newbies.
4253 (list "9600" ;; Given twice because 9600 b/s is the most common speed 4253 (list "9600" ;; Given twice because 9600 b/s is the most common speed
4254 "1200" "2400" "4800" "9600" "14400" "19200" 4254 "1200" "2400" "4800" "9600" "14400" "19200"
4255 "28800" "38400" "57600" "115200") 4255 "28800" "38400" "57600" "115200")
diff --git a/lisp/term/internal.el b/lisp/term/internal.el
index 43b799df1c9..a43864e36d6 100644
--- a/lisp/term/internal.el
+++ b/lisp/term/internal.el
@@ -68,7 +68,7 @@
68;; MULE charset, Emacs can display a single MULE charset with the 68;; MULE charset, Emacs can display a single MULE charset with the
69;; glyphs of the current codepage. When Emacs starts on DOS, it 69;; glyphs of the current codepage. When Emacs starts on DOS, it
70;; automatically sets its default coding systems for file I/O and 70;; automatically sets its default coding systems for file I/O and
71;; terminal output according to the currend DOS codepage, given by 71;; terminal output according to the current DOS codepage, given by
72;; the `dos-codepage' variable. 72;; the `dos-codepage' variable.
73;; 73;;
74;; This leaves us with the problem of displaying character sets 74;; This leaves us with the problem of displaying character sets
diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el
index 646b65abc60..db826f1db8a 100644
--- a/lisp/term/ns-win.el
+++ b/lisp/term/ns-win.el
@@ -513,9 +513,6 @@ unless the current buffer is a scratch buffer."
513 513
514;;;; Frame-related functions. 514;;;; Frame-related functions.
515 515
516;; Don't show the frame name; that's redundant with Nextstep.
517(setq-default mode-line-frame-identification '(" "))
518
519;; nsterm.m 516;; nsterm.m
520(defvar ns-alternate-modifier) 517(defvar ns-alternate-modifier)
521(defvar ns-right-alternate-modifier) 518(defvar ns-right-alternate-modifier)
diff --git a/lisp/term/pc-win.el b/lisp/term/pc-win.el
index 4cb88f6bd23..284c164150d 100644
--- a/lisp/term/pc-win.el
+++ b/lisp/term/pc-win.el
@@ -134,7 +134,7 @@
134;; terminal-initialization function. Also, our handling of reverse 134;; terminal-initialization function. Also, our handling of reverse
135;; video is slightly different. 135;; video is slightly different.
136(defun msdos-create-frame-with-faces (&optional parameters) 136(defun msdos-create-frame-with-faces (&optional parameters)
137 "Create an frame on MS-DOS display. 137 "Create a frame on MS-DOS display.
138Optional frame parameters PARAMETERS specify the frame parameters. 138Optional frame parameters PARAMETERS specify the frame parameters.
139Parameters not specified by PARAMETERS are taken from 139Parameters not specified by PARAMETERS are taken from
140`default-frame-alist'. If either PARAMETERS or `default-frame-alist' 140`default-frame-alist'. If either PARAMETERS or `default-frame-alist'
diff --git a/lisp/term/rxvt.el b/lisp/term/rxvt.el
index 0e9de519c8c..5b21913c32e 100644
--- a/lisp/term/rxvt.el
+++ b/lisp/term/rxvt.el
@@ -118,7 +118,7 @@
118 ;; function keys F11->F42 from the termcap/terminfo information. On 118 ;; function keys F11->F42 from the termcap/terminfo information. On
119 ;; a PC-style keyboard these keys correspond to 119 ;; a PC-style keyboard these keys correspond to
120 ;; MODIFIER-FUNCTION_KEY, where modifier is S-, C-, C-S-. The 120 ;; MODIFIER-FUNCTION_KEY, where modifier is S-, C-, C-S-. The
121 ;; code here subsitutes the corresponding defintions in 121 ;; code here subsitutes the corresponding definitions in
122 ;; function-key-map. This substitution is needed because if a key 122 ;; function-key-map. This substitution is needed because if a key
123 ;; definition if found in function-key-map, there are no further 123 ;; definition if found in function-key-map, there are no further
124 ;; lookups in other keymaps. 124 ;; lookups in other keymaps.
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index e3c42626a3f..05e18ed24a0 100644
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -1226,7 +1226,7 @@ The value nil is the same as the list (UTF8_STRING COMPOUND_TEXT STRING)."
1226 (if (string= clip-text "") (setq clip-text nil)) 1226 (if (string= clip-text "") (setq clip-text nil))
1227 1227
1228 ;; Check the CLIPBOARD selection for 'newness', is it different 1228 ;; Check the CLIPBOARD selection for 'newness', is it different
1229 ;; from what we remebered them to be last time we did a 1229 ;; from what we remembered them to be last time we did a
1230 ;; cut/paste operation. 1230 ;; cut/paste operation.
1231 (setq clip-text 1231 (setq clip-text
1232 (cond ;; check clipboard 1232 (cond ;; check clipboard
@@ -1243,7 +1243,7 @@ The value nil is the same as the list (UTF8_STRING COMPOUND_TEXT STRING)."
1243 (when x-select-enable-primary 1243 (when x-select-enable-primary
1244 (setq primary-text (x-selection-value-internal 'PRIMARY)) 1244 (setq primary-text (x-selection-value-internal 'PRIMARY))
1245 ;; Check the PRIMARY selection for 'newness', is it different 1245 ;; Check the PRIMARY selection for 'newness', is it different
1246 ;; from what we remebered them to be last time we did a 1246 ;; from what we remembered them to be last time we did a
1247 ;; cut/paste operation. 1247 ;; cut/paste operation.
1248 (setq primary-text 1248 (setq primary-text
1249 (cond ;; check primary selection 1249 (cond ;; check primary selection
diff --git a/lisp/textmodes/artist.el b/lisp/textmodes/artist.el
index 2325d7b26ff..d13437f4c7c 100644
--- a/lisp/textmodes/artist.el
+++ b/lisp/textmodes/artist.el
@@ -2263,7 +2263,7 @@ Returns a DIRECTION, a number 0--7, coded as follows:
2263 2263
2264 2264
2265;; Things for drawing lines in all directions. 2265;; Things for drawing lines in all directions.
2266;; The line drawing engine is the eight-point alrogithm. 2266;; The line drawing engine is the eight-point algorithm.
2267;; 2267;;
2268;; A line is here a list of (x y saved-char new-char)s. 2268;; A line is here a list of (x y saved-char new-char)s.
2269;; 2269;;
@@ -2437,7 +2437,7 @@ in the coord."
2437 point-list)) 2437 point-list))
2438 2438
2439;; artist-save-chars-under-point-list 2439;; artist-save-chars-under-point-list
2440;; Remebers the chars that were there before we did draw the line. 2440;; Remembers the chars that were there before we did draw the line.
2441;; Returns point-list. 2441;; Returns point-list.
2442;; 2442;;
2443(defun artist-save-chars-under-point-list (point-list) 2443(defun artist-save-chars-under-point-list (point-list)
@@ -2514,7 +2514,7 @@ This function returns a point-list."
2514 2514
2515 2515
2516;; 2516;;
2517;; functions for accessing endoints and elements in object requiring 2517;; functions for accessing endpoints and elements in object requiring
2518;; 2 endpoints 2518;; 2 endpoints
2519;; 2519;;
2520 2520
@@ -3582,7 +3582,7 @@ FILL-INFO is a list of vectors on the form [X Y ELLIPSE-WIDTH-ON-THIS-LINE]."
3582 (width (abs (- x2 x1))) 3582 (width (abs (- x2 x1)))
3583 (height (abs (- y2 y1))) 3583 (height (abs (- y2 y1)))
3584 ;; When drawing our circle, we want it to through the cursor 3584 ;; When drawing our circle, we want it to through the cursor
3585 ;; just as when drawing the ellispe, but we have to take 3585 ;; just as when drawing the ellipse, but we have to take
3586 ;; care for the aspect-ratio. 3586 ;; care for the aspect-ratio.
3587 ;; The equation for the ellipse (where a is the x-radius and 3587 ;; The equation for the ellipse (where a is the x-radius and
3588 ;; b is the y-radius): 3588 ;; b is the y-radius):
diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el
index 741b6cd904c..4459ac10098 100644
--- a/lisp/textmodes/bibtex.el
+++ b/lisp/textmodes/bibtex.el
@@ -3941,7 +3941,7 @@ If `bibtex-files' is non-nil, search all these files.
3941Otherwise the search is limited to the current buffer. 3941Otherwise the search is limited to the current buffer.
3942Return position of entry if CROSSREF-KEY is found or nil otherwise. 3942Return position of entry if CROSSREF-KEY is found or nil otherwise.
3943If CROSSREF-KEY is in the same buffer like current entry but before it 3943If CROSSREF-KEY is in the same buffer like current entry but before it
3944an error is signaled. If NOERRER is non-nil this error is suppressed. 3944an error is signaled. If NOERROR is non-nil this error is suppressed.
3945Optional arg PNT is the position of the referencing entry. It defaults 3945Optional arg PNT is the position of the referencing entry. It defaults
3946to position of point. If optional arg SPLIT is non-nil, split window 3946to position of point. If optional arg SPLIT is non-nil, split window
3947so that both the referencing and the crossrefed entry are displayed. 3947so that both the referencing and the crossrefed entry are displayed.
diff --git a/lisp/textmodes/conf-mode.el b/lisp/textmodes/conf-mode.el
index 4e6c8bd6b05..5cc5ba45e13 100644
--- a/lisp/textmodes/conf-mode.el
+++ b/lisp/textmodes/conf-mode.el
@@ -417,7 +417,7 @@ See also `conf-space-mode', `conf-colon-mode', `conf-javaprop-mode',
417 (run-mode-hooks 'conf-mode-hook))) 417 (run-mode-hooks 'conf-mode-hook)))
418 418
419(defun conf-mode-initialize (comment &optional font-lock) 419(defun conf-mode-initialize (comment &optional font-lock)
420 "Intitializations for sub-modes of conf-mode. 420 "Initializations for sub-modes of conf-mode.
421COMMENT initializes `comment-start' and `comment-start-skip'. 421COMMENT initializes `comment-start' and `comment-start-skip'.
422The optional arg FONT-LOCK is the value for FONT-LOCK-KEYWORDS." 422The optional arg FONT-LOCK is the value for FONT-LOCK-KEYWORDS."
423 (set (make-local-variable 'comment-start) comment) 423 (set (make-local-variable 'comment-start) comment)
diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index a5099311307..db536c100f3 100644
--- a/lisp/textmodes/flyspell.el
+++ b/lisp/textmodes/flyspell.el
@@ -1446,7 +1446,7 @@ The buffer to mark them in is `flyspell-large-region-buffer'."
1446 ;; is used, string is a TeX command 1446 ;; is used, string is a TeX command
1447 ;; (char before beginning of word is 1447 ;; (char before beginning of word is
1448 ;; backslash) and none of the previous 1448 ;; backslash) and none of the previous
1449 ;; contitions match 1449 ;; conditions match.
1450 (and (not ispell-really-aspell) 1450 (and (not ispell-really-aspell)
1451 (save-excursion 1451 (save-excursion
1452 (goto-char (- (nth 1 found-list) 1)) 1452 (goto-char (- (nth 1 found-list) 1))
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 62f899d1730..704fad4fb3b 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -2284,7 +2284,7 @@ Otherwise the variable `ispell-grep-command' contains the command used to
2284search for the words (usually egrep). 2284search for the words (usually egrep).
2285 2285
2286Optional second argument contains the dictionary to use; the default is 2286Optional second argument contains the dictionary to use; the default is
2287`ispell-alternate-dictionary', overriden by `ispell-complete-word-dict' 2287`ispell-alternate-dictionary', overridden by `ispell-complete-word-dict'
2288if defined." 2288if defined."
2289 ;; We don't use the filter for this function, rather the result is written 2289 ;; We don't use the filter for this function, rather the result is written
2290 ;; into a buffer. Hence there is no need to save the filter values. 2290 ;; into a buffer. Hence there is no need to save the filter values.
@@ -2783,7 +2783,7 @@ By just answering RET you can find out what the current dictionary is."
2783 (mapcar 'list (ispell-valid-dictionary-list))) 2783 (mapcar 'list (ispell-valid-dictionary-list)))
2784 nil t) 2784 nil t)
2785 current-prefix-arg)) 2785 current-prefix-arg))
2786 (ispell-set-spellchecker-params) ; Initilize variables and dicts alists 2786 (ispell-set-spellchecker-params) ; Initialize variables and dicts alists
2787 (unless arg (ispell-buffer-local-dict 'no-reload)) 2787 (unless arg (ispell-buffer-local-dict 'no-reload))
2788 (if (equal dict "default") (setq dict nil)) 2788 (if (equal dict "default") (setq dict nil))
2789 ;; This relies on completing-read's bug of returning "" for no match 2789 ;; This relies on completing-read's bug of returning "" for no match
@@ -3503,7 +3503,7 @@ Don't read buffer-local settings or word lists."
3503 '( 3503 '(
3504 ;; Don't spell check signatures 3504 ;; Don't spell check signatures
3505 "^-- $" 3505 "^-- $"
3506 ;; Matches postscript files. 3506 ;; Matches PostScript files.
3507 ;;"^%!PS-Adobe-[123].0" 3507 ;;"^%!PS-Adobe-[123].0"
3508 ;; Matches uuencoded text 3508 ;; Matches uuencoded text
3509 ;;"^begin [0-9][0-9][0-9] .*\nM.*\nM.*\nM" 3509 ;;"^begin [0-9][0-9][0-9] .*\nM.*\nM.*\nM"
diff --git a/lisp/textmodes/page-ext.el b/lisp/textmodes/page-ext.el
index 6e73fda662b..91f6624e7a3 100644
--- a/lisp/textmodes/page-ext.el
+++ b/lisp/textmodes/page-ext.el
@@ -435,7 +435,7 @@ REVERSE (non-nil means reverse order), BEG and END (region to sort)."
435 (skip-chars-forward " \t\n") 435 (skip-chars-forward " \t\n")
436 )) 436 ))
437 437
438 ;; ENDRECFUN is is called with point within the record. 438 ;; ENDRECFUN is called with point within the record.
439 ;; It should move point to the end of the record. 439 ;; It should move point to the end of the record.
440 (function (lambda () 440 (function (lambda ()
441 (if (re-search-forward 441 (if (re-search-forward
diff --git a/lisp/textmodes/reftex-dcr.el b/lisp/textmodes/reftex-dcr.el
index 9b924ba7ad9..7de15c66cec 100644
--- a/lisp/textmodes/reftex-dcr.el
+++ b/lisp/textmodes/reftex-dcr.el
@@ -59,7 +59,7 @@ to the functions `reftex-view-cr-cite' and `reftex-view-cr-ref'."
59 (error "Not on a crossref macro argument")) 59 (error "Not on a crossref macro argument"))
60 60
61 (setq reftex-call-back-to-this-buffer (current-buffer)) 61 (setq reftex-call-back-to-this-buffer (current-buffer))
62 62
63 (cond 63 (cond
64 ((string-match "\\`\\\\cite\\|cite\\*?\\'\\|bibentry" macro) 64 ((string-match "\\`\\\\cite\\|cite\\*?\\'\\|bibentry" macro)
65 ;; A citation macro: search for bibitems or BibTeX entries 65 ;; A citation macro: search for bibitems or BibTeX entries
@@ -87,7 +87,7 @@ to the functions `reftex-view-cr-cite' and `reftex-view-cr-ref'."
87 (format reftex-find-index-entry-regexp-format 87 (format reftex-find-index-entry-regexp-format
88 (regexp-quote key)) 88 (regexp-quote key))
89 3 nil nil))) 89 3 nil nil)))
90 (t 90 (t
91 (reftex-access-scan-info arg) 91 (reftex-access-scan-info arg)
92 (catch 'exit 92 (catch 'exit
93 (let ((list reftex-view-crossref-extra) 93 (let ((list reftex-view-crossref-extra)
@@ -97,14 +97,14 @@ to the functions `reftex-view-cr-cite' and `reftex-view-cr-ref'."
97 action (nth 1 entry) 97 action (nth 1 entry)
98 group (nth 2 entry)) 98 group (nth 2 entry))
99 (when (string-match mre macro) 99 (when (string-match mre macro)
100 (setq dw (reftex-view-regexp-match 100 (setq dw (reftex-view-regexp-match
101 (format action key) group nil nil)) 101 (format action key) group nil nil))
102 (throw 'exit t)))) 102 (throw 'exit t))))
103 (error "Not on a crossref macro argument")))) 103 (error "Not on a crossref macro argument"))))
104 (if (and (eq arg 2) (windowp dw)) (select-window dw))))) 104 (if (and (eq arg 2) (windowp dw)) (select-window dw)))))
105 105
106(defun reftex-view-cr-cite (arg key how) 106(defun reftex-view-cr-cite (arg key how)
107 ;; View crossreference of a ref cite. HOW can have the values 107 ;; View crossreference of a ref cite. HOW can have the values
108 ;; nil: Show in another window. 108 ;; nil: Show in another window.
109 ;; echo: Show one-line info in echo area. 109 ;; echo: Show one-line info in echo area.
110 ;; tmp-window: Show in small window and arrange for window to disappear. 110 ;; tmp-window: Show in small window and arrange for window to disappear.
@@ -114,7 +114,7 @@ to the functions `reftex-view-cr-cite' and `reftex-view-cr-ref'."
114 114
115 (if (eq how 'tmp-window) 115 (if (eq how 'tmp-window)
116 ;; Remember the window configuration 116 ;; Remember the window configuration
117 (put 'reftex-auto-view-crossref 'last-window-conf 117 (put 'reftex-auto-view-crossref 'last-window-conf
118 (current-window-configuration))) 118 (current-window-configuration)))
119 119
120 (let (files size item (pos (point)) (win (selected-window)) pop-win 120 (let (files size item (pos (point)) (win (selected-window)) pop-win
@@ -130,7 +130,7 @@ to the functions `reftex-view-cr-cite' and `reftex-view-cr-ref'."
130 (setq item t 130 (setq item t
131 files (reftex-uniquify 131 files (reftex-uniquify
132 (mapcar 'cdr 132 (mapcar 'cdr
133 (reftex-all-assq 133 (reftex-all-assq
134 'thebib (symbol-value reftex-docstruct-symbol)))))) 134 'thebib (symbol-value reftex-docstruct-symbol))))))
135 (reftex-default-bibliography 135 (reftex-default-bibliography
136 (setq item nil 136 (setq item nil
@@ -169,17 +169,17 @@ to the functions `reftex-view-cr-cite' and `reftex-view-cr-ref'."
169 (select-window pop-win))))) 169 (select-window pop-win)))))
170 170
171(defun reftex-view-cr-ref (arg label how) 171(defun reftex-view-cr-ref (arg label how)
172 ;; View crossreference of a ref macro. HOW can have the values 172 ;; View crossreference of a ref macro. HOW can have the values
173 ;; nil: Show in another window. 173 ;; nil: Show in another window.
174 ;; echo: Show one-line info in echo area. 174 ;; echo: Show one-line info in echo area.
175 ;; tmp-window: Show in small window and arrange for window to disappear. 175 ;; tmp-window: Show in small window and arrange for window to disappear.
176 176
177 ;; Ensure access to scanning info 177 ;; Ensure access to scanning info
178 (reftex-access-scan-info (or arg current-prefix-arg)) 178 (reftex-access-scan-info (or arg current-prefix-arg))
179 179
180 (if (eq how 'tmp-window) 180 (if (eq how 'tmp-window)
181 ;; Remember the window configuration 181 ;; Remember the window configuration
182 (put 'reftex-auto-view-crossref 'last-window-conf 182 (put 'reftex-auto-view-crossref 'last-window-conf
183 (current-window-configuration))) 183 (current-window-configuration)))
184 184
185 (let* ((xr-data (assoc 'xr (symbol-value reftex-docstruct-symbol))) 185 (let* ((xr-data (assoc 'xr (symbol-value reftex-docstruct-symbol)))
@@ -191,14 +191,14 @@ to the functions `reftex-view-cr-cite' and `reftex-view-cr-ref'."
191 ;; Label is defined in external document 191 ;; Label is defined in external document
192 (save-excursion 192 (save-excursion
193 (save-match-data 193 (save-match-data
194 (set-buffer 194 (set-buffer
195 (or (reftex-get-file-buffer-force 195 (or (reftex-get-file-buffer-force
196 (cdr (assoc (match-string 1 label) (nth 1 196 (cdr (assoc (match-string 1 label) (nth 1
197 xr-data)))) 197 xr-data))))
198 (error "Problem with external label %s" label)))) 198 (error "Problem with external label %s" label))))
199 (setq label (substring label (match-end 1))) 199 (setq label (substring label (match-end 1)))
200 (reftex-access-scan-info) 200 (reftex-access-scan-info)
201 (setq entry 201 (setq entry
202 (assoc label (symbol-value reftex-docstruct-symbol))))) 202 (assoc label (symbol-value reftex-docstruct-symbol)))))
203 (if (eq how 'echo) 203 (if (eq how 'echo)
204 ;; Display in echo area 204 ;; Display in echo area
@@ -234,7 +234,7 @@ With argument, actually select the window showing the cross reference."
234 234
235(defun reftex-view-crossref-when-idle () 235(defun reftex-view-crossref-when-idle ()
236 ;; Display info about crossref at point in echo area or a window. 236 ;; Display info about crossref at point in echo area or a window.
237 ;; This function was desigend to work with an idle timer. 237 ;; This function was designed to work with an idle timer.
238 ;; We try to get out of here as quickly as possible if the call is useless. 238 ;; We try to get out of here as quickly as possible if the call is useless.
239 (and reftex-mode 239 (and reftex-mode
240 ;; Make sure message area is free if we need it. 240 ;; Make sure message area is free if we need it.
@@ -244,7 +244,7 @@ With argument, actually select the window showing the cross reference."
244 reftex-mouse-view-crossref))) 244 reftex-mouse-view-crossref)))
245 ;; Quick precheck if this might be a relevant spot 245 ;; Quick precheck if this might be a relevant spot
246 ;; `reftex-view-crossref' will do a more thorough check. 246 ;; `reftex-view-crossref' will do a more thorough check.
247 (save-excursion 247 (save-excursion
248 (search-backward "\\" nil t) 248 (search-backward "\\" nil t)
249 (looking-at "\\\\[a-zA-Z]*\\(cite\\|ref\\|bibentry\\)")) 249 (looking-at "\\\\[a-zA-Z]*\\(cite\\|ref\\|bibentry\\)"))
250 250
@@ -262,12 +262,12 @@ With argument, actually select the window showing the cross reference."
262 (set-window-configuration (get 'reftex-auto-view-crossref 'last-window-conf)) 262 (set-window-configuration (get 'reftex-auto-view-crossref 'last-window-conf))
263 (put 'reftex-auto-view-crossref 'last-window-conf nil) 263 (put 'reftex-auto-view-crossref 'last-window-conf nil)
264 (remove-hook 'pre-command-hook 'reftex-restore-window-conf)) 264 (remove-hook 'pre-command-hook 'reftex-restore-window-conf))
265 265
266(defun reftex-echo-ref (label entry docstruct) 266(defun reftex-echo-ref (label entry docstruct)
267 ;; Display crossref info in echo area. 267 ;; Display crossref info in echo area.
268 (cond 268 (cond
269 ((null docstruct) 269 ((null docstruct)
270 (message "%s" 270 (message "%s"
271 (substitute-command-keys (format reftex-no-info-message "ref")))) 271 (substitute-command-keys (format reftex-no-info-message "ref"))))
272 ((null entry) 272 ((null entry)
273 (message "ref: unknown label: %s" label)) 273 (message "ref: unknown label: %s" label))
@@ -293,14 +293,14 @@ With argument, actually select the window showing the cross reference."
293 (unless reftex-revisit-to-echo 293 (unless reftex-revisit-to-echo
294 (setq files (reftex-visited-files files))) 294 (setq files (reftex-visited-files files)))
295 295
296 (setq entry 296 (setq entry
297 (condition-case nil 297 (condition-case nil
298 (save-excursion 298 (save-excursion
299 (reftex-pop-to-bibtex-entry key files nil nil item t)) 299 (reftex-pop-to-bibtex-entry key files nil nil item t))
300 (error 300 (error
301 (if (and files (= (length all-files) (length files))) 301 (if (and files (= (length all-files) (length files)))
302 (message "cite: no such database entry: %s" key) 302 (message "cite: no such database entry: %s" key)
303 (message "%s" (substitute-command-keys 303 (message "%s" (substitute-command-keys
304 (format reftex-no-info-message "cite")))) 304 (format reftex-no-info-message "cite"))))
305 nil))) 305 nil)))
306 (when entry 306 (when entry
@@ -337,7 +337,7 @@ will display info in the echo area."
337 (if (featurep 'xemacs) 337 (if (featurep 'xemacs)
338 (if reftex-use-itimer-in-xemacs 338 (if reftex-use-itimer-in-xemacs
339 (start-itimer "RefTeX Idle Timer" 339 (start-itimer "RefTeX Idle Timer"
340 'reftex-view-crossref-when-idle 340 'reftex-view-crossref-when-idle
341 reftex-idle-time reftex-idle-time t) 341 reftex-idle-time reftex-idle-time t)
342 (add-hook 'post-command-hook 'reftex-start-itimer-once) 342 (add-hook 'post-command-hook 'reftex-start-itimer-once)
343 t) 343 t)
@@ -352,7 +352,7 @@ will display info in the echo area."
352 (not (itimer-live-p reftex-auto-view-crossref-timer)) 352 (not (itimer-live-p reftex-auto-view-crossref-timer))
353 (setq reftex-auto-view-crossref-timer 353 (setq reftex-auto-view-crossref-timer
354 (start-itimer "RefTeX Idle Timer" 354 (start-itimer "RefTeX Idle Timer"
355 'reftex-view-crossref-when-idle 355 'reftex-view-crossref-when-idle
356 reftex-idle-time nil t)))) 356 reftex-idle-time nil t))))
357 357
358(declare-function bibtex-beginning-of-entry "bibtex" ()) 358(declare-function bibtex-beginning-of-entry "bibtex" ())
@@ -364,7 +364,7 @@ prompts upon first use for a buffer in RefTeX mode. To reset this
364link to a document, call the function with with a prefix arg. 364link to a document, call the function with with a prefix arg.
365Calling this function several times find successive citation locations." 365Calling this function several times find successive citation locations."
366 (interactive "P") 366 (interactive "P")
367 (when arg 367 (when arg
368 ;; Break connection to reference buffer 368 ;; Break connection to reference buffer
369 (put 'reftex-bibtex-view-cite-locations :ref-buffer nil)) 369 (put 'reftex-bibtex-view-cite-locations :ref-buffer nil))
370 (let ((ref-buffer (get 'reftex-bibtex-view-cite-locations :ref-buffer))) 370 (let ((ref-buffer (get 'reftex-bibtex-view-cite-locations :ref-buffer)))
@@ -372,10 +372,10 @@ Calling this function several times find successive citation locations."
372 (unless ref-buffer 372 (unless ref-buffer
373 (setq ref-buffer 373 (setq ref-buffer
374 (save-current-buffer 374 (save-current-buffer
375 (completing-read 375 (completing-read
376 "Reference buffer: " 376 "Reference buffer: "
377 (delq nil 377 (delq nil
378 (mapcar 378 (mapcar
379 (lambda (b) 379 (lambda (b)
380 (set-buffer b) 380 (set-buffer b)
381 (if reftex-mode (list (buffer-name b)) nil)) 381 (if reftex-mode (list (buffer-name b)) nil))
diff --git a/lisp/textmodes/reftex-global.el b/lisp/textmodes/reftex-global.el
index ccdab49750b..bf46635c479 100644
--- a/lisp/textmodes/reftex-global.el
+++ b/lisp/textmodes/reftex-global.el
@@ -139,7 +139,7 @@ No active TAGS table is required."
139 (set (make-local-variable 'TeX-master) master) 139 (set (make-local-variable 'TeX-master) master)
140 (erase-buffer) 140 (erase-buffer)
141 (insert " MULTIPLE LABELS IN CURRENT DOCUMENT:\n") 141 (insert " MULTIPLE LABELS IN CURRENT DOCUMENT:\n")
142 (insert 142 (insert
143 " Move point to label and type `r' to run a query-replace on the label\n" 143 " Move point to label and type `r' to run a query-replace on the label\n"
144 " and its references. Type `q' to exit this buffer.\n\n") 144 " and its references. Type `q' to exit this buffer.\n\n")
145 (insert " LABEL FILE\n") 145 (insert " LABEL FILE\n")
@@ -190,15 +190,15 @@ This command should be used with care, in particular in multifile
190documents. You should not use it if another document refers to this 190documents. You should not use it if another document refers to this
191one with the `xr' package." 191one with the `xr' package."
192 (interactive) 192 (interactive)
193 ;; Resan the entire document 193 ;; Rescan the entire document
194 (reftex-access-scan-info 1) 194 (reftex-access-scan-info 1)
195 ;; Get some insurance 195 ;; Get some insurance
196 (if (and (reftex-is-multi) 196 (if (and (reftex-is-multi)
197 (not (yes-or-no-p "Replacing all simple labels in multiple files is risky. Continue? "))) 197 (not (yes-or-no-p "Replacing all simple labels in multiple files is risky. Continue? ")))
198 (error "Abort")) 198 (error "Abort"))
199 ;; Make the translation list 199 ;; Make the translation list
200 (let* ((re-core (concat "\\(" 200 (let* ((re-core (concat "\\("
201 (mapconcat 'cdr reftex-typekey-to-prefix-alist "\\|") 201 (mapconcat 'cdr reftex-typekey-to-prefix-alist "\\|")
202 "\\)")) 202 "\\)"))
203 (label-re (concat "\\`" re-core "\\([0-9]+\\)\\'")) 203 (label-re (concat "\\`" re-core "\\([0-9]+\\)\\'"))
204 (search-re (concat "[{,]\\(" re-core "\\([0-9]+\\)\\)[,}]")) 204 (search-re (concat "[{,]\\(" re-core "\\([0-9]+\\)\\)[,}]"))
@@ -230,12 +230,12 @@ one with the `xr' package."
230 ;; Save all document buffers before this operation 230 ;; Save all document buffers before this operation
231 (reftex-save-all-document-buffers) 231 (reftex-save-all-document-buffers)
232 232
233 ;; First test to check for erros 233 ;; First test to check for errors.
234 (setq n (reftex-translate 234 (setq n (reftex-translate
235 files search-re translate-alist error-fmt 'test)) 235 files search-re translate-alist error-fmt 'test))
236 236
237 ;; Now the real thing. 237 ;; Now the real thing.
238 (if (yes-or-no-p 238 (if (yes-or-no-p
239 (format "Replace %d items at %d places in %d files? " 239 (format "Replace %d items at %d places in %d files? "
240 (length translate-alist) n (length files))) 240 (length translate-alist) n (length files)))
241 (progn 241 (progn
@@ -253,9 +253,9 @@ one with the `xr' package."
253 253
254(defun reftex-translate (files search-re translate-alist error-fmt test) 254(defun reftex-translate (files search-re translate-alist error-fmt test)
255 ;; In FILES, look for SEARCH-RE and replace match 1 of it with 255 ;; In FILES, look for SEARCH-RE and replace match 1 of it with
256 ;; its association in TRANSLATE-ALSIT. 256 ;; its association in TRANSLATE-ALIST.
257 ;; If we do not find an association and TEST is non-nil, query 257 ;; If we do not find an association and TEST is non-nil, query
258 ;; to ignore the problematic string. 258 ;; to ignore the problematic string.
259 ;; If TEST is nil, it is ignored without query. 259 ;; If TEST is nil, it is ignored without query.
260 ;; Return the number of replacements. 260 ;; Return the number of replacements.
261 (let ((n 0) file label match-data buf macro pos cell) 261 (let ((n 0) file label match-data buf macro pos cell)
@@ -281,7 +281,7 @@ one with the `xr' package."
281 (or (looking-at "\\\\ref") 281 (or (looking-at "\\\\ref")
282 (looking-at "\\\\[a-zA-Z]*ref\\(range\\)?[^a-zA-Z]") 282 (looking-at "\\\\[a-zA-Z]*ref\\(range\\)?[^a-zA-Z]")
283 (looking-at "\\\\ref[a-zA-Z]*[^a-zA-Z]") 283 (looking-at "\\\\ref[a-zA-Z]*[^a-zA-Z]")
284 (looking-at (format 284 (looking-at (format
285 reftex-find-label-regexp-format 285 reftex-find-label-regexp-format
286 (regexp-quote label))))) 286 (regexp-quote label)))))
287 ;; OK, we should replace it. 287 ;; OK, we should replace it.
@@ -351,7 +351,7 @@ Also checks if buffers visiting the files are in read-only mode."
351 351
352(defun reftex-isearch-wrap-function () 352(defun reftex-isearch-wrap-function ()
353 (if (not isearch-word) 353 (if (not isearch-word)
354 (switch-to-buffer 354 (switch-to-buffer
355 (funcall isearch-next-buffer-function (current-buffer) t))) 355 (funcall isearch-next-buffer-function (current-buffer) t)))
356 (goto-char (if isearch-forward (point-min) (point-max)))) 356 (goto-char (if isearch-forward (point-min) (point-max))))
357 357
@@ -435,7 +435,7 @@ With no argument, this command toggles
435`reftex-isearch-minor-mode' on if ARG is positive, otherwise turn it off." 435`reftex-isearch-minor-mode' on if ARG is positive, otherwise turn it off."
436 (interactive "P") 436 (interactive "P")
437 (let ((old-reftex-isearch-minor-mode reftex-isearch-minor-mode)) 437 (let ((old-reftex-isearch-minor-mode reftex-isearch-minor-mode))
438 (setq reftex-isearch-minor-mode 438 (setq reftex-isearch-minor-mode
439 (not (or (and (null arg) reftex-isearch-minor-mode) 439 (not (or (and (null arg) reftex-isearch-minor-mode)
440 (<= (prefix-numeric-value arg) 0)))) 440 (<= (prefix-numeric-value arg) 0))))
441 (unless (eq reftex-isearch-minor-mode old-reftex-isearch-minor-mode) 441 (unless (eq reftex-isearch-minor-mode old-reftex-isearch-minor-mode)
@@ -471,7 +471,7 @@ With no argument, this command toggles
471 ;; Force modeline redisplay. 471 ;; Force modeline redisplay.
472 (set-buffer-modified-p (buffer-modified-p)))) 472 (set-buffer-modified-p (buffer-modified-p))))
473 473
474(add-minor-mode 'reftex-isearch-minor-mode "/I" nil nil 474(add-minor-mode 'reftex-isearch-minor-mode "/I" nil nil
475 'reftex-isearch-minor-mode) 475 'reftex-isearch-minor-mode)
476 476
477;;; reftex-global.el ends here 477;;; reftex-global.el ends here
diff --git a/lisp/textmodes/reftex-index.el b/lisp/textmodes/reftex-index.el
index 79df6135806..f0ceaa74d26 100644
--- a/lisp/textmodes/reftex-index.el
+++ b/lisp/textmodes/reftex-index.el
@@ -663,7 +663,7 @@ SPC=view TAB=goto RET=goto+hide [e]dit [q]uit [r]escan [f]ollow [?]Help
663 (insert "\n"))) 663 (insert "\n")))
664 664
665(defun reftex-get-restriction (arg docstruct) 665(defun reftex-get-restriction (arg docstruct)
666 ;; Interprete the prefix ARG and derive index restriction specs. 666 ;; Interpret the prefix ARG and derive index restriction specs.
667 (let* ((beg (min (point) (or (condition-case nil (mark) (error nil)) 667 (let* ((beg (min (point) (or (condition-case nil (mark) (error nil))
668 (point-max)))) 668 (point-max))))
669 (end (max (point) (or (condition-case nil (mark) (error nil)) 669 (end (max (point) (or (condition-case nil (mark) (error nil))
diff --git a/lisp/textmodes/reftex-parse.el b/lisp/textmodes/reftex-parse.el
index 4d6b5e5fb83..1a0f7ec5836 100644
--- a/lisp/textmodes/reftex-parse.el
+++ b/lisp/textmodes/reftex-parse.el
@@ -711,7 +711,7 @@ of master file."
711 context) 711 context)
712 (when (and (not appendix) 712 (when (and (not appendix)
713 (>= (string-to-char (match-string 2)) ?A)) 713 (>= (string-to-char (match-string 2)) ?A))
714 ;; Just entered the appendex. Get out. 714 ;; Just entered the appendix. Get out.
715 (throw 'exit nil)) 715 (throw 'exit nil))
716 716
717 ;; Change the section number. 717 ;; Change the section number.
diff --git a/lisp/textmodes/reftex-ref.el b/lisp/textmodes/reftex-ref.el
index b47f2f6c2e9..d622603236e 100644
--- a/lisp/textmodes/reftex-ref.el
+++ b/lisp/textmodes/reftex-ref.el
@@ -206,7 +206,7 @@ This function is controlled by the settings of reftex-insert-label-flags."
206 (if naked "Naked Label: " "Label: ") 206 (if naked "Naked Label: " "Label: ")
207 default)) 207 default))
208 208
209 ;; Lets make sure that this is a valid label 209 ;; Let's make sure that this is a valid label
210 (cond 210 (cond
211 211
212 ((string-match (concat "\\`\\(" (regexp-quote prefix) 212 ((string-match (concat "\\`\\(" (regexp-quote prefix)
diff --git a/lisp/textmodes/reftex-toc.el b/lisp/textmodes/reftex-toc.el
index 37983d17931..25be64a3af2 100644
--- a/lisp/textmodes/reftex-toc.el
+++ b/lisp/textmodes/reftex-toc.el
@@ -33,7 +33,7 @@
33 33
34(defvar reftex-toc-mode-map 34(defvar reftex-toc-mode-map
35 (let ((map (make-sparse-keymap))) 35 (let ((map (make-sparse-keymap)))
36 36
37 (define-key map (if (featurep 'xemacs) [(button2)] [(mouse-2)]) 37 (define-key map (if (featurep 'xemacs) [(button2)] [(mouse-2)])
38 'reftex-toc-mouse-goto-line-and-hide) 38 'reftex-toc-mouse-goto-line-and-hide)
39 (define-key map [follow-link] 'mouse-face) 39 (define-key map [follow-link] 'mouse-face)
@@ -170,15 +170,15 @@ Here are all local bindings.
170 170
171 171
172(defvar reftex-toc-return-marker (make-marker) 172(defvar reftex-toc-return-marker (make-marker)
173 "Marker which makes it possible to return from toc to old position.") 173 "Marker which makes it possible to return from TOC to old position.")
174 174
175(defconst reftex-toc-help 175(defconst reftex-toc-help
176" AVAILABLE KEYS IN TOC BUFFER 176" AVAILABLE KEYS IN TOC BUFFER
177 ============================ 177 ============================
178n / p next-line / previous-line 178n / p next-line / previous-line
179SPC Show the corresponding location of the LaTeX document. 179SPC Show the corresponding location of the LaTeX document.
180TAB Goto the location and keep the *toc* window. 180TAB Goto the location and keep the TOC window.
181RET Goto the location and hide the *toc* window (also on mouse-2). 181RET Goto the location and hide the TOC window (also on mouse-2).
182< / > Promote / Demote section, or all sections in region. 182< / > Promote / Demote section, or all sections in region.
183C-c > Display Index. With prefix arg, restrict index to current section. 183C-c > Display Index. With prefix arg, restrict index to current section.
184q / k Hide/Kill *toc* buffer, return to position of reftex-toc command. 184q / k Hide/Kill *toc* buffer, return to position of reftex-toc command.
@@ -287,7 +287,7 @@ SPC=view TAB=goto RET=goto+hide [q]uit [r]escan [l]abels [f]ollow [x]r [?]Help
287 (setq offset 287 (setq offset
288 (reftex-insert-docstruct 288 (reftex-insert-docstruct
289 this-buf 289 this-buf
290 t ; include toc 290 t ; include TOC
291 reftex-toc-include-labels 291 reftex-toc-include-labels
292 reftex-toc-include-index-entries 292 reftex-toc-include-index-entries
293 reftex-toc-include-file-boundaries 293 reftex-toc-include-file-boundaries
@@ -296,7 +296,7 @@ SPC=view TAB=goto RET=goto+hide [q]uit [r]escan [l]abels [f]ollow [x]r [?]Help
296 nil ; commented 296 nil ; commented
297 here-I-am 297 here-I-am
298 "" ; xr-prefix 298 "" ; xr-prefix
299 t ; a toc buffer 299 t ; a TOC buffer
300 )) 300 ))
301 301
302 (run-hooks 'reftex-display-copied-context-hook) 302 (run-hooks 'reftex-display-copied-context-hook)
@@ -391,7 +391,7 @@ SPC=view TAB=goto RET=goto+hide [q]uit [r]escan [l]abels [f]ollow [x]r [?]Help
391 (frame-parameter frame 'name)) 391 (frame-parameter frame 'name))
392 "RefTeX TOC Frame"))) 392 "RefTeX TOC Frame")))
393 (if (and res error) 393 (if (and res error)
394 (error "This frame is view-only. Use `C-c =' to create toc window for commands")) 394 (error "This frame is view-only. Use `C-c =' to create TOC window for commands"))
395 res)) 395 res))
396 396
397(defun reftex-toc-show-help () 397(defun reftex-toc-show-help ()
@@ -421,14 +421,14 @@ SPC=view TAB=goto RET=goto+hide [q]uit [r]escan [l]abels [f]ollow [x]r [?]Help
421 (goto-char (or (previous-single-property-change (point) :data) 421 (goto-char (or (previous-single-property-change (point) :data)
422 (point)))) 422 (point))))
423(defun reftex-toc-next-heading (&optional arg) 423(defun reftex-toc-next-heading (&optional arg)
424 "Move to next table of contentes line." 424 "Move to next table of contents line."
425 (interactive "p") 425 (interactive "p")
426 (when (featurep 'xemacs) (setq zmacs-region-stays t)) 426 (when (featurep 'xemacs) (setq zmacs-region-stays t))
427 (end-of-line) 427 (end-of-line)
428 (re-search-forward "^ " nil t arg) 428 (re-search-forward "^ " nil t arg)
429 (beginning-of-line)) 429 (beginning-of-line))
430(defun reftex-toc-previous-heading (&optional arg) 430(defun reftex-toc-previous-heading (&optional arg)
431 "Move to previous table of contentes line." 431 "Move to previous table of contents line."
432 (interactive "p") 432 (interactive "p")
433 (when (featurep 'xemacs) (setq zmacs-region-stays t)) 433 (when (featurep 'xemacs) (setq zmacs-region-stays t))
434 (re-search-backward "^ " nil t arg)) 434 (re-search-backward "^ " nil t arg))
@@ -468,9 +468,9 @@ Label context is only displayed when the labels are there as well."
468 (setq reftex-toc-include-context (not reftex-toc-include-context)) 468 (setq reftex-toc-include-context (not reftex-toc-include-context))
469 (reftex-toc-revert)) 469 (reftex-toc-revert))
470(defun reftex-toc-max-level (arg) 470(defun reftex-toc-max-level (arg)
471 "Set the maximum level of toc lines in this buffer to value of prefix ARG. 471 "Set the maximum level of TOC lines in this buffer to value of prefix ARG.
472When no prefix is given, set the max level to a large number, so that all 472When no prefix is given, set the max level to a large number, so that all
473levels are shown. For eaxample, to set the level to 3, type `3 m'." 473levels are shown. For example, to set the level to 3, type `3 m'."
474 (interactive "P") 474 (interactive "P")
475 (setq reftex-toc-max-level (if arg 475 (setq reftex-toc-max-level (if arg
476 (prefix-numeric-value arg) 476 (prefix-numeric-value arg)
@@ -484,23 +484,23 @@ levels are shown. For eaxample, to set the level to 3, type `3 m'."
484 (reftex-toc-dframe-p nil 'error) 484 (reftex-toc-dframe-p nil 'error)
485 (reftex-toc-visit-location)) 485 (reftex-toc-visit-location))
486(defun reftex-toc-goto-line-and-hide () 486(defun reftex-toc-goto-line-and-hide ()
487 "Go to document location in other window. Hide the *toc* window." 487 "Go to document location in other window. Hide the TOC window."
488 (interactive) 488 (interactive)
489 (reftex-toc-dframe-p nil 'error) 489 (reftex-toc-dframe-p nil 'error)
490 (reftex-toc-visit-location 'hide)) 490 (reftex-toc-visit-location 'hide))
491(defun reftex-toc-goto-line () 491(defun reftex-toc-goto-line ()
492 "Go to document location in other window. *toc* window stays." 492 "Go to document location in other window. TOC window stays."
493 (interactive) 493 (interactive)
494 (reftex-toc-dframe-p nil 'error) 494 (reftex-toc-dframe-p nil 'error)
495 (reftex-toc-visit-location t)) 495 (reftex-toc-visit-location t))
496(defun reftex-toc-mouse-goto-line-and-hide (ev) 496(defun reftex-toc-mouse-goto-line-and-hide (ev)
497 "Go to document location in other window. Hide the *toc* window." 497 "Go to document location in other window. Hide the TOC window."
498 (interactive "e") 498 (interactive "e")
499 (mouse-set-point ev) 499 (mouse-set-point ev)
500 (reftex-toc-dframe-p nil 'error) 500 (reftex-toc-dframe-p nil 'error)
501 (reftex-toc-visit-location 'hide)) 501 (reftex-toc-visit-location 'hide))
502(defun reftex-toc-show-calling-point () 502(defun reftex-toc-show-calling-point ()
503 "Show point where reftex-toc was called from." 503 "Show point where `reftex-toc' was called from."
504 (interactive) 504 (interactive)
505 (reftex-toc-dframe-p nil 'error) 505 (reftex-toc-dframe-p nil 'error)
506 (let ((this-window (selected-window))) 506 (let ((this-window (selected-window)))
@@ -512,8 +512,8 @@ levels are shown. For eaxample, to set the level to 3, type `3 m'."
512 (recenter '(4))) 512 (recenter '(4)))
513 (select-window this-window)))) 513 (select-window this-window))))
514(defun reftex-toc-quit () 514(defun reftex-toc-quit ()
515 "Hide the *toc* window and do not move point. 515 "Hide the TOC window and do not move point.
516If the toc window is the only window on the dedicated TOC frame, the frame 516If the TOC window is the only window on the dedicated TOC frame, the frame
517is destroyed." 517is destroyed."
518 (interactive) 518 (interactive)
519 (if (and (one-window-p) 519 (if (and (one-window-p)
@@ -584,7 +584,7 @@ With prefix arg 1, restrict index to the section at point."
584 (reftex-toc))) 584 (reftex-toc)))
585 585
586(defun reftex-toc-revert (&rest ignore) 586(defun reftex-toc-revert (&rest ignore)
587 "Regenerate the *toc* from the internal lists." 587 "Regenerate the TOC from the internal lists."
588 (interactive) 588 (interactive)
589 (let ((unsplittable 589 (let ((unsplittable
590 (if (fboundp 'frame-property) 590 (if (fboundp 'frame-property)
@@ -618,7 +618,7 @@ With prefix arg 1, restrict index to the section at point."
618 618
619(defun reftex-toc-jump (arg) 619(defun reftex-toc-jump (arg)
620 "Jump to a specific section. E.g. '3 z' jumps to section 3. 620 "Jump to a specific section. E.g. '3 z' jumps to section 3.
621Useful for large TOC's." 621Useful for large TOCs."
622 (interactive "P") 622 (interactive "P")
623 (goto-char (point-min)) 623 (goto-char (point-min))
624 (re-search-forward 624 (re-search-forward
@@ -642,7 +642,7 @@ Useful for large TOC's."
642 (interactive "p") 642 (interactive "p")
643 (reftex-toc-do-promote -1)) 643 (reftex-toc-do-promote -1))
644(defun reftex-toc-do-promote (delta) 644(defun reftex-toc-do-promote (delta)
645 "Workhorse for reftex-toc-promote and reftex-to-demote. 645 "Workhorse for `reftex-toc-promote' and `reftex-toc-demote'.
646Changes the level of sections in the current region, or just the section at 646Changes the level of sections in the current region, or just the section at
647point." 647point."
648 ;; We should not do anything unless we are sure this is going to work for 648 ;; We should not do anything unless we are sure this is going to work for
@@ -660,7 +660,7 @@ point."
660 (setq msg 660 (setq msg
661 (catch 'exit 661 (catch 'exit
662 (if (reftex-region-active-p) 662 (if (reftex-region-active-p)
663 ;; A region is dangerous, check if we have a brandnew scan, 663 ;; A region is dangerous, check if we have a brand new scan,
664 ;; to make sure we are not missing any section statements. 664 ;; to make sure we are not missing any section statements.
665 (if (not (reftex-toc-check-docstruct)) 665 (if (not (reftex-toc-check-docstruct))
666 (reftex-toc-load-all-files-for-promotion) ;; exits 666 (reftex-toc-load-all-files-for-promotion) ;; exits
@@ -728,8 +728,8 @@ point."
728 deactivate-mark nil))))) 728 deactivate-mark nil)))))
729 729
730(defun reftex-toc-promote-prepare (x delta) 730(defun reftex-toc-promote-prepare (x delta)
731 "Look at a toc entry and see if we could pro/demote it. 731 "Look at a TOC entry and see if we could pro/demote it.
732This function prepares everything for the changes, but does not do it. 732This function prepares everything for the change, but does not do it.
733The return value is a list with information needed when doing the 733The return value is a list with information needed when doing the
734promotion/demotion later. DELTA is the level change." 734promotion/demotion later. DELTA is the level change."
735 (let* ((data (car x)) 735 (let* ((data (car x))
@@ -779,7 +779,7 @@ promotion/demotion later. DELTA is the level change."
779 (error "Cannot %smote \\%s" pro-or-de name)))) 779 (error "Cannot %smote \\%s" pro-or-de name))))
780 780
781(defun reftex-toc-promote-action (x) 781(defun reftex-toc-promote-action (x)
782 "Change the level of a toc entry. 782 "Change the level of a TOC entry.
783PRO-OR-DE is assumed to be dynamically scoped into this function." 783PRO-OR-DE is assumed to be dynamically scoped into this function."
784 (let* ((data (car x)) 784 (let* ((data (car x))
785 (name (nth 1 x)) 785 (name (nth 1 x))
@@ -792,7 +792,7 @@ PRO-OR-DE is assumed to be dynamically scoped into this function."
792 (error "Fatal error during %smotion" pro-or-de))))) 792 (error "Fatal error during %smotion" pro-or-de)))))
793 793
794(defun reftex-toc-extract-section-number (entry) 794(defun reftex-toc-extract-section-number (entry)
795 "Get the numbering of a toc entry, for message purposes." 795 "Get the numbering of a TOC entry, for message purposes."
796 (if (string-match "\\s-*\\(\\S-+\\)" (nth 2 (car entry))) 796 (if (string-match "\\s-*\\(\\S-+\\)" (nth 2 (car entry)))
797 (match-string 1 (nth 2 (car entry))) 797 (match-string 1 (nth 2 (car entry)))
798 "?")) 798 "?"))
@@ -838,7 +838,7 @@ if these sets are sorted blocks in the alist."
838(defun reftex-toc-load-all-files-for-promotion () 838(defun reftex-toc-load-all-files-for-promotion ()
839 "Make sure all files of the document are being visited by buffers, 839 "Make sure all files of the document are being visited by buffers,
840and that the scanning info is absolutely up to date. 840and that the scanning info is absolutely up to date.
841We do this by rescanning with reftex-keep-temporary-buffers bound to t. 841We do this by rescanning with `reftex-keep-temporary-buffers' bound to t.
842The variable PRO-OR-DE is assumed to be dynamically scoped into this function. 842The variable PRO-OR-DE is assumed to be dynamically scoped into this function.
843When finished, we exit with an error message." 843When finished, we exit with an error message."
844 (let ((reftex-keep-temporary-buffers t)) 844 (let ((reftex-keep-temporary-buffers t))
@@ -848,9 +848,9 @@ When finished, we exit with an error message."
848 "TOC had to be updated first. Please check selection and repeat the command."))) 848 "TOC had to be updated first. Please check selection and repeat the command.")))
849 849
850(defun reftex-toc-rename-label () 850(defun reftex-toc-rename-label ()
851 "Rename the currently selected label in the *TOC* buffer. 851 "Rename the currently selected label in the *toc* buffer.
852This launches a global search and replace in order to rename a label. 852This launches a global search and replace in order to rename a label.
853Renaming a label is hardly ever necessary - the only exeption is after 853Renaming a label is hardly ever necessary - the only exception is after
854promotion/demotion in connection with a package like fancyref, where the 854promotion/demotion in connection with a package like fancyref, where the
855label prefix determines the wording of a reference." 855label prefix determines the wording of a reference."
856 (interactive) 856 (interactive)
@@ -861,7 +861,7 @@ label prefix determines the wording of a reference."
861 (setq newlabel (read-string (format "Rename label \"%s\" to:" label))) 861 (setq newlabel (read-string (format "Rename label \"%s\" to:" label)))
862 (if (assoc newlabel (symbol-value reftex-docstruct-symbol)) 862 (if (assoc newlabel (symbol-value reftex-docstruct-symbol))
863 (if (not (y-or-n-p 863 (if (not (y-or-n-p
864 (format "Label '%s' exists. Use anyway? " label))) 864 (format "Label '%s' exists. Use anyway? " label)))
865 (error "Abort"))) 865 (error "Abort")))
866 (save-excursion 866 (save-excursion
867 (save-window-excursion 867 (save-window-excursion
@@ -875,10 +875,10 @@ label prefix determines the wording of a reference."
875 875
876 876
877(defun reftex-toc-visit-location (&optional final no-revisit) 877(defun reftex-toc-visit-location (&optional final no-revisit)
878 ;; Visit the tex file corresponding to the toc entry on the current line. 878 ;; Visit the tex file corresponding to the TOC entry on the current line.
879 ;; If FINAL is t, stay there 879 ;; If FINAL is t, stay there
880 ;; If FINAL is 'hide, hide the *toc* window. 880 ;; If FINAL is 'hide, hide the TOC window.
881 ;; Otherwise, move cursor back into *toc* window. 881 ;; Otherwise, move cursor back into TOC window.
882 ;; NO-REVISIT means don't visit files, just use live buffers. 882 ;; NO-REVISIT means don't visit files, just use live buffers.
883 ;; This function is pretty clever about finding back a section heading, 883 ;; This function is pretty clever about finding back a section heading,
884 ;; even if the buffer is not live, or things like outline, x-symbol etc. 884 ;; even if the buffer is not live, or things like outline, x-symbol etc.
@@ -888,7 +888,7 @@ label prefix determines the wording of a reference."
888 (toc-window (selected-window)) 888 (toc-window (selected-window))
889 show-window show-buffer match) 889 show-window show-buffer match)
890 890
891 (unless toc (error "Don't know which toc line to visit")) 891 (unless toc (error "Don't know which TOC line to visit"))
892 892
893 (cond 893 (cond
894 894
@@ -1012,8 +1012,8 @@ label prefix determines the wording of a reference."
1012 (reftex-toc-recenter)))) 1012 (reftex-toc-recenter))))
1013 1013
1014(defun reftex-toggle-auto-toc-recenter () 1014(defun reftex-toggle-auto-toc-recenter ()
1015 "Toggle the automatic recentering of the toc window. 1015 "Toggle the automatic recentering of the TOC window.
1016When active, leaving point idle will make the toc window jump to the correct 1016When active, leaving point idle will make the TOC window jump to the correct
1017section." 1017section."
1018 (interactive) 1018 (interactive)
1019 (if reftex-toc-auto-recenter-timer 1019 (if reftex-toc-auto-recenter-timer
@@ -1022,7 +1022,7 @@ section."
1022 (delete-itimer reftex-toc-auto-recenter-timer) 1022 (delete-itimer reftex-toc-auto-recenter-timer)
1023 (cancel-timer reftex-toc-auto-recenter-timer)) 1023 (cancel-timer reftex-toc-auto-recenter-timer))
1024 (setq reftex-toc-auto-recenter-timer nil) 1024 (setq reftex-toc-auto-recenter-timer nil)
1025 (message "Automatic recentering of toc windwo was turned off")) 1025 (message "Automatic recentering of TOC window was turned off"))
1026 (setq reftex-toc-auto-recenter-timer 1026 (setq reftex-toc-auto-recenter-timer
1027 (if (featurep 'xemacs) 1027 (if (featurep 'xemacs)
1028 (start-itimer "RefTeX Idle Timer for recenter" 1028 (start-itimer "RefTeX Idle Timer for recenter"
@@ -1030,7 +1030,7 @@ section."
1030 reftex-idle-time reftex-idle-time t) 1030 reftex-idle-time reftex-idle-time t)
1031 (run-with-idle-timer 1031 (run-with-idle-timer
1032 reftex-idle-time t 'reftex-recenter-toc-when-idle))) 1032 reftex-idle-time t 'reftex-recenter-toc-when-idle)))
1033 (message "Automatic recentering of toc window was turned on"))) 1033 (message "Automatic recentering of TOC window was turned on")))
1034 1034
1035(defun reftex-toc-toggle-dedicated-frame () 1035(defun reftex-toc-toggle-dedicated-frame ()
1036 "Toggle the display of a separate frame for the TOC. 1036 "Toggle the display of a separate frame for the TOC.
@@ -1052,7 +1052,7 @@ always show the current section in connection with the option
1052 (reftex-make-separate-toc-frame)))) 1052 (reftex-make-separate-toc-frame))))
1053 1053
1054(defun reftex-make-separate-toc-frame () 1054(defun reftex-make-separate-toc-frame ()
1055 ;; Create a new fame showing only the toc buffer. 1055 ;; Create a new fame showing only the TOC buffer.
1056 (let ((current-frame (selected-frame)) 1056 (let ((current-frame (selected-frame))
1057 (current-window (selected-window)) 1057 (current-window (selected-window))
1058 (current-toc-window (get-buffer-window "*toc*" 'visible)) 1058 (current-toc-window (get-buffer-window "*toc*" 'visible))
diff --git a/lisp/textmodes/reftex.el b/lisp/textmodes/reftex.el
index cef8a3d1548..b73056a803b 100644
--- a/lisp/textmodes/reftex.el
+++ b/lisp/textmodes/reftex.el
@@ -42,7 +42,7 @@
42;; - For XEmacs 21.x, you need to install the RefTeX plug-in package 42;; - For XEmacs 21.x, you need to install the RefTeX plug-in package
43;; available from the XEmacs distribution sites. 43;; available from the XEmacs distribution sites.
44;; - If you have downloaded this file from the maintainers webpage, follow 44;; - If you have downloaded this file from the maintainers webpage, follow
45;; the instructions in the INSTALL file of the distrubution. 45;; the instructions in the INSTALL file of the distribution.
46;; 46;;
47;; To turn RefTeX Mode on and off in a buffer, use `M-x reftex-mode'. 47;; To turn RefTeX Mode on and off in a buffer, use `M-x reftex-mode'.
48;; 48;;
@@ -688,7 +688,7 @@ on the menu bar.
688 (TeX-master-file t) 688 (TeX-master-file t)
689 (error (buffer-file-name)))) 689 (error (buffer-file-name))))
690 ((fboundp 'tex-main-file) (tex-main-file)) ; Emacs LaTeX mode 690 ((fboundp 'tex-main-file) (tex-main-file)) ; Emacs LaTeX mode
691 ((boundp 'TeX-master) ; The variable is defined - lets use it. 691 ((boundp 'TeX-master) ; The variable is defined - let's use it.
692 (cond 692 (cond
693 ((eq TeX-master t) 693 ((eq TeX-master t)
694 (buffer-file-name)) 694 (buffer-file-name))
@@ -1568,7 +1568,7 @@ Valid actions are: readable, restore, read, kill, write."
1568;;; Finding files 1568;;; Finding files
1569 1569
1570(defun reftex-locate-file (file type master-dir &optional die) 1570(defun reftex-locate-file (file type master-dir &optional die)
1571 "Find FILE of type TYPE in MASTER-DIR or on the path associcted with TYPE. 1571 "Find FILE of type TYPE in MASTER-DIR or on the path associated with TYPE.
1572If the file does not have any of the valid extensions for TYPE, 1572If the file does not have any of the valid extensions for TYPE,
1573try first the default extension and only then the naked file name. 1573try first the default extension and only then the naked file name.
1574When DIE is non-nil, throw an error if file not found." 1574When DIE is non-nil, throw an error if file not found."
@@ -1612,7 +1612,7 @@ When DIE is non-nil, throw an error if file not found."
1612(defun reftex-find-file-externally (file type &optional master-dir) 1612(defun reftex-find-file-externally (file type &optional master-dir)
1613 ;; Use external program to find FILE. 1613 ;; Use external program to find FILE.
1614 ;; The program is taken from `reftex-external-file-finders'. 1614 ;; The program is taken from `reftex-external-file-finders'.
1615 ;; Interprete relative path definitions starting from MASTER-DIR. 1615 ;; Interpret relative path definitions starting from MASTER-DIR.
1616 (let ((default-directory (or master-dir default-directory)) 1616 (let ((default-directory (or master-dir default-directory))
1617 (prg (cdr (assoc type reftex-external-file-finders))) 1617 (prg (cdr (assoc type reftex-external-file-finders)))
1618 out) 1618 out)
@@ -2058,7 +2058,7 @@ When DIE is non-nil, throw an error if file not found."
2058 (with-current-buffer buf 2058 (with-current-buffer buf
2059 (run-hooks 'reftex-initialize-temporary-buffers)))) 2059 (run-hooks 'reftex-initialize-temporary-buffers))))
2060 2060
2061 ;; Lets see if we got a license to kill :-| 2061 ;; Let's see if we got a license to kill :-|
2062 (and mark-to-kill 2062 (and mark-to-kill
2063 (add-to-list 'reftex-buffers-to-kill buf)) 2063 (add-to-list 'reftex-buffers-to-kill buf))
2064 2064
@@ -2254,7 +2254,7 @@ IGNORE-WORDS List of words which should be removed from the string."
2254(defvar font-lock-defaults-computed) 2254(defvar font-lock-defaults-computed)
2255(defun reftex-fontify-select-label-buffer (parent-buffer) 2255(defun reftex-fontify-select-label-buffer (parent-buffer)
2256 ;; Fontify the `*RefTeX Select*' buffer. Buffer is temporarily renamed to 2256 ;; Fontify the `*RefTeX Select*' buffer. Buffer is temporarily renamed to
2257 ;; start with none-SPC char, beacuse Font-Lock otherwise refuses operation. 2257 ;; start with none-SPC char, because Font-Lock otherwise refuses operation.
2258 (run-hook-with-args 'reftex-pre-refontification-functions 2258 (run-hook-with-args 'reftex-pre-refontification-functions
2259 parent-buffer 'reftex-ref) 2259 parent-buffer 'reftex-ref)
2260 (let* ((oldname (buffer-name)) 2260 (let* ((oldname (buffer-name))
diff --git a/lisp/textmodes/remember.el b/lisp/textmodes/remember.el
index 1923ab692d8..07a4fae9c30 100644
--- a/lisp/textmodes/remember.el
+++ b/lisp/textmodes/remember.el
@@ -113,7 +113,7 @@
113;; - Allowing particular views of the initially amorphous data pool 113;; - Allowing particular views of the initially amorphous data pool
114;; (ala the Xanadu concept). 114;; (ala the Xanadu concept).
115;; 115;;
116;; - Storage of the data in a manner most appopriate to that data, 116;; - Storage of the data in a manner most appropriate to that data,
117;; such as keeping address-book type information in BBDB, etc. 117;; such as keeping address-book type information in BBDB, etc.
118;; 118;;
119;; * Using "remember" 119;; * Using "remember"
diff --git a/lisp/textmodes/rst.el b/lisp/textmodes/rst.el
index 0ce71c25ad7..81e92487eb0 100644
--- a/lisp/textmodes/rst.el
+++ b/lisp/textmodes/rst.el
@@ -1534,7 +1534,7 @@ is a regular expression for matching the lines with items."
1534 1534
1535(defvar rst-preferred-bullets 1535(defvar rst-preferred-bullets
1536 '(?- ?* ?+) 1536 '(?- ?* ?+)
1537 "List of favourite bullets to set for straightening bullets.") 1537 "List of favorite bullets to set for straightening bullets.")
1538 1538
1539(defun rst-straighten-bullets-region (beg end) 1539(defun rst-straighten-bullets-region (beg end)
1540 "Make all the bulleted list items in the region consistent. 1540 "Make all the bulleted list items in the region consistent.
@@ -2323,7 +2323,7 @@ of (COLUMN-NUMBER . LINE) pairs."
2323 (indent-rigidly 2323 (indent-rigidly
2324 mbeg mend 2324 mbeg mend
2325 2325
2326 ;; Find the next tab after the leftmost columnt. 2326 ;; Find the next tab after the leftmost column.
2327 (let ((tab (funcall find-next-fun tabs leftmostcol))) 2327 (let ((tab (funcall find-next-fun tabs leftmostcol)))
2328 2328
2329 (if tab 2329 (if tab
@@ -2475,7 +2475,7 @@ first of a paragraph."
2475;;------------------------------------------------------------------------------ 2475;;------------------------------------------------------------------------------
2476 2476
2477;; FIXME: these next functions should become part of a larger effort to redo the 2477;; FIXME: these next functions should become part of a larger effort to redo the
2478;; bullets in bulletted lists. The enumerate would just be one of the possible 2478;; bullets in bulleted lists. The enumerate would just be one of the possible
2479;; outputs. 2479;; outputs.
2480;; 2480;;
2481;; FIXME: TODO we need to do the enumeration removal as well. 2481;; FIXME: TODO we need to do the enumeration removal as well.
diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el
index be8dd9c9130..fa958632799 100644
--- a/lisp/textmodes/sgml-mode.el
+++ b/lisp/textmodes/sgml-mode.el
@@ -1558,7 +1558,7 @@ LCON is the lexical context, if any."
1558 1558
1559(defun sgml-guess-indent () 1559(defun sgml-guess-indent ()
1560 "Guess an appropriate value for `sgml-basic-offset'. 1560 "Guess an appropriate value for `sgml-basic-offset'.
1561Base the guessed identation level on the first indented tag in the buffer. 1561Base the guessed indentation level on the first indented tag in the buffer.
1562Add this to `sgml-mode-hook' for convenience." 1562Add this to `sgml-mode-hook' for convenience."
1563 (interactive) 1563 (interactive)
1564 (save-excursion 1564 (save-excursion
@@ -1872,7 +1872,7 @@ This takes effect when first loading the library.")
1872 ("dir" . "Directory list (obsolete)") 1872 ("dir" . "Directory list (obsolete)")
1873 ("div" . "Generic block-level container") 1873 ("div" . "Generic block-level container")
1874 ("dl" . "Definition list") 1874 ("dl" . "Definition list")
1875 ("dt" . "Term to be definined") 1875 ("dt" . "Term to be defined")
1876 ("em" . "Emphasized") 1876 ("em" . "Emphasized")
1877 ("embed" . "Embedded data in foreign format") 1877 ("embed" . "Embedded data in foreign format")
1878 ("fig" . "Figure") 1878 ("fig" . "Figure")
@@ -1897,7 +1897,7 @@ This takes effect when first loading the library.")
1897 ("input" . "Form input field") 1897 ("input" . "Form input field")
1898 ("ins" . "Inserted text") 1898 ("ins" . "Inserted text")
1899 ("isindex" . "Input field for index search") 1899 ("isindex" . "Input field for index search")
1900 ("kbd" . "Keybard example face") 1900 ("kbd" . "Keyboard example face")
1901 ("lang" . "Natural language") 1901 ("lang" . "Natural language")
1902 ("li" . "List item") 1902 ("li" . "List item")
1903 ("link" . "Link relationship") 1903 ("link" . "Link relationship")
diff --git a/lisp/textmodes/table.el b/lisp/textmodes/table.el
index 2dc4e4a88b1..08922445521 100644
--- a/lisp/textmodes/table.el
+++ b/lisp/textmodes/table.el
@@ -1482,7 +1482,7 @@ the last cache point coordinate."
1482 (cons (cons command func-symbol) 1482 (cons (cons command func-symbol)
1483 table-command-remap-alist)))) 1483 table-command-remap-alist))))
1484 '(center-line 1484 '(center-line
1485 conter-region 1485 center-region
1486 center-paragraph 1486 center-paragraph
1487 fill-paragraph)) 1487 fill-paragraph))
1488 1488
diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el
index deb92fc0243..c4892ce572c 100644
--- a/lisp/textmodes/tex-mode.el
+++ b/lisp/textmodes/tex-mode.el
@@ -1871,7 +1871,7 @@ Mark is left at original location."
1871 tex-old-error-file-name 2 nil 1 1 1871 tex-old-error-file-name 2 nil 1 1
1872 (2 compilation-warning-face)) 1872 (2 compilation-warning-face))
1873 ;; Included files get output as (<file> ...). 1873 ;; Included files get output as (<file> ...).
1874 ;; FIXME: there tend to be a crapload of them at the beginning of the 1874 ;; FIXME: there tend to be a boatload of them at the beginning of the
1875 ;; output which aren't that interesting. Maybe we should filter out 1875 ;; output which aren't that interesting. Maybe we should filter out
1876 ;; all the file name that start with /usr/share? 1876 ;; all the file name that start with /usr/share?
1877 ;; ("(\\.?/\\([^() \n]+\\)" 1 nil nil 0) 1877 ;; ("(\\.?/\\([^() \n]+\\)" 1 nil nil 0)
diff --git a/lisp/textmodes/texinfmt.el b/lisp/textmodes/texinfmt.el
index d33cbb97dd8..094885bb0d0 100644
--- a/lisp/textmodes/texinfmt.el
+++ b/lisp/textmodes/texinfmt.el
@@ -620,7 +620,7 @@ if large. You can use `Info-split' to do this manually."
620 "var{\\|" 620 "var{\\|"
621 "w{\\|" 621 "w{\\|"
622 "xref{\\|" 622 "xref{\\|"
623 "@-\\|" ; @- is a descretionary hyphen (not an accent) (a noop). 623 "@-\\|" ; @- is a discretionary hyphen (not an accent) (a noop).
624 texinfo-accent-commands 624 texinfo-accent-commands
625 "\\)" 625 "\\)"
626 ) 626 )
@@ -2194,7 +2194,7 @@ This command is executed when texinfmt sees @item inside @multitable."
2194 2194
2195(put 'image 'texinfo-format 'texinfo-format-image) 2195(put 'image 'texinfo-format 'texinfo-format-image)
2196(defun texinfo-format-image () 2196(defun texinfo-format-image ()
2197 "Insert an image from an an file ending in .txt. 2197 "Insert an image from a file ending in .txt.
2198Use only the FILENAME arg; for Info, ignore the other arguments to @image." 2198Use only the FILENAME arg; for Info, ignore the other arguments to @image."
2199 (let ((args (texinfo-format-parse-args)) 2199 (let ((args (texinfo-format-parse-args))
2200 filename) 2200 filename)
@@ -3909,11 +3909,11 @@ Default is to leave paragraph indentation as is."
3909;;; @set, @clear, @ifset, @ifclear 3909;;; @set, @clear, @ifset, @ifclear
3910 3910
3911;; If a flag is set with @set FLAG, then text between @ifset and @end 3911;; If a flag is set with @set FLAG, then text between @ifset and @end
3912;; ifset is formatted normally, but if the flag is is cleared with 3912;; ifset is formatted normally, but if the flag is cleared with
3913;; @clear FLAG, then the text is not formatted; it is ignored. 3913;; @clear FLAG, then the text is not formatted; it is ignored.
3914 3914
3915;; If a flag is cleared with @clear FLAG, then text between @ifclear 3915;; If a flag is cleared with @clear FLAG, then text between @ifclear
3916;; and @end ifclear is formatted normally, but if the flag is is set with 3916;; and @end ifclear is formatted normally, but if the flag is set with
3917;; @set FLAG, then the text is not formatted; it is ignored. @ifclear 3917;; @set FLAG, then the text is not formatted; it is ignored. @ifclear
3918;; is the opposite of @ifset. 3918;; is the opposite of @ifset.
3919 3919
diff --git a/lisp/thumbs.el b/lisp/thumbs.el
index 7a505758408..6ac8eddc9d6 100644
--- a/lisp/thumbs.el
+++ b/lisp/thumbs.el
@@ -26,7 +26,7 @@
26;; This package create two new modes: thumbs-mode and thumbs-view-image-mode. 26;; This package create two new modes: thumbs-mode and thumbs-view-image-mode.
27;; It is used for basic browsing and viewing of images from within Emacs. 27;; It is used for basic browsing and viewing of images from within Emacs.
28;; Minimal image manipulation functions are also available via external 28;; Minimal image manipulation functions are also available via external
29;; programs. If you want to do more complex tasks like categorise and tag 29;; programs. If you want to do more complex tasks like categorize and tag
30;; your images, use image-dired.el 30;; your images, use image-dired.el
31;; 31;;
32;; The 'convert' program from 'ImageMagick' 32;; The 'convert' program from 'ImageMagick'
diff --git a/lisp/tmm.el b/lisp/tmm.el
index 52704e70a55..5722c2c8f79 100644
--- a/lisp/tmm.el
+++ b/lisp/tmm.el
@@ -37,7 +37,6 @@
37;;; The following will be localized, added only to pacify the compiler. 37;;; The following will be localized, added only to pacify the compiler.
38(defvar tmm-short-cuts) 38(defvar tmm-short-cuts)
39(defvar tmm-old-mb-map nil) 39(defvar tmm-old-mb-map nil)
40(defvar tmm-old-comp-map)
41(defvar tmm-c-prompt nil) 40(defvar tmm-c-prompt nil)
42(defvar tmm-km-list) 41(defvar tmm-km-list)
43(defvar tmm-next-shortcut-digit) 42(defvar tmm-next-shortcut-digit)
@@ -98,7 +97,7 @@ See the documentation for `tmm-prompt'."
98 97
99(defcustom tmm-mid-prompt "==>" 98(defcustom tmm-mid-prompt "==>"
100 "String to insert between shortcut and menu item. 99 "String to insert between shortcut and menu item.
101If nil, there will be no shortcuts. It should not consist only of spaces, 100If nil, there will be no shortcuts. It should not consist only of spaces,
102or else the correct item might not be found in the `*Completions*' buffer." 101or else the correct item might not be found in the `*Completions*' buffer."
103 :type 'string 102 :type 'string
104 :group 'tmm) 103 :group 'tmm)
@@ -158,7 +157,7 @@ Its value should be an event that has a binding in MENU."
158 (let ((gl-str "Menu bar") ;; The menu bar itself is not a menu keymap 157 (let ((gl-str "Menu bar") ;; The menu bar itself is not a menu keymap
159 ; so it doesn't have a name. 158 ; so it doesn't have a name.
160 tmm-km-list out history history-len tmm-table-undef tmm-c-prompt 159 tmm-km-list out history history-len tmm-table-undef tmm-c-prompt
161 tmm-old-mb-map tmm-old-comp-map tmm-short-cuts 160 tmm-old-mb-map tmm-short-cuts
162 chosen-string choice 161 chosen-string choice
163 (not-menu (not (keymapp menu)))) 162 (not-menu (not (keymapp menu))))
164 (run-hooks 'activate-menubar-hook) 163 (run-hooks 'activate-menubar-hook)
@@ -219,23 +218,16 @@ Its value should be an event that has a binding in MENU."
219 (setq history-len (length history)) 218 (setq history-len (length history))
220 (setq history (append history history history history)) 219 (setq history (append history history history history))
221 (setq tmm-c-prompt (nth (- history-len 1 index-of-default) history)) 220 (setq tmm-c-prompt (nth (- history-len 1 index-of-default) history))
222 (add-hook 'minibuffer-setup-hook 'tmm-add-prompt) 221 (setq out
223 (if default-item 222 (if default-item
224 (setq out (car (nth index-of-default tmm-km-list))) 223 (car (nth index-of-default tmm-km-list))
225 (save-excursion 224 (minibuffer-with-setup-hook #'tmm-add-prompt
226 (unwind-protect 225 (completing-read
227 (setq out 226 (concat gl-str
228 (completing-read 227 " (up/down to change, PgUp to menu): ")
229 (concat gl-str 228 tmm-km-list nil t nil
230 " (up/down to change, PgUp to menu): ") 229 (cons 'history
231 tmm-km-list nil t nil 230 (- (* 2 history-len) index-of-default))))))))
232 (cons 'history
233 (- (* 2 history-len) index-of-default))))
234 (remove-hook 'minibuffer-setup-hook 'tmm-add-prompt)
235 (if (get-buffer "*Completions*")
236 (with-current-buffer "*Completions*"
237 (use-local-map tmm-old-comp-map)
238 (bury-buffer (current-buffer)))))))))
239 (setq choice (cdr (assoc out tmm-km-list))) 231 (setq choice (cdr (assoc out tmm-km-list)))
240 (and (null choice) 232 (and (null choice)
241 (> (length out) (length tmm-c-prompt)) 233 (> (length out) (length tmm-c-prompt))
@@ -270,7 +262,7 @@ Its value should be an event that has a binding in MENU."
270 choice))))) 262 choice)))))
271 263
272(defun tmm-add-shortcuts (list) 264(defun tmm-add-shortcuts (list)
273 "Adds shortcuts to cars of elements of the list. 265 "Add shortcuts to cars of elements of the list.
274Takes a list of lists with a string as car, returns list with 266Takes a list of lists with a string as car, returns list with
275shortcuts added to these cars. 267shortcuts added to these cars.
276Stores a list of all the shortcuts in the free variable `tmm-short-cuts'." 268Stores a list of all the shortcuts in the free variable `tmm-short-cuts'."
@@ -362,7 +354,6 @@ Stores a list of all the shortcuts in the free variable `tmm-short-cuts'."
362 (set-buffer-modified-p nil))) 354 (set-buffer-modified-p nil)))
363 355
364(defun tmm-add-prompt () 356(defun tmm-add-prompt ()
365 (remove-hook 'minibuffer-setup-hook 'tmm-add-prompt)
366 (add-hook 'minibuffer-exit-hook 'tmm-delete-map nil t) 357 (add-hook 'minibuffer-exit-hook 'tmm-delete-map nil t)
367 (unless tmm-c-prompt 358 (unless tmm-c-prompt
368 (error "No active menu entries")) 359 (error "No active menu entries"))
@@ -387,9 +378,7 @@ Stores a list of all the shortcuts in the free variable `tmm-short-cuts'."
387 (save-selected-window 378 (save-selected-window
388 (other-window 1) ; Electric-pop-up-window does 379 (other-window 1) ; Electric-pop-up-window does
389 ; not work in minibuffer 380 ; not work in minibuffer
390 (Electric-pop-up-window "*Completions*") 381 (Electric-pop-up-window "*Completions*"))
391 (with-current-buffer "*Completions*"
392 (setq tmm-old-comp-map (tmm-define-keys nil))))
393 (insert tmm-c-prompt)) 382 (insert tmm-c-prompt))
394 383
395(defun tmm-delete-map () 384(defun tmm-delete-map ()
@@ -424,16 +413,18 @@ Stores a list of all the shortcuts in the free variable `tmm-short-cuts'."
424 (exit-minibuffer))))) 413 (exit-minibuffer)))))
425 414
426(defun tmm-goto-completions () 415(defun tmm-goto-completions ()
416 "Jump to the completions buffer."
427 (interactive) 417 (interactive)
428 (let ((prompt-end (minibuffer-prompt-end))) 418 (let ((prompt-end (minibuffer-prompt-end)))
429 (setq tmm-c-prompt (buffer-substring prompt-end (point-max))) 419 (setq tmm-c-prompt (buffer-substring prompt-end (point-max)))
420 ;; FIXME: Why?
430 (delete-region prompt-end (point-max))) 421 (delete-region prompt-end (point-max)))
431 (switch-to-buffer-other-window "*Completions*") 422 (switch-to-buffer-other-window "*Completions*")
432 (search-forward tmm-c-prompt) 423 (search-forward tmm-c-prompt)
433 (search-backward tmm-c-prompt)) 424 (search-backward tmm-c-prompt))
434 425
435(defun tmm-get-keymap (elt &optional in-x-menu) 426(defun tmm-get-keymap (elt &optional in-x-menu)
436 "Prepends (DOCSTRING EVENT BINDING) to free variable `tmm-km-list'. 427 "Prepend (DOCSTRING EVENT BINDING) to free variable `tmm-km-list'.
437The values are deduced from the argument ELT, that should be an 428The values are deduced from the argument ELT, that should be an
438element of keymap, an `x-popup-menu' argument, or an element of 429element of keymap, an `x-popup-menu' argument, or an element of
439`x-popup-menu' argument (when IN-X-MENU is not-nil). 430`x-popup-menu' argument (when IN-X-MENU is not-nil).
diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index a2a1b451258..47f006eebda 100644
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,13 @@
12011-11-15 Juanma Barranquero <lekktu@gmail.com>
2
3 * url-dav.el (url-dav-delete-file): Fix typo.
4
52011-11-14 Lars Magne Ingebrigtsen <larsi@gnus.org>
6
7 * url-http.el (url-http-async-sentinel): If the server hangs up
8 while we're talking to it, just `message' the error instead of
9 throwing an error.
10
12011-11-03 Lars Magne Ingebrigtsen <larsi@gnus.org> 112011-11-03 Lars Magne Ingebrigtsen <larsi@gnus.org>
2 12
3 * url-cookie.el (url-cookie-expired-p): Protect against 13 * url-cookie.el (url-cookie-expired-p): Protect against
diff --git a/lisp/url/url-dav.el b/lisp/url/url-dav.el
index 3d1f6afcb0e..9e29de0cbed 100644
--- a/lisp/url/url-dav.el
+++ b/lisp/url/url-dav.el
@@ -117,7 +117,7 @@
117 ;; We need to populate 'time' with 117 ;; We need to populate 'time' with
118 ;; (SEC MIN HOUR DAY MON YEAR DOW DST TZ) 118 ;; (SEC MIN HOUR DAY MON YEAR DOW DST TZ)
119 119
120 ;; Nobody else handles iso8601 correctly, lets do it ourselves. 120 ;; Nobody else handles iso8601 correctly, let's do it ourselves.
121 (when (string-match date-re date-string re-start) 121 (when (string-match date-re date-string re-start)
122 (setq year (string-to-number (match-string 1 date-string)) 122 (setq year (string-to-number (match-string 1 date-string))
123 month (string-to-number (match-string 2 date-string)) 123 month (string-to-number (match-string 2 date-string))
@@ -430,7 +430,7 @@ added to this list, so most requests can just pass in nil."
430 ;; Take care of the default value for depth... 430 ;; Take care of the default value for depth...
431 (setq depth (or depth 0)) 431 (setq depth (or depth 0))
432 432
433 ;; Now lets translate it into something webdav can understand. 433 ;; Now let's translate it into something webdav can understand.
434 (if (< depth 0) 434 (if (< depth 0)
435 (setq depth "Infinity") 435 (setq depth "Infinity")
436 (setq depth (int-to-string depth))) 436 (setq depth (int-to-string depth)))
@@ -762,7 +762,7 @@ files in the collection as well."
762 (setq status (plist-get (cdr result) 'DAV:status)) 762 (setq status (plist-get (cdr result) 'DAV:status))
763 (if (not (url-dav-http-success-p status)) 763 (if (not (url-dav-http-success-p status))
764 (signal 'file-error (list "Removing old name" 764 (signal 'file-error (list "Removing old name"
765 "Errror removing" 765 "Error removing"
766 (car result) status)))) 766 (car result) status))))
767 props)) 767 props))
768 nil) 768 nil)
@@ -909,7 +909,7 @@ Returns nil if URL contains no name starting with FILE."
909 ;; Only one file and FILE matches it exactly... 909 ;; Only one file and FILE matches it exactly...
910 t) 910 t)
911 (t 911 (t
912 ;; Need to figure out the longest string that they have in commmon 912 ;; Need to figure out the longest string that they have in common
913 (setq matches (sort matches (lambda (a b) (> (length a) (length b))))) 913 (setq matches (sort matches (lambda (a b) (> (length a) (length b)))))
914 (let ((n (length file)) 914 (let ((n (length file))
915 (searching t) 915 (searching t)
diff --git a/lisp/url/url-future.el b/lisp/url/url-future.el
index ac85a3cec47..8a2c112715c 100644
--- a/lisp/url/url-future.el
+++ b/lisp/url/url-future.el
@@ -36,7 +36,7 @@
36;; So, to get the value: 36;; So, to get the value:
37;; (when (url-future-completed-p future) (url-future-value future)) 37;; (when (url-future-completed-p future) (url-future-value future))
38 38
39;; See the ERT tests and the code for futher details. 39;; See the ERT tests and the code for further details.
40 40
41;;; Code: 41;;; Code:
42 42
diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index 6e192cd5aae..bb7744be434 100644
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -702,7 +702,7 @@ should be shown to the user."
702 (not-acceptable ; 406 702 (not-acceptable ; 406
703 ;; The resource identified by the request is only capable of 703 ;; The resource identified by the request is only capable of
704 ;; generating response entities which have content 704 ;; generating response entities which have content
705 ;; characteristics nota cceptable according to the accept 705 ;; characteristics not acceptable according to the accept
706 ;; headers sent in the request. 706 ;; headers sent in the request.
707 (setq success t)) 707 (setq success t))
708 (proxy-authentication-required ; 407 708 (proxy-authentication-required ; 407
@@ -1092,7 +1092,7 @@ the end of the document."
1092 (url-http-activate-callback))) 1092 (url-http-activate-callback)))
1093 ((string= "CONNECT" url-http-method) 1093 ((string= "CONNECT" url-http-method)
1094 ;; A CONNECT request is finished, but we cannot stick this 1094 ;; A CONNECT request is finished, but we cannot stick this
1095 ;; back on the free connectin list 1095 ;; back on the free connection list
1096 (url-http-debug "CONNECT request must have headers only.") 1096 (url-http-debug "CONNECT request must have headers only.")
1097 (when (url-http-parse-headers) 1097 (when (url-http-parse-headers)
1098 (url-http-activate-callback))) 1098 (url-http-activate-callback)))
@@ -1255,7 +1255,11 @@ CBARGS as the arguments."
1255 (url-http-end-of-document-sentinel proc why)) 1255 (url-http-end-of-document-sentinel proc why))
1256 ((string= (substring why 0 4) "open") 1256 ((string= (substring why 0 4) "open")
1257 (setq url-http-connection-opened t) 1257 (setq url-http-connection-opened t)
1258 (process-send-string proc (url-http-create-request))) 1258 (condition-case error
1259 (process-send-string proc (url-http-create-request))
1260 (file-error
1261 (setq url-http-connection-opened nil)
1262 (message "HTTP error: %s" error))))
1259 (t 1263 (t
1260 (setf (car url-callback-arguments) 1264 (setf (car url-callback-arguments)
1261 (nconc (list :error (list 'error 'connection-failed why 1265 (nconc (list :error (list 'error 'connection-failed why
diff --git a/lisp/url/url-ldap.el b/lisp/url/url-ldap.el
index bb937a44423..8a7bb76160b 100644
--- a/lisp/url/url-ldap.el
+++ b/lisp/url/url-ldap.el
@@ -173,7 +173,7 @@ URL can be a URL string, or a URL vector of the type returned by
173 (if attributes 173 (if attributes
174 (setq attributes (mapcar 'url-unhex-string (split-string attributes ",")))) 174 (setq attributes (mapcar 'url-unhex-string (split-string attributes ","))))
175 175
176 ;; Parse out the exentions 176 ;; Parse out the extensions.
177 (if extensions 177 (if extensions
178 (setq extensions (mapcar (lambda (ext) 178 (setq extensions (mapcar (lambda (ext)
179 (if (string-match "\\([^=]*\\)=\\(.*\\)" ext) 179 (if (string-match "\\([^=]*\\)=\\(.*\\)" ext)
diff --git a/lisp/url/url-vars.el b/lisp/url/url-vars.el
index 42d33553e14..cfb98c6937e 100644
--- a/lisp/url/url-vars.el
+++ b/lisp/url/url-vars.el
@@ -335,7 +335,7 @@ Currently supported methods:
335`socks': Connect through a socks server; 335`socks': Connect through a socks server;
336`tls': Connect with TLS; 336`tls': Connect with TLS;
337`ssl': Connect with SSL (deprecated, use `tls' instead); 337`ssl': Connect with SSL (deprecated, use `tls' instead);
338`native': Connect directy." 338`native': Connect directly."
339 :type '(radio (const :tag "Telnet to gateway host" :value telnet) 339 :type '(radio (const :tag "Telnet to gateway host" :value telnet)
340 (const :tag "Rlogin to gateway host" :value rlogin) 340 (const :tag "Rlogin to gateway host" :value rlogin)
341 (const :tag "Use SOCKS proxy" :value socks) 341 (const :tag "Use SOCKS proxy" :value socks)
diff --git a/lisp/url/url.el b/lisp/url/url.el
index 7136b6023ce..c95b61c43fb 100644
--- a/lisp/url/url.el
+++ b/lisp/url/url.el
@@ -252,7 +252,7 @@ no further processing). URL is either a string or a parsed URL."
252 ;; interrupt it before it got a chance to handle process input. 252 ;; interrupt it before it got a chance to handle process input.
253 ;; `sleep-for' was tried but it lead to other forms of 253 ;; `sleep-for' was tried but it lead to other forms of
254 ;; hanging. --Stef 254 ;; hanging. --Stef
255 (unless (or (with-local-quit 255 (unless (or (with-local-quit
256 (accept-process-output proc)) 256 (accept-process-output proc))
257 (null proc)) 257 (null proc))
258 ;; accept-process-output returned nil, maybe because the process 258 ;; accept-process-output returned nil, maybe because the process
@@ -290,7 +290,7 @@ no further processing). URL is either a string or a parsed URL."
290 ;; These requires could advantageously be moved to url-mm-callback or 290 ;; These requires could advantageously be moved to url-mm-callback or
291 ;; turned into autoloads, but I suspect that it would introduce some bugs 291 ;; turned into autoloads, but I suspect that it would introduce some bugs
292 ;; because loading those files from a process sentinel or filter may 292 ;; because loading those files from a process sentinel or filter may
293 ;; result in some undesirable carner cases. 293 ;; result in some undesirable corner cases.
294 (require 'mm-decode) 294 (require 'mm-decode)
295 (require 'mm-view) 295 (require 'mm-view)
296 (url-retrieve url 'url-mm-callback nil)) 296 (url-retrieve url 'url-mm-callback nil))
diff --git a/lisp/vc/ediff-init.el b/lisp/vc/ediff-init.el
index eeaa2cfa927..787a8b7c0f1 100644
--- a/lisp/vc/ediff-init.el
+++ b/lisp/vc/ediff-init.el
@@ -81,7 +81,7 @@ that Ediff doesn't know about.")
81;; so that `kill-all-local-variables' (called by major-mode setting 81;; so that `kill-all-local-variables' (called by major-mode setting
82;; commands) won't destroy Ediff control variables. 82;; commands) won't destroy Ediff control variables.
83;; 83;;
84;; Plagiarised from `emerge-defvar-local' for XEmacs. 84;; Plagiarized from `emerge-defvar-local' for XEmacs.
85(defmacro ediff-defvar-local (var value doc) 85(defmacro ediff-defvar-local (var value doc)
86 "Defines VAR as a local variable." 86 "Defines VAR as a local variable."
87 (declare (indent defun)) 87 (declare (indent defun))
diff --git a/lisp/vc/ediff-ptch.el b/lisp/vc/ediff-ptch.el
index d930a1bec69..ef273c610fe 100644
--- a/lisp/vc/ediff-ptch.el
+++ b/lisp/vc/ediff-ptch.el
@@ -635,7 +635,7 @@ optional argument, then use it."
635;; Traditional patch has weird return codes. 635;; Traditional patch has weird return codes.
636;; GNU and Posix return 1 if some hanks failed and 2 in case of trouble. 636;; GNU and Posix return 1 if some hanks failed and 2 in case of trouble.
637;; 0 is a good code in all cases. 637;; 0 is a good code in all cases.
638;; We'll do the concervative thing. 638;; We'll do the conservative thing.
639(defun ediff-patch-return-code-ok (code) 639(defun ediff-patch-return-code-ok (code)
640 (eq code 0)) 640 (eq code 0))
641;;; (if (eq (ediff-test-patch-utility) 'traditional) 641;;; (if (eq (ediff-test-patch-utility) 'traditional)
diff --git a/lisp/vc/ediff-wind.el b/lisp/vc/ediff-wind.el
index 5a7fa0bf950..9bf75fa7f55 100644
--- a/lisp/vc/ediff-wind.el
+++ b/lisp/vc/ediff-wind.el
@@ -1127,7 +1127,7 @@ It assumes that it is called from within the control buffer."
1127 1127
1128;; Revise the mode line to display which difference we have selected 1128;; Revise the mode line to display which difference we have selected
1129;; Also resets modelines of buffers A/B, since they may be clobbered by 1129;; Also resets modelines of buffers A/B, since they may be clobbered by
1130;; anothe invocations of Ediff. 1130;; other invocations of Ediff.
1131(defun ediff-refresh-mode-lines () 1131(defun ediff-refresh-mode-lines ()
1132 (let (buf-A-state-diff buf-B-state-diff buf-C-state-diff buf-C-state-merge) 1132 (let (buf-A-state-diff buf-B-state-diff buf-C-state-diff buf-C-state-merge)
1133 1133
diff --git a/lisp/vc/pcvs-defs.el b/lisp/vc/pcvs-defs.el
index 46b95130ca0..f6340392dc2 100644
--- a/lisp/vc/pcvs-defs.el
+++ b/lisp/vc/pcvs-defs.el
@@ -502,7 +502,7 @@ It is expected to call the function.")
502 (if (or (null cvs-version) 502 (if (or (null cvs-version)
503 (or (>= (cdr cvs-version) 10) (> (car cvs-version) 1))) 503 (or (>= (cdr cvs-version) 10) (> (car cvs-version) 1)))
504 ;; Supposedly some recent versions of CVS output some directory info 504 ;; Supposedly some recent versions of CVS output some directory info
505 ;; as they recurse downthe tree, but it's not good enough in the case 505 ;; as they recurse down the tree, but it's not good enough in the case
506 ;; where we run "cvs status foo bar/foo". 506 ;; where we run "cvs status foo bar/foo".
507 '("status") 507 '("status")
508 t) 508 t)
diff --git a/lisp/vc/pcvs-util.el b/lisp/vc/pcvs-util.el
index 311841d37a0..4915cb9bf7f 100644
--- a/lisp/vc/pcvs-util.el
+++ b/lisp/vc/pcvs-util.el
@@ -307,7 +307,7 @@ If it is \\[universal-argument] \\[universal-argument], behave just
307See `cvs-prefix-set' for further description of the behavior.")) 307See `cvs-prefix-set' for further description of the behavior."))
308 (defvar ,cps 308 (defvar ,cps
309 (let ((defaults ,defaults)) 309 (let ((defaults ,defaults))
310 ;; sanity ensurance 310 ;; sanity insurance
311 (unless (>= (length defaults) cvs-prefix-number) 311 (unless (>= (length defaults) cvs-prefix-number)
312 (setq defaults (append defaults 312 (setq defaults (append defaults
313 (make-list (1- cvs-prefix-number) 313 (make-list (1- cvs-prefix-number)
diff --git a/lisp/vc/pcvs.el b/lisp/vc/pcvs.el
index 5595dc0b03f..256719d4c84 100644
--- a/lisp/vc/pcvs.el
+++ b/lisp/vc/pcvs.el
@@ -620,7 +620,7 @@ If non-nil, NEW means to create a new buffer no matter what."
620 (str (car hf)) 620 (str (car hf))
621 (done "") 621 (done "")
622 (tin (ewoc-nth cvs-cookies 0))) 622 (tin (ewoc-nth cvs-cookies 0)))
623 ;; look for the first *real* fileinfo (to determine emptyness) 623 ;; look for the first *real* fileinfo (to determine emptiness)
624 (while 624 (while
625 (and tin 625 (and tin
626 (memq (cvs-fileinfo->type (ewoc-data tin)) 626 (memq (cvs-fileinfo->type (ewoc-data tin))
diff --git a/lisp/vc/vc-hooks.el b/lisp/vc/vc-hooks.el
index 35fa11c2e5e..148f6cde930 100644
--- a/lisp/vc/vc-hooks.el
+++ b/lisp/vc/vc-hooks.el
@@ -72,7 +72,7 @@ An empty list disables VC altogether."
72 :group 'vc) 72 :group 'vc)
73 73
74;; Note: we don't actually have a darcs back end yet. 74;; Note: we don't actually have a darcs back end yet.
75;; Also, Meta-CVS (corresponsding to MCVS) is unsupported. 75;; Also, Meta-CVS (corresponding to MCVS) is unsupported.
76(defcustom vc-directory-exclusion-list (purecopy '("SCCS" "RCS" "CVS" "MCVS" 76(defcustom vc-directory-exclusion-list (purecopy '("SCCS" "RCS" "CVS" "MCVS"
77 ".svn" ".git" ".hg" ".bzr" 77 ".svn" ".git" ".hg" ".bzr"
78 "_MTN" "_darcs" "{arch}")) 78 "_MTN" "_darcs" "{arch}"))
@@ -456,8 +456,8 @@ For registered files, the value returned is one of:
456 'edited The working file has been edited by the user. If 456 'edited The working file has been edited by the user. If
457 locking is used for the file, this state means that 457 locking is used for the file, this state means that
458 the current version is locked by the calling user. 458 the current version is locked by the calling user.
459 This status should *not* be reported for files 459 This status should *not* be reported for files
460 which have a changed mtime but the same content 460 which have a changed mtime but the same content
461 as the repo copy. 461 as the repo copy.
462 462
463 USER The current version of the working file is locked by 463 USER The current version of the working file is locked by
diff --git a/lisp/vc/vc-rcs.el b/lisp/vc/vc-rcs.el
index 8051009a983..39c583b8a0d 100644
--- a/lisp/vc/vc-rcs.el
+++ b/lisp/vc/vc-rcs.el
@@ -1399,7 +1399,7 @@ The `:insn' key is a keyword to distinguish it as a vc-rcs.el extension."
1399 ;; `incg' or `buffer-substring-no-properties'. (This is 1399 ;; `incg' or `buffer-substring-no-properties'. (This is
1400 ;; for speed; strictly speaking, it is sufficient to use 1400 ;; for speed; strictly speaking, it is sufficient to use
1401 ;; only the former since it behaves identically to the 1401 ;; only the former since it behaves identically to the
1402 ;; latter in the absense of "@@".) 1402 ;; latter in the absence of "@@".)
1403 sub) 1403 sub)
1404 (flet ((incg (beg end) (let ((b beg) (e end) @-holes) 1404 (flet ((incg (beg end) (let ((b beg) (e end) @-holes)
1405 (while (and asc (< (car asc) e)) 1405 (while (and asc (< (car asc) e))
diff --git a/lisp/vc/vc-svn.el b/lisp/vc/vc-svn.el
index 7362258a42d..d014c4da135 100644
--- a/lisp/vc/vc-svn.el
+++ b/lisp/vc/vc-svn.el
@@ -263,8 +263,8 @@ RESULT is a list of conses (FILE . STATE) for directory DIR."
263(defun vc-svn-create-repo () 263(defun vc-svn-create-repo ()
264 "Create a new SVN repository." 264 "Create a new SVN repository."
265 (vc-do-command "*vc*" 0 "svnadmin" '("create" "SVN")) 265 (vc-do-command "*vc*" 0 "svnadmin" '("create" "SVN"))
266 (vc-do-command "*vc*" 0 vc-svn-program '(".") 266 (vc-svn-command "*vc*" 0 "." "checkout"
267 "checkout" (concat "file://" default-directory "SVN"))) 267 (concat "file://" default-directory "SVN")))
268 268
269(defun vc-svn-register (files &optional rev comment) 269(defun vc-svn-register (files &optional rev comment)
270 "Register FILES into the SVN version-control system. 270 "Register FILES into the SVN version-control system.
@@ -334,7 +334,6 @@ This is only possible if SVN is responsible for FILE's directory.")
334 ;; Check out a particular version (or recreate the file). 334 ;; Check out a particular version (or recreate the file).
335 (vc-file-setprop file 'vc-working-revision nil) 335 (vc-file-setprop file 'vc-working-revision nil)
336 (apply 'vc-svn-command nil 0 file 336 (apply 'vc-svn-command nil 0 file
337 "--non-interactive" ; bug#4280
338 "update" 337 "update"
339 (cond 338 (cond
340 ((null rev) "-rBASE") 339 ((null rev) "-rBASE")
@@ -373,7 +372,7 @@ The changes are between FIRST-VERSION and SECOND-VERSION."
373 (message "Merging changes into %s..." file) 372 (message "Merging changes into %s..." file)
374 ;; (vc-file-setprop file 'vc-working-revision nil) 373 ;; (vc-file-setprop file 'vc-working-revision nil)
375 (vc-file-setprop file 'vc-checkout-time 0) 374 (vc-file-setprop file 'vc-checkout-time 0)
376 (vc-svn-command nil 0 file "--non-interactive" "update") ; see bug#7152 375 (vc-svn-command nil 0 file "update")
377 ;; Analyze the merge result reported by SVN, and set 376 ;; Analyze the merge result reported by SVN, and set
378 ;; file properties accordingly. 377 ;; file properties accordingly.
379 (with-current-buffer (get-buffer "*vc*") 378 (with-current-buffer (get-buffer "*vc*")
@@ -425,7 +424,7 @@ This is only supported if the repository access method is either file://
425or svn+ssh://." 424or svn+ssh://."
426 (let (tempfile host remotefile directory fileurl-p) 425 (let (tempfile host remotefile directory fileurl-p)
427 (with-temp-buffer 426 (with-temp-buffer
428 (vc-do-command (current-buffer) 0 vc-svn-program nil "info") 427 (vc-svn-command (current-buffer) 0 nil "info")
429 (goto-char (point-min)) 428 (goto-char (point-min))
430 (unless (re-search-forward "Repository Root: \\(file://\\(/.*\\)\\)\\|\\(svn\\+ssh://\\([^/]+\\)\\(/.*\\)\\)" nil t) 429 (unless (re-search-forward "Repository Root: \\(file://\\(/.*\\)\\)\\|\\(svn\\+ssh://\\([^/]+\\)\\(/.*\\)\\)" nil t)
431 (error "Repository information is unavailable")) 430 (error "Repository information is unavailable"))
@@ -581,12 +580,19 @@ NAME is assumed to be a URL."
581(defun vc-svn-command (buffer okstatus file-or-list &rest flags) 580(defun vc-svn-command (buffer okstatus file-or-list &rest flags)
582 "A wrapper around `vc-do-command' for use in vc-svn.el. 581 "A wrapper around `vc-do-command' for use in vc-svn.el.
583The difference to vc-do-command is that this function always invokes `svn', 582The difference to vc-do-command is that this function always invokes `svn',
584and that it passes `vc-svn-global-switches' to it before FLAGS." 583and that it passes \"--non-interactive\" and `vc-svn-global-switches' to
585 (apply 'vc-do-command (or buffer "*vc*") okstatus vc-svn-program file-or-list 584it before FLAGS."
586 (if (stringp vc-svn-global-switches) 585 ;; Might be nice if svn defaulted to non-interactive if stdin not tty.
586 ;; http://svn.haxx.se/dev/archive-2008-05/0762.shtml
587 ;; http://svn.haxx.se/dev/archive-2009-04/0094.shtml
588 ;; Maybe newer ones do?
589 (or (member "--non-interactive"
590 (setq flags (if (stringp vc-svn-global-switches)
587 (cons vc-svn-global-switches flags) 591 (cons vc-svn-global-switches flags)
588 (append vc-svn-global-switches 592 (append vc-svn-global-switches flags))))
589 flags)))) 593 (setq flags (cons "--non-interactive" flags)))
594 (apply 'vc-do-command (or buffer "*vc*") okstatus vc-svn-program file-or-list
595 flags))
590 596
591(defun vc-svn-repository-hostname (dirname) 597(defun vc-svn-repository-hostname (dirname)
592 (with-temp-buffer 598 (with-temp-buffer
@@ -700,7 +706,7 @@ information about FILENAME and return its status."
700 (vc-svn-command buf 'async file "annotate" (if rev (concat "-r" rev)))) 706 (vc-svn-command buf 'async file "annotate" (if rev (concat "-r" rev))))
701 707
702(defun vc-svn-annotate-time-of-rev (rev) 708(defun vc-svn-annotate-time-of-rev (rev)
703 ;; Arbitrarily assume 10 commmits per day. 709 ;; Arbitrarily assume 10 commits per day.
704 (/ (string-to-number rev) 10.0)) 710 (/ (string-to-number rev) 10.0))
705 711
706(defvar vc-annotate-parent-rev) 712(defvar vc-annotate-parent-rev)
diff --git a/lisp/view.el b/lisp/view.el
index ef865007332..6955fbdfad8 100644
--- a/lisp/view.el
+++ b/lisp/view.el
@@ -925,7 +925,7 @@ for highlighting the match that is found."
925 925
926(defun view-search (times regexp) 926(defun view-search (times regexp)
927 ;; This function does the job for all the View-search- commands. 927 ;; This function does the job for all the View-search- commands.
928 ;; Search for the TIMESt match for REGEXP. If TIMES is negative 928 ;; Search for the TIMESth match for REGEXP. If TIMES is negative
929 ;; search backwards. If REGEXP is nil use `view-last-regexp'. 929 ;; search backwards. If REGEXP is nil use `view-last-regexp'.
930 ;; Characters "!" and "@" have a special meaning at the beginning of 930 ;; Characters "!" and "@" have a special meaning at the beginning of
931 ;; REGEXP and are removed from REGEXP before the search "!" means 931 ;; REGEXP and are removed from REGEXP before the search "!" means
diff --git a/lisp/whitespace.el b/lisp/whitespace.el
index f50386b1827..53a35b4f0b3 100644
--- a/lisp/whitespace.el
+++ b/lisp/whitespace.el
@@ -525,7 +525,7 @@ evaluated instead of indentation::space value.
525 525
526One reason for not visualize spaces via faces (if `face' is not 526One reason for not visualize spaces via faces (if `face' is not
527included in `whitespace-style') is to use exclusively for 527included in `whitespace-style') is to use exclusively for
528cleanning up a buffer. See `whitespace-cleanup' and 528cleaning up a buffer. See `whitespace-cleanup' and
529`whitespace-cleanup-region' for documentation. 529`whitespace-cleanup-region' for documentation.
530 530
531See also `whitespace-display-mappings' for documentation." 531See also `whitespace-display-mappings' for documentation."
@@ -2573,7 +2573,7 @@ Also refontify when necessary."
2573 (setq whitespace-display-table-was-local t 2573 (setq whitespace-display-table-was-local t
2574 whitespace-display-table 2574 whitespace-display-table
2575 (copy-sequence buffer-display-table)) 2575 (copy-sequence buffer-display-table))
2576 ;; asure `buffer-display-table' is unique 2576 ;; Assure `buffer-display-table' is unique
2577 ;; when two or more windows are visible. 2577 ;; when two or more windows are visible.
2578 (setq buffer-display-table 2578 (setq buffer-display-table
2579 (copy-sequence buffer-display-table))) 2579 (copy-sequence buffer-display-table)))
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index b0d00242f2a..8c4df9fc9cf 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -2363,7 +2363,7 @@ Return an alist of (TYPE MATCH)."
2363 result)) 2363 result))
2364 2364
2365(defun widget-checklist-validate (widget) 2365(defun widget-checklist-validate (widget)
2366 ;; Ticked chilren must be valid. 2366 ;; Ticked children must be valid.
2367 (let ((children (widget-get widget :children)) 2367 (let ((children (widget-get widget :children))
2368 child button found) 2368 child button found)
2369 (while (and children (not found)) 2369 (while (and children (not found))
diff --git a/lisp/windmove.el b/lisp/windmove.el
index 2aef37dd4c8..1deaa44c7dd 100644
--- a/lisp/windmove.el
+++ b/lisp/windmove.el
@@ -245,7 +245,7 @@ placement bugs in old versions of Emacs."
245;; Actually, the whole subject of the minibuffer edge of the frame is 245;; Actually, the whole subject of the minibuffer edge of the frame is
246;; rather messy. It turns out that with a sufficiently large delta, 246;; rather messy. It turns out that with a sufficiently large delta,
247;; we can fly off the bottom edge of the frame and miss the minibuffer 247;; we can fly off the bottom edge of the frame and miss the minibuffer
248;; altogther. This, I think, is never right: if there's a minibuffer 248;; altogether. This, I think, is never right: if there's a minibuffer
249;; and you're not in it, and you move down, the minibuffer should be 249;; and you're not in it, and you move down, the minibuffer should be
250;; in your way. 250;; in your way.
251;; 251;;
diff --git a/lisp/window.el b/lisp/window.el
index ecd4a62b093..10c6adc04e4 100644
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -292,28 +292,6 @@ is unpredictable."
292 (setq window (window-normalize-window window)) 292 (setq window (window-normalize-window window))
293 (walk-window-tree-1 proc window any t)) 293 (walk-window-tree-1 proc window any t))
294 294
295(defun windows-with-parameter (parameter &optional value frame any values)
296 "Return a list of all windows on FRAME with PARAMETER non-nil.
297FRAME defaults to the selected frame. Optional argument VALUE
298non-nil means only return windows whose window-parameter value of
299PARAMETER equals VALUE \(comparison is done using `equal').
300Optional argument ANY non-nil means consider internal windows
301too. Optional argument VALUES non-nil means return a list of cons
302cells whose car is the value of the parameter and whose cdr is
303the window."
304 (let (this-value windows)
305 (walk-window-tree
306 (lambda (window)
307 (when (and (setq this-value (window-parameter window parameter))
308 (or (not value) (or (equal value this-value))))
309 (setq windows
310 (if values
311 (cons (cons this-value window) windows)
312 (cons window windows)))))
313 frame any)
314
315 (nreverse windows)))
316
317(defun window-with-parameter (parameter &optional value frame any) 295(defun window-with-parameter (parameter &optional value frame any)
318 "Return first window on FRAME with PARAMETER non-nil. 296 "Return first window on FRAME with PARAMETER non-nil.
319FRAME defaults to the selected frame. Optional argument VALUE 297FRAME defaults to the selected frame. Optional argument VALUE
@@ -353,8 +331,8 @@ WINDOW must be an internal window. Return WINDOW."
353 window t) 331 window t)
354 window)) 332 window))
355 333
356(defun window-atom-check-1 (window) 334(defun window--atom-check-1 (window)
357 "Subroutine of `window-atom-check'." 335 "Subroutine of `window--atom-check'."
358 (when window 336 (when window
359 (if (window-parameter window 'window-atom) 337 (if (window-parameter window 'window-atom)
360 (let ((count 0)) 338 (let ((count 0))
@@ -375,18 +353,18 @@ WINDOW must be an internal window. Return WINDOW."
375 window t))) 353 window t)))
376 ;; Check children. 354 ;; Check children.
377 (unless (window-buffer window) 355 (unless (window-buffer window)
378 (window-atom-check-1 (window-left-child window)) 356 (window--atom-check-1 (window-left-child window))
379 (window-atom-check-1 (window-top-child window)))) 357 (window--atom-check-1 (window-top-child window))))
380 ;; Check right sibling 358 ;; Check right sibling
381 (window-atom-check-1 (window-right window)))) 359 (window--atom-check-1 (window-right window))))
382 360
383(defun window-atom-check (&optional frame) 361(defun window--atom-check (&optional frame)
384 "Check atomicity of all windows on FRAME. 362 "Check atomicity of all windows on FRAME.
385FRAME defaults to the selected frame. If an atomic window is 363FRAME defaults to the selected frame. If an atomic window is
386wrongly configured, reset the atomicity of all its windows on 364wrongly configured, reset the atomicity of all its windows on
387FRAME to nil. An atomic window is wrongly configured if it has 365FRAME to nil. An atomic window is wrongly configured if it has
388no child windows or one of its child windows is not atomic." 366no child windows or one of its child windows is not atomic."
389 (window-atom-check-1 (frame-root-window frame))) 367 (window--atom-check-1 (frame-root-window frame)))
390 368
391;; Side windows. 369;; Side windows.
392(defvar window-sides '(left top right bottom) 370(defvar window-sides '(left top right bottom)
@@ -441,7 +419,7 @@ number of slots on that side."
441 (integer :tag "Number" :value 3 :size 5))) 419 (integer :tag "Number" :value 3 :size 5)))
442 :group 'windows) 420 :group 'windows)
443 421
444(defun window-side-check (&optional frame) 422(defun window--side-check (&optional frame)
445 "Check the window-side parameter of all windows on FRAME. 423 "Check the window-side parameter of all windows on FRAME.
446FRAME defaults to the selected frame. If the configuration is 424FRAME defaults to the selected frame. If the configuration is
447invalid, reset all window-side parameters to nil. 425invalid, reset all window-side parameters to nil.
@@ -512,11 +490,11 @@ A valid configuration has to preserve the following invariant:
512 (set-window-parameter window 'window-side nil)) 490 (set-window-parameter window 'window-side nil))
513 frame t)))) 491 frame t))))
514 492
515(defun window-check (&optional frame) 493(defun window--check (&optional frame)
516 "Check atomic and side windows on FRAME. 494 "Check atomic and side windows on FRAME.
517FRAME defaults to the selected frame." 495FRAME defaults to the selected frame."
518 (window-side-check frame) 496 (window--side-check frame)
519 (window-atom-check frame)) 497 (window--atom-check frame))
520 498
521;;; Window sizes. 499;;; Window sizes.
522(defvar window-size-fixed nil 500(defvar window-size-fixed nil
@@ -530,7 +508,7 @@ unless it has no other choice \(like when deleting a neighboring
530window).") 508window).")
531(make-variable-buffer-local 'window-size-fixed) 509(make-variable-buffer-local 'window-size-fixed)
532 510
533(defun window-size-ignore (window ignore) 511(defun window--size-ignore (window ignore)
534 "Return non-nil if IGNORE says to ignore size restrictions for WINDOW." 512 "Return non-nil if IGNORE says to ignore size restrictions for WINDOW."
535 (if (window-valid-p ignore) (eq window ignore) ignore)) 513 (if (window-valid-p ignore) (eq window ignore) ignore))
536 514
@@ -571,7 +549,7 @@ restrictions for that window only."
571 value) 549 value)
572 (with-current-buffer (window-buffer window) 550 (with-current-buffer (window-buffer window)
573 (cond 551 (cond
574 ((and (not (window-size-ignore window ignore)) 552 ((and (not (window--size-ignore window ignore))
575 (window-size-fixed-p window horizontal)) 553 (window-size-fixed-p window horizontal))
576 ;; The minimum size of a fixed size window is its size. 554 ;; The minimum size of a fixed size window is its size.
577 (window-total-size window horizontal)) 555 (window-total-size window horizontal))
@@ -600,7 +578,7 @@ restrictions for that window only."
600 (ceiling (or (frame-parameter frame 'scroll-bar-width) 14) 578 (ceiling (or (frame-parameter frame 'scroll-bar-width) 14)
601 (frame-char-width))) 579 (frame-char-width)))
602 (t 0))) 580 (t 0)))
603 (if (and (not (window-size-ignore window ignore)) 581 (if (and (not (window--size-ignore window ignore))
604 (numberp window-min-width)) 582 (numberp window-min-width))
605 window-min-width 583 window-min-width
606 0)))) 584 0))))
@@ -610,7 +588,7 @@ restrictions for that window only."
610 (max (+ window-safe-min-height 588 (max (+ window-safe-min-height
611 (if header-line-format 1 0) 589 (if header-line-format 1 0)
612 (if mode-line-format 1 0)) 590 (if mode-line-format 1 0))
613 (if (and (not (window-size-ignore window ignore)) 591 (if (and (not (window--size-ignore window ignore))
614 (numberp window-min-height)) 592 (numberp window-min-height))
615 window-min-height 593 window-min-height
616 0)))))))) 594 0))))))))
@@ -647,7 +625,7 @@ restrictions for that window only."
647 (max (- (window-min-size window horizontal ignore) 625 (max (- (window-min-size window horizontal ignore)
648 (window-total-size window horizontal)) 626 (window-total-size window horizontal))
649 delta)) 627 delta))
650 ((window-size-ignore window ignore) 628 ((window--size-ignore window ignore)
651 delta) 629 delta)
652 ((> delta 0) 630 ((> delta 0)
653 (if (window-size-fixed-p window horizontal) 631 (if (window-size-fixed-p window horizontal)
@@ -664,7 +642,7 @@ doc-string of `window-sizable'."
664 (>= (window-sizable window delta horizontal ignore) delta) 642 (>= (window-sizable window delta horizontal ignore) delta)
665 (<= (window-sizable window delta horizontal ignore) delta))) 643 (<= (window-sizable window delta horizontal ignore) delta)))
666 644
667(defun window-size-fixed-1 (window horizontal) 645(defun window--size-fixed-1 (window horizontal)
668 "Internal function for `window-size-fixed-p'." 646 "Internal function for `window-size-fixed-p'."
669 (let ((sub (window-child window))) 647 (let ((sub (window-child window)))
670 (catch 'fixed 648 (catch 'fixed
@@ -675,7 +653,7 @@ doc-string of `window-sizable'."
675 ;; windows are fixed-size. 653 ;; windows are fixed-size.
676 (progn 654 (progn
677 (while sub 655 (while sub
678 (unless (window-size-fixed-1 sub horizontal) 656 (unless (window--size-fixed-1 sub horizontal)
679 ;; We found a non-fixed-size child window, so 657 ;; We found a non-fixed-size child window, so
680 ;; WINDOW's size is not fixed. 658 ;; WINDOW's size is not fixed.
681 (throw 'fixed nil)) 659 (throw 'fixed nil))
@@ -686,7 +664,7 @@ doc-string of `window-sizable'."
686 ;; An ortho-combination is fixed-size if at least one of its 664 ;; An ortho-combination is fixed-size if at least one of its
687 ;; child windows is fixed-size. 665 ;; child windows is fixed-size.
688 (while sub 666 (while sub
689 (when (window-size-fixed-1 sub horizontal) 667 (when (window--size-fixed-1 sub horizontal)
690 ;; We found a fixed-size child window, so WINDOW's size 668 ;; We found a fixed-size child window, so WINDOW's size
691 ;; is fixed. 669 ;; is fixed.
692 (throw 'fixed t)) 670 (throw 'fixed t))
@@ -706,7 +684,7 @@ non-nil if WINDOW's width is fixed.
706If this function returns nil, this does not necessarily mean that 684If this function returns nil, this does not necessarily mean that
707WINDOW can be resized in the desired direction. The function 685WINDOW can be resized in the desired direction. The function
708`window-resizable' can tell that." 686`window-resizable' can tell that."
709 (window-size-fixed-1 687 (window--size-fixed-1
710 (window-normalize-window window) horizontal)) 688 (window-normalize-window window) horizontal))
711 689
712(defun window-min-delta-1 (window delta &optional horizontal ignore trail noup) 690(defun window-min-delta-1 (window delta &optional horizontal ignore trail noup)
@@ -728,7 +706,7 @@ WINDOW can be resized in the desired direction. The function
728 ((eq sub window) 706 ((eq sub window)
729 (setq skip (eq trail 'before))) 707 (setq skip (eq trail 'before)))
730 (skip) 708 (skip)
731 ((and (not (window-size-ignore window ignore)) 709 ((and (not (window--size-ignore window ignore))
732 (window-size-fixed-p sub horizontal))) 710 (window-size-fixed-p sub horizontal)))
733 (t 711 (t
734 ;; We found a non-fixed-size child window. 712 ;; We found a non-fixed-size child window.
@@ -817,7 +795,7 @@ at least one other window can be enlarged appropriately."
817 ;; child window is fixed-size. 795 ;; child window is fixed-size.
818 (while sub 796 (while sub
819 (when (and (not (eq sub window)) 797 (when (and (not (eq sub window))
820 (not (window-size-ignore sub ignore)) 798 (not (window--size-ignore sub ignore))
821 (window-size-fixed-p sub horizontal)) 799 (window-size-fixed-p sub horizontal))
822 (throw 'fixed delta)) 800 (throw 'fixed delta))
823 (setq sub (window-right sub)))) 801 (setq sub (window-right sub))))
@@ -856,7 +834,7 @@ Optional argument NODOWN non-nil means do not check whether
856WINDOW itself \(and its child windows) can be enlarged; check 834WINDOW itself \(and its child windows) can be enlarged; check
857only whether other windows can be shrunk appropriately." 835only whether other windows can be shrunk appropriately."
858 (setq window (window-normalize-window window)) 836 (setq window (window-normalize-window window))
859 (if (and (not (window-size-ignore window ignore)) 837 (if (and (not (window--size-ignore window ignore))
860 (not nodown) (window-size-fixed-p window horizontal)) 838 (not nodown) (window-size-fixed-p window horizontal))
861 ;; With IGNORE and NOWDON nil return zero if WINDOW has fixed 839 ;; With IGNORE and NOWDON nil return zero if WINDOW has fixed
862 ;; size. 840 ;; size.
@@ -1106,7 +1084,7 @@ The default value nil is handled like `bottom'."
1106 (= (nth edge (window-edges window)) 1084 (= (nth edge (window-edges window))
1107 (nth edge (window-edges (frame-root-window window)))))) 1085 (nth edge (window-edges (frame-root-window window))))))
1108 1086
1109(defun windows-at-side (&optional frame side) 1087(defun window-at-side-list (&optional frame side)
1110 "Return list of all windows on SIDE of FRAME. 1088 "Return list of all windows on SIDE of FRAME.
1111FRAME must be a live frame and defaults to the selected frame. 1089FRAME must be a live frame and defaults to the selected frame.
1112SIDE can be any of the symbols `left', `top', `right' or 1090SIDE can be any of the symbols `left', `top', `right' or
@@ -1120,7 +1098,7 @@ SIDE can be any of the symbols `left', `top', `right' or
1120 frame) 1098 frame)
1121 (nreverse windows))) 1099 (nreverse windows)))
1122 1100
1123(defun window-in-direction-2 (window posn &optional horizontal) 1101(defun window--in-direction-2 (window posn &optional horizontal)
1124 "Support function for `window-in-direction'." 1102 "Support function for `window-in-direction'."
1125 (if horizontal 1103 (if horizontal
1126 (let ((top (window-top-line window))) 1104 (let ((top (window-top-line window)))
@@ -1190,7 +1168,7 @@ IGNORE, when non-nil means a window can be returned even if its
1190 ;; W is to the left or right of WINDOW but does not 1168 ;; W is to the left or right of WINDOW but does not
1191 ;; cover POSN. 1169 ;; cover POSN.
1192 (setq best-diff-2-new 1170 (setq best-diff-2-new
1193 (window-in-direction-2 w posn hor)) 1171 (window--in-direction-2 w posn hor))
1194 (or (< best-diff-2-new best-diff-2) 1172 (or (< best-diff-2-new best-diff-2)
1195 (and (= best-diff-2-new best-diff-2) 1173 (and (= best-diff-2-new best-diff-2)
1196 (if (eq direction 'left) 1174 (if (eq direction 'left)
@@ -1215,7 +1193,7 @@ IGNORE, when non-nil means a window can be returned even if its
1215 (and (eq direction 'below) (<= last w-top))) 1193 (and (eq direction 'below) (<= last w-top)))
1216 ;; W is above or below WINDOW but does not cover POSN. 1194 ;; W is above or below WINDOW but does not cover POSN.
1217 (setq best-diff-2-new 1195 (setq best-diff-2-new
1218 (window-in-direction-2 w posn hor)) 1196 (window--in-direction-2 w posn hor))
1219 (or (< best-diff-2-new best-diff-2) 1197 (or (< best-diff-2-new best-diff-2)
1220 (and (= best-diff-2-new best-diff-2) 1198 (and (= best-diff-2-new best-diff-2)
1221 (if (eq direction 'above) 1199 (if (eq direction 'above)
@@ -1504,12 +1482,12 @@ instead."
1504 ((window--resizable-p window delta horizontal ignore) 1482 ((window--resizable-p window delta horizontal ignore)
1505 (window--resize-reset frame horizontal) 1483 (window--resize-reset frame horizontal)
1506 (window--resize-this-window window delta horizontal ignore t) 1484 (window--resize-this-window window delta horizontal ignore t)
1507 (if (and (not (window-splits window)) 1485 (if (and (not window-combination-resize)
1508 (window-combined-p window horizontal) 1486 (window-combined-p window horizontal)
1509 (setq sibling (or (window-right window) (window-left window))) 1487 (setq sibling (or (window-right window) (window-left window)))
1510 (window-sizable-p sibling (- delta) horizontal ignore)) 1488 (window-sizable-p sibling (- delta) horizontal ignore))
1511 ;; If window-splits returns nil for WINDOW, WINDOW is part of 1489 ;; If window-combination-resize is nil, WINDOW is part of an
1512 ;; an iso-combination, and WINDOW's neighboring right or left 1490 ;; iso-combination, and WINDOW's neighboring right or left
1513 ;; sibling can be resized as requested, resize that sibling. 1491 ;; sibling can be resized as requested, resize that sibling.
1514 (let ((normal-delta 1492 (let ((normal-delta
1515 (/ (float delta) 1493 (/ (float delta)
@@ -1844,7 +1822,7 @@ preferably only resize windows adjacent to EDGE."
1844 ;; Make sure this sibling is left alone when 1822 ;; Make sure this sibling is left alone when
1845 ;; resizing its siblings. 1823 ;; resizing its siblings.
1846 (set-window-new-normal sub 'ignore)) 1824 (set-window-new-normal sub 'ignore))
1847 ((or (window-size-ignore sub ignore) 1825 ((or (window--size-ignore sub ignore)
1848 (not (window-size-fixed-p sub horizontal))) 1826 (not (window-size-fixed-p sub horizontal)))
1849 ;; Set this-delta to t to signal that we found a sibling 1827 ;; Set this-delta to t to signal that we found a sibling
1850 ;; of WINDOW whose size is not fixed. 1828 ;; of WINDOW whose size is not fixed.
@@ -2176,9 +2154,9 @@ WINDOW can be any window and defaults to the selected window."
2176 "Return non-nil if WINDOW is the root window of its frame." 2154 "Return non-nil if WINDOW is the root window of its frame."
2177 (eq window (frame-root-window window))) 2155 (eq window (frame-root-window window)))
2178 2156
2179(defun window-tree-1 (window &optional next) 2157(defun window--subtree (window &optional next)
2180 "Return window tree rooted at WINDOW. 2158 "Return window subtree rooted at WINDOW.
2181Optional argument NEXT non-nil means include windows right 2159Optional argument NEXT non-nil means include WINDOW's right
2182siblings in the return value. 2160siblings in the return value.
2183 2161
2184See the documentation of `window-tree' for a description of the 2162See the documentation of `window-tree' for a description of the
@@ -2190,10 +2168,10 @@ return value."
2190 (cond 2168 (cond
2191 ((window-top-child window) 2169 ((window-top-child window)
2192 (cons t (cons (window-edges window) 2170 (cons t (cons (window-edges window)
2193 (window-tree-1 (window-top-child window) t)))) 2171 (window--subtree (window-top-child window) t))))
2194 ((window-left-child window) 2172 ((window-left-child window)
2195 (cons nil (cons (window-edges window) 2173 (cons nil (cons (window-edges window)
2196 (window-tree-1 (window-left-child window) t)))) 2174 (window--subtree (window-left-child window) t))))
2197 (t window)) 2175 (t window))
2198 list)) 2176 list))
2199 (setq window (when next (window-next-sibling window)))) 2177 (setq window (when next (window-next-sibling window))))
@@ -2215,7 +2193,7 @@ Each of the child windows may again be a window or a list
2215representing a window split, and so on. EDGES is a list \(LEFT 2193representing a window split, and so on. EDGES is a list \(LEFT
2216TOP RIGHT BOTTOM) as returned by `window-edges'." 2194TOP RIGHT BOTTOM) as returned by `window-edges'."
2217 (setq frame (window-normalize-frame frame)) 2195 (setq frame (window-normalize-frame frame))
2218 (window-tree-1 (frame-root-window frame) t)) 2196 (window--subtree (frame-root-window frame) t))
2219 2197
2220(defun other-window (count &optional all-frames) 2198(defun other-window (count &optional all-frames)
2221 "Select another window in cyclic ordering of windows. 2199 "Select another window in cyclic ordering of windows.
@@ -2379,7 +2357,7 @@ non-side window, signal an error."
2379 (function (window-parameter window 'delete-window)) 2357 (function (window-parameter window 'delete-window))
2380 (parent (window-parent window)) 2358 (parent (window-parent window))
2381 atom-root) 2359 atom-root)
2382 (window-check frame) 2360 (window--check frame)
2383 (catch 'done 2361 (catch 'done
2384 ;; Handle window parameters. 2362 ;; Handle window parameters.
2385 (cond 2363 (cond
@@ -2411,7 +2389,7 @@ non-side window, signal an error."
2411 (sibling (or (window-left window) (window-right window)))) 2389 (sibling (or (window-left window) (window-right window))))
2412 (window--resize-reset frame horizontal) 2390 (window--resize-reset frame horizontal)
2413 (cond 2391 (cond
2414 ((and (not (window-splits window)) 2392 ((and (not window-combination-resize)
2415 sibling (window-sizable-p sibling size)) 2393 sibling (window-sizable-p sibling size))
2416 ;; Resize WINDOW's sibling. 2394 ;; Resize WINDOW's sibling.
2417 (window--resize-this-window sibling size horizontal nil t) 2395 (window--resize-this-window sibling size horizontal nil t)
@@ -2433,7 +2411,7 @@ non-side window, signal an error."
2433 ;; not be selected, fix this here. 2411 ;; not be selected, fix this here.
2434 (other-window -1 frame)) 2412 (other-window -1 frame))
2435 (run-window-configuration-change-hook frame) 2413 (run-window-configuration-change-hook frame)
2436 (window-check frame) 2414 (window--check frame)
2437 ;; Always return nil. 2415 ;; Always return nil.
2438 nil)))) 2416 nil))))
2439 2417
@@ -2460,7 +2438,7 @@ window signal an error."
2460 (function (window-parameter window 'delete-other-windows)) 2438 (function (window-parameter window 'delete-other-windows))
2461 (window-side (window-parameter window 'window-side)) 2439 (window-side (window-parameter window 'window-side))
2462 atom-root side-main) 2440 atom-root side-main)
2463 (window-check frame) 2441 (window--check frame)
2464 (catch 'done 2442 (catch 'done
2465 (cond 2443 (cond
2466 ;; Ignore window parameters if `ignore-window-parameters' is t or 2444 ;; Ignore window parameters if `ignore-window-parameters' is t or
@@ -2484,7 +2462,7 @@ window signal an error."
2484 (unless (eq window side-main) 2462 (unless (eq window side-main)
2485 (delete-other-windows-internal window side-main) 2463 (delete-other-windows-internal window side-main)
2486 (run-window-configuration-change-hook frame) 2464 (run-window-configuration-change-hook frame)
2487 (window-check frame)) 2465 (window--check frame))
2488 ;; Always return nil. 2466 ;; Always return nil.
2489 nil))) 2467 nil)))
2490 2468
@@ -3106,12 +3084,12 @@ frame. The selected window is not changed by this function."
3106 (parent (window-parent window)) 3084 (parent (window-parent window))
3107 (function (window-parameter window 'split-window)) 3085 (function (window-parameter window 'split-window))
3108 (window-side (window-parameter window 'window-side)) 3086 (window-side (window-parameter window 'window-side))
3109 ;; Rebind `window-nest' since in some cases we may have to 3087 ;; Rebind `window-combination-limit' since in some cases we may
3110 ;; override its value. 3088 ;; have to override its value.
3111 (window-nest window-nest) 3089 (window-combination-limit window-combination-limit)
3112 atom-root) 3090 atom-root)
3113 3091
3114 (window-check frame) 3092 (window--check frame)
3115 (catch 'done 3093 (catch 'done
3116 (cond 3094 (cond
3117 ;; Ignore window parameters if either `ignore-window-parameters' 3095 ;; Ignore window parameters if either `ignore-window-parameters'
@@ -3132,15 +3110,15 @@ frame. The selected window is not changed by this function."
3132 (or (not parent) 3110 (or (not parent)
3133 (not (window-parameter parent 'window-side)))) 3111 (not (window-parameter parent 'window-side))))
3134 ;; WINDOW is a side root window. To make sure that a new parent 3112 ;; WINDOW is a side root window. To make sure that a new parent
3135 ;; window gets created set `window-nest' to t. 3113 ;; window gets created set `window-combination-limit' to t.
3136 (setq window-nest t)) 3114 (setq window-combination-limit t))
3137 3115
3138 (when (and window-splits size (> size 0)) 3116 (when (and window-combination-resize size (> size 0))
3139 ;; If `window-splits' is non-nil and SIZE is a non-negative 3117 ;; If `window-combination-resize' is non-nil and SIZE is a
3140 ;; integer, we cannot reasonably resize other windows. Rather 3118 ;; non-negative integer, we cannot reasonably resize other
3141 ;; bind `window-nest' to t to make sure that subsequent window 3119 ;; windows. Rather bind `window-combination-limit' to t to make
3142 ;; deletions are handled correctly. 3120 ;; sure that subsequent window deletions are handled correctly.
3143 (setq window-nest t)) 3121 (setq window-combination-limit t))
3144 3122
3145 (let* ((parent-size 3123 (let* ((parent-size
3146 ;; `parent-size' is the size of WINDOW's parent, provided 3124 ;; `parent-size' is the size of WINDOW's parent, provided
@@ -3149,7 +3127,7 @@ frame. The selected window is not changed by this function."
3149 ;; `resize' non-nil means we are supposed to resize other 3127 ;; `resize' non-nil means we are supposed to resize other
3150 ;; windows in WINDOW's combination. 3128 ;; windows in WINDOW's combination.
3151 (resize 3129 (resize
3152 (and window-splits (not window-nest) 3130 (and window-combination-resize (not window-combination-limit)
3153 ;; Resize makes sense in iso-combinations only. 3131 ;; Resize makes sense in iso-combinations only.
3154 (window-combined-p window horizontal))) 3132 (window-combined-p window horizontal)))
3155 ;; `old-size' is the current size of WINDOW. 3133 ;; `old-size' is the current size of WINDOW.
@@ -3229,7 +3207,8 @@ frame. The selected window is not changed by this function."
3229 ;; Make new-parent non-nil if we need a new parent window; 3207 ;; Make new-parent non-nil if we need a new parent window;
3230 ;; either because we want to nest or because WINDOW is not 3208 ;; either because we want to nest or because WINDOW is not
3231 ;; iso-combined. 3209 ;; iso-combined.
3232 (or window-nest (not (window-combined-p window horizontal)))) 3210 (or window-combination-limit
3211 (not (window-combined-p window horizontal))))
3233 (setq new-normal 3212 (setq new-normal
3234 ;; Make new-normal the normal size of the new window. 3213 ;; Make new-normal the normal size of the new window.
3235 (cond 3214 (cond
@@ -3265,7 +3244,7 @@ frame. The selected window is not changed by this function."
3265 (set-window-parameter new 'window-side window-side)) 3244 (set-window-parameter new 'window-side window-side))
3266 3245
3267 (run-window-configuration-change-hook frame) 3246 (run-window-configuration-change-hook frame)
3268 (window-check frame) 3247 (window--check frame)
3269 ;; Always return the new window. 3248 ;; Always return the new window.
3270 new))))) 3249 new)))))
3271 3250
@@ -3454,7 +3433,7 @@ is non-nil."
3454 "Balance the sizes of windows of WINDOW-OR-FRAME. 3433 "Balance the sizes of windows of WINDOW-OR-FRAME.
3455WINDOW-OR-FRAME is optional and defaults to the selected frame. 3434WINDOW-OR-FRAME is optional and defaults to the selected frame.
3456If WINDOW-OR-FRAME denotes a frame, balance the sizes of all 3435If WINDOW-OR-FRAME denotes a frame, balance the sizes of all
3457windows of that frame. If WINDOW-OR-FRAME denots a window, 3436windows of that frame. If WINDOW-OR-FRAME denotes a window,
3458recursively balance the sizes of all child windows of that 3437recursively balance the sizes of all child windows of that
3459window." 3438window."
3460 (interactive) 3439 (interactive)
@@ -3607,8 +3586,7 @@ specific buffers."
3607 (total-width . ,(window-total-size window t)) 3586 (total-width . ,(window-total-size window t))
3608 (normal-height . ,(window-normal-size window)) 3587 (normal-height . ,(window-normal-size window))
3609 (normal-width . ,(window-normal-size window t)) 3588 (normal-width . ,(window-normal-size window t))
3610 (splits . ,(window-splits window)) 3589 (combination-limit . ,(window-combination-limit window))
3611 (nest . ,(window-nest window))
3612 ,@(let (list) 3590 ,@(let (list)
3613 (dolist (parameter (window-parameters window)) 3591 (dolist (parameter (window-parameters window))
3614 (unless (memq (car parameter) 3592 (unless (memq (car parameter)
@@ -3733,9 +3711,11 @@ value can be also stored on disk and read back in a new session."
3733 window-safe-min-width))) 3711 window-safe-min-width)))
3734 3712
3735 (if (window-sizable-p window (- size) horizontal 'safe) 3713 (if (window-sizable-p window (- size) horizontal 'safe)
3736 (let* ((window-nest (assq 'nest item))) 3714 (let* ((window-combination-limit
3737 ;; We must inherit the nesting, otherwise we might mess 3715 (assq 'combination-limit item)))
3738 ;; up handling of atomic and side window. 3716 ;; We must inherit the combiantion limit, otherwise
3717 ;; we might mess up handling of atomic and side
3718 ;; window.
3739 (setq new (split-window window size horizontal))) 3719 (setq new (split-window window size horizontal)))
3740 ;; Give up if we can't resize window down to safe sizes. 3720 ;; Give up if we can't resize window down to safe sizes.
3741 (error "Cannot resize window %s" window)) 3721 (error "Cannot resize window %s" window))
@@ -3759,11 +3739,11 @@ value can be also stored on disk and read back in a new session."
3759 (dolist (item window-state-put-list) 3739 (dolist (item window-state-put-list)
3760 (let ((window (car item)) 3740 (let ((window (car item))
3761 (splits (cdr (assq 'splits item))) 3741 (splits (cdr (assq 'splits item)))
3762 (nest (cdr (assq 'nest item))) 3742 (combination-limit (cdr (assq 'combination-limit item)))
3763 (parameters (cdr (assq 'parameters item))) 3743 (parameters (cdr (assq 'parameters item)))
3764 (state (cdr (assq 'buffer item)))) 3744 (state (cdr (assq 'buffer item))))
3765 (when splits (set-window-splits window splits)) 3745 (when combination-limit
3766 (when nest (set-window-nest window nest)) 3746 (set-window-combination-limit window combination-limit))
3767 ;; Process parameters. 3747 ;; Process parameters.
3768 (when parameters 3748 (when parameters
3769 (dolist (parameter parameters) 3749 (dolist (parameter parameters)
@@ -3850,7 +3830,7 @@ windows can get as small as `window-safe-min-height' and
3850 (cdr (assq 'total-width state))))) 3830 (cdr (assq 'total-width state)))))
3851 (min-height (cdr (assq 'min-height head))) 3831 (min-height (cdr (assq 'min-height head)))
3852 (min-width (cdr (assq 'min-width head))) 3832 (min-width (cdr (assq 'min-width head)))
3853 window-splits selected) 3833 selected)
3854 (if (and (not totals) 3834 (if (and (not totals)
3855 (or (> min-height (window-total-size window)) 3835 (or (> min-height (window-total-size window))
3856 (> min-width (window-total-size window t))) 3836 (> min-width (window-total-size window t)))
@@ -3885,7 +3865,7 @@ windows can get as small as `window-safe-min-height' and
3885 (set-window-buffer window (current-buffer)) 3865 (set-window-buffer window (current-buffer))
3886 (window-state-put-1 state window nil totals) 3866 (window-state-put-1 state window nil totals)
3887 (window-state-put-2 ignore)) 3867 (window-state-put-2 ignore))
3888 (window-check frame)))) 3868 (window--check frame))))
3889 3869
3890(defun display-buffer-record-window (type window buffer) 3870(defun display-buffer-record-window (type window buffer)
3891 "Record information for window used by `display-buffer'. 3871 "Record information for window used by `display-buffer'.
@@ -5434,7 +5414,7 @@ by `recenter-positions'."
5434;;; of buffer). 5414;;; of buffer).
5435 5415
5436(defcustom scroll-error-top-bottom nil 5416(defcustom scroll-error-top-bottom nil
5437 "Move point to top/bottom of buffer before signalling a scrolling error. 5417 "Move point to top/bottom of buffer before signaling a scrolling error.
5438A value of nil means just signal an error if no more scrolling possible. 5418A value of nil means just signal an error if no more scrolling possible.
5439A value of t means point moves to the beginning or the end of the buffer 5419A value of t means point moves to the beginning or the end of the buffer
5440\(depending on scrolling direction) when no more scrolling possible. 5420\(depending on scrolling direction) when no more scrolling possible.
diff --git a/lisp/woman.el b/lisp/woman.el
index 078acfc0362..a16bfa39c86 100644
--- a/lisp/woman.el
+++ b/lisp/woman.el
@@ -1439,7 +1439,7 @@ The cdr of each alist element is the path-index / filename."
1439 (push (woman-topic-all-completions-1 dir path-index) 1439 (push (woman-topic-all-completions-1 dir path-index)
1440 files)) 1440 files))
1441 (setq path-index (1+ path-index))) 1441 (setq path-index (1+ path-index)))
1442 ;; Uniquefy topics: 1442 ;; Uniquify topics:
1443 ;; Concatenate all lists with a single nconc call to 1443 ;; Concatenate all lists with a single nconc call to
1444 ;; avoid retraversing the first lists repeatedly -- dak 1444 ;; avoid retraversing the first lists repeatedly -- dak
1445 (woman-topic-all-completions-merge 1445 (woman-topic-all-completions-merge
@@ -2023,7 +2023,7 @@ Optional argument REDRAW, if non-nil, forces mode line to be updated."
2023;; Both advices are disabled because "a file in Emacs should not put 2023;; Both advices are disabled because "a file in Emacs should not put
2024;; advice on a function in Emacs" (see Info node "(elisp)Advising 2024;; advice on a function in Emacs" (see Info node "(elisp)Advising
2025;; Functions"). Counting the formatting time is useful for 2025;; Functions"). Counting the formatting time is useful for
2026;; developping, but less applicable for daily use. The advice for 2026;; developing, but less applicable for daily use. The advice for
2027;; `Man-getpage-in-background' can be discarded, because the 2027;; `Man-getpage-in-background' can be discarded, because the
2028;; key-binding in `woman-mode-map' has been remapped to call `woman' 2028;; key-binding in `woman-mode-map' has been remapped to call `woman'
2029;; but `man'. Michael Albinus <michael.albinus@gmx.de> 2029;; but `man'. Michael Albinus <michael.albinus@gmx.de>
diff --git a/lisp/x-dnd.el b/lisp/x-dnd.el
index 04b759a8116..fbb76da1b91 100644
--- a/lisp/x-dnd.el
+++ b/lisp/x-dnd.el
@@ -410,7 +410,7 @@ otherwise return the frame width/height."
410 "Return the x/y coordinates to be sent in a XDndStatus message. 410 "Return the x/y coordinates to be sent in a XDndStatus message.
411Coordinates are required to be absolute. 411Coordinates are required to be absolute.
412FRAME is the frame and W is the window where the drop happened. 412FRAME is the frame and W is the window where the drop happened.
413If W is a window, return its absolute corrdinates, 413If W is a window, return its absolute coordinates,
414otherwise return the frame coordinates." 414otherwise return the frame coordinates."
415 (let* ((frame-left (frame-parameter frame 'left)) 415 (let* ((frame-left (frame-parameter frame 'left))
416 ;; If the frame is outside the display, frame-left looks like 416 ;; If the frame is outside the display, frame-left looks like
@@ -444,7 +444,7 @@ otherwise return the frame coordinates."
444 (if (consp flags) 444 (if (consp flags)
445 (logand (cdr flags) 1) 445 (logand (cdr flags) 1)
446 (logand flags 1))) 446 (logand flags 1)))
447 447
448(defun x-dnd-handle-xdnd (event frame window message _format data) 448(defun x-dnd-handle-xdnd (event frame window message _format data)
449 "Receive one XDND event (client message) and send the appropriate reply. 449 "Receive one XDND event (client message) and send the appropriate reply.
450EVENT is the client message. FRAME is where the mouse is now. 450EVENT is the client message. FRAME is where the mouse is now.
diff --git a/lisp/xml.el b/lisp/xml.el
index 52bb0de7ea0..68aa5f4db6f 100644
--- a/lisp/xml.el
+++ b/lisp/xml.el
@@ -540,7 +540,7 @@ Leave point at the first non-blank character after the tag."
540 (replace-regexp-in-string "\\s-\\{2,\\}" " " string) 540 (replace-regexp-in-string "\\s-\\{2,\\}" " " string)
541 (let ((expansion (xml-substitute-special string))) 541 (let ((expansion (xml-substitute-special string)))
542 (unless (stringp expansion) 542 (unless (stringp expansion)
543 ; We say this is the constraint. It is acctually that 543 ; We say this is the constraint. It is actually that neither
544 ; external entities nor "<" can be in an attribute value. 544 ; external entities nor "<" can be in an attribute value.
545 (error "XML: (Not Well-Formed) Entities in attributes cannot expand into elements")) 545 (error "XML: (Not Well-Formed) Entities in attributes cannot expand into elements"))
546 (push (cons name expansion) attlist))) 546 (push (cons name expansion) attlist)))
diff --git a/msdos/README b/msdos/README
index 9f75d9c12bf..532d18726c6 100644
--- a/msdos/README
+++ b/msdos/README
@@ -60,7 +60,7 @@ This document is Copyright (C) DJ Delorie and may be distributed
60verbatim, but changing it is not allowed. 60verbatim, but changing it is not allowed.
61 61
62Source code copyright DJ Delorie is distributed under the terms of the 62Source code copyright DJ Delorie is distributed under the terms of the
63GNU General Public Licence, with the following exceptions: 63GNU General Public License, with the following exceptions:
64 64
65* Sources used to build crt0.o, gcrt0.o, libc.a, libdbg.a, and 65* Sources used to build crt0.o, gcrt0.o, libc.a, libdbg.a, and
66 libemu.a are distributed under the terms of the GNU Library General 66 libemu.a are distributed under the terms of the GNU Library General
@@ -68,7 +68,7 @@ GNU General Public Licence, with the following exceptions:
68 68
69* Any existing copyright or authorship information in any given source 69* Any existing copyright or authorship information in any given source
70 file must remain intact. If you modify a source file, a notice to that 70 file must remain intact. If you modify a source file, a notice to that
71 effect must be added to the authorship information in the source file. 71 effect must be added to the authorship information in the source file.
72 72
73* Runtime binaries, as provided by DJ in DJGPP, may be distributed 73* Runtime binaries, as provided by DJ in DJGPP, may be distributed
74 without sources ONLY if the recipient is given sufficient information 74 without sources ONLY if the recipient is given sufficient information
diff --git a/nt/ChangeLog b/nt/ChangeLog
index fc612d64fa8..8de94033196 100644
--- a/nt/ChangeLog
+++ b/nt/ChangeLog
@@ -1,3 +1,11 @@
12011-11-15 Eli Zaretskii <eliz@gnu.org>
2
3 * README.W32: Update the GTK Windows download URL for libpng.
4
52011-11-13 Christoph Scholtes <cschol2112@googlemail.com>
6
7 * inc/stdint.h (UINT64_MAX, UINT32_MAX): Fix values.
8
12011-11-05 Christoph Scholtes <cschol2112@googlemail.com> 92011-11-05 Christoph Scholtes <cschol2112@googlemail.com>
2 10
3 * inc/stdint.h (UINT64_MAX, UINT64_MIN, INT64_MIN, UINTMAX_MAX) 11 * inc/stdint.h (UINT64_MAX, UINT64_MIN, INT64_MIN, UINTMAX_MAX)
@@ -5,7 +13,7 @@
5 (INT32_MIN, UINTMAX_MAX, UINTMAX_MIN, INTMAX_MAX, INTMAX_MIN) 13 (INT32_MIN, UINTMAX_MAX, UINTMAX_MIN, INTMAX_MAX, INTMAX_MIN)
6 (intmax_t, INT64_MAX): Add for MSVC. 14 (intmax_t, INT64_MAX): Add for MSVC.
7 15
8 * config.nt: (mode_t) [!__GNUC__]: Define mode_t for MSVC. 16 * config.nt (mode_t) [!__GNUC__]: Define mode_t for MSVC.
9 17
102011-11-05 Eli Zaretskii <eliz@gnu.org> 182011-11-05 Eli Zaretskii <eliz@gnu.org>
11 19
@@ -20,7 +28,7 @@
20 28
21 * INSTALL: Update for newer versions of MSVC. 29 * INSTALL: Update for newer versions of MSVC.
22 30
232011-11-05 Fabrice Popineau <fabrice.popineau@supelec.fr> (tiny change) 312011-11-05 Fabrice Popineau <fabrice.popineau@supelec.fr> (tiny change)
24 32
25 Support MSVC build with newer versions of Visual Studio. 33 Support MSVC build with newer versions of Visual Studio.
26 * nmake.defs (USE_CRT_DLL): Define to 1. 34 * nmake.defs (USE_CRT_DLL): Define to 1.
diff --git a/nt/README.W32 b/nt/README.W32
index e4044e409d4..52582dc7ccf 100644
--- a/nt/README.W32
+++ b/nt/README.W32
@@ -129,7 +129,7 @@ See the end of the file for license conditions.
129 129
130 Emacs can also support some other image formats with appropriate 130 Emacs can also support some other image formats with appropriate
131 libraries. These libraries are all available as part of GTK 131 libraries. These libraries are all available as part of GTK
132 download for Windows (http://www.gtk.org/download-windows.html), or 132 download for Windows (http://www.gtk.org/download/win32.php), or
133 from the GnuWin32 project. Emacs will find them if the directory 133 from the GnuWin32 project. Emacs will find them if the directory
134 they are installed in is on the PATH. 134 they are installed in is on the PATH.
135 135
@@ -142,7 +142,7 @@ See the end of the file for license conditions.
142 the PNG support will not work, and you will have to download 142 the PNG support will not work, and you will have to download
143 newer versions. 143 newer versions.
144 144
145 JPEG: requires the Independant JPEG Group's libjpeg 6b or later, 145 JPEG: requires the Independent JPEG Group's libjpeg 6b or later,
146 which will be called jpeg62.dll, libjpeg.dll, jpeg-62.dll or jpeg.dll. 146 which will be called jpeg62.dll, libjpeg.dll, jpeg-62.dll or jpeg.dll.
147 147
148 TIFF: requires libTIFF 3.0 or later, which will be called libtiff3.dll 148 TIFF: requires libTIFF 3.0 or later, which will be called libtiff3.dll
diff --git a/nt/gmake.defs b/nt/gmake.defs
index 46d4acf76dd..a1ff7af853e 100644
--- a/nt/gmake.defs
+++ b/nt/gmake.defs
@@ -95,7 +95,7 @@ THISDIR = .
95ifdef USING_SH 95ifdef USING_SH
96sh_output := $(shell echo [Please ignore a syntax error on the next line - it is intentional] 1>&2) 96sh_output := $(shell echo [Please ignore a syntax error on the next line - it is intentional] 1>&2)
97sh_output := $(shell echo foo") 97sh_output := $(shell echo foo")
98# This single quote " is to fix fintification due to previous line 98# This single quote " is to fix fontification due to previous line
99ifeq "$(sh_output)" "" 99ifeq "$(sh_output)" ""
100NEW_CYGWIN = 1 100NEW_CYGWIN = 1
101endif 101endif
@@ -311,4 +311,3 @@ export XMFLAGS
311 311
312$(BLD)/%.o: %.c 312$(BLD)/%.o: %.c
313 $(CC) $(CFLAGS) $(CC_OUT)$@ $< 313 $(CC) $(CFLAGS) $(CC_OUT)$@ $<
314
diff --git a/nt/inc/stdint.h b/nt/inc/stdint.h
index 5242a45df44..fa2e06f3da9 100644
--- a/nt/inc/stdint.h
+++ b/nt/inc/stdint.h
@@ -29,7 +29,7 @@ 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 18446744073709551616 32#define UINT64_MAX 18446744073709551615
33#define UINT64_MIN 0 33#define UINT64_MIN 0
34/* "i64" is the non-standard suffix used by MSVC for 64-bit constants. */ 34/* "i64" is the non-standard suffix used by MSVC for 64-bit constants. */
35#define INT64_MAX 9223372036854775807i64 35#define INT64_MAX 9223372036854775807i64
@@ -42,7 +42,7 @@ typedef __int64 intptr_t;
42#else 42#else
43typedef int intptr_t; 43typedef int intptr_t;
44typedef unsigned int uint32_t; 44typedef unsigned int uint32_t;
45#define UINT32_MAX 4294967296 45#define UINT32_MAX 4294967295
46#define UINT32_MIN 0 46#define UINT32_MIN 0
47#define INT32_MAX 2147483647 47#define INT32_MAX 2147483647
48#define INT32_MIN (~INT32_MAX) 48#define INT32_MIN (~INT32_MAX)
diff --git a/nt/preprep.c b/nt/preprep.c
index 6b764afdeab..7541536714c 100644
--- a/nt/preprep.c
+++ b/nt/preprep.c
@@ -321,7 +321,7 @@ relocate_offset (DWORD offset,
321 variables, because of dumping.] 321 variables, because of dumping.]
322 322
323 We could potentially generate the relocation data ourselves by making 323 We could potentially generate the relocation data ourselves by making
324 two versions of temacs, one with an extra dummmy section before 324 two versions of temacs, one with an extra dummy section before
325 EMHEAP to offset it, and then compare the dumped executables from 325 EMHEAP to offset it, and then compare the dumped executables from
326 both. That is a lot of work though, and it doesn't solve the problem 326 both. That is a lot of work though, and it doesn't solve the problem
327 of dumped pointers to static variables, which also can be relocated. 327 of dumped pointers to static variables, which also can be relocated.
@@ -825,4 +825,3 @@ main (int argc, char **argv)
825} 825}
826 826
827/* eof */ 827/* eof */
828
diff --git a/oldXMenu/ChangeLog b/oldXMenu/ChangeLog
index b40b5ca7084..5d04eea75d4 100644
--- a/oldXMenu/ChangeLog
+++ b/oldXMenu/ChangeLog
@@ -167,7 +167,7 @@
1672007-02-25 Glenn Morris <rgm@gnu.org> 1672007-02-25 Glenn Morris <rgm@gnu.org>
168 168
169 * XCrAssoc.c, XDelAssoc.c, XDestAssoc.c, XLookAssoc.c: 169 * XCrAssoc.c, XDelAssoc.c, XDestAssoc.c, XLookAssoc.c:
170 * XMakeAssoc.c: Remove license text in favour of including 170 * XMakeAssoc.c: Remove license text in favor of including
171 copyright.h, as was done in original X11 source. 171 copyright.h, as was done in original X11 source.
172 172
1732004-12-27 Jan Djärv <jan.h.d@swipnet.se> 1732004-12-27 Jan Djärv <jan.h.d@swipnet.se>
diff --git a/oldXMenu/Internal.c b/oldXMenu/Internal.c
index 102de9d7a56..a779cda82f5 100644
--- a/oldXMenu/Internal.c
+++ b/oldXMenu/Internal.c
@@ -968,7 +968,7 @@ _XMRefreshSelection(register Display *display, register XMenu *menu, register XM
968 /* 968 /*
969 * Using BOX mode. 969 * Using BOX mode.
970 * Since most drawing routines with arbitrary width lines 970 * Since most drawing routines with arbitrary width lines
971 * are slow compared to raster-ops lets use a raster-op to 971 * are slow compared to raster-ops let's use a raster-op to
972 * draw the boxes. 972 * draw the boxes.
973 */ 973 */
974 974
diff --git a/oldXMenu/XMenu.h b/oldXMenu/XMenu.h
index bf1e77b5ff7..aa27211c05c 100644
--- a/oldXMenu/XMenu.h
+++ b/oldXMenu/XMenu.h
@@ -185,7 +185,7 @@ typedef struct _xmenu {
185 Window parent; /* Menu's parent window. */ 185 Window parent; /* Menu's parent window. */
186 int width; /* Overall menu width. */ 186 int width; /* Overall menu width. */
187 int height; /* Overall menu height. */ 187 int height; /* Overall menu height. */
188 int x_pos; /* Oveall menu origin. */ 188 int x_pos; /* Overall menu origin. */
189 int y_pos; /* Overall menu origin. */ 189 int y_pos; /* Overall menu origin. */
190 Cursor mouse_cursor; /* Mouse cursor raster. */ 190 Cursor mouse_cursor; /* Mouse cursor raster. */
191 XAssocTable *assoc_tab; /* XMWindow association table. */ 191 XAssocTable *assoc_tab; /* XMWindow association table. */
diff --git a/src/ChangeLog b/src/ChangeLog
index 04e58e4742f..e1854d7ffcd 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,97 @@
12011-11-17 Juanma Barranquero <lekktu@gmail.com>
2
3 * window.c (syms_of_window) <window-combination-resize>: Fix typo.
4
52011-11-17 Martin Rudalics <rudalics@gmx.at>
6
7 * window.c (Vwindow_splits): Rename to
8 Vwindow_combination_resize. Suggested by Juri Linkov.
9 (Fsplit_window_internal): Use Vwindow_combination_resize instead
10 of Vwindow_splits.
11
122011-11-16 Juanma Barranquero <lekktu@gmail.com>
13
14 * nsfns.m (Fns_font_name):
15 * window.c (syms_of_window) <window-combination-limit>: Fix typos.
16
172011-11-16 Martin Rudalics <rudalics@gmx.at>
18
19 * window.h (window): Rename slot "nest" to "combination_limit".
20 * window.c (Fwindow_nest): Rename to Fwindow_combination_limit.
21 (Fset_window_nest): Rename to Fset_window_combination_limit.
22 (Vwindow_nest): Rename to Vwindow_combination_limit.
23 (recombine_windows, make_parent_window, make_window)
24 (Fsplit_window_internal, saved_window)
25 (Fset_window_configuration, save_window_save): Rename all
26 occurrences of window_nest to window_combination_limit.
27
282011-11-15 Juanma Barranquero <lekktu@gmail.com>
29
30 * image.c (imagemagick_load_image): Fix typo.
31
322011-11-14 Eli Zaretskii <eliz@gnu.org>
33
34 * xdisp.c (display_line): Move the call to
35 highlight_trailing_whitespace before the call to
36 compute_line_metrics, since the latter needs to see the final
37 faces of all the glyphs to compute ROW's hash value. Fixes
38 assertion violations in row_equal_p. (Bug#10035)
39
402011-11-14 Juanma Barranquero <lekktu@gmail.com>
41
42 * w32proc.c (reader_thread): Don't check pending input if cp->fd < 0,
43 just return (bug#10044).
44
452011-11-12 Eli Zaretskii <eliz@gnu.org>
46
47 * makefile.w32-in (HEAPSIZE): New variable, allows to build temacs
48 with user-defined heap size. Bump the default size of the temacs
49 heap to 27MB, to avoid memory warning when running temacs.
50 ($(TEMACS)): Use HEAPSIZE instead of a hardcoded value.
51
52 * dispnew.c (scrolling_window): Fix incorrect indices in accessing
53 current_matrix and desired_matrix. (Bug#9990)
54 (verify_row_hash) [XASSERTS]: New function.
55 (adjust_glyph_matrix, row_equal_p): Use it in xassert to verify
56 that the hash value of glyph rows is correct.
57
582011-11-12 Martin Rudalics <rudalics@gmx.at>
59
60 * window.h (window): Remove splits slot.
61 * window.c (Fwindow_splits, Fset_window_splits): Remove.
62 (Fdelete_other_windows_internal, make_parent_window)
63 (make_window, Fsplit_window_internal, Fdelete_window_internal)
64 (Fset_window_configuration, save_window_save): Don't deal with
65 split status of windows.
66 (saved_window): Remove splits slot.
67 (Vwindow_splits): Rewrite doc-string.
68
692011-11-11 Jan Djärv <jan.h.d@swipnet.se>
70
71 * xfns.c (unwind_create_frame):
72 * nsfns.m (unwind_create_frame):
73 * w32fns.c (unwind_create_frame): Use Fmemq to check if frame is in
74 Vframe_list (Bug#9999).
75
762011-11-11 Dmitry Antipov <dmantipov@yandex.ru>
77
78 * xdisp.c (syms_of_xdisp): Remove duplicated definition of Qtext.
79
802011-11-11 Kenichi Handa <handa@m17n.org>
81
82 * callproc.c (Fcall_process): Set the member dst_multibyte of
83 process_coding.
84
852011-11-11 Johan Bockgård <bojohan@gnu.org>
86
87 * xdisp.c (fill_composite_glyph_string): Always set s->face, to
88 avoid a crash (bug#9496).
89
902011-11-09 Chong Yidong <cyd@gnu.org>
91
92 * window.c (Fwindow_inside_edges, Fwindow_inside_pixel_edges)
93 (Fwindow_inside_absolute_pixel_edges): Only allow live windows.
94
12011-11-08 Paul Eggert <eggert@cs.ucla.edu> 952011-11-08 Paul Eggert <eggert@cs.ucla.edu>
2 96
3 * s/gnu.h (GC_MARK_STACK): Define to GC_MAKE_GCPROS_NOOPS (Bug#9926). 97 * s/gnu.h (GC_MARK_STACK): Define to GC_MAKE_GCPROS_NOOPS (Bug#9926).
@@ -181,7 +275,7 @@
181 275
182 * w32fns.c [_MSC_VER]: DECLARE_HANDLE for any MSVC version. 276 * w32fns.c [_MSC_VER]: DECLARE_HANDLE for any MSVC version.
183 277
1842011-11-05 Fabrice Popineau <fabrice.popineau@supelec.fr> (tiny change) 2782011-11-05 Fabrice Popineau <fabrice.popineau@supelec.fr> (tiny change)
185 279
186 Support MSVC build with newer versions of Visual Studio. 280 Support MSVC build with newer versions of Visual Studio.
187 * w32.c: Don't include w32api.h for MSVC. 281 * w32.c: Don't include w32api.h for MSVC.
@@ -243,7 +337,7 @@
243 * xdisp.c (try_cursor_movement): Make sure ROW isn't decremented 337 * xdisp.c (try_cursor_movement): Make sure ROW isn't decremented
244 past the beginning of the current glyph matrix. 338 past the beginning of the current glyph matrix.
245 339
2462011-10-30 Adam Sjøgren <asjo@koldfront.dk> (tiny change) 3402011-10-30 Adam Sjøgren <asjo@koldfront.dk> (tiny change)
247 341
248 * xterm.c: Include X11/Xproto.h if HAVE_GTK3. 342 * xterm.c: Include X11/Xproto.h if HAVE_GTK3.
249 (x_error_handler): Ignore BadMatch for X_SetInputFocus for 343 (x_error_handler): Ignore BadMatch for X_SetInputFocus for
@@ -2971,7 +3065,7 @@
2971 * nsselect.m (ns_string_from_pasteboard): Don't use deprecated methods 3065 * nsselect.m (ns_string_from_pasteboard): Don't use deprecated methods
2972 cString and lossyCString on OSX >= 10.4 3066 cString and lossyCString on OSX >= 10.4
2973 3067
2974 * nsmenu.m (fillWithWidgetValue): Don't use depercated method 3068 * nsmenu.m (fillWithWidgetValue): Don't use deprecated method
2975 sizeToFit on OSX >= 10.2. 3069 sizeToFit on OSX >= 10.2.
2976 3070
2977 * nsimage.m (allocInitFromFile): Don't use deprecated method 3071 * nsimage.m (allocInitFromFile): Don't use deprecated method
diff --git a/src/ChangeLog.1 b/src/ChangeLog.1
index e32db190cd0..efe77648458 100644
--- a/src/ChangeLog.1
+++ b/src/ChangeLog.1
@@ -405,7 +405,7 @@
405 Copy their own header field a_scovfrl from ohdr. 405 Copy their own header field a_scovfrl from ohdr.
406 406
407 * unexec.c [COFF]: 407 * unexec.c [COFF]:
408 Round positions of text and and data sections in output file 408 Round positions of text and data sections in output file
409 to page boundaries. 409 to page boundaries.
410 410
411 * crt0.c: Install version for Encore machines. 411 * crt0.c: Install version for Encore machines.
@@ -2375,7 +2375,7 @@
2375 Often, just return what it returned. 2375 Often, just return what it returned.
2376 `error' still never returns to its caller. 2376 `error' still never returns to its caller.
2377 2377
2378 * Signalling Qargs_out_of_range: 2378 * Signaling Qargs_out_of_range:
2379 Use new functions args_out_of_range and args_out_of_range_3 2379 Use new functions args_out_of_range and args_out_of_range_3
2380 (in data.c) to do this. 2380 (in data.c) to do this.
2381 2381
@@ -3537,4 +3537,3 @@
3537 3537
3538 You should have received a copy of the GNU General Public License 3538 You should have received a copy of the GNU General Public License
3539 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. 3539 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
3540
diff --git a/src/ChangeLog.10 b/src/ChangeLog.10
index 6152b4c76af..181b11b5a2b 100644
--- a/src/ChangeLog.10
+++ b/src/ChangeLog.10
@@ -5133,7 +5133,7 @@
5133 it can be called in a signal handler. 5133 it can be called in a signal handler.
5134 (x_catch_errors_unwind): Function deleted. 5134 (x_catch_errors_unwind): Function deleted.
5135 (x_uncatch_errors): Deallocate last x_error_message_stack struct. 5135 (x_uncatch_errors): Deallocate last x_error_message_stack struct.
5136 (x_check_errors): Call x_uncatch_errors before signalling error. 5136 (x_check_errors): Call x_uncatch_errors before signaling error.
5137 5137
5138 (x_load_font, x_term_init, XTmouse_position, handle_one_xevent) 5138 (x_load_font, x_term_init, XTmouse_position, handle_one_xevent)
5139 (x_connection_closed, x_list_fonts): Use new versions of 5139 (x_connection_closed, x_list_fonts): Use new versions of
@@ -19139,7 +19139,7 @@
19139 (font_rescale_ratio): New function. 19139 (font_rescale_ratio): New function.
19140 (split_font_name): If NUMERIC_P is nonzero, set font->rescale_ratio. 19140 (split_font_name): If NUMERIC_P is nonzero, set font->rescale_ratio.
19141 (better_font_p): On comparing point sized, pay attention to 19141 (better_font_p): On comparing point sized, pay attention to
19142 recale_ratio member of fonts. 19142 rescale_ratio member of fonts.
19143 (build_scalable_font_name): Reflect font->rescale_ratio in the 19143 (build_scalable_font_name): Reflect font->rescale_ratio in the
19144 font name. 19144 font name.
19145 (syms_of_xfaces): Declare Vface_font_rescale_alist as a Lisp variable. 19145 (syms_of_xfaces): Declare Vface_font_rescale_alist as a Lisp variable.
@@ -20702,11 +20702,11 @@
20702 (free_frame_menubar): Only compile if not USE_GTK. GTK version 20702 (free_frame_menubar): Only compile if not USE_GTK. GTK version
20703 is in gtkutil.c. 20703 is in gtkutil.c.
20704 (popup_selection_callback): New version for USE_GTK. 20704 (popup_selection_callback): New version for USE_GTK.
20705 (create_and_show_popup_menu): New fuction, one USE_GTK version and 20705 (create_and_show_popup_menu): New function, one USE_GTK version and
20706 one USE_X_TOOLKIT version. 20706 one USE_X_TOOLKIT version.
20707 (xmenu_show): Call create_and_show_popup_menu. 20707 (xmenu_show): Call create_and_show_popup_menu.
20708 (dialog_selection_callback): New version for USE_GTK. 20708 (dialog_selection_callback): New version for USE_GTK.
20709 (create_and_show_dialog): New fuction, one USE_GTK version and 20709 (create_and_show_dialog): New function, one USE_GTK version and
20710 one USE_X_TOOLKIT version. 20710 one USE_X_TOOLKIT version.
20711 (xdialog_show): Call create_and_show_dialog. 20711 (xdialog_show): Call create_and_show_dialog.
20712 20712
@@ -22780,7 +22780,7 @@
227802002-07-23 Kenichi Handa <handa@etl.go.jp> 227802002-07-23 Kenichi Handa <handa@etl.go.jp>
22781 22781
22782 * xdisp.c (face_before_or_after_it_pos): 22782 * xdisp.c (face_before_or_after_it_pos):
22783 Call FETCH_MULTIBYTE_CHAR with byte postion, not char position. 22783 Call FETCH_MULTIBYTE_CHAR with byte position, not char position.
22784 22784
227852002-07-22 Juanma Barranquero <lektu@terra.es> 227852002-07-22 Juanma Barranquero <lektu@terra.es>
22786 22786
@@ -27928,4 +27928,3 @@ See ChangeLog.9 for earlier changes.
27928 27928
27929 You should have received a copy of the GNU General Public License 27929 You should have received a copy of the GNU General Public License
27930 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. 27930 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
27931
diff --git a/src/ChangeLog.11 b/src/ChangeLog.11
index 0a9df7d1aee..73ac5fd4e00 100644
--- a/src/ChangeLog.11
+++ b/src/ChangeLog.11
@@ -7949,7 +7949,7 @@
79492010-05-11 Karel KlÃ­Ä <kklic@redhat.com> 79492010-05-11 Karel KlÃ­Ä <kklic@redhat.com>
7950 7950
7951 * ftfont.c: Fix incorrect parentheses of #if condition for 7951 * ftfont.c: Fix incorrect parentheses of #if condition for
7952 definining M17N_FLT_USE_NEW_FEATURE. 7952 defining M17N_FLT_USE_NEW_FEATURE.
7953 7953
79542010-05-11 Glenn Morris <rgm@gnu.org> 79542010-05-11 Glenn Morris <rgm@gnu.org>
7955 7955
@@ -11972,7 +11972,7 @@
11972 11972
11973 * image.c (xbm_read_bitmap_data): New arg inhibit_image_error. 11973 * image.c (xbm_read_bitmap_data): New arg inhibit_image_error.
11974 (xbm_load_image): Caller changed. 11974 (xbm_load_image): Caller changed.
11975 (xbm_file_p): Avoid signalling an image_error (Bug#4107). 11975 (xbm_file_p): Avoid signaling an image_error (Bug#4107).
11976 11976
119772009-08-13 Nick Roberts <nickrob@snap.net.nz> 119772009-08-13 Nick Roberts <nickrob@snap.net.nz>
11978 11978
@@ -16658,7 +16658,7 @@
166582008-08-20 Chong Yidong <cyd@stupidchicken.com> 166582008-08-20 Chong Yidong <cyd@stupidchicken.com>
16659 16659
16660 * xselect.c (x_get_foreign_selection): Return nil if desired 16660 * xselect.c (x_get_foreign_selection): Return nil if desired
16661 selection could not be obtained, instead of signalling an error. 16661 selection could not be obtained, instead of signaling an error.
16662 16662
166632008-08-20 David Reitter <david.reitter@gmail.com> 166632008-08-20 David Reitter <david.reitter@gmail.com>
16664 16664
@@ -23551,7 +23551,7 @@
23551 STORE_XCHARB a valid l-value. 23551 STORE_XCHARB a valid l-value.
23552 23552
23553 * w32term.c (w32_native_per_char_metric): Swap width and rbearing 23553 * w32term.c (w32_native_per_char_metric): Swap width and rbearing
23554 calculations for non-Truetype fonts. 23554 calculations for non-TrueType fonts.
23555 (x_draw_glyph_string): Sync with xterm.c. 23555 (x_draw_glyph_string): Sync with xterm.c.
23556 (x_draw_glyph_string_foreground) [USE_FONT_BACKEND]: 23556 (x_draw_glyph_string_foreground) [USE_FONT_BACKEND]:
23557 Remove redundant code. 23557 Remove redundant code.
@@ -25474,7 +25474,7 @@
25474 25474
25475 * term.c (terminal_encode_buffer): Make externally visible. 25475 * term.c (terminal_encode_buffer): Make externally visible.
25476 25476
25477 * makefile.w32-in: Add character.h dependancies. 25477 * makefile.w32-in: Add character.h dependencies.
25478 (character.o, chartab.o): New targets. 25478 (character.o, chartab.o): New targets.
25479 25479
254802008-02-01 Kenichi Handa <handa@m17n.org> 254802008-02-01 Kenichi Handa <handa@m17n.org>
@@ -26748,7 +26748,7 @@
267482008-02-01 Kenichi Handa <handa@m17n.org> 267482008-02-01 Kenichi Handa <handa@m17n.org>
26749 26749
26750 * xdisp.c (face_before_or_after_it_pos): 26750 * xdisp.c (face_before_or_after_it_pos):
26751 Call FETCH_MULTIBYTE_CHAR with byte postion, not char position. 26751 Call FETCH_MULTIBYTE_CHAR with byte position, not char position.
26752 26752
267532008-02-01 Kenichi Handa <handa@m17n.org> 267532008-02-01 Kenichi Handa <handa@m17n.org>
26754 26754
@@ -29718,7 +29718,7 @@
29718 * keyboard.c (restore_kboard_configuration): Only define when 29718 * keyboard.c (restore_kboard_configuration): Only define when
29719 MULTI_KBOARD defined. 29719 MULTI_KBOARD defined.
29720 29720
29721 * makefile.w32-in: Update dependancies from Makefile.in. 29721 * makefile.w32-in: Update dependencies from Makefile.in.
29722 (OBJ1): Add terminal.$(O) 29722 (OBJ1): Add terminal.$(O)
29723 29723
29724 * term.c (dissociate_if_controlling_tty) [WINDOWSNT]: 29724 * term.c (dissociate_if_controlling_tty) [WINDOWSNT]:
diff --git a/src/ChangeLog.2 b/src/ChangeLog.2
index ca7feaee9f5..05e448c043c 100644
--- a/src/ChangeLog.2
+++ b/src/ChangeLog.2
@@ -1222,7 +1222,7 @@
12221987-07-10 Chris Hanson (cph@prep) 12221987-07-10 Chris Hanson (cph@prep)
1223 1223
1224 * xterm.h: Define macros to abstract control of input signals. 1224 * xterm.h: Define macros to abstract control of input signals.
1225 Alternate set of macros for hp-ux does no signalling. 1225 Alternate set of macros for hp-ux does no signaling.
1226 1226
1227 * xterm.c: 1227 * xterm.c:
1228 * xfns.c: 1228 * xfns.c:
@@ -4787,4 +4787,3 @@ See ChangeLog.1 for earlier changes.
4787 4787
4788 You should have received a copy of the GNU General Public License 4788 You should have received a copy of the GNU General Public License
4789 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. 4789 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
4790
diff --git a/src/ChangeLog.3 b/src/ChangeLog.3
index beb7a0a2ae1..cdfe63fc59c 100644
--- a/src/ChangeLog.3
+++ b/src/ChangeLog.3
@@ -900,9 +900,9 @@
900 invalid overlay. 900 invalid overlay.
901 (syms_of_buffer): defsubr Soverlayp; initialize Qoverlayp. 901 (syms_of_buffer): defsubr Soverlayp; initialize Qoverlayp.
902 (Fdelete_overlay): Set the overlay's markers to point nowhere. 902 (Fdelete_overlay): Set the overlay's markers to point nowhere.
903 Use CHECK_OVERLAY instead of signalling a special error. 903 Use CHECK_OVERLAY instead of signaling a special error.
904 (Fmove_overlay, Foverlay_put): Use CHECK_OVERLAY instead of 904 (Fmove_overlay, Foverlay_put): Use CHECK_OVERLAY instead of
905 signalling a special error. 905 signaling a special error.
906 (Foverlay_get): Use CHECK_OVERLAY. 906 (Foverlay_get): Use CHECK_OVERLAY.
907 * fns.c (internal_equal): Define this for overlays. 907 * fns.c (internal_equal): Define this for overlays.
908 * buffer.h (OVERLAY_VALID): Define in terms of OVERLAYP. 908 * buffer.h (OVERLAY_VALID): Define in terms of OVERLAYP.
@@ -5549,7 +5549,7 @@
5549 h->poll_suppress_count. 5549 h->poll_suppress_count.
5550 5550
5551 * eval.c (Fsignal): It's okay for the debugger to return to the 5551 * eval.c (Fsignal): It's okay for the debugger to return to the
5552 caller if the caller was signalling a quit. 5552 caller if the caller was signaling a quit.
5553 5553
5554 * eval.c (unbind_catch): Restore the polling suppression count 5554 * eval.c (unbind_catch): Restore the polling suppression count
5555 here, instead of in Fsignal and Fthrow. 5555 here, instead of in Fsignal and Fthrow.
@@ -10592,7 +10592,7 @@
10592 (init_x_parm_symbols, x_set_screen_param): Use x_screen_parms 10592 (init_x_parm_symbols, x_set_screen_param): Use x_screen_parms
10593 instead of a large switch statement. 10593 instead of a large switch statement.
10594 (x_figure_window_size): Make the default case of the switch call 10594 (x_figure_window_size): Make the default case of the switch call
10595 abort instead of signalling an error, since window_prompting's 10595 abort instead of signaling an error, since window_prompting's
10596 value is internally generated. 10596 value is internally generated.
10597 10597
105981991-05-01 Jim Blandy (jimb@churchy.gnu.ai.mit.edu) 105981991-05-01 Jim Blandy (jimb@churchy.gnu.ai.mit.edu)
@@ -13393,7 +13393,7 @@
13393 13393
13394 * macros.c (Fstart_kbd_macro): Local cleanup. 13394 * macros.c (Fstart_kbd_macro): Local cleanup.
13395 13395
13396 * minibuf.c (read_minibuf): No more delcaration of 13396 * minibuf.c (read_minibuf): No more declaration of
13397 Frestore_screen_configuration. 13397 Frestore_screen_configuration.
13398 13398
13399 * search.c (Fregexp_quote): Simplified. 13399 * search.c (Fregexp_quote): Simplified.
@@ -14884,7 +14884,7 @@
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
14887 * fileio.c (barf_or_query_if_file_exists): When signalling, 14887 * fileio.c (barf_or_query_if_file_exists): When signaling,
14888 provide the expected args for a file-error. 14888 provide the expected args for a file-error.
14889 14889
148901989-08-06 Richard Stallman (rms@sugar-bombs.ai.mit.edu) 148901989-08-06 Richard Stallman (rms@sugar-bombs.ai.mit.edu)
@@ -15414,7 +15414,7 @@
15414 * xfns.c (Fx_create_screen): If user has specified 15414 * xfns.c (Fx_create_screen): If user has specified
15415 `x-iconic-startup' then start emacs in iconic form. 15415 `x-iconic-startup' then start emacs in iconic form.
15416 Look for icon position in `icon-left' and `icon-top', or use 15416 Look for icon position in `icon-left' and `icon-top', or use
15417 window postion. 15417 window position.
15418 15418
15419 * xterm.c (x_term_init): If server doesn't respond, use fatal 15419 * xterm.c (x_term_init): If server doesn't respond, use fatal
15420 instead of error. Also tell user about -d option. 15420 instead of error. Also tell user about -d option.
diff --git a/src/ChangeLog.4 b/src/ChangeLog.4
index dc8fe23a221..208d9c2cdb0 100644
--- a/src/ChangeLog.4
+++ b/src/ChangeLog.4
@@ -811,7 +811,7 @@
811 811
8121994-04-28 Michael D. Ernst (mernst@monozygote.research.microsoft.com) 8121994-04-28 Michael D. Ernst (mernst@monozygote.research.microsoft.com)
813 813
814 * fileio.c (inhibit-file-name-handers): Correct documentation. 814 * fileio.c (inhibit-file-name-handlers): Correct documentation.
815 815
8161994-04-28 Karl Heuer (kwzh@hal.gnu.ai.mit.edu) 8161994-04-28 Karl Heuer (kwzh@hal.gnu.ai.mit.edu)
817 817
@@ -1885,7 +1885,7 @@
18851994-03-22 Frederic Pierresteguy (fp@mole.gnu.ai.mit.edu) 18851994-03-22 Frederic Pierresteguy (fp@mole.gnu.ai.mit.edu)
1886 1886
1887 * widget.c (set_frame_size): Put #if 0 around a lot of useless code. 1887 * widget.c (set_frame_size): Put #if 0 around a lot of useless code.
1888 Compute explicitely the geometry of the toplevel widget. 1888 Compute explicitly the geometry of the toplevel widget.
1889 Call XtSetValues not XtVaSetValues. 1889 Call XtSetValues not XtVaSetValues.
1890 1890
18911994-03-22 Richard Stallman (rms@mole.gnu.ai.mit.edu) 18911994-03-22 Richard Stallman (rms@mole.gnu.ai.mit.edu)
diff --git a/src/ChangeLog.6 b/src/ChangeLog.6
index f9372aa666a..141a570040c 100644
--- a/src/ChangeLog.6
+++ b/src/ChangeLog.6
@@ -1138,7 +1138,7 @@
1138 ntproc.c and simplified to match other changes (all handles are 1138 ntproc.c and simplified to match other changes (all handles are
1139 already non-inheritable). 1139 already non-inheritable).
1140 1140
1141 (get_emacs_configuration): Detect Windows flavour (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
diff --git a/src/ChangeLog.7 b/src/ChangeLog.7
index d5bebec660f..73d0d45e9c1 100644
--- a/src/ChangeLog.7
+++ b/src/ChangeLog.7
@@ -592,7 +592,7 @@
592 592
593 * coding.h (Qemacs_mule): Extern it. 593 * coding.h (Qemacs_mule): Extern it.
594 594
595 * process.c (init_process): Initilize Vdefault_process_coding_system. 595 * process.c (init_process): Initialize Vdefault_process_coding_system.
596 596
5971998-06-26 Kenichi Handa <handa@etl.go.jp> 5971998-06-26 Kenichi Handa <handa@etl.go.jp>
598 598
@@ -972,7 +972,7 @@
972 972
9731998-06-01 Ken'ichi Handa <handa@melange.gnu.org> 9731998-06-01 Ken'ichi Handa <handa@melange.gnu.org>
974 974
975 * coding.c (detect_coding_mask): Initilize local variable C. 975 * coding.c (detect_coding_mask): Initialize local variable C.
976 976
9771998-06-01 Richard Stallman <rms@gnu.org> 9771998-06-01 Richard Stallman <rms@gnu.org>
978 978
@@ -5943,7 +5943,7 @@
5943 Vauto_file_coding_system. 5943 Vauto_file_coding_system.
5944 (syms_of_fileio): Adjusted for the above change. Doc change. 5944 (syms_of_fileio): Adjusted for the above change. Doc change.
5945 (Finsert_file_contents): The argument for Vset_auto_coding is a 5945 (Finsert_file_contents): The argument for Vset_auto_coding is a
5946 concatination of the heading 1K-byte and the tailing 3K-byte. 5946 concatenation of the heading 1K-byte and the tailing 3K-byte.
5947 5947
5948 * cmds.c (internal_self_insert): Only set TARGET_CLM when C2 is tab. 5948 * cmds.c (internal_self_insert): Only set TARGET_CLM when C2 is tab.
5949 When multibyte characters are disabled, 5949 When multibyte characters are disabled,
@@ -6317,7 +6317,7 @@
6317 (ENCODE_ISO_CHARACTER_DIMENSION2): Likewise. 6317 (ENCODE_ISO_CHARACTER_DIMENSION2): Likewise.
6318 (safe_terminal_coding): New variable. 6318 (safe_terminal_coding): New variable.
6319 (Fset_safe_terminal_coding_system_internal): New function. 6319 (Fset_safe_terminal_coding_system_internal): New function.
6320 (init_coding_once): Initilize safe_terminal_coding. 6320 (init_coding_once): Initialize safe_terminal_coding.
6321 (syms_of_coding): Declare set-safe-terminal-coding-system as a 6321 (syms_of_coding): Declare set-safe-terminal-coding-system as a
6322 Lisp function. 6322 Lisp function.
6323 6323
@@ -7399,7 +7399,7 @@
7399 7399
74001997-06-18 Kenichi Handa <handa@etl.go.jp> 74001997-06-18 Kenichi Handa <handa@etl.go.jp>
7401 7401
7402 * coding.c (detect_coding_iso2022): Initilize mask correctly. 7402 * coding.c (detect_coding_iso2022): Initialize mask correctly.
7403 7403
7404 * fns.c (concat): Pay attention to multibyte characters when 7404 * fns.c (concat): Pay attention to multibyte characters when
7405 TARGET_TYPE is Lisp_String. 7405 TARGET_TYPE is Lisp_String.
@@ -7485,7 +7485,7 @@
7485 7485
74861997-06-09 Kenichi Handa <handa@etl.go.jp> 74861997-06-09 Kenichi Handa <handa@etl.go.jp>
7487 7487
7488 * buffer.c (init_buffer_once): Inititialize the member 7488 * buffer.c (init_buffer_once): Initialize the member
7489 buffer_file_coding_system. 7489 buffer_file_coding_system.
7490 (syms_of_buffer): Declare Lisp variables 7490 (syms_of_buffer): Declare Lisp variables
7491 default-buffer-file-coding-system and buffer-file-coding-system. 7491 default-buffer-file-coding-system and buffer-file-coding-system.
diff --git a/src/ChangeLog.8 b/src/ChangeLog.8
index 833119c9fcf..00e4a1f62c8 100644
--- a/src/ChangeLog.8
+++ b/src/ChangeLog.8
@@ -919,7 +919,7 @@
9191999-11-28 Eli Zaretskii <eliz@is.elta.co.il> 9191999-11-28 Eli Zaretskii <eliz@is.elta.co.il>
920 920
921 * charset.c (Fmake_char_internal): Print the charset ID when 921 * charset.c (Fmake_char_internal): Print the charset ID when
922 signalling an error. 922 signaling an error.
923 923
924 * emacs.c (synchronize_locale): Avoid compiler warnings about 924 * emacs.c (synchronize_locale): Avoid compiler warnings about
925 pointer type mismatch. 925 pointer type mismatch.
@@ -2196,7 +2196,7 @@
2196 2196
21971999-09-14 Gerd Moellmann <gerd@gnu.org> 21971999-09-14 Gerd Moellmann <gerd@gnu.org>
2198 2198
2199 * sound.c (Fplay_sound): Remove usused variables. 2199 * sound.c (Fplay_sound): Remove unused variables.
2200 (be2hs): Put in #if 0 because it's currently not used. 2200 (be2hs): Put in #if 0 because it's currently not used.
2201 2201
22021999-09-14 Ken Raeburn <raeburn@gnu.org> 22021999-09-14 Ken Raeburn <raeburn@gnu.org>
@@ -7367,7 +7367,7 @@
7367 7367
7368 * xfaces.c (free_font): Removed. 7368 * xfaces.c (free_font): Removed.
7369 (load_face_font_or_fontset): Renamed from load_font. 7369 (load_face_font_or_fontset): Renamed from load_font.
7370 (load_face_font_or_fontset): Use message2 instead of signalling. 7370 (load_face_font_or_fontset): Use message2 instead of signaling.
7371 (load_color): Likewise. 7371 (load_color): Likewise.
7372 (load_pixmap): Likewise. 7372 (load_pixmap): Likewise.
7373 7373
@@ -13404,7 +13404,7 @@
13404 13404
134051998-10-20 Jason Rumney <jasonr@altavista.net> 134051998-10-20 Jason Rumney <jasonr@altavista.net>
13406 13406
13407 * makefile.nt (w32fns.c): Add x-list-font.c to dependancies. 13407 * makefile.nt (w32fns.c): Add x-list-font.c to dependencies.
13408 13408
13409 * w32faces.c: Update comments referring to obsolete structs. 13409 * w32faces.c: Update comments referring to obsolete structs.
13410 (allocate_face, copy_face, face_eql, load_font) 13410 (allocate_face, copy_face, face_eql, load_font)
diff --git a/src/ChangeLog.9 b/src/ChangeLog.9
index ceec5da3296..9e7bd24f792 100644
--- a/src/ChangeLog.9
+++ b/src/ChangeLog.9
@@ -4617,7 +4617,7 @@
4617 * lisp.h (detect_coding_system): Prototype adjusted. 4617 * lisp.h (detect_coding_system): Prototype adjusted.
4618 4618
4619 * coding.c (ONE_MORE_BYTE_CHECK_MULTIBYTE): New macro. 4619 * coding.c (ONE_MORE_BYTE_CHECK_MULTIBYTE): New macro.
4620 (detect_coding_emacs_mule, detect_coding_iso2022,) 4620 (detect_coding_emacs_mule, detect_coding_iso2022)
4621 (detect_coding_sjis, detect_coding_big5, detect_coding_utf_8) 4621 (detect_coding_sjis, detect_coding_big5, detect_coding_utf_8)
4622 (detect_coding_utf_16, detect_coding_ccl): Make them static. 4622 (detect_coding_utf_16, detect_coding_ccl): Make them static.
4623 New argument MULTIBYTEP. Callers changed. 4623 New argument MULTIBYTEP. Callers changed.
@@ -8409,7 +8409,7 @@
8409 (encode_coding_iso2022): New local variable safe_chars. Check 8409 (encode_coding_iso2022): New local variable safe_chars. Check
8410 unsafe chars. 8410 unsafe chars.
8411 (setup_coding_system): Delete the code to initialize 8411 (setup_coding_system): Delete the code to initialize
8412 coding->safe_charses. 8412 coding->safe_charsets.
8413 (intersection, find_safe_codings): New functions. 8413 (intersection, find_safe_codings): New functions.
8414 (Ffind_coding_systems_region_internal): New function. 8414 (Ffind_coding_systems_region_internal): New function.
8415 (syms_of_coding): Defsubr it. Initialize Qsafe_chars, 8415 (syms_of_coding): Defsubr it. Initialize Qsafe_chars,
diff --git a/src/alloc.c b/src/alloc.c
index 985e4b71426..5d04bd77872 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -882,7 +882,7 @@ safe_alloca_unwind (Lisp_Object arg)
882 882
883/* Like malloc but used for allocating Lisp data. NBYTES is the 883/* Like malloc but used for allocating Lisp data. NBYTES is the
884 number of bytes to allocate, TYPE describes the intended use of the 884 number of bytes to allocate, TYPE describes the intended use of the
885 allcated memory block (for strings, for conses, ...). */ 885 allocated memory block (for strings, for conses, ...). */
886 886
887#ifndef USE_LSB_TAG 887#ifndef USE_LSB_TAG
888static void *lisp_malloc_loser; 888static void *lisp_malloc_loser;
@@ -1412,7 +1412,7 @@ uninterrupt_malloc (void)
1412#ifdef DOUG_LEA_MALLOC 1412#ifdef DOUG_LEA_MALLOC
1413 pthread_mutexattr_t attr; 1413 pthread_mutexattr_t attr;
1414 1414
1415 /* GLIBC has a faster way to do this, but lets keep it portable. 1415 /* GLIBC has a faster way to do this, but let's keep it portable.
1416 This is according to the Single UNIX Specification. */ 1416 This is according to the Single UNIX Specification. */
1417 pthread_mutexattr_init (&attr); 1417 pthread_mutexattr_init (&attr);
1418 pthread_mutexattr_settype (&attr, PTHREAD_MUTEX_RECURSIVE); 1418 pthread_mutexattr_settype (&attr, PTHREAD_MUTEX_RECURSIVE);
diff --git a/src/buffer.c b/src/buffer.c
index fdf006a41eb..90b43d29fc8 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -4431,7 +4431,7 @@ static int mmap_initialized_p;
4431 is currently mapped. Used to prevent overwriting an existing 4431 is currently mapped. Used to prevent overwriting an existing
4432 memory mapping. 4432 memory mapping.
4433 4433
4434 Default is to conservativly assume the address range is occupied by 4434 Default is to conservatively assume the address range is occupied by
4435 something else. This can be overridden by system configuration 4435 something else. This can be overridden by system configuration
4436 files if system-specific means to determine this exists. */ 4436 files if system-specific means to determine this exists. */
4437 4437
diff --git a/src/bytecode.c b/src/bytecode.c
index 9ed29e94b54..3af0abd63cf 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -271,7 +271,7 @@ struct byte_stack
271/* A list of currently active byte-code execution value stacks. 271/* A list of currently active byte-code execution value stacks.
272 Fbyte_code adds an entry to the head of this list before it starts 272 Fbyte_code adds an entry to the head of this list before it starts
273 processing byte-code, and it removed the entry again when it is 273 processing byte-code, and it removed the entry again when it is
274 done. Signalling an error truncates the list analoguous to 274 done. Signaling an error truncates the list analogous to
275 gcprolist. */ 275 gcprolist. */
276 276
277struct byte_stack *byte_stack_list; 277struct byte_stack *byte_stack_list;
diff --git a/src/callproc.c b/src/callproc.c
index 0859aaef2e6..01772efce30 100644
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -712,6 +712,7 @@ usage: (call-process PROGRAM &optional INFILE BUFFER DISPLAY &rest ARGS) */)
712 /* If BUFFER is nil, we must read process output once and then 712 /* If BUFFER is nil, we must read process output once and then
713 discard it, so setup coding system but with nil. */ 713 discard it, so setup coding system but with nil. */
714 setup_coding_system (Qnil, &process_coding); 714 setup_coding_system (Qnil, &process_coding);
715 process_coding.dst_multibyte = 0;
715 } 716 }
716 else 717 else
717 { 718 {
@@ -747,6 +748,8 @@ usage: (call-process PROGRAM &optional INFILE BUFFER DISPLAY &rest ARGS) */)
747 && !NILP (val)) 748 && !NILP (val))
748 val = raw_text_coding_system (val); 749 val = raw_text_coding_system (val);
749 setup_coding_system (val, &process_coding); 750 setup_coding_system (val, &process_coding);
751 process_coding.dst_multibyte
752 = ! NILP (BVAR (current_buffer, enable_multibyte_characters));
750 } 753 }
751 process_coding.src_multibyte = 0; 754 process_coding.src_multibyte = 0;
752 755
diff --git a/src/ccl.c b/src/ccl.c
index 01943eddf58..6366f1acb88 100644
--- a/src/ccl.c
+++ b/src/ccl.c
@@ -484,7 +484,7 @@ static Lisp_Object Vccl_program_table;
484 If the element is t or lambda, finish without changing reg[rrr]. 484 If the element is t or lambda, finish without changing reg[rrr].
485 If the element is a number, set reg[rrr] to the number and finish. 485 If the element is a number, set reg[rrr] to the number and finish.
486 486
487 Detail of the map structure is descibed in the comment for 487 Detail of the map structure is described in the comment for
488 CCL_MapMultiple below. */ 488 CCL_MapMultiple below. */
489 489
490#define CCL_IterateMultipleMap 0x10 /* Iterate multiple maps 490#define CCL_IterateMultipleMap 0x10 /* Iterate multiple maps
@@ -1762,7 +1762,7 @@ ccl_driver (struct ccl_program *ccl, int *source, int *destination, int src_size
1762 1762
1763 case CCL_STAT_QUIT: 1763 case CCL_STAT_QUIT:
1764 if (! ccl->quit_silently) 1764 if (! ccl->quit_silently)
1765 sprintf (msg, "\nCCL: Quited."); 1765 sprintf (msg, "\nCCL: Quitted.");
1766 break; 1766 break;
1767 1767
1768 default: 1768 default:
@@ -1808,7 +1808,7 @@ ccl_driver (struct ccl_program *ccl, int *source, int *destination, int src_size
1808 1808
1809/* Resolve symbols in the specified CCL code (Lisp vector). This 1809/* Resolve symbols in the specified CCL code (Lisp vector). This
1810 function converts symbols of code conversion maps and character 1810 function converts symbols of code conversion maps and character
1811 translation tables embeded in the CCL code into their ID numbers. 1811 translation tables embedded in the CCL code into their ID numbers.
1812 1812
1813 The return value is a vector (CCL itself or a new vector in which 1813 The return value is a vector (CCL itself or a new vector in which
1814 all symbols are resolved), Qt if resolving of some symbol failed, 1814 all symbols are resolved), Qt if resolving of some symbol failed,
diff --git a/src/character.c b/src/character.c
index fb9b8a9b93e..a21760c8ab2 100644
--- a/src/character.c
+++ b/src/character.c
@@ -588,7 +588,7 @@ parse_str_as_multibyte (const unsigned char *str, EMACS_INT len,
588} 588}
589 589
590/* Arrange unibyte text at STR of NBYTES bytes as a multibyte text. 590/* Arrange unibyte text at STR of NBYTES bytes as a multibyte text.
591 It actually converts only such 8-bit characters that don't contruct 591 It actually converts only such 8-bit characters that don't construct
592 a multibyte sequence to multibyte forms of Latin-1 characters. If 592 a multibyte sequence to multibyte forms of Latin-1 characters. If
593 NCHARS is nonzero, set *NCHARS to the number of characters in the 593 NCHARS is nonzero, set *NCHARS to the number of characters in the
594 text. It is assured that we can use LEN bytes at STR as a work 594 text. It is assured that we can use LEN bytes at STR as a work
@@ -969,7 +969,7 @@ character is a target to get a byte value. In this case, POSITION, if
969non-nil, is an index of a target character in the string. 969non-nil, is an index of a target character in the string.
970 970
971If the current buffer (or STRING) is multibyte, and the target 971If the current buffer (or STRING) is multibyte, and the target
972character is not ASCII nor 8-bit character, an error is signalled. */) 972character is not ASCII nor 8-bit character, an error is signaled. */)
973 (Lisp_Object position, Lisp_Object string) 973 (Lisp_Object position, Lisp_Object string)
974{ 974{
975 int c; 975 int c;
diff --git a/src/charset.c b/src/charset.c
index 8d6a3982d14..266753f9d05 100644
--- a/src/charset.c
+++ b/src/charset.c
@@ -162,8 +162,8 @@ static struct
162 /* 1 iff the following table is used for encoder. */ 162 /* 1 iff the following table is used for encoder. */
163 short for_encoder; 163 short for_encoder;
164 164
165 /* When the following table is used for encoding, mininum and 165 /* When the following table is used for encoding, minimum and
166 maxinum 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 correspoinding to the code indice 0 (i.e. the
diff --git a/src/charset.h b/src/charset.h
index be02bc0feae..fc35d6bb991 100644
--- a/src/charset.h
+++ b/src/charset.h
@@ -153,7 +153,7 @@ struct charset
153 /* Dimension of the charset: 1, 2, 3, or 4. */ 153 /* Dimension of the charset: 1, 2, 3, or 4. */
154 int dimension; 154 int dimension;
155 155
156 /* Byte code range of each dimension. <code_space>[4N] is a mininum 156 /* Byte code range of each dimension. <code_space>[4N] is a minimum
157 byte code of the (N+1)th dimension, <code_space>[4N+1] is a 157 byte code of the (N+1)th dimension, <code_space>[4N+1] is a
158 maximum byte code of the (N+1)th dimension, <code_space>[4N+2] is 158 maximum byte code of the (N+1)th dimension, <code_space>[4N+2] is
159 (<code_space>[4N+1] - <code_space>[4N] + 1), <code_space>[4N+3] 159 (<code_space>[4N+1] - <code_space>[4N] + 1), <code_space>[4N+3]
@@ -199,14 +199,14 @@ struct charset
199 /* The method for encoding/decoding characters of the charset. */ 199 /* The method for encoding/decoding characters of the charset. */
200 enum charset_method method; 200 enum charset_method method;
201 201
202 /* Mininum and Maximum code points of the charset. */ 202 /* Minimum and Maximum code points of the charset. */
203 unsigned min_code, max_code; 203 unsigned min_code, max_code;
204 204
205 /* Offset value used by macros CODE_POINT_TO_INDEX and 205 /* Offset value used by macros CODE_POINT_TO_INDEX and
206 INDEX_TO_CODE_POINT. . */ 206 INDEX_TO_CODE_POINT. . */
207 unsigned char_index_offset; 207 unsigned char_index_offset;
208 208
209 /* Mininum and Maximum character codes of the charset. If the 209 /* Minimum and Maximum character codes of the charset. If the
210 charset is compatible with ASCII, min_char is a minimum non-ASCII 210 charset is compatible with ASCII, min_char is a minimum non-ASCII
211 character of the charset. If the method of charset is 211 character of the charset. If the method of charset is
212 CHARSET_METHOD_OFFSET, even if the charset is unified, min_char 212 CHARSET_METHOD_OFFSET, even if the charset is unified, min_char
diff --git a/src/chartab.c b/src/chartab.c
index 1d4ac04312a..724b3076a11 100644
--- a/src/chartab.c
+++ b/src/chartab.c
@@ -758,7 +758,7 @@ map_sub_char_table (void (*c_function) (Lisp_Object, Lisp_Object, Lisp_Object),
758{ 758{
759 /* Depth of TABLE. */ 759 /* Depth of TABLE. */
760 int depth; 760 int depth;
761 /* Minimum and maxinum characters covered by TABLE. */ 761 /* Minimum and maximum characters covered by TABLE. */
762 int min_char, max_char; 762 int min_char, max_char;
763 /* Number of characters covered by one element of TABLE. */ 763 /* Number of characters covered by one element of TABLE. */
764 int chars_in_block; 764 int chars_in_block;
@@ -1196,7 +1196,7 @@ uniprop_table_uncompress (Lisp_Object table, int idx)
1196} 1196}
1197 1197
1198 1198
1199/* Decode VALUE as an elemnet of char-table TABLE. */ 1199/* Decode VALUE as an element of char-table TABLE. */
1200 1200
1201static Lisp_Object 1201static Lisp_Object
1202uniprop_decode_value_run_length (Lisp_Object table, Lisp_Object value) 1202uniprop_decode_value_run_length (Lisp_Object table, Lisp_Object value)
diff --git a/src/coding.h b/src/coding.h
index fdf9b762e75..2621928adc3 100644
--- a/src/coding.h
+++ b/src/coding.h
@@ -518,7 +518,7 @@ struct coding_system
518#define CODING_REQUIRE_DETECTION_MASK 0x1000 518#define CODING_REQUIRE_DETECTION_MASK 0x1000
519#define CODING_RESET_AT_BOL_MASK 0x2000 519#define CODING_RESET_AT_BOL_MASK 0x2000
520 520
521/* Return 1 if the coding context CODING requires annotaion 521/* Return 1 if the coding context CODING requires annotation
522 handling. */ 522 handling. */
523#define CODING_REQUIRE_ANNOTATION(coding) \ 523#define CODING_REQUIRE_ANNOTATION(coding) \
524 ((coding)->common_flags & CODING_ANNOTATION_MASK) 524 ((coding)->common_flags & CODING_ANNOTATION_MASK)
diff --git a/src/composite.c b/src/composite.c
index c8e4dd082ae..885e0262673 100644
--- a/src/composite.c
+++ b/src/composite.c
@@ -1307,7 +1307,7 @@ composition_reseat_it (struct composition_it *cmp_it, EMACS_INT charpos, EMACS_I
1307 if (cmp_it->lookback == 0) 1307 if (cmp_it->lookback == 0)
1308 goto no_composition; 1308 goto no_composition;
1309 lgstring = Qnil; 1309 lgstring = Qnil;
1310 /* Try to find a shorter compostion that starts after CPOS. */ 1310 /* Try to find a shorter composition that starts after CPOS. */
1311 composition_compute_stop_pos (cmp_it, charpos, bytepos, cpos, 1311 composition_compute_stop_pos (cmp_it, charpos, bytepos, cpos,
1312 string); 1312 string);
1313 if (cmp_it->ch == -2 || cmp_it->stop_pos < charpos) 1313 if (cmp_it->ch == -2 || cmp_it->stop_pos < charpos)
diff --git a/src/composite.h b/src/composite.h
index c57e2a0e9b3..60145b10bd9 100644
--- a/src/composite.h
+++ b/src/composite.h
@@ -41,7 +41,7 @@ enum composition_method {
41 COMPOSITION_NO 41 COMPOSITION_NO
42}; 42};
43 43
44/* Maximum number of compoments a single composition can have. */ 44/* Maximum number of components a single composition can have. */
45#define MAX_COMPOSITION_COMPONENTS 16 45#define MAX_COMPOSITION_COMPONENTS 16
46 46
47/* These macros access information about a composition that 47/* These macros access information about a composition that
diff --git a/src/data.c b/src/data.c
index 76a54547a5d..e8d2b43198f 100644
--- a/src/data.c
+++ b/src/data.c
@@ -2028,7 +2028,7 @@ DEFUN ("indirect-function", Findirect_function, Sindirect_function, 1, 2, 0,
2028If OBJECT is not a symbol, just return it. Otherwise, follow all 2028If OBJECT is not a symbol, just return it. Otherwise, follow all
2029function indirections to find the final function binding and return it. 2029function indirections to find the final function binding and return it.
2030If the final symbol in the chain is unbound, signal a void-function error. 2030If the final symbol in the chain is unbound, signal a void-function error.
2031Optional arg NOERROR non-nil means to return nil instead of signalling. 2031Optional arg NOERROR non-nil means to return nil instead of signaling.
2032Signal a cyclic-function-indirection error if there is a loop in the 2032Signal a cyclic-function-indirection error if there is a loop in the
2033function chain of symbols. */) 2033function chain of symbols. */)
2034 (register Lisp_Object object, Lisp_Object noerror) 2034 (register Lisp_Object object, Lisp_Object noerror)
diff --git a/src/dired.c b/src/dired.c
index fac3a34ab9b..acc81a6ed9d 100644
--- a/src/dired.c
+++ b/src/dired.c
@@ -628,7 +628,7 @@ file_name_completion (Lisp_Object file, Lisp_Object dirname, int all_flag, int v
628 628
629 if (includeall && !canexclude) 629 if (includeall && !canexclude)
630 { /* If we have one non-excludable file, we want to exclude the 630 { /* If we have one non-excludable file, we want to exclude the
631 excudable files. */ 631 excludable files. */
632 includeall = 0; 632 includeall = 0;
633 /* Throw away any previous excludable match found. */ 633 /* Throw away any previous excludable match found. */
634 bestmatch = Qnil; 634 bestmatch = Qnil;
diff --git a/src/dispnew.c b/src/dispnew.c
index 22695df1dc0..700952f6ae3 100644
--- a/src/dispnew.c
+++ b/src/dispnew.c
@@ -433,6 +433,25 @@ margin_glyphs_to_reserve (struct window *w, int total_glyphs, Lisp_Object margin
433 return n; 433 return n;
434} 434}
435 435
436#if XASSERTS
437/* Return non-zero if ROW's hash value is correct, zero if not. */
438int
439verify_row_hash (struct glyph_row *row)
440{
441 int area, k;
442 unsigned row_hash = 0;
443
444 for (area = LEFT_MARGIN_AREA; area < LAST_AREA; ++area)
445 for (k = 0; k < row->used[area]; ++k)
446 row_hash = ((((row_hash << 4) + (row_hash >> 24)) & 0x0fffffff)
447 + row->glyphs[area][k].u.val
448 + row->glyphs[area][k].face_id
449 + row->glyphs[area][k].padding_p
450 + (row->glyphs[area][k].type << 2));
451
452 return row_hash == row->hash;
453}
454#endif
436 455
437/* Adjust glyph matrix MATRIX on window W or on a frame to changed 456/* Adjust glyph matrix MATRIX on window W or on a frame to changed
438 window sizes. 457 window sizes.
@@ -604,6 +623,7 @@ adjust_glyph_matrix (struct window *w, struct glyph_matrix *matrix, int x, int y
604 row->glyphs[LAST_AREA] 623 row->glyphs[LAST_AREA]
605 = row->glyphs[LEFT_MARGIN_AREA] + dim.width; 624 = row->glyphs[LEFT_MARGIN_AREA] + dim.width;
606 } 625 }
626 xassert (!row->enabled_p || verify_row_hash (row));
607 ++row; 627 ++row;
608 } 628 }
609 } 629 }
@@ -1275,6 +1295,9 @@ line_draw_cost (struct glyph_matrix *matrix, int vpos)
1275static inline int 1295static inline int
1276row_equal_p (struct glyph_row *a, struct glyph_row *b, int mouse_face_p) 1296row_equal_p (struct glyph_row *a, struct glyph_row *b, int mouse_face_p)
1277{ 1297{
1298 xassert (verify_row_hash (a));
1299 xassert (verify_row_hash (b));
1300
1278 if (a == b) 1301 if (a == b)
1279 return 1; 1302 return 1;
1280 else if (a->hash != b->hash) 1303 else if (a->hash != b->hash)
@@ -3472,7 +3495,7 @@ redraw_overlapping_rows (struct window *w, int yb)
3472 if (row->used[RIGHT_MARGIN_AREA]) 3495 if (row->used[RIGHT_MARGIN_AREA])
3473 rif->fix_overlapping_area (w, row, RIGHT_MARGIN_AREA, overlaps); 3496 rif->fix_overlapping_area (w, row, RIGHT_MARGIN_AREA, overlaps);
3474 3497
3475 /* Record in neighbour rows that ROW overwrites part of 3498 /* Record in neighbor rows that ROW overwrites part of
3476 their display. */ 3499 their display. */
3477 if (overlaps & OVERLAPS_PRED) 3500 if (overlaps & OVERLAPS_PRED)
3478 MATRIX_ROW (w->current_matrix, i - 1)->overlapped_p = 1; 3501 MATRIX_ROW (w->current_matrix, i - 1)->overlapped_p = 1;
@@ -4347,10 +4370,10 @@ scrolling_window (struct window *w, int header_line_p)
4347 j = last_old; 4370 j = last_old;
4348 while (i - 1 > first_new 4371 while (i - 1 > first_new
4349 && j - 1 > first_old 4372 && j - 1 > first_old
4350 && MATRIX_ROW (current_matrix, i - 1)->enabled_p 4373 && MATRIX_ROW (current_matrix, j - 1)->enabled_p
4351 && (MATRIX_ROW (current_matrix, i - 1)->y 4374 && (MATRIX_ROW (current_matrix, j - 1)->y
4352 == MATRIX_ROW (desired_matrix, j - 1)->y) 4375 == MATRIX_ROW (desired_matrix, i - 1)->y)
4353 && !MATRIX_ROW (desired_matrix, j - 1)->redraw_fringe_bitmaps_p 4376 && !MATRIX_ROW (desired_matrix, i - 1)->redraw_fringe_bitmaps_p
4354 && row_equal_p (MATRIX_ROW (desired_matrix, i - 1), 4377 && row_equal_p (MATRIX_ROW (desired_matrix, i - 1),
4355 MATRIX_ROW (current_matrix, j - 1), 1)) 4378 MATRIX_ROW (current_matrix, j - 1), 1))
4356 --i, --j; 4379 --i, --j;
diff --git a/src/doprnt.c b/src/doprnt.c
index b4d13c59137..35af2297ff4 100644
--- a/src/doprnt.c
+++ b/src/doprnt.c
@@ -26,7 +26,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
26 of the (`int') argument, suitable for display in an Emacs buffer. 26 of the (`int') argument, suitable for display in an Emacs buffer.
27 27
28 . For %s and %c, when field width is specified (e.g., %25s), it accounts for 28 . For %s and %c, when field width is specified (e.g., %25s), it accounts for
29 the diplay width of each character, according to char-width-table. That 29 the display width of each character, according to char-width-table. That
30 is, it does not assume that each character takes one column on display. 30 is, it does not assume that each character takes one column on display.
31 31
32 . If the size of the buffer is not enough to produce the formatted string in 32 . If the size of the buffer is not enough to produce the formatted string in
diff --git a/src/emacs.c b/src/emacs.c
index 197158e18e4..8a24b04fc2b 100644
--- a/src/emacs.c
+++ b/src/emacs.c
@@ -1405,7 +1405,7 @@ Using an Emacs configured with --with-x-toolkit=lucid does not have this problem
1405#endif 1405#endif
1406 1406
1407 /* argmatch must not be used after here, 1407 /* argmatch must not be used after here,
1408 except when bulding temacs 1408 except when building temacs
1409 because the -d argument has not been skipped in skip_args. */ 1409 because the -d argument has not been skipped in skip_args. */
1410 1410
1411#ifdef MSDOS 1411#ifdef MSDOS
diff --git a/src/font.c b/src/font.c
index f6723157de1..9559c65e7ed 100644
--- a/src/font.c
+++ b/src/font.c
@@ -802,7 +802,7 @@ font_expand_wildcards (Lisp_Object *field, int n)
802 struct { 802 struct {
803 /* Minimum possible field. */ 803 /* Minimum possible field. */
804 int from; 804 int from;
805 /* Maxinum possible field. */ 805 /* Maximum possible field. */
806 int to; 806 int to;
807 /* Bit mask of possible field. Nth bit corresponds to Nth field. */ 807 /* Bit mask of possible field. Nth bit corresponds to Nth field. */
808 int mask; 808 int mask;
@@ -954,7 +954,7 @@ font_expand_wildcards (Lisp_Object *field, int n)
954 } 954 }
955 } 955 }
956 956
957 /* Decide all fileds from restrictions in RANGE. */ 957 /* Decide all fields from restrictions in RANGE. */
958 for (i = j = 0; i < n ; i++) 958 for (i = j = 0; i < n ; i++)
959 { 959 {
960 if (j < range[i].from) 960 if (j < range[i].from)
@@ -5144,7 +5144,7 @@ the corresponding glyph code. If ENCODING is a char-table, looking up
5144the table by a character gives the corresponding glyph code. 5144the table by a character gives the corresponding glyph code.
5145 5145
5146REPERTORY specifies a repertory of characters supported by the font. 5146REPERTORY specifies a repertory of characters supported by the font.
5147If REPERTORY is a charset, all characters beloging to the charset are 5147If REPERTORY is a charset, all characters belonging to the charset are
5148supported. If REPERTORY is a char-table, all characters who have a 5148supported. If REPERTORY is a char-table, all characters who have a
5149non-nil value in the table are supported. If REPERTORY is nil, Emacs 5149non-nil value in the table are supported. If REPERTORY is nil, Emacs
5150gets the repertory information by an opened font and ENCODING. */); 5150gets the repertory information by an opened font and ENCODING. */);
diff --git a/src/font.h b/src/font.h
index e50eaff9a1f..42fc050b670 100644
--- a/src/font.h
+++ b/src/font.h
@@ -599,7 +599,7 @@ struct font_driver
599 599
600 /* Optional. 600 /* Optional.
601 Store bitmap data for glyph-code CODE of FONT in BITMAP. It is 601 Store bitmap data for glyph-code CODE of FONT in BITMAP. It is
602 intended that this method is callled from the other font-driver 602 intended that this method is called from the other font-driver
603 for actual drawing. */ 603 for actual drawing. */
604 int (*get_bitmap) (struct font *font, unsigned code, 604 int (*get_bitmap) (struct font *font, unsigned code,
605 struct font_bitmap *bitmap, 605 struct font_bitmap *bitmap,
diff --git a/src/fontset.c b/src/fontset.c
index 74a25a1ca04..34b2131832f 100644
--- a/src/fontset.c
+++ b/src/fontset.c
@@ -1088,7 +1088,7 @@ fontset_pattern_regexp (Lisp_Object pattern)
1088 nescs++; 1088 nescs++;
1089 } 1089 }
1090 1090
1091 /* If PATTERN is not full XLFD we conert "*" to ".*". Otherwise 1091 /* If PATTERN is not full XLFD we convert "*" to ".*". Otherwise
1092 we convert "*" to "[^-]*" which is much faster in regular 1092 we convert "*" to "[^-]*" which is much faster in regular
1093 expression matching. */ 1093 expression matching. */
1094 if (ndashes < 14) 1094 if (ndashes < 14)
@@ -1702,7 +1702,7 @@ static Lisp_Object auto_fontset_alist;
1702/* Number of automatically created fontsets. */ 1702/* Number of automatically created fontsets. */
1703static printmax_t num_auto_fontsets; 1703static printmax_t num_auto_fontsets;
1704 1704
1705/* Retun a fontset synthesized from FONT-OBJECT. This is called from 1705/* Return a fontset synthesized from FONT-OBJECT. This is called from
1706 x_new_font when FONT-OBJECT is used for the default ASCII font of a 1706 x_new_font when FONT-OBJECT is used for the default ASCII font of a
1707 frame, and the returned fontset is used for the default fontset of 1707 frame, and the returned fontset is used for the default fontset of
1708 that frame. The fontset specifies a font of the same registry as 1708 that frame. The fontset specifies a font of the same registry as
@@ -1788,7 +1788,7 @@ update_auto_fontset_alist (Lisp_Object font_object, Lisp_Object fontset)
1788/* Return a cons (FONT-OBJECT . GLYPH-CODE). 1788/* Return a cons (FONT-OBJECT . GLYPH-CODE).
1789 FONT-OBJECT is the font for the character at POSITION in the current 1789 FONT-OBJECT is the font for the character at POSITION in the current
1790 buffer. This is computed from all the text properties and overlays 1790 buffer. This is computed from all the text properties and overlays
1791 that apply to POSITION. POSTION may be nil, in which case, 1791 that apply to POSITION. POSITION may be nil, in which case,
1792 FONT-SPEC is the font for displaying the character CH with the 1792 FONT-SPEC is the font for displaying the character CH with the
1793 default face. 1793 default face.
1794 1794
diff --git a/src/frame.c b/src/frame.c
index d56a2efb17f..c14f4db91da 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -1237,7 +1237,7 @@ delete_frame (Lisp_Object frame, Lisp_Object force)
1237 else 1237 else
1238 { 1238 {
1239#ifdef HAVE_X_WINDOWS 1239#ifdef HAVE_X_WINDOWS
1240 /* Also, save clipboard to the the clipboard manager. */ 1240 /* Also, save clipboard to the clipboard manager. */
1241 x_clipboard_manager_save_frame (frame); 1241 x_clipboard_manager_save_frame (frame);
1242#endif 1242#endif
1243 1243
@@ -2487,7 +2487,7 @@ If FRAME is omitted, the selected frame is used. The exact value
2487of the result depends on the window-system and toolkit in use: 2487of the result depends on the window-system and toolkit in use:
2488 2488
2489In the Gtk+ version of Emacs, it includes only any window (including 2489In the Gtk+ version of Emacs, it includes only any window (including
2490the minibuffer or eacho area), mode line, and header line. It does not 2490the minibuffer or echo area), mode line, and header line. It does not
2491include the tool bar or menu bar. 2491include the tool bar or menu bar.
2492 2492
2493With the Motif or Lucid toolkits, it also includes the tool bar (but 2493With the Motif or Lucid toolkits, it also includes the tool bar (but
diff --git a/src/frame.h b/src/frame.h
index e096807b02e..a32d1c549b5 100644
--- a/src/frame.h
+++ b/src/frame.h
@@ -371,7 +371,7 @@ struct frame
371 if greater than 1, then the frame is obscured - we still consider 371 if greater than 1, then the frame is obscured - we still consider
372 it to be "visible" as seen from lisp, but we don't bother 372 it to be "visible" as seen from lisp, but we don't bother
373 updating it. We must take care to garbage the frame when it 373 updating it. We must take care to garbage the frame when it
374 ceaces to be obscured though. 374 ceases to be obscured though.
375 375
376 iconified is nonzero if the frame is currently iconified. 376 iconified is nonzero if the frame is currently iconified.
377 377
diff --git a/src/gtkutil.c b/src/gtkutil.c
index af697c72673..0b7fd41f5f6 100644
--- a/src/gtkutil.c
+++ b/src/gtkutil.c
@@ -891,7 +891,7 @@ xg_frame_resized (FRAME_PTR f, int pixelwidth, int pixelheight)
891 } 891 }
892} 892}
893 893
894/* Resize the outer window of frame F after chainging the height. 894/* Resize the outer window of frame F after changing the height.
895 COLUMNS/ROWS is the size the edit area shall have after the resize. */ 895 COLUMNS/ROWS is the size the edit area shall have after the resize. */
896 896
897void 897void
@@ -1423,7 +1423,7 @@ get_dialog_title (char key)
1423/* Callback for dialogs that get WM_DELETE_WINDOW. We pop down 1423/* Callback for dialogs that get WM_DELETE_WINDOW. We pop down
1424 the dialog, but return TRUE so the event does not propagate further 1424 the dialog, but return TRUE so the event does not propagate further
1425 in GTK. This prevents GTK from destroying the dialog widget automatically 1425 in GTK. This prevents GTK from destroying the dialog widget automatically
1426 and we can always destrou the widget manually, regardles of how 1426 and we can always destroy the widget manually, regardless of how
1427 it was popped down (button press or WM_DELETE_WINDOW). 1427 it was popped down (button press or WM_DELETE_WINDOW).
1428 W is the dialog widget. 1428 W is the dialog widget.
1429 EVENT is the GdkEvent that represents WM_DELETE_WINDOW (not used). 1429 EVENT is the GdkEvent that represents WM_DELETE_WINDOW (not used).
@@ -2294,7 +2294,7 @@ tearoff_activate (GtkWidget *widget, gpointer client_data)
2294 2294
2295 2295
2296/* Create a menu item widget, and connect the callbacks. 2296/* Create a menu item widget, and connect the callbacks.
2297 ITEM decribes the menu item. 2297 ITEM describes the menu item.
2298 F is the frame the created menu belongs to. 2298 F is the frame the created menu belongs to.
2299 SELECT_CB is the callback to use when a menu item is selected. 2299 SELECT_CB is the callback to use when a menu item is selected.
2300 HIGHLIGHT_CB is the callback to call when entering/leaving menu items. 2300 HIGHLIGHT_CB is the callback to call when entering/leaving menu items.
diff --git a/src/image.c b/src/image.c
index 14c74f10607..e80f2b72102 100644
--- a/src/image.c
+++ b/src/image.c
@@ -7552,7 +7552,7 @@ imagemagick_image_p (Lisp_Object object)
7552} 7552}
7553 7553
7554/* The GIF library also defines DrawRectangle, but its never used in Emacs. 7554/* The GIF library also defines DrawRectangle, but its never used in Emacs.
7555 Therefore rename the function so it doesnt collide with ImageMagick. */ 7555 Therefore rename the function so it doesn't collide with ImageMagick. */
7556#define DrawRectangle DrawRectangleGif 7556#define DrawRectangle DrawRectangleGif
7557#include <wand/MagickWand.h> 7557#include <wand/MagickWand.h>
7558 7558
@@ -7824,7 +7824,7 @@ imagemagick_load_image (struct frame *f, struct image *img,
7824 7824
7825 if (imagemagick_rendermethod == 1) 7825 if (imagemagick_rendermethod == 1)
7826 { 7826 {
7827 /* Magicexportimage is normaly faster than pixelpushing. This 7827 /* Magicexportimage is normally faster than pixelpushing. This
7828 method is also well tested. Some aspects of this method are 7828 method is also well tested. Some aspects of this method are
7829 ad-hoc and needs to be more researched. */ 7829 ad-hoc and needs to be more researched. */
7830 int imagedepth = 24;/*MagickGetImageDepth(image_wand);*/ 7830 int imagedepth = 24;/*MagickGetImageDepth(image_wand);*/
@@ -7841,7 +7841,7 @@ imagemagick_load_image (struct frame *f, struct image *img,
7841 } 7841 }
7842 7842
7843 7843
7844 /* Oddly, the below code doesnt seem to work:*/ 7844 /* Oddly, the below code doesn't seem to work:*/
7845 /* switch(ximg->bitmap_unit){ */ 7845 /* switch(ximg->bitmap_unit){ */
7846 /* case 8: */ 7846 /* case 8: */
7847 /* pixelwidth=CharPixel; */ 7847 /* pixelwidth=CharPixel; */
@@ -7870,7 +7870,7 @@ imagemagick_load_image (struct frame *f, struct image *img,
7870 /*&(img->pixmap));*/ 7870 /*&(img->pixmap));*/
7871 ximg->data); 7871 ximg->data);
7872#else 7872#else
7873 image_error ("You dont have MagickExportImagePixels, upgrade ImageMagick!", 7873 image_error ("You don't have MagickExportImagePixels, upgrade ImageMagick!",
7874 Qnil, Qnil); 7874 Qnil, Qnil);
7875#endif 7875#endif
7876 } 7876 }
@@ -8781,7 +8781,7 @@ syms_of_image (void)
8781 operation on GNU/Linux of calling dump-emacs after loading some images. */ 8781 operation on GNU/Linux of calling dump-emacs after loading some images. */
8782 image_types = NULL; 8782 image_types = NULL;
8783 8783
8784 /* Must be defined now becase we're going to update it below, while 8784 /* Must be defined now because we're going to update it below, while
8785 defining the supported image types. */ 8785 defining the supported image types. */
8786 DEFVAR_LISP ("image-types", Vimage_types, 8786 DEFVAR_LISP ("image-types", Vimage_types,
8787 doc: /* List of potentially supported image types. 8787 doc: /* List of potentially supported image types.
diff --git a/src/indent.c b/src/indent.c
index a70b7971b96..07a54c0c1b7 100644
--- a/src/indent.c
+++ b/src/indent.c
@@ -1675,7 +1675,7 @@ compute_motion (EMACS_INT from, EMACS_INT fromvpos, EMACS_INT fromhpos, int did_
1675 val_compute_motion.prevhpos = contin_hpos; 1675 val_compute_motion.prevhpos = contin_hpos;
1676 else 1676 else
1677 val_compute_motion.prevhpos = prev_hpos; 1677 val_compute_motion.prevhpos = prev_hpos;
1678 /* We alalways handle all of them here; none of them remain to do. */ 1678 /* We always handle all of them here; none of them remain to do. */
1679 val_compute_motion.ovstring_chars_done = 0; 1679 val_compute_motion.ovstring_chars_done = 0;
1680 1680
1681 /* Nonzero if have just continued a line */ 1681 /* Nonzero if have just continued a line */
diff --git a/src/indent.h b/src/indent.h
index 07ca4dd87a5..55ee934f574 100644
--- a/src/indent.h
+++ b/src/indent.h
@@ -19,7 +19,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
19/* We introduce new member `tab_offset'. We need it because of the 19/* We introduce new member `tab_offset'. We need it because of the
20 existence of wide-column characters. There is a case that the 20 existence of wide-column characters. There is a case that the
21 line-break occurs at a wide-column character and the number of 21 line-break occurs at a wide-column character and the number of
22 colums of the line gets less than width. 22 columns of the line gets less than width.
23 23
24 Example (where W_ stands for a wide-column character): 24 Example (where W_ stands for a wide-column character):
25 ---------- 25 ----------
@@ -73,5 +73,3 @@ int disptab_matches_widthtab (struct Lisp_Char_Table *disptab,
73/* Recompute BUF's width table, using the display table DISPTAB. */ 73/* Recompute BUF's width table, using the display table DISPTAB. */
74void recompute_width_table (struct buffer *buf, 74void recompute_width_table (struct buffer *buf,
75 struct Lisp_Char_Table *disptab); 75 struct Lisp_Char_Table *disptab);
76
77
diff --git a/src/keyboard.c b/src/keyboard.c
index a9350fc32f3..8b94ee6b5d1 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -935,7 +935,7 @@ pop_kboard (void)
935 state later. 935 state later.
936 936
937 If Emacs is already in single_kboard mode, and F's keyboard is 937 If Emacs is already in single_kboard mode, and F's keyboard is
938 locked, then this function will throw an errow. */ 938 locked, then this function will throw an error. */
939 939
940void 940void
941temporarily_switch_to_single_kboard (struct frame *f) 941temporarily_switch_to_single_kboard (struct frame *f)
@@ -1063,7 +1063,7 @@ cmd_error_internal (Lisp_Object data, const char *context)
1063 struct frame *sf = SELECTED_FRAME (); 1063 struct frame *sf = SELECTED_FRAME ();
1064 1064
1065 /* The immediate context is not interesting for Quits, 1065 /* The immediate context is not interesting for Quits,
1066 since they are asyncronous. */ 1066 since they are asynchronous. */
1067 if (EQ (XCAR (data), Qquit)) 1067 if (EQ (XCAR (data), Qquit))
1068 Vsignaling_function = Qnil; 1068 Vsignaling_function = Qnil;
1069 1069
@@ -5403,7 +5403,7 @@ make_lispy_event (struct input_event *event)
5403 || !lispy_function_keys[event->code - FUNCTION_KEY_OFFSET]) 5403 || !lispy_function_keys[event->code - FUNCTION_KEY_OFFSET])
5404 { 5404 {
5405 /* We need to use an alist rather than a vector as the cache 5405 /* We need to use an alist rather than a vector as the cache
5406 since we can't make a vector long enuf. */ 5406 since we can't make a vector long enough. */
5407 if (NILP (KVAR (current_kboard, system_key_syms))) 5407 if (NILP (KVAR (current_kboard, system_key_syms)))
5408 KVAR (current_kboard, system_key_syms) = Fcons (Qnil, Qnil); 5408 KVAR (current_kboard, system_key_syms) = Fcons (Qnil, Qnil);
5409 return modify_event_symbol (event->code, 5409 return modify_event_symbol (event->code,
@@ -8149,7 +8149,7 @@ parse_tool_bar_item (Lisp_Object key, Lisp_Object item)
8149 Lisp_Object caption; 8149 Lisp_Object caption;
8150 int i, have_label = 0; 8150 int i, have_label = 0;
8151 8151
8152 /* Defininition looks like `(menu-item CAPTION BINDING PROPS...)'. 8152 /* Definition looks like `(menu-item CAPTION BINDING PROPS...)'.
8153 Rule out items that aren't lists, don't start with 8153 Rule out items that aren't lists, don't start with
8154 `menu-item' or whose rest following `tool-bar-item' is not a 8154 `menu-item' or whose rest following `tool-bar-item' is not a
8155 list. */ 8155 list. */
@@ -8798,7 +8798,7 @@ typedef struct keyremap
8798 /* Positions [START, END) in the key sequence buffer 8798 /* Positions [START, END) in the key sequence buffer
8799 are the key that we have scanned so far. 8799 are the key that we have scanned so far.
8800 Those events are the ones that we will replace 8800 Those events are the ones that we will replace
8801 if PAREHT maps them into a key sequence. */ 8801 if PARENT maps them into a key sequence. */
8802 int start, end; 8802 int start, end;
8803} keyremap; 8803} keyremap;
8804 8804
diff --git a/src/keymap.c b/src/keymap.c
index 739dfd8f2de..6f9cf288f6d 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -998,7 +998,7 @@ copy_keymap_item (Lisp_Object elt)
998 } 998 }
999 else 999 else
1000 { 1000 {
1001 /* It may be an old fomat menu item. 1001 /* It may be an old format menu item.
1002 Skip the optional menu string. */ 1002 Skip the optional menu string. */
1003 if (STRINGP (XCAR (tem))) 1003 if (STRINGP (XCAR (tem)))
1004 { 1004 {
diff --git a/src/makefile.w32-in b/src/makefile.w32-in
index e97f7f3aca4..36e4511d845 100644
--- a/src/makefile.w32-in
+++ b/src/makefile.w32-in
@@ -24,6 +24,9 @@ ALL = emacs
24# Set EMACSLOADPATH correctly (in case already defined in environment). 24# Set EMACSLOADPATH correctly (in case already defined in environment).
25EMACSLOADPATH=$(CURDIR)/../lisp 25EMACSLOADPATH=$(CURDIR)/../lisp
26 26
27# Size in MBs of the static heap in temacs.exe.
28HEAPSIZE = 27
29
27# 30#
28# HAVE_CONFIG_H is required by some generic gnu sources stuck into 31# HAVE_CONFIG_H is required by some generic gnu sources stuck into
29# the emacs source tree. 32# the emacs source tree.
@@ -177,7 +180,7 @@ temacs: stamp_BLD $(TEMACS)
177$(TEMACS): $(TLIB0) $(TLIB1) $(TLIB2) $(TLASTLIB) $(TOBJ) $(TRES) \ 180$(TEMACS): $(TLIB0) $(TLIB1) $(TLIB2) $(TLASTLIB) $(TOBJ) $(TRES) \
178 ../nt/$(BLD)/addsection.exe $(GNULIB) 181 ../nt/$(BLD)/addsection.exe $(GNULIB)
179 $(LINK) $(LINK_OUT)$(TEMACS_TMP) $(FULL_LINK_FLAGS) $(TOBJ) $(TRES) $(LIBS) 182 $(LINK) $(LINK_OUT)$(TEMACS_TMP) $(FULL_LINK_FLAGS) $(TOBJ) $(TRES) $(LIBS)
180 "$(THISDIR)/../nt/$(BLD)/addsection" "$(TEMACS_TMP)" "$(TEMACS)" EMHEAP 21 183 "$(THISDIR)/../nt/$(BLD)/addsection" "$(TEMACS_TMP)" "$(TEMACS)" EMHEAP $(HEAPSIZE)
181 184
182# These omit firstfile.${O}, but there's no documentation in there 185# These omit firstfile.${O}, but there's no documentation in there
183# anyways. 186# anyways.
diff --git a/src/nsfns.m b/src/nsfns.m
index 23362433a39..280fee0b27b 100644
--- a/src/nsfns.m
+++ b/src/nsfns.m
@@ -1057,7 +1057,7 @@ unwind_create_frame (Lisp_Object frame)
1057 return Qnil; 1057 return Qnil;
1058 1058
1059 /* If frame is ``official'', nothing to do. */ 1059 /* If frame is ``official'', nothing to do. */
1060 if (!CONSP (Vframe_list) || !EQ (XCAR (Vframe_list), frame)) 1060 if (NILP (Fmemq (frame, Vframe_list)))
1061 { 1061 {
1062#if GLYPH_DEBUG && XASSERTS 1062#if GLYPH_DEBUG && XASSERTS
1063 struct ns_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f); 1063 struct ns_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f);
@@ -1267,7 +1267,7 @@ This function is an internal primitive--use `make-frame' instead. */)
1267#endif 1267#endif
1268 1268
1269 init_frame_faces (f); 1269 init_frame_faces (f);
1270 1270
1271 /* The resources controlling the menu-bar and tool-bar are 1271 /* The resources controlling the menu-bar and tool-bar are
1272 processed specially at startup, and reflected in the mode 1272 processed specially at startup, and reflected in the mode
1273 variables; ignore them here. */ 1273 variables; ignore them here. */
@@ -1656,7 +1656,7 @@ If omitted or nil, the selected frame's display is used. */)
1656 1656
1657DEFUN ("x-display-backing-store", Fx_display_backing_store, 1657DEFUN ("x-display-backing-store", Fx_display_backing_store,
1658 Sx_display_backing_store, 0, 1, 0, 1658 Sx_display_backing_store, 0, 1, 0,
1659 doc: /* Return whether the Nexstep display DISPLAY supports backing store. 1659 doc: /* Return whether the Nextstep display DISPLAY supports backing store.
1660The value may be `buffered', `retained', or `non-retained'. 1660The value may be `buffered', `retained', or `non-retained'.
1661DISPLAY should be a frame, the display name as a string, or a terminal ID. 1661DISPLAY should be a frame, the display name as a string, or a terminal ID.
1662If omitted or nil, the selected frame's display is used. */) 1662If omitted or nil, the selected frame's display is used. */)
@@ -1846,7 +1846,7 @@ DEFUN ("ns-emacs-info-panel", Fns_emacs_info_panel, Sns_emacs_info_panel,
1846 1846
1847 1847
1848DEFUN ("ns-font-name", Fns_font_name, Sns_font_name, 1, 1, 0, 1848DEFUN ("ns-font-name", Fns_font_name, Sns_font_name, 1, 1, 0,
1849 doc: /* Determine font postscript or family name for font NAME. 1849 doc: /* Determine font PostScript or family name for font NAME.
1850NAME should be a string containing either the font name or an XLFD 1850NAME should be a string containing either the font name or an XLFD
1851font descriptor. If string contains `fontset' and not 1851font descriptor. If string contains `fontset' and not
1852`fontset-startup', it is left alone. */) 1852`fontset-startup', it is left alone. */)
diff --git a/src/nsterm.h b/src/nsterm.h
index b54e182780a..574d31c962a 100644
--- a/src/nsterm.h
+++ b/src/nsterm.h
@@ -447,7 +447,7 @@ struct nsfont_info
447{ 447{
448 struct font font; 448 struct font font;
449 449
450 char *name; /* postscript name, uniquely identifies on NS systems */ 450 char *name; /* PostScript name, uniquely identifies on NS systems */
451 float width; /* this and following metrics stored as float rather than int */ 451 float width; /* this and following metrics stored as float rather than int */
452 float height; 452 float height;
453 float underpos; 453 float underpos;
diff --git a/src/nsterm.m b/src/nsterm.m
index 3d3723fc28c..c5b28d57ac5 100644
--- a/src/nsterm.m
+++ b/src/nsterm.m
@@ -3035,7 +3035,7 @@ ns_dumpglyphs_image (struct glyph_string *s, NSRect r)
3035 /* Currently on NS img->mask is always 0. Since 3035 /* Currently on NS img->mask is always 0. Since
3036 get_window_cursor_type specifies a hollow box cursor when on 3036 get_window_cursor_type specifies a hollow box cursor when on
3037 a non-masked image we never reach this clause. But we put it 3037 a non-masked image we never reach this clause. But we put it
3038 in in antipication of better support for image masks on 3038 in in anticipation of better support for image masks on
3039 NS. */ 3039 NS. */
3040 tdCol = ns_lookup_indexed_color (NS_FACE_FOREGROUND (face), s->f); 3040 tdCol = ns_lookup_indexed_color (NS_FACE_FOREGROUND (face), s->f);
3041 } 3041 }
@@ -4503,7 +4503,7 @@ ns_term_shutdown (int sig)
4503 //ns_app_active=YES; 4503 //ns_app_active=YES;
4504 4504
4505 ns_update_auto_hide_menu_bar (); 4505 ns_update_auto_hide_menu_bar ();
4506 // No constrining takes place when the application is not active. 4506 // No constraining takes place when the application is not active.
4507 ns_constrain_all_frames (); 4507 ns_constrain_all_frames ();
4508} 4508}
4509- (void)applicationDidResignActive: (NSNotification *)notification 4509- (void)applicationDidResignActive: (NSNotification *)notification
diff --git a/src/process.c b/src/process.c
index 301274676d6..53382d804f2 100644
--- a/src/process.c
+++ b/src/process.c
@@ -3120,7 +3120,7 @@ usage: (make-network-process &rest ARGS) */)
3120 { 3120 {
3121 struct hostent *host_info_ptr; 3121 struct hostent *host_info_ptr;
3122 3122
3123 /* gethostbyname may fail with TRY_AGAIN, but we don't honour that, 3123 /* gethostbyname may fail with TRY_AGAIN, but we don't honor that,
3124 as it may `hang' Emacs for a very long time. */ 3124 as it may `hang' Emacs for a very long time. */
3125 immediate_quit = 1; 3125 immediate_quit = 1;
3126 QUIT; 3126 QUIT;
@@ -5377,8 +5377,8 @@ send_process (volatile Lisp_Object proc, const char *volatile buf,
5377 sending a multibyte text, thus we must encode it by the 5377 sending a multibyte text, thus we must encode it by the
5378 original coding system specified for the current process. 5378 original coding system specified for the current process.
5379 5379
5380 Another reason we comming here is that the coding system 5380 Another reason we come here is that the coding system
5381 was just complemented and new one was returned by 5381 was just complemented and a new one was returned by
5382 complement_process_encoding_system. */ 5382 complement_process_encoding_system. */
5383 setup_coding_system (p->encode_coding_system, coding); 5383 setup_coding_system (p->encode_coding_system, coding);
5384 Vlast_coding_system_used = p->encode_coding_system; 5384 Vlast_coding_system_used = p->encode_coding_system;
diff --git a/src/ralloc.c b/src/ralloc.c
index 50d322523c1..62189ad8fc7 100644
--- a/src/ralloc.c
+++ b/src/ralloc.c
@@ -219,13 +219,13 @@ find_heap (POINTER address)
219 If enough space is not presently available in our reserve, this means 219 If enough space is not presently available in our reserve, this means
220 getting more page-aligned space from the system. If the returned space 220 getting more page-aligned space from the system. If the returned space
221 is not contiguous to the last heap, allocate a new heap, and append it 221 is not contiguous to the last heap, allocate a new heap, and append it
222 to the heap list.
222 223
223 obtain does not try to keep track of whether space is in use 224 obtain does not try to keep track of whether space is in use or not
224 or not in use. It just returns the address of SIZE bytes that 225 in use. It just returns the address of SIZE bytes that fall within a
225 fall within a single heap. If you call obtain twice in a row 226 single heap. If you call obtain twice in a row with the same arguments,
226 with the same arguments, you typically get the same value. 227 you typically get the same value. It's the caller's responsibility to
227 to the heap list. It's the caller's responsibility to keep 228 keep track of what space is in use.
228 track of what space is in use.
229 229
230 Return the address of the space if all went well, or zero if we couldn't 230 Return the address of the space if all went well, or zero if we couldn't
231 allocate the memory. */ 231 allocate the memory. */
@@ -389,7 +389,7 @@ find_bloc (POINTER *ptr)
389 while (p != NIL_BLOC) 389 while (p != NIL_BLOC)
390 { 390 {
391 /* Consistency check. Don't return inconsistent blocs. 391 /* Consistency check. Don't return inconsistent blocs.
392 Don't abort here, as callers might be expecting this, but 392 Don't abort here, as callers might be expecting this, but
393 callers that always expect a bloc to be returned should abort 393 callers that always expect a bloc to be returned should abort
394 if one isn't to avoid a memory corruption bug that is 394 if one isn't to avoid a memory corruption bug that is
395 difficult to track down. */ 395 difficult to track down. */
@@ -1180,7 +1180,7 @@ r_alloc_reset_variable (POINTER *old, POINTER *new)
1180 1180
1181 /* Find the bloc that corresponds to the data pointed to by pointer. 1181 /* Find the bloc that corresponds to the data pointed to by pointer.
1182 find_bloc cannot be used, as it has internal consistency checks 1182 find_bloc cannot be used, as it has internal consistency checks
1183 which fail when the variable needs reseting. */ 1183 which fail when the variable needs resetting. */
1184 while (bloc != NIL_BLOC) 1184 while (bloc != NIL_BLOC)
1185 { 1185 {
1186 if (bloc->data == *new) 1186 if (bloc->data == *new)
diff --git a/src/regex.c b/src/regex.c
index ccbad58abb3..b7699378f5a 100644
--- a/src/regex.c
+++ b/src/regex.c
@@ -637,7 +637,7 @@ typedef enum
637 on_failure_jump_nastyloop, 637 on_failure_jump_nastyloop,
638 638
639 /* A smart `on_failure_jump' used for greedy * and + operators. 639 /* A smart `on_failure_jump' used for greedy * and + operators.
640 It analyses the loop before which it is put and if the 640 It analyzes the loop before which it is put and if the
641 loop does not require backtracking, it changes itself to 641 loop does not require backtracking, it changes itself to
642 `on_failure_keep_string_jump' and short-circuits the loop, 642 `on_failure_keep_string_jump' and short-circuits the loop,
643 else it just defaults to changing itself into `on_failure_jump'. 643 else it just defaults to changing itself into `on_failure_jump'.
diff --git a/src/regex.h b/src/regex.h
index 7747ec57629..eba62f2e769 100644
--- a/src/regex.h
+++ b/src/regex.h
@@ -415,7 +415,7 @@ struct re_pattern_buffer
415typedef struct re_pattern_buffer regex_t; 415typedef struct re_pattern_buffer regex_t;
416 416
417/* Type for byte offsets within the string. POSIX mandates this to be an int, 417/* Type for byte offsets within the string. POSIX mandates this to be an int,
418 but the Open Group has signalled its intention to change the requirement to 418 but the Open Group has signaled its intention to change the requirement to
419 be that regoff_t be at least as wide as ptrdiff_t and ssize_t. Current 419 be that regoff_t be at least as wide as ptrdiff_t and ssize_t. Current
420 gnulib sources also use ssize_t, and we need this for supporting buffers and 420 gnulib sources also use ssize_t, and we need this for supporting buffers and
421 strings > 2GB on 64-bit hosts. */ 421 strings > 2GB on 64-bit hosts. */
diff --git a/src/s/hpux10-20.h b/src/s/hpux10-20.h
index 1cd91a41b55..37199bcc29b 100644
--- a/src/s/hpux10-20.h
+++ b/src/s/hpux10-20.h
@@ -89,7 +89,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
89#undef HAVE_RANDOM 89#undef HAVE_RANDOM
90 90
91 91
92/* Rainer Malzbender <rainer@displaytech.com> says definining 92/* Rainer Malzbender <rainer@displaytech.com> says defining
93 HAVE_XRMSETDATABASE allows Emacs to compile on HP-UX 10.20 using GCC. */ 93 HAVE_XRMSETDATABASE allows Emacs to compile on HP-UX 10.20 using GCC. */
94#ifndef HAVE_XRMSETDATABASE 94#ifndef HAVE_XRMSETDATABASE
95#define HAVE_XRMSETDATABASE 95#define HAVE_XRMSETDATABASE
diff --git a/src/s/msdos.h b/src/s/msdos.h
index 29ca0629899..9ee13d12867 100644
--- a/src/s/msdos.h
+++ b/src/s/msdos.h
@@ -119,7 +119,7 @@ You lose; /* Emacs for DOS must be compiled with DJGPP */
119#ifdef HAVE_X_WINDOWS 119#ifdef HAVE_X_WINDOWS
120/* We need a little extra space, see ../../lisp/loadup.el and the 120/* We need a little extra space, see ../../lisp/loadup.el and the
121 commentary below, in the non-X branch. The 140KB number was 121 commentary below, in the non-X branch. The 140KB number was
122 measured on GNU/Linux and on MS-WIndows. */ 122 measured on GNU/Linux and on MS-Windows. */
123#define SYSTEM_PURESIZE_EXTRA (-170000+140000) 123#define SYSTEM_PURESIZE_EXTRA (-170000+140000)
124#else 124#else
125/* We need a little extra space, see ../../lisp/loadup.el. 125/* We need a little extra space, see ../../lisp/loadup.el.
@@ -138,4 +138,3 @@ You lose; /* Emacs for DOS must be compiled with DJGPP */
138 registers relevant for conservative garbage collection in the jmp_buf. */ 138 registers relevant for conservative garbage collection in the jmp_buf. */
139#define GC_SETJMP_WORKS 1 139#define GC_SETJMP_WORKS 1
140#define GC_MARK_STACK GC_MAKE_GCPROS_NOOPS 140#define GC_MARK_STACK GC_MAKE_GCPROS_NOOPS
141
diff --git a/src/sound.c b/src/sound.c
index 362c04b7d40..39007574afc 100644
--- a/src/sound.c
+++ b/src/sound.c
@@ -226,7 +226,7 @@ struct sound_device
226 /* Close device SD. */ 226 /* Close device SD. */
227 void (* close) (struct sound_device *sd); 227 void (* close) (struct sound_device *sd);
228 228
229 /* Configure SD accoring to device-dependent parameters. */ 229 /* Configure SD according to device-dependent parameters. */
230 void (* configure) (struct sound_device *device); 230 void (* configure) (struct sound_device *device);
231 231
232 /* Choose a device-dependent format for outputting sound S. */ 232 /* Choose a device-dependent format for outputting sound S. */
diff --git a/src/syssignal.h b/src/syssignal.h
index 7533a5a64fd..315400d8498 100644
--- a/src/syssignal.h
+++ b/src/syssignal.h
@@ -39,7 +39,7 @@ extern sigset_t empty_mask;
39 39
40/* POSIX pretty much destroys any possibility of writing sigmask as a 40/* POSIX pretty much destroys any possibility of writing sigmask as a
41 macro in standard C. We always define our own version because the 41 macro in standard C. We always define our own version because the
42 predefined macro in Glibc 2.1 is only provided for compatility for old 42 predefined macro in Glibc 2.1 is only provided for compatibility for old
43 programs that use int as signal mask type. */ 43 programs that use int as signal mask type. */
44#undef sigmask 44#undef sigmask
45#ifdef __GNUC__ 45#ifdef __GNUC__
diff --git a/src/unexelf.c b/src/unexelf.c
index 979d6dce629..04c029f7e80 100644
--- a/src/unexelf.c
+++ b/src/unexelf.c
@@ -1019,7 +1019,7 @@ temacs:
1019 /* The conditional bit below was in Oliva's original code 1019 /* The conditional bit below was in Oliva's original code
1020 (1999-08-25) and seems to have been dropped by mistake 1020 (1999-08-25) and seems to have been dropped by mistake
1021 subsequently. It prevents a crash at startup under X in 1021 subsequently. It prevents a crash at startup under X in
1022 `IRIX64 6.5 6.5.17m', whether compiled on that relase or 1022 `IRIX64 6.5 6.5.17m', whether compiled on that release or
1023 an earlier one. It causes no trouble on the other ELF 1023 an earlier one. It causes no trouble on the other ELF
1024 platforms I could test (Irix 6.5.15m, Solaris 8, Debian 1024 platforms I could test (Irix 6.5.15m, Solaris 8, Debian
1025 Potato x86, Debian Woody SPARC); however, it's reported 1025 Potato x86, Debian Woody SPARC); however, it's reported
diff --git a/src/w32fns.c b/src/w32fns.c
index 6f32442514a..4a6da46141c 100644
--- a/src/w32fns.c
+++ b/src/w32fns.c
@@ -2088,7 +2088,7 @@ w32_key_to_modifier (int key)
2088 key_mapping = Qnil; 2088 key_mapping = Qnil;
2089 } 2089 }
2090 2090
2091 /* NB. This code runs in the input thread, asychronously to the lisp 2091 /* NB. This code runs in the input thread, asynchronously to the lisp
2092 thread, so we must be careful to ensure access to lisp data is 2092 thread, so we must be careful to ensure access to lisp data is
2093 thread-safe. The following code is safe because the modifier 2093 thread-safe. The following code is safe because the modifier
2094 variable values are updated atomically from lisp and symbols are 2094 variable values are updated atomically from lisp and symbols are
@@ -3986,7 +3986,7 @@ unwind_create_frame (Lisp_Object frame)
3986 struct frame *f = XFRAME (frame); 3986 struct frame *f = XFRAME (frame);
3987 3987
3988 /* If frame is ``official'', nothing to do. */ 3988 /* If frame is ``official'', nothing to do. */
3989 if (!CONSP (Vframe_list) || !EQ (XCAR (Vframe_list), frame)) 3989 if (NILP (Fmemq (frame, Vframe_list)))
3990 { 3990 {
3991#if GLYPH_DEBUG 3991#if GLYPH_DEBUG
3992 struct w32_display_info *dpyinfo = FRAME_W32_DISPLAY_INFO (f); 3992 struct w32_display_info *dpyinfo = FRAME_W32_DISPLAY_INFO (f);
@@ -6709,7 +6709,7 @@ DEFUN ("default-printer-name", Fdefault_printer_name, Sdefault_printer_name,
6709 ClosePrinter (hPrn); 6709 ClosePrinter (hPrn);
6710 return Qnil; 6710 return Qnil;
6711 } 6711 }
6712 /* Call GetPrinter again with big enouth memory block */ 6712 /* Call GetPrinter again with big enough memory block. */
6713 err = GetPrinter (hPrn, 2, (LPBYTE)ppi2, dwNeeded, &dwReturned); 6713 err = GetPrinter (hPrn, 2, (LPBYTE)ppi2, dwNeeded, &dwReturned);
6714 ClosePrinter (hPrn); 6714 ClosePrinter (hPrn);
6715 if (!err) 6715 if (!err)
diff --git a/src/w32font.c b/src/w32font.c
index 26bf4207de5..bd58e7e757b 100644
--- a/src/w32font.c
+++ b/src/w32font.c
@@ -330,7 +330,7 @@ w32font_list (Lisp_Object frame, Lisp_Object font_spec)
330 330
331/* w32 implementation of match for font backend. 331/* w32 implementation of match for font backend.
332 Return a font entity most closely matching with FONT_SPEC on 332 Return a font entity most closely matching with FONT_SPEC on
333 FRAME. The closeness is detemined by the font backend, thus 333 FRAME. The closeness is determined by the font backend, thus
334 `face-font-selection-order' is ignored here. */ 334 `face-font-selection-order' is ignored here. */
335static Lisp_Object 335static Lisp_Object
336w32font_match (Lisp_Object frame, Lisp_Object font_spec) 336w32font_match (Lisp_Object frame, Lisp_Object font_spec)
@@ -1284,8 +1284,8 @@ font_matches_spec (DWORD type, NEWTEXTMETRICEX *font,
1284 { 1284 {
1285 /* Only truetype fonts will have information about what 1285 /* Only truetype fonts will have information about what
1286 scripts they support. This probably means the user 1286 scripts they support. This probably means the user
1287 will have to force Emacs to use raster, postscript 1287 will have to force Emacs to use raster, PostScript
1288 or atm fonts for non-ASCII text. */ 1288 or ATM fonts for non-ASCII text. */
1289 if (type & TRUETYPE_FONTTYPE) 1289 if (type & TRUETYPE_FONTTYPE)
1290 { 1290 {
1291 Lisp_Object support 1291 Lisp_Object support
@@ -1464,7 +1464,7 @@ check_face_name (LOGFONT *font, char *full_name)
1464 /* Helvetica is mapped to Arial in Windows, but if a Type-1 Helvetica is 1464 /* Helvetica is mapped to Arial in Windows, but if a Type-1 Helvetica is
1465 installed, we run into problems with the Uniscribe backend which tries 1465 installed, we run into problems with the Uniscribe backend which tries
1466 to avoid non-truetype fonts, and ends up mixing the Type-1 Helvetica 1466 to avoid non-truetype fonts, and ends up mixing the Type-1 Helvetica
1467 with Arial's characteristics, since that attempt to use Truetype works 1467 with Arial's characteristics, since that attempt to use TrueType works
1468 some places, but not others. */ 1468 some places, but not others. */
1469 if (!xstrcasecmp (font->lfFaceName, "helvetica")) 1469 if (!xstrcasecmp (font->lfFaceName, "helvetica"))
1470 { 1470 {
@@ -1492,7 +1492,7 @@ check_face_name (LOGFONT *font, char *full_name)
1492 1492
1493 1493
1494/* Callback function for EnumFontFamiliesEx. 1494/* Callback function for EnumFontFamiliesEx.
1495 * Checks if a font matches everything we are trying to check agaist, 1495 * Checks if a font matches everything we are trying to check against,
1496 * and if so, adds it to a list. Both the data we are checking against 1496 * and if so, adds it to a list. Both the data we are checking against
1497 * and the list to which the fonts are added are passed in via the 1497 * and the list to which the fonts are added are passed in via the
1498 * lparam argument, in the form of a font_callback_data struct. */ 1498 * lparam argument, in the form of a font_callback_data struct. */
@@ -2221,7 +2221,7 @@ font_supported_scripts (FONTSIGNATURE * sig)
2221 so don't need to mark them separately. */ 2221 so don't need to mark them separately. */
2222 /* 1: Latin-1 supplement, 2: Latin Extended A, 3: Latin Extended B. */ 2222 /* 1: Latin-1 supplement, 2: Latin Extended A, 3: Latin Extended B. */
2223 SUBRANGE (4, Qphonetic); 2223 SUBRANGE (4, Qphonetic);
2224 /* 5: Spacing and tone modifiers, 6: Combining Diacriticals. */ 2224 /* 5: Spacing and tone modifiers, 6: Combining Diacritical Marks. */
2225 SUBRANGE (7, Qgreek); 2225 SUBRANGE (7, Qgreek);
2226 SUBRANGE (8, Qcoptic); 2226 SUBRANGE (8, Qcoptic);
2227 SUBRANGE (9, Qcyrillic); 2227 SUBRANGE (9, Qcyrillic);
@@ -2311,7 +2311,7 @@ font_supported_scripts (FONTSIGNATURE * sig)
2311 /* 115: Saurashtra, 116: Kayah Li, 117: Rejang. */ 2311 /* 115: Saurashtra, 116: Kayah Li, 117: Rejang. */
2312 SUBRANGE (118, Qcham); 2312 SUBRANGE (118, Qcham);
2313 /* 119: Ancient symbols, 120: Phaistos Disc. */ 2313 /* 119: Ancient symbols, 120: Phaistos Disc. */
2314 /* 121: Carian, Lycian, Lydian, 122: Dominos, Mah Jong tiles. */ 2314 /* 121: Carian, Lycian, Lydian, 122: Dominoes, Mahjong tiles. */
2315 /* 123-127: Reserved. */ 2315 /* 123-127: Reserved. */
2316 2316
2317 /* There isn't really a main symbol range, so include symbol if any 2317 /* There isn't really a main symbol range, so include symbol if any
diff --git a/src/w32font.h b/src/w32font.h
index 45c06897195..f77866b869f 100644
--- a/src/w32font.h
+++ b/src/w32font.h
@@ -20,8 +20,8 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
20#define EMACS_W32FONT_H 20#define EMACS_W32FONT_H
21 21
22 22
23/* Bit 17 of ntmFlags in NEWTEXTMETRIC is set for Postscript OpenType fonts, 23/* Bit 17 of ntmFlags in NEWTEXTMETRIC is set for PostScript OpenType fonts,
24 bit 18 for Truetype OpenType fonts, bit 20 for Type1 fonts. */ 24 bit 18 for TrueType OpenType fonts, bit 20 for Type1 fonts. */
25#ifndef NTM_PS_OPENTYPE 25#ifndef NTM_PS_OPENTYPE
26#define NTM_PS_OPENTYPE 0x00020000 26#define NTM_PS_OPENTYPE 0x00020000
27#endif 27#endif
@@ -84,4 +84,3 @@ int uniscribe_check_otf (LOGFONT *font, Lisp_Object otf_spec);
84Lisp_Object intern_font_name (char *); 84Lisp_Object intern_font_name (char *);
85 85
86#endif 86#endif
87
diff --git a/src/w32menu.c b/src/w32menu.c
index c31a8c1fd96..39d101e7bd5 100644
--- a/src/w32menu.c
+++ b/src/w32menu.c
@@ -1443,7 +1443,7 @@ add_menu_item (HMENU menu, widget_value *wv, HMENU item)
1443 out_string = (char *) local_alloc (strlen (wv->name) + 1); 1443 out_string = (char *) local_alloc (strlen (wv->name) + 1);
1444 strcpy (out_string, wv->name); 1444 strcpy (out_string, wv->name);
1445#ifdef MENU_DEBUG 1445#ifdef MENU_DEBUG
1446 DebPrint ("Menu: allocing %ld for owner-draw", out_string); 1446 DebPrint ("Menu: allocating %ld for owner-draw", out_string);
1447#endif 1447#endif
1448 fuFlags = MF_OWNERDRAW | MF_DISABLED; 1448 fuFlags = MF_OWNERDRAW | MF_DISABLED;
1449 } 1449 }
diff --git a/src/w32proc.c b/src/w32proc.c
index 47cbf57d9ea..279816bcc3e 100644
--- a/src/w32proc.c
+++ b/src/w32proc.c
@@ -174,7 +174,7 @@ delete_child (child_process *cp)
174 cp->status = STATUS_READ_ERROR; 174 cp->status = STATUS_READ_ERROR;
175 SetEvent (cp->char_consumed); 175 SetEvent (cp->char_consumed);
176#if 0 176#if 0
177 /* We used to forceably terminate the thread here, but it 177 /* We used to forcibly terminate the thread here, but it
178 is normally unnecessary, and in abnormal cases, the worst that 178 is normally unnecessary, and in abnormal cases, the worst that
179 will happen is we have an extra idle thread hanging around 179 will happen is we have an extra idle thread hanging around
180 waiting for the zombie process. */ 180 waiting for the zombie process. */
@@ -241,7 +241,8 @@ reader_thread (void *arg)
241 241
242 /* We have to wait for the go-ahead before we can start */ 242 /* We have to wait for the go-ahead before we can start */
243 if (cp == NULL 243 if (cp == NULL
244 || WaitForSingleObject (cp->char_consumed, INFINITE) != WAIT_OBJECT_0) 244 || WaitForSingleObject (cp->char_consumed, INFINITE) != WAIT_OBJECT_0
245 || cp->fd < 0)
245 return 1; 246 return 1;
246 247
247 for (;;) 248 for (;;)
@@ -2295,7 +2296,7 @@ filesystems via ange-ftp. */);
2295 doc: /* Non-nil means attempt to fake realistic inode values. 2296 doc: /* Non-nil means attempt to fake realistic inode values.
2296This works by hashing the truename of files, and should detect 2297This works by hashing the truename of files, and should detect
2297aliasing between long and short (8.3 DOS) names, but can have 2298aliasing between long and short (8.3 DOS) names, but can have
2298false positives because of hash collisions. Note that determing 2299false positives because of hash collisions. Note that determining
2299the truename of a file can be slow. */); 2300the truename of a file can be slow. */);
2300 Vw32_generate_fake_inodes = Qnil; 2301 Vw32_generate_fake_inodes = Qnil;
2301#endif 2302#endif
@@ -2319,4 +2320,3 @@ where the performance impact may be noticeable even on modern hardware. */);
2319 staticpro (&Vw32_valid_codepages); 2320 staticpro (&Vw32_valid_codepages);
2320} 2321}
2321/* end of w32proc.c */ 2322/* end of w32proc.c */
2322
diff --git a/src/w32term.c b/src/w32term.c
index f876cff0363..e9fa16ba325 100644
--- a/src/w32term.c
+++ b/src/w32term.c
@@ -3287,7 +3287,7 @@ w32_mouse_position (FRAME_PTR *fp, int insist, Lisp_Object *bar_window,
3287 3287
3288/* Handle mouse button event on the tool-bar of frame F, at 3288/* Handle mouse button event on the tool-bar of frame F, at
3289 frame-relative coordinates X/Y. EVENT_TYPE is either ButtionPress 3289 frame-relative coordinates X/Y. EVENT_TYPE is either ButtionPress
3290 or ButtonRelase. */ 3290 or ButtonRelease. */
3291 3291
3292static void 3292static void
3293w32_handle_tool_bar_click (struct frame *f, struct input_event *button_event) 3293w32_handle_tool_bar_click (struct frame *f, struct input_event *button_event)
@@ -5691,7 +5691,7 @@ x_make_frame_visible (struct frame *f)
5691 f->output_data.w32->asked_for_visible = 1; 5691 f->output_data.w32->asked_for_visible = 1;
5692 5692
5693 /* According to a report in emacs-devel 2008-06-03, SW_SHOWNORMAL 5693 /* According to a report in emacs-devel 2008-06-03, SW_SHOWNORMAL
5694 causes unexpected behaviour when unminimizing frames that were 5694 causes unexpected behavior when unminimizing frames that were
5695 previously maximised. But only SW_SHOWNORMAL works properly for 5695 previously maximised. But only SW_SHOWNORMAL works properly for
5696 frames that were truely hidden (using make-frame-invisible), so 5696 frames that were truely hidden (using make-frame-invisible), so
5697 we need it to avoid Bug#5482. It seems that async_iconified 5697 we need it to avoid Bug#5482. It seems that async_iconified
diff --git a/src/w32term.h b/src/w32term.h
index 710394583e4..02392133837 100644
--- a/src/w32term.h
+++ b/src/w32term.h
@@ -637,7 +637,7 @@ extern void x_delete_display (struct w32_display_info *dpyinfo);
637 637
638/* Keypad command key support. W32 doesn't have virtual keys defined 638/* Keypad command key support. W32 doesn't have virtual keys defined
639 for the function keys on the keypad (they are mapped to the standard 639 for the function keys on the keypad (they are mapped to the standard
640 fuction keys), so we define our own. */ 640 function keys), so we define our own. */
641#define VK_NUMPAD_BEGIN 0x92 641#define VK_NUMPAD_BEGIN 0x92
642#define VK_NUMPAD_CLEAR (VK_NUMPAD_BEGIN + 0) 642#define VK_NUMPAD_CLEAR (VK_NUMPAD_BEGIN + 0)
643#define VK_NUMPAD_ENTER (VK_NUMPAD_BEGIN + 1) 643#define VK_NUMPAD_ENTER (VK_NUMPAD_BEGIN + 1)
diff --git a/src/w32uniscribe.c b/src/w32uniscribe.c
index f6347bb88f7..36197b3b28a 100644
--- a/src/w32uniscribe.c
+++ b/src/w32uniscribe.c
@@ -507,7 +507,7 @@ uniscribe_encode_char (struct font *font, int c)
507 if (SUCCEEDED (result) && nglyphs == 1) 507 if (SUCCEEDED (result) && nglyphs == 1)
508 { 508 {
509 /* Some fonts return .notdef glyphs instead of failing. 509 /* Some fonts return .notdef glyphs instead of failing.
510 (Truetype spec reserves glyph code 0 for .notdef) */ 510 (TrueType spec reserves glyph code 0 for .notdef) */
511 if (glyphs[0]) 511 if (glyphs[0])
512 code = glyphs[0]; 512 code = glyphs[0];
513 } 513 }
@@ -961,4 +961,3 @@ syms_of_w32uniscribe (void)
961 961
962 register_font_driver (&uniscribe_font_driver, NULL); 962 register_font_driver (&uniscribe_font_driver, NULL);
963} 963}
964
diff --git a/src/window.c b/src/window.c
index b21671b4153..a7daa1353bd 100644
--- a/src/window.c
+++ b/src/window.c
@@ -467,67 +467,33 @@ Return nil if WINDOW has no previous sibling. */)
467 return decode_any_window (window)->prev; 467 return decode_any_window (window)->prev;
468} 468}
469 469
470DEFUN ("window-splits", Fwindow_splits, Swindow_splits, 0, 1, 0, 470DEFUN ("window-combination-limit", Fwindow_combination_limit, Swindow_combination_limit, 0, 1, 0,
471 doc: /* Return splits status for the window WINDOW. 471 doc: /* Return combination limit of window WINDOW.
472If WINDOW is omitted or nil, it defaults to the selected window.
473
474If the value returned by this function is nil and WINDOW is resized, the
475corresponding space is preferably taken from (or given to) WINDOW's
476right sibling. When WINDOW is deleted, its space is given to its left
477sibling.
478
479If the value returned by this function is non-nil, resizing and deleting
480WINDOW may resize all windows in the same combination. */)
481 (Lisp_Object window)
482{
483 return decode_any_window (window)->splits;
484}
485
486DEFUN ("set-window-splits", Fset_window_splits, Sset_window_splits, 2, 2, 0,
487 doc: /* Set splits status of window WINDOW to STATUS.
488If WINDOW is omitted or nil, it defaults to the selected window.
489
490If STATUS is nil and WINDOW is later resized, the corresponding space is
491preferably taken from (or given to) WINDOW's right sibling. When WINDOW
492is deleted, its space is given to its left sibling.
493
494If STATUS is non-nil, resizing and deleting WINDOW may resize all
495windows in the same combination. */)
496 (Lisp_Object window, Lisp_Object status)
497{
498 register struct window *w = decode_any_window (window);
499
500 w->splits = status;
501
502 return w->splits;
503}
504
505DEFUN ("window-nest", Fwindow_nest, Swindow_nest, 0, 1, 0,
506 doc: /* Return nest status of window WINDOW.
507If WINDOW is omitted or nil, it defaults to the selected window. 472If WINDOW is omitted or nil, it defaults to the selected window.
508 473
509If the return value is nil, child windows of WINDOW can be recombined with 474If the return value is nil, child windows of WINDOW can be recombined with
510WINDOW's siblings. A return value of non-nil means that child windows of 475WINDOW's siblings. A return value of t means that child windows of
511WINDOW are never \(re-)combined with WINDOW's siblings. */) 476WINDOW are never \(re-)combined with WINDOW's siblings. */)
512 (Lisp_Object window) 477 (Lisp_Object window)
513{ 478{
514 return decode_any_window (window)->nest; 479 return decode_any_window (window)->combination_limit;
515} 480}
516 481
517DEFUN ("set-window-nest", Fset_window_nest, Sset_window_nest, 2, 2, 0, 482DEFUN ("set-window-combination-limit", Fset_window_combination_limit, Sset_window_combination_limit, 2, 2, 0,
518 doc: /* Set nest status of window WINDOW to STATUS; return STATUS. 483 doc: /* Set combination limit of window WINDOW to STATUS; return STATUS.
519If WINDOW is omitted or nil, it defaults to the selected window. 484If WINDOW is omitted or nil, it defaults to the selected window.
520 485
521If STATUS is nil, child windows of WINDOW can be recombined with WINDOW's 486If STATUS is nil, child windows of WINDOW can be recombined with
522siblings. STATUS non-nil means that child windows of WINDOW are never 487WINDOW's siblings. STATUS t means that child windows of WINDOW are
523\(re-)combined with WINDOW's siblings. */) 488never \(re-)combined with WINDOW's siblings. Other values are reserved
489for future use. */)
524 (Lisp_Object window, Lisp_Object status) 490 (Lisp_Object window, Lisp_Object status)
525{ 491{
526 register struct window *w = decode_any_window (window); 492 register struct window *w = decode_any_window (window);
527 493
528 w->nest = status; 494 w->combination_limit = status;
529 495
530 return w->nest; 496 return w->combination_limit;
531} 497}
532 498
533DEFUN ("window-use-time", Fwindow_use_time, Swindow_use_time, 0, 1, 0, 499DEFUN ("window-use-time", Fwindow_use_time, Swindow_use_time, 0, 1, 0,
@@ -861,7 +827,7 @@ The inside edges do not include the space used by the WINDOW's scroll
861bar, display margins, fringes, header line, and/or mode line. */) 827bar, display margins, fringes, header line, and/or mode line. */)
862 (Lisp_Object window) 828 (Lisp_Object window)
863{ 829{
864 register struct window *w = decode_any_window (window); 830 register struct window *w = decode_window (window);
865 831
866 return list4 (make_number (WINDOW_BOX_LEFT_EDGE_COL (w) 832 return list4 (make_number (WINDOW_BOX_LEFT_EDGE_COL (w)
867 + WINDOW_LEFT_MARGIN_COLS (w) 833 + WINDOW_LEFT_MARGIN_COLS (w)
@@ -876,9 +842,9 @@ bar, display margins, fringes, header line, and/or mode line. */)
876} 842}
877 843
878DEFUN ("window-inside-pixel-edges", Fwindow_inside_pixel_edges, Swindow_inside_pixel_edges, 0, 1, 0, 844DEFUN ("window-inside-pixel-edges", Fwindow_inside_pixel_edges, Swindow_inside_pixel_edges, 0, 1, 0,
879 doc: /* Return a list of the edge pixel coordinates of WINDOW. 845 doc: /* Return a list of the edge pixel coordinates of WINDOW's text area.
880The list has the form (LEFT TOP RIGHT BOTTOM), all relative to 0, 0 at 846The list has the form (LEFT TOP RIGHT BOTTOM), all relative to (0,0)
881the top left corner of the frame. 847at the top left corner of the frame's window area.
882 848
883RIGHT is one more than the rightmost x position of WINDOW's text area. 849RIGHT is one more than the rightmost x position of WINDOW's text area.
884BOTTOM is one more than the bottommost y position of WINDOW's text area. 850BOTTOM is one more than the bottommost y position of WINDOW's text area.
@@ -886,7 +852,7 @@ The inside edges do not include the space used by WINDOW's scroll bar,
886display margins, fringes, header line, and/or mode line. */) 852display margins, fringes, header line, and/or mode line. */)
887 (Lisp_Object window) 853 (Lisp_Object window)
888{ 854{
889 register struct window *w = decode_any_window (window); 855 register struct window *w = decode_window (window);
890 856
891 return list4 (make_number (WINDOW_BOX_LEFT_EDGE_X (w) 857 return list4 (make_number (WINDOW_BOX_LEFT_EDGE_X (w)
892 + WINDOW_LEFT_MARGIN_WIDTH (w) 858 + WINDOW_LEFT_MARGIN_WIDTH (w)
@@ -903,9 +869,9 @@ display margins, fringes, header line, and/or mode line. */)
903DEFUN ("window-inside-absolute-pixel-edges", 869DEFUN ("window-inside-absolute-pixel-edges",
904 Fwindow_inside_absolute_pixel_edges, 870 Fwindow_inside_absolute_pixel_edges,
905 Swindow_inside_absolute_pixel_edges, 0, 1, 0, 871 Swindow_inside_absolute_pixel_edges, 0, 1, 0,
906 doc: /* Return a list of the edge pixel coordinates of WINDOW. 872 doc: /* Return a list of the edge pixel coordinates of WINDOW's text area.
907The list has the form (LEFT TOP RIGHT BOTTOM), all relative to 0, 0 at 873The list has the form (LEFT TOP RIGHT BOTTOM), all relative to (0,0)
908the top left corner of the display. 874at the top left corner of the frame's window area.
909 875
910RIGHT is one more than the rightmost x position of WINDOW's text area. 876RIGHT is one more than the rightmost x position of WINDOW's text area.
911BOTTOM is one more than the bottommost y position of WINDOW's text area. 877BOTTOM is one more than the bottommost y position of WINDOW's text area.
@@ -913,7 +879,7 @@ The inside edges do not include the space used by WINDOW's scroll bar,
913display margins, fringes, header line, and/or mode line. */) 879display margins, fringes, header line, and/or mode line. */)
914 (Lisp_Object window) 880 (Lisp_Object window)
915{ 881{
916 register struct window *w = decode_any_window (window); 882 register struct window *w = decode_window (window);
917 int add_x, add_y; 883 int add_x, add_y;
918 calc_absolute_offset (w, &add_x, &add_y); 884 calc_absolute_offset (w, &add_x, &add_y);
919 885
@@ -1916,7 +1882,7 @@ recombine_windows (Lisp_Object window)
1916 1882
1917 w = XWINDOW (window); 1883 w = XWINDOW (window);
1918 parent = w->parent; 1884 parent = w->parent;
1919 if (!NILP (parent) && NILP (w->nest)) 1885 if (!NILP (parent) && NILP (w->combination_limit))
1920 { 1886 {
1921 p = XWINDOW (parent); 1887 p = XWINDOW (parent);
1922 if (((!NILP (p->vchild) && !NILP (w->vchild)) 1888 if (((!NILP (p->vchild) && !NILP (w->vchild))
@@ -2381,7 +2347,7 @@ Anything else means consider all windows on WINDOW's frame and no
2381others. 2347others.
2382 2348
2383If WINDOW is not on the list of windows returned, some other window will 2349If WINDOW is not on the list of windows returned, some other window will
2384be listed first but no error is signalled. */) 2350be listed first but no error is signaled. */)
2385 (Lisp_Object window, Lisp_Object minibuf, Lisp_Object all_frames) 2351 (Lisp_Object window, Lisp_Object minibuf, Lisp_Object all_frames)
2386{ 2352{
2387 return window_list_1 (window, minibuf, all_frames); 2353 return window_list_1 (window, minibuf, all_frames);
@@ -2771,9 +2737,6 @@ window-start value is reasonable when this function is called. */)
2771 2737
2772 replace_window (root, window, 1); 2738 replace_window (root, window, 1);
2773 2739
2774 /* Reset WINDOW's splits status. */
2775 w->splits = Qnil;
2776
2777 /* This must become SWINDOW anyway ....... */ 2740 /* This must become SWINDOW anyway ....... */
2778 if (!NILP (w->buffer) && !resize_failed) 2741 if (!NILP (w->buffer) && !resize_failed)
2779 { 2742 {
@@ -3288,8 +3251,7 @@ make_parent_window (Lisp_Object window, int horflag)
3288 p->start = Qnil; 3251 p->start = Qnil;
3289 p->pointm = Qnil; 3252 p->pointm = Qnil;
3290 p->buffer = Qnil; 3253 p->buffer = Qnil;
3291 p->splits = Qnil; 3254 p->combination_limit = Qnil;
3292 p->nest = Qnil;
3293 p->window_parameters = Qnil; 3255 p->window_parameters = Qnil;
3294} 3256}
3295 3257
@@ -3336,7 +3298,7 @@ make_window (void)
3336 w->start_at_line_beg = w->display_table = w->dedicated = Qnil; 3298 w->start_at_line_beg = w->display_table = w->dedicated = Qnil;
3337 w->base_line_number = w->base_line_pos = w->region_showing = Qnil; 3299 w->base_line_number = w->base_line_pos = w->region_showing = Qnil;
3338 w->column_number_displayed = w->redisplay_end_trigger = Qnil; 3300 w->column_number_displayed = w->redisplay_end_trigger = Qnil;
3339 w->splits = w->nest = w->window_parameters = Qnil; 3301 w->combination_limit = w->window_parameters = Qnil;
3340 w->prev_buffers = w->next_buffers = Qnil; 3302 w->prev_buffers = w->next_buffers = Qnil;
3341 /* Initialize non-Lisp data. */ 3303 /* Initialize non-Lisp data. */
3342 w->desired_matrix = w->current_matrix = 0; 3304 w->desired_matrix = w->current_matrix = 0;
@@ -3709,7 +3671,7 @@ set correctly. See the code of `split-window' for how this is done. */)
3709 int horflag 3671 int horflag
3710 /* HORFLAG is 1 when we split side-by-side, 0 otherwise. */ 3672 /* HORFLAG is 1 when we split side-by-side, 0 otherwise. */
3711 = EQ (side, Qt) || EQ (side, Qleft) || EQ (side, Qright); 3673 = EQ (side, Qt) || EQ (side, Qleft) || EQ (side, Qright);
3712 int do_nest = 0; 3674 int combination_limit = 0;
3713 3675
3714 CHECK_WINDOW (old); 3676 CHECK_WINDOW (old);
3715 o = XWINDOW (old); 3677 o = XWINDOW (old);
@@ -3718,11 +3680,11 @@ set correctly. See the code of `split-window' for how this is done. */)
3718 3680
3719 CHECK_NUMBER (total_size); 3681 CHECK_NUMBER (total_size);
3720 3682
3721 /* Set do_nest to 1 if we have to make a new parent window. We do 3683 /* Set combination_limit to 1 if we have to make a new parent window.
3722 that if either `window-nest' is non-nil, or OLD has no parent, or 3684 We do that if either `window-combination-limit' is t, or OLD has no
3723 OLD is ortho-combined. */ 3685 parent, or OLD is ortho-combined. */
3724 do_nest = 3686 combination_limit =
3725 !NILP (Vwindow_nest) 3687 !NILP (Vwindow_combination_limit)
3726 || NILP (o->parent) 3688 || NILP (o->parent)
3727 || NILP (horflag 3689 || NILP (horflag
3728 ? (XWINDOW (o->parent)->hchild) 3690 ? (XWINDOW (o->parent)->hchild)
@@ -3742,8 +3704,8 @@ set correctly. See the code of `split-window' for how this is done. */)
3742 error ("Attempt to split minibuffer window"); 3704 error ("Attempt to split minibuffer window");
3743 else if (XINT (total_size) < (horflag ? 2 : 1)) 3705 else if (XINT (total_size) < (horflag ? 2 : 1))
3744 error ("Size of new window too small (after split)"); 3706 error ("Size of new window too small (after split)");
3745 else if (!do_nest && !NILP (Vwindow_splits)) 3707 else if (!combination_limit && !NILP (Vwindow_combination_resize))
3746 /* `window-splits' non-nil means try to resize OLD's siblings 3708 /* `window-combination-resize' non-nil means try to resize OLD's siblings
3747 proportionally. */ 3709 proportionally. */
3748 { 3710 {
3749 p = XWINDOW (o->parent); 3711 p = XWINDOW (o->parent);
@@ -3767,7 +3729,7 @@ set correctly. See the code of `split-window' for how this is done. */)
3767 } 3729 }
3768 3730
3769 /* This is our point of no return. */ 3731 /* This is our point of no return. */
3770 if (do_nest) 3732 if (combination_limit)
3771 { 3733 {
3772 /* Save the old value of o->normal_cols/lines. It gets corrupted 3734 /* Save the old value of o->normal_cols/lines. It gets corrupted
3773 by make_parent_window and we need it below for assigning it to 3735 by make_parent_window and we need it below for assigning it to
@@ -3776,12 +3738,9 @@ set correctly. See the code of `split-window' for how this is done. */)
3776 3738
3777 make_parent_window (old, horflag); 3739 make_parent_window (old, horflag);
3778 p = XWINDOW (o->parent); 3740 p = XWINDOW (o->parent);
3779 /* Store value of `window-nest' in new parent's nest slot. */ 3741 /* Store value of `window-combination-limit' in new parent's
3780 p->nest = Vwindow_nest; 3742 combination_limit slot. */
3781 /* Have PARENT inherit splits slot value from OLD. */ 3743 p->combination_limit = Vwindow_combination_limit;
3782 p->splits = o->splits;
3783 /* Store value of `window-splits' in OLD's splits slot. */
3784 o->splits = Vwindow_splits;
3785 /* These get applied below. */ 3744 /* These get applied below. */
3786 p->new_total = horflag ? o->total_cols : o->total_lines; 3745 p->new_total = horflag ? o->total_cols : o->total_lines;
3787 p->new_normal = new_normal; 3746 p->new_normal = new_normal;
@@ -3832,9 +3791,6 @@ set correctly. See the code of `split-window' for how this is done. */)
3832 n->scroll_bar_width = r->scroll_bar_width; 3791 n->scroll_bar_width = r->scroll_bar_width;
3833 n->vertical_scroll_bar_type = r->vertical_scroll_bar_type; 3792 n->vertical_scroll_bar_type = r->vertical_scroll_bar_type;
3834 3793
3835 /* Store `window-splits' in NEW's splits slot. */
3836 n->splits = Vwindow_splits;
3837
3838 /* Directly assign orthogonal coordinates and sizes. */ 3794 /* Directly assign orthogonal coordinates and sizes. */
3839 if (horflag) 3795 if (horflag)
3840 { 3796 {
@@ -3974,10 +3930,9 @@ Signal an error when WINDOW is the only window on its frame. */)
3974 /* Put SIBLING into PARENT's place. */ 3930 /* Put SIBLING into PARENT's place. */
3975 replace_window (parent, sibling, 0); 3931 replace_window (parent, sibling, 0);
3976 /* Have SIBLING inherit the following three slot values from 3932 /* Have SIBLING inherit the following three slot values from
3977 PARENT (the nest slot is not inherited). */ 3933 PARENT (the combination_limit slot is not inherited). */
3978 s->normal_cols = p->normal_cols; 3934 s->normal_cols = p->normal_cols;
3979 s->normal_lines = p->normal_lines; 3935 s->normal_lines = p->normal_lines;
3980 s->splits = p->splits;
3981 /* Mark PARENT as deleted. */ 3936 /* Mark PARENT as deleted. */
3982 p->vchild = p->hchild = Qnil; 3937 p->vchild = p->hchild = Qnil;
3983 /* Try to merge SIBLING into its new parent. */ 3938 /* Try to merge SIBLING into its new parent. */
@@ -5364,7 +5319,7 @@ struct saved_window
5364 Lisp_Object left_margin_cols, right_margin_cols; 5319 Lisp_Object left_margin_cols, right_margin_cols;
5365 Lisp_Object left_fringe_width, right_fringe_width, fringes_outside_margins; 5320 Lisp_Object left_fringe_width, right_fringe_width, fringes_outside_margins;
5366 Lisp_Object scroll_bar_width, vertical_scroll_bar_type, dedicated; 5321 Lisp_Object scroll_bar_width, vertical_scroll_bar_type, dedicated;
5367 Lisp_Object splits, nest, window_parameters; 5322 Lisp_Object combination_limit, window_parameters;
5368}; 5323};
5369 5324
5370#define SAVED_WINDOW_N(swv,n) \ 5325#define SAVED_WINDOW_N(swv,n) \
@@ -5595,8 +5550,7 @@ the return value is nil. Otherwise the value is t. */)
5595 w->scroll_bar_width = p->scroll_bar_width; 5550 w->scroll_bar_width = p->scroll_bar_width;
5596 w->vertical_scroll_bar_type = p->vertical_scroll_bar_type; 5551 w->vertical_scroll_bar_type = p->vertical_scroll_bar_type;
5597 w->dedicated = p->dedicated; 5552 w->dedicated = p->dedicated;
5598 w->splits = p->splits; 5553 w->combination_limit = p->combination_limit;
5599 w->nest = p->nest;
5600 w->window_parameters = p->window_parameters; 5554 w->window_parameters = p->window_parameters;
5601 XSETFASTINT (w->last_modified, 0); 5555 XSETFASTINT (w->last_modified, 0);
5602 XSETFASTINT (w->last_overlay_modified, 0); 5556 XSETFASTINT (w->last_overlay_modified, 0);
@@ -5874,8 +5828,7 @@ save_window_save (Lisp_Object window, struct Lisp_Vector *vector, int i)
5874 p->scroll_bar_width = w->scroll_bar_width; 5828 p->scroll_bar_width = w->scroll_bar_width;
5875 p->vertical_scroll_bar_type = w->vertical_scroll_bar_type; 5829 p->vertical_scroll_bar_type = w->vertical_scroll_bar_type;
5876 p->dedicated = w->dedicated; 5830 p->dedicated = w->dedicated;
5877 p->splits = w->splits; 5831 p->combination_limit = w->combination_limit;
5878 p->nest = w->nest;
5879 p->window_parameters = w->window_parameters; 5832 p->window_parameters = w->window_parameters;
5880 if (!NILP (w->buffer)) 5833 if (!NILP (w->buffer))
5881 { 5834 {
@@ -6338,7 +6291,8 @@ freeze_window_starts (struct frame *f, int freeze_p)
6338 and the like. 6291 and the like.
6339 6292
6340 This ignores a couple of things like the dedicatedness status of 6293 This ignores a couple of things like the dedicatedness status of
6341 window, splits, nest and the like. This might have to be fixed. */ 6294 window, combination_limit and the like. This might have to be
6295 fixed. */
6342 6296
6343int 6297int
6344compare_window_configurations (Lisp_Object configuration1, Lisp_Object configuration2, int ignore_positions) 6298compare_window_configurations (Lisp_Object configuration1, Lisp_Object configuration2, int ignore_positions)
@@ -6542,41 +6496,39 @@ will redraw the entire frame; the special value `tty' causes the
6542frame to be redrawn only if it is a tty frame. */); 6496frame to be redrawn only if it is a tty frame. */);
6543 Vrecenter_redisplay = Qtty; 6497 Vrecenter_redisplay = Qtty;
6544 6498
6545 DEFVAR_LISP ("window-splits", Vwindow_splits, 6499 DEFVAR_LISP ("window-combination-resize", Vwindow_combination_resize,
6546 doc: /* Non-nil means splitting windows is handled specially. 6500 doc: /* Non-nil means resize window combinations proportionally.
6547If this variable is nil, splitting a window gets the entire screen space 6501If this variable is nil, splitting a window gets the entire screen space
6548for displaying the new window from the window to split. If this 6502for displaying the new window from the window to split. Deleting and
6549variable is non-nil, splitting a window may resize all windows in the 6503resizing a window preferably resizes one adjacent window only.
6550same combination. This also allows to split a window that is otherwise 6504
6551too small or of fixed size. 6505If this variable is non-nil, splitting a window tries to get the space
6552 6506proportionally from all windows in the same combination. This also
6553The value of this variable is also assigned to the split status of the 6507allows to split a window that is otherwise too small or of fixed size.
6554new window and, provided the old and new window form a new combination, 6508Resizing and deleting a window proportionally resize all windows in the
6555to the window that was split as well. The split status of a window can 6509same combination.
6556be retrieved with the function `window-splits' and altered by the 6510
6557function `set-window-splits'. 6511This variable takes no effect if `window-combination-limit' is non-nil. */);
6558 6512 Vwindow_combination_resize = Qnil;
6559If the value of the variable `window-nest' is non-nil, the space for the 6513
6560new window is exclusively taken from the window that shall be split, but 6514 DEFVAR_LISP ("window-combination-limit", Vwindow_combination_limit,
6561the split status of the window that is split as well as that of the new
6562window are still set to the value of this variable. */);
6563 Vwindow_splits = Qnil;
6564
6565 DEFVAR_LISP ("window-nest", Vwindow_nest,
6566 doc: /* Non-nil means splitting a window makes a new parent window. 6515 doc: /* Non-nil means splitting a window makes a new parent window.
6567If this variable is nil, splitting a window will create a new parent 6516If this variable is nil, splitting a window will create a new parent
6568window only if the window has no parent window or the window shall 6517window only if the window has no parent window or the window shall
6569become a combination orthogonal to the one it it is part of. 6518become a combination orthogonal to the one it is part of.
6519
6520If this variable is t, splitting a window always creates a new parent
6521window. If all splits behave this way, each frame's window tree is a
6522binary tree and every window but the frame's root window has exactly one
6523sibling.
6570 6524
6571If this variable is non-nil, splitting a window always creates a new 6525Other values are reserved for future use.
6572parent window. If all splits behave this way, each frame's window tree
6573is a binary tree and every window but the frame's root window has
6574exactly one sibling.
6575 6526
6576The value of this variable is also assigned to the nest status of the 6527The value of this variable is also assigned to the combination-limit
6577new parent window. The nest status of a window can be retrieved via the 6528status of the new parent window. The combination-limit status of a
6578function `window-nest' and altered by the function `set-window-nest'. */); 6529window can be retrieved via the function `window-combination-limit' and
6579 Vwindow_nest = Qnil; 6530altered by the function `set-window-combination-limit'. */);
6531 Vwindow_combination_limit = Qnil;
6580 6532
6581 defsubr (&Sselected_window); 6533 defsubr (&Sselected_window);
6582 defsubr (&Sminibuffer_window); 6534 defsubr (&Sminibuffer_window);
@@ -6596,10 +6548,8 @@ function `window-nest' and altered by the function `set-window-nest'. */);
6596 defsubr (&Swindow_left_child); 6548 defsubr (&Swindow_left_child);
6597 defsubr (&Swindow_next_sibling); 6549 defsubr (&Swindow_next_sibling);
6598 defsubr (&Swindow_prev_sibling); 6550 defsubr (&Swindow_prev_sibling);
6599 defsubr (&Swindow_splits); 6551 defsubr (&Swindow_combination_limit);
6600 defsubr (&Sset_window_splits); 6552 defsubr (&Sset_window_combination_limit);
6601 defsubr (&Swindow_nest);
6602 defsubr (&Sset_window_nest);
6603 defsubr (&Swindow_use_time); 6553 defsubr (&Swindow_use_time);
6604 defsubr (&Swindow_top_line); 6554 defsubr (&Swindow_top_line);
6605 defsubr (&Swindow_left_column); 6555 defsubr (&Swindow_left_column);
diff --git a/src/window.h b/src/window.h
index 6a9641e3e6d..de0f7307a51 100644
--- a/src/window.h
+++ b/src/window.h
@@ -258,13 +258,8 @@ struct window
258 must run the redisplay-end-trigger-hook. */ 258 must run the redisplay-end-trigger-hook. */
259 Lisp_Object redisplay_end_trigger; 259 Lisp_Object redisplay_end_trigger;
260 260
261 /* Non-nil means deleting or resizing this window distributes 261 /* t means this window's child windows are not (re-)combined. */
262 space among all windows in the same combination. */ 262 Lisp_Object combination_limit;
263 Lisp_Object splits;
264
265 /* Non-nil means this window's child windows are never
266 (re-)combined. */
267 Lisp_Object nest;
268 263
269 /* Alist of <buffer, window-start, window-point> triples listing 264 /* Alist of <buffer, window-start, window-point> triples listing
270 buffers previously shown in this window. */ 265 buffers previously shown in this window. */
diff --git a/src/xdisp.c b/src/xdisp.c
index f5a39306c35..747b91fa4ab 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -19487,9 +19487,18 @@ display_line (struct it *it)
19487 overlay_arrow_seen = 1; 19487 overlay_arrow_seen = 1;
19488 } 19488 }
19489 19489
19490 /* Highlight trailing whitespace. */
19491 if (!NILP (Vshow_trailing_whitespace))
19492 highlight_trailing_whitespace (it->f, it->glyph_row);
19493
19490 /* Compute pixel dimensions of this line. */ 19494 /* Compute pixel dimensions of this line. */
19491 compute_line_metrics (it); 19495 compute_line_metrics (it);
19492 19496
19497 /* Implementation note: No changes in the glyphs of ROW or in their
19498 faces can be done past this point, because compute_line_metrics
19499 computes ROW's hash value and stores it within the glyph_row
19500 structure. */
19501
19493 /* Record whether this row ends inside an ellipsis. */ 19502 /* Record whether this row ends inside an ellipsis. */
19494 row->ends_in_ellipsis_p 19503 row->ends_in_ellipsis_p
19495 = (it->method == GET_FROM_DISPLAY_VECTOR 19504 = (it->method == GET_FROM_DISPLAY_VECTOR
@@ -19524,10 +19533,6 @@ display_line (struct it *it)
19524 && cursor_row_p (row)) 19533 && cursor_row_p (row))
19525 set_cursor_from_row (it->w, row, it->w->desired_matrix, 0, 0, 0, 0); 19534 set_cursor_from_row (it->w, row, it->w->desired_matrix, 0, 0, 0, 0);
19526 19535
19527 /* Highlight trailing whitespace. */
19528 if (!NILP (Vshow_trailing_whitespace))
19529 highlight_trailing_whitespace (it->f, it->glyph_row);
19530
19531 /* Prepare for the next line. This line starts horizontally at (X 19536 /* Prepare for the next line. This line starts horizontally at (X
19532 HPOS) = (0 0). Vertical positions are incremented. As a 19537 HPOS) = (0 0). Vertical positions are incremented. As a
19533 convenience for the caller, IT->glyph_row is set to the next 19538 convenience for the caller, IT->glyph_row is set to the next
@@ -22161,7 +22166,7 @@ get_glyph_face_and_encoding (struct frame *f, struct glyph *glyph,
22161 22166
22162 22167
22163/* Get glyph code of character C in FONT in the two-byte form CHAR2B. 22168/* Get glyph code of character C in FONT in the two-byte form CHAR2B.
22164 Retunr 1 if FONT has a glyph for C, otherwise return 0. */ 22169 Return 1 if FONT has a glyph for C, otherwise return 0. */
22165 22170
22166static inline int 22171static inline int
22167get_char_glyph_code (int c, struct font *font, XChar2b *char2b) 22172get_char_glyph_code (int c, struct font *font, XChar2b *char2b)
@@ -22233,6 +22238,12 @@ fill_composite_glyph_string (struct glyph_string *s, struct face *base_face,
22233 } 22238 }
22234 s->cmp_to = i; 22239 s->cmp_to = i;
22235 22240
22241 if (s->face == NULL)
22242 {
22243 s->face = base_face->ascii_face;
22244 s->font = s->face->font;
22245 }
22246
22236 /* All glyph strings for the same composition has the same width, 22247 /* All glyph strings for the same composition has the same width,
22237 i.e. the width set for the first component of the composition. */ 22248 i.e. the width set for the first component of the composition. */
22238 s->width = s->first_glyph->pixel_width; 22249 s->width = s->first_glyph->pixel_width;
@@ -23844,7 +23855,7 @@ produce_stretch_glyph (struct it *it)
23844 { 23855 {
23845 width = it->last_visible_x - it->current_x; 23856 width = it->last_visible_x - it->current_x;
23846#ifdef HAVE_WINDOW_SYSTEM 23857#ifdef HAVE_WINDOW_SYSTEM
23847 /* Subtact one more pixel from the stretch width, but only on 23858 /* Subtract one more pixel from the stretch width, but only on
23848 GUI frames, since on a TTY each glyph is one "pixel" wide. */ 23859 GUI frames, since on a TTY each glyph is one "pixel" wide. */
23849 width -= FRAME_WINDOW_P (it->f); 23860 width -= FRAME_WINDOW_P (it->f);
23850#endif 23861#endif
@@ -28206,7 +28217,6 @@ syms_of_xdisp (void)
28206 DEFSYM (Qhollow, "hollow"); 28217 DEFSYM (Qhollow, "hollow");
28207 DEFSYM (Qhand, "hand"); 28218 DEFSYM (Qhand, "hand");
28208 DEFSYM (Qarrow, "arrow"); 28219 DEFSYM (Qarrow, "arrow");
28209 DEFSYM (Qtext, "text");
28210 DEFSYM (Qinhibit_free_realized_faces, "inhibit-free-realized-faces"); 28220 DEFSYM (Qinhibit_free_realized_faces, "inhibit-free-realized-faces");
28211 28221
28212 list_of_error = Fcons (Fcons (intern_c_string ("error"), 28222 list_of_error = Fcons (Fcons (intern_c_string ("error"),
@@ -28675,7 +28685,7 @@ To add a prefix to continuation lines, use `wrap-prefix'. */);
28675 DEFVAR_INT ("overline-margin", overline_margin, 28685 DEFVAR_INT ("overline-margin", overline_margin,
28676 doc: /* *Space between overline and text, in pixels. 28686 doc: /* *Space between overline and text, in pixels.
28677The default value is 2: the height of the overline (1 pixel) plus 1 pixel 28687The default value is 2: the height of the overline (1 pixel) plus 1 pixel
28678margin to the caracter height. */); 28688margin to the character height. */);
28679 overline_margin = 2; 28689 overline_margin = 2;
28680 28690
28681 DEFVAR_INT ("underline-minimum-offset", 28691 DEFVAR_INT ("underline-minimum-offset",
diff --git a/src/xfaces.c b/src/xfaces.c
index 9faa7c79e0b..849ad6bbdf4 100644
--- a/src/xfaces.c
+++ b/src/xfaces.c
@@ -27,7 +27,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
27 27
28 1. Font family name. 28 1. Font family name.
29 29
30 2. Font foundary name. 30 2. Font foundry name.
31 31
32 3. Relative proportionate width, aka character set width or set 32 3. Relative proportionate width, aka character set width or set
33 width (swidth), e.g. `semi-compressed'. 33 width (swidth), e.g. `semi-compressed'.
@@ -4189,12 +4189,12 @@ prepare_face_for_display (struct frame *f, struct face *face)
4189static int 4189static int
4190color_distance (XColor *x, XColor *y) 4190color_distance (XColor *x, XColor *y)
4191{ 4191{
4192 /* This formula is from a paper title `Colour metric' by Thiadmer Riemersma. 4192 /* This formula is from a paper titled `Colour metric' by Thiadmer Riemersma.
4193 Quoting from that paper: 4193 Quoting from that paper:
4194 4194
4195 This formula has results that are very close to L*u*v* (with the 4195 This formula has results that are very close to L*u*v* (with the
4196 modified lightness curve) and, more importantly, it is a more even 4196 modified lightness curve) and, more importantly, it is a more even
4197 algorithm: it does not have a range of colours where it suddenly 4197 algorithm: it does not have a range of colors where it suddenly
4198 gives far from optimal results. 4198 gives far from optimal results.
4199 4199
4200 See <http://www.compuphase.com/cmetric.htm> for more info. */ 4200 See <http://www.compuphase.com/cmetric.htm> for more info. */
diff --git a/src/xfns.c b/src/xfns.c
index 49c4c774cae..6de412c4e68 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -2929,7 +2929,7 @@ unwind_create_frame (Lisp_Object frame)
2929 return Qnil; 2929 return Qnil;
2930 2930
2931 /* If frame is ``official'', nothing to do. */ 2931 /* If frame is ``official'', nothing to do. */
2932 if (!CONSP (Vframe_list) || !EQ (XCAR (Vframe_list), frame)) 2932 if (NILP (Fmemq (frame, Vframe_list)))
2933 { 2933 {
2934#if GLYPH_DEBUG && XASSERTS 2934#if GLYPH_DEBUG && XASSERTS
2935 struct x_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f); 2935 struct x_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f);
@@ -3691,7 +3691,7 @@ If omitted or nil, that stands for the selected frame's display. */)
3691 3691
3692DEFUN ("x-server-vendor", Fx_server_vendor, Sx_server_vendor, 0, 1, 0, 3692DEFUN ("x-server-vendor", Fx_server_vendor, Sx_server_vendor, 0, 1, 0,
3693 doc: /* Return the "vendor ID" string of the X server of display TERMINAL. 3693 doc: /* Return the "vendor ID" string of the X server of display TERMINAL.
3694\(Labelling every distributor as a "vendor" embodies the false assumption 3694\(Labeling every distributor as a "vendor" embodies the false assumption
3695that operating systems cannot be developed and distributed noncommercially.) 3695that operating systems cannot be developed and distributed noncommercially.)
3696The optional argument TERMINAL specifies which display to ask about. 3696The optional argument TERMINAL specifies which display to ask about.
3697TERMINAL should be a terminal object, a frame or a display name (a string). 3697TERMINAL should be a terminal object, a frame or a display name (a string).
diff --git a/src/xfont.c b/src/xfont.c
index 2c3ca911623..60e5aa6e98e 100644
--- a/src/xfont.c
+++ b/src/xfont.c
@@ -272,8 +272,8 @@ xfont_chars_supported (Lisp_Object chars, XFontStruct *xfont,
272 return 0; 272 return 0;
273} 273}
274 274
275/* A hash table recoding which font supports which scritps. Each key 275/* A hash table recoding which font supports which scripts. Each key
276 is a vector of characteristic font propertis FOUNDRY to WIDTH and 276 is a vector of characteristic font properties FOUNDRY to WIDTH and
277 ADDSTYLE, and each value is a list of script symbols. 277 ADDSTYLE, and each value is a list of script symbols.
278 278
279 We assume that fonts that have the same value in the above 279 We assume that fonts that have the same value in the above
@@ -281,7 +281,7 @@ xfont_chars_supported (Lisp_Object chars, XFontStruct *xfont,
281 281
282static Lisp_Object xfont_scripts_cache; 282static Lisp_Object xfont_scripts_cache;
283 283
284/* Re-usable vector to store characteristic font properites. */ 284/* Re-usable vector to store characteristic font properties. */
285static Lisp_Object xfont_scratch_props; 285static Lisp_Object xfont_scratch_props;
286 286
287/* Return a list of scripts supported by the font of FONTNAME whose 287/* Return a list of scripts supported by the font of FONTNAME whose
diff --git a/src/xselect.c b/src/xselect.c
index adee1872dba..4bfab4143cc 100644
--- a/src/xselect.c
+++ b/src/xselect.c
@@ -2355,7 +2355,7 @@ x_fill_property_data (Display *dpy, Lisp_Object data, void *ret, int format)
2355 F is the frame to be used to look up X atoms if the TYPE is XA_ATOM. 2355 F is the frame to be used to look up X atoms if the TYPE is XA_ATOM.
2356 DATA is a C array of values to be converted. 2356 DATA is a C array of values to be converted.
2357 TYPE is the type of the data. Only XA_ATOM is special, it converts 2357 TYPE is the type of the data. Only XA_ATOM is special, it converts
2358 each number in DATA to its corresponfing X atom as a symbol. 2358 each number in DATA to its corresponding X atom as a symbol.
2359 FORMAT is 8, 16 or 32 and gives the size in bits for each C value to 2359 FORMAT is 8, 16 or 32 and gives the size in bits for each C value to
2360 be stored in RET. 2360 be stored in RET.
2361 SIZE is the number of elements in DATA. 2361 SIZE is the number of elements in DATA.
diff --git a/src/xsettings.c b/src/xsettings.c
index d57f3b5be81..a8604ac5897 100644
--- a/src/xsettings.c
+++ b/src/xsettings.c
@@ -121,7 +121,7 @@ store_font_name_changed (const char *newfont)
121} 121}
122#endif /* HAVE_XFT */ 122#endif /* HAVE_XFT */
123 123
124/* Map TOOL_BAR_STYLE from a string to its correspinding Lisp value. 124/* Map TOOL_BAR_STYLE from a string to its corresponding Lisp value.
125 Return Qnil if TOOL_BAR_STYLE is not known. */ 125 Return Qnil if TOOL_BAR_STYLE is not known. */
126 126
127static Lisp_Object 127static Lisp_Object
diff --git a/src/xsmfns.c b/src/xsmfns.c
index 55daec73307..7deac7b14e4 100644
--- a/src/xsmfns.c
+++ b/src/xsmfns.c
@@ -462,7 +462,7 @@ x_session_initialize (struct x_display_info *dpyinfo)
462 Vx_session_id = build_string (client_id); 462 Vx_session_id = build_string (client_id);
463 463
464#ifdef USE_GTK 464#ifdef USE_GTK
465 /* GTK creats a leader window by itself, but we need to tell 465 /* GTK creates a leader window by itself, but we need to tell
466 it about our client_id. */ 466 it about our client_id. */
467 gdk_x11_set_sm_client_id (client_id); 467 gdk_x11_set_sm_client_id (client_id);
468#else 468#else
diff --git a/src/xterm.c b/src/xterm.c
index 49a21d683d4..f8af8ae3df0 100644
--- a/src/xterm.c
+++ b/src/xterm.c
@@ -6129,7 +6129,7 @@ handle_one_xevent (struct x_display_info *dpyinfo, XEvent *eventptr,
6129 { 6129 {
6130 /* Gnome shell does not iconify us when C-z is pressed. It hides 6130 /* Gnome shell does not iconify us when C-z is pressed. It hides
6131 the frame. So if our state says we aren't hidden anymore, 6131 the frame. So if our state says we aren't hidden anymore,
6132 treat is as deiconfied. */ 6132 treat it as deiconified. */
6133 if (! f->async_iconified) 6133 if (! f->async_iconified)
6134 SET_FRAME_GARBAGED (f); 6134 SET_FRAME_GARBAGED (f);
6135 f->async_visible = 1; 6135 f->async_visible = 1;
diff --git a/src/xterm.h b/src/xterm.h
index e10a6bc34f0..1d2ce9a2d3c 100644
--- a/src/xterm.h
+++ b/src/xterm.h
@@ -330,7 +330,7 @@ struct x_display_info
330 ptrdiff_t x_dnd_atoms_length; 330 ptrdiff_t x_dnd_atoms_length;
331 331
332 /* Extended window manager hints, Atoms supported by the window manager and 332 /* Extended window manager hints, Atoms supported by the window manager and
333 atoms for settig the window type. */ 333 atoms for setting the window type. */
334 Atom Xatom_net_supported, Xatom_net_supporting_wm_check; 334 Atom Xatom_net_supported, Xatom_net_supporting_wm_check;
335 Atom *net_supported_atoms; 335 Atom *net_supported_atoms;
336 int nr_net_supported_atoms; 336 int nr_net_supported_atoms;
diff --git a/test/ChangeLog b/test/ChangeLog
index de4fb270440..9afed6f5f90 100644
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,3 +1,9 @@
12011-11-16 Juanma Barranquero <lekktu@gmail.com>
2
3 * automated/icalendar-tests.el (icalendar-tests--get-ical-event)
4 (icalendar-tests--test-export, icalendar-tests--do-test-export):
5 * cedet/srecode-tests.el (srecode-field-utest-impl): Fix typo.
6
12011-10-30 Ulf Jasper <ulf.jasper@web.de> 72011-10-30 Ulf Jasper <ulf.jasper@web.de>
2 8
3 * automated/newsticker-tests.el 9 * automated/newsticker-tests.el
diff --git a/test/automated/compile-tests.el b/test/automated/compile-tests.el
index 1d9a266904c..419cc0e9116 100644
--- a/test/automated/compile-tests.el
+++ b/test/automated/compile-tests.el
@@ -71,7 +71,7 @@
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 (19 . 155) (5 . 8) "foobar.ml")
74 ("File \"F:\\ocaml\\sorting.ml\", line 65, characters 2-145:" 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 (1 . 145) 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")
diff --git a/test/automated/ert-tests.el b/test/automated/ert-tests.el
index cea994f64b8..1fe6352e1fe 100644
--- a/test/automated/ert-tests.el
+++ b/test/automated/ert-tests.el
@@ -228,7 +228,7 @@ failed or if there was a problem."
228 :form (error "Foo") 228 :form (error "Foo")
229 :condition (error "Foo") 229 :condition (error "Foo")
230 :fail-reason 230 :fail-reason
231 "the error signalled did not have the expected type")))))) 231 "the error signaled did not have the expected type"))))))
232 ;; Error of the expected type. 232 ;; Error of the expected type.
233 (let* ((error nil) 233 (let* ((error nil)
234 (test (make-ert-test 234 (test (make-ert-test
@@ -258,7 +258,7 @@ failed or if there was a problem."
258 :form (signal arith-error nil) 258 :form (signal arith-error nil)
259 :condition (arith-error) 259 :condition (arith-error)
260 :fail-reason 260 :fail-reason
261 "the error signalled did not have the expected type")))))) 261 "the error signaled did not have the expected type"))))))
262 (let ((test (make-ert-test 262 (let ((test (make-ert-test
263 :body (lambda () 263 :body (lambda ()
264 (should-error (signal 'arith-error nil) 264 (should-error (signal 'arith-error nil)
@@ -275,7 +275,7 @@ failed or if there was a problem."
275 :form (signal arith-error nil) 275 :form (signal arith-error nil)
276 :condition (arith-error) 276 :condition (arith-error)
277 :fail-reason 277 :fail-reason
278 "the error signalled did not have the expected type")))))) 278 "the error signaled did not have the expected type"))))))
279 (let ((test (make-ert-test 279 (let ((test (make-ert-test
280 :body (lambda () 280 :body (lambda ()
281 (should-error (signal 'singularity-error nil) 281 (should-error (signal 'singularity-error nil)
@@ -292,7 +292,7 @@ failed or if there was a problem."
292 :form (signal singularity-error nil) 292 :form (signal singularity-error nil)
293 :condition (singularity-error) 293 :condition (singularity-error)
294 :fail-reason 294 :fail-reason
295 "the error signalled was a subtype of the expected type"))))) 295 "the error signaled was a subtype of the expected type")))))
296 )) 296 ))
297 297
298(defmacro ert--test-my-list (&rest args) 298(defmacro ert--test-my-list (&rest args)
diff --git a/test/automated/icalendar-tests.el b/test/automated/icalendar-tests.el
index 04fce7383fd..6ed1d73767a 100644
--- a/test/automated/icalendar-tests.el
+++ b/test/automated/icalendar-tests.el
@@ -39,7 +39,7 @@
39;; ====================================================================== 39;; ======================================================================
40 40
41(defun icalendar-tests--get-ical-event (ical-string) 41(defun icalendar-tests--get-ical-event (ical-string)
42 "Return icalendar event for ICAL-STRING." 42 "Return iCalendar event for ICAL-STRING."
43 (save-excursion 43 (save-excursion
44 (with-temp-buffer 44 (with-temp-buffer
45 (insert ical-string) 45 (insert ical-string)
@@ -219,7 +219,7 @@ END:VTIMEZONE
219 (should (string= "\nDTSTART;VALUE=DATE:20100215\nDTEND;VALUE=DATE:20100216" 219 (should (string= "\nDTSTART;VALUE=DATE:20100215\nDTEND;VALUE=DATE:20100216"
220 (car result))) 220 (car result)))
221 (should (string= "subject" (cadr result))) 221 (should (string= "subject" (cadr result)))
222 222
223 ;; with time 223 ;; with time
224 (setq result (icalendar--convert-ordinary-to-ical 224 (setq result (icalendar--convert-ordinary-to-ical
225 "&?" "&2010 2 15 12:34-23:45 s")) 225 "&?" "&2010 2 15 12:34-23:45 s"))
@@ -424,7 +424,7 @@ END:VEVENT
424Argument INPUT-ISO iso style diary string. 424Argument INPUT-ISO iso style diary string.
425Argument INPUT-EUROPEAN european style diary string. 425Argument INPUT-EUROPEAN european style diary string.
426Argument INPUT-AMERICAN american style diary string. 426Argument INPUT-AMERICAN american style diary string.
427Argument EXPECTED-OUTPUT expected icalendar result string. 427Argument EXPECTED-OUTPUT expected iCalendar result string.
428 428
429European style input data must use german month names. American 429European style input data must use german month names. American
430and ISO style input data must use english month names." 430and ISO style input data must use english month names."
@@ -467,7 +467,7 @@ and ISO style input data must use english month names."
467(defun icalendar-tests--do-test-export (input expected-output) 467(defun icalendar-tests--do-test-export (input expected-output)
468 "Actually perform export test. 468 "Actually perform export test.
469Argument INPUT input diary string. 469Argument INPUT input diary string.
470Argument EXPECTED-OUTPUT expected icalendar result string." 470Argument EXPECTED-OUTPUT expected iCalendar result string."
471 (let ((temp-file (make-temp-file "icalendar-tests-ics"))) 471 (let ((temp-file (make-temp-file "icalendar-tests-ics")))
472 (unwind-protect 472 (unwind-protect
473 (progn 473 (progn
@@ -732,7 +732,7 @@ DTSTART;VALUE=DATE-TIME:20030919"
732 "&9/19/2003 non-recurring allday\n") 732 "&9/19/2003 non-recurring allday\n")
733 (icalendar-tests--test-import 733 (icalendar-tests--test-import
734 ;; do not remove the trailing blank after "long"! 734 ;; do not remove the trailing blank after "long"!
735 "SUMMARY:long 735 "SUMMARY:long
736 summary 736 summary
737DTSTART;VALUE=DATE:20030919" 737DTSTART;VALUE=DATE:20030919"
738 "&2003/9/19 long summary\n" 738 "&2003/9/19 long summary\n"
@@ -1041,7 +1041,7 @@ SUMMARY:event-1
1041 "&2011/7/23 event-1\n" 1041 "&2011/7/23 event-1\n"
1042 "&23/7/2011 event-1\n" 1042 "&23/7/2011 event-1\n"
1043 "&7/23/2011 event-1\n") 1043 "&7/23/2011 event-1\n")
1044 1044
1045 (icalendar-tests--test-import 1045 (icalendar-tests--test-import
1046 "BEGIN:VCALENDAR 1046 "BEGIN:VCALENDAR
1047PRODID:-//Emacs//NONSGML icalendar.el//EN 1047PRODID:-//Emacs//NONSGML icalendar.el//EN
@@ -1111,7 +1111,7 @@ Argument INPUT icalendar event string."
1111 (progn 1111 (progn
1112 ;; step 1: import 1112 ;; step 1: import
1113 (icalendar-import-buffer temp-diary t t) 1113 (icalendar-import-buffer temp-diary t t)
1114 1114
1115 ;; step 2: export what was just imported 1115 ;; step 2: export what was just imported
1116 (save-excursion 1116 (save-excursion
1117 (find-file temp-diary) 1117 (find-file temp-diary)
@@ -1399,7 +1399,7 @@ SUMMARY:may 30 - June 1: ee")
1399 "DTSTART;VALUE=DATE:20050606 1399 "DTSTART;VALUE=DATE:20050606
1400DTEND;VALUE=DATE:20050609 1400DTEND;VALUE=DATE:20050609
1401SUMMARY:ff") 1401SUMMARY:ff")
1402 1402
1403 ;; export 2004-10-28 anniversary entries 1403 ;; export 2004-10-28 anniversary entries
1404 (icalendar-tests--test-export 1404 (icalendar-tests--test-export
1405 nil 1405 nil
diff --git a/test/cedet/semantic-tests.el b/test/cedet/semantic-tests.el
index c840993bf24..16dcd42c2ae 100644
--- a/test/cedet/semantic-tests.el
+++ b/test/cedet/semantic-tests.el
@@ -54,7 +54,7 @@ All systems are different. Ask questions along the way."
54 (y-or-n-p "New database created. Reload system databases? ") 54 (y-or-n-p "New database created. Reload system databases? ")
55 (y-or-n-p "Load in all system databases? ")) 55 (y-or-n-p "Load in all system databases? "))
56 (semanticdb-load-ebrowse-caches))) 56 (semanticdb-load-ebrowse-caches)))
57 ;; Ok, databases were creatd. Lets try some searching. 57 ;; Ok, databases were created. Let's try some searching.
58 (when (not (or (eq major-mode 'c-mode) 58 (when (not (or (eq major-mode 'c-mode)
59 (eq major-mode 'c++-mode))) 59 (eq major-mode 'c++-mode)))
60 (error "Please make your default buffer be a C or C++ file, then 60 (error "Please make your default buffer be a C or C++ file, then
@@ -387,4 +387,3 @@ gcc version 2.95.2 19991024 (release)"
387 (let ((semantic-gcc-test-strings (list (semantic-gcc-query "gcc" "-v")))) 387 (let ((semantic-gcc-test-strings (list (semantic-gcc-query "gcc" "-v"))))
388 (semantic-gcc-test-output-parser)) 388 (semantic-gcc-test-output-parser))
389 ) 389 )
390
diff --git a/test/cedet/semantic-utest.el b/test/cedet/semantic-utest.el
index a9a7c765f2b..db737b60c6f 100644
--- a/test/cedet/semantic-utest.el
+++ b/test/cedet/semantic-utest.el
@@ -787,7 +787,7 @@ SKIPNAMES is a list of names to remove from NAME-CONTENTS"
787(defun semantic-utest-kill-indicator ( killme insertme) 787(defun semantic-utest-kill-indicator ( killme insertme)
788 "Kill the line with KILLME on it and insert INSERTME in its place." 788 "Kill the line with KILLME on it and insert INSERTME in its place."
789 (goto-char (point-min)) 789 (goto-char (point-min))
790; (re-search-forward (concat "/\\*" indicator "\\*/")); JAVE this isnt generic enough for different lagnuages 790; (re-search-forward (concat "/\\*" indicator "\\*/")); JAVE this isn't generic enough for different languages
791 (re-search-forward killme) 791 (re-search-forward killme)
792 (beginning-of-line) 792 (beginning-of-line)
793 (setq semantic-utest-last-kill-pos (point)) 793 (setq semantic-utest-last-kill-pos (point))
@@ -812,7 +812,7 @@ SKIPNAMES is a list of names to remove from NAME-CONTENTS"
812(defun semantic-utest-last-invalid (name-contents names-removed killme insertme) 812(defun semantic-utest-last-invalid (name-contents names-removed killme insertme)
813 "Make the last fcn invalid." 813 "Make the last fcn invalid."
814 (semantic-utest-kill-indicator killme insertme) 814 (semantic-utest-kill-indicator killme insertme)
815; (semantic-utest-verify-names name-contents names-removed); verify its gone ;new validator doesnt handle skipnames yet 815; (semantic-utest-verify-names name-contents names-removed); verify its gone ;new validator doesn't handle skipnames yet
816 (semantic-utest-unkill-indicator);put back killed stuff 816 (semantic-utest-unkill-indicator);put back killed stuff
817 ) 817 )
818 818
diff --git a/test/cedet/srecode-tests.el b/test/cedet/srecode-tests.el
index 10b06f5cd01..a1b8f60b2ec 100644
--- a/test/cedet/srecode-tests.el
+++ b/test/cedet/srecode-tests.el
@@ -177,7 +177,7 @@ It is filled with some text."
177 177
178 (mapc (lambda (T) 178 (mapc (lambda (T)
179 (when (slot-boundp T 'overlay) 179 (when (slot-boundp T 'overlay)
180 (error "Overlay did not clear off of of field %s" 180 (error "Overlay did not clear off of field %s"
181 (object-name T)))) 181 (object-name T))))
182 fields) 182 fields)
183 183
diff --git a/test/cedet/tests/testpolymorph.cpp b/test/cedet/tests/testpolymorph.cpp
index 493b4344c17..9db2d51efe7 100644
--- a/test/cedet/tests/testpolymorph.cpp
+++ b/test/cedet/tests/testpolymorph.cpp
@@ -50,7 +50,7 @@ namespace fcn_poly {
50 50
51} 51}
52 52
53// Test 3 - Methods w/ differet arg lists. 53// Test 3 - Methods w/ different arg lists.
54class meth_poly { 54class meth_poly {
55public: 55public:
56 int pm_meth(void) { 56 int pm_meth(void) {
@@ -128,4 +128,3 @@ namespace template_multiple_spec {
128 128
129 129
130// End of polymorphism test file. 130// End of polymorphism test file.
131
diff --git a/test/indent/octave.m b/test/indent/octave.m
index 768f3d85e01..5ce52ad7a19 100644
--- a/test/indent/octave.m
+++ b/test/indent/octave.m
@@ -3,7 +3,7 @@
3function res = tcomp (fn) 3function res = tcomp (fn)
4 %% res = tcomp (fn) 4 %% res = tcomp (fn)
5 %% imports components and rearranges them. 5 %% imports components and rearranges them.
6 6
7 if nargin ~= 1 7 if nargin ~= 1
8 print_usage() 8 print_usage()
9 end 9 end
@@ -36,7 +36,7 @@ function res = tcomp (fn)
36endfunction 36endfunction
37 37
38## Copyright (C) 2005, 2006, 2007, 2008, 2009 S�ren Hauberg 38## Copyright (C) 2005, 2006, 2007, 2008, 2009 S�ren Hauberg
39## 39##
40## This file is part of Octave. 40## This file is part of Octave.
41## 41##
42## Octave is free software; you can redistribute it and/or modify it 42## Octave is free software; you can redistribute it and/or modify it
@@ -73,16 +73,16 @@ endfunction
73## 73##
74## @table @code 74## @table @code
75## @item -nodeps 75## @item -nodeps
76## The package manager will disable the dependency checking. That way it 76## The package manager will disable the dependency checking. That way it
77## is possible to install a package even if it depends on another package 77## is possible to install a package even if it depends on another package
78## that's not installed on the system. @strong{Use this option with care.} 78## that's not installed on the system. @strong{Use this option with care.}
79## 79##
80## @item -noauto 80## @item -noauto
81## The package manager will not automatically load the installed package 81## The package manager will not automatically load the installed package
82## when starting Octave, even if the package requests that it is. 82## when starting Octave, even if the package requests that it is.
83## 83##
84## @item -auto 84## @item -auto
85## The package manager will automatically load the installed package when 85## The package manager will automatically load the installed package when
86## starting Octave, even if the package requests that it isn't. 86## starting Octave, even if the package requests that it isn't.
87## 87##
88## @item -local 88## @item -local
@@ -93,7 +93,7 @@ endfunction
93## system privileges 93## system privileges
94## 94##
95## @item -verbose 95## @item -verbose
96## The package manager will print the output of all of the commands that are 96## The package manager will print the output of all of the commands that are
97## performed. 97## performed.
98## @end table 98## @end table
99## 99##
@@ -205,7 +205,7 @@ endfunction
205## pkg global_list 205## pkg global_list
206## @end example 206## @end example
207## @item rebuild 207## @item rebuild
208## Rebuilds the package database from the installed directories. This can 208## Rebuilds the package database from the installed directories. This can
209## be used in cases where for some reason the package database is corrupted. 209## be used in cases where for some reason the package database is corrupted.
210## It can also take the @code{-auto} and @code{-noauto} options to allow the 210## It can also take the @code{-auto} and @code{-noauto} options to allow the
211## autoloading state of a package to be changed. For example 211## autoloading state of a package to be changed. For example
@@ -227,7 +227,7 @@ endfunction
227## @noindent 227## @noindent
228## where @code{builddir} is the name of a directory where the temporary 228## where @code{builddir} is the name of a directory where the temporary
229## installation will be produced and the binary packages will be found. 229## installation will be produced and the binary packages will be found.
230## The options @code{-verbose} and @code{-nodeps} are respected, while 230## The options @code{-verbose} and @code{-nodeps} are respected, while
231## the other options are ignored. 231## the other options are ignored.
232## @end table 232## @end table
233## @end deftypefn 233## @end deftypefn
@@ -259,7 +259,7 @@ function [local_packages, global_packages] = pkg (varargin)
259 259
260 available_actions = {"list", "install", "uninstall", "load", ... 260 available_actions = {"list", "install", "uninstall", "load", ...
261 "unload", "prefix", "local_list", ... 261 "unload", "prefix", "local_list", ...
262 "global_list", "rebuild", "build","describe"}; 262 "global_list", "rebuild", "build","describe"};
263 ## Handle input 263 ## Handle input
264 if (length (varargin) == 0 || ! iscellstr (varargin)) 264 if (length (varargin) == 0 || ! iscellstr (varargin))
265 print_usage (); 265 print_usage ();
@@ -321,14 +321,14 @@ function [local_packages, global_packages] = pkg (varargin)
321 if (length (files) == 0) 321 if (length (files) == 0)
322 error ("you must specify at least one filename when calling 'pkg install'"); 322 error ("you must specify at least one filename when calling 'pkg install'");
323 endif 323 endif
324 install (files, deps, auto, prefix, archprefix, verbose, local_list, 324 install (files, deps, auto, prefix, archprefix, verbose, local_list,
325 global_list, global_install); 325 global_list, global_install);
326 326
327 case "uninstall" 327 case "uninstall"
328 if (length (files) == 0) 328 if (length (files) == 0)
329 error ("you must specify at least one package when calling 'pkg uninstall'"); 329 error ("you must specify at least one package when calling 'pkg uninstall'");
330 endif 330 endif
331 uninstall (files, deps, verbose, local_list, 331 uninstall (files, deps, verbose, local_list,
332 global_list, global_install); 332 global_list, global_install);
333 333
334 case "load" 334 case "load"
@@ -406,7 +406,7 @@ function [local_packages, global_packages] = pkg (varargin)
406 406
407 case "rebuild" 407 case "rebuild"
408 if (global_install) 408 if (global_install)
409 global_packages = rebuild (prefix, archprefix, global_list, files, 409 global_packages = rebuild (prefix, archprefix, global_list, files,
410 auto, verbose); 410 auto, verbose);
411 global_packages = save_order (global_packages); 411 global_packages = save_order (global_packages);
412 save (global_list, "global_packages"); 412 save (global_list, "global_packages");
@@ -414,7 +414,7 @@ function [local_packages, global_packages] = pkg (varargin)
414 local_packages = global_packages; 414 local_packages = global_packages;
415 endif 415 endif
416 else 416 else
417 local_packages = rebuild (prefix, archprefix, local_list, files, auto, 417 local_packages = rebuild (prefix, archprefix, local_list, files, auto,
418 verbose); 418 verbose);
419 local_packages = save_order (local_packages); 419 local_packages = save_order (local_packages);
420 save (local_list, "local_packages"); 420 save (local_list, "local_packages");
@@ -450,7 +450,7 @@ function [local_packages, global_packages] = pkg (varargin)
450 otherwise 450 otherwise
451 error ("you can request at most two outputs when calling 'pkg describe'"); 451 error ("you can request at most two outputs when calling 'pkg describe'");
452 endswitch 452 endswitch
453 453
454 otherwise 454 otherwise
455 error ("you must specify a valid action for 'pkg'. See 'help pkg' for details"); 455 error ("you must specify a valid action for 'pkg'. See 'help pkg' for details");
456 endswitch 456 endswitch
@@ -529,7 +529,7 @@ function descriptions = rebuild (prefix, archprefix, list, files, auto, verbose)
529 endfor 529 endfor
530 if (! isempty (dup)) 530 if (! isempty (dup))
531 descriptions (dup) = []; 531 descriptions (dup) = [];
532 endif 532 endif
533 endif 533 endif
534endfunction 534endfunction
535 535
@@ -555,7 +555,7 @@ function build (files, handle_deps, autoload, verbose)
555 endif 555 endif
556 files(1) = []; 556 files(1) = [];
557 buildlist = fullfile (builddir, "octave_packages"); 557 buildlist = fullfile (builddir, "octave_packages");
558 install (files, handle_deps, autoload, installdir, installdir, verbose, 558 install (files, handle_deps, autoload, installdir, installdir, verbose,
559 buildlist, "", false); 559 buildlist, "", false);
560 unwind_protect 560 unwind_protect
561 repackage (builddir, buildlist); 561 repackage (builddir, buildlist);
@@ -570,7 +570,7 @@ function build (files, handle_deps, autoload, verbose)
570 end_unwind_protect 570 end_unwind_protect
571endfunction 571endfunction
572 572
573function install (files, handle_deps, autoload, prefix, archprefix, verbose, 573function install (files, handle_deps, autoload, prefix, archprefix, verbose,
574 local_list, global_list, global_install) 574 local_list, global_list, global_install)
575 575
576 ## Check that the directory in prefix exist. If it doesn't: create it! 576 ## Check that the directory in prefix exist. If it doesn't: create it!
@@ -583,10 +583,10 @@ function install (files, handle_deps, autoload, prefix, archprefix, verbose,
583 endif 583 endif
584 584
585 ## Get the list of installed packages. 585 ## Get the list of installed packages.
586 [local_packages, global_packages] = installed_packages (local_list, 586 [local_packages, global_packages] = installed_packages (local_list,
587 global_list); 587 global_list);
588 588
589 installed_pkgs_lst = {local_packages{:}, global_packages{:}}; 589 installed_pkgs_lst = {local_packages{:}, global_packages{:}};
590 590
591 if (global_install) 591 if (global_install)
592 packages = global_packages; 592 packages = global_packages;
@@ -599,7 +599,7 @@ function install (files, handle_deps, autoload, prefix, archprefix, verbose,
599 try 599 try
600 ## Warn about non existent files. 600 ## Warn about non existent files.
601 for i = 1:length (files) 601 for i = 1:length (files)
602 if (isempty (glob(files{i}))) 602 if (isempty (glob(files{i})))
603 warning ("file %s does not exist", files{i}); 603 warning ("file %s does not exist", files{i});
604 endif 604 endif
605 endfor 605 endfor
@@ -652,32 +652,32 @@ function install (files, handle_deps, autoload, prefix, archprefix, verbose,
652 packdir = fullfile (pwd(), dirlist{3}); 652 packdir = fullfile (pwd(), dirlist{3});
653 endif 653 endif
654 packdirs{end+1} = packdir; 654 packdirs{end+1} = packdir;
655 655
656 ## Make sure the package contains necessary files. 656 ## Make sure the package contains necessary files.
657 verify_directory (packdir); 657 verify_directory (packdir);
658 658
659 ## Read the DESCRIPTION file. 659 ## Read the DESCRIPTION file.
660 filename = fullfile (packdir, "DESCRIPTION"); 660 filename = fullfile (packdir, "DESCRIPTION");
661 desc = get_description (filename); 661 desc = get_description (filename);
662 662
663 ## Verify that package name corresponds with filename. 663 ## Verify that package name corresponds with filename.
664 [dummy, nm] = fileparts (tgz); 664 [dummy, nm] = fileparts (tgz);
665 if ((length (nm) >= length (desc.name)) 665 if ((length (nm) >= length (desc.name))
666 && ! strcmp (desc.name, nm(1:length(desc.name)))) 666 && ! strcmp (desc.name, nm(1:length(desc.name))))
667 error ("package name '%s' doesn't correspond to its filename '%s'", 667 error ("package name '%s' doesn't correspond to its filename '%s'",
668 desc.name, nm); 668 desc.name, nm);
669 endif 669 endif
670 670
671 ## Set default installation directory. 671 ## Set default installation directory.
672 desc.dir = fullfile (prefix, cstrcat (desc.name, "-", desc.version)); 672 desc.dir = fullfile (prefix, cstrcat (desc.name, "-", desc.version));
673 673
674 ## Set default architectire dependent installation directory. 674 ## Set default architecture dependent installation directory.
675 desc.archprefix = fullfile (archprefix, cstrcat (desc.name, "-", 675 desc.archprefix = fullfile (archprefix, cstrcat (desc.name, "-",
676 desc.version)); 676 desc.version));
677 677
678 ## Save desc. 678 ## Save desc.
679 descriptions{end+1} = desc; 679 descriptions{end+1} = desc;
680 680
681 ## Are any of the new packages already installed? 681 ## Are any of the new packages already installed?
682 ## If so we'll remove the old version. 682 ## If so we'll remove the old version.
683 for j = 1:length (packages) 683 for j = 1:length (packages)
@@ -705,14 +705,14 @@ function install (files, handle_deps, autoload, prefix, archprefix, verbose,
705 if (global_install) 705 if (global_install)
706 ## Global installation is not allowed to have dependencies on locally 706 ## Global installation is not allowed to have dependencies on locally
707 ## installed packages. 707 ## installed packages.
708 idx1 = complement (packages_to_uninstall, 708 idx1 = complement (packages_to_uninstall,
709 1:length(global_packages)); 709 1:length(global_packages));
710 pseudo_installed_packages = {global_packages{idx1}, ... 710 pseudo_installed_packages = {global_packages{idx1}, ...
711 descriptions{idx2}}; 711 descriptions{idx2}};
712 else 712 else
713 idx1 = complement (packages_to_uninstall, 713 idx1 = complement (packages_to_uninstall,
714 1:length(local_packages)); 714 1:length(local_packages));
715 pseudo_installed_packages = {local_packages{idx1}, ... 715 pseudo_installed_packages = {local_packages{idx1}, ...
716 global_packages{:}, ... 716 global_packages{:}, ...
717 descriptions{idx2}}; 717 descriptions{idx2}};
718 endif 718 endif
@@ -755,10 +755,10 @@ function install (files, handle_deps, autoload, prefix, archprefix, verbose,
755 try 755 try
756 for i = packages_to_uninstall 756 for i = packages_to_uninstall
757 if (global_install) 757 if (global_install)
758 uninstall ({global_packages{i}.name}, false, verbose, local_list, 758 uninstall ({global_packages{i}.name}, false, verbose, local_list,
759 global_list, global_install); 759 global_list, global_install);
760 else 760 else
761 uninstall ({local_packages{i}.name}, false, verbose, local_list, 761 uninstall ({local_packages{i}.name}, false, verbose, local_list,
762 global_list, global_install); 762 global_list, global_install);
763 endif 763 endif
764 endfor 764 endfor
@@ -809,7 +809,7 @@ function install (files, handle_deps, autoload, prefix, archprefix, verbose,
809 ## requested that it is, then mark the package as autoloaded. 809 ## requested that it is, then mark the package as autoloaded.
810 for i = length (descriptions):-1:1 810 for i = length (descriptions):-1:1
811 if (autoload > 0 || (autoload == 0 && isautoload (descriptions(i)))) 811 if (autoload > 0 || (autoload == 0 && isautoload (descriptions(i))))
812 fclose (fopen (fullfile (descriptions{i}.dir, "packinfo", 812 fclose (fopen (fullfile (descriptions{i}.dir, "packinfo",
813 ".autoload"), "wt")); 813 ".autoload"), "wt"));
814 descriptions{i}.autoload = 1; 814 descriptions{i}.autoload = 1;
815 endif 815 endif
@@ -872,10 +872,10 @@ function install (files, handle_deps, autoload, prefix, archprefix, verbose,
872 endif 872 endif
873endfunction 873endfunction
874 874
875function uninstall (pkgnames, handle_deps, verbose, local_list, 875function uninstall (pkgnames, handle_deps, verbose, local_list,
876 global_list, global_install) 876 global_list, global_install)
877 ## Get the list of installed packages. 877 ## Get the list of installed packages.
878 [local_packages, global_packages] = installed_packages(local_list, 878 [local_packages, global_packages] = installed_packages(local_list,
879 global_list); 879 global_list);
880 if (global_install) 880 if (global_install)
881 installed_pkgs_lst = {local_packages{:}, global_packages{:}}; 881 installed_pkgs_lst = {local_packages{:}, global_packages{:}};
@@ -996,13 +996,13 @@ function uninstall (pkgnames, handle_deps, verbose, local_list,
996 996
997endfunction 997endfunction
998 998
999function [pkg_desc_list, flag] = describe (pkgnames, verbose, 999function [pkg_desc_list, flag] = describe (pkgnames, verbose,
1000 local_list, global_list) 1000 local_list, global_list)
1001 1001
1002 ## Get the list of installed packages. 1002 ## Get the list of installed packages.
1003 installed_pkgs_lst = installed_packages(local_list, global_list); 1003 installed_pkgs_lst = installed_packages(local_list, global_list);
1004 num_packages = length (installed_pkgs_lst); 1004 num_packages = length (installed_pkgs_lst);
1005 1005
1006 1006
1007 describe_all = false; 1007 describe_all = false;
1008 if (any (strcmp ("all", pkgnames))) 1008 if (any (strcmp ("all", pkgnames)))
@@ -1043,7 +1043,7 @@ function [pkg_desc_list, flag] = describe (pkgnames, verbose,
1043 non_inst_str = sprintf (" %s ", pkgnames{non_inst}); 1043 non_inst_str = sprintf (" %s ", pkgnames{non_inst});
1044 error ("some packages are not installed: %s", non_inst_str); 1044 error ("some packages are not installed: %s", non_inst_str);
1045 else 1045 else
1046 pkg_desc_list{non_inst} = struct ("name", {}, "description", 1046 pkg_desc_list{non_inst} = struct ("name", {}, "description",
1047 {}, "provides", {}); 1047 {}, "provides", {});
1048 endif 1048 endif
1049 endif 1049 endif
@@ -1052,7 +1052,7 @@ function [pkg_desc_list, flag] = describe (pkgnames, verbose,
1052 for i = 1:num_pkgnames 1052 for i = 1:num_pkgnames
1053 print_package_description (pkg_desc_list{i}.name, 1053 print_package_description (pkg_desc_list{i}.name,
1054 pkg_desc_list{i}.version, 1054 pkg_desc_list{i}.version,
1055 pkg_desc_list{i}.provides, 1055 pkg_desc_list{i}.provides,
1056 pkg_desc_list{i}.description, 1056 pkg_desc_list{i}.description,
1057 flag{i}, verbose); 1057 flag{i}, verbose);
1058 endfor 1058 endfor
@@ -1069,12 +1069,12 @@ function [pkg_idx_struct] = parse_pkg_idx (packdir)
1069 1069
1070 if (! exist (index_file, "file")) 1070 if (! exist (index_file, "file"))
1071 error ("could not find any INDEX file in directory %s, try 'pkg rebuild all' to generate missing INDEX files", packdir); 1071 error ("could not find any INDEX file in directory %s, try 'pkg rebuild all' to generate missing INDEX files", packdir);
1072 endif 1072 endif
1073
1073 1074
1074
1075 [fid, msg] = fopen (index_file, "r"); 1075 [fid, msg] = fopen (index_file, "r");
1076 if (fid == -1) 1076 if (fid == -1)
1077 error ("the INDEX file %s could not be read: %s", 1077 error ("the INDEX file %s could not be read: %s",
1078 index_file, msg); 1078 index_file, msg);
1079 endif 1079 endif
1080 1080
@@ -1089,7 +1089,7 @@ function [pkg_idx_struct] = parse_pkg_idx (packdir)
1089 1089
1090 while (! feof (fid) || line != -1) 1090 while (! feof (fid) || line != -1)
1091 if (! any (! isspace (line)) || line(1) == "#" || any (line == "=")) 1091 if (! any (! isspace (line)) || line(1) == "#" || any (line == "="))
1092 ## Comments, blank lines or comments about unimplemented 1092 ## Comments, blank lines or comments about unimplemented
1093 ## functions: do nothing 1093 ## functions: do nothing
1094 ## FIXME: probably comments and pointers to external functions 1094 ## FIXME: probably comments and pointers to external functions
1095 ## could be treated better when printing to screen? 1095 ## could be treated better when printing to screen?
@@ -1114,7 +1114,7 @@ function [pkg_idx_struct] = parse_pkg_idx (packdir)
1114 fclose (fid); 1114 fclose (fid);
1115endfunction 1115endfunction
1116 1116
1117function print_package_description (pkg_name, pkg_ver, pkg_idx_struct, 1117function print_package_description (pkg_name, pkg_ver, pkg_idx_struct,
1118 pkg_desc, status, verbose) 1118 pkg_desc, status, verbose)
1119 1119
1120 printf ("---\nPackage name:\n\t%s\n", pkg_name); 1120 printf ("---\nPackage name:\n\t%s\n", pkg_name);
@@ -1122,7 +1122,7 @@ function print_package_description (pkg_name, pkg_ver, pkg_idx_struct,
1122 printf ("Short description:\n\t%s\n", pkg_desc); 1122 printf ("Short description:\n\t%s\n", pkg_desc);
1123 printf ("Status:\n\t%s\n", status); 1123 printf ("Status:\n\t%s\n", status);
1124 if (verbose) 1124 if (verbose)
1125 printf ("---\nProvides:\n"); 1125 printf ("---\nProvides:\n");
1126 for i = 1:length(pkg_idx_struct) 1126 for i = 1:length(pkg_idx_struct)
1127 if (! isempty (pkg_idx_struct{i}.functions)) 1127 if (! isempty (pkg_idx_struct{i}.functions))
1128 printf ("%s\n", pkg_idx_struct{i}.category); 1128 printf ("%s\n", pkg_idx_struct{i}.category);
@@ -1177,26 +1177,26 @@ function repackage (builddir, buildlist)
1177 unlink (fullfile (pack.name, "inst", "PKG_DEL")); 1177 unlink (fullfile (pack.name, "inst", "PKG_DEL"));
1178 endif 1178 endif
1179 if (exist (fullfile (archdir, "PKG_ADD"), "file")) 1179 if (exist (fullfile (archdir, "PKG_ADD"), "file"))
1180 movefile (fullfile (archdir, "PKG_ADD"), 1180 movefile (fullfile (archdir, "PKG_ADD"),
1181 fullfile (pack.name, "PKG_ADD")); 1181 fullfile (pack.name, "PKG_ADD"));
1182 endif 1182 endif
1183 if (exist (fullfile (archdir, "PKG_DEL"), "file")) 1183 if (exist (fullfile (archdir, "PKG_DEL"), "file"))
1184 movefile (fullfile (archdir, "PKG_DEL"), 1184 movefile (fullfile (archdir, "PKG_DEL"),
1185 fullfile (pack.name, "PKG_DEL")); 1185 fullfile (pack.name, "PKG_DEL"));
1186 endif 1186 endif
1187 else 1187 else
1188 if (exist (fullfile (pack.name, "inst", "PKG_ADD"), "file")) 1188 if (exist (fullfile (pack.name, "inst", "PKG_ADD"), "file"))
1189 movefile (fullfile (pack.name, "inst", "PKG_ADD"), 1189 movefile (fullfile (pack.name, "inst", "PKG_ADD"),
1190 fullfile (pack.name, "PKG_ADD")); 1190 fullfile (pack.name, "PKG_ADD"));
1191 endif 1191 endif
1192 if (exist (fullfile (pack.name, "inst", "PKG_DEL"), "file")) 1192 if (exist (fullfile (pack.name, "inst", "PKG_DEL"), "file"))
1193 movefile (fullfile (pack.name, "inst", "PKG_DEL"), 1193 movefile (fullfile (pack.name, "inst", "PKG_DEL"),
1194 fullfile (pack.name, "PKG_DEL")); 1194 fullfile (pack.name, "PKG_DEL"));
1195 endif 1195 endif
1196 endif 1196 endif
1197 tfile = cstrcat (pack.name, "-", pack.version, ".tar"); 1197 tfile = cstrcat (pack.name, "-", pack.version, ".tar");
1198 tar (tfile, pack.name); 1198 tar (tfile, pack.name);
1199 try 1199 try
1200 gzip (tfile); 1200 gzip (tfile);
1201 unlink (tfile); 1201 unlink (tfile);
1202 catch 1202 catch
@@ -1231,7 +1231,7 @@ function prepare_installation (desc, packdir)
1231 wd = pwd (); 1231 wd = pwd ();
1232 try 1232 try
1233 cd (packdir); 1233 cd (packdir);
1234 pre_install (desc); 1234 pre_install (desc);
1235 cd (wd); 1235 cd (wd);
1236 catch 1236 catch
1237 cd (wd); 1237 cd (wd);
@@ -1245,13 +1245,13 @@ function prepare_installation (desc, packdir)
1245 [status, msg] = mkdir (inst_dir); 1245 [status, msg] = mkdir (inst_dir);
1246 if (status != 1) 1246 if (status != 1)
1247 rm_rf (desc.dir); 1247 rm_rf (desc.dir);
1248 error ("the 'inst' directory did not exist and could not be created: %s", 1248 error ("the 'inst' directory did not exist and could not be created: %s",
1249 msg); 1249 msg);
1250 endif 1250 endif
1251 endif 1251 endif
1252endfunction 1252endfunction
1253 1253
1254function configure_make (desc, packdir, verbose) 1254function configure_make (desc, packdir, verbose)
1255 ## Perform ./configure, make, make install in "src". 1255 ## Perform ./configure, make, make install in "src".
1256 if (exist (fullfile (packdir, "src"), "dir")) 1256 if (exist (fullfile (packdir, "src"), "dir"))
1257 src = fullfile (packdir, "src"); 1257 src = fullfile (packdir, "src");
@@ -1362,7 +1362,7 @@ function configure_make (desc, packdir, verbose)
1362 printf (" %s", archdependent{:}); 1362 printf (" %s", archdependent{:});
1363 printf (" %s\n", archdir); 1363 printf (" %s\n", archdir);
1364 endif 1364 endif
1365 if (! exist (archdir, "dir")) 1365 if (! exist (archdir, "dir"))
1366 mkdir (archdir); 1366 mkdir (archdir);
1367 endif 1367 endif
1368 [status, output] = copyfile (archdependent, archdir); 1368 [status, output] = copyfile (archdependent, archdir);
@@ -1398,8 +1398,8 @@ endfunction
1398function create_pkgadddel (desc, packdir, nm, global_install) 1398function create_pkgadddel (desc, packdir, nm, global_install)
1399 instpkg = fullfile (desc.dir, nm); 1399 instpkg = fullfile (desc.dir, nm);
1400 instfid = fopen (instpkg, "wt"); 1400 instfid = fopen (instpkg, "wt");
1401 ## If it is exists, most of the PKG_* file should go into the 1401 ## If it is exists, most of the PKG_* file should go into the
1402 ## architecture dependent directory so that the autoload/mfilename 1402 ## architecture dependent directory so that the autoload/mfilename
1403 ## commands work as expected. The only part that doesn't is the 1403 ## commands work as expected. The only part that doesn't is the
1404 ## part in the main directory. 1404 ## part in the main directory.
1405 archdir = fullfile (getarchprefix (desc), cstrcat (desc.name, "-", 1405 archdir = fullfile (getarchprefix (desc), cstrcat (desc.name, "-",
@@ -1465,7 +1465,7 @@ function copy_files (desc, packdir, global_install)
1465 if (! exist (desc.dir, "dir")) 1465 if (! exist (desc.dir, "dir"))
1466 [status, output] = mkdir (desc.dir); 1466 [status, output] = mkdir (desc.dir);
1467 if (status != 1) 1467 if (status != 1)
1468 error ("couldn't create installation directory %s : %s", 1468 error ("couldn't create installation directory %s : %s",
1469 desc.dir, output); 1469 desc.dir, output);
1470 endif 1470 endif
1471 endif 1471 endif
@@ -1493,32 +1493,32 @@ function copy_files (desc, packdir, global_install)
1493 [status, output] = mkdir (octm3); 1493 [status, output] = mkdir (octm3);
1494 if (status != 1) 1494 if (status != 1)
1495 rm_rf (desc.dir); 1495 rm_rf (desc.dir);
1496 error ("couldn't create installation directory %s : %s", 1496 error ("couldn't create installation directory %s : %s",
1497 octm3, output); 1497 octm3, output);
1498 endif 1498 endif
1499 endif 1499 endif
1500 [status, output] = mkdir (octm2); 1500 [status, output] = mkdir (octm2);
1501 if (status != 1) 1501 if (status != 1)
1502 rm_rf (desc.dir); 1502 rm_rf (desc.dir);
1503 error ("couldn't create installation directory %s : %s", 1503 error ("couldn't create installation directory %s : %s",
1504 octm2, output); 1504 octm2, output);
1505 endif 1505 endif
1506 endif 1506 endif
1507 [status, output] = mkdir (octm1); 1507 [status, output] = mkdir (octm1);
1508 if (status != 1) 1508 if (status != 1)
1509 rm_rf (desc.dir); 1509 rm_rf (desc.dir);
1510 error ("couldn't create installation directory %s : %s", 1510 error ("couldn't create installation directory %s : %s",
1511 octm1, output); 1511 octm1, output);
1512 endif 1512 endif
1513 endif 1513 endif
1514 [status, output] = mkdir (octfiledir); 1514 [status, output] = mkdir (octfiledir);
1515 if (status != 1) 1515 if (status != 1)
1516 rm_rf (desc.dir); 1516 rm_rf (desc.dir);
1517 error ("couldn't create installation directory %s : %s", 1517 error ("couldn't create installation directory %s : %s",
1518 octfiledir, output); 1518 octfiledir, output);
1519 endif 1519 endif
1520 endif 1520 endif
1521 [status, output] = movefile (fullfile (desc.dir, getarch (), "*"), 1521 [status, output] = movefile (fullfile (desc.dir, getarch (), "*"),
1522 octfiledir); 1522 octfiledir);
1523 rm_rf (fullfile (desc.dir, getarch ())); 1523 rm_rf (fullfile (desc.dir, getarch ()));
1524 1524
@@ -1753,7 +1753,7 @@ function deps_cell = fix_depends (depends)
1753 version = fix_version (parts{2}); 1753 version = fix_version (parts{2});
1754 1754
1755 ## If no version is specified for the dependency 1755 ## If no version is specified for the dependency
1756 ## we say that the version should be greater than 1756 ## we say that the version should be greater than
1757 ## or equal to "0.0.0". 1757 ## or equal to "0.0.0".
1758 else 1758 else
1759 package = tolower (strip (dep)); 1759 package = tolower (strip (dep));
@@ -1813,7 +1813,7 @@ function write_index (desc, dir, index_file, global_install)
1813 if (err) 1813 if (err)
1814 error ("couldn't read directory %s: %s", tmpdir, msg); 1814 error ("couldn't read directory %s: %s", tmpdir, msg);
1815 endif 1815 endif
1816 files = [files; files2]; 1816 files = [files; files2];
1817 endif 1817 endif
1818 1818
1819 functions = {}; 1819 functions = {};
@@ -1910,7 +1910,7 @@ function [out1, out2] = installed_packages (local_list, global_list)
1910 endfor 1910 endfor
1911 if (! isempty(dup)) 1911 if (! isempty(dup))
1912 installed_pkgs_lst(dup) = []; 1912 installed_pkgs_lst(dup) = [];
1913 endif 1913 endif
1914 1914
1915 ## Now check if the package is loaded. 1915 ## Now check if the package is loaded.
1916 tmppath = strrep (path(), "\\", "/"); 1916 tmppath = strrep (path(), "\\", "/");
@@ -1957,9 +1957,9 @@ function [out1, out2] = installed_packages (local_list, global_list)
1957 h1 = "Package Name"; 1957 h1 = "Package Name";
1958 h2 = "Version"; 1958 h2 = "Version";
1959 h3 = "Installation directory"; 1959 h3 = "Installation directory";
1960 max_name_length = length (h1); 1960 max_name_length = length (h1);
1961 max_version_length = length (h2); 1961 max_version_length = length (h2);
1962 names = cell (num_packages, 1); 1962 names = cell (num_packages, 1);
1963 for i = 1:num_packages 1963 for i = 1:num_packages
1964 max_name_length = max (max_name_length, 1964 max_name_length = max (max_name_length,
1965 length (installed_pkgs_lst{i}.name)); 1965 length (installed_pkgs_lst{i}.name));
@@ -1996,7 +1996,7 @@ function [out1, out2] = installed_packages (local_list, global_list)
1996 first_char = length (cur_dir) - max_dir_length + 4; 1996 first_char = length (cur_dir) - max_dir_length + 4;
1997 first_filesep = strfind (cur_dir(first_char:end), filesep()); 1997 first_filesep = strfind (cur_dir(first_char:end), filesep());
1998 if (! isempty (first_filesep)) 1998 if (! isempty (first_filesep))
1999 cur_dir = cstrcat ("...", 1999 cur_dir = cstrcat ("...",
2000 cur_dir((first_char + first_filesep(1) - 1):end)); 2000 cur_dir((first_char + first_filesep(1) - 1):end));
2001 else 2001 else
2002 cur_dir = cstrcat ("...", cur_dir(first_char:end)); 2002 cur_dir = cstrcat ("...", cur_dir(first_char:end));
@@ -2026,7 +2026,7 @@ function load_packages (files, handle_deps, local_list, global_list)
2026 if (length (files) == 1 && strcmp (files{1}, "all")) 2026 if (length (files) == 1 && strcmp (files{1}, "all"))
2027 idx = [1:length(installed_pkgs_lst)]; 2027 idx = [1:length(installed_pkgs_lst)];
2028 ## Load auto. 2028 ## Load auto.
2029 elseif (length (files) == 1 && strcmp (files{1}, "auto")) 2029 elseif (length (files) == 1 && strcmp (files{1}, "auto"))
2030 idx = []; 2030 idx = [];
2031 for i = 1:length (installed_pkgs_lst) 2031 for i = 1:length (installed_pkgs_lst)
2032 if (exist (fullfile (pdirs{i}, "packinfo", ".autoload"), "file")) 2032 if (exist (fullfile (pdirs{i}, "packinfo", ".autoload"), "file"))
@@ -2162,7 +2162,7 @@ endfunction
2162 2162
2163function archprefix = getarchprefix (desc, global_install) 2163function archprefix = getarchprefix (desc, global_install)
2164 if ((nargin == 2 && global_install) || (nargin < 2 && issuperuser ())) 2164 if ((nargin == 2 && global_install) || (nargin < 2 && issuperuser ()))
2165 archprefix = fullfile (octave_config_info ("libexecdir"), "octave", 2165 archprefix = fullfile (octave_config_info ("libexecdir"), "octave",
2166 "packages", cstrcat(desc.name, "-", desc.version)); 2166 "packages", cstrcat(desc.name, "-", desc.version));
2167 else 2167 else
2168 archprefix = desc.dir; 2168 archprefix = desc.dir;
@@ -2207,7 +2207,7 @@ function newdesc = save_order (desc)
2207 newdesc = {}; 2207 newdesc = {};
2208 for i = 1 : length(desc) 2208 for i = 1 : length(desc)
2209 deps = desc{i}.depends; 2209 deps = desc{i}.depends;
2210 if (isempty (deps) || (length (deps) == 1 && 2210 if (isempty (deps) || (length (deps) == 1 &&
2211 strcmp(deps{1}.package, "octave"))) 2211 strcmp(deps{1}.package, "octave")))
2212 newdesc {end + 1} = desc{i}; 2212 newdesc {end + 1} = desc{i};
2213 else 2213 else
@@ -2220,7 +2220,7 @@ function newdesc = save_order (desc)
2220 endif 2220 endif
2221 endfor 2221 endfor
2222 endfor 2222 endfor
2223 if (! isempty (tmpdesc)) 2223 if (! isempty (tmpdesc))
2224 newdesc = {newdesc{:}, save_order(tmpdesc){:}, desc{i}}; 2224 newdesc = {newdesc{:}, save_order(tmpdesc){:}, desc{i}};
2225 else 2225 else
2226 newdesc{end+1} = desc{i}; 2226 newdesc{end+1} = desc{i};
@@ -2278,7 +2278,7 @@ function idx = load_package_dirs (lidx, idx, handle_deps, installed_pkgs_lst)
2278 else 2278 else
2279 if (handle_deps) 2279 if (handle_deps)
2280 deps = installed_pkgs_lst{i}.depends; 2280 deps = installed_pkgs_lst{i}.depends;
2281 if ((length (deps) > 1) || (length (deps) == 1 && 2281 if ((length (deps) > 1) || (length (deps) == 1 &&
2282 ! strcmp(deps{1}.package, "octave"))) 2282 ! strcmp(deps{1}.package, "octave")))
2283 tmplidx = []; 2283 tmplidx = [];
2284 for k = 1 : length (deps) 2284 for k = 1 : length (deps)
@@ -2289,7 +2289,7 @@ function idx = load_package_dirs (lidx, idx, handle_deps, installed_pkgs_lst)
2289 endif 2289 endif
2290 endfor 2290 endfor
2291 endfor 2291 endfor
2292 idx = load_package_dirs (tmplidx, idx, handle_deps, 2292 idx = load_package_dirs (tmplidx, idx, handle_deps,
2293 installed_pkgs_lst); 2293 installed_pkgs_lst);
2294 endif 2294 endif
2295 endif 2295 endif