aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMiles Bader2006-12-16 01:29:26 +0000
committerMiles Bader2006-12-16 01:29:26 +0000
commit4bc5d7668ef47295810f28a14d67b4a9e12a341f (patch)
tree2e22bd79984f0772c43e294babc07c1508ce95ce
parentb44bfd5e9bf3a0e853bc0d4788e4c89a01a70d6a (diff)
parentc3342e8eb3eaf4560210fd030383a940640648f2 (diff)
downloademacs-4bc5d7668ef47295810f28a14d67b4a9e12a341f.tar.gz
emacs-4bc5d7668ef47295810f28a14d67b4a9e12a341f.zip
Merge from emacs--devo--0
Patches applied: * emacs--devo--0 (patch 545-562) - Update from CVS - Update from erc--emacs--22 - Merge from gnus--rel--5.10 - erc-iswitchb: Temporarily enable iswitchb mode * gnus--rel--5.10 (patch 172-176) - Merge from emacs--devo--0 - Update from CVS - Update from CVS: lisp/legacy-gnus-agent.el: Add Copyright notice. Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-156
-rw-r--r--ChangeLog24
-rw-r--r--INSTALL10
-rw-r--r--admin/FOR-RELEASE11
-rwxr-xr-xconfigure295
-rw-r--r--configure.in33
-rw-r--r--etc/ChangeLog4
-rw-r--r--etc/ERC-NEWS5
-rw-r--r--etc/NEWS10
-rw-r--r--etc/edt-user.doc6
-rw-r--r--leim/ChangeLog12
-rw-r--r--leim/Makefile.in2
-rw-r--r--leim/leim-ext.el4
-rw-r--r--leim/makefile.w32-in7
-rw-r--r--leim/quail/cyril-jis.el2
-rw-r--r--leim/quail/cyrillic.el2
-rw-r--r--leim/quail/ethiopic.el2
-rw-r--r--leim/quail/greek.el2
-rw-r--r--leim/quail/hangul.el2
-rw-r--r--leim/quail/hangul3.el2
-rw-r--r--leim/quail/hanja-jis.el2
-rw-r--r--leim/quail/hanja.el2
-rw-r--r--leim/quail/hebrew.el2
-rw-r--r--leim/quail/ipa.el2
-rw-r--r--leim/quail/japanese.el2
-rw-r--r--leim/quail/lao.el2
-rw-r--r--leim/quail/latin-alt.el4
-rw-r--r--leim/quail/latin-ltx.el2
-rw-r--r--leim/quail/latin-post.el2
-rw-r--r--leim/quail/latin-pre.el2
-rw-r--r--leim/quail/lrt.el2
-rw-r--r--leim/quail/py-punct.el2
-rw-r--r--leim/quail/pypunct-b5.el2
-rw-r--r--leim/quail/symbol-ksc.el2
-rw-r--r--leim/quail/thai.el3
-rw-r--r--leim/quail/tibetan.el2
-rw-r--r--leim/quail/uni-input.el4
-rw-r--r--leim/quail/viqr.el2
-rw-r--r--lib-src/ChangeLog15
-rw-r--r--lib-src/emacsclient.c52
-rw-r--r--lisp/ChangeLog188
-rw-r--r--lisp/ChangeLog.13
-rw-r--r--lisp/ChangeLog.10156
-rw-r--r--lisp/ChangeLog.112
-rw-r--r--lisp/ChangeLog.23
-rw-r--r--lisp/ChangeLog.33
-rw-r--r--lisp/ChangeLog.43
-rw-r--r--lisp/ChangeLog.53
-rw-r--r--lisp/ChangeLog.63
-rw-r--r--lisp/ChangeLog.73
-rw-r--r--lisp/ChangeLog.83
-rw-r--r--lisp/ChangeLog.93
-rw-r--r--lisp/align.el5
-rw-r--r--lisp/calc/calc-aent.el26
-rw-r--r--lisp/cmuscheme.el6
-rw-r--r--lisp/comint.el2
-rw-r--r--lisp/composite.el2
-rw-r--r--lisp/ediff-merg.el4
-rw-r--r--lisp/emacs-lisp/advice.el2
-rw-r--r--lisp/emacs-lisp/assoc.el2
-rw-r--r--lisp/emacs-lisp/authors.el2
-rw-r--r--lisp/emacs-lisp/byte-run.el2
-rw-r--r--lisp/emacs-lisp/cl-compat.el2
-rw-r--r--lisp/emacs-lisp/cl-extra.el2
-rw-r--r--lisp/emacs-lisp/cl-macs.el16
-rw-r--r--lisp/emacs-lisp/cl-seq.el2
-rw-r--r--lisp/emacs-lisp/cl-specs.el2
-rw-r--r--lisp/emacs-lisp/cl.el2
-rw-r--r--lisp/emacs-lisp/crm.el2
-rw-r--r--lisp/emacs-lisp/cust-print.el2
-rw-r--r--lisp/emacs-lisp/derived.el2
-rw-r--r--lisp/emacs-lisp/easymenu.el4
-rw-r--r--lisp/emacs-lisp/eldoc.el2
-rw-r--r--lisp/emacs-lisp/elint.el2
-rw-r--r--lisp/emacs-lisp/ewoc.el2
-rw-r--r--lisp/emacs-lisp/find-func.el2
-rw-r--r--lisp/emacs-lisp/find-gc.el2
-rw-r--r--lisp/emacs-lisp/float-sup.el2
-rw-r--r--lisp/emacs-lisp/generic.el2
-rw-r--r--lisp/emacs-lisp/gulp.el2
-rw-r--r--lisp/emacs-lisp/helper.el2
-rw-r--r--lisp/emacs-lisp/lisp.el2
-rw-r--r--lisp/emacs-lisp/lmenu.el2
-rw-r--r--lisp/emacs-lisp/lselect.el2
-rw-r--r--lisp/emacs-lisp/map-ynp.el2
-rw-r--r--lisp/emacs-lisp/regexp-opt.el2
-rw-r--r--lisp/emacs-lisp/regi.el2
-rw-r--r--lisp/emacs-lisp/ring.el2
-rw-r--r--lisp/emacs-lisp/shadow.el2
-rw-r--r--lisp/emacs-lisp/sregex.el2
-rw-r--r--lisp/emacs-lisp/syntax.el8
-rw-r--r--lisp/emacs-lisp/timer.el2
-rw-r--r--lisp/emacs-lisp/tq.el2
-rw-r--r--lisp/emacs-lisp/trace.el2
-rw-r--r--lisp/emulation/crisp.el2
-rw-r--r--lisp/emulation/edt-lk201.el6
-rw-r--r--lisp/emulation/edt-mapper.el12
-rw-r--r--lisp/emulation/edt-pc.el6
-rw-r--r--lisp/emulation/edt-vt100.el4
-rw-r--r--lisp/emulation/edt.el12
-rw-r--r--lisp/emulation/pc-mode.el2
-rw-r--r--lisp/emulation/tpu-edt.el2
-rw-r--r--lisp/emulation/tpu-extras.el2
-rw-r--r--lisp/emulation/tpu-mapper.el2
-rw-r--r--lisp/emulation/vi.el2
-rw-r--r--lisp/emulation/vip.el4
-rw-r--r--lisp/emulation/ws-mode.el2
-rw-r--r--lisp/erc/ChangeLog30
-rw-r--r--lisp/erc/ChangeLog.012
-rw-r--r--lisp/erc/ChangeLog.022
-rw-r--r--lisp/erc/ChangeLog.032
-rw-r--r--lisp/erc/ChangeLog.042
-rw-r--r--lisp/erc/ChangeLog.052
-rw-r--r--lisp/erc/erc-dcc.el1
-rw-r--r--lisp/erc/erc-ezbounce.el8
-rw-r--r--lisp/erc/erc-list.el415
-rw-r--r--lisp/erc/erc-stamp.el4
-rw-r--r--lisp/erc/erc.el37
-rw-r--r--lisp/eshell/em-alias.el2
-rw-r--r--lisp/eshell/em-banner.el2
-rw-r--r--lisp/eshell/em-basic.el2
-rw-r--r--lisp/eshell/em-cmpl.el2
-rw-r--r--lisp/eshell/em-dirs.el2
-rw-r--r--lisp/eshell/em-glob.el2
-rw-r--r--lisp/eshell/em-hist.el2
-rw-r--r--lisp/eshell/em-ls.el2
-rw-r--r--lisp/eshell/em-pred.el2
-rw-r--r--lisp/eshell/em-prompt.el2
-rw-r--r--lisp/eshell/em-rebind.el2
-rw-r--r--lisp/eshell/em-script.el2
-rw-r--r--lisp/eshell/em-smart.el2
-rw-r--r--lisp/eshell/em-term.el2
-rw-r--r--lisp/eshell/em-xtra.el2
-rw-r--r--lisp/eshell/esh-arg.el2
-rw-r--r--lisp/eshell/esh-cmd.el2
-rw-r--r--lisp/eshell/esh-ext.el2
-rw-r--r--lisp/eshell/esh-io.el2
-rw-r--r--lisp/eshell/esh-maint.el2
-rw-r--r--lisp/eshell/esh-opt.el2
-rw-r--r--lisp/eshell/esh-proc.el2
-rw-r--r--lisp/eshell/esh-test.el2
-rw-r--r--lisp/eshell/esh-var.el2
-rw-r--r--lisp/eshell/eshell.el2
-rw-r--r--lisp/files.el12
-rw-r--r--lisp/frame.el4
-rw-r--r--lisp/gnus/ChangeLog17
-rw-r--r--lisp/gnus/ChangeLog.13
-rw-r--r--lisp/gnus/ChangeLog.23
-rw-r--r--lisp/gnus/format-spec.el2
-rw-r--r--lisp/gnus/gnus-async.el2
-rw-r--r--lisp/gnus/gnus-audio.el2
-rw-r--r--lisp/gnus/gnus-demon.el2
-rw-r--r--lisp/gnus/gnus-dup.el2
-rw-r--r--lisp/gnus/gnus-kill.el2
-rw-r--r--lisp/gnus/gnus-mh.el2
-rw-r--r--lisp/gnus/gnus-move.el2
-rw-r--r--lisp/gnus/gnus-nocem.el2
-rw-r--r--lisp/gnus/gnus-soup.el2
-rw-r--r--lisp/gnus/gnus-sum.el65
-rw-r--r--lisp/gnus/gnus-undo.el2
-rw-r--r--lisp/gnus/legacy-gnus-agent.el38
-rw-r--r--lisp/gnus/mail-parse.el2
-rw-r--r--lisp/gnus/mail-prsvr.el2
-rw-r--r--lisp/gnus/messcompat.el2
-rw-r--r--lisp/gnus/nndir.el2
-rw-r--r--lisp/gnus/nnkiboze.el2
-rw-r--r--lisp/gnus/nnlistserv.el2
-rw-r--r--lisp/gnus/nnspool.el2
-rw-r--r--lisp/gnus/nnwarchive.el2
-rw-r--r--lisp/gnus/rfc1843.el2
-rw-r--r--lisp/gnus/rfc2045.el2
-rw-r--r--lisp/gnus/rfc2047.el2
-rw-r--r--lisp/gnus/rfc2104.el2
-rw-r--r--lisp/gnus/rfc2231.el2
-rw-r--r--lisp/gnus/starttls.el2
-rw-r--r--lisp/gnus/utf7.el2
-rw-r--r--lisp/help-fns.el2
-rw-r--r--lisp/ido.el3
-rw-r--r--lisp/info.el5
-rw-r--r--lisp/international/ccl.el6
-rw-r--r--lisp/international/characters.el5
-rw-r--r--lisp/international/codepage.el2
-rw-r--r--lisp/international/encoded-kb.el6
-rw-r--r--lisp/international/fontset.el6
-rw-r--r--lisp/international/isearch-x.el6
-rw-r--r--lisp/international/iso-ascii.el3
-rw-r--r--lisp/international/iso-cvt.el4
-rw-r--r--lisp/international/iso-transl.el2
-rw-r--r--lisp/international/ja-dic-cnv.el3
-rw-r--r--lisp/international/ja-dic-utl.el3
-rw-r--r--lisp/international/kinsoku.el6
-rw-r--r--lisp/international/kkc.el6
-rw-r--r--lisp/international/latin1-disp.el3
-rw-r--r--lisp/international/mule-cmds.el28
-rw-r--r--lisp/international/mule-conf.el6
-rw-r--r--lisp/international/mule-diag.el7
-rw-r--r--lisp/international/mule-util.el7
-rw-r--r--lisp/international/mule.el3
-rw-r--r--lisp/international/ogonek.el3
-rw-r--r--lisp/international/quail.el6
-rw-r--r--lisp/international/titdic-cnv.el6
-rw-r--r--lisp/international/utf-7.el2
-rw-r--r--lisp/isearchb.el1
-rw-r--r--lisp/language/china-util.el5
-rw-r--r--lisp/language/chinese.el6
-rw-r--r--lisp/language/cyril-util.el3
-rw-r--r--lisp/language/cyrillic.el6
-rw-r--r--lisp/language/czech.el3
-rw-r--r--lisp/language/devan-util.el4
-rw-r--r--lisp/language/devanagari.el3
-rw-r--r--lisp/language/english.el5
-rw-r--r--lisp/language/ethio-util.el4
-rw-r--r--lisp/language/ethiopic.el6
-rw-r--r--lisp/language/european.el5
-rw-r--r--lisp/language/georgian.el3
-rw-r--r--lisp/language/greek.el4
-rw-r--r--lisp/language/hebrew.el7
-rw-r--r--lisp/language/ind-util.el3
-rw-r--r--lisp/language/indian.el5
-rw-r--r--lisp/language/japan-util.el6
-rw-r--r--lisp/language/japanese.el6
-rw-r--r--lisp/language/kannada.el2
-rw-r--r--lisp/language/knd-util.el2
-rw-r--r--lisp/language/korea-util.el5
-rw-r--r--lisp/language/korean.el6
-rw-r--r--lisp/language/lao-util.el5
-rw-r--r--lisp/language/lao.el2
-rw-r--r--lisp/language/malayalam.el2
-rw-r--r--lisp/language/misc-lang.el3
-rw-r--r--lisp/language/mlm-util.el2
-rw-r--r--lisp/language/romanian.el3
-rw-r--r--lisp/language/slovak.el3
-rw-r--r--lisp/language/tamil.el2
-rw-r--r--lisp/language/thai-util.el6
-rw-r--r--lisp/language/thai-word.el2
-rw-r--r--lisp/language/thai.el6
-rw-r--r--lisp/language/tibet-util.el6
-rw-r--r--lisp/language/tibetan.el5
-rw-r--r--lisp/language/tml-util.el2
-rw-r--r--lisp/language/utf-8-lang.el3
-rw-r--r--lisp/language/viet-util.el6
-rw-r--r--lisp/language/vietnamese.el6
-rw-r--r--lisp/mail/blessmail.el2
-rw-r--r--lisp/mail/footnote.el2
-rw-r--r--lisp/mail/mail-hist.el2
-rw-r--r--lisp/mail/mailabbrev.el4
-rw-r--r--lisp/mail/mailalias.el2
-rw-r--r--lisp/mail/mailheader.el2
-rw-r--r--lisp/mail/metamail.el2
-rw-r--r--lisp/mail/mspools.el2
-rw-r--r--lisp/mail/reporter.el4
-rw-r--r--lisp/mail/rfc2368.el6
-rw-r--r--lisp/mail/rfc822.el2
-rw-r--r--lisp/mail/rmailmsc.el2
-rw-r--r--lisp/mail/supercite.el2
-rw-r--r--lisp/mail/uce.el2
-rw-r--r--lisp/mail/undigest.el2
-rw-r--r--lisp/mail/unrmail.el2
-rw-r--r--lisp/mail/vms-pmail.el2
-rw-r--r--lisp/makefile.w32-in2
-rw-r--r--lisp/man.el25
-rw-r--r--lisp/menu-bar.el13
-rw-r--r--lisp/mh-e/ChangeLog2
-rw-r--r--lisp/mh-e/ChangeLog.12
-rw-r--r--lisp/mouse-sel.el4
-rw-r--r--lisp/net/browse-url.el28
-rw-r--r--lisp/net/eudc-bob.el2
-rw-r--r--lisp/net/eudc-export.el2
-rw-r--r--lisp/net/eudc-hotlist.el2
-rw-r--r--lisp/net/eudc-vars.el2
-rw-r--r--lisp/net/eudc.el2
-rw-r--r--lisp/net/eudcb-bbdb.el2
-rw-r--r--lisp/net/eudcb-ldap.el2
-rw-r--r--lisp/net/eudcb-mab.el1
-rw-r--r--lisp/net/eudcb-ph.el2
-rw-r--r--lisp/net/ldap.el2
-rw-r--r--lisp/net/rcompile.el2
-rw-r--r--lisp/net/rlogin.el4
-rw-r--r--lisp/net/snmp-mode.el2
-rw-r--r--lisp/net/telnet.el2
-rw-r--r--lisp/net/webjump.el2
-rw-r--r--lisp/obsolete/awk-mode.el2
-rw-r--r--lisp/obsolete/fast-lock.el2
-rw-r--r--lisp/obsolete/float.el2
-rw-r--r--lisp/obsolete/hscroll.el2
-rw-r--r--lisp/obsolete/iso-insert.el3
-rw-r--r--lisp/obsolete/iso-swed.el2
-rw-r--r--lisp/obsolete/keyswap.el2
-rw-r--r--lisp/obsolete/mlsupport.el2
-rw-r--r--lisp/obsolete/ooutline.el2
-rw-r--r--lisp/obsolete/options.el2
-rw-r--r--lisp/obsolete/profile.el2
-rw-r--r--lisp/obsolete/rnews.el2
-rw-r--r--lisp/obsolete/rnewspost.el2
-rw-r--r--lisp/obsolete/rsz-mini.el2
-rw-r--r--lisp/obsolete/scribe.el2
-rw-r--r--lisp/obsolete/sun-curs.el2
-rw-r--r--lisp/obsolete/sun-fns.el2
-rw-r--r--lisp/obsolete/swedish.el3
-rw-r--r--lisp/obsolete/x-apollo.el2
-rw-r--r--lisp/obsolete/x-menu.el2
-rw-r--r--lisp/play/5x5.el2
-rw-r--r--lisp/play/bruce.el2
-rw-r--r--lisp/play/cookie1.el2
-rw-r--r--lisp/play/decipher.el2
-rw-r--r--lisp/play/dissociate.el2
-rw-r--r--lisp/play/doctor.el2
-rw-r--r--lisp/play/gamegrid.el2
-rw-r--r--lisp/play/gametree.el2
-rw-r--r--lisp/play/handwrite.el2
-rw-r--r--lisp/play/landmark.el2
-rw-r--r--lisp/play/morse.el2
-rw-r--r--lisp/play/mpuz.el2
-rw-r--r--lisp/play/snake.el2
-rw-r--r--lisp/play/solitaire.el2
-rw-r--r--lisp/play/spook.el2
-rw-r--r--lisp/play/tetris.el2
-rw-r--r--lisp/play/yow.el2
-rw-r--r--lisp/progmodes/autoconf.el2
-rw-r--r--lisp/progmodes/cc-fonts.el2
-rw-r--r--lisp/progmodes/cc-langs.el4
-rw-r--r--lisp/progmodes/glasses.el3
-rw-r--r--lisp/progmodes/gud.el2
-rw-r--r--lisp/progmodes/idlw-help.el5
-rw-r--r--lisp/progmodes/idlwave.el10
-rw-r--r--lisp/progmodes/ld-script.el2
-rw-r--r--lisp/progmodes/sh-script.el4
-rw-r--r--lisp/progmodes/simula.el2
-rw-r--r--lisp/ps-bdf.el5
-rw-r--r--lisp/replace.el6
-rw-r--r--lisp/shell.el6
-rw-r--r--lisp/startup.el9
-rw-r--r--lisp/subr.el3
-rw-r--r--lisp/term/AT386.el6
-rw-r--r--lisp/term/iris-ansi.el2
-rw-r--r--lisp/term/mac-win.el6
-rw-r--r--lisp/term/news.el2
-rw-r--r--lisp/term/sun-mouse.el2
-rw-r--r--lisp/term/sup-mouse.el2
-rw-r--r--lisp/term/tvi970.el6
-rw-r--r--lisp/term/vt100.el2
-rw-r--r--lisp/term/w32-win.el2
-rw-r--r--lisp/term/wyse50.el2
-rw-r--r--lisp/term/xterm.el2
-rw-r--r--lisp/textmodes/bib-mode.el2
-rw-r--r--lisp/textmodes/bibtex.el4
-rw-r--r--lisp/textmodes/enriched.el2
-rw-r--r--lisp/textmodes/flyspell.el12
-rw-r--r--lisp/textmodes/makeinfo.el2
-rw-r--r--lisp/textmodes/page-ext.el2
-rw-r--r--lisp/textmodes/page.el2
-rw-r--r--lisp/textmodes/picture.el2
-rw-r--r--lisp/textmodes/refbib.el2
-rw-r--r--lisp/textmodes/refer.el40
-rw-r--r--lisp/textmodes/refill.el2
-rw-r--r--lisp/textmodes/reftex-auc.el3
-rw-r--r--lisp/textmodes/reftex-cite.el3
-rw-r--r--lisp/textmodes/reftex-dcr.el3
-rw-r--r--lisp/textmodes/reftex-global.el3
-rw-r--r--lisp/textmodes/reftex-index.el3
-rw-r--r--lisp/textmodes/reftex-parse.el3
-rw-r--r--lisp/textmodes/reftex-ref.el3
-rw-r--r--lisp/textmodes/reftex-sel.el3
-rw-r--r--lisp/textmodes/reftex-vars.el3
-rw-r--r--lisp/textmodes/spell.el2
-rw-r--r--lisp/textmodes/tex-mode.el2
-rw-r--r--lisp/textmodes/text-mode.el2
-rw-r--r--lisp/textmodes/tildify.el2
-rw-r--r--lisp/textmodes/two-column.el2
-rw-r--r--lisp/textmodes/underline.el2
-rw-r--r--lisp/url/ChangeLog4
-rw-r--r--lisp/url/url-gw.el4
-rw-r--r--lisp/url/url-http.el48
-rw-r--r--lisp/url/url-proxy.el10
-rw-r--r--lisp/url/url.el1
-rw-r--r--lisp/w32-fns.el14
-rw-r--r--lisp/wdired.el251
-rw-r--r--lispref/ChangeLog30
-rw-r--r--lispref/abbrevs.texi14
-rw-r--r--lispref/makefile.w32-in4
-rw-r--r--lispref/modes.texi21
-rw-r--r--man/ChangeLog36
-rw-r--r--man/cmdargs.texi8
-rw-r--r--man/erc.texi4
-rw-r--r--man/files.texi7
-rw-r--r--man/gnus.texi31
-rw-r--r--man/misc.texi86
-rw-r--r--man/text.texi2
-rw-r--r--oldXMenu/Activate.c2
-rw-r--r--oldXMenu/AddPane.c2
-rw-r--r--oldXMenu/AddSel.c2
-rw-r--r--oldXMenu/ChgPane.c2
-rw-r--r--oldXMenu/ChgSel.c2
-rw-r--r--oldXMenu/Create.c2
-rw-r--r--oldXMenu/DelPane.c2
-rw-r--r--oldXMenu/DelSel.c2
-rw-r--r--oldXMenu/Destroy.c2
-rw-r--r--oldXMenu/Error.c2
-rw-r--r--oldXMenu/EvHand.c2
-rw-r--r--oldXMenu/FindPane.c2
-rw-r--r--oldXMenu/FindSel.c2
-rw-r--r--oldXMenu/InsPane.c2
-rw-r--r--oldXMenu/InsSel.c2
-rw-r--r--oldXMenu/Internal.c2
-rw-r--r--oldXMenu/Locate.c2
-rw-r--r--oldXMenu/Post.c2
-rw-r--r--oldXMenu/Recomp.c2
-rw-r--r--oldXMenu/SetAEQ.c2
-rw-r--r--oldXMenu/SetFrz.c2
-rw-r--r--oldXMenu/SetPane.c2
-rw-r--r--oldXMenu/SetSel.c2
-rw-r--r--oldXMenu/X10.h2
-rw-r--r--oldXMenu/XCrAssoc.c2
-rw-r--r--oldXMenu/XDelAssoc.c2
-rw-r--r--oldXMenu/XDestAssoc.c2
-rw-r--r--oldXMenu/XLookAssoc.c2
-rw-r--r--oldXMenu/XMakeAssoc.c2
-rw-r--r--oldXMenu/XMenu.h2
-rw-r--r--oldXMenu/XMenuInt.h2
-rw-r--r--oldXMenu/copyright.h2
-rw-r--r--oldXMenu/insque.c2
-rw-r--r--src/ChangeLog141
-rw-r--r--src/abbrev.c2
-rw-r--r--src/buffer.c14
-rw-r--r--src/category.c3
-rw-r--r--src/category.h3
-rw-r--r--src/ccl.c3
-rw-r--r--src/ccl.h3
-rw-r--r--src/charset.c3
-rw-r--r--src/charset.h3
-rw-r--r--src/coding.c3
-rw-r--r--src/coding.h3
-rw-r--r--src/composite.c2
-rw-r--r--src/composite.h2
-rw-r--r--src/emacs.c27
-rw-r--r--src/fontset.c3
-rw-r--r--src/fontset.h3
-rw-r--r--src/frame.h2
-rw-r--r--src/keyboard.c180
-rw-r--r--src/keyboard.h1
-rw-r--r--src/keymap.c29
-rw-r--r--src/lread.c6
-rw-r--r--src/m/amdx86-64.h7
-rw-r--r--src/mac.c25
-rw-r--r--src/macfns.c27
-rw-r--r--src/macselect.c3
-rw-r--r--src/macterm.c226
-rw-r--r--src/macterm.h1
-rw-r--r--src/marker.c2
-rw-r--r--src/minibuf.c8
-rw-r--r--src/msdos.c2
-rw-r--r--src/msdos.h2
-rw-r--r--src/process.c8
-rw-r--r--src/syntax.c4
-rw-r--r--src/systime.h8
-rw-r--r--src/w32fns.c10
-rw-r--r--src/w32term.c8
-rw-r--r--src/xdisp.c15
-rw-r--r--src/xterm.c48
-rw-r--r--vms/make-mms-derivative.el2
459 files changed, 2241 insertions, 1842 deletions
diff --git a/ChangeLog b/ChangeLog
index 210cf6b9806..8c0bdce6c22 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,21 @@
12006-12-10 Andreas Schwab <schwab@suse.de>
2
3 * configure.in: Remove check for struct timezone, its result is
4 never used.
5
6 * configure: Regenerate.
7
82006-12-08 NAKAJI Hiroyuki <nakaji@jp.freebsd.org> (tiny change)
9
10 * configure.in: Add support for Solaris 10 on x86-64.
11
12 * configure: Regenerate.
13
142006-12-08 Jan Dj,Ad(Brv <jan.h.d@swipnet.se>
15
16 * INSTALL (DETAILED BUILDING AND INSTALLATION): Document usage
17 of PKG_CONFIG_PATH.
18
12006-12-04 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> 192006-12-04 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
2 20
3 * configure.in (HAVE_SYNC): New test. 21 * configure.in (HAVE_SYNC): New test.
@@ -666,7 +684,7 @@
666 684
667 * make-dist (lispref): Do include lispref/index.texi. 685 * make-dist (lispref): Do include lispref/index.texi.
668 686
6692004-01-06 Eric Hanchrow <offby1@blarg.net> (tiny change) 6872004-01-06 Eric Hanchrow <offby1@blarg.net> (tiny change)
670 688
671 * make-dist (tempdir): Include cursors in nt/icons. 689 * make-dist (tempdir): Include cursors in nt/icons.
672 690
@@ -1913,7 +1931,7 @@
1913 1931
19142000-06-02 Dave Love <fx@gnu.org> 19322000-06-02 Dave Love <fx@gnu.org>
1915 1933
1916 * Makefile.in: (install-arch-indep): Add pcl-cvs to list of info 1934 * Makefile.in (install-arch-indep): Add pcl-cvs to list of info
1917 files. 1935 files.
1918 1936
1919 * configure.in: Don't specify -n32 flag for mips-sgi-irix6.5. 1937 * configure.in: Don't specify -n32 flag for mips-sgi-irix6.5.
@@ -2073,7 +2091,7 @@
2073 2091
20741999-12-04 Dave Love <fx@gnu.org> 20921999-12-04 Dave Love <fx@gnu.org>
2075 2093
2076 * Makefile.in: (install-arch-indep): Depend on `info'. 2094 * Makefile.in (install-arch-indep): Depend on `info'.
2077 (install-strip): Use `install' as sub-make target. 2095 (install-strip): Use `install' as sub-make target.
2078 2096
20791999-11-23 Ken Raeburn <raeburn@gnu.org> 20971999-11-23 Ken Raeburn <raeburn@gnu.org>
diff --git a/INSTALL b/INSTALL
index 72a3d2d10bd..be3dde42f12 100644
--- a/INSTALL
+++ b/INSTALL
@@ -383,6 +383,16 @@ to look in `/bar/mylib' for libraries, pass the -O3 optimization
383switch to the compiler, and link against libfoo.a and libbar.a 383switch to the compiler, and link against libfoo.a and libbar.a
384libraries in addition to the standard ones. 384libraries in addition to the standard ones.
385 385
386For some libraries, like Gtk+, fontconfig and ALSA, `configure' use
387pkg-config to find where those libraries are installed.
388If you wan't pkg-config to look in special directories, you have to set
389the environment variable PKG_CONFIG_PATH to point to the directories
390where the .pc-files for those libraries are.
391For example:
392
393 PKG_CONFIG_PATH='/usr/local/alsa/lib/pkgconfig:/opt/gtk+-2.8/lib/pkgconfig' \
394 ./configure
395
386The work of `configure' can be done by editing various files in the 396The work of `configure' can be done by editing various files in the
387distribution, but using `configure' is easier. See the section called 397distribution, but using `configure' is easier. See the section called
388"CONFIGURATION BY HAND" below if you want to do the configuration 398"CONFIGURATION BY HAND" below if you want to do the configuration
diff --git a/admin/FOR-RELEASE b/admin/FOR-RELEASE
index 3e481810a69..55aa32bd0e9 100644
--- a/admin/FOR-RELEASE
+++ b/admin/FOR-RELEASE
@@ -53,11 +53,16 @@ to the hack introduced on 2005-07-01 to fix some other Cleartype problem.
53** monnier@iro.umontreal.ca, Nov 24: 53** monnier@iro.umontreal.ca, Nov 24:
54 gnus-summary-tick-article-forward doesn't work any more? 54 gnus-summary-tick-article-forward doesn't work any more?
55 55
56** christopher.ian.moore@gmail.com, Nov 30: too much recursion in gnus-sort-threads-1. 56** Should CC mode set beginning-of-defun-function?
57 57
58** dooglus@gmail.com, Dec 1: Replacement of spaces in wdired 58** Need papers from Rubini for his code in t-mouse.el
59 Sent instructions.
59 60
60** Should CC mode set beginning-of-defun-function? 61** jpff@cs.bath.ac.uk, Dec 7: Failure to submit second netnews message.
62
63** kbd_buffer_store_event[_hold] called from outside signal handlers.
64
65** org.el change papers
61 66
62* DOCUMENTATION 67* DOCUMENTATION
63 68
diff --git a/configure b/configure
index 592fe909c80..645820a18b6 100755
--- a/configure
+++ b/configure
@@ -2456,6 +2456,7 @@ _ACEOF
2456 m68* ) machine=sun3 ;; 2456 m68* ) machine=sun3 ;;
2457 i[3456]86-sun-sunos[34]* ) machine=sun386 ;; 2457 i[3456]86-sun-sunos[34]* ) machine=sun386 ;;
2458 i[3456]86-*-* ) machine=intel386 ;; 2458 i[3456]86-*-* ) machine=intel386 ;;
2459 amd64-*-*|x86_64-*-*) machine=amdx86-64 ;;
2459 powerpcle* ) machine=powerpcle ;; 2460 powerpcle* ) machine=powerpcle ;;
2460 powerpc* | rs6000* ) machine=ibmrs6000 ;; 2461 powerpc* | rs6000* ) machine=ibmrs6000 ;;
2461 sparc* ) machine=sparc ;; 2462 sparc* ) machine=sparc ;;
@@ -21653,300 +21654,6 @@ _ACEOF
21653 fi 21654 fi
21654fi 21655fi
21655 21656
21656# This defines (or not) HAVE_TZNAME and HAVE_TM_ZONE.
21657echo "$as_me:$LINENO: checking for struct tm.tm_zone" >&5
21658echo $ECHO_N "checking for struct tm.tm_zone... $ECHO_C" >&6
21659if test "${ac_cv_member_struct_tm_tm_zone+set}" = set; then
21660 echo $ECHO_N "(cached) $ECHO_C" >&6
21661else
21662 cat >conftest.$ac_ext <<_ACEOF
21663/* confdefs.h. */
21664_ACEOF
21665cat confdefs.h >>conftest.$ac_ext
21666cat >>conftest.$ac_ext <<_ACEOF
21667/* end confdefs.h. */
21668#include <sys/types.h>
21669#include <$ac_cv_struct_tm>
21670
21671
21672int
21673main ()
21674{
21675static struct tm ac_aggr;
21676if (ac_aggr.tm_zone)
21677return 0;
21678 ;
21679 return 0;
21680}
21681_ACEOF
21682rm -f conftest.$ac_objext
21683if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5
21684 (eval $ac_compile) 2>conftest.er1
21685 ac_status=$?
21686 grep -v '^ *+' conftest.er1 >conftest.err
21687 rm -f conftest.er1
21688 cat conftest.err >&5
21689 echo "$as_me:$LINENO: \$? = $ac_status" >&5
21690 (exit $ac_status); } &&
21691 { ac_try='test -z "$ac_c_werror_flag"
21692 || test ! -s conftest.err'
21693 { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
21694 (eval $ac_try) 2>&5
21695 ac_status=$?
21696 echo "$as_me:$LINENO: \$? = $ac_status" >&5
21697 (exit $ac_status); }; } &&
21698 { ac_try='test -s conftest.$ac_objext'
21699 { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
21700 (eval $ac_try) 2>&5
21701 ac_status=$?
21702 echo "$as_me:$LINENO: \$? = $ac_status" >&5
21703 (exit $ac_status); }; }; then
21704 ac_cv_member_struct_tm_tm_zone=yes
21705else
21706 echo "$as_me: failed program was:" >&5
21707sed 's/^/| /' conftest.$ac_ext >&5
21708
21709cat >conftest.$ac_ext <<_ACEOF
21710/* confdefs.h. */
21711_ACEOF
21712cat confdefs.h >>conftest.$ac_ext
21713cat >>conftest.$ac_ext <<_ACEOF
21714/* end confdefs.h. */
21715#include <sys/types.h>
21716#include <$ac_cv_struct_tm>
21717
21718
21719int
21720main ()
21721{
21722static struct tm ac_aggr;
21723if (sizeof ac_aggr.tm_zone)
21724return 0;
21725 ;
21726 return 0;
21727}
21728_ACEOF
21729rm -f conftest.$ac_objext
21730if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5
21731 (eval $ac_compile) 2>conftest.er1
21732 ac_status=$?
21733 grep -v '^ *+' conftest.er1 >conftest.err
21734 rm -f conftest.er1
21735 cat conftest.err >&5
21736 echo "$as_me:$LINENO: \$? = $ac_status" >&5
21737 (exit $ac_status); } &&
21738 { ac_try='test -z "$ac_c_werror_flag"
21739 || test ! -s conftest.err'
21740 { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
21741 (eval $ac_try) 2>&5
21742 ac_status=$?
21743 echo "$as_me:$LINENO: \$? = $ac_status" >&5
21744 (exit $ac_status); }; } &&
21745 { ac_try='test -s conftest.$ac_objext'
21746 { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
21747 (eval $ac_try) 2>&5
21748 ac_status=$?
21749 echo "$as_me:$LINENO: \$? = $ac_status" >&5
21750 (exit $ac_status); }; }; then
21751 ac_cv_member_struct_tm_tm_zone=yes
21752else
21753 echo "$as_me: failed program was:" >&5
21754sed 's/^/| /' conftest.$ac_ext >&5
21755
21756ac_cv_member_struct_tm_tm_zone=no
21757fi
21758rm -f conftest.err conftest.$ac_objext conftest.$ac_ext
21759fi
21760rm -f conftest.err conftest.$ac_objext conftest.$ac_ext
21761fi
21762echo "$as_me:$LINENO: result: $ac_cv_member_struct_tm_tm_zone" >&5
21763echo "${ECHO_T}$ac_cv_member_struct_tm_tm_zone" >&6
21764if test $ac_cv_member_struct_tm_tm_zone = yes; then
21765
21766cat >>confdefs.h <<_ACEOF
21767#define HAVE_STRUCT_TM_TM_ZONE 1
21768_ACEOF
21769
21770
21771fi
21772
21773if test "$ac_cv_member_struct_tm_tm_zone" = yes; then
21774
21775cat >>confdefs.h <<\_ACEOF
21776#define HAVE_TM_ZONE 1
21777_ACEOF
21778
21779else
21780 echo "$as_me:$LINENO: checking for tzname" >&5
21781echo $ECHO_N "checking for tzname... $ECHO_C" >&6
21782if test "${ac_cv_var_tzname+set}" = set; then
21783 echo $ECHO_N "(cached) $ECHO_C" >&6
21784else
21785 cat >conftest.$ac_ext <<_ACEOF
21786/* confdefs.h. */
21787_ACEOF
21788cat confdefs.h >>conftest.$ac_ext
21789cat >>conftest.$ac_ext <<_ACEOF
21790/* end confdefs.h. */
21791#include <time.h>
21792#ifndef tzname /* For SGI. */
21793extern char *tzname[]; /* RS6000 and others reject char **tzname. */
21794#endif
21795
21796int
21797main ()
21798{
21799atoi(*tzname);
21800 ;
21801 return 0;
21802}
21803_ACEOF
21804rm -f conftest.$ac_objext conftest$ac_exeext
21805if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5
21806 (eval $ac_link) 2>conftest.er1
21807 ac_status=$?
21808 grep -v '^ *+' conftest.er1 >conftest.err
21809 rm -f conftest.er1
21810 cat conftest.err >&5
21811 echo "$as_me:$LINENO: \$? = $ac_status" >&5
21812 (exit $ac_status); } &&
21813 { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err'
21814 { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
21815 (eval $ac_try) 2>&5
21816 ac_status=$?
21817 echo "$as_me:$LINENO: \$? = $ac_status" >&5
21818 (exit $ac_status); }; } &&
21819 { ac_try='test -s conftest$ac_exeext'
21820 { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
21821 (eval $ac_try) 2>&5
21822 ac_status=$?
21823 echo "$as_me:$LINENO: \$? = $ac_status" >&5
21824 (exit $ac_status); }; }; then
21825 ac_cv_var_tzname=yes
21826else
21827 echo "$as_me: failed program was:" >&5
21828sed 's/^/| /' conftest.$ac_ext >&5
21829
21830ac_cv_var_tzname=no
21831fi
21832rm -f conftest.err conftest.$ac_objext \
21833 conftest$ac_exeext conftest.$ac_ext
21834fi
21835echo "$as_me:$LINENO: result: $ac_cv_var_tzname" >&5
21836echo "${ECHO_T}$ac_cv_var_tzname" >&6
21837 if test $ac_cv_var_tzname = yes; then
21838
21839cat >>confdefs.h <<\_ACEOF
21840#define HAVE_TZNAME 1
21841_ACEOF
21842
21843 fi
21844fi
21845
21846
21847if test "$ac_cv_func_gettimeofday" = yes; then
21848 echo "$as_me:$LINENO: checking for struct timezone" >&5
21849echo $ECHO_N "checking for struct timezone... $ECHO_C" >&6
21850if test "${emacs_cv_struct_timezone+set}" = set; then
21851 echo $ECHO_N "(cached) $ECHO_C" >&6
21852else
21853 cat >conftest.$ac_ext <<_ACEOF
21854/* confdefs.h. */
21855_ACEOF
21856cat confdefs.h >>conftest.$ac_ext
21857cat >>conftest.$ac_ext <<_ACEOF
21858/* end confdefs.h. */
21859#include <sys/time.h>
21860int
21861main ()
21862{
21863struct timezone tz;
21864 ;
21865 return 0;
21866}
21867_ACEOF
21868rm -f conftest.$ac_objext
21869if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5
21870 (eval $ac_compile) 2>conftest.er1
21871 ac_status=$?
21872 grep -v '^ *+' conftest.er1 >conftest.err
21873 rm -f conftest.er1
21874 cat conftest.err >&5
21875 echo "$as_me:$LINENO: \$? = $ac_status" >&5
21876 (exit $ac_status); } &&
21877 { ac_try='test -z "$ac_c_werror_flag"
21878 || test ! -s conftest.err'
21879 { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
21880 (eval $ac_try) 2>&5
21881 ac_status=$?
21882 echo "$as_me:$LINENO: \$? = $ac_status" >&5
21883 (exit $ac_status); }; } &&
21884 { ac_try='test -s conftest.$ac_objext'
21885 { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
21886 (eval $ac_try) 2>&5
21887 ac_status=$?
21888 echo "$as_me:$LINENO: \$? = $ac_status" >&5
21889 (exit $ac_status); }; }; then
21890 if test "$cross_compiling" = yes; then
21891 emacs_cv_struct_timezone=yes
21892else
21893 cat >conftest.$ac_ext <<_ACEOF
21894/* confdefs.h. */
21895_ACEOF
21896cat confdefs.h >>conftest.$ac_ext
21897cat >>conftest.$ac_ext <<_ACEOF
21898/* end confdefs.h. */
21899
21900#ifdef TIME_WITH_SYS_TIME
21901#include <sys/time.h>
21902#include <time.h>
21903#else
21904#ifdef HAVE_SYS_TIME_H
21905#include <sys/time.h>
21906#else
21907#include <time.h>
21908#endif
21909#endif
21910main () {
21911 struct timeval time;
21912 struct timezone dummy;
21913 exit (gettimeofday (&time, &dummy));
21914}
21915_ACEOF
21916rm -f conftest$ac_exeext
21917if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5
21918 (eval $ac_link) 2>&5
21919 ac_status=$?
21920 echo "$as_me:$LINENO: \$? = $ac_status" >&5
21921 (exit $ac_status); } && { ac_try='./conftest$ac_exeext'
21922 { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
21923 (eval $ac_try) 2>&5
21924 ac_status=$?
21925 echo "$as_me:$LINENO: \$? = $ac_status" >&5
21926 (exit $ac_status); }; }; then
21927 emacs_cv_struct_timezone=yes
21928else
21929 echo "$as_me: program exited with status $ac_status" >&5
21930echo "$as_me: failed program was:" >&5
21931sed 's/^/| /' conftest.$ac_ext >&5
21932
21933( exit $ac_status )
21934emacs_cv_struct_timezone=no
21935fi
21936rm -f core *.core gmon.out bb.out conftest$ac_exeext conftest.$ac_objext conftest.$ac_ext
21937fi
21938else
21939 echo "$as_me: failed program was:" >&5
21940sed 's/^/| /' conftest.$ac_ext >&5
21941
21942emacs_cv_struct_timezone=no
21943fi
21944rm -f conftest.err conftest.$ac_objext conftest.$ac_ext
21945fi
21946echo "$as_me:$LINENO: result: $emacs_cv_struct_timezone" >&5
21947echo "${ECHO_T}$emacs_cv_struct_timezone" >&6
21948fi
21949
21950ok_so_far=yes 21657ok_so_far=yes
21951echo "$as_me:$LINENO: checking for socket" >&5 21658echo "$as_me:$LINENO: checking for socket" >&5
21952echo $ECHO_N "checking for socket... $ECHO_C" >&6 21659echo $ECHO_N "checking for socket... $ECHO_C" >&6
diff --git a/configure.in b/configure.in
index 99cc2d6b6ee..f1402409c0b 100644
--- a/configure.in
+++ b/configure.in
@@ -960,6 +960,7 @@ dnl see the `changequote' comment above.
960 m68* ) machine=sun3 ;; 960 m68* ) machine=sun3 ;;
961 i[3456]86-sun-sunos[34]* ) machine=sun386 ;; 961 i[3456]86-sun-sunos[34]* ) machine=sun386 ;;
962 i[3456]86-*-* ) machine=intel386 ;; 962 i[3456]86-*-* ) machine=intel386 ;;
963 amd64-*-*|x86_64-*-*) machine=amdx86-64 ;;
963 powerpcle* ) machine=powerpcle ;; 964 powerpcle* ) machine=powerpcle ;;
964 powerpc* | rs6000* ) machine=ibmrs6000 ;; 965 powerpc* | rs6000* ) machine=ibmrs6000 ;;
965 sparc* ) machine=sparc ;; 966 sparc* ) machine=sparc ;;
@@ -2743,38 +2744,6 @@ if test "x$HAVE_TIMEVAL" = xyes; then
2743 fi 2744 fi
2744fi 2745fi
2745 2746
2746# This defines (or not) HAVE_TZNAME and HAVE_TM_ZONE.
2747AC_STRUCT_TIMEZONE
2748
2749dnl Note that AC_STRUCT_TIMEZONE doesn't do what you might expect.
2750if test "$ac_cv_func_gettimeofday" = yes; then
2751 AC_CACHE_CHECK([for struct timezone], emacs_cv_struct_timezone,
2752 [AC_TRY_COMPILE([#include <sys/time.h>],
2753 [struct timezone tz;],
2754 dnl It may be that we can't call gettimeofday with a non-null pointer,
2755 dnl even though we have struct timezone (e.g. HPUX). In that case
2756 dnl we'll lie about struct timezone.
2757 [AC_TRY_RUN([
2758#ifdef TIME_WITH_SYS_TIME
2759#include <sys/time.h>
2760#include <time.h>
2761#else
2762#ifdef HAVE_SYS_TIME_H
2763#include <sys/time.h>
2764#else
2765#include <time.h>
2766#endif
2767#endif
2768main () {
2769 struct timeval time;
2770 struct timezone dummy;
2771 exit (gettimeofday (&time, &dummy));
2772}],
2773 emacs_cv_struct_timezone=yes,
2774 emacs_cv_struct_timezone=no, emacs_cv_struct_timezone=yes)],
2775 emacs_cv_struct_timezone=no)])
2776fi
2777
2778ok_so_far=yes 2747ok_so_far=yes
2779AC_CHECK_FUNC(socket, , ok_so_far=no) 2748AC_CHECK_FUNC(socket, , ok_so_far=no)
2780if test $ok_so_far = yes; then 2749if test $ok_so_far = yes; then
diff --git a/etc/ChangeLog b/etc/ChangeLog
index 12ab19fa7b1..13aa4c593c6 100644
--- a/etc/ChangeLog
+++ b/etc/ChangeLog
@@ -1,3 +1,7 @@
12006-12-08 Michael Olson <mwolson@gnu.org>
2
3 * ERC-NEWS: Note that the list module has been removed.
4
12006-12-05 Micha,Ak(Bl Cadilhac <michael.cadilhac@lrde.org> 52006-12-05 Micha,Ak(Bl Cadilhac <michael.cadilhac@lrde.org>
2 6
3 * NEWS (Changes to cmuscheme): Mention the alternative for 7 * NEWS (Changes to cmuscheme): Mention the alternative for
diff --git a/etc/ERC-NEWS b/etc/ERC-NEWS
index cce444749c4..5b0cd6f260f 100644
--- a/etc/ERC-NEWS
+++ b/etc/ERC-NEWS
@@ -10,6 +10,11 @@ known as `erc' is now `erc-open'.
10 10
11** Changes and additions to modules 11** Changes and additions to modules
12 12
13*** Channel lists (erc-list.el)
14
15**** This has been removed from Emacs 22, since a major contributor
16to it has not yet assigned changes.
17
13*** Channel tracking (erc-track.el) 18*** Channel tracking (erc-track.el)
14 19
15**** Use mouse-face and help-echo for channel names in the mode-line. 20**** Use mouse-face and help-echo for channel names in the mode-line.
diff --git a/etc/NEWS b/etc/NEWS
index df87c7d1851..a9928b4ec7d 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -1945,10 +1945,10 @@ are left unspecified and can be bound individually through the global
1945or local keymaps. 1945or local keymaps.
1946 1946
1947+++ 1947+++
1948** The new kmacro package provides a simpler user interface to 1948** Emacs' keyboard macro facilities have been enhanced by the new
1949emacs' keyboard macro facilities. 1949kmacro package.
1950 1950
1951Basically, it uses two function keys (default F3 and F4) like this: 1951Keyboard macros are now defined and executed via the F3 and F4 keys:
1952F3 starts a macro, F4 ends the macro, and pressing F4 again executes 1952F3 starts a macro, F4 ends the macro, and pressing F4 again executes
1953the last macro. While defining the macro, F3 inserts a counter value 1953the last macro. While defining the macro, F3 inserts a counter value
1954which automatically increments every time the macro is executed. 1954which automatically increments every time the macro is executed.
@@ -1963,8 +1963,8 @@ manipulating the macro counter and format via C-x C-k C-c,
1963C-x C-k C-a, and C-x C-k C-f. See the commentary in kmacro.el 1963C-x C-k C-a, and C-x C-k C-f. See the commentary in kmacro.el
1964for more commands. 1964for more commands.
1965 1965
1966The normal macro bindings C-x (, C-x ), and C-x e now interfaces to 1966The original macro bindings C-x (, C-x ), and C-x e are still
1967the keyboard macro ring. 1967available, but they now interface to the keyboard macro ring too.
1968 1968
1969The C-x e command now automatically terminates the current macro 1969The C-x e command now automatically terminates the current macro
1970before calling it, if used while defining a macro. 1970before calling it, if used while defining a macro.
diff --git a/etc/edt-user.doc b/etc/edt-user.doc
index 1195c21841f..bd130e2f5df 100644
--- a/etc/edt-user.doc
+++ b/etc/edt-user.doc
@@ -5,8 +5,8 @@ File: edt-user.doc --- EDT Emulation User Instructions
5Copyright (C) 1986, 1992, 1994, 1995, 1999, 2000, 2002, 2003, 2004, 5Copyright (C) 1986, 1992, 1994, 1995, 1999, 2000, 2002, 2003, 2004,
6 2005, 2006 Free Software Foundation, Inc. 6 2005, 2006 Free Software Foundation, Inc.
7 7
8Author: Kevin Gallagher <kevingal@onramp.net> 8Author: Kevin Gallagher <Kevin.Gallagher@boeing.com>
9Maintainer: Kevin Gallagher <kevingal@onramp.net> 9Maintainer: Kevin Gallagher <Kevin.Gallagher@boeing.com>
10Keywords: emulations 10Keywords: emulations
11 11
12This file is part of GNU Emacs. 12This file is part of GNU Emacs.
@@ -928,7 +928,7 @@ G-F12: Delete Other Windows | (PF1) | (PF2) | (PF3) | (PF4) |
928G-HELP: Emacs Help | PAGE |Scroll Win|Open Line | DEL W | 928G-HELP: Emacs Help | PAGE |Scroll Win|Open Line | DEL W |
929 DO: Execute extended command | (7) | (8) | (9) | (-) | 929 DO: Execute extended command | (7) | (8) | (9) | (-) |
930 C-a: Beginning of Line |Ex Ext Cmd|Fill Parag|Elim Tabs | UND W | 930 C-a: Beginning of Line |Ex Ext Cmd|Fill Parag|Elim Tabs | UND W |
931 C-b: Switch to Buffer +----------+----------+----------+----------+ 931 C-b: Backward Character +----------+----------+----------+----------+
932 C-d: Delete Character | ADVANCE | BACKUP | CUT/COPY | DEL C | 932 C-d: Delete Character | ADVANCE | BACKUP | CUT/COPY | DEL C |
933 C-e: End of Line | (4) | (5) | (6) | (,) | 933 C-e: End of Line | (4) | (5) | (6) | (,) |
934 C-f: Forward Character | BOTTOM | TOP | Yank | UND C | 934 C-f: Forward Character | BOTTOM | TOP | Yank | UND C |
diff --git a/leim/ChangeLog b/leim/ChangeLog
index 1d86928a2c8..c7df3d6cbf9 100644
--- a/leim/ChangeLog
+++ b/leim/ChangeLog
@@ -1,3 +1,15 @@
12006-12-09 Juanma Barranquero <lekktu@gmail.com>
2
3 * quail/latin-alt.el ("scandinavian-alt-postfix"): Fix typo.
4
5 * quail/uni-input.el (ucs-input-help): Fix title of ucs input method.
6
72006-12-09 Eli Zaretskii <eliz@gnu.org>
8
9 * makefile.w32-in (leim-list.el): Depend on leim-ext.el as well.
10 Run Emacs to append non-empty non-comment lines in leim-ext.el
11 to leim-list.el.
12
12006-12-05 Juanma Barranquero <lekktu@gmail.com> 132006-12-05 Juanma Barranquero <lekktu@gmail.com>
2 14
3 * makefile.w32-in (MISC): Add $(srcdir)/quail/sisheng.elc. 15 * makefile.w32-in (MISC): Add $(srcdir)/quail/sisheng.elc.
diff --git a/leim/Makefile.in b/leim/Makefile.in
index b3e058fa7bb..1892ab8feca 100644
--- a/leim/Makefile.in
+++ b/leim/Makefile.in
@@ -1,7 +1,7 @@
1# Makefile for leim subdirectory in GNU Emacs. 1# Makefile for leim subdirectory in GNU Emacs.
2# Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 2# Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
3# Free Software Foundation, Inc. 3# Free Software Foundation, Inc.
4# Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 4# Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
5# National Institute of Advanced Industrial Science and Technology (AIST) 5# National Institute of Advanced Industrial Science and Technology (AIST)
6# Registration Number H14PRO021 6# Registration Number H14PRO021
7 7
diff --git a/leim/leim-ext.el b/leim/leim-ext.el
index 681e81185b2..cdbea2edecd 100644
--- a/leim/leim-ext.el
+++ b/leim/leim-ext.el
@@ -1,8 +1,8 @@
1;; leim-ext.el -- extra leim configulation -*- coding:iso-2022-7bit; -*- 1;; leim-ext.el -- extra leim configuration -*- coding:iso-2022-7bit; -*-
2 2
3;; Copyright (C) 2004, 2006 3;; Copyright (C) 2004, 2006
4;; Free Software Foundation, Inc. 4;; Free Software Foundation, Inc.
5;; Copyright (C) 2004, 2005 5;; Copyright (C) 2004, 2005, 2006
6;; National Institute of Advanced Industrial Science and Technology (AIST) 6;; National Institute of Advanced Industrial Science and Technology (AIST)
7;; Registration Number H13PRO009 7;; Registration Number H13PRO009
8 8
diff --git a/leim/makefile.w32-in b/leim/makefile.w32-in
index 3b2e2fd41b5..7c1b4fdd99f 100644
--- a/leim/makefile.w32-in
+++ b/leim/makefile.w32-in
@@ -1,7 +1,7 @@
1# -*- Makefile -*- for leim subdirectory in GNU Emacs on the Microsoft W32 API. 1# -*- Makefile -*- for leim subdirectory in GNU Emacs on the Microsoft W32 API.
2# Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006 2# Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006
3# Free Software Foundation, Inc. 3# Free Software Foundation, Inc.
4# Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 4# Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
5# National Institute of Advanced Industrial Science and Technology (AIST) 5# National Institute of Advanced Industrial Science and Technology (AIST)
6# Registration Number H14PRO021 6# Registration Number H14PRO021
7 7
@@ -184,11 +184,12 @@ $(MISC_DIC):
184 -f batch-byte-compile $(MISC_DIC:.elc=.el) 184 -f batch-byte-compile $(MISC_DIC:.elc=.el)
185 185
186# 186#
187# WARNING: Do NOT split the part inside $(ARGQUOTE)s into multiple lines as 187# WARNING: Do NOT split the parts inside $(ARGQUOTE)s into multiple lines as
188# this can break with GNU Make 3.81 and later if sh.exe is used. 188# this can break with GNU Make 3.81 and later if sh.exe is used.
189leim-list.el: $(SUBDIRS) $(WORLD) 189leim-list.el: $(SUBDIRS) $(WORLD) $(srcdir)/leim-ext.el
190 $(RUN_EMACS) -l $(buildlisppath)/international/quail \ 190 $(RUN_EMACS) -l $(buildlisppath)/international/quail \
191 --eval $(ARGQUOTE)(update-leim-list-file $(DQUOTE).$(DQUOTE))$(ARGQUOTE) 191 --eval $(ARGQUOTE)(update-leim-list-file $(DQUOTE).$(DQUOTE))$(ARGQUOTE)
192 $(RUN_EMACS) --eval $(ARGQUOTE)(w32-append-code-lines $(DQUOTE)$@$(DQUOTE) $(DQUOTE)$(srcdir)/leim-ext.el$(DQUOTE))$(ARGQUOTE)
192 193
193install: all 194install: all
194 - mkdir "$(INSTALLDIR)" 195 - mkdir "$(INSTALLDIR)"
diff --git a/leim/quail/cyril-jis.el b/leim/quail/cyril-jis.el
index e0e76451217..6ac7b456d9a 100644
--- a/leim/quail/cyril-jis.el
+++ b/leim/quail/cyril-jis.el
@@ -1,7 +1,7 @@
1;;; cyril-jis.el --- Quail package for inputting JISX0208 Cyrillic letters 1;;; cyril-jis.el --- Quail package for inputting JISX0208 Cyrillic letters
2 2
3;; Copyright (C) 2001, 2006 Free Software Foundation, Inc. 3;; Copyright (C) 2001, 2006 Free Software Foundation, Inc.
4;; Copyright (C) 1997 4;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
5;; National Institute of Advanced Industrial Science and Technology (AIST) 5;; National Institute of Advanced Industrial Science and Technology (AIST)
6;; Registration Number H14PRO021 6;; Registration Number H14PRO021
7 7
diff --git a/leim/quail/cyrillic.el b/leim/quail/cyrillic.el
index 061bcbb8e58..771858e51e1 100644
--- a/leim/quail/cyrillic.el
+++ b/leim/quail/cyrillic.el
@@ -2,7 +2,7 @@
2 2
3;; Copyright (C) 1997, 1998, 2001, 2002, 2003, 2004, 2005, 2006 3;; Copyright (C) 1997, 1998, 2001, 2002, 2003, 2004, 2005, 2006
4;; Free Software Foundation, Inc. 4;; Free Software Foundation, Inc.
5;; Copyright (C) 1997, 2003 5;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
6;; National Institute of Advanced Industrial Science and Technology (AIST) 6;; National Institute of Advanced Industrial Science and Technology (AIST)
7;; Registration Number H14PRO021 7;; Registration Number H14PRO021
8 8
diff --git a/leim/quail/ethiopic.el b/leim/quail/ethiopic.el
index c1f07534c91..dd85cfe384b 100644
--- a/leim/quail/ethiopic.el
+++ b/leim/quail/ethiopic.el
@@ -1,6 +1,6 @@
1;;; ethiopic.el --- Quail package for inputting Ethiopic characters -*-coding: iso-2022-7bit;-*- 1;;; ethiopic.el --- Quail package for inputting Ethiopic characters -*-coding: iso-2022-7bit;-*-
2 2
3;; Copyright (C) 1997, 1998, 1999, 2001, 2006 3;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
4;; National Institute of Advanced Industrial Science and Technology (AIST) 4;; National Institute of Advanced Industrial Science and Technology (AIST)
5;; Registration Number H14PRO021 5;; Registration Number H14PRO021
6 6
diff --git a/leim/quail/greek.el b/leim/quail/greek.el
index a9a97c85352..9c266a2f8f5 100644
--- a/leim/quail/greek.el
+++ b/leim/quail/greek.el
@@ -1,7 +1,7 @@
1;;; greek.el --- Quail package for inputting Greek -*-coding: iso-2022-7bit-*- 1;;; greek.el --- Quail package for inputting Greek -*-coding: iso-2022-7bit-*-
2 2
3;; Copyright (C) 2001, 2002, 2003, 2004, 2006 Free Software Foundation, Inc. 3;; Copyright (C) 2001, 2002, 2003, 2004, 2006 Free Software Foundation, Inc.
4;; Copyright (C) 1997, 2001 4;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
5;; National Institute of Advanced Industrial Science and Technology (AIST) 5;; National Institute of Advanced Industrial Science and Technology (AIST)
6;; Registration Number H14PRO021 6;; Registration Number H14PRO021
7 7
diff --git a/leim/quail/hangul.el b/leim/quail/hangul.el
index a8a821ad9bb..0ed46752bc1 100644
--- a/leim/quail/hangul.el
+++ b/leim/quail/hangul.el
@@ -1,7 +1,7 @@
1;;; hangul.el --- Quail package for inputting Korean Hangul characters -*-coding: iso-2022-7bit;-*- 1;;; hangul.el --- Quail package for inputting Korean Hangul characters -*-coding: iso-2022-7bit;-*-
2 2
3;; Copyright (C) 2002, 2006 Free Software Foundation, Inc. 3;; Copyright (C) 2002, 2006 Free Software Foundation, Inc.
4;; Copyright (C) 1997 4;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
5;; National Institute of Advanced Industrial Science and Technology (AIST) 5;; National Institute of Advanced Industrial Science and Technology (AIST)
6;; Registration Number H14PRO021 6;; Registration Number H14PRO021
7 7
diff --git a/leim/quail/hangul3.el b/leim/quail/hangul3.el
index 493d9206f7a..12970198133 100644
--- a/leim/quail/hangul3.el
+++ b/leim/quail/hangul3.el
@@ -1,7 +1,7 @@
1;;; hangul3.el --- Quail package for inputting Korean Hangul characters -*-coding: iso-2022-7bit;-*- 1;;; hangul3.el --- Quail package for inputting Korean Hangul characters -*-coding: iso-2022-7bit;-*-
2 2
3;; Copyright (C) 1997, 1998, 2001, 2002, 2006 Free Software Foundation, Inc. 3;; Copyright (C) 1997, 1998, 2001, 2002, 2006 Free Software Foundation, Inc.
4;; Copyright (C) 1997, 2002 4;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
5;; National Institute of Advanced Industrial Science and Technology (AIST) 5;; National Institute of Advanced Industrial Science and Technology (AIST)
6;; Registration Number H14PRO021 6;; Registration Number H14PRO021
7 7
diff --git a/leim/quail/hanja-jis.el b/leim/quail/hanja-jis.el
index baf426bc94a..569ed8273fe 100644
--- a/leim/quail/hanja-jis.el
+++ b/leim/quail/hanja-jis.el
@@ -1,6 +1,6 @@
1;;; hanja-jis.el --- Quail package for inputting Korean Hanja (JISX0208) -*-coding: iso-2022-7bit;-*- 1;;; hanja-jis.el --- Quail package for inputting Korean Hanja (JISX0208) -*-coding: iso-2022-7bit;-*-
2 2
3;; Copyright (C) 1997 3;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
4;; National Institute of Advanced Industrial Science and Technology (AIST) 4;; National Institute of Advanced Industrial Science and Technology (AIST)
5;; Registration Number H14PRO021 5;; Registration Number H14PRO021
6 6
diff --git a/leim/quail/hanja.el b/leim/quail/hanja.el
index 6e9419e73d3..1ef047410d4 100644
--- a/leim/quail/hanja.el
+++ b/leim/quail/hanja.el
@@ -1,7 +1,7 @@
1;;; hanja.el --- Quail-package for Korean Hanja (KSC5601) -*-coding: iso-2022-7bit;-*- 1;;; hanja.el --- Quail-package for Korean Hanja (KSC5601) -*-coding: iso-2022-7bit;-*-
2 2
3;; Copyright (C) 1997, 2006 Free Software Foundation, Inc. 3;; Copyright (C) 1997, 2006 Free Software Foundation, Inc.
4;; Copyright (C) 1997 4;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
5;; National Institute of Advanced Industrial Science and Technology (AIST) 5;; National Institute of Advanced Industrial Science and Technology (AIST)
6;; Registration Number H14PRO021 6;; Registration Number H14PRO021
7 7
diff --git a/leim/quail/hebrew.el b/leim/quail/hebrew.el
index 4193f59775f..60febc4ea44 100644
--- a/leim/quail/hebrew.el
+++ b/leim/quail/hebrew.el
@@ -1,6 +1,6 @@
1;;; hebrew.el --- Quail package for inputting Hebrew characters -*-coding: iso-2022-7bit;-*- 1;;; hebrew.el --- Quail package for inputting Hebrew characters -*-coding: iso-2022-7bit;-*-
2 2
3;; Copyright (C) 1999 3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
4;; National Institute of Advanced Industrial Science and Technology (AIST) 4;; National Institute of Advanced Industrial Science and Technology (AIST)
5;; Registration Number H14PRO021 5;; Registration Number H14PRO021
6 6
diff --git a/leim/quail/ipa.el b/leim/quail/ipa.el
index 48ce2b4063f..56f356a4782 100644
--- a/leim/quail/ipa.el
+++ b/leim/quail/ipa.el
@@ -1,6 +1,6 @@
1;;; ipa.el --- Quail package for inputting IPA characters -*-coding: iso-2022-7bit;-*- 1;;; ipa.el --- Quail package for inputting IPA characters -*-coding: iso-2022-7bit;-*-
2 2
3;; Copyright (C) 1997 3;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
4;; National Institute of Advanced Industrial Science and Technology (AIST) 4;; National Institute of Advanced Industrial Science and Technology (AIST)
5;; Registration Number H14PRO021 5;; Registration Number H14PRO021
6 6
diff --git a/leim/quail/japanese.el b/leim/quail/japanese.el
index 18cd23ae2ed..ff133708153 100644
--- a/leim/quail/japanese.el
+++ b/leim/quail/japanese.el
@@ -1,7 +1,7 @@
1;;; japanese.el --- Quail package for inputting Japanese -*-coding: iso-2022-7bit;-*- 1;;; japanese.el --- Quail package for inputting Japanese -*-coding: iso-2022-7bit;-*-
2 2
3;; Copyright (C) 2001, 2006 Free Software Foundation, Inc. 3;; Copyright (C) 2001, 2006 Free Software Foundation, Inc.
4;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2005 4;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
5;; National Institute of Advanced Industrial Science and Technology (AIST) 5;; National Institute of Advanced Industrial Science and Technology (AIST)
6;; Registration Number H14PRO021 6;; Registration Number H14PRO021
7 7
diff --git a/leim/quail/lao.el b/leim/quail/lao.el
index 09151735de0..d547ff2dbe9 100644
--- a/leim/quail/lao.el
+++ b/leim/quail/lao.el
@@ -1,6 +1,6 @@
1;;; lao.el --- Quail package for inputting Lao characters -*-coding: iso-2022-7bit;-*- 1;;; lao.el --- Quail package for inputting Lao characters -*-coding: iso-2022-7bit;-*-
2 2
3;; Copyright (C) 1997, 1999, 2004 3;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
4;; National Institute of Advanced Industrial Science and Technology (AIST) 4;; National Institute of Advanced Industrial Science and Technology (AIST)
5;; Registration Number H14PRO021 5;; Registration Number H14PRO021
6 6
diff --git a/leim/quail/latin-alt.el b/leim/quail/latin-alt.el
index 330c1b904b2..d573d4a0e13 100644
--- a/leim/quail/latin-alt.el
+++ b/leim/quail/latin-alt.el
@@ -1,7 +1,7 @@
1;;; latin-alt.el --- Quail package for inputting various European characters -*-coding: utf-8;-*- 1;;; latin-alt.el --- Quail package for inputting various European characters -*-coding: utf-8;-*-
2 2
3;; Copyright (C) 1997, 1998, 2001, 2002, 2006 Free Software Foundation, Inc. 3;; Copyright (C) 1997, 1998, 2001, 2002, 2006 Free Software Foundation, Inc.
4;; Copyright (C) 1999 4;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
5;; National Institute of Advanced Industrial Science and Technology (AIST) 5;; National Institute of Advanced Industrial Science and Technology (AIST)
6;; Registration Number H14PRO021 6;; Registration Number H14PRO021
7 7
@@ -1289,7 +1289,7 @@ Doubling the postfix separates the letter and postfix: e.g. aee -> ae
1289(quail-define-package 1289(quail-define-package
1290 "scandinavian-alt-postfix" "Latin-1" "SC<" t 1290 "scandinavian-alt-postfix" "Latin-1" "SC<" t
1291 "Scandinavian input method with postfix modifiers 1291 "Scandinavian input method with postfix modifiers
1292Supported languages are Swidish, Norwegian, Danish, and Finnish. 1292Supported languages are Swedish, Norwegian, Danish, and Finnish.
1293 1293
1294ae -> æ 1294ae -> æ
1295oe -> ø 1295oe -> ø
diff --git a/leim/quail/latin-ltx.el b/leim/quail/latin-ltx.el
index 6efdeccad26..cb6052a7f05 100644
--- a/leim/quail/latin-ltx.el
+++ b/leim/quail/latin-ltx.el
@@ -1,7 +1,7 @@
1;;; latin-ltx.el --- Quail package for TeX-style input -*-coding: utf-8;-*- 1;;; latin-ltx.el --- Quail package for TeX-style input -*-coding: utf-8;-*-
2 2
3;; Copyright (C) 2001, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. 3;; Copyright (C) 2001, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
4;; Copyright (C) 2001, 2005 4;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006
5;; National Institute of Advanced Industrial Science and Technology (AIST) 5;; National Institute of Advanced Industrial Science and Technology (AIST)
6;; Registration Number H14PRO021 6;; Registration Number H14PRO021
7 7
diff --git a/leim/quail/latin-post.el b/leim/quail/latin-post.el
index a3c7d9cb30e..7fdf3e7f980 100644
--- a/leim/quail/latin-post.el
+++ b/leim/quail/latin-post.el
@@ -1,7 +1,7 @@
1;;; latin-post.el --- Quail packages for inputting various European characters -*-coding: utf-8;-*- 1;;; latin-post.el --- Quail packages for inputting various European characters -*-coding: utf-8;-*-
2 2
3;; Copyright (C) 1997, 1998, 2001, 2002, 2006 Free Software Foundation, Inc. 3;; Copyright (C) 1997, 1998, 2001, 2002, 2006 Free Software Foundation, Inc.
4;; Copyright (C) 1997, 1999 4;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
5;; National Institute of Advanced Industrial Science and Technology (AIST) 5;; National Institute of Advanced Industrial Science and Technology (AIST)
6;; Registration Number H14PRO021 6;; Registration Number H14PRO021
7;; Copyright (C) 2003 7;; Copyright (C) 2003
diff --git a/leim/quail/latin-pre.el b/leim/quail/latin-pre.el
index eb5c118b9f8..be2a1b21749 100644
--- a/leim/quail/latin-pre.el
+++ b/leim/quail/latin-pre.el
@@ -2,7 +2,7 @@
2 2
3;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2006 3;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2006
4;; Free Software Foundation, Inc. 4;; Free Software Foundation, Inc.
5;; Copyright (C) 1997, 1998, 1999, 2000, 2005 5;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
6;; National Institute of Advanced Industrial Science and Technology (AIST) 6;; National Institute of Advanced Industrial Science and Technology (AIST)
7;; Registration Number H14PRO021 7;; Registration Number H14PRO021
8 8
diff --git a/leim/quail/lrt.el b/leim/quail/lrt.el
index 7985523f7e1..9ce43294a16 100644
--- a/leim/quail/lrt.el
+++ b/leim/quail/lrt.el
@@ -1,7 +1,7 @@
1;;; lrt.el --- Quail package for inputting Lao characters by LRT method -*-coding: iso-2022-7bit;-*- 1;;; lrt.el --- Quail package for inputting Lao characters by LRT method -*-coding: iso-2022-7bit;-*-
2 2
3;; Copyright (C) 1998, 2006 Free Software Foundation, Inc. 3;; Copyright (C) 1998, 2006 Free Software Foundation, Inc.
4;; Copyright (C) 1997, 1999 4;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
5;; National Institute of Advanced Industrial Science and Technology (AIST) 5;; National Institute of Advanced Industrial Science and Technology (AIST)
6;; Registration Number H14PRO021 6;; Registration Number H14PRO021
7 7
diff --git a/leim/quail/py-punct.el b/leim/quail/py-punct.el
index 04874b6cb60..5fa4d9b9da0 100644
--- a/leim/quail/py-punct.el
+++ b/leim/quail/py-punct.el
@@ -1,7 +1,7 @@
1;;; py-punct.el --- Quail packages for Chinese (pinyin + extra symbols) -*-coding: iso-2022-7bit;-*- 1;;; py-punct.el --- Quail packages for Chinese (pinyin + extra symbols) -*-coding: iso-2022-7bit;-*-
2 2
3;; Copyright (C) 2001, 2006 Free Software Foundation, Inc. 3;; Copyright (C) 2001, 2006 Free Software Foundation, Inc.
4;; Copyright (C) 1997, 2000 4;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
5;; National Institute of Advanced Industrial Science and Technology (AIST) 5;; National Institute of Advanced Industrial Science and Technology (AIST)
6;; Registration Number H14PRO021 6;; Registration Number H14PRO021
7 7
diff --git a/leim/quail/pypunct-b5.el b/leim/quail/pypunct-b5.el
index f8fc747ba03..8d57e42b141 100644
--- a/leim/quail/pypunct-b5.el
+++ b/leim/quail/pypunct-b5.el
@@ -1,6 +1,6 @@
1;;; pypunct-b5.el --- Quail packages for Chinese (pinyin + extra symbols) -*-coding: iso-2022-7bit;-*- 1;;; pypunct-b5.el --- Quail packages for Chinese (pinyin + extra symbols) -*-coding: iso-2022-7bit;-*-
2 2
3;; Copyright (C) 1997, 2000, 2003 3;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
4;; National Institute of Advanced Industrial Science and Technology (AIST) 4;; National Institute of Advanced Industrial Science and Technology (AIST)
5;; Registration Number H14PRO021 5;; Registration Number H14PRO021
6 6
diff --git a/leim/quail/symbol-ksc.el b/leim/quail/symbol-ksc.el
index 1747d40c109..de7386aa2d0 100644
--- a/leim/quail/symbol-ksc.el
+++ b/leim/quail/symbol-ksc.el
@@ -1,7 +1,7 @@
1;;; symbol-ksc.el --- Quail-package for Korean Symbol (KSC5601) -*-coding: iso-2022-7bit;-*- 1;;; symbol-ksc.el --- Quail-package for Korean Symbol (KSC5601) -*-coding: iso-2022-7bit;-*-
2 2
3;; Copyright (C) 1997, 2005, 2006 Free Software Foundation, Inc. 3;; Copyright (C) 1997, 2005, 2006 Free Software Foundation, Inc.
4;; Copyright (C) 1997, 1998 4;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
5;; National Institute of Advanced Industrial Science and Technology (AIST) 5;; National Institute of Advanced Industrial Science and Technology (AIST)
6;; Registration Number H14PRO021 6;; Registration Number H14PRO021
7 7
diff --git a/leim/quail/thai.el b/leim/quail/thai.el
index f27aab7acb0..6d7f16cae80 100644
--- a/leim/quail/thai.el
+++ b/leim/quail/thai.el
@@ -1,6 +1,7 @@
1;;; thai.el --- Quail package for inputting Thai characters -*-coding: iso-2022-7bit;-*- 1;;; thai.el --- Quail package for inputting Thai characters -*-coding: iso-2022-7bit;-*-
2 2
3;; Copyright (C) 1995, 1997, 1999, 2005 3;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006
4;; National Institute of Advanced Industrial Science and Technology (AIST) 5;; National Institute of Advanced Industrial Science and Technology (AIST)
5;; Registration Number H14PRO021 6;; Registration Number H14PRO021
6 7
diff --git a/leim/quail/tibetan.el b/leim/quail/tibetan.el
index e3f9f3c8bfb..e710cada914 100644
--- a/leim/quail/tibetan.el
+++ b/leim/quail/tibetan.el
@@ -1,7 +1,7 @@
1;;; tibetan.el --- Quail package for inputting Tibetan characters -*-coding: iso-2022-7bit;-*- 1;;; tibetan.el --- Quail package for inputting Tibetan characters -*-coding: iso-2022-7bit;-*-
2 2
3;; Copyright (C) 1997, 2006 Free Software Foundation, Inc. 3;; Copyright (C) 1997, 2006 Free Software Foundation, Inc.
4;; Copyright (C) 1997, 1998, 1999, 2000 4;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
5;; National Institute of Advanced Industrial Science and Technology (AIST) 5;; National Institute of Advanced Industrial Science and Technology (AIST)
6;; Registration Number H14PRO021 6;; Registration Number H14PRO021
7 7
diff --git a/leim/quail/uni-input.el b/leim/quail/uni-input.el
index 73ba07ef566..a5f32068424 100644
--- a/leim/quail/uni-input.el
+++ b/leim/quail/uni-input.el
@@ -1,7 +1,7 @@
1;;; uni-input.el --- Hex Unicode input method 1;;; uni-input.el --- Hex Unicode input method
2 2
3;; Copyright (C) 2001, 2002, 2003, 2006 Free Software Foundation, Inc. 3;; Copyright (C) 2001, 2002, 2003, 2006 Free Software Foundation, Inc.
4;; Copyright (C) 2004 4;; Copyright (C) 2004, 2005, 2006
5;; National Institute of Advanced Industrial Science and Technology (AIST) 5;; National Institute of Advanced Industrial Science and Technology (AIST)
6;; Registration Number H14PRO021 6;; Registration Number H14PRO021
7 7
@@ -118,7 +118,7 @@ While this input method is active, the variable
118 (interactive) 118 (interactive)
119 (with-output-to-temp-buffer "*Help*" 119 (with-output-to-temp-buffer "*Help*"
120 (princ "\ 120 (princ "\
121Input method: ucs (mode line indicator:U) 121Input method: ucs (mode line indicator:U+)
122 122
123Input as Unicode: U<hex> or u<hex>, where <hex> is a four-digit hex number."))) 123Input as Unicode: U<hex> or u<hex>, where <hex> is a four-digit hex number.")))
124 124
diff --git a/leim/quail/viqr.el b/leim/quail/viqr.el
index 0a7acf42c70..bbe54a91f6d 100644
--- a/leim/quail/viqr.el
+++ b/leim/quail/viqr.el
@@ -1,6 +1,6 @@
1;;; viqr.el --- Quail packages for inputting Vietnamese with VIQR system -*-coding: iso-2022-7bit;-*- 1;;; viqr.el --- Quail packages for inputting Vietnamese with VIQR system -*-coding: iso-2022-7bit;-*-
2 2
3;; Copyright (C) 1997 3;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
4;; National Institute of Advanced Industrial Science and Technology (AIST) 4;; National Institute of Advanced Industrial Science and Technology (AIST)
5;; Registration Number H14PRO021 5;; Registration Number H14PRO021
6 6
diff --git a/lib-src/ChangeLog b/lib-src/ChangeLog
index 97266d8a66e..f15644050d9 100644
--- a/lib-src/ChangeLog
+++ b/lib-src/ChangeLog
@@ -1,3 +1,10 @@
12006-12-15 Juanma Barranquero <lekktu@gmail.com>
2
3 * emacsclient.c (w32_execvp): New function; wrapper for `execvp'.
4 (execvp) [WINDOWSNT]: Redefine to `w32_execvp'.
5 (fail): Remove Windows-specific fix (subsumed into w32_execvp).
6 Suggestions and comment by Eli Zaretskii.
7
12006-12-06 Christoph Conrad <christoph.conrad@gmx.de> 82006-12-06 Christoph Conrad <christoph.conrad@gmx.de>
2 9
3 * makefile.w32-in ($(BLD)/emacsclient.exe, $(BLD)/emacsclientw.exe): 10 * makefile.w32-in ($(BLD)/emacsclient.exe, $(BLD)/emacsclientw.exe):
@@ -19,11 +26,11 @@
19 (set_tcp_socket): Make the message for non-local connections 26 (set_tcp_socket): Make the message for non-local connections
20 informational rather than an error. 27 informational rather than an error.
21 28
222006-11-28 Kevin Ryde <user42@zip.com.au> (tiny change) 292006-11-28 Kevin Ryde <user42@zip.com.au> (tiny change)
23 30
24 * etags.c (readline): Check for double quote after #line. 31 * etags.c (readline): Check for double quote after #line.
25 32
262006-11-28 Jan Dj,Ad(Brv <jan.h.d@swipnet.se> (tiny change) 332006-11-28 Jan Dj,Ad(Brv <jan.h.d@swipnet.se>
27 34
28 * etags.c (readline): sscanf could in principle return 2. 35 * etags.c (readline): sscanf could in principle return 2.
29 36
@@ -55,8 +62,8 @@
55 62
562006-11-24 Michael Mauger <mmaug@yahoo.com> 632006-11-24 Michael Mauger <mmaug@yahoo.com>
57 64
58 * emacsclient.c (file_name_absolute_p) [WINDOWSNT]: Support 65 * emacsclient.c (file_name_absolute_p) [WINDOWSNT]: Support absolute
59 absolute file names with forward slashes. 66 file names with forward slashes.
60 67
612006-11-23 Juanma Barranquero <lekktu@gmail.com> 682006-11-23 Juanma Barranquero <lekktu@gmail.com>
62 69
diff --git a/lib-src/emacsclient.c b/lib-src/emacsclient.c
index f05b98eccee..bbd6cbe239b 100644
--- a/lib-src/emacsclient.c
+++ b/lib-src/emacsclient.c
@@ -152,16 +152,15 @@ struct option longopts[] =
152/* Message functions. */ 152/* Message functions. */
153 153
154#ifdef WINDOWSNT 154#ifdef WINDOWSNT
155/* I first tried to check for STDOUT. The check did not work,
156 I get a valid handle also in nonconsole apps.
157 Instead I test for console title, which seems to work. */
158int 155int
159w32_window_app() 156w32_window_app ()
160{ 157{
161 static int window_app = -1; 158 static int window_app = -1;
162 char szTitle[MAX_PATH]; 159 char szTitle[MAX_PATH];
163 160
164 if (window_app < 0) 161 if (window_app < 0)
162 /* Checking for STDOUT does not work; it's a valid handle also in
163 nonconsole apps. Testing for the console title seems to work. */
165 window_app = (GetConsoleTitleA (szTitle, MAX_PATH) == 0); 164 window_app = (GetConsoleTitleA (szTitle, MAX_PATH) == 0);
166 165
167 return window_app; 166 return window_app;
@@ -298,6 +297,43 @@ Report bugs to bug-gnu-emacs@gnu.org.\n", progname);
298} 297}
299 298
300 299
300#ifdef WINDOWSNT
301
302/*
303 execvp wrapper for Windows. Quotes arguments with embedded spaces.
304
305 This is necessary due to the broken implementation of exec* routines in
306 the Microsoft libraries: they concatenate the arguments together without
307 quoting special characters, and pass the result to CreateProcess, with
308 predictably bad results. By contrast, Posix execvp passes the arguments
309 directly into the argv array of the child process.
310*/
311int
312w32_execvp (path, argv)
313 char *path;
314 char **argv;
315{
316 int i;
317
318 /* Required to allow a .BAT script as alternate editor. */
319 argv[0] = (char *) alternate_editor;
320
321 for (i = 0; argv[i]; i++)
322 if (strchr (argv[i], ' '))
323 {
324 char *quoted = alloca (strlen (argv[i]) + 3);
325 sprintf (quoted, "\"%s\"", argv[i]);
326 argv[i] = quoted;
327 }
328
329 return execvp (path, argv);
330}
331
332#undef execvp
333#define execvp w32_execvp
334
335#endif /* WINDOWSNT */
336
301/* 337/*
302 Try to run a different command, or --if no alternate editor is 338 Try to run a different command, or --if no alternate editor is
303 defined-- exit with an errorcode. 339 defined-- exit with an errorcode.
@@ -310,9 +346,7 @@ fail (argc, argv)
310 if (alternate_editor) 346 if (alternate_editor)
311 { 347 {
312 int i = optind - 1; 348 int i = optind - 1;
313#ifdef WINDOWSNT 349
314 argv[i] = (char *)alternate_editor;
315#endif
316 execvp (alternate_editor, argv + i); 350 execvp (alternate_editor, argv + i);
317 message (TRUE, "%s: error executing alternate editor \"%s\"\n", 351 message (TRUE, "%s: error executing alternate editor \"%s\"\n",
318 progname, alternate_editor); 352 progname, alternate_editor);
@@ -463,7 +497,7 @@ file_name_absolute_p (filename)
463} 497}
464 498
465#ifdef WINDOWSNT 499#ifdef WINDOWSNT
466/* Wrapper to make WSACleanup a cdecl, as required by atexit(). */ 500/* Wrapper to make WSACleanup a cdecl, as required by atexit. */
467void 501void
468__cdecl close_winsock () 502__cdecl close_winsock ()
469{ 503{
@@ -858,7 +892,7 @@ main (argc, argv)
858 /* 892 /*
859 Modern Windows restrict which processes can set the foreground window. 893 Modern Windows restrict which processes can set the foreground window.
860 emacsclient can allow Emacs to grab the focus by calling the function 894 emacsclient can allow Emacs to grab the focus by calling the function
861 AllowSetForegroundWindow(). Unfortunately, older Windows (W95, W98 895 AllowSetForegroundWindow. Unfortunately, older Windows (W95, W98
862 and NT) lack this function, so we have to check its availability. 896 and NT) lack this function, so we have to check its availability.
863 */ 897 */
864 if (emacs_pid) 898 if (emacs_pid)
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index db246ef0235..a57b4d5655d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,181 @@
12006-12-15 Richard Stallman <rms@gnu.org>
2
3 * shell.el (shell): Doc fix.
4
52006-12-15 Kevin Gallagher <Kevin.Gallagher@boeing.com>
6
7 * emulation/edt.el (edt-xserver):
8 * emulation/edt-mapper.el (edt-xserver): Replace `/' with a `-',
9 to fix a problem on Cygwin.
10
11 * emulation/edt.el
12 * emulation/edt-mapper.el
13 * emulation/edt-lk201.el
14 * emulation/edt-pc.el
15 * emulation/edt-vt100.el: Update maintainer's email address.
16
172006-12-15 Simon Marshall <simon@gnu.org>
18
19 * progmodes/cc-fonts.el (c-font-lock-declarations): Fix previous
20 change.
21
222006-12-15 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
23
24 * term/mac-win.el (mac-atsu-font-table): Remove defvar.
25 (mac-handle-font-selection): Use mac-atsu-font-face-attributes
26 instead of mac-atsu-font-table.
27 (fontset-default): Specify argument MAXIMUM in x-list-fonts calls.
28
292006-12-14 Stephen Leake <stephen_leake@member.fsf.org>
30
31 * align.el (align-match-tex-pattern): Fix a rare bug which
32 hanged Emacs.
33
342006-12-14 Richard Stallman <rms@gnu.org>
35
36 * startup.el (use-fancy-splash-screens-p): Use frame-height
37 instead of window-height. Pass frame to image-size.
38
392006-12-13 Kenichi Handa <handa@m17n.org>
40
41 * international/mule-cmds.el (set-locale-environment):
42 Set default-sendmail-coding-system too.
43
442006-12-12 J.D. Smith <jdsmith@as.arizona.edu>
45
46 * progmodes/idlw-help.el: Fix copyright notice.
47
482006-12-12 Stefan Monnier <monnier@iro.umontreal.ca>
49
50 * emacs-lisp/syntax.el (syntax-ppss-toplevel-pos): New fun.
51
522006-12-11 Juanma Barranquero <lekktu@gmail.com>
53
54 * subr.el (unread-command-char): Reformat obsolescence info.
55
562006-12-11 Richard Stallman <rms@gnu.org>
57
58 * emacs-lisp/cl-macs.el (defstruct): Suppress warnings
59 about calls to cl-struct-setf-expander.
60
612006-12-11 Juanma Barranquero <lekktu@gmail.com>
62
63 * ediff-merg.el (ediff-show-clashes-only): Doc fix.
64 (ediff-combination-pattern): Fix typo in docstring.
65
66 * textmodes/refer.el (refer-find-entry): Doc fix.
67 (refer-bib-files-regexp, refer-bib-directory, refer-bib-files)
68 (refer-cache-bib-files, refer-find-next-entry, refer-yank-key):
69 Fix tipos in docstrings.
70
71 * progmodes/idlwave.el (idlwave-library-path): Fix typos in docstring.
72
732006-12-10 Kim F. Storm <storm@cua.dk>
74
75 * ido.el (ido-init-completion-maps): Remap backward-kill-word
76 instead of binding M-backspace.
77
782006-12-10 Juanma Barranquero <lekktu@gmail.com>
79
80 * replace.el (replace-match-data, replace-match-maybe-edit):
81 * calc/calc-aent.el (calc-eval-error):
82 * emulation/vi.el (vi-char-argument):
83 * progmodes/cc-langs.el (c-at-vsemi-p-fn)
84 (c-vsemi-status-unknown-p-fn): Doc fixes.
85
862006-12-10 Chong Yidong <cyd@stupidchicken.com>
87
88 * menu-bar.el (menu-bar-showhide-menu, menu-bar-tools-menu)
89 (menu-bar-help-menu): Tooltip fixes. Suggested by Francis Wright.
90
912006-12-10 Masatake YAMATO <jet@gyve.org>
92
93 * progmodes/ld-script.el (ld-script-keywords): Fix a typo.
94
952006-12-09 Chong Yidong <cyd@stupidchicken.com>
96
97 * mouse-sel.el (mouse-sel-mode): Register mouse-2 as a click type.
98
99 * man.el (Man-xref-button-action): New function. If the
100 `Man-target-string' button property is a function, assume it
101 accepts a position argument.
102 (Man-abstract-xref-man-page): Use it.
103 (Man-default-man-entry): New optional arg POS.
104
105 * wdired.el (wdired-preprocess-symlinks): Make the spaces after
106 symlink arrows read-only and non-rear-sticky.
107
1082006-12-09 Martin Rudalics <rudalics@gmx.at>
109
110 * wdired.el (wdired-change-to-wdired-mode, wdired-finish-edit)
111 (wdired-search-and-rename): Simplify code.
112 (wdired-preprocess-files, wdired-preprocess-perms): Make
113 read-only property of preceding character rear-nonsticky to
114 avoid that it can be modified. Put old-name and old-link
115 properties on character preceding name and replace
116 put-text-property by add-text-properties.
117 (wdired-get-filename, wdired-get-previous-link): Get old-name
118 and old-link properties from character preceding name and
119 simplify code.
120 (wdired-preprocess-perms, wdired-set-bit, wdired-toggle-bit)
121 (wdired-perms-to-number): Make local-map property
122 rear-nonsticky to avoid that text following permissions may be
123 modified. Use add-text-properties instead of put-text-property
124 when changing a permission bit.
125 (wdired-change-to-dired-mode): Remove stickiness properties.
126
1272006-12-09 Juanma Barranquero <lekktu@gmail.com>
128
129 * international/mule-cmds.el (register-input-method): Doc fix.
130
1312006-12-09 Masayuki Ataka <masayuki.ataka@gmail.com> (tiny change)
132
133 * cmuscheme.el (scheme-start-file): Use `let*', not `let'.
134
1352006-12-09 Micha,Ak(Bl Cadilhac <michael.cadilhac@lrde.org>
136
137 * textmodes/flyspell.el (flyspell-hack-local-variables-hook): New.
138 Force buffer local defs evaluation on local variables loading.
139 (flyspell-mode-on, flyspell-mode-off): Use it in
140 `hack-local-variables-hook'.
141
1422006-12-09 Eli Zaretskii <eliz@gnu.org>
143
144 * emacs-lisp/find-func.el (find-variable): Doc fix.
145
146 * help-fns.el (variable-at-point): Doc fix.
147
148 * w32-fns.el (w32-append-code-lines): New function.
149
1502006-12-09 Romain Francoise <romain@orebokech.com>
151
152 * comint.el (comint-insert-input): Delete obsolete comment.
153
1542006-12-08 Kevin Rodgers <ihs_4664@yahoo.com>
155
156 * files.el (insert-file-1): Compare file size to
157 large-file-warning-threshold and request confirmation when
158 warranted.
159
1602006-12-08 Stefan Monnier <monnier@iro.umontreal.ca>
161
162 * net/browse-url.el (browse-url): Set DISPLAY to the one of the
163 current frame, in case we're connected to several displays.
164
1652006-12-08 Juanma Barranquero <lekktu@gmail.com>
166
167 * frame.el (other-frame): Doc fix.
168 (set-frame-parameter): Fix typo in docstring.
169
1702006-12-07 Kim F. Storm <storm@cua.dk>
171
172 * info.el (Info-index): Strip leading colon from topic.
173
1742006-12-07 Nick Roberts <nickrob@snap.net.nz>
175
176 * progmodes/gud.el (gud-speedbar-buttons): Deal with references
177 to pointers.
178
12006-12-05 J.D. Smith <jdsmith@as.arizona.edu> 1792006-12-05 J.D. Smith <jdsmith@as.arizona.edu>
2 180
3 * progmodes/idlwave.el (idlwave-xml-create-class-method-lists): 181 * progmodes/idlwave.el (idlwave-xml-create-class-method-lists):
@@ -6,9 +184,10 @@
62006-12-05 Kim F. Storm <storm@cua.dk> 1842006-12-05 Kim F. Storm <storm@cua.dk>
7 185
8 * emulation/cua-base.el (cua-paste-pop-rotate-temporarily): Doc fix. 186 * emulation/cua-base.el (cua-paste-pop-rotate-temporarily): Doc fix.
9 (cua-paste-pop): Rework last change for cua-paste-pop-rotate-temporarily, 187 (cua-paste-pop): Rework last change for
10 so first M-y and C-y works alike, pasting the head of the kill-ring, and 188 cua-paste-pop-rotate-temporarily, so first M-y and C-y works alike,
11 prefix arg C-u M-y inserts the text inserted by the last M-y command. 189 pasting the head of the kill-ring, and prefix arg C-u M-y inserts the
190 text inserted by the last M-y command.
12 191
132006-12-05 Micha,Ak(Bl Cadilhac <michael.cadilhac@lrde.org> 1922006-12-05 Micha,Ak(Bl Cadilhac <michael.cadilhac@lrde.org>
14 193
@@ -25,8 +204,7 @@
25 * progmodes/fortran.el (fortran-mode-abbrev-table) 204 * progmodes/fortran.el (fortran-mode-abbrev-table)
26 * progmodes/octave-mod.el (octave-abbrev-table) 205 * progmodes/octave-mod.el (octave-abbrev-table)
27 * progmodes/sql.el (sql-mode-abbrev-table): Define abbrevs even 206 * progmodes/sql.el (sql-mode-abbrev-table): Define abbrevs even
28 if abbrev-table is non-nil (saved user abbrevs may have been 207 if abbrev-table is non-nil (saved user abbrevs may have been restored).
29 restored).
30 208
31 * progmodes/vhdl-mode.el (vhdl-mode-abbrev-table-init): Do not 209 * progmodes/vhdl-mode.el (vhdl-mode-abbrev-table-init): Do not
32 clear abbrev table, else saved abbrevs will not be restored. 210 clear abbrev table, else saved abbrevs will not be restored.
diff --git a/lisp/ChangeLog.1 b/lisp/ChangeLog.1
index 4dd226b42a3..7dc41a63526 100644
--- a/lisp/ChangeLog.1
+++ b/lisp/ChangeLog.1
@@ -3246,7 +3246,8 @@
3246 Set current buffer variables from defaults 3246 Set current buffer variables from defaults
3247 in case user's init file has changed them. 3247 in case user's init file has changed them.
3248 3248
3249 Copyright (C) 1985, 1986 Free Software Foundation, Inc. 3249 Copyright (C) 1985, 1986, 2001, 2002, 2003, 2004, 2005, 2006
3250 Free Software Foundation, Inc.
3250 Copying and distribution of this file, with or without modification, 3251 Copying and distribution of this file, with or without modification,
3251 are permitted provided the copyright notice and this notice are preserved. 3252 are permitted provided the copyright notice and this notice are preserved.
3252 3253
diff --git a/lisp/ChangeLog.10 b/lisp/ChangeLog.10
index 912dfd2761b..2547ce63f5b 100644
--- a/lisp/ChangeLog.10
+++ b/lisp/ChangeLog.10
@@ -294,7 +294,7 @@
294 properties completely. 294 properties completely.
295 295
296 * progmodes/cc-fonts.el (c-cpp-matchers): Handle line 296 * progmodes/cc-fonts.el (c-cpp-matchers): Handle line
297 continuations in cpp expressions. Do not fontify symbols after 297 continuations in cpp expressions. Do not fontify symbols after
298 #ifdef etc as variables since that isn't consistent with how 298 #ifdef etc as variables since that isn't consistent with how
299 the face is used elsewhere (i.e. only for the definition of 299 the face is used elsewhere (i.e. only for the definition of
300 the symbol). 300 the symbol).
@@ -492,7 +492,7 @@
492 directives are now considered part of the keywords to make 492 directives are now considered part of the keywords to make
493 things easier. 493 things easier.
494 494
495 * progmodes/cc-defs.el: (c-(up|down)-list-(forward|backward)): 495 * progmodes/cc-defs.el (c-(up|down)-list-(forward|backward)):
496 Make the position optional and added docstrings. 496 Make the position optional and added docstrings.
497 497
498 (c-go-(up|down)-list-(forward|backward)): Add variants of the 498 (c-go-(up|down)-list-(forward|backward)): Add variants of the
@@ -742,7 +742,7 @@
742 (c-simple-skip-symbol-backward, c-syntactic-content) 742 (c-simple-skip-symbol-backward, c-syntactic-content)
743 (c-remove-<>-paren-properties): New helper functions. 743 (c-remove-<>-paren-properties): New helper functions.
744 744
745 * progmodes/cc-defs.el: (c-clear-char-syntax) 745 * progmodes/cc-defs.el (c-clear-char-syntax)
746 (c-mark-paren-open, c-mark-paren-close): New support functions 746 (c-mark-paren-open, c-mark-paren-close): New support functions
747 to handle syntactic properties on C++ template arglist brackets. 747 to handle syntactic properties on C++ template arglist brackets.
748 (c-put-type-face, c-put-reference-face): Helpers to put faces on 748 (c-put-type-face, c-put-reference-face): Helpers to put faces on
@@ -1074,7 +1074,7 @@
1074 (iswitchb-xemacs): Delete variable and use (featurep 'xemacs) 1074 (iswitchb-xemacs): Delete variable and use (featurep 'xemacs)
1075 and fboundp instead. 1075 and fboundp instead.
1076 (iswitchb-completions): Remove two redundant arguments and local 1076 (iswitchb-completions): Remove two redundant arguments and local
1077 variables. (All above from Stefan Monnier). 1077 variables. (All above from Stefan Monnier).
1078 1078
10792003-06-20 Masatake YAMATO <jet@gyve.org> 10792003-06-20 Masatake YAMATO <jet@gyve.org>
1080 1080
@@ -1182,7 +1182,7 @@
1182 (gud-find-c-expr): Simplify. 1182 (gud-find-c-expr): Simplify.
1183 1183
1184 * progmodes/fortran.el (fortran-gud-syntax-table): Syntax table 1184 * progmodes/fortran.el (fortran-gud-syntax-table): Syntax table
1185 for parsing Fortran expressions for gud-print. (Stefan Monnier) 1185 for parsing Fortran expressions for gud-print. (Stefan Monnier)
1186 (fortran-mode): Add local variable gud-find-expr. 1186 (fortran-mode): Add local variable gud-find-expr.
1187 1187
1188 * progmodes/cc-mode.el (c-mode): Add local variable gud-find-expr. 1188 * progmodes/cc-mode.el (c-mode): Add local variable gud-find-expr.
@@ -1285,7 +1285,7 @@
1285 1285
1286 * emacs-lisp/debug.el (debug): Fix call to message. 1286 * emacs-lisp/debug.el (debug): Fix call to message.
1287 1287
12882003-06-16 Michael Mauger <mmaug@yahoo.com> (tiny change) 12882003-06-16 Michael Mauger <mmaug@yahoo.com> (tiny change)
1289 1289
1290 * emulation/cua-base.el (cua-mode): Use explicit arg to turn off 1290 * emulation/cua-base.el (cua-mode): Use explicit arg to turn off
1291 minor modes. 1291 minor modes.
@@ -2183,7 +2183,7 @@
2183 when requested. 2183 when requested.
2184 (gud-menu-map): Add a toggle button to menubar for gdb-many-windows. 2184 (gud-menu-map): Add a toggle button to menubar for gdb-many-windows.
2185 (gdb-many-windows): Define explicitly as a function and a variable 2185 (gdb-many-windows): Define explicitly as a function and a variable
2186 (formerly as a minor mode). These need to be global so layout can 2186 (formerly as a minor mode). These need to be global so layout can
2187 be reset from any buffer. 2187 be reset from any buffer.
2188 (gdb-assembler-mode): Keep fringe outside margin as the overlay 2188 (gdb-assembler-mode): Keep fringe outside margin as the overlay
2189 arrow is not used for assembler. 2189 arrow is not used for assembler.
@@ -2257,7 +2257,7 @@
2257 2257
2258 * net/tramp-efs.el: New file. 2258 * net/tramp-efs.el: New file.
2259 2259
22602003-05-24 Michael Albinus <Michael.Albinus@alcatel.de> 22602003-05-24 Michael Albinus <Michael.Albinus@alcatel.de>
2261 2261
2262 * net/tramp.el (tramp-handle-file-truename): `sym' shouldn't be 2262 * net/tramp.el (tramp-handle-file-truename): `sym' shouldn't be
2263 quoted. 2263 quoted.
@@ -2302,7 +2302,7 @@
2302 (forms--mode-commands): Don't bind \t in the maps where 2302 (forms--mode-commands): Don't bind \t in the maps where
2303 we call forms--mode-commands1. 2303 we call forms--mode-commands1.
2304 2304
23052003-05-23 Taro Kawagishi <tarok@acm.org> 23052003-05-23 Taro Kawagishi <tarok@acm.org>
2306 2306
2307 * arc-mode.el (archive-lzh-summarize): Calculate correct total 2307 * arc-mode.el (archive-lzh-summarize): Calculate correct total
2308 header size for LZH level 1 header. 2308 header size for LZH level 1 header.
@@ -2396,7 +2396,7 @@
2396 choices buffer. 2396 choices buffer.
2397 (ispell-show-choices): Directly select `choices-window'. 2397 (ispell-show-choices): Directly select `choices-window'.
2398 (ispell-help): Use default buffer size for electric help. 2398 (ispell-help): Use default buffer size for electric help.
2399 (ispell-adjusted-window-height): Correct for xemacs detection. 2399 (ispell-adjusted-window-height): Correct for XEmacs detection.
2400 (ispell-start-process): Don't double specify dictionary file name. 2400 (ispell-start-process): Don't double specify dictionary file name.
2401 (ispell-init-process): Set `ispell-library-path' each call. 2401 (ispell-init-process): Set `ispell-library-path' each call.
2402 (ispell-change-dictionary): Now only completes valid dictionaries. 2402 (ispell-change-dictionary): Now only completes valid dictionaries.
@@ -3831,7 +3831,7 @@
38312003-04-13 Masatake YAMATO <jet@gyve.org> 38312003-04-13 Masatake YAMATO <jet@gyve.org>
3832 3832
3833 * bindings.el (toplevel): Don't change the face 3833 * bindings.el (toplevel): Don't change the face
3834 of major-mode on the mode line. Setting the face on 3834 of major-mode on the mode line. Setting the face on
3835 the mode line code is installed by my mistake in 3835 the mode line code is installed by my mistake in
3836 my last change. 3836 my last change.
3837 3837
@@ -3876,7 +3876,7 @@
3876 (describe-minor-mode-from-symbol): 3876 (describe-minor-mode-from-symbol):
3877 Renamed from (old) describe-minor-mode. 3877 Renamed from (old) describe-minor-mode.
3878 Use describe-minor-mode-completion-table-for-symbol. 3878 Use describe-minor-mode-completion-table-for-symbol.
3879 Don't use eval. Just use symbol-name. 3879 Don't use eval. Just use symbol-name.
3880 (describe-minor-mode-from-indicator): Document is updated. 3880 (describe-minor-mode-from-indicator): Document is updated.
3881 Use `format-mode-line'. 3881 Use `format-mode-line'.
3882 Use describe-minor-mode-from-symbol instead of describe-minor-mode. 3882 Use describe-minor-mode-from-symbol instead of describe-minor-mode.
@@ -3933,7 +3933,7 @@
39332003-04-11 Masatake YAMATO <jet@gyve.org> 39332003-04-11 Masatake YAMATO <jet@gyve.org>
3934 3934
3935 * progmodes/etags.el (select-tags-table-mode-map): 3935 * progmodes/etags.el (select-tags-table-mode-map):
3936 Don't create new keymap. Instead copy from button-buffer-map. 3936 Don't create new keymap. Instead copy from button-buffer-map.
3937 Bind push-button to `t' instead of binding 3937 Bind push-button to `t' instead of binding
3938 select-tags-table-select directly 3938 select-tags-table-select directly
3939 (tags-select-tags-table): New button. 3939 (tags-select-tags-table): New button.
@@ -4124,7 +4124,7 @@
4124 the same order as that in the buffer list, 4124 the same order as that in the buffer list,
4125 (desktop-save): Put buffers in the order given in desktop file, 4125 (desktop-save): Put buffers in the order given in desktop file,
4126 regardless of what handlers do. 4126 regardless of what handlers do.
4127 (desktop-file-version): New variable. Version number of desktop 4127 (desktop-file-version): New variable. Version number of desktop
4128 file format. 4128 file format.
4129 (desktop-create-buffer-form): Variable deleted. 4129 (desktop-create-buffer-form): Variable deleted.
4130 (desktop-save): New customizable variable. 4130 (desktop-save): New customizable variable.
@@ -4134,7 +4134,7 @@
4134 (desktop-file-name): New function to convert a filename to the 4134 (desktop-file-name): New function to convert a filename to the
4135 format specified in `desktop-file-name-format'. 4135 format specified in `desktop-file-name-format'.
4136 (desktop-create-buffer): Parameters renamed to descriptive 4136 (desktop-create-buffer): Parameters renamed to descriptive
4137 systematic names. These parameters are visible to handlers. 4137 systematic names. These parameters are visible to handlers.
4138 Renames: 4138 Renames:
4139 ver -> desktop-file-version 4139 ver -> desktop-file-version
4140 mim -> desktop-buffer-minor-modes 4140 mim -> desktop-buffer-minor-modes
@@ -4157,7 +4157,7 @@
4157 (desktop-change-dir): New function. 4157 (desktop-change-dir): New function.
4158 (desktop-save-in-load-dir): New function. Save desktop in 4158 (desktop-save-in-load-dir): New function. Save desktop in
4159 directory from which it was loaded. 4159 directory from which it was loaded.
4160 (desktop-revert): New function. Revert to the last loaded desktop. 4160 (desktop-revert): New function. Revert to the last loaded desktop.
4161 4161
41622003-04-06 Masatake YAMATO <jet@gyve.org> 41622003-04-06 Masatake YAMATO <jet@gyve.org>
4163 4163
@@ -5624,7 +5624,7 @@
5624 Face markup of calendar and diary displays: Any entry line that 5624 Face markup of calendar and diary displays: Any entry line that
5625 ends with [foo:value] where foo is a face attribute (except :box 5625 ends with [foo:value] where foo is a face attribute (except :box
5626 :stipple) or with [face:blah] tags, will have these values applied 5626 :stipple) or with [face:blah] tags, will have these values applied
5627 to the calendar and fancy diary displays. These attributes "stack" 5627 to the calendar and fancy diary displays. These attributes "stack"
5628 on calendar displays. File-wide attributes can be defined as 5628 on calendar displays. File-wide attributes can be defined as
5629 follows: the first line matching "^# [tag:value]" defines the 5629 follows: the first line matching "^# [tag:value]" defines the
5630 value for that particular tag. All of the tags' regexps can be 5630 value for that particular tag. All of the tags' regexps can be
@@ -6260,7 +6260,7 @@
6260 of unrecognized entries indicating syntax errors in ChangeLog files. 6260 of unrecognized entries indicating syntax errors in ChangeLog files.
6261 (authors-coding-system): New variable. 6261 (authors-coding-system): New variable.
6262 (authors-many-files): Update doc string. 6262 (authors-many-files): Update doc string.
6263 (authors-aliases): Change format. Now one entry with multiple 6263 (authors-aliases): Change format. Now one entry with multiple
6264 aliases per author. 6264 aliases per author.
6265 (authors-valid-file-names, authors-renamed-files-alist) 6265 (authors-valid-file-names, authors-renamed-files-alist)
6266 (authors-renamed-files-regexps): New variables. 6266 (authors-renamed-files-regexps): New variables.
@@ -6363,7 +6363,7 @@
6363 6363
63642003-01-25 Bill Wohler <wohler@newt.com> 63642003-01-25 Bill Wohler <wohler@newt.com>
6365 6365
6366 * mh-e: Created directory. ChangeLog will appear in a week when we 6366 * mh-e: Created directory. ChangeLog will appear in a week when we
6367 release version 7.2. 6367 release version 7.2.
6368 6368
6369 * mail/mh-alias.el, mail/mh-comp.el, mail/mh-customize.el, mail/mh-e.el, 6369 * mail/mh-alias.el, mail/mh-comp.el, mail/mh-customize.el, mail/mh-e.el,
@@ -6532,7 +6532,7 @@
6532 6532
6533 * gud.el (gud-display-line): If the current file is newer than its 6533 * gud.el (gud-display-line): If the current file is newer than its
6534 buffer, offer to reread the file. 6534 buffer, offer to reread the file.
6535 (gud-keep-buffer): New buffer local variable. Ensures offer to 6535 (gud-keep-buffer): New buffer local variable. Ensures offer to
6536 reread file is made just once. 6536 reread file is made just once.
6537 6537
65382003-01-20 Stefan Monnier <monnier@cs.yale.edu> 65382003-01-20 Stefan Monnier <monnier@cs.yale.edu>
@@ -6862,7 +6862,7 @@
68622003-01-11 Nick Roberts <nick@nick.uklinux.net> 68622003-01-11 Nick Roberts <nick@nick.uklinux.net>
6863 6863
6864 * gud.el (gud-kill-buffer-hook): Save gud-minor-mode type. 6864 * gud.el (gud-kill-buffer-hook): Save gud-minor-mode type.
6865 (gud-reset): New function. Reset environment at end of debugging. 6865 (gud-reset): New function. Reset environment at end of debugging.
6866 (gud-sentinel): Call gud-reset or gdb-reset. 6866 (gud-sentinel): Call gud-reset or gdb-reset.
6867 (gud-menu-map, gud-tool-bar-map, gdb): Change gud-goto to gud-until. 6867 (gud-menu-map, gud-tool-bar-map, gdb): Change gud-goto to gud-until.
6868 6868
@@ -6870,7 +6870,7 @@
6870 to find out if variable shuld be dereferenced. 6870 to find out if variable shuld be dereferenced.
6871 (gud-display1): Exit if there is `No symbol'. 6871 (gud-display1): Exit if there is `No symbol'.
6872 (gdb-expressions-mode-map): Correction to key-binding. 6872 (gdb-expressions-mode-map): Correction to key-binding.
6873 (gdb-reset): New function. Reset environment at end of debugging. 6873 (gdb-reset): New function. Reset environment at end of debugging.
6874 (gdb-quit): Remove. 6874 (gdb-quit): Remove.
6875 6875
68762003-01-10 Dave Love <fx@gnu.org> 68762003-01-10 Dave Love <fx@gnu.org>
@@ -7159,7 +7159,7 @@
7159 (gdb-mouse-goto-breakpoint, gdb-frames-select): New functions. 7159 (gdb-mouse-goto-breakpoint, gdb-frames-select): New functions.
7160 (gdb-frames-mouse-select): Simplify. 7160 (gdb-frames-mouse-select): Simplify.
7161 Make keybindings (gdb-goto-breakpoint, gdb-frames-select, etc) 7161 Make keybindings (gdb-goto-breakpoint, gdb-frames-select, etc)
7162 consistent with other modes in emacs. 7162 consistent with other modes in Emacs.
7163 (gdb-display-source-buffer): Return window of source buffer 7163 (gdb-display-source-buffer): Return window of source buffer
7164 for (gud-display-line). 7164 for (gud-display-line).
7165 7165
@@ -7395,8 +7395,8 @@
7395 7395
73962002-12-21 Nick Roberts <nick@nick.uklinux.net> 73962002-12-21 Nick Roberts <nick@nick.uklinux.net>
7397 7397
7398 * gdb-ui.el: Remove the concept of an instance. This means that 7398 * gdb-ui.el: Remove the concept of an instance. This means that
7399 a lot of functions have been renamed. Accessors are prefixed with 7399 a lot of functions have been renamed. Accessors are prefixed with
7400 gdb-get, setters with gdb-set and the word instance has been 7400 gdb-get, setters with gdb-set and the word instance has been
7401 removed from many function and variable names. 7401 removed from many function and variable names.
7402 (gdb-display-buffer): Protect source buffer as well 7402 (gdb-display-buffer): Protect source buffer as well
@@ -7575,7 +7575,7 @@
75752002-12-13 Markus Rost <rost@math.ohio-state.edu> 75752002-12-13 Markus Rost <rost@math.ohio-state.edu>
7576 7576
7577 * emacs-lisp/easy-mmode.el (define-minor-mode): 7577 * emacs-lisp/easy-mmode.el (define-minor-mode):
7578 Use `custom-current-group'. Pass all groups to the hook. 7578 Use `custom-current-group'. Pass all groups to the hook.
7579 (easy-mmode-define-global-mode): Use `custom-current-group'. 7579 (easy-mmode-define-global-mode): Use `custom-current-group'.
7580 7580
7581 * international/mule-cmds.el (current-language-environment): 7581 * international/mule-cmds.el (current-language-environment):
@@ -7993,7 +7993,7 @@
79932002-11-30 Nick Roberts <nick@nick.uklinux.net> 79932002-11-30 Nick Roberts <nick@nick.uklinux.net>
7994 7994
7995 * gdb-ui.el (gdb-many-windows): Define as a minor mode. 7995 * gdb-ui.el (gdb-many-windows): Define as a minor mode.
7996 (toggle-gdb-windows): Remove. (Patch from Stefan Monnier) 7996 (toggle-gdb-windows): Remove. (Patch from Stefan Monnier)
7997 7997
7998 * tooltip.el (tooltip-gud-process-output): Handle annotations that 7998 * tooltip.el (tooltip-gud-process-output): Handle annotations that
7999 are output with gdba in gdb-ui.el. 7999 are output with gdba in gdb-ui.el.
@@ -8115,7 +8115,7 @@
8115 * tooltip.el (tooltip-gud-print-command): Add server prefix to the 8115 * tooltip.el (tooltip-gud-print-command): Add server prefix to the
8116 print command for gdb to keep it out of the command history. 8116 print command for gdb to keep it out of the command history.
8117 8117
8118 * gdb-ui.el: Major re-organisation. Simplify legacy gdba 8118 * gdb-ui.el: Major re-organisation. Simplify legacy gdba
8119 code to allow only one gdb process. 8119 code to allow only one gdb process.
8120 8120
81212002-11-23 Markus Rost <rost@math.ohio-state.edu> 81212002-11-23 Markus Rost <rost@math.ohio-state.edu>
@@ -8129,7 +8129,7 @@
8129 8129
81302002-11-21 Nick Roberts <nick@nick.uklinux.net> 81302002-11-21 Nick Roberts <nick@nick.uklinux.net>
8131 8131
8132 * gdb-ui.el : General tidying. Patches from Stefan Monnier. 8132 * gdb-ui.el : General tidying. Patches from Stefan Monnier.
8133 8133
81342002-11-20 Simon Josefsson <jas@extundo.com> 81342002-11-20 Simon Josefsson <jas@extundo.com>
8135 8135
@@ -9372,11 +9372,11 @@
9372 append slash only if result doesn't end in a slash already. 9372 append slash only if result doesn't end in a slash already.
9373 (tramp-handle-file-truename): Restructure logic. If list of steps 9373 (tramp-handle-file-truename): Restructure logic. If list of steps
9374 is nil, return "/" as the real name. 9374 is nil, return "/" as the real name.
9375 (tramp-completion-mode): Add "\\(" and "\\)". Otherwise, 9375 (tramp-completion-mode): Add "\\(" and "\\)". Otherwise,
9376 `match-string' doesn't make sense. From Michael Albinus. 9376 `match-string' doesn't make sense. From Michael Albinus.
9377 (tramp-host-with-port-regexp): New defcustom. Equal to previous 9377 (tramp-host-with-port-regexp): New defcustom. Equal to previous
9378 `tramp-host-regexp'. From Michael Albinus. 9378 `tramp-host-regexp'. From Michael Albinus.
9379 (tramp-host-regexp): Taken off hashes in host names. Otherwise, 9379 (tramp-host-regexp): Taken off hashes in host names. Otherwise,
9380 scanning files like .rhosts would take comments as host names. 9380 scanning files like .rhosts would take comments as host names.
9381 From Michael Albinus. 9381 From Michael Albinus.
9382 (tramp-file-name-structure, tramp-multi-file-name-hop-structure): 9382 (tramp-file-name-structure, tramp-multi-file-name-hop-structure):
@@ -10009,7 +10009,7 @@
10009 (occur-next, occur-prev): Use it. 10009 (occur-next, occur-prev): Use it.
10010 10010
10011 * progmodes/sh-script.el (sh-mark-init): Don't set `occur-buffer'. 10011 * progmodes/sh-script.el (sh-mark-init): Don't set `occur-buffer'.
10012 (sh-mark-line): Likewise. Use 'occur-target and 'occur-match 10012 (sh-mark-line): Likewise. Use 'occur-target and 'occur-match
10013 instead of 'occur and 'occur-point. 10013 instead of 'occur and 'occur-point.
10014 10014
10015 * eshell/em-unix.el (eshell-occur-mode-mouse-goto) 10015 * eshell/em-unix.el (eshell-occur-mode-mouse-goto)
@@ -10096,7 +10096,7 @@
10096 (tramp-parse-netrc, tramp-parse-netrc-group): New functions. 10096 (tramp-parse-netrc, tramp-parse-netrc-group): New functions.
10097 (tramp-user-regexp): " \t" are not user regexp characters. 10097 (tramp-user-regexp): " \t" are not user regexp characters.
10098 (tramp-completion-handle-file-name-all-completions): 10098 (tramp-completion-handle-file-name-all-completions):
10099 Remove Ange-FTP cmpletion. It has a bug not handling the "/ftp:" prefix 10099 Remove Ange-FTP cmpletion. It has a bug not handling the "/ftp:" prefix
10100 completely, and it returns local completions as well. 10100 completely, and it returns local completions as well.
10101 (tramp-completion-function-alist-ftp): New constant. 10101 (tramp-completion-function-alist-ftp): New constant.
10102 (tramp-completion-function-alist): Add completion function for "ftp". 10102 (tramp-completion-function-alist): Add completion function for "ftp".
@@ -10275,27 +10275,26 @@
102752002-09-07 Michael Albinus <Michael.Albinus@alcatel.de> 102752002-09-07 Michael Albinus <Michael.Albinus@alcatel.de>
10276 10276
10277 * net/tramp.el (tramp-methods): Remove `tramp-completion-function' 10277 * net/tramp.el (tramp-methods): Remove `tramp-completion-function'
10278 entries. They are handled now by `tramp-completion-function-alist'. 10278 entries. They are handled now by `tramp-completion-function-alist'.
10279 (tramp-completion-function): Defvar removed. I've never used 10279 (tramp-completion-function): Defvar removed. I've never used it. Hmm.
10280 it. Hmm.
10281 (tramp-get-completion-function) 10280 (tramp-get-completion-function)
10282 (tramp-get-completion-rsh, tramp-get-completion-ssh) 10281 (tramp-get-completion-rsh, tramp-get-completion-ssh)
10283 (tramp-get-completion-telnet, tramp-get-completion-su): 10282 (tramp-get-completion-telnet, tramp-get-completion-su):
10284 Functions removed as well. Not necessary any longer due to extended 10283 Functions removed as well. Not necessary any longer due to extended
10285 customization means. 10284 customization means.
10286 (tramp-completion-function-alist): New defcustom. Holds all 10285 (tramp-completion-function-alist): New defcustom. Holds all
10287 FUNCTION FILE pairs used for user and host name completion 10286 FUNCTION FILE pairs used for user and host name completion
10288 relevant for METHOD. 10287 relevant for METHOD.
10289 (tramp-completion-function-alist-rsh) 10288 (tramp-completion-function-alist-rsh)
10290 (tramp-completion-function-alist-ssh) 10289 (tramp-completion-function-alist-ssh)
10291 (tramp-completion-function-alist-telnet) 10290 (tramp-completion-function-alist-telnet)
10292 (tramp-completion-function-alist-su): Defconst for initializing 10291 (tramp-completion-function-alist-su): Defconst for initializing
10293 `tramp-completion-function-alist'. Unfortunately, mainly UNIX-like 10292 `tramp-completion-function-alist'. Unfortunately, mainly UNIX-like
10294 values are known for me until now. Needs to be completed for at 10293 values are known for me until now. Needs to be completed for at
10295 least VMS++ like operating systems. 10294 least VMS++ like operating systems.
10296 (tramp-set-completion-function) 10295 (tramp-set-completion-function)
10297 (tramp-get-completion-function): New functions for configuration 10296 (tramp-get-completion-function): New functions for configuration
10298 of `tramp-completion-function-alist'. The old definition of 10297 of `tramp-completion-function-alist'. The old definition of
10299 `tramp-get-completion-function' has been discarded. 10298 `tramp-get-completion-function' has been discarded.
10300 (tramp-completion-handle-file-name-all-completions): 10299 (tramp-completion-handle-file-name-all-completions):
10301 Change function call for user/host completion according to definition 10300 Change function call for user/host completion according to definition
@@ -10332,7 +10331,7 @@
10332 (tramp-get-completion-user-host): Accept user names as they are if 10331 (tramp-get-completion-user-host): Accept user names as they are if
10333 typed until "@". 10332 typed until "@".
10334 (tramp-completion-mode): Replace `last-input-char' by modern 10333 (tramp-completion-mode): Replace `last-input-char' by modern
10335 `last-input-event'. Check for `event-modifiers'. 10334 `last-input-event'. Check for `event-modifiers'.
10336 10335
103372002-09-06 Kai Gro,A_(Bjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> 103362002-09-06 Kai Gro,A_(Bjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE>
10338 10337
@@ -10391,8 +10390,8 @@
10391 (tramp-make-multi-tramp-file-format-unified) 10390 (tramp-make-multi-tramp-file-format-unified)
10392 (tramp-make-multi-tramp-file-format-separate): Removed. 10391 (tramp-make-multi-tramp-file-format-separate): Removed.
10393 (tramp-make-tramp-file-name): Allow partial tramp file 10392 (tramp-make-tramp-file-name): Allow partial tramp file
10394 names. Generate tramp file format on-the-fly depending on 10393 names. Generate tramp file format on-the-fly depending on
10395 parameters. Apply atomar format strings resp expressions. 10394 parameters. Apply atomar format strings resp expressions.
10396 (tramp-get-completion-methods) 10395 (tramp-get-completion-methods)
10397 (tramp-get-completion-user-host): Apply `tramp-make-tramp-file-name'. 10396 (tramp-get-completion-user-host): Apply `tramp-make-tramp-file-name'.
10398 (tramp-parse-hosts-group): Take all host names and IP addresses 10397 (tramp-parse-hosts-group): Take all host names and IP addresses
@@ -10444,7 +10443,7 @@
10444 10443
10445 * net/tramp.el (tramp-get-completion-methods) 10444 * net/tramp.el (tramp-get-completion-methods)
10446 (tramp-get-completion-rsh) 10445 (tramp-get-completion-rsh)
10447 (tramp-get-completion-ssh): Add "[" for Xemacs. 10446 (tramp-get-completion-ssh): Add "[" for XEmacs.
10448 (tramp-completion-file-name-regexp-separate): Expression adapted. 10447 (tramp-completion-file-name-regexp-separate): Expression adapted.
10449 (tramp-completion-file-name-handler-alist): Add handler for 10448 (tramp-completion-file-name-handler-alist): Add handler for
10450 `file-name-directory' and `file-name-nondirectory'. 10449 `file-name-directory' and `file-name-nondirectory'.
@@ -10455,7 +10454,7 @@
10455 (tramp-completion-handle-file-name-all-completions): 10454 (tramp-completion-handle-file-name-all-completions):
10456 Apply `tramp-completion-run-real-handler'. 10455 Apply `tramp-completion-run-real-handler'.
10457 (tramp-parse-rhosts) 10456 (tramp-parse-rhosts)
10458 (tramp-parse-shosts): Use `with-temp-buffer'. `result$,1!=(B renamed to 10457 (tramp-parse-shosts): Use `with-temp-buffer'. `result' renamed to
10459 `res' (otherwise side effects in XEmacs). 10458 `res' (otherwise side effects in XEmacs).
10460 10459
104612002-08-24 Michael Albinus <Michael.Albinus@alcatel.de> 104602002-08-24 Michael Albinus <Michael.Albinus@alcatel.de>
@@ -10470,7 +10469,7 @@
10470 (tramp-get-completion-ssh): Doc string tuned. 10469 (tramp-get-completion-ssh): Doc string tuned.
10471 (tramp-methods): Doc string and custom type extended for 10470 (tramp-methods): Doc string and custom type extended for
10472 `tramp-completion-function'. 10471 `tramp-completion-function'.
10473 (tramp-completion-function): Variable added. Is it really used? 10472 (tramp-completion-function): Variable added. Is it really used?
10474 Other variables like `tramp-completion-function' aren't used. 10473 Other variables like `tramp-completion-function' aren't used.
10475 (tramp-completion-file-name-handler-alist): Add handler for 10474 (tramp-completion-file-name-handler-alist): Add handler for
10476 `file-name-completion'. 10475 `file-name-completion'.
@@ -10518,7 +10517,7 @@
10518 10517
10519 * net/tramp.el (tramp-invoke-ange-ftp): `tramp-disable-ange-ftp' 10518 * net/tramp.el (tramp-invoke-ange-ftp): `tramp-disable-ange-ftp'
10520 must be called again after activating `ange-ftp'. 10519 must be called again after activating `ange-ftp'.
10521 (tramp-ange-ftp-file-name-p): Check for Xemacs. 10520 (tramp-ange-ftp-file-name-p): Check for XEmacs.
10522 10521
105232002-08-08 Michael Albinus <Michael.Albinus@alcatel.de> 105222002-08-08 Michael Albinus <Michael.Albinus@alcatel.de>
10524 10523
@@ -10528,7 +10527,7 @@
10528 tramp-invoke-ange-ftp 'write-region. 10527 tramp-invoke-ange-ftp 'write-region.
10529 (tramp-handle-set-file-modes): Change order of FILENAME and MODE 10528 (tramp-handle-set-file-modes): Change order of FILENAME and MODE
10530 passing to tramp-invoke-ange-ftp 'set-file-modes. 10529 passing to tramp-invoke-ange-ftp 'set-file-modes.
10531 (tramp-flatten-list): New function. Maybe this functionality does 10530 (tramp-flatten-list): New function. Maybe this functionality does
10532 exist already elsewhere in the libraries. 10531 exist already elsewhere in the libraries.
10533 (tramp-invoke-ange-ftp): Apply `tramp-flatten-list' to parameter 10532 (tramp-invoke-ange-ftp): Apply `tramp-flatten-list' to parameter
10534 list in order to avoid nested lists, f.e. when invoked from 10533 list in order to avoid nested lists, f.e. when invoked from
@@ -10660,7 +10659,7 @@
10660 10659
106612002-09-18 Luc Teirlinck <teirllm@mail.auburn.edu> 106602002-09-18 Luc Teirlinck <teirllm@mail.auburn.edu>
10662 10661
10663 * ielm.el: (*1, *2, *3): New variables. 10662 * ielm.el (*1, *2, *3): New variables.
10664 (ielm-eval-input): Make temporary buffers current on entry and 10663 (ielm-eval-input): Make temporary buffers current on entry and
10665 exit to the let bindings for *, ** and ***. 10664 exit to the let bindings for *, ** and ***.
10666 (inferior-emacs-lisp-mode): Mention *1, *2 and *3 in the docstring. 10665 (inferior-emacs-lisp-mode): Mention *1, *2 and *3 in the docstring.
@@ -10961,7 +10960,7 @@
109612002-09-12 Simon Josefsson <jas@extundo.com> 109602002-09-12 Simon Josefsson <jas@extundo.com>
10962 10961
10963 * mail/smtpmail.el (smtpmail-send-it): Don't use : in filenames 10962 * mail/smtpmail.el (smtpmail-send-it): Don't use : in filenames
10964 (for cygwin). Suggested by Andrew Senior <aws@watson.ibm.com>. 10963 (for cygwin). Suggested by Andrew Senior <aws@watson.ibm.com>.
10965 Use expand-file-name. Also don't require time-stamp. 10964 Use expand-file-name. Also don't require time-stamp.
10966 10965
109672002-09-11 Richard M. Stallman <rms@gnu.org> 109662002-09-11 Richard M. Stallman <rms@gnu.org>
@@ -11259,7 +11258,7 @@
112592002-09-08 Kim F. Storm <storm@cua.dk> 112582002-09-08 Kim F. Storm <storm@cua.dk>
11260 11259
11261 * kmacro.el (kmacro-end-and-call-macro): New command to end and 11260 * kmacro.el (kmacro-end-and-call-macro): New command to end and
11262 call keyboard macro in one step. Bind it to C-x e by default. 11261 call keyboard macro in one step. Bind it to C-x e by default.
11263 (kmacro-call-macro): Use format-kbd-macro. 11262 (kmacro-call-macro): Use format-kbd-macro.
11264 (kmacro-step-edit-macro): New command to interactively step edit 11263 (kmacro-step-edit-macro): New command to interactively step edit
11265 and execute last keyboard macro. 11264 and execute last keyboard macro.
@@ -11459,7 +11458,7 @@
11459 11458
11460 From Michael Albinus <Michael.Albinus@alcatel.de>: 11459 From Michael Albinus <Michael.Albinus@alcatel.de>:
11461 * net/tramp.el (tramp-invoke-ange-ftp): 11460 * net/tramp.el (tramp-invoke-ange-ftp):
11462 (tramp-ange-ftp-file-name-p): Check for Xemacs. 11461 (tramp-ange-ftp-file-name-p): Check for XEmacs.
11463 (tramp-do-copy-or-rename-file): Don't pass KEEP-DATE to 11462 (tramp-do-copy-or-rename-file): Don't pass KEEP-DATE to
11464 tramp-invoke-ange-ftp 'rename. 11463 tramp-invoke-ange-ftp 'rename.
11465 (tramp-handle-write-region): Don't pass LOCKNAME and CONFIRM to 11464 (tramp-handle-write-region): Don't pass LOCKNAME and CONFIRM to
@@ -12552,7 +12551,7 @@
12552 12551
12553 * warnings.el (lwarn, warn, warning-levels): Doc fix. 12552 * warnings.el (lwarn, warn, warning-levels): Doc fix.
12554 (warning-suppress-log-types): Fix typo. 12553 (warning-suppress-log-types): Fix typo.
12555 (display-warning): Fix typo. Remove useless assignment to free variable 12554 (display-warning): Fix typo. Remove useless assignment to free variable
12556 `group-string'. 12555 `group-string'.
12557 12556
125582002-07-25 Markus Rost <rost@math.ohio-state.edu> 125572002-07-25 Markus Rost <rost@math.ohio-state.edu>
@@ -13371,8 +13370,8 @@
13371 * files.el (after-find-file): Don't check for read-only status 13370 * files.el (after-find-file): Don't check for read-only status
13372 of files just created (and not yet saved on disk). 13371 of files just created (and not yet saved on disk).
13373 13372
13374 * ido.el (ido-completion-help): Changed xemacs specific code to 13373 * ido.el (ido-completion-help): Changed XEmacs specific code to
13375 avoid byte compiler warning in GNU emacs. 13374 avoid byte compiler warning in GNU Emacs.
13376 (ido-set-matches1): Use regexp-quote instead of identity. 13375 (ido-set-matches1): Use regexp-quote instead of identity.
13377 (ido-complete-space): New function. 13376 (ido-complete-space): New function.
13378 (ido-define-mode-map): Bind it to SPACE. 13377 (ido-define-mode-map): Bind it to SPACE.
@@ -13696,7 +13695,7 @@
13696 * faces.el (describe-face): Capitalize "not documented" message. 13695 * faces.el (describe-face): Capitalize "not documented" message.
13697 13696
13698 * help-fns.el (describe-variable): Likewise. 13697 * help-fns.el (describe-variable): Likewise.
13699 (describe-function-1): Likewise. Also, document the obsolescence 13698 (describe-function-1): Likewise. Also, document the obsolescence
13700 of the function, if applicable. 13699 of the function, if applicable.
13701 13700
137022002-06-26 Juanma Barranquero <lektu@terra.es> 137012002-06-26 Juanma Barranquero <lektu@terra.es>
@@ -14190,7 +14189,7 @@
14190 (italic): Try underlining for displays that don't support real italics. 14189 (italic): Try underlining for displays that don't support real italics.
14191 * cus-edit.el (custom-display): Add support for `supports' predicate. 14190 * cus-edit.el (custom-display): Add support for `supports' predicate.
14192 * term/tty-colors.el (color-name-rgb-alist): Use 16-bit RGB values 14191 * term/tty-colors.el (color-name-rgb-alist): Use 16-bit RGB values
14193 instead of 8-bit, for consistency with the rest of emacs. 14192 instead of 8-bit, for consistency with the rest of Emacs.
14194 (tty-color-canonicalize): Only copy COLOR if we need to change it. 14193 (tty-color-canonicalize): Only copy COLOR if we need to change it.
14195 (tty-color-approximate): Scale values from `color-name-rgb-alist' 14194 (tty-color-approximate): Scale values from `color-name-rgb-alist'
14196 appropriately. Return the whole color description, rather than 14195 appropriately. Return the whole color description, rather than
@@ -14553,7 +14552,7 @@
14553 14552
145542002-05-24 Glenn Morris <gmorris@ast.cam.ac.uk> 145532002-05-24 Glenn Morris <gmorris@ast.cam.ac.uk>
14555 14554
14556 * progmodes/f90.el: (f90-end-of-subprogram): Remove the final 14555 * progmodes/f90.el (f90-end-of-subprogram): Remove the final
14557 `forward-line'. 14556 `forward-line'.
14558 (f90-end-of-block, f90-beginning-of-block, f90-next-block-end) 14557 (f90-end-of-block, f90-beginning-of-block, f90-next-block-end)
14559 (f90-previous-block-start): New navigation commands. 14558 (f90-previous-block-start): New navigation commands.
@@ -14587,7 +14586,7 @@
14587 (apropos-calc-scores, apropos-score-str, apropos-score-doc) 14586 (apropos-calc-scores, apropos-score-str, apropos-score-doc)
14588 (apropos-score-symbol): New functions. 14587 (apropos-score-symbol): New functions.
14589 (apropos-command, apropos, apropos-value, apropos-documentation): 14588 (apropos-command, apropos, apropos-value, apropos-documentation):
14590 Allow keywords in addition to regexp. Added scoring. 14589 Allow keywords in addition to regexp. Added scoring.
14591 (apropos-documentation-check-doc-file) 14590 (apropos-documentation-check-doc-file)
14592 (apropos-documentation-check-elc-file): Added scoring. 14591 (apropos-documentation-check-elc-file): Added scoring.
14593 (apropos-print): Sort according to score. 14592 (apropos-print): Sort according to score.
@@ -15271,7 +15270,7 @@
15271 (mouse-wheel-scroll-screen): Remove. 15270 (mouse-wheel-scroll-screen): Remove.
15272 ([mouse-wheel], [C-mouse-wheel], [S-mouse-wheel]): Use mwheel-scroll. 15271 ([mouse-wheel], [C-mouse-wheel], [S-mouse-wheel]): Use mwheel-scroll.
15273 15272
15274 * w32-vars.el: (mouse-wheel-scroll-amount): Remove. 15273 * w32-vars.el (mouse-wheel-scroll-amount): Remove.
15275 15274
152762002-05-04 Markus Rost <rost@math.ohio-state.edu> 152752002-05-04 Markus Rost <rost@math.ohio-state.edu>
15277 15276
@@ -15964,7 +15963,7 @@
15964 15963
159652002-04-22 Martin Stjernholm <bug-cc-mode@gnu.org> 159642002-04-22 Martin Stjernholm <bug-cc-mode@gnu.org>
15966 15965
15967 * progmodes/cc-mode.el: (c-define-abbrev-table): New function to 15966 * progmodes/cc-mode.el (c-define-abbrev-table): New function to
15968 pass the SYSTEM-FLAG to `define-abbrev' in a way that works in 15967 pass the SYSTEM-FLAG to `define-abbrev' in a way that works in
15969 emacsen that doesn't support it. 15968 emacsen that doesn't support it.
15970 15969
@@ -16480,7 +16479,7 @@
16480 and macros. 16479 and macros.
16481 16480
16482 (c-in-literal): No longer recognizes macros as literals by 16481 (c-in-literal): No longer recognizes macros as literals by
16483 default. An extra flag argument is required to do that. 16482 default. An extra flag argument is required to do that.
16484 16483
16485 (c-macro-start, c-query-macro-start) 16484 (c-macro-start, c-query-macro-start)
16486 (c-query-and-set-macro-start): Added a cache for the macro 16485 (c-query-and-set-macro-start): Added a cache for the macro
@@ -16848,9 +16847,9 @@
16848 (scroll-all-beginning-of-buffer-all, scroll-all-end-of-buffer-all): 16847 (scroll-all-beginning-of-buffer-all, scroll-all-end-of-buffer-all):
16849 New functions. 16848 New functions.
16850 16849
16851 * files.el: (auto-mode-alist): .f95 files in f90-mode. 16850 * files.el (auto-mode-alist): .f95 files in f90-mode.
16852 16851
16853 * progmodes/fortran.el: (fortran-beginning-do): Make regexp match 16852 * progmodes/fortran.el (fortran-beginning-do): Make regexp match
16854 a DO statement irrespective of numeric label. 16853 a DO statement irrespective of numeric label.
16855 16854
168562002-04-20 Glenn Morris <gmorris@ast.cam.ac.uk> 168552002-04-20 Glenn Morris <gmorris@ast.cam.ac.uk>
@@ -16956,7 +16955,7 @@
16956 16955
169572002-04-16 Michael Kifer <kifer@cs.stonybrook.edu> 169562002-04-16 Michael Kifer <kifer@cs.stonybrook.edu>
16958 16957
16959 * viper-ex.el: Patch by Samuel Padgett. Copyright papers received. 16958 * viper-ex.el: Patch by Samuel Padgett. Copyright papers received.
16960 (viper-ex-print-buf-name): New variable. 16959 (viper-ex-print-buf-name): New variable.
16961 (viper-ex-print-buf): New variable. 16960 (viper-ex-print-buf): New variable.
16962 (ex-token-alist): Invoke ex-print on ":print" Ex commands. 16961 (ex-token-alist): Invoke ex-print on ":print" Ex commands.
@@ -17448,7 +17447,7 @@
174482002-04-02 Mike Williams <mdub@bigfoot.com> 174472002-04-02 Mike Williams <mdub@bigfoot.com>
17449 17448
17450 * textmodes/sgml-mode.el (sgml-close-tag): Rename from 17449 * textmodes/sgml-mode.el (sgml-close-tag): Rename from
17451 sgml-insert-end-tag. Simplify by using sgml-lexical-context. 17450 sgml-insert-end-tag. Simplify by using sgml-lexical-context.
17452 (sgml-get-context): Remove use of sgml-inside-tag-p. 17451 (sgml-get-context): Remove use of sgml-inside-tag-p.
17453 (sgml-inside-tag-p): Remove. 17452 (sgml-inside-tag-p): Remove.
17454 (sgml-looking-back-at): Short-circuit at beg of buffer. 17453 (sgml-looking-back-at): Short-circuit at beg of buffer.
@@ -17493,7 +17492,7 @@
17493 17492
17494 * textmodes/xml-lite.el: Removed much redundant stuff. 17493 * textmodes/xml-lite.el: Removed much redundant stuff.
17495 (xml-lite-parse-tag-backward): Simplify parsing by assuming we 17494 (xml-lite-parse-tag-backward): Simplify parsing by assuming we
17496 always start within text. Make use of sgml-unclosed-tag-p. 17495 always start within text. Make use of sgml-unclosed-tag-p.
17497 17496
174982002-04-01 Ville Skytt,Ad(B <ville.skytta@xemacs.org> 174972002-04-01 Ville Skytt,Ad(B <ville.skytta@xemacs.org>
17499 17498
@@ -18368,7 +18367,7 @@
18368 18367
18369 * ediff-init.el: Comments. 18368 * ediff-init.el: Comments.
18370 18369
18371 * ediff-hook.el: Got rid of autoloads. Not needed, since the hook 18370 * ediff-hook.el: Got rid of autoloads. Not needed, since the hook
18372 is loaded. 18371 is loaded.
18373 18372
18374 * ediff-mult.el (ediff-intersect-directories) 18373 * ediff-mult.el (ediff-intersect-directories)
@@ -18383,7 +18382,7 @@
18383 18382
18384 * ediff-util.el (ediff-compute-custom-diffs-maybe): Buglet fix. 18383 * ediff-util.el (ediff-compute-custom-diffs-maybe): Buglet fix.
18385 (ediff-inferior-compare-regions): Use 18384 (ediff-inferior-compare-regions): Use
18386 ediff-clone-buffer-for-region-comparison. Better and simpler interface. 18385 ediff-clone-buffer-for-region-comparison. Better and simpler interface.
18387 18386
18388 * ediff.el (ediff-directories-internal): Cleanup. 18387 * ediff.el (ediff-directories-internal): Cleanup.
18389 (ediff-clone-buffer-for-region-comparison): Better interface. 18388 (ediff-clone-buffer-for-region-comparison): Better interface.
@@ -19140,7 +19139,7 @@
191402002-02-10 Michael Kifer <kifer@cs.stonybrook.edu> 191392002-02-10 Michael Kifer <kifer@cs.stonybrook.edu>
19141 19140
19142 * viper-util.el (viper-read-key-sequence): Fix so it'll read 19141 * viper-util.el (viper-read-key-sequence): Fix so it'll read
19143 fast key sequences in emacs native mode 19142 fast key sequences in Emacs native mode
19144 (viper-events-to-keys): Delete. 19143 (viper-events-to-keys): Delete.
19145 19144
19146 * viper.el (describe-key, describe-key-briefly): Get rid of 19145 * viper.el (describe-key, describe-key-briefly): Get rid of
@@ -19705,7 +19704,7 @@
19705 19704
197062002-01-20 Colin Walters <walters@verbum.org> 197052002-01-20 Colin Walters <walters@verbum.org>
19707 19706
19708 * ibuffer.el: (toplevel) Require `ibuf-ext', which is now compiled 19707 * ibuffer.el (toplevel): Require `ibuf-ext', which is now compiled
19709 with `byte-compile-dynamic'. 19708 with `byte-compile-dynamic'.
19710 (ibuffer-default-directory, toplevel): Doc files. 19709 (ibuffer-default-directory, toplevel): Doc files.
19711 19710
@@ -20050,7 +20049,7 @@
20050 20049
20051 * viper-init.el (viper-cond-compile-for-xemacs-or-emacs): 20050 * viper-init.el (viper-cond-compile-for-xemacs-or-emacs):
20052 new macro that replaces viper-emacs-p and viper-xemacs-p in many 20051 new macro that replaces viper-emacs-p and viper-xemacs-p in many
20053 cases. Used to reduce the number of warnings. 20052 cases. Used to reduce the number of warnings.
20054 20053
20055 * viper-cmd.el: Use viper-cond-compile-for-xemacs-or-emacs. 20054 * viper-cmd.el: Use viper-cond-compile-for-xemacs-or-emacs.
20056 (viper-standard-value): Move here from viper.el. 20055 (viper-standard-value): Move here from viper.el.
@@ -21766,7 +21765,7 @@
21766 21765
217672001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu> 217662001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
21768 21767
21769 * mail/rmail.el (rmail-enable-mime-composing): New. A lightweight 21768 * mail/rmail.el (rmail-enable-mime-composing): New. A lightweight
21770 version of rmail-enable-mime. 21769 version of rmail-enable-mime.
21771 (rmail-forward): Use it. 21770 (rmail-forward): Use it.
21772 21771
@@ -22028,7 +22027,7 @@
22028 22027
22029 * emacs-lisp/lisp.el (mark-sexp): Mark more if repeated. 22028 * emacs-lisp/lisp.el (mark-sexp): Mark more if repeated.
22030 22029
22031 * progmodes/cc-engine.el (c-parse-state): Typo. From Martin Stjernholm. 22030 * progmodes/cc-engine.el (c-parse-state): Typo. From Martin Stjernholm.
22032 22031
22033 * mwheel.el (mouse-wheel-scroll-amount): Allow float values. 22032 * mwheel.el (mouse-wheel-scroll-amount): Allow float values.
22034 (mouse-wheel-progessive-speed): New var. 22033 (mouse-wheel-progessive-speed): New var.
@@ -22600,7 +22599,7 @@
22600 * calc/calc-macs.el (calc-record-compilation-date-macro): Return a 22599 * calc/calc-macs.el (calc-record-compilation-date-macro): Return a
22601 simple `setq' form. 22600 simple `setq' form.
22602 22601
22603 * calc/calc-ext.el: (toplevel): Require calc. 22602 * calc/calc-ext.el (toplevel): Require calc.
22604 (calc-fancy-prefix-map): New. 22603 (calc-fancy-prefix-map): New.
22605 (calc-fancy-prefix): Use it. 22604 (calc-fancy-prefix): Use it.
22606 (calc-fancy-prefix-other-key): New. 22605 (calc-fancy-prefix-other-key): New.
@@ -23233,7 +23232,7 @@
23233 23232
232342001-10-26 Jason Rumney <jasonr@gnu.org> 232332001-10-26 Jason Rumney <jasonr@gnu.org>
23235 23234
23236 * w32-fns.el: (w32-charset-info-alist): Use ANSI for iso10646-1 23235 * w32-fns.el (w32-charset-info-alist): Use ANSI for iso10646-1
23237 when UNICODE is not defined. 23236 when UNICODE is not defined.
23238 23237
232392001-10-26 Sam Steingold <sds@gnu.org> 232382001-10-26 Sam Steingold <sds@gnu.org>
@@ -23547,7 +23546,8 @@ See ChangeLog.9 for earlier changes.
23547;; coding: iso-2022-7bit 23546;; coding: iso-2022-7bit
23548;; End: 23547;; End:
23549 23548
23550 Copyright (C) 2001, 2002 Free Software Foundation, Inc. 23549 Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006
23550 Free Software Foundation, Inc.
23551 Copying and distribution of this file, with or without modification, 23551 Copying and distribution of this file, with or without modification,
23552 are permitted provided the copyright notice and this notice are preserved. 23552 are permitted provided the copyright notice and this notice are preserved.
23553 23553
diff --git a/lisp/ChangeLog.11 b/lisp/ChangeLog.11
index f9c93d4102e..4de116f8bf9 100644
--- a/lisp/ChangeLog.11
+++ b/lisp/ChangeLog.11
@@ -14336,7 +14336,7 @@ See ChangeLog.10 for earlier changes.
14336;; coding: iso-2022-7bit 14336;; coding: iso-2022-7bit
14337;; End: 14337;; End:
14338 14338
14339 Copyright (C) 2003, 2004 Free Software Foundation, Inc. 14339 Copyright (C) 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
14340 Copying and distribution of this file, with or without modification, 14340 Copying and distribution of this file, with or without modification,
14341 are permitted provided the copyright notice and this notice are preserved. 14341 are permitted provided the copyright notice and this notice are preserved.
14342 14342
diff --git a/lisp/ChangeLog.2 b/lisp/ChangeLog.2
index fd97c5a07aa..cc94f4ff64f 100644
--- a/lisp/ChangeLog.2
+++ b/lisp/ChangeLog.2
@@ -3994,7 +3994,8 @@
3994 3994
3995See ChangeLog.1 for earlier changes. 3995See ChangeLog.1 for earlier changes.
3996 3996
3997 Copyright (C) 1986, 1987, 1988 Free Software Foundation, Inc. 3997 Copyright (C) 1986, 1987, 1988, 2001, 2002, 2003, 2004, 2005, 2006
3998 Free Software Foundation, Inc.
3998 Copying and distribution of this file, with or without modification, 3999 Copying and distribution of this file, with or without modification,
3999 are permitted provided the copyright notice and this notice are preserved. 4000 are permitted provided the copyright notice and this notice are preserved.
4000 4001
diff --git a/lisp/ChangeLog.3 b/lisp/ChangeLog.3
index af6d2f0c382..66bad2c8021 100644
--- a/lisp/ChangeLog.3
+++ b/lisp/ChangeLog.3
@@ -12615,7 +12615,8 @@
12615 12615
12616See ChangeLog.2 for earlier changes. 12616See ChangeLog.2 for earlier changes.
12617 12617
12618 Copyright (C) 1989, 1993 Free Software Foundation, Inc. 12618 Copyright (C) 1989, 1993, 2001, 2002, 2003, 2004, 2005, 2006
12619 Free Software Foundation, Inc.
12619 Copying and distribution of this file, with or without modification, 12620 Copying and distribution of this file, with or without modification,
12620 are permitted provided the copyright notice and this notice are preserved. 12621 are permitted provided the copyright notice and this notice are preserved.
12621 12622
diff --git a/lisp/ChangeLog.4 b/lisp/ChangeLog.4
index 2e852552f05..30fa3124635 100644
--- a/lisp/ChangeLog.4
+++ b/lisp/ChangeLog.4
@@ -8939,7 +8939,8 @@
8939 8939
8940See ChangeLog.3 for earlier changes. 8940See ChangeLog.3 for earlier changes.
8941 8941
8942 Copyright (C) 1993, 1994 Free Software Foundation, Inc. 8942 Copyright (C) 1993, 1994, 2001, 2002, 2003, 2004, 2005, 2006
8943 Free Software Foundation, Inc.
8943 Copying and distribution of this file, with or without modification, 8944 Copying and distribution of this file, with or without modification,
8944 are permitted provided the copyright notice and this notice are preserved. 8945 are permitted provided the copyright notice and this notice are preserved.
8945 8946
diff --git a/lisp/ChangeLog.5 b/lisp/ChangeLog.5
index 5aedc76efed..a070a2cf7a4 100644
--- a/lisp/ChangeLog.5
+++ b/lisp/ChangeLog.5
@@ -9261,7 +9261,8 @@
9261 9261
9262See ChangeLog.4 for earlier changes. 9262See ChangeLog.4 for earlier changes.
9263 9263
9264 Copyright (C) 1994, 1995 Free Software Foundation, Inc. 9264 Copyright (C) 1994, 1995, 2001, 2002, 2003, 2004, 2005, 2006
9265 Free Software Foundation, Inc.
9265 Copying and distribution of this file, with or without modification, 9266 Copying and distribution of this file, with or without modification,
9266 are permitted provided the copyright notice and this notice are preserved. 9267 are permitted provided the copyright notice and this notice are preserved.
9267 9268
diff --git a/lisp/ChangeLog.6 b/lisp/ChangeLog.6
index 356715b8d09..dfa9dfae61b 100644
--- a/lisp/ChangeLog.6
+++ b/lisp/ChangeLog.6
@@ -8021,7 +8021,8 @@ Wed Jul 26 15:40:00 Michael Kifer (kifer@cs.sunysb.edu)
8021 8021
8022See ChangeLog.5 for earlier changes. 8022See ChangeLog.5 for earlier changes.
8023 8023
8024 Copyright (C) 1995, 1996 Free Software Foundation, Inc. 8024 Copyright (C) 1995, 1996, 2001, 2002, 2003, 2004, 2005, 2006
8025 Free Software Foundation, Inc.
8025 Copying and distribution of this file, with or without modification, 8026 Copying and distribution of this file, with or without modification,
8026 are permitted provided the copyright notice and this notice are preserved. 8027 are permitted provided the copyright notice and this notice are preserved.
8027 8028
diff --git a/lisp/ChangeLog.7 b/lisp/ChangeLog.7
index f89cb7b0d47..fa07ccc187b 100644
--- a/lisp/ChangeLog.7
+++ b/lisp/ChangeLog.7
@@ -23139,7 +23139,8 @@
23139 23139
23140See ChangeLog.6 for earlier changes. 23140See ChangeLog.6 for earlier changes.
23141 23141
23142 Copyright (C) 1997, 1998 Free Software Foundation, Inc. 23142 Copyright (C) 1997, 1998, 2001, 2002, 2003, 2004, 2005, 2006
23143 Free Software Foundation, Inc.
23143 Copying and distribution of this file, with or without modification, 23144 Copying and distribution of this file, with or without modification,
23144 are permitted provided the copyright notice and this notice are preserved. 23145 are permitted provided the copyright notice and this notice are preserved.
23145 23146
diff --git a/lisp/ChangeLog.8 b/lisp/ChangeLog.8
index b59c0bd27ec..7aaaed4196f 100644
--- a/lisp/ChangeLog.8
+++ b/lisp/ChangeLog.8
@@ -10012,7 +10012,8 @@
10012 10012
10013See ChangeLog.7 for earlier changes. 10013See ChangeLog.7 for earlier changes.
10014 10014
10015 Copyright (C) 1999 Free Software Foundation, Inc. 10015 Copyright (C) 1999, 2001, 2002, 2003, 2004, 2005, 2006
10016 Free Software Foundation, Inc.
10016 Copying and distribution of this file, with or without modification, 10017 Copying and distribution of this file, with or without modification,
10017 are permitted provided the copyright notice and this notice are preserved. 10018 are permitted provided the copyright notice and this notice are preserved.
10018 10019
diff --git a/lisp/ChangeLog.9 b/lisp/ChangeLog.9
index 6bd0b347c30..78c0734ddd9 100644
--- a/lisp/ChangeLog.9
+++ b/lisp/ChangeLog.9
@@ -20695,7 +20695,8 @@ See ChangeLog.8 for earlier changes.
20695;; coding: iso-2022-7bit 20695;; coding: iso-2022-7bit
20696;; End: 20696;; End:
20697 20697
20698 Copyright (C) 2000, 2001 Free Software Foundation, Inc. 20698 Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006
20699 Free Software Foundation, Inc.
20699 Copying and distribution of this file, with or without modification, 20700 Copying and distribution of this file, with or without modification,
20700 are permitted provided the copyright notice and this notice are preserved. 20701 are permitted provided the copyright notice and this notice are preserved.
20701 20702
diff --git a/lisp/align.el b/lisp/align.el
index b49979059a3..0a0144ee65a 100644
--- a/lisp/align.el
+++ b/lisp/align.el
@@ -3,7 +3,8 @@
3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: John Wiegley <johnw@gnu.org> 6;; Author: John Wiegley <johnw@gnu.org>
7;; Maintainer: FSF
7;; Keywords: convenience languages lisp 8;; Keywords: convenience languages lisp
8 9
9;; This file is part of GNU Emacs. 10;; This file is part of GNU Emacs.
@@ -1074,7 +1075,7 @@ current position."
1074 (eq (char-before pos) ?\\)) 1075 (eq (char-before pos) ?\\))
1075 (setq count (1+ count) pos (1- pos))) 1076 (setq count (1+ count) pos (1- pos)))
1076 (eq (mod count 2) 1)) 1077 (eq (mod count 2) 1))
1077 (goto-char (match-beginning 2)))) 1078 (goto-char (match-beginning (if reverse 1 2)))))
1078 result)) 1079 result))
1079 1080
1080(defun align-new-section-p (beg end separator) 1081(defun align-new-section-p (beg end separator)
diff --git a/lisp/calc/calc-aent.el b/lisp/calc/calc-aent.el
index fe5bf4cf9e0..af1113dca76 100644
--- a/lisp/calc/calc-aent.el
+++ b/lisp/calc/calc-aent.el
@@ -232,9 +232,9 @@
232 232
233(defvar calc-eval-error nil 233(defvar calc-eval-error nil
234 "Determines how calc handles errors. 234 "Determines how calc handles errors.
235NIL means return a list containing the character position of error. 235If nil, return a list containing the character position of error.
236STRING means return error message as string rather than list. 236STRING means return error message as string rather than list.
237T means abort and give an error message.") 237The value t means abort and give an error message.")
238 238
239(defun calc-eval-error (msg) 239(defun calc-eval-error (msg)
240 (if calc-eval-error 240 (if calc-eval-error
@@ -700,10 +700,10 @@ in Calc algebraic input.")
700 (math-read-token)))))) 700 (math-read-token))))))
701 ((or (and (>= ch ?0) (<= ch ?9)) 701 ((or (and (>= ch ?0) (<= ch ?9))
702 (and (eq ch '?\.) 702 (and (eq ch '?\.)
703 (eq (string-match "\\.[0-9]" math-exp-str math-exp-pos) 703 (eq (string-match "\\.[0-9]" math-exp-str math-exp-pos)
704 math-exp-pos)) 704 math-exp-pos))
705 (and (eq ch '?_) 705 (and (eq ch '?_)
706 (eq (string-match "_\\.?[0-9]" math-exp-str math-exp-pos) 706 (eq (string-match "_\\.?[0-9]" math-exp-str math-exp-pos)
707 math-exp-pos) 707 math-exp-pos)
708 (or (eq math-exp-pos 0) 708 (or (eq math-exp-pos 0)
709 (and (memq calc-language '(nil flat big unform 709 (and (memq calc-language '(nil flat big unform
@@ -713,7 +713,7 @@ in Calc algebraic input.")
713 (1- math-exp-pos)))))) 713 (1- math-exp-pos))))))
714 (or (and (eq calc-language 'c) 714 (or (and (eq calc-language 'c)
715 (string-match "0[xX][0-9a-fA-F]+" math-exp-str math-exp-pos)) 715 (string-match "0[xX][0-9a-fA-F]+" math-exp-str math-exp-pos))
716 (string-match "_?\\([0-9]+.?0*@ *\\)?\\([0-9]+.?0*' *\\)?\\(0*\\([2-9]\\|1[0-4]\\)\\(#\\|\\^\\^\\)[0-9a-dA-D.]+[eE][-+_]?[0-9]+\\|0*\\([2-9]\\|[0-2][0-9]\\|3[0-6]\\)\\(#\\|\\^\\^\\)[0-9a-zA-Z:.]+\\|[0-9]+:[0-9:]+\\|[0-9.]+\\([eE][-+_]?[0-9]+\\)?\"?\\)?" 716 (string-match "_?\\([0-9]+.?0*@ *\\)?\\([0-9]+.?0*' *\\)?\\(0*\\([2-9]\\|1[0-4]\\)\\(#\\|\\^\\^\\)[0-9a-dA-D.]+[eE][-+_]?[0-9]+\\|0*\\([2-9]\\|[0-2][0-9]\\|3[0-6]\\)\\(#\\|\\^\\^\\)[0-9a-zA-Z:.]+\\|[0-9]+:[0-9:]+\\|[0-9.]+\\([eE][-+_]?[0-9]+\\)?\"?\\)?"
717 math-exp-str math-exp-pos)) 717 math-exp-str math-exp-pos))
718 (setq math-exp-token 'number 718 (setq math-exp-token 'number
719 math-expr-data (math-match-substring math-exp-str 0) 719 math-expr-data (math-match-substring math-exp-str 0)
@@ -751,7 +751,7 @@ in Calc algebraic input.")
751 math-expr-data (math-match-substring math-exp-str 0) 751 math-expr-data (math-match-substring math-exp-str 0)
752 math-exp-pos (match-end 0))) 752 math-exp-pos (match-end 0)))
753 ((and (eq ch ?\") 753 ((and (eq ch ?\")
754 (string-match "\\(\"\\([^\"\\]\\|\\\\.\\)*\\)\\(\"\\|\\'\\)" 754 (string-match "\\(\"\\([^\"\\]\\|\\\\.\\)*\\)\\(\"\\|\\'\\)"
755 math-exp-str math-exp-pos)) 755 math-exp-str math-exp-pos))
756 (if (eq calc-language 'eqn) 756 (if (eq calc-language 'eqn)
757 (progn 757 (progn
@@ -765,9 +765,9 @@ in Calc algebraic input.")
765 math-exp-pos (match-end 0)))) 765 math-exp-pos (match-end 0))))
766 ((and (= ch ?\\) (eq calc-language 'tex) 766 ((and (= ch ?\\) (eq calc-language 'tex)
767 (< math-exp-pos (1- (length math-exp-str)))) 767 (< math-exp-pos (1- (length math-exp-str))))
768 (or (string-match "\\\\hbox *{\\([a-zA-Z0-9]+\\)}" 768 (or (string-match "\\\\hbox *{\\([a-zA-Z0-9]+\\)}"
769 math-exp-str math-exp-pos) 769 math-exp-str math-exp-pos)
770 (string-match "\\(\\\\\\([a-zA-Z]+\\|[^a-zA-Z]\\)\\)" 770 (string-match "\\(\\\\\\([a-zA-Z]+\\|[^a-zA-Z]\\)\\)"
771 math-exp-str math-exp-pos)) 771 math-exp-str math-exp-pos))
772 (setq math-exp-token 'symbol 772 (setq math-exp-token 'symbol
773 math-exp-pos (match-end 0) 773 math-exp-pos (match-end 0)
@@ -791,11 +791,11 @@ in Calc algebraic input.")
791 (aset math-exp-str right ?\]))))))) 791 (aset math-exp-str right ?\])))))))
792 ((and (= ch ?\\) (eq calc-language 'latex) 792 ((and (= ch ?\\) (eq calc-language 'latex)
793 (< math-exp-pos (1- (length math-exp-str)))) 793 (< math-exp-pos (1- (length math-exp-str))))
794 (or (string-match "\\\\hbox *{\\([a-zA-Z0-9]+\\)}" 794 (or (string-match "\\\\hbox *{\\([a-zA-Z0-9]+\\)}"
795 math-exp-str math-exp-pos) 795 math-exp-str math-exp-pos)
796 (string-match "\\\\text *{\\([a-zA-Z0-9]+\\)}" 796 (string-match "\\\\text *{\\([a-zA-Z0-9]+\\)}"
797 math-exp-str math-exp-pos) 797 math-exp-str math-exp-pos)
798 (string-match "\\(\\\\\\([a-zA-Z]+\\|[^a-zA-Z]\\)\\)" 798 (string-match "\\(\\\\\\([a-zA-Z]+\\|[^a-zA-Z]\\)\\)"
799 math-exp-str math-exp-pos)) 799 math-exp-str math-exp-pos))
800 (setq math-exp-token 'symbol 800 (setq math-exp-token 'symbol
801 math-exp-pos (match-end 0) 801 math-exp-pos (match-end 0)
@@ -821,7 +821,7 @@ in Calc algebraic input.")
821 (string= envname "pmatrix")) 821 (string= envname "pmatrix"))
822 (if (string-match (concat "\\\\end{" envname "}") 822 (if (string-match (concat "\\\\end{" envname "}")
823 math-exp-str math-exp-pos) 823 math-exp-str math-exp-pos)
824 (setq math-exp-str 824 (setq math-exp-str
825 (replace-match "]" t t math-exp-str)) 825 (replace-match "]" t t math-exp-str))
826 (error "%s" (concat "No closing \\end{" envname "}")))))) 826 (error "%s" (concat "No closing \\end{" envname "}"))))))
827 ((and (eq (nth 1 code) 'mat) 827 ((and (eq (nth 1 code) 'mat)
@@ -852,7 +852,7 @@ in Calc algebraic input.")
852 (setq math-exp-token 'punc 852 (setq math-exp-token 'punc
853 math-expr-data (math-match-substring math-exp-str 0) 853 math-expr-data (math-match-substring math-exp-str 0)
854 math-exp-pos (match-end 0)) 854 math-exp-pos (match-end 0))
855 (and (eq (string-match "\\\\dots\\." math-exp-str math-exp-pos) 855 (and (eq (string-match "\\\\dots\\." math-exp-str math-exp-pos)
856 math-exp-pos) 856 math-exp-pos)
857 (setq math-exp-pos (match-end 0))) 857 (setq math-exp-pos (match-end 0)))
858 (if (memq (aref math-expr-data 0) '(?~ ?^)) 858 (if (memq (aref math-expr-data 0) '(?~ ?^))
diff --git a/lisp/cmuscheme.el b/lisp/cmuscheme.el
index 3a0c73f040d..d2a7217a1dc 100644
--- a/lisp/cmuscheme.el
+++ b/lisp/cmuscheme.el
@@ -269,9 +269,9 @@ is run).
269 "Return the name of the start file corresponding to PROG. 269 "Return the name of the start file corresponding to PROG.
270Search in the directories \"~\" and \"~/.emacs.d\", in this 270Search in the directories \"~\" and \"~/.emacs.d\", in this
271order. Return nil if no start file found." 271order. Return nil if no start file found."
272 (let ((progname (file-name-nondirectory prog)) 272 (let* ((progname (file-name-nondirectory prog))
273 (start-file (concat "~/.emacs_" progname)) 273 (start-file (concat "~/.emacs_" progname))
274 (alt-start-file (concat "~/.emacs.d/init_" progname ".scm"))) 274 (alt-start-file (concat "~/.emacs.d/init_" progname ".scm")))
275 (if (file-exists-p start-file) 275 (if (file-exists-p start-file)
276 start-file 276 start-file
277 (and (file-exists-p alt-start-file) alt-start-file)))) 277 (and (file-exists-p alt-start-file) alt-start-file))))
diff --git a/lisp/comint.el b/lisp/comint.el
index 191807af847..b32f129c679 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -804,8 +804,6 @@ buffer. The hook `comint-exec-hook' is run after each exec."
804 804
805(defun comint-insert-input (event) 805(defun comint-insert-input (event)
806 "In a Comint buffer, set the current input to the previous input at point." 806 "In a Comint buffer, set the current input to the previous input at point."
807 ;; This doesn't use "e" because it is supposed to work
808 ;; for events without parameters.
809 (interactive "e") 807 (interactive "e")
810 (mouse-set-point event) 808 (mouse-set-point event)
811 (let ((pos (point))) 809 (let ((pos (point)))
diff --git a/lisp/composite.el b/lisp/composite.el
index b6626ecc8dd..c59e3f792e1 100644
--- a/lisp/composite.el
+++ b/lisp/composite.el
@@ -1,6 +1,6 @@
1;;; composite.el --- support character composition 1;;; composite.el --- support character composition
2 2
3;; Copyright (C) 1999, 2000 3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
4;; National Institute of Advanced Industrial Science and Technology (AIST) 4;; National Institute of Advanced Industrial Science and Technology (AIST)
5;; Registration Number H14PRO021 5;; Registration Number H14PRO021
6 6
diff --git a/lisp/ediff-merg.el b/lisp/ediff-merg.el
index 92f462c0181..2dba9e4116b 100644
--- a/lisp/ediff-merg.el
+++ b/lisp/ediff-merg.el
@@ -62,7 +62,7 @@ Valid values are the symbols `default-A', `default-B', and `combined'."
62 '("<<<<<<< variant A" A ">>>>>>> variant B" B "####### Ancestor" Ancestor "======= end") 62 '("<<<<<<< variant A" A ">>>>>>> variant B" B "####### Ancestor" Ancestor "======= end")
63 "*Pattern to be used for combining difference regions in buffers A and B. 63 "*Pattern to be used for combining difference regions in buffers A and B.
64The value must be a list of the form 64The value must be a list of the form
65(STRING1 bufspec1 STRING2 bufspec2 STRING3 bufspec3 STRING4) 65\(STRING1 bufspec1 STRING2 bufspec2 STRING3 bufspec3 STRING4)
66where bufspec is the symbol A, B, or Ancestor. For instance, if the value is 66where bufspec is the symbol A, B, or Ancestor. For instance, if the value is
67'(STRING1 A STRING2 Ancestor STRING3 B STRING4) then the 67'(STRING1 A STRING2 Ancestor STRING3 B STRING4) then the
68combined text will look like this: 68combined text will look like this:
@@ -82,7 +82,7 @@ STRING4
82(defcustom ediff-show-clashes-only nil 82(defcustom ediff-show-clashes-only nil
83 "*If t, show only those diff regions where both buffers disagree with the ancestor. 83 "*If t, show only those diff regions where both buffers disagree with the ancestor.
84This means that regions that have status prefer-A or prefer-B will be 84This means that regions that have status prefer-A or prefer-B will be
85skipped over. nil means show all regions." 85skipped over. A value of nil means show all regions."
86 :type 'boolean 86 :type 'boolean
87 :group 'ediff-merge 87 :group 'ediff-merge
88 ) 88 )
diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el
index 5aa8bbd14cc..f6037c065fe 100644
--- a/lisp/emacs-lisp/advice.el
+++ b/lisp/emacs-lisp/advice.el
@@ -1,6 +1,6 @@
1;;; advice.el --- an overloading mechanism for Emacs Lisp functions 1;;; advice.el --- an overloading mechanism for Emacs Lisp functions
2 2
3;; Copyright (C) 1993, 1994, 2000, 2001, 2004, 3;; Copyright (C) 1993, 1994, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Hans Chalupsky <hans@cs.buffalo.edu> 6;; Author: Hans Chalupsky <hans@cs.buffalo.edu>
diff --git a/lisp/emacs-lisp/assoc.el b/lisp/emacs-lisp/assoc.el
index f3d0b9efc9b..1d710cceb48 100644
--- a/lisp/emacs-lisp/assoc.el
+++ b/lisp/emacs-lisp/assoc.el
@@ -1,6 +1,6 @@
1;;; assoc.el --- insert/delete/sort functions on association lists 1;;; assoc.el --- insert/delete/sort functions on association lists
2 2
3;; Copyright (C) 1996, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1996, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Author: Barry A. Warsaw <bwarsaw@cen.com> 6;; Author: Barry A. Warsaw <bwarsaw@cen.com>
diff --git a/lisp/emacs-lisp/authors.el b/lisp/emacs-lisp/authors.el
index 3c2d937624e..b9afebcb3ef 100644
--- a/lisp/emacs-lisp/authors.el
+++ b/lisp/emacs-lisp/authors.el
@@ -1,6 +1,6 @@
1;;; authors.el --- utility for maintaining Emacs' AUTHORS file -*-coding: iso-2022-7bit;-*- 1;;; authors.el --- utility for maintaining Emacs' AUTHORS file -*-coding: iso-2022-7bit;-*-
2 2
3;; Copyright (C) 2000, 2002, 2003, 2004, 2005, 3;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Author: Gerd Moellmann <gerd@gnu.org> 6;; Author: Gerd Moellmann <gerd@gnu.org>
diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el
index ba68b842305..9c6da5f7b3c 100644
--- a/lisp/emacs-lisp/byte-run.el
+++ b/lisp/emacs-lisp/byte-run.el
@@ -1,6 +1,6 @@
1;;; byte-run.el --- byte-compiler support for inlining 1;;; byte-run.el --- byte-compiler support for inlining
2 2
3;; Copyright (C) 1992, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1992, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Author: Jamie Zawinski <jwz@lucid.com> 6;; Author: Jamie Zawinski <jwz@lucid.com>
diff --git a/lisp/emacs-lisp/cl-compat.el b/lisp/emacs-lisp/cl-compat.el
index 34f9642fe1f..8b2c786ca04 100644
--- a/lisp/emacs-lisp/cl-compat.el
+++ b/lisp/emacs-lisp/cl-compat.el
@@ -1,6 +1,6 @@
1;;; cl-compat.el --- Common Lisp extensions for GNU Emacs Lisp (compatibility) 1;;; cl-compat.el --- Common Lisp extensions for GNU Emacs Lisp (compatibility)
2 2
3;; Copyright (C) 1993, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1993, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Author: Dave Gillespie <daveg@synaptics.com> 6;; Author: Dave Gillespie <daveg@synaptics.com>
diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el
index 2e741408c04..55c95b655d4 100644
--- a/lisp/emacs-lisp/cl-extra.el
+++ b/lisp/emacs-lisp/cl-extra.el
@@ -1,6 +1,6 @@
1;;; cl-extra.el --- Common Lisp features, part 2 -*-byte-compile-dynamic: t;-*- 1;;; cl-extra.el --- Common Lisp features, part 2 -*-byte-compile-dynamic: t;-*-
2 2
3;; Copyright (C) 1993, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1993, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Dave Gillespie <daveg@synaptics.com> 6;; Author: Dave Gillespie <daveg@synaptics.com>
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index ab3bfeccfb3..915bde800ee 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -1,6 +1,7 @@
1;;; cl-macs.el --- Common Lisp macros -*-byte-compile-dynamic: t;-*- 1;;; cl-macs.el --- Common Lisp macros -*-byte-compile-dynamic: t;-*-
2 2
3;; Copyright (C) 1993, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. 3;; Copyright (C) 1993, 2001, 2002, 2003, 2004, 2005, 2006
4;; Free Software Foundation, Inc.
4 5
5;; Author: Dave Gillespie <daveg@synaptics.com> 6;; Author: Dave Gillespie <daveg@synaptics.com>
6;; Version: 2.02 7;; Version: 2.02
@@ -2291,10 +2292,15 @@ copier, a `NAME-p' predicate, and setf-able `NAME-SLOT' accessors.
2291 (if (cadr (memq :read-only (cddr desc))) 2292 (if (cadr (memq :read-only (cddr desc)))
2292 (list 'error (format "%s is a read-only slot" 2293 (list 'error (format "%s is a read-only slot"
2293 accessor)) 2294 accessor))
2294 (list 'cl-struct-setf-expander 'cl-x 2295 ;; If cl is loaded only for compilation,
2295 (list 'quote name) (list 'quote accessor) 2296 ;; the call to cl-struct-setf-expander would
2296 (and pred-check (list 'quote pred-check)) 2297 ;; cause a warning because it may not be
2297 pos))) 2298 ;; defined at run time. Suppress that warning.
2299 (list 'with-no-warnings
2300 (list 'cl-struct-setf-expander 'cl-x
2301 (list 'quote name) (list 'quote accessor)
2302 (and pred-check (list 'quote pred-check))
2303 pos))))
2298 forms) 2304 forms)
2299 (if print-auto 2305 (if print-auto
2300 (nconc print-func 2306 (nconc print-func
diff --git a/lisp/emacs-lisp/cl-seq.el b/lisp/emacs-lisp/cl-seq.el
index 6b14acd23df..11609d8a4ca 100644
--- a/lisp/emacs-lisp/cl-seq.el
+++ b/lisp/emacs-lisp/cl-seq.el
@@ -1,6 +1,6 @@
1;;; cl-seq.el --- Common Lisp features, part 3 -*-byte-compile-dynamic: t;-*- 1;;; cl-seq.el --- Common Lisp features, part 3 -*-byte-compile-dynamic: t;-*-
2 2
3;; Copyright (C) 1993, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1993, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Author: Dave Gillespie <daveg@synaptics.com> 6;; Author: Dave Gillespie <daveg@synaptics.com>
diff --git a/lisp/emacs-lisp/cl-specs.el b/lisp/emacs-lisp/cl-specs.el
index 9d3f1f63061..644d0736d84 100644
--- a/lisp/emacs-lisp/cl-specs.el
+++ b/lisp/emacs-lisp/cl-specs.el
@@ -1,6 +1,6 @@
1;;; cl-specs.el --- Edebug specs for cl.el -*- no-byte-compile: t -*- 1;;; cl-specs.el --- Edebug specs for cl.el -*- no-byte-compile: t -*-
2 2
3;; Copyright (C) 1993, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1993, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5;; Author: Daniel LaLiberte <liberte@holonexus.org> 5;; Author: Daniel LaLiberte <liberte@holonexus.org>
6;; Keywords: lisp, tools, maint 6;; Keywords: lisp, tools, maint
diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el
index d2d68189230..0c9091e2128 100644
--- a/lisp/emacs-lisp/cl.el
+++ b/lisp/emacs-lisp/cl.el
@@ -1,6 +1,6 @@
1;;; cl.el --- Common Lisp extensions for Emacs -*-byte-compile-dynamic: t;-*- 1;;; cl.el --- Common Lisp extensions for Emacs -*-byte-compile-dynamic: t;-*-
2 2
3;; Copyright (C) 1993, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1993, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Author: Dave Gillespie <daveg@synaptics.com> 6;; Author: Dave Gillespie <daveg@synaptics.com>
diff --git a/lisp/emacs-lisp/crm.el b/lisp/emacs-lisp/crm.el
index 11d4d7fb2ba..6fd98583ccc 100644
--- a/lisp/emacs-lisp/crm.el
+++ b/lisp/emacs-lisp/crm.el
@@ -1,7 +1,7 @@
1;;; crm.el --- read multiple strings with completion 1;;; crm.el --- read multiple strings with completion
2 2
3;; Copyright (C) 1985, 1986, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 3;; Copyright (C) 1985, 1986, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
4;; 2000, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. 4;; 2000, 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Sen Nagata <sen@eccosys.com> 6;; Author: Sen Nagata <sen@eccosys.com>
7;; Keywords: completion, minibuffer, multiple elements 7;; Keywords: completion, minibuffer, multiple elements
diff --git a/lisp/emacs-lisp/cust-print.el b/lisp/emacs-lisp/cust-print.el
index f37a5348552..c38702c38f6 100644
--- a/lisp/emacs-lisp/cust-print.el
+++ b/lisp/emacs-lisp/cust-print.el
@@ -1,6 +1,6 @@
1;;; cust-print.el --- handles print-level and print-circle 1;;; cust-print.el --- handles print-level and print-circle
2 2
3;; Copyright (C) 1992, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1992, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Author: Daniel LaLiberte <liberte@holonexus.org> 6;; Author: Daniel LaLiberte <liberte@holonexus.org>
diff --git a/lisp/emacs-lisp/derived.el b/lisp/emacs-lisp/derived.el
index 10482bd49c4..8bb4e5f7643 100644
--- a/lisp/emacs-lisp/derived.el
+++ b/lisp/emacs-lisp/derived.el
@@ -1,7 +1,7 @@
1;;; derived.el --- allow inheritance of major modes 1;;; derived.el --- allow inheritance of major modes
2;; (formerly mode-clone.el) 2;; (formerly mode-clone.el)
3 3
4;; Copyright (C) 1993, 1994, 1999, 2002, 2003, 2004, 4;; Copyright (C) 1993, 1994, 1999, 2001, 2002, 2003, 2004,
5;; 2005, 2006 Free Software Foundation, Inc. 5;; 2005, 2006 Free Software Foundation, Inc.
6 6
7;; Author: David Megginson (dmeggins@aix1.uottawa.ca) 7;; Author: David Megginson (dmeggins@aix1.uottawa.ca)
diff --git a/lisp/emacs-lisp/easymenu.el b/lisp/emacs-lisp/easymenu.el
index 92f5251a8b1..a2153beebd9 100644
--- a/lisp/emacs-lisp/easymenu.el
+++ b/lisp/emacs-lisp/easymenu.el
@@ -1,7 +1,7 @@
1;;; easymenu.el --- support the easymenu interface for defining a menu 1;;; easymenu.el --- support the easymenu interface for defining a menu
2 2
3;; Copyright (C) 1994, 1996, 1998, 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1994, 1996, 1998, 1999, 2000, 2001, 2002, 2003,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2004, 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Keywords: emulations 6;; Keywords: emulations
7;; Author: Richard Stallman <rms@gnu.org> 7;; Author: Richard Stallman <rms@gnu.org>
diff --git a/lisp/emacs-lisp/eldoc.el b/lisp/emacs-lisp/eldoc.el
index 98d778f1507..3bf34279b79 100644
--- a/lisp/emacs-lisp/eldoc.el
+++ b/lisp/emacs-lisp/eldoc.el
@@ -1,6 +1,6 @@
1;;; eldoc.el --- show function arglist or variable docstring in echo area 1;;; eldoc.el --- show function arglist or variable docstring in echo area
2 2
3;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Noah Friedman <friedman@splode.com> 6;; Author: Noah Friedman <friedman@splode.com>
diff --git a/lisp/emacs-lisp/elint.el b/lisp/emacs-lisp/elint.el
index 85c0026e801..124817427d6 100644
--- a/lisp/emacs-lisp/elint.el
+++ b/lisp/emacs-lisp/elint.el
@@ -1,6 +1,6 @@
1;;; elint.el --- Lint Emacs Lisp 1;;; elint.el --- Lint Emacs Lisp
2 2
3;; Copyright (C) 1997, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1997, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Author: Peter Liljenberg <petli@lysator.liu.se> 6;; Author: Peter Liljenberg <petli@lysator.liu.se>
diff --git a/lisp/emacs-lisp/ewoc.el b/lisp/emacs-lisp/ewoc.el
index b4857f4310d..0ffaf564ba4 100644
--- a/lisp/emacs-lisp/ewoc.el
+++ b/lisp/emacs-lisp/ewoc.el
@@ -1,7 +1,7 @@
1;;; ewoc.el --- utility to maintain a view of a list of objects in a buffer 1;;; ewoc.el --- utility to maintain a view of a list of objects in a buffer
2 2
3;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 3;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
4;; 2000, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. 4;; 2000, 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Per Cederqvist <ceder@lysator.liu.se> 6;; Author: Per Cederqvist <ceder@lysator.liu.se>
7;; Inge Wallin <inge@lysator.liu.se> 7;; Inge Wallin <inge@lysator.liu.se>
diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el
index a51493d22ea..35ba803d78e 100644
--- a/lisp/emacs-lisp/find-func.el
+++ b/lisp/emacs-lisp/find-func.el
@@ -397,7 +397,7 @@ The library where VARIABLE is defined is searched for in FILE or
397 397
398;;;###autoload 398;;;###autoload
399(defun find-variable (variable) 399(defun find-variable (variable)
400 "Find the definition of the VARIABLE near point. 400 "Find the definition of the VARIABLE at or before point.
401 401
402Finds the library containing the definition of the variable 402Finds the library containing the definition of the variable
403near point (selected by `variable-at-point') in a buffer and 403near point (selected by `variable-at-point') in a buffer and
diff --git a/lisp/emacs-lisp/find-gc.el b/lisp/emacs-lisp/find-gc.el
index dedadfa8c36..482a72eece2 100644
--- a/lisp/emacs-lisp/find-gc.el
+++ b/lisp/emacs-lisp/find-gc.el
@@ -1,6 +1,6 @@
1;;; find-gc.el --- detect functions that call the garbage collector 1;;; find-gc.el --- detect functions that call the garbage collector
2 2
3;; Copyright (C) 1992, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1992, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Maintainer: FSF 6;; Maintainer: FSF
diff --git a/lisp/emacs-lisp/float-sup.el b/lisp/emacs-lisp/float-sup.el
index fb367d1cac4..dc630e72c92 100644
--- a/lisp/emacs-lisp/float-sup.el
+++ b/lisp/emacs-lisp/float-sup.el
@@ -1,6 +1,6 @@
1;;; float-sup.el --- define some constants useful for floating point numbers. 1;;; float-sup.el --- define some constants useful for floating point numbers.
2 2
3;; Copyright (C) 1985, 1986, 1987, 2002, 2003, 2004, 3;; Copyright (C) 1985, 1986, 1987, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Maintainer: FSF 6;; Maintainer: FSF
diff --git a/lisp/emacs-lisp/generic.el b/lisp/emacs-lisp/generic.el
index e52072e9db1..0f38c4c54c6 100644
--- a/lisp/emacs-lisp/generic.el
+++ b/lisp/emacs-lisp/generic.el
@@ -1,6 +1,6 @@
1;;; generic.el --- defining simple major modes with comment and font-lock 1;;; generic.el --- defining simple major modes with comment and font-lock
2;; 2;;
3;; Copyright (C) 1997, 1999, 2002, 2003, 2004, 3;; Copyright (C) 1997, 1999, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5;; 5;;
6;; Author: Peter Breton <pbreton@cs.umb.edu> 6;; Author: Peter Breton <pbreton@cs.umb.edu>
diff --git a/lisp/emacs-lisp/gulp.el b/lisp/emacs-lisp/gulp.el
index d6b963a7e3d..6fc2dba9273 100644
--- a/lisp/emacs-lisp/gulp.el
+++ b/lisp/emacs-lisp/gulp.el
@@ -1,6 +1,6 @@
1;;; gulp.el --- ask for updates for Lisp packages 1;;; gulp.el --- ask for updates for Lisp packages
2 2
3;; Copyright (C) 1996, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1996, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Author: Sam Shteingold <shteingd@math.ucla.edu> 6;; Author: Sam Shteingold <shteingd@math.ucla.edu>
diff --git a/lisp/emacs-lisp/helper.el b/lisp/emacs-lisp/helper.el
index 92eb86ce676..a7cf792a4ba 100644
--- a/lisp/emacs-lisp/helper.el
+++ b/lisp/emacs-lisp/helper.el
@@ -1,6 +1,6 @@
1;;; helper.el --- utility help package supporting help in electric modes 1;;; helper.el --- utility help package supporting help in electric modes
2 2
3;; Copyright (C) 1985, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1985, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Author: K. Shane Hartman 6;; Author: K. Shane Hartman
diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el
index 6bc7da7ba28..6e06e4a067b 100644
--- a/lisp/emacs-lisp/lisp.el
+++ b/lisp/emacs-lisp/lisp.el
@@ -1,6 +1,6 @@
1;;; lisp.el --- Lisp editing commands for Emacs 1;;; lisp.el --- Lisp editing commands for Emacs
2 2
3;; Copyright (C) 1985, 1986, 1994, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1985, 1986, 1994, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Maintainer: FSF 6;; Maintainer: FSF
diff --git a/lisp/emacs-lisp/lmenu.el b/lisp/emacs-lisp/lmenu.el
index aa87b7fed09..0f6904356ae 100644
--- a/lisp/emacs-lisp/lmenu.el
+++ b/lisp/emacs-lisp/lmenu.el
@@ -1,6 +1,6 @@
1;;; lmenu.el --- emulate Lucid's menubar support 1;;; lmenu.el --- emulate Lucid's menubar support
2 2
3;; Copyright (C) 1992, 1993, 1994, 1997, 2002, 2003, 2004, 3;; Copyright (C) 1992, 1993, 1994, 1997, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Keywords: emulations obsolete 6;; Keywords: emulations obsolete
diff --git a/lisp/emacs-lisp/lselect.el b/lisp/emacs-lisp/lselect.el
index 5aed4822818..8b18d1a1123 100644
--- a/lisp/emacs-lisp/lselect.el
+++ b/lisp/emacs-lisp/lselect.el
@@ -1,6 +1,6 @@
1;;; lselect.el --- Lucid interface to X Selections 1;;; lselect.el --- Lucid interface to X Selections
2 2
3;; Copyright (C) 1990, 1993, 2002, 2003, 2004, 3;; Copyright (C) 1990, 1993, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Maintainer: FSF 6;; Maintainer: FSF
diff --git a/lisp/emacs-lisp/map-ynp.el b/lisp/emacs-lisp/map-ynp.el
index dc966a75cd6..7b2dac6cd45 100644
--- a/lisp/emacs-lisp/map-ynp.el
+++ b/lisp/emacs-lisp/map-ynp.el
@@ -1,6 +1,6 @@
1;;; map-ynp.el --- general-purpose boolean question-asker 1;;; map-ynp.el --- general-purpose boolean question-asker
2 2
3;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 2000, 2002, 2003, 3;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 2000, 2001, 2002, 2003,
4;; 2004, 2005, 2006 Free Software Foundation, Inc. 4;; 2004, 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Roland McGrath <roland@gnu.org> 6;; Author: Roland McGrath <roland@gnu.org>
diff --git a/lisp/emacs-lisp/regexp-opt.el b/lisp/emacs-lisp/regexp-opt.el
index ab242af3ac3..2832dd1cbf0 100644
--- a/lisp/emacs-lisp/regexp-opt.el
+++ b/lisp/emacs-lisp/regexp-opt.el
@@ -1,6 +1,6 @@
1;;; regexp-opt.el --- generate efficient regexps to match strings 1;;; regexp-opt.el --- generate efficient regexps to match strings
2 2
3;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2002, 3;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
4;; 2003, 2004, 2005, 2006 Free Software Foundation, Inc. 4;; 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Simon Marshall <simon@gnu.org> 6;; Author: Simon Marshall <simon@gnu.org>
diff --git a/lisp/emacs-lisp/regi.el b/lisp/emacs-lisp/regi.el
index 06ed2880ee1..bc6c9983b19 100644
--- a/lisp/emacs-lisp/regi.el
+++ b/lisp/emacs-lisp/regi.el
@@ -1,6 +1,6 @@
1;;; regi.el --- REGular expression Interpreting engine 1;;; regi.el --- REGular expression Interpreting engine
2 2
3;; Copyright (C) 1993, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1993, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Author: 1993 Barry A. Warsaw, Century Computing, Inc. <bwarsaw@cen.com> 6;; Author: 1993 Barry A. Warsaw, Century Computing, Inc. <bwarsaw@cen.com>
diff --git a/lisp/emacs-lisp/ring.el b/lisp/emacs-lisp/ring.el
index c5391f94b05..f775513e961 100644
--- a/lisp/emacs-lisp/ring.el
+++ b/lisp/emacs-lisp/ring.el
@@ -1,6 +1,6 @@
1;;; ring.el --- handle rings of items 1;;; ring.el --- handle rings of items
2 2
3;; Copyright (C) 1992, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1992, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Maintainer: FSF 6;; Maintainer: FSF
diff --git a/lisp/emacs-lisp/shadow.el b/lisp/emacs-lisp/shadow.el
index 7162aa822b7..98f3e30f10e 100644
--- a/lisp/emacs-lisp/shadow.el
+++ b/lisp/emacs-lisp/shadow.el
@@ -1,6 +1,6 @@
1;;; shadow.el --- locate Emacs Lisp file shadowings 1;;; shadow.el --- locate Emacs Lisp file shadowings
2 2
3;; Copyright (C) 1995, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1995, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Author: Terry Jones <terry@santafe.edu> 6;; Author: Terry Jones <terry@santafe.edu>
diff --git a/lisp/emacs-lisp/sregex.el b/lisp/emacs-lisp/sregex.el
index 23145bccc36..5d37eb99859 100644
--- a/lisp/emacs-lisp/sregex.el
+++ b/lisp/emacs-lisp/sregex.el
@@ -1,6 +1,6 @@
1;;; sregex.el --- symbolic regular expressions 1;;; sregex.el --- symbolic regular expressions
2 2
3;; Copyright (C) 1997, 1998, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1997, 1998, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Bob Glickstein <bobg+sregex@zanshin.com> 6;; Author: Bob Glickstein <bobg+sregex@zanshin.com>
diff --git a/lisp/emacs-lisp/syntax.el b/lisp/emacs-lisp/syntax.el
index 695d7877b38..f290db42c04 100644
--- a/lisp/emacs-lisp/syntax.el
+++ b/lisp/emacs-lisp/syntax.el
@@ -52,6 +52,14 @@
52(defsubst syntax-ppss-depth (ppss) 52(defsubst syntax-ppss-depth (ppss)
53 (nth 0 ppss)) 53 (nth 0 ppss))
54 54
55(defun syntax-ppss-toplevel-pos (ppss)
56 "Return the last preceding position at toplevel.
57\"At toplevel\" means that it is outside of any syntactic entity:
58outside of any parentheses, or comments, or strings.
59Returns nil iff PPSS itself corresponds to a toplevel position."
60 (or (car (nth 9 ppss))
61 (nth 8 ppss)))
62
55(defsubst syntax-ppss-context (ppss) 63(defsubst syntax-ppss-context (ppss)
56 (cond 64 (cond
57 ((nth 3 ppss) 'string) 65 ((nth 3 ppss) 'string)
diff --git a/lisp/emacs-lisp/timer.el b/lisp/emacs-lisp/timer.el
index 0c66a207351..4ad4dac1d58 100644
--- a/lisp/emacs-lisp/timer.el
+++ b/lisp/emacs-lisp/timer.el
@@ -1,6 +1,6 @@
1;;; timer.el --- run a function with args at some time in future 1;;; timer.el --- run a function with args at some time in future
2 2
3;; Copyright (C) 1996, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1996, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Maintainer: FSF 6;; Maintainer: FSF
diff --git a/lisp/emacs-lisp/tq.el b/lisp/emacs-lisp/tq.el
index 1e1e143f0f0..7c4303b5b79 100644
--- a/lisp/emacs-lisp/tq.el
+++ b/lisp/emacs-lisp/tq.el
@@ -1,6 +1,6 @@
1;;; tq.el --- utility to maintain a transaction queue 1;;; tq.el --- utility to maintain a transaction queue
2 2
3;; Copyright (C) 1985, 1986, 1987, 1992, 2002, 2003, 2004, 3;; Copyright (C) 1985, 1986, 1987, 1992, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Scott Draves <spot@cs.cmu.edu> 6;; Author: Scott Draves <spot@cs.cmu.edu>
diff --git a/lisp/emacs-lisp/trace.el b/lisp/emacs-lisp/trace.el
index 191be58c0b5..5250a34b3fd 100644
--- a/lisp/emacs-lisp/trace.el
+++ b/lisp/emacs-lisp/trace.el
@@ -1,6 +1,6 @@
1;;; trace.el --- tracing facility for Emacs Lisp functions 1;;; trace.el --- tracing facility for Emacs Lisp functions
2 2
3;; Copyright (C) 1993, 1998, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1993, 1998, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Hans Chalupsky <hans@cs.buffalo.edu> 6;; Author: Hans Chalupsky <hans@cs.buffalo.edu>
diff --git a/lisp/emulation/crisp.el b/lisp/emulation/crisp.el
index 361d1b98d3b..0d629d69235 100644
--- a/lisp/emulation/crisp.el
+++ b/lisp/emulation/crisp.el
@@ -1,6 +1,6 @@
1;;; crisp.el --- CRiSP/Brief Emacs emulator 1;;; crisp.el --- CRiSP/Brief Emacs emulator
2 2
3;; Copyright (C) 1997, 1998, 1999, 2002, 2003, 2004, 3;; Copyright (C) 1997, 1998, 1999, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Gary D. Foster <Gary.Foster@Corp.Sun.COM> 6;; Author: Gary D. Foster <Gary.Foster@Corp.Sun.COM>
diff --git a/lisp/emulation/edt-lk201.el b/lisp/emulation/edt-lk201.el
index 17308c132e0..f7bca958b72 100644
--- a/lisp/emulation/edt-lk201.el
+++ b/lisp/emulation/edt-lk201.el
@@ -1,10 +1,10 @@
1;;; edt-lk201.el --- enhanced EDT keypad mode emulation for LK-201 keyboards 1;;; edt-lk201.el --- enhanced EDT keypad mode emulation for LK-201 keyboards
2 2
3;; Copyright (C) 1986, 1992, 1993, 1995, 2002, 2003, 2004, 3;; Copyright (C) 1986, 1992, 1993, 1995, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Kevin Gallagher <kevingal@onramp.net> 6;; Author: Kevin Gallagher <Kevin.Gallagher@boeing.com>
7;; Maintainer: Kevin Gallagher <kevingal@onramp.net> 7;; Maintainer: Kevin Gallagher <Kevin.Gallagher@boeing.com>
8;; Keywords: emulations 8;; Keywords: emulations
9 9
10;; This file is part of GNU Emacs. 10;; This file is part of GNU Emacs.
diff --git a/lisp/emulation/edt-mapper.el b/lisp/emulation/edt-mapper.el
index cee60c6ec8e..53bb8e63d33 100644
--- a/lisp/emulation/edt-mapper.el
+++ b/lisp/emulation/edt-mapper.el
@@ -3,8 +3,8 @@
3;; Copyright (C) 1994, 1995, 2000, 2001, 2002, 2003, 2004, 3;; Copyright (C) 1994, 1995, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Kevin Gallagher <kevingal@onramp.net> 6;; Author: Kevin Gallagher <Kevin.Gallagher@boeing.com>
7;; Maintainer: Kevin Gallagher <kevingal@onramp.net> 7;; Maintainer: Kevin Gallagher <Kevin.Gallagher@boeing.com>
8;; Keywords: emulations 8;; Keywords: emulations
9 9
10;; This file is part of GNU Emacs. 10;; This file is part of GNU Emacs.
@@ -129,8 +129,12 @@
129 129
130(defconst edt-xserver (if (eq edt-window-system 'x) 130(defconst edt-xserver (if (eq edt-window-system 'x)
131 (if edt-x-emacs-p 131 (if edt-x-emacs-p
132 (replace-in-string (x-server-vendor) "[ _]" "-") 132 ;; The Cygwin window manager has a `/' in its
133 (subst-char-in-string ? ?- (x-server-vendor))) 133 ;; name, which breaks the generated file name of
134 ;; the custom key map file. Replace `/' with a
135 ;; `-' to work around that.
136 (replace-in-string (x-server-vendor) "[ /]" "-")
137 (subst-char-in-string ?/ ?- (subst-char-in-string ? ?- (x-server-vendor))))
134 nil) 138 nil)
135 "Indicates X server vendor name, if applicable.") 139 "Indicates X server vendor name, if applicable.")
136 140
diff --git a/lisp/emulation/edt-pc.el b/lisp/emulation/edt-pc.el
index 6f393197281..1282e940d9c 100644
--- a/lisp/emulation/edt-pc.el
+++ b/lisp/emulation/edt-pc.el
@@ -1,10 +1,10 @@
1;;; edt-pc.el --- enhanced EDT keypad mode emulation for PC 101 keyboards 1;;; edt-pc.el --- enhanced EDT keypad mode emulation for PC 101 keyboards
2 2
3;; Copyright (C) 1986, 1994, 1995, 2002, 2003, 2004, 3;; Copyright (C) 1986, 1994, 1995, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Kevin Gallagher <kevingal@onramp.net> 6;; Author: Kevin Gallagher <Kevin.Gallagher@boeing.com>
7;; Maintainer: Kevin Gallagher <kevingal@onramp.net> 7;; Maintainer: Kevin Gallagher <Kevin.Gallagher@boeing.com>
8;; Keywords: emulations 8;; Keywords: emulations
9 9
10;; This file is part of GNU Emacs. 10;; This file is part of GNU Emacs.
diff --git a/lisp/emulation/edt-vt100.el b/lisp/emulation/edt-vt100.el
index b4599cdb2cd..cd3e03885eb 100644
--- a/lisp/emulation/edt-vt100.el
+++ b/lisp/emulation/edt-vt100.el
@@ -3,8 +3,8 @@
3;; Copyright (C) 1986, 1992, 1993, 1995, 2002, 2003, 2004, 3;; Copyright (C) 1986, 1992, 1993, 1995, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Kevin Gallagher <kevingal@onramp.net> 6;; Author: Kevin Gallagher <Kevin.Gallagher@boeing.com>
7;; Maintainer: Kevin Gallagher <kevingal@onramp.net> 7;; Maintainer: Kevin Gallagher <Kevin.Gallagher@boeing.com>
8;; Keywords: emulations 8;; Keywords: emulations
9 9
10;; This file is part of GNU Emacs. 10;; This file is part of GNU Emacs.
diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el
index ae131dc50e9..89d017a1cad 100644
--- a/lisp/emulation/edt.el
+++ b/lisp/emulation/edt.el
@@ -3,8 +3,8 @@
3;; Copyright (C) 1986, 1992, 1993, 1994, 1995, 2000, 2001, 2002, 2003, 3;; Copyright (C) 1986, 1992, 1993, 1994, 1995, 2000, 2001, 2002, 2003,
4;; 2004, 2005, 2006 Free Software Foundation, Inc. 4;; 2004, 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Kevin Gallagher <kevingal@onramp.net> 6;; Author: Kevin Gallagher <Kevin.Gallagher@boeing.com>
7;; Maintainer: Kevin Gallagher <kevingal@onramp.net> 7;; Maintainer: Kevin Gallagher <Kevin.Gallagher@boeing.com>
8;; Keywords: emulations 8;; Keywords: emulations
9 9
10;; This file is part of GNU Emacs. 10;; This file is part of GNU Emacs.
@@ -339,8 +339,12 @@ This means that an edt-user.el file was found in the user's `load-path'.")
339 339
340(defconst edt-xserver (if (eq edt-window-system 'x) 340(defconst edt-xserver (if (eq edt-window-system 'x)
341 (if edt-x-emacs19-p 341 (if edt-x-emacs19-p
342 (replace-in-string (x-server-vendor) "[ _]" "-") 342 ;; The Cygwin window manager has a `/' in its
343 (subst-char-in-string ? ?- (x-server-vendor))) 343 ;; name, which breaks the generated file name of
344 ;; the custom key map file. Replace `/' with a
345 ;; `-' to work around that.
346 (replace-in-string (x-server-vendor) "[ /]" "-")
347 (subst-char-in-string ?/ ?- (subst-char-in-string ? ?- (x-server-vendor))))
344 nil) 348 nil)
345 "Indicates X server vendor name, if applicable.") 349 "Indicates X server vendor name, if applicable.")
346 350
diff --git a/lisp/emulation/pc-mode.el b/lisp/emulation/pc-mode.el
index e2b0d36f0f4..af632694bd0 100644
--- a/lisp/emulation/pc-mode.el
+++ b/lisp/emulation/pc-mode.el
@@ -1,6 +1,6 @@
1;;; pc-mode.el --- emulate certain key bindings used on PCs 1;;; pc-mode.el --- emulate certain key bindings used on PCs
2 2
3;; Copyright (C) 1995, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1995, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Maintainer: FSF 6;; Maintainer: FSF
diff --git a/lisp/emulation/tpu-edt.el b/lisp/emulation/tpu-edt.el
index 5d90728898a..b848f45d7d8 100644
--- a/lisp/emulation/tpu-edt.el
+++ b/lisp/emulation/tpu-edt.el
@@ -1,6 +1,6 @@
1;;; tpu-edt.el --- Emacs emulating TPU emulating EDT 1;;; tpu-edt.el --- Emacs emulating TPU emulating EDT
2 2
3;; Copyright (C) 1993, 1994, 1995, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1993, 1994, 1995, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Rob Riepel <riepel@networking.stanford.edu> 6;; Author: Rob Riepel <riepel@networking.stanford.edu>
diff --git a/lisp/emulation/tpu-extras.el b/lisp/emulation/tpu-extras.el
index 2aed6f464d5..2a84e5ff7d5 100644
--- a/lisp/emulation/tpu-extras.el
+++ b/lisp/emulation/tpu-extras.el
@@ -1,6 +1,6 @@
1;;; tpu-extras.el --- scroll margins and free cursor mode for TPU-edt 1;;; tpu-extras.el --- scroll margins and free cursor mode for TPU-edt
2 2
3;; Copyright (C) 1993, 1994, 1995, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1993, 1994, 1995, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Rob Riepel <riepel@networking.stanford.edu> 6;; Author: Rob Riepel <riepel@networking.stanford.edu>
diff --git a/lisp/emulation/tpu-mapper.el b/lisp/emulation/tpu-mapper.el
index eb71542e811..349a03fc8eb 100644
--- a/lisp/emulation/tpu-mapper.el
+++ b/lisp/emulation/tpu-mapper.el
@@ -1,6 +1,6 @@
1;;; tpu-mapper.el --- create a TPU-edt X-windows keymap file 1;;; tpu-mapper.el --- create a TPU-edt X-windows keymap file
2 2
3;; Copyright (C) 1993, 1994, 1995, 2002, 2003, 2004, 3;; Copyright (C) 1993, 1994, 1995, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Rob Riepel <riepel@networking.stanford.edu> 6;; Author: Rob Riepel <riepel@networking.stanford.edu>
diff --git a/lisp/emulation/vi.el b/lisp/emulation/vi.el
index 559d1677347..54fb2d1e997 100644
--- a/lisp/emulation/vi.el
+++ b/lisp/emulation/vi.el
@@ -820,7 +820,7 @@ The given COUNT is remembered for future scrollings."
820 820
821(defun vi-char-argument (arg) 821(defun vi-char-argument (arg)
822 "Get following character (could be any CHAR) as part of the prefix argument. 822 "Get following character (could be any CHAR) as part of the prefix argument.
823Possible prefix-arg cases are NIL, INTEGER, (NIL . CHAR) or (INTEGER . CHAR)." 823Possible prefix-arg cases are nil, INTEGER, (nil . CHAR) or (INTEGER . CHAR)."
824 (interactive "P") 824 (interactive "P")
825 (let ((char (read-char))) 825 (let ((char (read-char)))
826 (cond ((null arg) (setq prefix-arg (cons nil char))) 826 (cond ((null arg) (setq prefix-arg (cons nil char)))
diff --git a/lisp/emulation/vip.el b/lisp/emulation/vip.el
index 8b5109793c0..16db3988c5b 100644
--- a/lisp/emulation/vip.el
+++ b/lisp/emulation/vip.el
@@ -1,7 +1,7 @@
1;;; vip.el --- a VI Package for GNU Emacs 1;;; vip.el --- a VI Package for GNU Emacs
2 2
3;; Copyright (C) 1986, 1987, 1988, 1992, 1993, 1998, 2002, 2003, 2004, 3;; Copyright (C) 1986, 1987, 1988, 1992, 1993, 1998, 2001, 2002, 2003,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2004, 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Masahiko Sato <ms@sail.stanford.edu> 6;; Author: Masahiko Sato <ms@sail.stanford.edu>
7;; Keywords: emulations 7;; Keywords: emulations
diff --git a/lisp/emulation/ws-mode.el b/lisp/emulation/ws-mode.el
index 0230d6e118a..a4a1575f629 100644
--- a/lisp/emulation/ws-mode.el
+++ b/lisp/emulation/ws-mode.el
@@ -1,6 +1,6 @@
1;;; ws-mode.el --- WordStar emulation mode for GNU Emacs 1;;; ws-mode.el --- WordStar emulation mode for GNU Emacs
2 2
3;; Copyright (C) 1991, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1991, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Author: Juergen Nickelsen <nickel@cs.tu-berlin.de> 6;; Author: Juergen Nickelsen <nickel@cs.tu-berlin.de>
diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog
index dfb6fc7afe8..c8c1cb56b54 100644
--- a/lisp/erc/ChangeLog
+++ b/lisp/erc/ChangeLog
@@ -1,3 +1,23 @@
12006-12-13 Leo <sdl.web@gmail.com>
2
3 * erc.el (erc-iswitchb): Temporarily enable iswitchb mode if it
4 isn't active already, instead of leaving it on.
5
62006-12-10 Juanma Barranquero <lekktu@gmail.com>
7
8 * erc-ezbounce.el (erc-ezb-init-session-list): Doc fix.
9
102006-12-08 Michael Olson <mwolson@gnu.org>
11
12 * erc.el: Re-evaluate contributions from a contributor, and found
13 them under 15 lines of non-obvious code, so it is safe to remove
14 the copyright notice.
15 (erc-modules): Remove list module.
16
17 * erc-list.el: Remove, since a contributor who has not completed
18 their assignment has contributed significantly more than 15 lines
19 of code to this file.
20
12006-11-28 Juanma Barranquero <lekktu@gmail.com> 212006-11-28 Juanma Barranquero <lekktu@gmail.com>
2 22
3 * erc.el (erc-cmd-BANLIST, erc-cmd-MASSUNBAN): Simplify. 23 * erc.el (erc-cmd-BANLIST, erc-cmd-MASSUNBAN): Simplify.
@@ -18,6 +38,11 @@
18 (erc-update-current-channel-member, erc-load-script): 38 (erc-update-current-channel-member, erc-load-script):
19 (erc-mode-line-away-status-format): Doc fixes. 39 (erc-mode-line-away-status-format): Doc fixes.
20 40
412006-11-20 Andrea Russo <rastandy@inventati.org>
42
43 * erc-dcc.el (erc-dcc-chat-setup): Initialize `erc-input-marker'
44 before calling `erc-display-prompt'.
45
212006-11-24 Juanma Barranquero <lekktu@gmail.com> 462006-11-24 Juanma Barranquero <lekktu@gmail.com>
22 47
23 * erc.el (erc-after-connect, erc-open-ssl-stream) 48 * erc.el (erc-after-connect, erc-open-ssl-stream)
@@ -86,6 +111,11 @@
86 `erc-show-my-nick' is non-nil. 111 `erc-show-my-nick' is non-nil.
87 (erc-compute-server): Doc fix. 112 (erc-compute-server): Doc fix.
88 113
1142006-10-01 John J Foerch <jjfoerch@earthlink.net>
115
116 * erc-stamp.el (erc-insert-timestamp-right): Exclude the newline
117 from the erc-timestamp field.
118
892006-09-11 Michael Olson <mwolson@gnu.org> 1192006-09-11 Michael Olson <mwolson@gnu.org>
90 120
91 * erc-nicklist.el (erc-nicklist-insert-contents): Add missing 121 * erc-nicklist.el (erc-nicklist-insert-contents): Add missing
diff --git a/lisp/erc/ChangeLog.01 b/lisp/erc/ChangeLog.01
index 20a03801477..25f57569742 100644
--- a/lisp/erc/ChangeLog.01
+++ b/lisp/erc/ChangeLog.01
@@ -1035,7 +1035,7 @@
1035 1035
1036 * erc-speak.el, erc.el: New file. 1036 * erc-speak.el, erc.el: New file.
1037 1037
1038 Copyright (C) 2001 Free Software Foundation, Inc. 1038 Copyright (C) 2001, 2006 Free Software Foundation, Inc.
1039 Copying and distribution of this file, with or without modification, 1039 Copying and distribution of this file, with or without modification,
1040 are permitted provided the copyright notice and this notice are preserved. 1040 are permitted provided the copyright notice and this notice are preserved.
1041 1041
diff --git a/lisp/erc/ChangeLog.02 b/lisp/erc/ChangeLog.02
index 006ac0c1415..332bd7fbfb9 100644
--- a/lisp/erc/ChangeLog.02
+++ b/lisp/erc/ChangeLog.02
@@ -2596,7 +2596,7 @@
2596 2596
2597See ChangeLog.01 for earlier changes. 2597See ChangeLog.01 for earlier changes.
2598 2598
2599 Copyright (C) 2002 Free Software Foundation, Inc. 2599 Copyright (C) 2002, 2006 Free Software Foundation, Inc.
2600 Copying and distribution of this file, with or without modification, 2600 Copying and distribution of this file, with or without modification,
2601 are permitted provided the copyright notice and this notice are preserved. 2601 are permitted provided the copyright notice and this notice are preserved.
2602 2602
diff --git a/lisp/erc/ChangeLog.03 b/lisp/erc/ChangeLog.03
index 6f55258c04e..20f0f92f5e0 100644
--- a/lisp/erc/ChangeLog.03
+++ b/lisp/erc/ChangeLog.03
@@ -2140,7 +2140,7 @@
2140 2140
2141See ChangeLog.02 for earlier changes. 2141See ChangeLog.02 for earlier changes.
2142 2142
2143 Copyright (C) 2003 Free Software Foundation, Inc. 2143 Copyright (C) 2003, 2006 Free Software Foundation, Inc.
2144 Copying and distribution of this file, with or without modification, 2144 Copying and distribution of this file, with or without modification,
2145 are permitted provided the copyright notice and this notice are preserved. 2145 are permitted provided the copyright notice and this notice are preserved.
2146 2146
diff --git a/lisp/erc/ChangeLog.04 b/lisp/erc/ChangeLog.04
index 3ab41db65b4..c5338a311c9 100644
--- a/lisp/erc/ChangeLog.04
+++ b/lisp/erc/ChangeLog.04
@@ -2069,7 +2069,7 @@
2069 2069
2070See ChangeLog.03 for earlier changes. 2070See ChangeLog.03 for earlier changes.
2071 2071
2072 Copyright (C) 2004 Free Software Foundation, Inc. 2072 Copyright (C) 2004, 2006 Free Software Foundation, Inc.
2073 Copying and distribution of this file, with or without modification, 2073 Copying and distribution of this file, with or without modification,
2074 are permitted provided the copyright notice and this notice are preserved. 2074 are permitted provided the copyright notice and this notice are preserved.
2075 2075
diff --git a/lisp/erc/ChangeLog.05 b/lisp/erc/ChangeLog.05
index 8fa725459e2..a640aba00a1 100644
--- a/lisp/erc/ChangeLog.05
+++ b/lisp/erc/ChangeLog.05
@@ -1217,7 +1217,7 @@
1217 1217
1218See ChangeLog.04 for earlier changes. 1218See ChangeLog.04 for earlier changes.
1219 1219
1220 Copyright (C) 2005 Free Software Foundation, Inc. 1220 Copyright (C) 2005, 2006 Free Software Foundation, Inc.
1221 Copying and distribution of this file, with or without modification, 1221 Copying and distribution of this file, with or without modification,
1222 are permitted provided the copyright notice and this notice are preserved. 1222 are permitted provided the copyright notice and this notice are preserved.
1223 1223
diff --git a/lisp/erc/erc-dcc.el b/lisp/erc/erc-dcc.el
index 1b5111e8525..eeb3e93801e 100644
--- a/lisp/erc/erc-dcc.el
+++ b/lisp/erc/erc-dcc.el
@@ -1035,6 +1035,7 @@ other client."
1035 (setq erc-dcc-entry-data entry) 1035 (setq erc-dcc-entry-data entry)
1036 (setq erc-dcc-unprocessed-output "") 1036 (setq erc-dcc-unprocessed-output "")
1037 (setq erc-insert-marker (set-marker (make-marker) (point-max))) 1037 (setq erc-insert-marker (set-marker (make-marker) (point-max)))
1038 (setq erc-input-marker (make-marker))
1038 (erc-display-prompt buffer (point-max)) 1039 (erc-display-prompt buffer (point-max))
1039 (set-process-buffer proc buffer) 1040 (set-process-buffer proc buffer)
1040 (add-hook 'kill-buffer-hook 'erc-dcc-chat-buffer-killed nil t) 1041 (add-hook 'kill-buffer-hook 'erc-dcc-chat-buffer-killed nil t)
diff --git a/lisp/erc/erc-ezbounce.el b/lisp/erc/erc-ezbounce.el
index d04fe782f7e..ea5afcabcbe 100644
--- a/lisp/erc/erc-ezbounce.el
+++ b/lisp/erc/erc-ezbounce.el
@@ -126,7 +126,7 @@ in the alist is `nil', prompt for the appropriate values."
126 126
127;;;###autoload 127;;;###autoload
128(defun erc-ezb-init-session-list (message) 128(defun erc-ezb-init-session-list (message)
129 "Reset the EZBounce session list to NIL." 129 "Reset the EZBounce session list to nil."
130 (setq erc-ezb-session-list nil) 130 (setq erc-ezb-session-list nil)
131 (setq erc-ezb-inside-session-listing t)) 131 (setq erc-ezb-inside-session-listing t))
132 132
@@ -134,7 +134,7 @@ in the alist is `nil', prompt for the appropriate values."
134(defun erc-ezb-end-of-session-list (message) 134(defun erc-ezb-end-of-session-list (message)
135 "Indicate the end of the EZBounce session listing." 135 "Indicate the end of the EZBounce session listing."
136 (setq erc-ezb-inside-session-listing nil)) 136 (setq erc-ezb-inside-session-listing nil))
137 137
138;;;###autoload 138;;;###autoload
139(defun erc-ezb-add-session (message) 139(defun erc-ezb-add-session (message)
140 "Add an EZBounce session to the session list." 140 "Add an EZBounce session to the session list."
@@ -157,7 +157,7 @@ in the alist is `nil', prompt for the appropriate values."
157 (read-from-minibuffer "IRC port: " 157 (read-from-minibuffer "IRC port: "
158 (erc-port-to-string "6667"))))) 158 (erc-port-to-string "6667")))))
159 (erc-server-send (format "CONN %s %s" server port))))) 159 (erc-server-send (format "CONN %s %s" server port)))))
160 160
161 161
162;;;###autoload 162;;;###autoload
163(defun erc-ezb-select-session () 163(defun erc-ezb-select-session ()
@@ -173,7 +173,7 @@ in the alist is `nil', prompt for the appropriate values."
173(defun erc-ezb-initialize () 173(defun erc-ezb-initialize ()
174 "Add EZBouncer convenience functions to ERC." 174 "Add EZBouncer convenience functions to ERC."
175 (add-hook 'erc-server-NOTICE-functions 'erc-ezb-notice-autodetect)) 175 (add-hook 'erc-server-NOTICE-functions 'erc-ezb-notice-autodetect))
176 176
177(provide 'erc-ezbounce) 177(provide 'erc-ezbounce)
178 178
179;; arch-tag: e972aa7b-a9f4-4d16-a489-074ec7a1002e 179;; arch-tag: e972aa7b-a9f4-4d16-a489-074ec7a1002e
diff --git a/lisp/erc/erc-list.el b/lisp/erc/erc-list.el
deleted file mode 100644
index c041842429e..00000000000
--- a/lisp/erc/erc-list.el
+++ /dev/null
@@ -1,415 +0,0 @@
1;;; erc-list.el --- Provide a faster channel listing mechanism
2
3;; Copyright (C) 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
4;; Copyright (C) 2004 Brian Palmer
5
6;; Author: Mario Lang <mlang@lexx.delysid.org>
7;; Keywords: comm
8
9;; This file is part of GNU Emacs.
10
11;; GNU Emacs is free software; you can redistribute it and/or modify
12;; it under the terms of the GNU General Public License as published by
13;; the Free Software Foundation; either version 2, or (at your option)
14;; any later version.
15
16;; GNU Emacs is distributed in the hope that it will be useful,
17;; but WITHOUT ANY WARRANTY; without even the implied warranty of
18;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19;; GNU General Public License for more details.
20
21;; You should have received a copy of the GNU General Public License
22;; along with GNU Emacs; see the file COPYING. If not, write to the
23;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
24;; Boston, MA 02110-1301, USA.
25
26;;; Commentary:
27
28;; This file provides a simple derived mode for viewing Channel lists.
29;; It also serves as a demonstration of how the new server hook facility
30;; can be used.
31
32;;; Code:
33
34(require 'erc)
35(require 'erc-networks)
36(require 'sort)
37(unless (fboundp 'make-overlay)
38 (require 'overlay))
39(eval-when-compile (require 'cl))
40
41;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
42;; User customizable variables.
43;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
44
45(defgroup erc-list nil
46 "Display IRC channels in another window when using /LIST"
47 :group 'erc)
48
49(defcustom erc-chanlist-progress-message t
50 "*Show progress message while accumulating channel list."
51 :group 'erc-list
52 :type 'boolean)
53
54(defcustom erc-no-list-networks nil
55 "*A list of network names on which the /LIST command refuses to work."
56 :group 'erc-list
57 :type '(repeat string))
58
59(defcustom erc-chanlist-frame-parameters nil
60 "*If nil, the channel list is displayed in a new window; if non-nil,
61this variable holds the frame parameters used to make a frame to
62display the channel list."
63 :group 'erc-list
64 :type 'list)
65
66(defcustom erc-chanlist-hide-modeline nil
67 "*If nil, the channel list buffer has a modeline, otherwise the modeline is hidden."
68 :group 'erc-list
69 :type 'boolean)
70
71(defface erc-chanlist-header-face '((t (:bold t)))
72 "Face used for the headers in erc's channel list."
73 :group 'erc-faces)
74
75(defface erc-chanlist-odd-line-face '((t (:inverse-video t)))
76 "Face used for the odd lines in erc's channel list."
77 :group 'erc-faces)
78
79(defface erc-chanlist-even-line-face '((t (:inverse-video nil)))
80 "Face used for the even lines in erc's channel list."
81 :group 'erc-faces)
82
83(defface erc-chanlist-highlight '((t (:foreground "red")))
84 "Face used to highlight the current line in the channel list."
85 :group 'erc-faces)
86
87;; This should perhaps be a defface that inherits values from the highlight face
88;; but xemacs does not support inheritance
89(defcustom erc-chanlist-highlight-face 'erc-chanlist-highlight
90 "Face used for highlighting the current line in a list."
91 :type 'face
92 :group 'erc-faces)
93
94
95;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
96;; All variables below this line are for internal use only.
97;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
98
99(defvar erc-chanlist-channel-line-regexp "^\\([#&\\*][^ \t\n]*\\)\\s-+[0-9]+"
100 "Regexp that matches a channel line in the channel list buffer.")
101
102(defvar erc-chanlist-buffer nil)
103(make-variable-buffer-local 'erc-chanlist-buffer)
104
105(defvar erc-chanlist-last-time 0
106 "A time value used to throttle the progress indicator.")
107
108(defvar erc-chanlist-frame nil
109 "The frame displaying the most recent channel list buffer.")
110
111(defvar erc-chanlist-sort-state 'channel
112 "The sort mode of the channel list buffer. Either 'channel or 'users.")
113(make-variable-buffer-local 'erc-chanlist-sort-state)
114
115(defvar erc-chanlist-highlight-overlay nil
116 "The overlay used for erc chanlist highlighting")
117(make-variable-buffer-local 'erc-chanlist-highlight-overlay)
118
119;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
120;; Define erc-chanlist-mode.
121;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
122
123(defcustom erc-chanlist-mode-hook nil
124 "Hook run by erc-chanlist-mode."
125 :group 'erc-list
126 :type 'hook)
127
128(define-derived-mode erc-chanlist-mode fundamental-mode "ERC Channel List"
129 "Mode for viewing a channel list of a particular server.
130
131\\{erc-chanlist-mode-map}"
132 (local-set-key "\C-c\C-j" 'erc-join-channel)
133 (local-set-key "j" 'erc-chanlist-join-channel)
134 (local-set-key "n" 'next-line)
135 (local-set-key "p" 'previous-line)
136 (local-set-key "q" 'erc-chanlist-quit)
137 (local-set-key "s" 'erc-chanlist-toggle-sort-state)
138 (local-set-key "t" 'toggle-truncate-lines)
139 (setq erc-chanlist-sort-state 'channel)
140 (setq truncate-lines t)
141 (add-hook 'post-command-hook 'erc-chanlist-post-command-hook 'append 'local))
142
143;; Define module:
144;;;###autoload (autoload 'erc-list-mode "erc-list")
145(define-erc-module list nil
146 "List channels nicely in a separate buffer."
147 ((defalias 'erc-cmd-LIST 'erc-list-channels))
148 ((defalias 'erc-cmd-LIST 'erc-list-channels-simple)))
149
150;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
151;; Functions.
152;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
153
154;;;###autoload
155(defun erc-list-channels (&rest channel)
156 "Display a buffer containing a list of channels on the current server.
157Optional argument CHANNEL specifies a single channel to list (instead of every
158available channel)."
159 (interactive
160 (remove "" (split-string
161 (read-from-minibuffer "List channels (RET for all): ") " ")))
162 (if (and (null channel)
163 (erc-member-ignore-case (erc-network-name) erc-no-list-networks))
164 (erc-display-line "ERC is configured not to allow the /LIST command on this network!"
165 (current-buffer))
166 (erc-display-line (erc-make-notice (concat "Listing channel"
167 (if channel
168 "."
169 "s. This may take a while."))))
170 (erc-chanlist channel))
171 t)
172
173(defun erc-list-channels-simple (&optional line)
174 "Send the LIST command to the current server with optional channels LINE."
175 (when (string-match "^\\s-*\\(.*\\)$" line)
176 (let ((channels (match-string 1 line)))
177 (erc-log (format "cmd: LIST: %s" channels))
178 (erc-server-send
179 (if (string= channels "")
180 "LIST"
181 (concat "LIST :" channels))))
182 t))
183(put 'erc-list-channels-simple 'do-not-parse-args t)
184
185;;;###autoload
186(defun erc-chanlist (&optional channels)
187 "Show a channel listing of the current server in a special mode.
188Please note that this function only works with IRC servers which conform
189to RFC and send the LIST header (#321) at start of list transmission."
190 (interactive)
191 (with-current-buffer (erc-server-buffer)
192 (erc-once-with-server-event
193 321
194 '(progn
195 (add-hook 'erc-server-322-functions 'erc-chanlist-322 nil t)
196
197 (erc-once-with-server-event
198 323
199 '(progn
200 (remove-hook 'erc-server-322-functions 'erc-chanlist-322 t)
201 (let ((buf erc-chanlist-buffer))
202 (if (not (buffer-live-p buf))
203 (error "`erc-chanlist-buffer' does not refer to a live buffer"))
204
205 (set-buffer buf)
206 (buffer-disable-undo)
207 (let (buffer-read-only
208 (sort-fold-case t))
209 (sort-lines nil (point-min) (point-max))
210 (setq erc-chanlist-sort-state 'channel)
211
212 (let ((sum (count-lines (point-min) (point-max))))
213 (goto-char (point-min))
214 (insert (substitute-command-keys
215 (concat "'\\[erc-chanlist-toggle-sort-state]' toggle sort mode.\n"
216 "'\\[erc-chanlist-quit]' kill this buffer.\n"
217 "'\\[toggle-truncate-lines]' toggle line truncation.\n"
218 "'\\[erc-chanlist-join-channel]' join the channel listed on the current line.\n\n")))
219 (insert (format "%d channels (sorted by %s).\n\n"
220 sum (if (eq erc-chanlist-sort-state 'channel)
221 "channel name"
222 "number of users"))))
223
224 (insert (format "%-25s%5s %s\n------------------------ ----- ----------------------------\n"
225 "Channel"
226 "Users"
227 "Topic"))
228
229 ;; Display the channel list buffer.
230 (if erc-chanlist-frame-parameters
231 (progn
232 (if (or (null erc-chanlist-frame)
233 (not (frame-live-p erc-chanlist-frame)))
234 (setq erc-chanlist-frame
235 (make-frame `((name . ,(format "Channels on %s"
236 erc-session-server))
237 ,@erc-chanlist-frame-parameters))))
238 (select-frame erc-chanlist-frame)
239 (switch-to-buffer buf)
240 (erc-prettify-channel-list))
241 (pop-to-buffer buf)
242 (erc-prettify-channel-list))))
243 (goto-char (point-min))
244 (search-forward-regexp "^------" nil t)
245 (forward-line 1)
246 (erc-chanlist-highlight-line)
247 (message "")
248 t))
249
250 (setq erc-chanlist-buffer (get-buffer-create
251 (format "*Channels on %s*"
252 (erc-response.sender parsed))))
253 (with-current-buffer erc-chanlist-buffer
254 (setq buffer-read-only nil)
255 (erase-buffer)
256 (erc-chanlist-mode)
257 (setq erc-server-process proc)
258 (if erc-chanlist-hide-modeline
259 (setq mode-line-format nil))
260 (setq buffer-read-only t))
261 t))
262
263 ;; Now that we've setup our callbacks, pull the trigger.
264 (if (interactive-p)
265 (message "Collecting channel list for server %s" erc-session-server))
266 (erc-server-send (if (null channels)
267 "LIST"
268 (concat "LIST "
269 (mapconcat #'identity channels ","))))))
270
271(defun erc-chanlist-322 (proc parsed)
272 "Process an IRC 322 message.
273
274The message carries information about one channel for the LIST
275command."
276 (multiple-value-bind (channel num-users)
277 (cdr (erc-response.command-args parsed))
278 (let ((topic (erc-response.contents parsed)))
279 (with-current-buffer erc-chanlist-buffer
280 (save-excursion
281 (goto-char (point-max))
282 (let (buffer-read-only)
283 (insert (format "%-26s%4s %s\n" (erc-controls-strip channel)
284 num-users
285 (erc-controls-strip topic))))
286
287 ;; Maybe display a progress indicator in the minibuffer.
288 (when (and erc-chanlist-progress-message
289 (> (erc-time-diff
290 erc-chanlist-last-time (erc-current-time))
291 3))
292 (setq erc-chanlist-last-time (erc-current-time))
293 (message "Accumulating channel list ... %c"
294 (aref [?/ ?| ?\\ ?- ?! ?O ?o] (random 7))))
295
296 ;; Return success to prevent other hook functions from being run.
297 t)))))
298
299(defun erc-chanlist-post-command-hook ()
300 "Keep the current line highlighted."
301 (ignore-errors
302 (save-excursion
303 (beginning-of-line)
304 (if (looking-at erc-chanlist-channel-line-regexp)
305 (erc-chanlist-highlight-line)
306 (erc-chanlist-dehighlight-line)))))
307
308(defun erc-chanlist-highlight-line ()
309 "Highlight the current line."
310 (unless erc-chanlist-highlight-overlay
311 (setq erc-chanlist-highlight-overlay
312 (make-overlay (point-min) (point-min)))
313 ;; Detach it from the buffer.
314 (delete-overlay erc-chanlist-highlight-overlay)
315 (overlay-put erc-chanlist-highlight-overlay
316 'face erc-chanlist-highlight-face)
317 ;; Expressly put it at a higher priority than the text
318 ;; properties used for faces later on. Gnu emacs promises that
319 ;; right now overlays are higher priority than text properties,
320 ;; but why take chances?
321 (overlay-put erc-chanlist-highlight-overlay 'priority 1))
322 (move-overlay erc-chanlist-highlight-overlay (point) (1+ (point-at-eol))))
323
324(defun erc-chanlist-dehighlight-line ()
325 "Remove the line highlighting."
326 (delete-overlay erc-chanlist-highlight-overlay))
327
328(defun erc-prettify-channel-list ()
329 "Make the channel list buffer look pretty.
330When this function runs, the current buffer must be the channel
331list buffer, or it does nothing."
332 (if (eq major-mode 'erc-chanlist-mode)
333 (save-excursion
334 (let ((inhibit-read-only t))
335 (goto-char (point-min))
336 (when (search-forward-regexp "^-------" nil t)
337 (add-text-properties
338 (point-min) (1+ (point-at-eol)) '(face erc-chanlist-header-face))
339 (forward-line 1))
340
341 (while (not (eobp))
342 (add-text-properties
343 (point) (1+ (point-at-eol)) '(face erc-chanlist-odd-line-face))
344 (forward-line 1)
345 (unless (eobp)
346 (add-text-properties
347 (point) (1+ (point-at-eol)) '(face erc-chanlist-even-line-face)))
348 (forward-line 1))))))
349
350(defun erc-chanlist-toggle-sort-state ()
351 "Toggle the channel list buffer sorting method.
352Either sort by channel names or by number of users in each channel."
353 (interactive)
354 (let ((inhibit-read-only t)
355 (sort-fold-case t))
356 (save-excursion
357 (goto-char (point-min))
358 (search-forward-regexp "^-----" nil t)
359 (forward-line 1)
360 (unless (eobp)
361 (if (eq erc-chanlist-sort-state 'channel)
362 (progn
363 (sort-numeric-fields 2 (point) (point-max))
364 (reverse-region (point) (point-max))
365 (setq erc-chanlist-sort-state 'users))
366 (sort-lines nil (point) (point-max))
367 (setq erc-chanlist-sort-state 'channel))
368
369 (goto-char (point-min))
370 (if (search-forward-regexp "^[0-9]+ channels (sorted by \\(.*\\)).$"
371 nil t)
372 (replace-match (if (eq erc-chanlist-sort-state 'channel)
373 "channel name"
374 "number of users")
375 nil nil nil 1))
376
377 (goto-char (point-min))
378 (search-forward-regexp "^-----" nil t)
379 (forward-line 1)
380 (recenter -1)
381
382 (erc-prettify-channel-list)))))
383
384(defun erc-chanlist-quit ()
385 "Quit Chanlist mode.
386Kill the channel list buffer, window, and frame (if there's a frame
387devoted to the channel list)."
388 (interactive)
389 (kill-buffer (current-buffer))
390 (if (eq (selected-frame) erc-chanlist-frame)
391 (delete-frame)
392 (delete-window)))
393
394(defun erc-chanlist-join-channel ()
395 "Join the channel listed on the current line of the channel list buffer.
396Private channels, which are shown as asterisks (*), are ignored."
397 (interactive)
398 (save-excursion
399 (beginning-of-line)
400 (when (looking-at erc-chanlist-channel-line-regexp)
401 (let ((channel-name (match-string 1)))
402 (when (and (stringp channel-name)
403 (not (string= channel-name "*")))
404 (run-at-time 0.5 nil 'erc-join-channel channel-name))))))
405
406(provide 'erc-list)
407
408;;; erc-list.el ends here
409;;
410;; Local Variables:
411;; indent-tabs-mode: t
412;; tab-width: 8
413;; End:
414
415;; arch-tag: 4a13196a-a61b-465a-9926-044dfbc7e5ff
diff --git a/lisp/erc/erc-stamp.el b/lisp/erc/erc-stamp.el
index 5d43baab6c9..b0622b99443 100644
--- a/lisp/erc/erc-stamp.el
+++ b/lisp/erc/erc-stamp.el
@@ -266,8 +266,8 @@ be printed just before the window-width."
266 (indent-to pos) 266 (indent-to pos)
267 (setq from (point)) 267 (setq from (point))
268 (insert string)) 268 (insert string))
269 (erc-put-text-property from (1+ (point)) 'field 'erc-timestamp) 269 (erc-put-text-property from (point) 'field 'erc-timestamp)
270 (erc-put-text-property from (1+ (point)) 'rear-nonsticky t) 270 (erc-put-text-property from (point) 'rear-nonsticky t)
271 (when erc-timestamp-intangible 271 (when erc-timestamp-intangible
272 (erc-put-text-property from (1+ (point)) 'intangible t))))) 272 (erc-put-text-property from (1+ (point)) 'intangible t)))))
273 273
diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el
index a40da6f62c0..7de2828b86d 100644
--- a/lisp/erc/erc.el
+++ b/lisp/erc/erc.el
@@ -2,7 +2,6 @@
2 2
3;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5;; Copyright (C) 2004 Brian Palmer
6 5
7;; Author: Alexander L. Belikoff (alexander@belikoff.net) 6;; Author: Alexander L. Belikoff (alexander@belikoff.net)
8;; Contributors: Sergey Berezin (sergey.berezin@cs.cmu.edu), 7;; Contributors: Sergey Berezin (sergey.berezin@cs.cmu.edu),
@@ -1669,22 +1668,25 @@ If `erc-track-mode' is in enabled, put the last element of
1669Due to some yet unresolved reason, global function `iswitchb-mode' 1668Due to some yet unresolved reason, global function `iswitchb-mode'
1670needs to be active for this function to work." 1669needs to be active for this function to work."
1671 (interactive "P") 1670 (interactive "P")
1672 (eval-and-compile 1671 (eval-when-compile
1673 (require 'iswitchb)) 1672 (require 'iswitchb))
1674 (let ((iswitchb-make-buflist-hook 1673 (let ((enabled iswitchb-mode))
1675 (lambda () 1674 (or enabled (iswitchb-mode 1))
1676 (setq iswitchb-temp-buflist 1675 (let ((iswitchb-make-buflist-hook
1677 (mapcar 'buffer-name 1676 (lambda ()
1678 (erc-buffer-list 1677 (setq iswitchb-temp-buflist
1679 nil 1678 (mapcar 'buffer-name
1680 (when arg erc-server-process))))))) 1679 (erc-buffer-list
1681 (switch-to-buffer 1680 nil
1682 (iswitchb-read-buffer 1681 (when arg erc-server-process)))))))
1683 "Switch-to: " 1682 (switch-to-buffer
1684 (if (boundp 'erc-modified-channels-alist) 1683 (iswitchb-read-buffer
1685 (buffer-name (caar (last erc-modified-channels-alist))) 1684 "Switch-to: "
1686 nil) 1685 (if (boundp 'erc-modified-channels-alist)
1687 t)))) 1686 (buffer-name (caar (last erc-modified-channels-alist)))
1687 nil)
1688 t)))
1689 (or enabled (iswitchb-mode -1))))
1688 1690
1689(defun erc-channel-list (proc) 1691(defun erc-channel-list (proc)
1690 "Return a list of channel buffers. 1692 "Return a list of channel buffers.
@@ -1761,7 +1763,7 @@ all channel buffers on all servers."
1761 1763
1762(defcustom erc-modules '(netsplit fill button match track completion readonly 1764(defcustom erc-modules '(netsplit fill button match track completion readonly
1763 ring autojoin noncommands irccontrols 1765 ring autojoin noncommands irccontrols
1764 stamp list) 1766 stamp)
1765 "A list of modules which ERC should enable. 1767 "A list of modules which ERC should enable.
1766If you set the value of this without using `customize' remember to call 1768If you set the value of this without using `customize' remember to call
1767\(erc-update-modules) after you change it. When using `customize', modules 1769\(erc-update-modules) after you change it. When using `customize', modules
@@ -1792,7 +1794,6 @@ removed from the list will be disabled."
1792 (const :tag "Launch an identd server on port 8113" identd) 1794 (const :tag "Launch an identd server on port 8113" identd)
1793 (const :tag "Highlight or remove IRC control characters" 1795 (const :tag "Highlight or remove IRC control characters"
1794 irccontrols) 1796 irccontrols)
1795 (const :tag "List channels in a separate buffer" list)
1796 (const :tag "Save buffers in logs" log) 1797 (const :tag "Save buffers in logs" log)
1797 (const :tag "Highlight pals, fools, and other keywords" match) 1798 (const :tag "Highlight pals, fools, and other keywords" match)
1798 (const :tag "Detect netsplits" netsplit) 1799 (const :tag "Detect netsplits" netsplit)
diff --git a/lisp/eshell/em-alias.el b/lisp/eshell/em-alias.el
index 30b7f69cc38..96ec9d5e025 100644
--- a/lisp/eshell/em-alias.el
+++ b/lisp/eshell/em-alias.el
@@ -1,6 +1,6 @@
1;;; em-alias.el --- creation and management of command aliases 1;;; em-alias.el --- creation and management of command aliases
2 2
3;; Copyright (C) 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: John Wiegley <johnw@gnu.org> 6;; Author: John Wiegley <johnw@gnu.org>
diff --git a/lisp/eshell/em-banner.el b/lisp/eshell/em-banner.el
index 18f7cd84c04..382964f304d 100644
--- a/lisp/eshell/em-banner.el
+++ b/lisp/eshell/em-banner.el
@@ -1,6 +1,6 @@
1;;; em-banner.el --- sample module that displays a login banner 1;;; em-banner.el --- sample module that displays a login banner
2 2
3;; Copyright (C) 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: John Wiegley <johnw@gnu.org> 6;; Author: John Wiegley <johnw@gnu.org>
diff --git a/lisp/eshell/em-basic.el b/lisp/eshell/em-basic.el
index c942b3c6913..bcc1ef80f91 100644
--- a/lisp/eshell/em-basic.el
+++ b/lisp/eshell/em-basic.el
@@ -1,6 +1,6 @@
1;;; em-basic.el --- basic shell builtin commands 1;;; em-basic.el --- basic shell builtin commands
2 2
3;; Copyright (C) 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: John Wiegley <johnw@gnu.org> 6;; Author: John Wiegley <johnw@gnu.org>
diff --git a/lisp/eshell/em-cmpl.el b/lisp/eshell/em-cmpl.el
index 19b1ad34569..50767a4a482 100644
--- a/lisp/eshell/em-cmpl.el
+++ b/lisp/eshell/em-cmpl.el
@@ -1,6 +1,6 @@
1;;; em-cmpl.el --- completion using the TAB key 1;;; em-cmpl.el --- completion using the TAB key
2 2
3;; Copyright (C) 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: John Wiegley <johnw@gnu.org> 6;; Author: John Wiegley <johnw@gnu.org>
diff --git a/lisp/eshell/em-dirs.el b/lisp/eshell/em-dirs.el
index 12e84b5403f..dfcf9836061 100644
--- a/lisp/eshell/em-dirs.el
+++ b/lisp/eshell/em-dirs.el
@@ -1,6 +1,6 @@
1;;; em-dirs.el --- directory navigation commands 1;;; em-dirs.el --- directory navigation commands
2 2
3;; Copyright (C) 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: John Wiegley <johnw@gnu.org> 6;; Author: John Wiegley <johnw@gnu.org>
diff --git a/lisp/eshell/em-glob.el b/lisp/eshell/em-glob.el
index c700d5d7f6e..bb9abc8aaa8 100644
--- a/lisp/eshell/em-glob.el
+++ b/lisp/eshell/em-glob.el
@@ -1,6 +1,6 @@
1;;; em-glob.el --- extended file name globbing 1;;; em-glob.el --- extended file name globbing
2 2
3;; Copyright (C) 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: John Wiegley <johnw@gnu.org> 6;; Author: John Wiegley <johnw@gnu.org>
diff --git a/lisp/eshell/em-hist.el b/lisp/eshell/em-hist.el
index 66356c11925..24730f889f1 100644
--- a/lisp/eshell/em-hist.el
+++ b/lisp/eshell/em-hist.el
@@ -1,6 +1,6 @@
1;;; em-hist.el --- history list management 1;;; em-hist.el --- history list management
2 2
3;; Copyright (C) 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: John Wiegley <johnw@gnu.org> 6;; Author: John Wiegley <johnw@gnu.org>
diff --git a/lisp/eshell/em-ls.el b/lisp/eshell/em-ls.el
index f705ca0e375..68e7caec0b0 100644
--- a/lisp/eshell/em-ls.el
+++ b/lisp/eshell/em-ls.el
@@ -1,6 +1,6 @@
1;;; em-ls.el --- implementation of ls in Lisp 1;;; em-ls.el --- implementation of ls in Lisp
2 2
3;; Copyright (C) 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: John Wiegley <johnw@gnu.org> 6;; Author: John Wiegley <johnw@gnu.org>
diff --git a/lisp/eshell/em-pred.el b/lisp/eshell/em-pred.el
index a506bc03b2a..6a03a689a9f 100644
--- a/lisp/eshell/em-pred.el
+++ b/lisp/eshell/em-pred.el
@@ -1,6 +1,6 @@
1;;; em-pred.el --- argument predicates and modifiers (ala zsh) 1;;; em-pred.el --- argument predicates and modifiers (ala zsh)
2 2
3;; Copyright (C) 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: John Wiegley <johnw@gnu.org> 6;; Author: John Wiegley <johnw@gnu.org>
diff --git a/lisp/eshell/em-prompt.el b/lisp/eshell/em-prompt.el
index e55008fe2e8..8476e64fc7a 100644
--- a/lisp/eshell/em-prompt.el
+++ b/lisp/eshell/em-prompt.el
@@ -1,6 +1,6 @@
1;;; em-prompt.el --- command prompts 1;;; em-prompt.el --- command prompts
2 2
3;; Copyright (C) 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: John Wiegley <johnw@gnu.org> 6;; Author: John Wiegley <johnw@gnu.org>
diff --git a/lisp/eshell/em-rebind.el b/lisp/eshell/em-rebind.el
index 98627be2363..65ca9676d55 100644
--- a/lisp/eshell/em-rebind.el
+++ b/lisp/eshell/em-rebind.el
@@ -1,6 +1,6 @@
1;;; em-rebind.el --- rebind keys when point is at current input 1;;; em-rebind.el --- rebind keys when point is at current input
2 2
3;; Copyright (C) 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: John Wiegley <johnw@gnu.org> 6;; Author: John Wiegley <johnw@gnu.org>
diff --git a/lisp/eshell/em-script.el b/lisp/eshell/em-script.el
index 782d70bb864..356fe76961e 100644
--- a/lisp/eshell/em-script.el
+++ b/lisp/eshell/em-script.el
@@ -1,6 +1,6 @@
1;;; em-script.el --- Eshell script files 1;;; em-script.el --- Eshell script files
2 2
3;; Copyright (C) 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: John Wiegley <johnw@gnu.org> 6;; Author: John Wiegley <johnw@gnu.org>
diff --git a/lisp/eshell/em-smart.el b/lisp/eshell/em-smart.el
index 65a3280d34e..5537d1c72f1 100644
--- a/lisp/eshell/em-smart.el
+++ b/lisp/eshell/em-smart.el
@@ -1,6 +1,6 @@
1;;; em-smart.el --- smart display of output 1;;; em-smart.el --- smart display of output
2 2
3;; Copyright (C) 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: John Wiegley <johnw@gnu.org> 6;; Author: John Wiegley <johnw@gnu.org>
diff --git a/lisp/eshell/em-term.el b/lisp/eshell/em-term.el
index a91eb044987..af6aa66c328 100644
--- a/lisp/eshell/em-term.el
+++ b/lisp/eshell/em-term.el
@@ -1,6 +1,6 @@
1;;; em-term.el --- running visual commands 1;;; em-term.el --- running visual commands
2 2
3;; Copyright (C) 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: John Wiegley <johnw@gnu.org> 6;; Author: John Wiegley <johnw@gnu.org>
diff --git a/lisp/eshell/em-xtra.el b/lisp/eshell/em-xtra.el
index d53d67314a0..8b77186f46a 100644
--- a/lisp/eshell/em-xtra.el
+++ b/lisp/eshell/em-xtra.el
@@ -1,6 +1,6 @@
1;;; em-xtra.el --- extra alias functions 1;;; em-xtra.el --- extra alias functions
2 2
3;; Copyright (C) 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: John Wiegley <johnw@gnu.org> 6;; Author: John Wiegley <johnw@gnu.org>
diff --git a/lisp/eshell/esh-arg.el b/lisp/eshell/esh-arg.el
index 5f636c66611..1b01501fb61 100644
--- a/lisp/eshell/esh-arg.el
+++ b/lisp/eshell/esh-arg.el
@@ -1,6 +1,6 @@
1;;; esh-arg.el --- argument processing 1;;; esh-arg.el --- argument processing
2 2
3;; Copyright (C) 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: John Wiegley <johnw@gnu.org> 6;; Author: John Wiegley <johnw@gnu.org>
diff --git a/lisp/eshell/esh-cmd.el b/lisp/eshell/esh-cmd.el
index aad62bfc7dc..6c698c79393 100644
--- a/lisp/eshell/esh-cmd.el
+++ b/lisp/eshell/esh-cmd.el
@@ -1,6 +1,6 @@
1;;; esh-cmd.el --- command invocation 1;;; esh-cmd.el --- command invocation
2 2
3;; Copyright (C) 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: John Wiegley <johnw@gnu.org> 6;; Author: John Wiegley <johnw@gnu.org>
diff --git a/lisp/eshell/esh-ext.el b/lisp/eshell/esh-ext.el
index 9f77f1e2868..f0aa026d8e4 100644
--- a/lisp/eshell/esh-ext.el
+++ b/lisp/eshell/esh-ext.el
@@ -1,6 +1,6 @@
1;;; esh-ext.el --- commands external to Eshell 1;;; esh-ext.el --- commands external to Eshell
2 2
3;; Copyright (C) 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: John Wiegley <johnw@gnu.org> 6;; Author: John Wiegley <johnw@gnu.org>
diff --git a/lisp/eshell/esh-io.el b/lisp/eshell/esh-io.el
index 19f90e67f92..18dcb87b9ee 100644
--- a/lisp/eshell/esh-io.el
+++ b/lisp/eshell/esh-io.el
@@ -1,6 +1,6 @@
1;;; esh-io.el --- I/O management 1;;; esh-io.el --- I/O management
2 2
3;; Copyright (C) 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: John Wiegley <johnw@gnu.org> 6;; Author: John Wiegley <johnw@gnu.org>
diff --git a/lisp/eshell/esh-maint.el b/lisp/eshell/esh-maint.el
index d0d9f85ece7..44c8935af28 100644
--- a/lisp/eshell/esh-maint.el
+++ b/lisp/eshell/esh-maint.el
@@ -1,6 +1,6 @@
1;;; esh-maint.el --- init code for building eshell -*- no-byte-compile: t -*- 1;;; esh-maint.el --- init code for building eshell -*- no-byte-compile: t -*-
2 2
3;; Copyright (C) 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: John Wiegley <johnw@gnu.org> 6;; Author: John Wiegley <johnw@gnu.org>
diff --git a/lisp/eshell/esh-opt.el b/lisp/eshell/esh-opt.el
index 5d6e5821029..8c4c5f5fdc1 100644
--- a/lisp/eshell/esh-opt.el
+++ b/lisp/eshell/esh-opt.el
@@ -1,6 +1,6 @@
1;;; esh-opt.el --- command options processing 1;;; esh-opt.el --- command options processing
2 2
3;; Copyright (C) 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: John Wiegley <johnw@gnu.org> 6;; Author: John Wiegley <johnw@gnu.org>
diff --git a/lisp/eshell/esh-proc.el b/lisp/eshell/esh-proc.el
index 379ac972206..7d8c66c1c53 100644
--- a/lisp/eshell/esh-proc.el
+++ b/lisp/eshell/esh-proc.el
@@ -1,6 +1,6 @@
1;;; esh-proc.el --- process management 1;;; esh-proc.el --- process management
2 2
3;; Copyright (C) 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: John Wiegley <johnw@gnu.org> 6;; Author: John Wiegley <johnw@gnu.org>
diff --git a/lisp/eshell/esh-test.el b/lisp/eshell/esh-test.el
index 5aad4126f91..d3f20c32274 100644
--- a/lisp/eshell/esh-test.el
+++ b/lisp/eshell/esh-test.el
@@ -1,6 +1,6 @@
1;;; esh-test.el --- Eshell test suite 1;;; esh-test.el --- Eshell test suite
2 2
3;; Copyright (C) 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: John Wiegley <johnw@gnu.org> 6;; Author: John Wiegley <johnw@gnu.org>
diff --git a/lisp/eshell/esh-var.el b/lisp/eshell/esh-var.el
index 2bebb6a79cc..5f21eb13fdf 100644
--- a/lisp/eshell/esh-var.el
+++ b/lisp/eshell/esh-var.el
@@ -1,6 +1,6 @@
1;;; esh-var.el --- handling of variables 1;;; esh-var.el --- handling of variables
2 2
3;; Copyright (C) 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: John Wiegley <johnw@gnu.org> 6;; Author: John Wiegley <johnw@gnu.org>
diff --git a/lisp/eshell/eshell.el b/lisp/eshell/eshell.el
index cfc2f05b931..2a254e045ba 100644
--- a/lisp/eshell/eshell.el
+++ b/lisp/eshell/eshell.el
@@ -1,6 +1,6 @@
1;;; eshell.el --- the Emacs command shell 1;;; eshell.el --- the Emacs command shell
2 2
3;; Copyright (C) 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: John Wiegley <johnw@gnu.org> 6;; Author: John Wiegley <johnw@gnu.org>
diff --git a/lisp/files.el b/lisp/files.el
index 396e4c28b36..141fe9f26c9 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1695,6 +1695,16 @@ This function ensures that none of these modifications will take place."
1695 (if (file-directory-p filename) 1695 (if (file-directory-p filename)
1696 (signal 'file-error (list "Opening input file" "file is a directory" 1696 (signal 'file-error (list "Opening input file" "file is a directory"
1697 filename))) 1697 filename)))
1698 ;; Check whether the file is uncommonly large (see find-file-noselect):
1699 (let (size)
1700 (when (and large-file-warning-threshold
1701 (setq size (nth 7 (file-attributes filename)))
1702 (> size large-file-warning-threshold)
1703 (not (y-or-n-p
1704 (format "File %s is large (%dMB), really insert? "
1705 (file-name-nondirectory filename)
1706 (/ size 1048576)))))
1707 (error "Aborted")))
1698 (let* ((buffer (find-buffer-visiting (abbreviate-file-name (file-truename filename)) 1708 (let* ((buffer (find-buffer-visiting (abbreviate-file-name (file-truename filename))
1699 #'buffer-modified-p)) 1709 #'buffer-modified-p))
1700 (tem (funcall insert-func filename))) 1710 (tem (funcall insert-func filename)))
@@ -2916,7 +2926,7 @@ Interactively, confirmation is required unless you supply a prefix argument."
2916 (interactive 2926 (interactive
2917 (list (if buffer-file-name 2927 (list (if buffer-file-name
2918 (read-file-name "Write file: " 2928 (read-file-name "Write file: "
2919 nil nil nil nil) 2929 nil nil nil nil)
2920 (read-file-name "Write file: " default-directory 2930 (read-file-name "Write file: " default-directory
2921 (expand-file-name 2931 (expand-file-name
2922 (file-name-nondirectory (buffer-name)) 2932 (file-name-nondirectory (buffer-name))
diff --git a/lisp/frame.el b/lisp/frame.el
index 9aba8c54089..b8b0271664e 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -705,7 +705,7 @@ This variable does not have any effect on MS-Windows."
705 (set-mouse-position (selected-frame) (1- (frame-width)) 0)))) 705 (set-mouse-position (selected-frame) (1- (frame-width)) 0))))
706 706
707(defun other-frame (arg) 707(defun other-frame (arg)
708 "Select the ARG'th different visible frame on current display, and raise it. 708 "Select the ARGth different visible frame on current display, and raise it.
709All frames are arranged in a cyclic order. 709All frames are arranged in a cyclic order.
710This command selects the frame ARG steps away in that order. 710This command selects the frame ARG steps away in that order.
711A negative ARG moves in the opposite order. 711A negative ARG moves in the opposite order.
@@ -881,7 +881,7 @@ pixels) is kept by adjusting the numbers of the lines and columns."
881(defun set-frame-parameter (frame parameter value) 881(defun set-frame-parameter (frame parameter value)
882 "Set frame parameter PARAMETER to VALUE on FRAME. 882 "Set frame parameter PARAMETER to VALUE on FRAME.
883If FRAME is nil, it defaults to the selected frame. 883If FRAME is nil, it defaults to the selected frame.
884See `modify-frame-parameters.'" 884See `modify-frame-parameters'."
885 (modify-frame-parameters frame (list (cons parameter value)))) 885 (modify-frame-parameters frame (list (cons parameter value))))
886 886
887(defun set-background-color (color-name) 887(defun set-background-color (color-name)
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index eb324178b7d..047bac04076 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,20 @@
12006-12-13 Reiner Steib <Reiner.Steib@gmx.de>
2
3 * legacy-gnus-agent.el: Add Copyright notice.
4
52006-12-12 Chong Yidong <cyd@stupidchicken.com>
6
7 * gnus-sum.el (gnus-make-thread-indent-array): Fix last change.
8
92006-12-08 Chong Yidong <cyd@stupidchicken.com>
10
11 * gnus-sum.el (gnus-make-thread-indent-array): New optional arg
12 specifying array size.
13 (gnus-summary-insert-line, gnus-summary-prepare-threads): Regrow indent
14 array if it is too small.
15 (gnus-sort-threads-recursive): Renamed from gnus-sort-thread-1.
16 (gnus-sort-threads-loop): New function.
17
12006-12-06 Chris Moore <dooglus@gmail.com> (tiny change) 182006-12-06 Chris Moore <dooglus@gmail.com> (tiny change)
2 19
3 * gnus-sum.el (gnus-sort-threads, gnus-summary-limit-children): 20 * gnus-sum.el (gnus-sort-threads, gnus-summary-limit-children):
diff --git a/lisp/gnus/ChangeLog.1 b/lisp/gnus/ChangeLog.1
index f917d0cbf73..5f86d24e019 100644
--- a/lisp/gnus/ChangeLog.1
+++ b/lisp/gnus/ChangeLog.1
@@ -3726,7 +3726,8 @@
3726 * gnus.el: Quassia Gnus v0.1 is released. 3726 * gnus.el: Quassia Gnus v0.1 is released.
3727 3727
3728 3728
3729 Copyright (C) 1997, 1998, 1999 Free Software Foundation, Inc. 3729 Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
3730 2005, 2006 Free Software Foundation, Inc.
3730 Copying and distribution of this file, with or without modification, 3731 Copying and distribution of this file, with or without modification,
3731 are permitted provided the copyright notice and this notice are preserved. 3732 are permitted provided the copyright notice and this notice are preserved.
3732 3733
diff --git a/lisp/gnus/ChangeLog.2 b/lisp/gnus/ChangeLog.2
index 14b4c23c38a..dcd6e8249b4 100644
--- a/lisp/gnus/ChangeLog.2
+++ b/lisp/gnus/ChangeLog.2
@@ -18857,7 +18857,8 @@
18857 18857
18858See ChangeLog.1 for earlier changes. 18858See ChangeLog.1 for earlier changes.
18859 18859
18860 Copyright (C) 2000, 2001, 2002, 2004 Free Software Foundation, Inc. 18860 Copyright (C) 2000, 2001, 2002, 2004, 2005, 2006
18861 Free Software Foundation, Inc.
18861 Copying and distribution of this file, with or without modification, 18862 Copying and distribution of this file, with or without modification,
18862 are permitted provided the copyright notice and this notice are preserved. 18863 are permitted provided the copyright notice and this notice are preserved.
18863 18864
diff --git a/lisp/gnus/format-spec.el b/lisp/gnus/format-spec.el
index d287cd4081f..e905e91c2e1 100644
--- a/lisp/gnus/format-spec.el
+++ b/lisp/gnus/format-spec.el
@@ -1,6 +1,6 @@
1;;; format-spec.el --- functions for formatting arbitrary formatting strings 1;;; format-spec.el --- functions for formatting arbitrary formatting strings
2 2
3;; Copyright (C) 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> 6;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
diff --git a/lisp/gnus/gnus-async.el b/lisp/gnus/gnus-async.el
index 91d6358d2ad..ba884185841 100644
--- a/lisp/gnus/gnus-async.el
+++ b/lisp/gnus/gnus-async.el
@@ -1,6 +1,6 @@
1;;; gnus-async.el --- asynchronous support for Gnus 1;;; gnus-async.el --- asynchronous support for Gnus
2 2
3;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> 6;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
diff --git a/lisp/gnus/gnus-audio.el b/lisp/gnus/gnus-audio.el
index be100195b84..a3192d84f65 100644
--- a/lisp/gnus/gnus-audio.el
+++ b/lisp/gnus/gnus-audio.el
@@ -1,6 +1,6 @@
1;;; gnus-audio.el --- Sound effects for Gnus 1;;; gnus-audio.el --- Sound effects for Gnus
2 2
3;; Copyright (C) 1996, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1996, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Steven L. Baur <steve@miranova.com> 6;; Author: Steven L. Baur <steve@miranova.com>
diff --git a/lisp/gnus/gnus-demon.el b/lisp/gnus/gnus-demon.el
index fb28d6440fd..6df92620503 100644
--- a/lisp/gnus/gnus-demon.el
+++ b/lisp/gnus/gnus-demon.el
@@ -1,6 +1,6 @@
1;;; gnus-demon.el --- daemonic Gnus behaviour 1;;; gnus-demon.el --- daemonic Gnus behaviour
2 2
3;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> 6;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
diff --git a/lisp/gnus/gnus-dup.el b/lisp/gnus/gnus-dup.el
index 651237f1348..38420d51a18 100644
--- a/lisp/gnus/gnus-dup.el
+++ b/lisp/gnus/gnus-dup.el
@@ -1,6 +1,6 @@
1;;; gnus-dup.el --- suppression of duplicate articles in Gnus 1;;; gnus-dup.el --- suppression of duplicate articles in Gnus
2 2
3;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> 6;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
diff --git a/lisp/gnus/gnus-kill.el b/lisp/gnus/gnus-kill.el
index 90a4fcb593f..cf8d9bc431c 100644
--- a/lisp/gnus/gnus-kill.el
+++ b/lisp/gnus/gnus-kill.el
@@ -1,6 +1,6 @@
1;;; gnus-kill.el --- kill commands for Gnus 1;;; gnus-kill.el --- kill commands for Gnus
2 2
3;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004, 3;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> 6;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
diff --git a/lisp/gnus/gnus-mh.el b/lisp/gnus/gnus-mh.el
index 34c310f3205..3c3dd501736 100644
--- a/lisp/gnus/gnus-mh.el
+++ b/lisp/gnus/gnus-mh.el
@@ -1,6 +1,6 @@
1;;; gnus-mh.el --- mh-e interface for Gnus 1;;; gnus-mh.el --- mh-e interface for Gnus
2 2
3;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2002, 2003, 3;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003,
4;; 2004, 2005, 2006 Free Software Foundation, Inc. 4;; 2004, 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> 6;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
diff --git a/lisp/gnus/gnus-move.el b/lisp/gnus/gnus-move.el
index 8a27ccd5d7f..fafd266b81d 100644
--- a/lisp/gnus/gnus-move.el
+++ b/lisp/gnus/gnus-move.el
@@ -1,6 +1,6 @@
1;;; gnus-move.el --- commands for moving Gnus from one server to another 1;;; gnus-move.el --- commands for moving Gnus from one server to another
2 2
3;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> 6;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
diff --git a/lisp/gnus/gnus-nocem.el b/lisp/gnus/gnus-nocem.el
index e75b25282b0..cfdaf137087 100644
--- a/lisp/gnus/gnus-nocem.el
+++ b/lisp/gnus/gnus-nocem.el
@@ -1,6 +1,6 @@
1;;; gnus-nocem.el --- NoCeM pseudo-cancellation treatment 1;;; gnus-nocem.el --- NoCeM pseudo-cancellation treatment
2 2
3;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> 6;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
diff --git a/lisp/gnus/gnus-soup.el b/lisp/gnus/gnus-soup.el
index bca59849766..31c721d9f1f 100644
--- a/lisp/gnus/gnus-soup.el
+++ b/lisp/gnus/gnus-soup.el
@@ -1,6 +1,6 @@
1;;; gnus-soup.el --- SOUP packet writing support for Gnus 1;;; gnus-soup.el --- SOUP packet writing support for Gnus
2 2
3;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Per Abrahamsen <abraham@iesd.auc.dk> 6;; Author: Per Abrahamsen <abraham@iesd.auc.dk>
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 05d5614756b..29e0067bf9b 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -3343,16 +3343,17 @@ buffer that was in action when the last article was fetched."
3343 t 3343 t
3344 (not (cdr (gnus-data-find-list article))))) 3344 (not (cdr (gnus-data-find-list article)))))
3345 3345
3346(defun gnus-make-thread-indent-array () 3346(defun gnus-make-thread-indent-array (&optional n)
3347 (let ((n 200)) 3347 (when (or n
3348 (unless (and gnus-thread-indent-array 3348 (progn (setq n 200) nil)
3349 (= gnus-thread-indent-level gnus-thread-indent-array-level)) 3349 (null gnus-thread-indent-array)
3350 (setq gnus-thread-indent-array (make-vector 201 "") 3350 (/= gnus-thread-indent-level gnus-thread-indent-array-level))
3351 gnus-thread-indent-array-level gnus-thread-indent-level) 3351 (setq gnus-thread-indent-array (make-vector (1+ n) "")
3352 (while (>= n 0) 3352 gnus-thread-indent-array-level gnus-thread-indent-level)
3353 (aset gnus-thread-indent-array n 3353 (while (>= n 0)
3354 (make-string (* n gnus-thread-indent-level) ? )) 3354 (aset gnus-thread-indent-array n
3355 (setq n (1- n)))))) 3355 (make-string (* n gnus-thread-indent-level) ? ))
3356 (setq n (1- n)))))
3356 3357
3357(defun gnus-update-summary-mark-positions () 3358(defun gnus-update-summary-mark-positions ()
3358 "Compute where the summary marks are to go." 3359 "Compute where the summary marks are to go."
@@ -3451,6 +3452,9 @@ buffer that was in action when the last article was fetched."
3451 gnus-tmp-expirable gnus-tmp-subject-or-nil 3452 gnus-tmp-expirable gnus-tmp-subject-or-nil
3452 &optional gnus-tmp-dummy gnus-tmp-score 3453 &optional gnus-tmp-dummy gnus-tmp-score
3453 gnus-tmp-process) 3454 gnus-tmp-process)
3455 (if (>= gnus-tmp-level (length gnus-thread-indent-array))
3456 (gnus-make-thread-indent-array (max (* 2 (length gnus-thread-indent-array))
3457 gnus-tmp-level)))
3454 (let* ((gnus-tmp-indentation (aref gnus-thread-indent-array gnus-tmp-level)) 3458 (let* ((gnus-tmp-indentation (aref gnus-thread-indent-array gnus-tmp-level))
3455 (gnus-tmp-lines (mail-header-lines gnus-tmp-header)) 3459 (gnus-tmp-lines (mail-header-lines gnus-tmp-header))
3456 (gnus-tmp-score (or gnus-tmp-score gnus-summary-default-score 0)) 3460 (gnus-tmp-score (or gnus-tmp-score gnus-summary-default-score 0))
@@ -4549,23 +4553,46 @@ If LINE, insert the rebuilt thread starting on line LINE."
4549 (1+ (gnus-point-at-eol)) 4553 (1+ (gnus-point-at-eol))
4550 (gnus-delete-line))))))) 4554 (gnus-delete-line)))))))
4551 4555
4552(defun gnus-sort-threads-1 (threads func) 4556(defun gnus-sort-threads-recursive (threads func)
4553 (sort (mapcar (lambda (thread) 4557 (sort (mapcar (lambda (thread)
4554 (cons (car thread) 4558 (cons (car thread)
4555 (and (cdr thread) 4559 (and (cdr thread)
4556 (gnus-sort-threads-1 (cdr thread) func)))) 4560 (gnus-sort-threads-recursive (cdr thread) func))))
4557 threads) func)) 4561 threads) func))
4558 4562
4563(defun gnus-sort-threads-loop (threads func)
4564 (let* ((superthread (cons nil threads))
4565 (stack (list (cons superthread threads)))
4566 remaining-threads thread)
4567 (while stack
4568 (setq remaining-threads (cdr (car stack)))
4569 (if remaining-threads
4570 (progn (setq thread (car remaining-threads))
4571 (setcdr (car stack) (cdr remaining-threads))
4572 (if (cdr thread)
4573 (push (cons thread (cdr thread)) stack)))
4574 (setq thread (caar stack))
4575 (setcdr thread (sort (cdr thread) func))
4576 (pop stack)))
4577 (cdr superthread)))
4578
4559(defun gnus-sort-threads (threads) 4579(defun gnus-sort-threads (threads)
4560 "Sort THREADS." 4580 "Sort THREADS."
4561 (if (not gnus-thread-sort-functions) 4581 (if (not gnus-thread-sort-functions)
4562 threads 4582 threads
4563 (gnus-message 8 "Sorting threads...") 4583 (gnus-message 8 "Sorting threads...")
4564 (let ((max-lisp-eval-depth (max 5000 max-lisp-eval-depth))) 4584 (prog1
4565 (prog1 (gnus-sort-threads-1 4585 (condition-case nil
4566 threads 4586 (let ((max-lisp-eval-depth (max max-lisp-eval-depth 5000)))
4567 (gnus-make-sort-function gnus-thread-sort-functions)) 4587 (gnus-sort-threads-recursive
4568 (gnus-message 8 "Sorting threads...done"))))) 4588 threads (gnus-make-sort-function gnus-thread-sort-functions)))
4589 ;; Even after binding max-lisp-eval-depth, the recursive
4590 ;; sorter might fail for very long threads. In that case,
4591 ;; try using a (less well-tested) non-recursive sorter.
4592 (error (gnus-sort-threads-loop
4593 threads (gnus-make-sort-function
4594 gnus-thread-sort-functions))))
4595 (gnus-message 8 "Sorting threads...done"))))
4569 4596
4570(defun gnus-sort-articles (articles) 4597(defun gnus-sort-articles (articles)
4571 "Sort ARTICLES." 4598 "Sort ARTICLES."
@@ -4990,6 +5017,10 @@ or a straight list of headers."
4990 gnus-tmp-closing-bracket ?\>) 5017 gnus-tmp-closing-bracket ?\>)
4991 (setq gnus-tmp-opening-bracket ?\[ 5018 (setq gnus-tmp-opening-bracket ?\[
4992 gnus-tmp-closing-bracket ?\])) 5019 gnus-tmp-closing-bracket ?\]))
5020 (if (>= gnus-tmp-level (length gnus-thread-indent-array))
5021 (gnus-make-thread-indent-array
5022 (max (* 2 (length gnus-thread-indent-array))
5023 gnus-tmp-level)))
4993 (setq 5024 (setq
4994 gnus-tmp-indentation 5025 gnus-tmp-indentation
4995 (aref gnus-thread-indent-array gnus-tmp-level) 5026 (aref gnus-thread-indent-array gnus-tmp-level)
diff --git a/lisp/gnus/gnus-undo.el b/lisp/gnus/gnus-undo.el
index 47be2ed97f5..f7a3d1779d5 100644
--- a/lisp/gnus/gnus-undo.el
+++ b/lisp/gnus/gnus-undo.el
@@ -1,6 +1,6 @@
1;;; gnus-undo.el --- minor mode for undoing in Gnus 1;;; gnus-undo.el --- minor mode for undoing in Gnus
2 2
3;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> 6;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
diff --git a/lisp/gnus/legacy-gnus-agent.el b/lisp/gnus/legacy-gnus-agent.el
index 50675b0ba27..cc8e4e370f4 100644
--- a/lisp/gnus/legacy-gnus-agent.el
+++ b/lisp/gnus/legacy-gnus-agent.el
@@ -1,10 +1,39 @@
1;;; gnus-agent.el --- Legacy unplugged support for Gnus
2
3;; Copyright (C) 2004, 2005, 2006 Free Software Foundation, Inc.
4
5;; Author: Kevin Greiner <kgreiner@xpediantsolutions.com>
6;; Keywords: news
7
8;; This file is part of GNU Emacs.
9
10;; GNU Emacs is free software; you can redistribute it and/or modify
11;; it under the terms of the GNU General Public License as published by
12;; the Free Software Foundation; either version 2, or (at your option)
13;; any later version.
14
15;; GNU Emacs is distributed in the hope that it will be useful,
16;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18;; GNU General Public License for more details.
19
20;; You should have received a copy of the GNU General Public License
21;; along with GNU Emacs; see the file COPYING. If not, write to the
22;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
23;; Boston, MA 02110-1301, USA.
24
25;;; Commentary:
26
27;; Conversion functions for the Agent.
28
29;;; Code:
1(require 'gnus-start) 30(require 'gnus-start)
2(require 'gnus-util) 31(require 'gnus-util)
3(require 'gnus-range) 32(require 'gnus-range)
4(require 'gnus-agent) 33(require 'gnus-agent)
5 34
6; Oort Gnus v0.08 - This release updated agent to no longer use 35;; Oort Gnus v0.08 - This release updated agent to no longer use
7; history file and to support a compressed alist. 36;; history file and to support a compressed alist.
8 37
9(defvar gnus-agent-compressed-agentview-search-only nil) 38(defvar gnus-agent-compressed-agentview-search-only nil)
10 39
@@ -224,4 +253,7 @@ possible that the hook was persistently saved."
224;; the .newsrc.eld file. 253;; the .newsrc.eld file.
225(gnus-convert-mark-converter-prompt 'gnus-agent-unhook-expire-days t) 254(gnus-convert-mark-converter-prompt 'gnus-agent-unhook-expire-days t)
226 255
227;;; arch-tag: 845c7b8a-88f7-4468-b8d7-94e8fc72cf1a 256(provide 'legacy-gnus-agent)
257
258;; arch-tag: 845c7b8a-88f7-4468-b8d7-94e8fc72cf1a
259;;; legacy-gnus-agent.el ends here
diff --git a/lisp/gnus/mail-parse.el b/lisp/gnus/mail-parse.el
index 3c1aa8111c2..ae3bcb7270e 100644
--- a/lisp/gnus/mail-parse.el
+++ b/lisp/gnus/mail-parse.el
@@ -1,6 +1,6 @@
1;;; mail-parse.el --- Interface functions for parsing mail 1;;; mail-parse.el --- Interface functions for parsing mail
2 2
3;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> 6;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
diff --git a/lisp/gnus/mail-prsvr.el b/lisp/gnus/mail-prsvr.el
index 144d61eb6a3..9cb214d50a4 100644
--- a/lisp/gnus/mail-prsvr.el
+++ b/lisp/gnus/mail-prsvr.el
@@ -1,6 +1,6 @@
1;;; mail-prsvr.el --- Interface variables for parsing mail 1;;; mail-prsvr.el --- Interface variables for parsing mail
2 2
3;; Copyright (C) 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> 6;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
diff --git a/lisp/gnus/messcompat.el b/lisp/gnus/messcompat.el
index f7b06f69029..1c56d5d8cf0 100644
--- a/lisp/gnus/messcompat.el
+++ b/lisp/gnus/messcompat.el
@@ -1,6 +1,6 @@
1;;; messcompat.el --- making message mode compatible with mail mode 1;;; messcompat.el --- making message mode compatible with mail mode
2 2
3;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> 6;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
diff --git a/lisp/gnus/nndir.el b/lisp/gnus/nndir.el
index ec47c94749f..e821107cb48 100644
--- a/lisp/gnus/nndir.el
+++ b/lisp/gnus/nndir.el
@@ -1,6 +1,6 @@
1;;; nndir.el --- single directory newsgroup access for Gnus 1;;; nndir.el --- single directory newsgroup access for Gnus
2 2
3;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> 6;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
diff --git a/lisp/gnus/nnkiboze.el b/lisp/gnus/nnkiboze.el
index b1fbc1f3d1d..dd4434553e6 100644
--- a/lisp/gnus/nnkiboze.el
+++ b/lisp/gnus/nnkiboze.el
@@ -1,6 +1,6 @@
1;;; nnkiboze.el --- select virtual news access for Gnus 1;;; nnkiboze.el --- select virtual news access for Gnus
2 2
3;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> 6;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
diff --git a/lisp/gnus/nnlistserv.el b/lisp/gnus/nnlistserv.el
index 3ee8f4200a4..2c77b028bb5 100644
--- a/lisp/gnus/nnlistserv.el
+++ b/lisp/gnus/nnlistserv.el
@@ -1,6 +1,6 @@
1;;; nnlistserv.el --- retrieving articles via web mailing list archives 1;;; nnlistserv.el --- retrieving articles via web mailing list archives
2 2
3;; Copyright (C) 1997, 1998, 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> 6;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
diff --git a/lisp/gnus/nnspool.el b/lisp/gnus/nnspool.el
index 8de0c17c708..329b35ad867 100644
--- a/lisp/gnus/nnspool.el
+++ b/lisp/gnus/nnspool.el
@@ -1,7 +1,7 @@
1;;; nnspool.el --- spool access for GNU Emacs 1;;; nnspool.el --- spool access for GNU Emacs
2 2
3;; Copyright (C) 1988, 1989, 1990, 1993, 1994, 1995, 1996, 1997, 1998, 3;; Copyright (C) 1988, 1989, 1990, 1993, 1994, 1995, 1996, 1997, 1998,
4;; 2000, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. 4;; 2000, 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> 6;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
7;; Lars Magne Ingebrigtsen <larsi@gnus.org> 7;; Lars Magne Ingebrigtsen <larsi@gnus.org>
diff --git a/lisp/gnus/nnwarchive.el b/lisp/gnus/nnwarchive.el
index 13a22419672..c110553a854 100644
--- a/lisp/gnus/nnwarchive.el
+++ b/lisp/gnus/nnwarchive.el
@@ -1,6 +1,6 @@
1;;; nnwarchive.el --- interfacing with web archives 1;;; nnwarchive.el --- interfacing with web archives
2 2
3;; Copyright (C) 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Shenghuo Zhu <zsh@cs.rochester.edu> 6;; Author: Shenghuo Zhu <zsh@cs.rochester.edu>
diff --git a/lisp/gnus/rfc1843.el b/lisp/gnus/rfc1843.el
index aac75758c05..527769d4c83 100644
--- a/lisp/gnus/rfc1843.el
+++ b/lisp/gnus/rfc1843.el
@@ -1,6 +1,6 @@
1;;; rfc1843.el --- HZ (rfc1843) decoding 1;;; rfc1843.el --- HZ (rfc1843) decoding
2 2
3;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Shenghuo Zhu <zsh@cs.rochester.edu> 6;; Author: Shenghuo Zhu <zsh@cs.rochester.edu>
diff --git a/lisp/gnus/rfc2045.el b/lisp/gnus/rfc2045.el
index f38ec0548fe..d41af595c94 100644
--- a/lisp/gnus/rfc2045.el
+++ b/lisp/gnus/rfc2045.el
@@ -1,6 +1,6 @@
1;;; rfc2045.el --- Functions for decoding rfc2045 headers 1;;; rfc2045.el --- Functions for decoding rfc2045 headers
2 2
3;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> 6;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
diff --git a/lisp/gnus/rfc2047.el b/lisp/gnus/rfc2047.el
index 946c7a464a0..4ac26c16158 100644
--- a/lisp/gnus/rfc2047.el
+++ b/lisp/gnus/rfc2047.el
@@ -1,6 +1,6 @@
1;;; rfc2047.el --- functions for encoding and decoding rfc2047 messages 1;;; rfc2047.el --- functions for encoding and decoding rfc2047 messages
2 2
3;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> 6;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
diff --git a/lisp/gnus/rfc2104.el b/lisp/gnus/rfc2104.el
index c343953177c..e0727984bb4 100644
--- a/lisp/gnus/rfc2104.el
+++ b/lisp/gnus/rfc2104.el
@@ -1,6 +1,6 @@
1;;; rfc2104.el --- RFC2104 Hashed Message Authentication Codes 1;;; rfc2104.el --- RFC2104 Hashed Message Authentication Codes
2 2
3;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Simon Josefsson <jas@pdc.kth.se> 6;; Author: Simon Josefsson <jas@pdc.kth.se>
diff --git a/lisp/gnus/rfc2231.el b/lisp/gnus/rfc2231.el
index 284c95fc151..b054b1f9282 100644
--- a/lisp/gnus/rfc2231.el
+++ b/lisp/gnus/rfc2231.el
@@ -1,6 +1,6 @@
1;;; rfc2231.el --- Functions for decoding rfc2231 headers 1;;; rfc2231.el --- Functions for decoding rfc2231 headers
2 2
3;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> 6;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
diff --git a/lisp/gnus/starttls.el b/lisp/gnus/starttls.el
index a9b64b4d1fc..229d6dca9f8 100644
--- a/lisp/gnus/starttls.el
+++ b/lisp/gnus/starttls.el
@@ -1,6 +1,6 @@
1;;; starttls.el --- STARTTLS functions 1;;; starttls.el --- STARTTLS functions
2 2
3;; Copyright (C) 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Daiki Ueno <ueno@unixuser.org> 6;; Author: Daiki Ueno <ueno@unixuser.org>
diff --git a/lisp/gnus/utf7.el b/lisp/gnus/utf7.el
index a1b7fdc6702..8c761602ce0 100644
--- a/lisp/gnus/utf7.el
+++ b/lisp/gnus/utf7.el
@@ -1,6 +1,6 @@
1;;; utf7.el --- UTF-7 encoding/decoding for Emacs -*-coding: iso-8859-1;-*- 1;;; utf7.el --- UTF-7 encoding/decoding for Emacs -*-coding: iso-8859-1;-*-
2 2
3;; Copyright (C) 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Jon K Hellan <hellan@acm.org> 6;; Author: Jon K Hellan <hellan@acm.org>
diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 8df079433f1..e4d77e3447c 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -400,7 +400,7 @@ face (according to `face-differs-from-default-p')."
400 400
401;;;###autoload 401;;;###autoload
402(defun variable-at-point (&optional any-symbol) 402(defun variable-at-point (&optional any-symbol)
403 "Return the bound variable symbol found around point. 403 "Return the bound variable symbol found at or before point.
404Return 0 if there is no such symbol. 404Return 0 if there is no such symbol.
405If ANY-SYMBOL is non-nil, don't insist the symbol be bound." 405If ANY-SYMBOL is non-nil, don't insist the symbol be bound."
406 (or (condition-case () 406 (or (condition-case ()
diff --git a/lisp/ido.el b/lisp/ido.el
index 0e18c4b5fde..796c377571c 100644
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -1566,7 +1566,8 @@ With ARG, turn ido speed-up on if arg is positive, off otherwise."
1566 (define-key map [(meta down)] 'ido-next-work-directory) 1566 (define-key map [(meta down)] 'ido-next-work-directory)
1567 (define-key map [backspace] 'ido-delete-backward-updir) 1567 (define-key map [backspace] 'ido-delete-backward-updir)
1568 (define-key map "\d" 'ido-delete-backward-updir) 1568 (define-key map "\d" 'ido-delete-backward-updir)
1569 (define-key map [(meta backspace)] 'ido-delete-backward-word-updir) 1569 (define-key map [remap backward-kill-word] 'ido-delete-backward-word-updir) ; M-DEL
1570
1570 (define-key map [(control backspace)] 'ido-up-directory) 1571 (define-key map [(control backspace)] 'ido-up-directory)
1571 (define-key map "\C-l" 'ido-reread-directory) 1572 (define-key map "\C-l" 'ido-reread-directory)
1572 (define-key map [(meta ?d)] 'ido-wide-find-dir-or-delete-dir) 1573 (define-key map [(meta ?d)] 'ido-wide-find-dir-or-delete-dir)
diff --git a/lisp/info.el b/lisp/info.el
index ad62940f99a..8b0558d898e 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -2805,6 +2805,11 @@ Give an empty topic name to go to the Index node itself."
2805 (kill-buffer Info-complete-menu-buffer))))) 2805 (kill-buffer Info-complete-menu-buffer)))))
2806 (if (equal Info-current-file "dir") 2806 (if (equal Info-current-file "dir")
2807 (error "The Info directory node has no index; use m to select a manual")) 2807 (error "The Info directory node has no index; use m to select a manual"))
2808 ;; Strip leading colon in topic; index format does not allow them.
2809 (if (and (stringp topic)
2810 (> (length topic) 0)
2811 (= (aref topic 0) ?:))
2812 (setq topic (substring topic 1)))
2808 (let ((orignode Info-current-node) 2813 (let ((orignode Info-current-node)
2809 (pattern (format "\n\\* +\\([^\n]*%s[^\n]*\\):[ \t]+\\([^\n]*\\)\\.\\(?:[ \t\n]*(line +\\([0-9]+\\))\\)?" 2814 (pattern (format "\n\\* +\\([^\n]*%s[^\n]*\\):[ \t]+\\([^\n]*\\)\\.\\(?:[ \t\n]*(line +\\([0-9]+\\))\\)?"
2810 (regexp-quote topic))) 2815 (regexp-quote topic)))
diff --git a/lisp/international/ccl.el b/lisp/international/ccl.el
index e9dac8b6812..9e8160d9c10 100644
--- a/lisp/international/ccl.el
+++ b/lisp/international/ccl.el
@@ -1,7 +1,9 @@
1;;; ccl.el --- CCL (Code Conversion Language) compiler 1;;; ccl.el --- CCL (Code Conversion Language) compiler
2 2
3;; Copyright (C) 1997, 1998, 2001, 2002 Free Software Foundation, Inc. 3;; Copyright (C) 1997, 1998, 2001, 2002, 2003, 2004, 2005,
4;; Copyright (C) 1995, 1998, 1999, 2000 4;; 2006 Free Software Foundation, Inc.
5;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
6;; 2005, 2006
5;; National Institute of Advanced Industrial Science and Technology (AIST) 7;; National Institute of Advanced Industrial Science and Technology (AIST)
6;; Registration Number H14PRO021 8;; Registration Number H14PRO021
7 9
diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index eb2d099dd41..e52df15a9b2 100644
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -1,8 +1,9 @@
1;;; characters.el --- set syntax and category for multibyte characters 1;;; characters.el --- set syntax and category for multibyte characters
2 2
3;; Copyright (C) 1997, 2000, 2001, 2002, 2003, 2004 3;; Copyright (C) 1997, 2000, 2001, 2002, 2003, 2004, 2005, 2006
4;; Free Software Foundation, Inc. 4;; Free Software Foundation, Inc.
5;; Copyright (C) 1995, 1997, 1998, 1999, 2000, 2001, 2003, 2004, 2005 5;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
6;; 2005, 2006
6;; National Institute of Advanced Industrial Science and Technology (AIST) 7;; National Institute of Advanced Industrial Science and Technology (AIST)
7;; Registration Number H14PRO021 8;; Registration Number H14PRO021
8;; Copyright (C) 2003 9;; Copyright (C) 2003
diff --git a/lisp/international/codepage.el b/lisp/international/codepage.el
index 7aab9bd85a8..ca5500b5415 100644
--- a/lisp/international/codepage.el
+++ b/lisp/international/codepage.el
@@ -1,7 +1,7 @@
1;;; codepage.el --- MS-DOS/MS-Windows specific coding systems 1;;; codepage.el --- MS-DOS/MS-Windows specific coding systems
2 2
3;; Copyright (C) 1998, 1999, 2000, 2002, 2005 Free Software Foundation, Inc. 3;; Copyright (C) 1998, 1999, 2000, 2002, 2005 Free Software Foundation, Inc.
4;; Copyright (C) 2000 4;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006
5;; National Institute of Advanced Industrial Science and Technology (AIST) 5;; National Institute of Advanced Industrial Science and Technology (AIST)
6;; Registration Number H14PRO021 6;; Registration Number H14PRO021
7 7
diff --git a/lisp/international/encoded-kb.el b/lisp/international/encoded-kb.el
index 2cbb76cb08d..8456eb3c175 100644
--- a/lisp/international/encoded-kb.el
+++ b/lisp/international/encoded-kb.el
@@ -1,7 +1,9 @@
1;;; encoded-kb.el --- handler to input multibyte characters encoded somehow 1;;; encoded-kb.el --- handler to input multibyte characters encoded somehow
2 2
3;; Copyright (C) 1997 Free Software Foundation, Inc. 3;; Copyright (C) 1997, 2001, 2002, 2003, 2004, 2005, 2006
4;; Copyright (C) 1995, 1997, 1998, 1999, 2000, 2001, 2004, 2005 4;; Free Software Foundation, Inc.
5;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
6;; 2005, 2006
5;; National Institute of Advanced Industrial Science and Technology (AIST) 7;; National Institute of Advanced Industrial Science and Technology (AIST)
6;; Registration Number H14PRO021 8;; Registration Number H14PRO021
7;; Copyright (C) 2003 9;; Copyright (C) 2003
diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el
index 9f09c615451..e62583bb2b7 100644
--- a/lisp/international/fontset.el
+++ b/lisp/international/fontset.el
@@ -1,7 +1,9 @@
1;;; fontset.el --- commands for handling fontset 1;;; fontset.el --- commands for handling fontset
2 2
3;; Copyright (C) 1997, 1998, 1999, 2000, 2001 Free Software Foundation, Inc. 3;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4;; Copyright (C) 1995, 1997, 1998, 1999, 2000, 2001, 2002, 2003 4;; 2005, 2006 Free Software Foundation, Inc.
5;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
6;; 2005, 2006
5;; National Institute of Advanced Industrial Science and Technology (AIST) 7;; National Institute of Advanced Industrial Science and Technology (AIST)
6;; Registration Number H14PRO021 8;; Registration Number H14PRO021
7;; Copyright (C) 2003, 2006 9;; Copyright (C) 2003, 2006
diff --git a/lisp/international/isearch-x.el b/lisp/international/isearch-x.el
index 1d0d50b01ac..a002df6687b 100644
--- a/lisp/international/isearch-x.el
+++ b/lisp/international/isearch-x.el
@@ -1,7 +1,9 @@
1;;; isearch-x.el --- extended isearch handling commands 1;;; isearch-x.el --- extended isearch handling commands
2 2
3;; Copyright (C) 1997, 2001, 2004 Free Software Foundation, Inc. 3;; Copyright (C) 1997, 2001, 2002, 2003, 2004, 2005, 2006
4;; Copyright (C) 1995, 1997, 1998, 2000 4;; Free Software Foundation, Inc.
5;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
6;; 2005, 2006
5;; National Institute of Advanced Industrial Science and Technology (AIST) 7;; National Institute of Advanced Industrial Science and Technology (AIST)
6;; Registration Number H14PRO021 8;; Registration Number H14PRO021
7 9
diff --git a/lisp/international/iso-ascii.el b/lisp/international/iso-ascii.el
index c1de1217133..1e0e129c3d9 100644
--- a/lisp/international/iso-ascii.el
+++ b/lisp/international/iso-ascii.el
@@ -1,6 +1,7 @@
1;;; iso-ascii.el --- set up char tables for ISO 8859/1 on ASCII terminals 1;;; iso-ascii.el --- set up char tables for ISO 8859/1 on ASCII terminals
2 2
3;; Copyright (C) 1987, 1995, 1998, 2003 Free Software Foundation, Inc. 3;; Copyright (C) 1987, 1995, 1998, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc.
4 5
5;; Author: Howard Gayle 6;; Author: Howard Gayle
6;; Maintainer: FSF 7;; Maintainer: FSF
diff --git a/lisp/international/iso-cvt.el b/lisp/international/iso-cvt.el
index ade60793884..00631390579 100644
--- a/lisp/international/iso-cvt.el
+++ b/lisp/international/iso-cvt.el
@@ -1,8 +1,8 @@
1;;; iso-cvt.el --- translate ISO 8859-1 from/to various encodings -*- coding: iso-latin-1 -*- 1;;; iso-cvt.el --- translate ISO 8859-1 from/to various encodings -*- coding: iso-latin-1 -*-
2;; This file was formerly called gm-lingo.el. 2;; This file was formerly called gm-lingo.el.
3 3
4;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 2000, 2003, 2004 4;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 2000, 2001,
5;; Free Software Foundation, Inc. 5;; 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
6 6
7;; Author: Michael Gschwind <mike@vlsivie.tuwien.ac.at> 7;; Author: Michael Gschwind <mike@vlsivie.tuwien.ac.at>
8;; Keywords: tex, iso, latin, i18n 8;; Keywords: tex, iso, latin, i18n
diff --git a/lisp/international/iso-transl.el b/lisp/international/iso-transl.el
index b5fcd750d27..f39601f1f5a 100644
--- a/lisp/international/iso-transl.el
+++ b/lisp/international/iso-transl.el
@@ -1,7 +1,7 @@
1;;; iso-transl.el --- keyboard input definitions for ISO 8859-1 -*- coding: iso-8859-1 -*- 1;;; iso-transl.el --- keyboard input definitions for ISO 8859-1 -*- coding: iso-8859-1 -*-
2 2
3;; Copyright (C) 1987, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2001 3;; Copyright (C) 1987, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2001
4;; Free Software Foundation, Inc. 4;; 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Howard Gayle 6;; Author: Howard Gayle
7;; Maintainer: FSF 7;; Maintainer: FSF
diff --git a/lisp/international/ja-dic-cnv.el b/lisp/international/ja-dic-cnv.el
index 0d3c5577fb9..711b1342d7f 100644
--- a/lisp/international/ja-dic-cnv.el
+++ b/lisp/international/ja-dic-cnv.el
@@ -1,6 +1,7 @@
1;;; ja-dic-cnv.el --- convert a Japanese dictionary (SKK-JISYO.L) to Emacs Lisp 1;;; ja-dic-cnv.el --- convert a Japanese dictionary (SKK-JISYO.L) to Emacs Lisp
2 2
3;; Copyright (C) 1995, 2000 3;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006
4;; National Institute of Advanced Industrial Science and Technology (AIST) 5;; National Institute of Advanced Industrial Science and Technology (AIST)
5;; Registration Number H14PRO021 6;; Registration Number H14PRO021
6 7
diff --git a/lisp/international/ja-dic-utl.el b/lisp/international/ja-dic-utl.el
index 23874db591b..4c01ed5d75d 100644
--- a/lisp/international/ja-dic-utl.el
+++ b/lisp/international/ja-dic-utl.el
@@ -1,6 +1,7 @@
1;;; ja-dic-utl.el --- utilities for handling Japanese dictionary (SKK-JISYO.L) 1;;; ja-dic-utl.el --- utilities for handling Japanese dictionary (SKK-JISYO.L)
2 2
3;; Copyright (C) 1995, 2000 3;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006
4;; National Institute of Advanced Industrial Science and Technology (AIST) 5;; National Institute of Advanced Industrial Science and Technology (AIST)
5;; Registration Number H14PRO021 6;; Registration Number H14PRO021
6 7
diff --git a/lisp/international/kinsoku.el b/lisp/international/kinsoku.el
index 9d2a03fd6f0..a452f53c5dc 100644
--- a/lisp/international/kinsoku.el
+++ b/lisp/international/kinsoku.el
@@ -1,7 +1,9 @@
1;;; kinsoku.el --- `Kinsoku' processing funcs -*- coding: iso-2022-7bit; -*- 1;;; kinsoku.el --- `Kinsoku' processing funcs -*- coding: iso-2022-7bit; -*-
2 2
3;; Copyright (C) 1997, 2003 Free Software Foundation, Inc. 3;; Copyright (C) 1997, 2001, 2002, 2003, 2004, 2005, 2006
4;; Copyright (C) 1995, 1997, 1998 4;; Free Software Foundation, Inc.
5;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
6;; 2005, 2006
5;; National Institute of Advanced Industrial Science and Technology (AIST) 7;; National Institute of Advanced Industrial Science and Technology (AIST)
6;; Registration Number H14PRO021 8;; Registration Number H14PRO021
7 9
diff --git a/lisp/international/kkc.el b/lisp/international/kkc.el
index 6da899af93a..4094538c9a0 100644
--- a/lisp/international/kkc.el
+++ b/lisp/international/kkc.el
@@ -1,7 +1,9 @@
1;;; kkc.el --- Kana Kanji converter -*- coding: iso-2022-7bit; -*- 1;;; kkc.el --- Kana Kanji converter -*- coding: iso-2022-7bit; -*-
2 2
3;; Copyright (C) 1997, 1998 Free Software Foundation, Inc. 3;; Copyright (C) 1997, 1998, 2001, 2002, 2003, 2004, 2005,
4;; Copyright (C) 1995, 1997, 1998, 2000, 2001, 2003 4;; 2006 Free Software Foundation, Inc.
5;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
6;; 2005, 2006
5;; National Institute of Advanced Industrial Science and Technology (AIST) 7;; National Institute of Advanced Industrial Science and Technology (AIST)
6;; Registration Number H14PRO021 8;; Registration Number H14PRO021
7 9
diff --git a/lisp/international/latin1-disp.el b/lisp/international/latin1-disp.el
index e558c222afd..60edc2a826d 100644
--- a/lisp/international/latin1-disp.el
+++ b/lisp/international/latin1-disp.el
@@ -1,6 +1,7 @@
1;;; latin1-disp.el --- display tables for other ISO 8859 on Latin-1 terminals -*-coding: iso-2022-7bit;-*- 1;;; latin1-disp.el --- display tables for other ISO 8859 on Latin-1 terminals -*-coding: iso-2022-7bit;-*-
2 2
3;; Copyright (C) 2000, 2001, 2003 Free Software Foundation, Inc. 3;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006
4;; Free Software Foundation, Inc.
4 5
5;; Author: Dave Love <fx@gnu.org> 6;; Author: Dave Love <fx@gnu.org>
6;; Keywords: i18n 7;; Keywords: i18n
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index e0e7e8512c8..fbdc0467f00 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -1,8 +1,9 @@
1;;; mule-cmds.el --- commands for mulitilingual environment -*-coding: iso-2022-7bit -*- 1;;; mule-cmds.el --- commands for mulitilingual environment -*-coding: iso-2022-7bit -*-
2 2
3;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 3;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
4;; Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5;; Copyright (C) 1995, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 5;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
6;; 2005, 2006
6;; National Institute of Advanced Industrial Science and Technology (AIST) 7;; National Institute of Advanced Industrial Science and Technology (AIST)
7;; Registration Number H14PRO021 8;; Registration Number H14PRO021
8;; Copyright (C) 2003 9;; Copyright (C) 2003
@@ -841,7 +842,7 @@ and TO is ignored."
841 842
842 (let ((no-other-defaults nil) 843 (let ((no-other-defaults nil)
843 auto-cs) 844 auto-cs)
844 (unless (or (stringp from) find-file-literally) 845 (unless (or (stringp from) find-file-literally)
845 ;; Find an auto-coding that is specified for the the current 846 ;; Find an auto-coding that is specified for the the current
846 ;; buffer and file from the region FROM and TO. 847 ;; buffer and file from the region FROM and TO.
847 (save-excursion 848 (save-excursion
@@ -903,7 +904,7 @@ It is highly recommended to fix it before writing to a file."
903 (rassq base default-coding-system) 904 (rassq base default-coding-system)
904 (setq default-coding-system 905 (setq default-coding-system
905 (append default-coding-system 906 (append default-coding-system
906 (list (cons default-buffer-file-coding-system 907 (list (cons default-buffer-file-coding-system
907 base))))))) 908 base)))))))
908 909
909 ;; If the most preferred coding system has the property mime-charset, 910 ;; If the most preferred coding system has the property mime-charset,
@@ -928,10 +929,10 @@ It is highly recommended to fix it before writing to a file."
928 (let ((default-eol-type (coding-system-eol-type 929 (let ((default-eol-type (coding-system-eol-type
929 (caar default-coding-system)))) 930 (caar default-coding-system))))
930 (if (and (vectorp default-eol-type) buffer-file-coding-system) 931 (if (and (vectorp default-eol-type) buffer-file-coding-system)
931 (setq default-eol-type (coding-system-eol-type 932 (setq default-eol-type (coding-system-eol-type
932 buffer-file-coding-system))) 933 buffer-file-coding-system)))
933 (if (and (vectorp default-eol-type) default-buffer-file-coding-system) 934 (if (and (vectorp default-eol-type) default-buffer-file-coding-system)
934 (setq default-eol-type (coding-system-eol-type 935 (setq default-eol-type (coding-system-eol-type
935 default-buffer-file-coding-system))) 936 default-buffer-file-coding-system)))
936 (if (and default-eol-type (not (vectorp default-eol-type))) 937 (if (and default-eol-type (not (vectorp default-eol-type)))
937 (dolist (elt default-coding-system) 938 (dolist (elt default-coding-system)
@@ -1201,7 +1202,7 @@ in the European submenu in each of those two menus."
1201 1202
1202 (dolist (elt alist) 1203 (dolist (elt alist)
1203 (set-language-info-internal lang-env (car elt) (cdr elt))) 1204 (set-language-info-internal lang-env (car elt) (cdr elt)))
1204 1205
1205 (if (equal lang-env current-language-environment) 1206 (if (equal lang-env current-language-environment)
1206 (set-language-environment lang-env)))) 1207 (set-language-environment lang-env))))
1207 1208
@@ -1324,10 +1325,8 @@ See the function `register-input-method' for the meanings of the elements.")
1324 1325
1325(defun register-input-method (input-method lang-env &rest args) 1326(defun register-input-method (input-method lang-env &rest args)
1326 "Register INPUT-METHOD as an input method for language environment LANG-ENV. 1327 "Register INPUT-METHOD as an input method for language environment LANG-ENV.
1327INPUT-METHOD and LANG-ENV are symbols or strings.
1328 1328
1329The remaining arguments are: 1329INPUT-METHOD and LANG-ENV are symbols or strings.
1330 ACTIVATE-FUNC, TITLE, DESCRIPTION, and ARGS...
1331ACTIVATE-FUNC is a function to call to activate this method. 1330ACTIVATE-FUNC is a function to call to activate this method.
1332TITLE is a string to show in the mode line when this method is active. 1331TITLE is a string to show in the mode line when this method is active.
1333DESCRIPTION is a string describing this method and what it is good for. 1332DESCRIPTION is a string describing this method and what it is good for.
@@ -1345,7 +1344,8 @@ string specified in this function takes precedence.)
1345 1344
1346The commands `describe-input-method' and `list-input-methods' need 1345The commands `describe-input-method' and `list-input-methods' need
1347these duplicated values to show some information about input methods 1346these duplicated values to show some information about input methods
1348without loading the relevant Quail packages." 1347without loading the relevant Quail packages.
1348\n(fn INPUT-METHOD LANG-ENV ACTIVATE-FUNC TITLE DESCRIPTION &rest ARGS)"
1349 (if (symbolp lang-env) 1349 (if (symbolp lang-env)
1350 (setq lang-env (symbol-name lang-env))) 1350 (setq lang-env (symbol-name lang-env)))
1351 (if (symbolp input-method) 1351 (if (symbolp input-method)
@@ -2552,7 +2552,11 @@ See also `locale-charset-language-names', `locale-language-names',
2552 (not (coding-system-equal coding-system 2552 (not (coding-system-equal coding-system
2553 locale-coding-system))) 2553 locale-coding-system)))
2554 (prefer-coding-system coding-system) 2554 (prefer-coding-system coding-system)
2555 ;; Fixme: perhaps prefer-coding-system should set this too.
2556 ;; But it's not the time to do such a fundamental change.
2557 (setq default-sendmail-coding-system coding-system)
2555 (setq locale-coding-system coding-system)) 2558 (setq locale-coding-system coding-system))
2559
2556 (when (get-language-info current-language-environment 'coding-priority) 2560 (when (get-language-info current-language-environment 'coding-priority)
2557 (let ((codeset (locale-info 'codeset)) 2561 (let ((codeset (locale-info 'codeset))
2558 (coding-system (car (coding-system-priority-list)))) 2562 (coding-system (car (coding-system-priority-list))))
diff --git a/lisp/international/mule-conf.el b/lisp/international/mule-conf.el
index 7c36215af85..e10f776b33a 100644
--- a/lisp/international/mule-conf.el
+++ b/lisp/international/mule-conf.el
@@ -1,8 +1,8 @@
1;;; mule-conf.el --- configure multilingual environment 1;;; mule-conf.el --- configure multilingual environment
2 2
3;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2005 3;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003,
4;; Free Software Foundation, Inc. 4;; 2004, 2005, 2006 Free Software Foundation, Inc.
5;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2003 5;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
6;; National Institute of Advanced Industrial Science and Technology (AIST) 6;; National Institute of Advanced Industrial Science and Technology (AIST)
7;; Registration Number H14PRO021 7;; Registration Number H14PRO021
8;; Copyright (C) 2003 8;; Copyright (C) 2003
diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index d1cc9618175..a67b0213416 100644
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -1,8 +1,9 @@
1;;; mule-diag.el --- show diagnosis of multilingual environment (Mule) 1;;; mule-diag.el --- show diagnosis of multilingual environment (Mule)
2 2
3;; Copyright (C) 1997, 1998, 2000, 2001, 2002, 2003 3;; Copyright (C) 1997, 1998, 2000, 2001, 2002, 2003, 2004,
4;; Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5;; Copyright (C) 1995, 1997, 1999, 2000, 2001, 2002, 2003 5;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
6;; 2005, 2006
6;; National Institute of Advanced Industrial Science and Technology (AIST) 7;; National Institute of Advanced Industrial Science and Technology (AIST)
7;; Registration Number H14PRO021 8;; Registration Number H14PRO021
8;; Copyright (C) 2003 9;; Copyright (C) 2003
diff --git a/lisp/international/mule-util.el b/lisp/international/mule-util.el
index 6b4b9c712bd..4d1ec5ec7f3 100644
--- a/lisp/international/mule-util.el
+++ b/lisp/international/mule-util.el
@@ -1,8 +1,9 @@
1;;; mule-util.el --- utility functions for mulitilingual environment (mule) 1;;; mule-util.el --- utility functions for mulitilingual environment (mule)
2 2
3;; Copyright (C) 1997, 1998, 2000, 2001, 2002, 2003, 2004 3;; Copyright (C) 1997, 1998, 2000, 2001, 2002, 2003, 2004,
4;; Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5;; Copyright (C) 1995, 1997, 1998, 1999, 2004 5;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
6;; 2005, 2006
6;; National Institute of Advanced Industrial Science and Technology (AIST) 7;; National Institute of Advanced Industrial Science and Technology (AIST)
7;; Registration Number H14PRO021 8;; Registration Number H14PRO021
8;; Copyright (C) 2003 9;; Copyright (C) 2003
diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 89f34d13620..cf6a3b21244 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -2,7 +2,8 @@
2 2
3;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 3;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
4;; Free Software Foundation, Inc. 4;; Free Software Foundation, Inc.
5;; Copyright (C) 1995, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 5;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
6;; 2005, 2006
6;; National Institute of Advanced Industrial Science and Technology (AIST) 7;; National Institute of Advanced Industrial Science and Technology (AIST)
7;; Registration Number H14PRO021 8;; Registration Number H14PRO021
8;; Copyright (C) 2003 9;; Copyright (C) 2003
diff --git a/lisp/international/ogonek.el b/lisp/international/ogonek.el
index 7c522698ead..e629a4554e1 100644
--- a/lisp/international/ogonek.el
+++ b/lisp/international/ogonek.el
@@ -1,6 +1,7 @@
1;;; ogonek.el --- change the encoding of Polish diacritics 1;;; ogonek.el --- change the encoding of Polish diacritics
2 2
3;; Copyright (C) 1997, 1998, 2001 Free Software Foundation, Inc. 3;; Copyright (C) 1997, 1998, 2001, 2002, 2003, 2004, 2005, 2006
4;; Free Software Foundation, Inc.
4 5
5;; Author: W{\l}odek Bzyl, Ryszard Kubiak 6;; Author: W{\l}odek Bzyl, Ryszard Kubiak
6;; Maintainer: rysiek@ipipan.gda.pl (Ryszard Kubiak) 7;; Maintainer: rysiek@ipipan.gda.pl (Ryszard Kubiak)
diff --git a/lisp/international/quail.el b/lisp/international/quail.el
index d0719117ee2..c13cd3660ff 100644
--- a/lisp/international/quail.el
+++ b/lisp/international/quail.el
@@ -1,7 +1,9 @@
1;;; quail.el --- provides simple input method for multilingual text 1;;; quail.el --- provides simple input method for multilingual text
2 2
3;; Copyright (C) 1997, 1998, 2000, 2001, 2002 Free Software Foundation, Inc. 3;; Copyright (C) 1997, 1998, 2000, 2001, 2002, 2003, 2004, 2005,
4;; Copyright (C) 1995, 1997, 1998, 1999, 2000, 2001, 2003, 2004 4;; 2006 Free Software Foundation, Inc.
5;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
6;; 2005, 2006
5;; National Institute of Advanced Industrial Science and Technology (AIST) 7;; National Institute of Advanced Industrial Science and Technology (AIST)
6;; Registration Number H14PRO021 8;; Registration Number H14PRO021
7 9
diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el
index 5727e484d73..e07df7b925f 100644
--- a/lisp/international/titdic-cnv.el
+++ b/lisp/international/titdic-cnv.el
@@ -1,7 +1,9 @@
1;;; titdic-cnv.el --- convert cxterm dictionary (TIT format) to Quail package -*- coding:iso-2022-7bit; -*- 1;;; titdic-cnv.el --- convert cxterm dictionary (TIT format) to Quail package -*- coding:iso-2022-7bit; -*-
2 2
3;; Copyright (C) 1997, 1998, 2000, 2001 Free Software Foundation, Inc. 3;; Copyright (C) 1997, 1998, 2000, 2001, 2002, 2003, 2004,
4;; Copyright (C) 1995, 1997, 1998, 2000, 2001, 2002 4;; 2005, 2006 Free Software Foundation, Inc.
5;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
6;; 2005, 2006
5;; National Institute of Advanced Industrial Science and Technology (AIST) 7;; National Institute of Advanced Industrial Science and Technology (AIST)
6;; Registration Number H14PRO021 8;; Registration Number H14PRO021
7;; Copyright (C) 2003 9;; Copyright (C) 2003
diff --git a/lisp/international/utf-7.el b/lisp/international/utf-7.el
index 92504967340..02306269259 100644
--- a/lisp/international/utf-7.el
+++ b/lisp/international/utf-7.el
@@ -1,6 +1,6 @@
1;;; utf-7.el --- utf-7 coding system 1;;; utf-7.el --- utf-7 coding system
2 2
3;; Copyright (C) 2003 Free Software Foundation, Inc. 3;; Copyright (C) 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
4 4
5;; Author: Dave Love <fx@gnu.org> 5;; Author: Dave Love <fx@gnu.org>
6;; Keywords: i18n, mail 6;; Keywords: i18n, mail
diff --git a/lisp/isearchb.el b/lisp/isearchb.el
index 56797bd0fb1..5fd59a2e5ee 100644
--- a/lisp/isearchb.el
+++ b/lisp/isearchb.el
@@ -3,6 +3,7 @@
3;; Copyright (C) 2004, 2005, 2006 John Wiegley 3;; Copyright (C) 2004, 2005, 2006 John Wiegley
4 4
5;; Author: John Wiegley <johnw@gnu.org> 5;; Author: John Wiegley <johnw@gnu.org>
6;; Maintainer: FSF
6;; Created: 16 Apr 2004 7;; Created: 16 Apr 2004
7;; Version: 1.5 8;; Version: 1.5
8;; Keywords: lisp 9;; Keywords: lisp
diff --git a/lisp/language/china-util.el b/lisp/language/china-util.el
index d0abc35dbdc..ce417796bef 100644
--- a/lisp/language/china-util.el
+++ b/lisp/language/china-util.el
@@ -1,8 +1,9 @@
1;;; china-util.el --- utilities for Chinese -*- coding: iso-2022-7bit -*- 1;;; china-util.el --- utilities for Chinese -*- coding: iso-2022-7bit -*-
2 2
3;; Copyright (C) 1995, 2001, 2003 3;; Copyright (C) 1995, 2001, 2002, 2003, 2004, 2005, 2006
4;; Free Software Foundation, Inc. 4;; Free Software Foundation, Inc.
5;; Copyright (C) 1995, 1997, 2003 5;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
6;; 2005, 2006
6;; National Institute of Advanced Industrial Science and Technology (AIST) 7;; National Institute of Advanced Industrial Science and Technology (AIST)
7;; Registration Number H14PRO021 8;; Registration Number H14PRO021
8;; Copyright (C) 2003 9;; Copyright (C) 2003
diff --git a/lisp/language/chinese.el b/lisp/language/chinese.el
index 302c5f21de1..aaed3808a65 100644
--- a/lisp/language/chinese.el
+++ b/lisp/language/chinese.el
@@ -1,7 +1,9 @@
1;;; chinese.el --- support for Chinese -*- coding: iso-2022-7bit; -*- 1;;; chinese.el --- support for Chinese -*- coding: iso-2022-7bit; -*-
2 2
3;; Copyright (C) 2001, 2003 Free Software Foundation, Inc. 3;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006
4;; Copyright (C) 1995, 1997, 1998 4;; Free Software Foundation, Inc.
5;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
6;; 2005, 2006
5;; National Institute of Advanced Industrial Science and Technology (AIST) 7;; National Institute of Advanced Industrial Science and Technology (AIST)
6;; Registration Number H14PRO021 8;; Registration Number H14PRO021
7;; Copyright (C) 2003 9;; Copyright (C) 2003
diff --git a/lisp/language/cyril-util.el b/lisp/language/cyril-util.el
index 6e4434771d0..1203301708e 100644
--- a/lisp/language/cyril-util.el
+++ b/lisp/language/cyril-util.el
@@ -1,6 +1,7 @@
1;;; cyril-util.el --- utilities for Cyrillic scripts 1;;; cyril-util.el --- utilities for Cyrillic scripts
2 2
3;; Copyright (C) 1997, 1998, 2001, 2002 Free Software Foundation, Inc. 3;; Copyright (C) 1997, 1998, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc.
4 5
5;; Keywords: mule, multilingual, Cyrillic 6;; Keywords: mule, multilingual, Cyrillic
6 7
diff --git a/lisp/language/cyrillic.el b/lisp/language/cyrillic.el
index 3b35bb2c1a2..110f07e14ea 100644
--- a/lisp/language/cyrillic.el
+++ b/lisp/language/cyrillic.el
@@ -1,7 +1,9 @@
1;;; cyrillic.el --- support for Cyrillic -*- coding: iso-2022-7bit; -*- 1;;; cyrillic.el --- support for Cyrillic -*- coding: iso-2022-7bit; -*-
2 2
3;; Copyright (C) 1997, 1998, 2001, 2002, 2003 Free Software Foundation, Inc. 3;; Copyright (C) 1997, 1998, 2001, 2002, 2003, 2004, 2005, 2006
4;; Copyright (C) 1995, 1997, 1998, 1999, 2000, 2002, 2003, 2004 4;; Free Software Foundation, Inc.
5;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
6;; 2005, 2006
5;; National Institute of Advanced Industrial Science and Technology (AIST) 7;; National Institute of Advanced Industrial Science and Technology (AIST)
6;; Registration Number H14PRO021 8;; Registration Number H14PRO021
7;; Copyright (C) 2003 9;; Copyright (C) 2003
diff --git a/lisp/language/czech.el b/lisp/language/czech.el
index be99c98b0a8..5db734565ab 100644
--- a/lisp/language/czech.el
+++ b/lisp/language/czech.el
@@ -1,6 +1,7 @@
1;;; czech.el --- support for Czech -*- coding: iso-2022-7bit; no-byte-compile: t -*- 1;;; czech.el --- support for Czech -*- coding: iso-2022-7bit; no-byte-compile: t -*-
2 2
3;; Copyright (C) 1998, 2001 Free Software Foundation. 3;; Copyright (C) 1998, 2001, 2002, 2003, 2004, 2005, 2006
4;; Free Software Foundation.
4 5
5;; Author: Milan Zamazal <pdm@zamazal.org> 6;; Author: Milan Zamazal <pdm@zamazal.org>
6;; Maintainer: Pavel Jan,Am(Bk <Pavel@Janik.cz> 7;; Maintainer: Pavel Jan,Am(Bk <Pavel@Janik.cz>
diff --git a/lisp/language/devan-util.el b/lisp/language/devan-util.el
index d70a471a4f5..92453078306 100644
--- a/lisp/language/devan-util.el
+++ b/lisp/language/devan-util.el
@@ -1,8 +1,8 @@
1;;; devan-util.el --- Support for composing Devanagari characters -*-coding: iso-2022-7bit;-*- 1;;; devan-util.el --- Support for composing Devanagari characters -*-coding: iso-2022-7bit;-*-
2 2
3;; Copyright (C) 1997, 1998, 2001, 2002, 2003 3;; Copyright (C) 1997, 1998, 2001, 2002, 2003, 2004, 2005, 2006
4;; Free Software Foundation, Inc. 4;; Free Software Foundation, Inc.
5;; Copyright (C) 1997, 1998, 1999, 2000 5;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
6;; National Institute of Advanced Industrial Science and Technology (AIST) 6;; National Institute of Advanced Industrial Science and Technology (AIST)
7;; Registration Number H14PRO021 7;; Registration Number H14PRO021
8 8
diff --git a/lisp/language/devanagari.el b/lisp/language/devanagari.el
index b03803a2a4f..515b8f4bbaf 100644
--- a/lisp/language/devanagari.el
+++ b/lisp/language/devanagari.el
@@ -1,6 +1,7 @@
1;;; devanagari.el --- Support for Devanagari -*- coding: iso-2022-7bit; no-byte-compile: t -*- 1;;; devanagari.el --- Support for Devanagari -*- coding: iso-2022-7bit; no-byte-compile: t -*-
2 2
3;; Copyright (C) 1996, 1997, 2001 Free Software Foundation, Inc. 3;; Copyright (C) 1996, 1997, 2001, 2002, 2003, 2004, 2005, 2006
4;; Free Software Foundation, Inc.
4 5
5;; Maintainer: KAWABATA, Taichi <kawabata@m17n.org> 6;; Maintainer: KAWABATA, Taichi <kawabata@m17n.org>
6;; Keywords: multilingual, Indian, Devanagari 7;; Keywords: multilingual, Indian, Devanagari
diff --git a/lisp/language/english.el b/lisp/language/english.el
index 01d8215e648..00eba111742 100644
--- a/lisp/language/english.el
+++ b/lisp/language/english.el
@@ -1,7 +1,8 @@
1;;; english.el --- support for English -*- no-byte-compile: t -*- 1;;; english.el --- support for English -*- no-byte-compile: t -*-
2 2
3;; Copyright (C) 1997 Free Software Foundation, Inc. 3;; Copyright (C) 1997, 2001, 2002, 2003, 2004, 2005, 2006
4;; Copyright (C) 1997 4;; Free Software Foundation, Inc.
5;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
5;; National Institute of Advanced Industrial Science and Technology (AIST) 6;; National Institute of Advanced Industrial Science and Technology (AIST)
6;; Registration Number H14PRO021 7;; Registration Number H14PRO021
7;; Copyright (C) 2003 8;; Copyright (C) 2003
diff --git a/lisp/language/ethio-util.el b/lisp/language/ethio-util.el
index ba4b22b1153..93de5e74c4d 100644
--- a/lisp/language/ethio-util.el
+++ b/lisp/language/ethio-util.el
@@ -1,8 +1,8 @@
1;;; ethio-util.el --- utilities for Ethiopic -*- coding: utf-8-emacs; -*- 1;;; ethio-util.el --- utilities for Ethiopic -*- coding: utf-8-emacs; -*-
2 2
3;; Copyright (C) 1997, 1998, 2002 3;; Copyright (C) 1997, 1998, 2002, 2003, 2004, 2005, 2006
4;; Free Software Foundation, Inc. 4;; Free Software Foundation, Inc.
5;; Copyright (C) 1997, 1998, 1999, 2001, 2004, 2005 5;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
6;; National Institute of Advanced Industrial Science and Technology (AIST) 6;; National Institute of Advanced Industrial Science and Technology (AIST)
7;; Registration Number H14PRO021 7;; Registration Number H14PRO021
8;; Copyright (C) 2005, 2006 8;; Copyright (C) 2005, 2006
diff --git a/lisp/language/ethiopic.el b/lisp/language/ethiopic.el
index 49ce50d359a..3772dceae1e 100644
--- a/lisp/language/ethiopic.el
+++ b/lisp/language/ethiopic.el
@@ -1,7 +1,9 @@
1;;; ethiopic.el --- support for Ethiopic -*- coding: utf-8-emacs; -*- 1;;; ethiopic.el --- support for Ethiopic -*- coding: utf-8-emacs; -*-
2 2
3;; Copyright (C) 1997 Free Software Foundation, Inc. 3;; Copyright (C) 1997, 2001, 2002, 2003, 2004, 2005, 2006
4;; Copyright (C) 1995, 2001, 2006 4;; Free Software Foundation, Inc.
5;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
6;; 2005, 2006
5;; National Institute of Advanced Industrial Science and Technology (AIST) 7;; National Institute of Advanced Industrial Science and Technology (AIST)
6;; Registration Number H14PRO021 8;; Registration Number H14PRO021
7 9
diff --git a/lisp/language/european.el b/lisp/language/european.el
index 497be4023b8..ecdca8b20f4 100644
--- a/lisp/language/european.el
+++ b/lisp/language/european.el
@@ -1,8 +1,9 @@
1;;; european.el --- support for European languages -*- coding: iso-2022-7bit; -*- 1;;; european.el --- support for European languages -*- coding: iso-2022-7bit; -*-
2 2
3;; Copyright (C) 1997, 1998, 2000, 2001, 2002, 2003, 2004 3;; Copyright (C) 1997, 1998, 2000, 2001, 2002, 2003, 2004, 2005, 2006
4;; Free Software Foundation, Inc. 4;; Free Software Foundation, Inc.
5;; Copyright (C) 1995, 1997, 1998, 1999, 2000, 2001, 2002, 2003 5;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
6;; 2005, 2006
6;; National Institute of Advanced Industrial Science and Technology (AIST) 7;; National Institute of Advanced Industrial Science and Technology (AIST)
7;; Registration Number H14PRO021 8;; Registration Number H14PRO021
8;; Copyright (C) 2003 9;; Copyright (C) 2003
diff --git a/lisp/language/georgian.el b/lisp/language/georgian.el
index 9d330256a03..5546df81d7e 100644
--- a/lisp/language/georgian.el
+++ b/lisp/language/georgian.el
@@ -1,6 +1,7 @@
1;;; georgian.el --- language support for Georgian -*- no-byte-compile: t -*- 1;;; georgian.el --- language support for Georgian -*- no-byte-compile: t -*-
2 2
3;; Copyright (C) 2001, 2003 Free Software Foundation, Inc. 3;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006
4;; Free Software Foundation, Inc.
4 5
5;; Author: Dave Love <fx@gnu.org> 6;; Author: Dave Love <fx@gnu.org>
6;; Keywords: i18n 7;; Keywords: i18n
diff --git a/lisp/language/greek.el b/lisp/language/greek.el
index 8e046af88b9..aca46aa6b24 100644
--- a/lisp/language/greek.el
+++ b/lisp/language/greek.el
@@ -1,9 +1,11 @@
1;;; greek.el --- support for Greek -*- no-byte-compile: t -*- 1;;; greek.el --- support for Greek -*- no-byte-compile: t -*-
2 2
3;; Copyright (C) 2002 Free Software Foundation, Inc. 3;; Copyright (C) 2002 Free Software Foundation, Inc.
4;; Copyright (C) 1995 4;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
5;; 2005, 2006
5;; National Institute of Advanced Industrial Science and Technology (AIST) 6;; National Institute of Advanced Industrial Science and Technology (AIST)
6;; Registration Number H14PRO021 7;; Registration Number H14PRO021
8
7;; Copyright (C) 2003 9;; Copyright (C) 2003
8;; National Institute of Advanced Industrial Science and Technology (AIST) 10;; National Institute of Advanced Industrial Science and Technology (AIST)
9;; Registration Number H13PRO009 11;; Registration Number H13PRO009
diff --git a/lisp/language/hebrew.el b/lisp/language/hebrew.el
index 4944b7a0881..f9c9aa68b7b 100644
--- a/lisp/language/hebrew.el
+++ b/lisp/language/hebrew.el
@@ -1,9 +1,12 @@
1;;; hebrew.el --- support for Hebrew -*- coding: iso-2022-7bit; no-byte-compile: t -*- 1;;; hebrew.el --- support for Hebrew -*- coding: iso-2022-7bit; no-byte-compile: t -*-
2 2
3;; Copyright (C) 2001, 2002 Free Software Foundation, Inc. 3;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006
4;; Copyright (C) 1995 4;; Free Software Foundation, Inc.
5;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
6;; 2005, 2006
5;; National Institute of Advanced Industrial Science and Technology (AIST) 7;; National Institute of Advanced Industrial Science and Technology (AIST)
6;; Registration Number H14PRO021 8;; Registration Number H14PRO021
9
7;; Copyright (C) 2003 10;; Copyright (C) 2003
8;; National Institute of Advanced Industrial Science and Technology (AIST) 11;; National Institute of Advanced Industrial Science and Technology (AIST)
9;; Registration Number H13PRO009 12;; Registration Number H13PRO009
diff --git a/lisp/language/ind-util.el b/lisp/language/ind-util.el
index 30bf1f13fd7..2693a565f02 100644
--- a/lisp/language/ind-util.el
+++ b/lisp/language/ind-util.el
@@ -1,6 +1,7 @@
1;;; ind-util.el --- Transliteration and Misc. Tools for Indian Languages -*- coding: iso-2022-7bit; -*- 1;;; ind-util.el --- Transliteration and Misc. Tools for Indian Languages -*- coding: iso-2022-7bit; -*-
2 2
3;; Copyright (C) 2001, 2003 Free Software Foundation, Inc. 3;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006
4;; Free Software Foundation, Inc.
4 5
5;; Maintainer: KAWABATA, Taichi <kawabata@m17n.org> 6;; Maintainer: KAWABATA, Taichi <kawabata@m17n.org>
6;; Keywords: multilingual, Indian, Devanagari 7;; Keywords: multilingual, Indian, Devanagari
diff --git a/lisp/language/indian.el b/lisp/language/indian.el
index 2ee8c086025..9c0425c96d0 100644
--- a/lisp/language/indian.el
+++ b/lisp/language/indian.el
@@ -1,7 +1,8 @@
1;;; indian.el --- Indian languages support -*- coding: iso-2022-7bit; -*- 1;;; indian.el --- Indian languages support -*- coding: iso-2022-7bit; -*-
2 2
3;; Copyright (C) 1997, 1999, 2001 Free Software Foundation, Inc. 3;; Copyright (C) 1997, 1999, 2001, 2002, 2003, 2004, 2005, 2006
4;; Copyright (C) 2002, 2003 4;; Free Software Foundation, Inc.
5;; Copyright (C) 2002, 2003, 2004, 2005, 2006
5;; National Institute of Advanced Industrial Science and Technology (AIST) 6;; National Institute of Advanced Industrial Science and Technology (AIST)
6;; Registration Number H14PRO021 7;; Registration Number H14PRO021
7 8
diff --git a/lisp/language/japan-util.el b/lisp/language/japan-util.el
index 2c72f529edd..c37e0bafd0a 100644
--- a/lisp/language/japan-util.el
+++ b/lisp/language/japan-util.el
@@ -1,7 +1,9 @@
1;;; japan-util.el --- utilities for Japanese -*- coding: iso-2022-7bit; -*- 1;;; japan-util.el --- utilities for Japanese -*- coding: iso-2022-7bit; -*-
2 2
3;; Copyright (C) 2001 Free Software Foundation, Inc. 3;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006
4;; Copyright (C) 1995, 1998, 2000, 2003 4;; Free Software Foundation, Inc.
5;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
6;; 2005, 2006
5;; National Institute of Advanced Industrial Science and Technology (AIST) 7;; National Institute of Advanced Industrial Science and Technology (AIST)
6;; Registration Number H14PRO021 8;; Registration Number H14PRO021
7 9
diff --git a/lisp/language/japanese.el b/lisp/language/japanese.el
index dd1b5bec6ff..590167ad560 100644
--- a/lisp/language/japanese.el
+++ b/lisp/language/japanese.el
@@ -1,7 +1,9 @@
1;;; japanese.el --- support for Japanese -*- coding: iso-2022-7bit; no-byte-compile: t -*- 1;;; japanese.el --- support for Japanese -*- coding: iso-2022-7bit; no-byte-compile: t -*-
2 2
3;; Copyright (C) 1997 Free Software Foundation, Inc. 3;; Copyright (C) 1997, 2001, 2002, 2003, 2004, 2005, 2006
4;; Copyright (C) 1995, 1997, 1998 4;; Free Software Foundation, Inc.
5;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
6;; 2005, 2006
5;; National Institute of Advanced Industrial Science and Technology (AIST) 7;; National Institute of Advanced Industrial Science and Technology (AIST)
6;; Registration Number H14PRO021 8;; Registration Number H14PRO021
7;; Copyright (C) 2003 9;; Copyright (C) 2003
diff --git a/lisp/language/kannada.el b/lisp/language/kannada.el
index 82b4860e3dc..895c272b44e 100644
--- a/lisp/language/kannada.el
+++ b/lisp/language/kannada.el
@@ -1,6 +1,6 @@
1;;; kannada.el --- Support for Kannada -*- coding: iso-2022-7bit; no-byte-compile: t -*- 1;;; kannada.el --- Support for Kannada -*- coding: iso-2022-7bit; no-byte-compile: t -*-
2 2
3;; Copyright (C) 2003 Free Software Foundation, Inc. 3;; Copyright (C) 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
4 4
5;; Maintainer: CHOWKSEY, Kailash C. <klchxbec@m-net.arbornet.org> 5;; Maintainer: CHOWKSEY, Kailash C. <klchxbec@m-net.arbornet.org>
6;; Keywords: multilingual, Indian, Kannada 6;; Keywords: multilingual, Indian, Kannada
diff --git a/lisp/language/knd-util.el b/lisp/language/knd-util.el
index b0c4f4b1a73..38610c3989c 100644
--- a/lisp/language/knd-util.el
+++ b/lisp/language/knd-util.el
@@ -1,6 +1,6 @@
1;;; knd-util.el --- Support for composing Kannada characters 1;;; knd-util.el --- Support for composing Kannada characters
2 2
3;; Copyright (C) 2003 Free Software Foundation, Inc. 3;; Copyright (C) 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
4 4
5;; Maintainer: Maintainer: CHOWKSEY, Kailash C. <klchxbec@m-net.arbornet.org> 5;; Maintainer: Maintainer: CHOWKSEY, Kailash C. <klchxbec@m-net.arbornet.org>
6;; Keywords: multilingual, Kannada 6;; Keywords: multilingual, Kannada
diff --git a/lisp/language/korea-util.el b/lisp/language/korea-util.el
index d509ac6c825..f4d8e179eb2 100644
--- a/lisp/language/korea-util.el
+++ b/lisp/language/korea-util.el
@@ -1,7 +1,8 @@
1;;; korea-util.el --- utilities for Korean 1;;; korea-util.el --- utilities for Korean
2 2
3;; Copyright (C) 1997, 1999 Free Software Foundation, Inc. 3;; Copyright (C) 1997, 1999, 2001, 2002, 2003, 2004, 2005, 2006
4;; Copyright (C) 1997, 1998, 1999 4;; Free Software Foundation, Inc.
5;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
5;; National Institute of Advanced Industrial Science and Technology (AIST) 6;; National Institute of Advanced Industrial Science and Technology (AIST)
6;; Registration Number H14PRO021 7;; Registration Number H14PRO021
7 8
diff --git a/lisp/language/korean.el b/lisp/language/korean.el
index c74b5f8212f..5a2ff9fdb19 100644
--- a/lisp/language/korean.el
+++ b/lisp/language/korean.el
@@ -1,7 +1,9 @@
1;;; korean.el --- support for Korean -*- coding: iso-2022-7bit; no-byte-compile: t -*- 1;;; korean.el --- support for Korean -*- coding: iso-2022-7bit; no-byte-compile: t -*-
2 2
3;; Copyright (C) 1998 Free Software Foundation, Inc. 3;; Copyright (C) 1998, 2001, 2002, 2003, 2004, 2005, 2006
4;; Copyright (C) 1995, 1998 4;; Free Software Foundation, Inc.
5;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
6;; 2005, 2006
5;; National Institute of Advanced Industrial Science and Technology (AIST) 7;; National Institute of Advanced Industrial Science and Technology (AIST)
6;; Registration Number H14PRO021 8;; Registration Number H14PRO021
7;; Copyright (C) 2003 9;; Copyright (C) 2003
diff --git a/lisp/language/lao-util.el b/lisp/language/lao-util.el
index 718baa3fd82..dcbdf7eb4aa 100644
--- a/lisp/language/lao-util.el
+++ b/lisp/language/lao-util.el
@@ -1,7 +1,8 @@
1;;; lao-util.el --- utilities for Lao -*- coding: iso-2022-7bit; -*- 1;;; lao-util.el --- utilities for Lao -*- coding: iso-2022-7bit; -*-
2 2
3;; Copyright (C) 2001 Free Software Foundation, Inc. 3;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006
4;; Copyright (C) 1997, 1998, 1999, 2000 4;; Free Software Foundation, Inc.
5;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
5;; National Institute of Advanced Industrial Science and Technology (AIST) 6;; National Institute of Advanced Industrial Science and Technology (AIST)
6;; Registration Number H14PRO021 7;; Registration Number H14PRO021
7;; Copyright (C) 2003 8;; Copyright (C) 2003
diff --git a/lisp/language/lao.el b/lisp/language/lao.el
index ec2ef61268c..ed290d988ef 100644
--- a/lisp/language/lao.el
+++ b/lisp/language/lao.el
@@ -1,7 +1,7 @@
1;;; lao.el --- support for Lao -*- coding: iso-2022-7bit; no-byte-compile: t -*- 1;;; lao.el --- support for Lao -*- coding: iso-2022-7bit; no-byte-compile: t -*-
2 2
3;; Copyright (C) 2001 Free Software Foundation, Inc. 3;; Copyright (C) 2001 Free Software Foundation, Inc.
4;; Copyright (C) 1997, 1998, 1999, 2002 4;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
5;; National Institute of Advanced Industrial Science and Technology (AIST) 5;; National Institute of Advanced Industrial Science and Technology (AIST)
6;; Registration Number H14PRO021 6;; Registration Number H14PRO021
7;; Copyright (C) 2003 7;; Copyright (C) 2003
diff --git a/lisp/language/malayalam.el b/lisp/language/malayalam.el
index fd17a95c69a..bab94a2a2d8 100644
--- a/lisp/language/malayalam.el
+++ b/lisp/language/malayalam.el
@@ -1,6 +1,6 @@
1;;; malayalam.el --- Support for Malayalam -*- coding: iso-2022-7bit; no-byte-compile: t -*- 1;;; malayalam.el --- Support for Malayalam -*- coding: iso-2022-7bit; no-byte-compile: t -*-
2 2
3;; Copyright (C) 2003 Free Software Foundation, Inc. 3;; Copyright (C) 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
4 4
5;; Maintainer: KAWABATA, Taichi <kawabata@m17n.org> 5;; Maintainer: KAWABATA, Taichi <kawabata@m17n.org>
6;; Keywords: multilingual, Indian, Malayalam 6;; Keywords: multilingual, Indian, Malayalam
diff --git a/lisp/language/misc-lang.el b/lisp/language/misc-lang.el
index f6bca5af0c2..ce643248242 100644
--- a/lisp/language/misc-lang.el
+++ b/lisp/language/misc-lang.el
@@ -1,6 +1,7 @@
1;;; misc-lang.el --- support for miscellaneous languages (characters) -*- no-byte-compile: t -*- 1;;; misc-lang.el --- support for miscellaneous languages (characters) -*- no-byte-compile: t -*-
2 2
3;; Copyright (C) 1995, 1997 3;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006
4;; National Institute of Advanced Industrial Science and Technology (AIST) 5;; National Institute of Advanced Industrial Science and Technology (AIST)
5;; Registration Number H14PRO021 6;; Registration Number H14PRO021
6 7
diff --git a/lisp/language/mlm-util.el b/lisp/language/mlm-util.el
index 8a87425ae59..4d40f0dcb42 100644
--- a/lisp/language/mlm-util.el
+++ b/lisp/language/mlm-util.el
@@ -1,6 +1,6 @@
1;;; mlm-util.el --- support for composing malayalam characters -*-coding: iso-2022-7bit;-*- 1;;; mlm-util.el --- support for composing malayalam characters -*-coding: iso-2022-7bit;-*-
2 2
3;; Copyright (C) 2003 Free Software Foundation, Inc. 3;; Copyright (C) 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
4 4
5;; Maintainer: KAWABATA, Taichi <kawabata@m17n.org> 5;; Maintainer: KAWABATA, Taichi <kawabata@m17n.org>
6;; Keywords: multilingual, Malayalam 6;; Keywords: multilingual, Malayalam
diff --git a/lisp/language/romanian.el b/lisp/language/romanian.el
index 24d66bc32e3..79f8e7d87b8 100644
--- a/lisp/language/romanian.el
+++ b/lisp/language/romanian.el
@@ -1,6 +1,7 @@
1;;; romanian.el --- support for Romanian -*- coding: iso-latin-2; no-byte-compile: t -*- 1;;; romanian.el --- support for Romanian -*- coding: iso-latin-2; no-byte-compile: t -*-
2 2
3;; Copyright (C) 1998, 2002 Free Software Foundation. 3;; Copyright (C) 1998, 2001, 2002, 2003, 2004, 2005, 2006
4;; Free Software Foundation.
4 5
5;; Author: Dan Nicolaescu <done@ece.arizona.edu> 6;; Author: Dan Nicolaescu <done@ece.arizona.edu>
6;; Keywords: multilingual, Romanian, i18n 7;; Keywords: multilingual, Romanian, i18n
diff --git a/lisp/language/slovak.el b/lisp/language/slovak.el
index 0d0f1abb6a3..3fe6fc0acb0 100644
--- a/lisp/language/slovak.el
+++ b/lisp/language/slovak.el
@@ -1,6 +1,7 @@
1;;; slovak.el --- support for Slovak -*- coding: iso-2022-7bit; no-byte-compile: t -*- 1;;; slovak.el --- support for Slovak -*- coding: iso-2022-7bit; no-byte-compile: t -*-
2 2
3;; Copyright (C) 1998, 2001 Free Software Foundation. 3;; Copyright (C) 1998, 2001, 2002, 2003, 2004, 2005, 2006
4;; Free Software Foundation.
4 5
5;; Authors: Tibor ,B)(Bimko <tibor.simko@fmph.uniba.sk>, 6;; Authors: Tibor ,B)(Bimko <tibor.simko@fmph.uniba.sk>,
6;; Milan Zamazal <pdm@zamazal.org> 7;; Milan Zamazal <pdm@zamazal.org>
diff --git a/lisp/language/tamil.el b/lisp/language/tamil.el
index ff51e9efe9e..9be6490fe69 100644
--- a/lisp/language/tamil.el
+++ b/lisp/language/tamil.el
@@ -1,6 +1,6 @@
1;;; tamil.el --- Support for Tamil -*- coding: iso-2022-7bit; no-byte-compile: t -*- 1;;; tamil.el --- Support for Tamil -*- coding: iso-2022-7bit; no-byte-compile: t -*-
2 2
3;; Copyright (C) 2003 Free Software Foundation, Inc. 3;; Copyright (C) 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
4 4
5;; Maintainer: KAWABATA, Taichi <batta@beige.ocn.ne.jp> 5;; Maintainer: KAWABATA, Taichi <batta@beige.ocn.ne.jp>
6;; Keywords: multilingual, Indian, Tamil 6;; Keywords: multilingual, Indian, Tamil
diff --git a/lisp/language/thai-util.el b/lisp/language/thai-util.el
index 8bae6e1e8ee..8dcfca2c3db 100644
--- a/lisp/language/thai-util.el
+++ b/lisp/language/thai-util.el
@@ -1,9 +1,11 @@
1;;; thai-util.el --- utilities for Thai -*- coding: iso-2022-7bit; -*- 1;;; thai-util.el --- utilities for Thai -*- coding: iso-2022-7bit; -*-
2 2
3;; Copyright (C) 1995, 1997, 1998, 1999, 2000, 2001, 2005 3;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006
4;; National Institute of Advanced Industrial Science and Technology (AIST) 5;; National Institute of Advanced Industrial Science and Technology (AIST)
5;; Registration Number H13PRO009 6;; Registration Number H13PRO009
6;; Copyright (C) 2000, 2001 Free Software Foundation, Inc. 7;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006
8;; Free Software Foundation, Inc.
7 9
8;; Keywords: mule, multilingual, Thai, i18n 10;; Keywords: mule, multilingual, Thai, i18n
9 11
diff --git a/lisp/language/thai-word.el b/lisp/language/thai-word.el
index ee8db1f2708..b6144a1fb47 100644
--- a/lisp/language/thai-word.el
+++ b/lisp/language/thai-word.el
@@ -1,6 +1,6 @@
1;;; thai-word.el -- find Thai word boundaries 1;;; thai-word.el -- find Thai word boundaries
2 2
3;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005 3;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006
4;; National Institute of Advanced Industrial Science and Technology (AIST) 4;; National Institute of Advanced Industrial Science and Technology (AIST)
5;; Registration Number H14PRO021 5;; Registration Number H14PRO021
6 6
diff --git a/lisp/language/thai.el b/lisp/language/thai.el
index 3a482865b40..0c346c7594b 100644
--- a/lisp/language/thai.el
+++ b/lisp/language/thai.el
@@ -1,12 +1,14 @@
1;;; thai.el --- support for Thai -*- coding: iso-2022-7bit; no-byte-compile: t -*- 1;;; thai.el --- support for Thai -*- coding: iso-2022-7bit; no-byte-compile: t -*-
2 2
3;; Copyright (C) 1995, 1997, 1998, 1999, 2000, 2002, 2005 3;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006
4;; National Institute of Advanced Industrial Science and Technology (AIST) 5;; National Institute of Advanced Industrial Science and Technology (AIST)
5;; Registration Number H13PRO009 6;; Registration Number H13PRO009
6;; Copyright (C) 2005 7;; Copyright (C) 2005
7;; National Institute of Advanced Industrial Science and Technology (AIST) 8;; National Institute of Advanced Industrial Science and Technology (AIST)
8;; Registration Number H14PRO021 9;; Registration Number H14PRO021
9;; Copyright (C) 1997, 1998, 2000, 2001, 2002 Free Software Foundation, Inc. 10;; Copyright (C) 1997, 1998, 2000, 2001, 2002, 2003, 2004, 2005,
11;; 2006 Free Software Foundation, Inc.
10 12
11;; Keywords: multilingual, Thai, i18n 13;; Keywords: multilingual, Thai, i18n
12 14
diff --git a/lisp/language/tibet-util.el b/lisp/language/tibet-util.el
index 83b0f29dee1..012456da6e7 100644
--- a/lisp/language/tibet-util.el
+++ b/lisp/language/tibet-util.el
@@ -1,7 +1,9 @@
1;;; tibet-util.el --- utilities for Tibetan -*- coding: iso-2022-7bit; -*- 1;;; tibet-util.el --- utilities for Tibetan -*- coding: iso-2022-7bit; -*-
2 2
3;; Copyright (C) 1997, 2002 Free Software Foundation, Inc. 3;; Copyright (C) 1997, 2001, 2002, 2003, 2004, 2005, 2006
4;; Copyright (C) 1995, 1997, 1998, 2000 4;; Free Software Foundation, Inc.
5;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
6;; 2005, 2006
5;; National Institute of Advanced Industrial Science and Technology (AIST) 7;; National Institute of Advanced Industrial Science and Technology (AIST)
6;; Registration Number H14PRO021 8;; Registration Number H14PRO021
7 9
diff --git a/lisp/language/tibetan.el b/lisp/language/tibetan.el
index ba7fb554bab..6256382d870 100644
--- a/lisp/language/tibetan.el
+++ b/lisp/language/tibetan.el
@@ -1,7 +1,8 @@
1;;; tibetan.el --- support for Tibetan language -*- coding: iso-2022-7bit; -*- 1;;; tibetan.el --- support for Tibetan language -*- coding: iso-2022-7bit; -*-
2 2
3;; Copyright (C) 1997, 2002 Free Software Foundation, Inc. 3;; Copyright (C) 1997, 2001, 2002, 2003, 2004, 2005, 2006
4;; Copyright (C) 1997, 1999, 2000 4;; Free Software Foundation, Inc.
5;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
5;; National Institute of Advanced Industrial Science and Technology (AIST) 6;; National Institute of Advanced Industrial Science and Technology (AIST)
6;; Registration Number H14PRO021 7;; Registration Number H14PRO021
7;; Copyright (C) 2003 8;; Copyright (C) 2003
diff --git a/lisp/language/tml-util.el b/lisp/language/tml-util.el
index c541862826d..b655d3c1944 100644
--- a/lisp/language/tml-util.el
+++ b/lisp/language/tml-util.el
@@ -1,6 +1,6 @@
1;;; tml-util.el --- support for composing tamil characters -*-coding: iso-2022-7bit;-*- 1;;; tml-util.el --- support for composing tamil characters -*-coding: iso-2022-7bit;-*-
2 2
3;; Copyright (C) 2001 Free Software Foundation, Inc. 3;; Copyright (C) 2001, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
4 4
5;; Maintainer: KAWABATA, Taichi <kawabata@m17n.org> 5;; Maintainer: KAWABATA, Taichi <kawabata@m17n.org>
6;; Keywords: multilingual, Indian, Tamil 6;; Keywords: multilingual, Indian, Tamil
diff --git a/lisp/language/utf-8-lang.el b/lisp/language/utf-8-lang.el
index fe3616ae192..aae98bba251 100644
--- a/lisp/language/utf-8-lang.el
+++ b/lisp/language/utf-8-lang.el
@@ -1,6 +1,7 @@
1;;; utf-8-lang.el --- generic UTF-8 language environment -*- no-byte-compile: t -*- 1;;; utf-8-lang.el --- generic UTF-8 language environment -*- no-byte-compile: t -*-
2 2
3;; Copyright (C) 2001 Free Software Foundation, Inc. 3;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006
4;; Free Software Foundation, Inc.
4 5
5;; Author: Dave Love <fx@gnu.org> 6;; Author: Dave Love <fx@gnu.org>
6;; Keywords: i18n 7;; Keywords: i18n
diff --git a/lisp/language/viet-util.el b/lisp/language/viet-util.el
index 2e6fc76da23..17e6f576951 100644
--- a/lisp/language/viet-util.el
+++ b/lisp/language/viet-util.el
@@ -1,7 +1,9 @@
1;;; viet-util.el --- utilities for Vietnamese -*- coding: iso-2022-7bit; -*- 1;;; viet-util.el --- utilities for Vietnamese -*- coding: iso-2022-7bit; -*-
2 2
3;; Copyright (C) 1998 Free Software Foundation, Inc. 3;; Copyright (C) 1998, 2001, 2002, 2003, 2004, 2005, 2006
4;; Copyright (C) 1995, 1997 4;; Free Software Foundation, Inc.
5;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
6;; 2005, 2006
5;; National Institute of Advanced Industrial Science and Technology (AIST) 7;; National Institute of Advanced Industrial Science and Technology (AIST)
6;; Registration Number H14PRO021 8;; Registration Number H14PRO021
7;; Copyright (C) 2003 9;; Copyright (C) 2003
diff --git a/lisp/language/vietnamese.el b/lisp/language/vietnamese.el
index 8b5c57a29dd..22141b6d0e3 100644
--- a/lisp/language/vietnamese.el
+++ b/lisp/language/vietnamese.el
@@ -1,7 +1,9 @@
1;;; vietnamese.el --- support for Vietnamese -*- coding: iso-2022-7bit; -*- 1;;; vietnamese.el --- support for Vietnamese -*- coding: iso-2022-7bit; -*-
2 2
3;; Copyright (C) 1998, 2002 Free Software Foundation, Inc. 3;; Copyright (C) 1998, 2001, 2002, 2003, 2004, 2005, 2006
4;; Copyright (C) 1995, 1997, 1998, 2000 4;; Free Software Foundation, Inc.
5;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
6;; 2005, 2006
5;; National Institute of Advanced Industrial Science and Technology (AIST) 7;; National Institute of Advanced Industrial Science and Technology (AIST)
6;; Registration Number H14PRO021 8;; Registration Number H14PRO021
7;; Copyright (C) 2003 9;; Copyright (C) 2003
diff --git a/lisp/mail/blessmail.el b/lisp/mail/blessmail.el
index 41bad17d70e..321dc13cebc 100644
--- a/lisp/mail/blessmail.el
+++ b/lisp/mail/blessmail.el
@@ -1,6 +1,6 @@
1;;; blessmail.el --- decide whether movemail needs special privileges -*- no-byte-compile: t -*- 1;;; blessmail.el --- decide whether movemail needs special privileges -*- no-byte-compile: t -*-
2 2
3;; Copyright (C) 1994, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1994, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Maintainer: FSF 6;; Maintainer: FSF
diff --git a/lisp/mail/footnote.el b/lisp/mail/footnote.el
index e831b89ef84..da7e5fcf579 100644
--- a/lisp/mail/footnote.el
+++ b/lisp/mail/footnote.el
@@ -1,6 +1,6 @@
1;;; footnote.el --- footnote support for message mode -*- coding: iso-latin-1;-*- 1;;; footnote.el --- footnote support for message mode -*- coding: iso-latin-1;-*-
2 2
3;; Copyright (C) 1997, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1997, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Steven L Baur <steve@xemacs.org> 6;; Author: Steven L Baur <steve@xemacs.org>
diff --git a/lisp/mail/mail-hist.el b/lisp/mail/mail-hist.el
index a2d7b0aab0f..c718110e9ec 100644
--- a/lisp/mail/mail-hist.el
+++ b/lisp/mail/mail-hist.el
@@ -1,6 +1,6 @@
1;;; mail-hist.el --- headers and message body history for outgoing mail 1;;; mail-hist.el --- headers and message body history for outgoing mail
2 2
3;; Copyright (C) 1994, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1994, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Author: Karl Fogel <kfogel@red-bean.com> 6;; Author: Karl Fogel <kfogel@red-bean.com>
diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el
index eab55bdef25..1e32b2d02df 100644
--- a/lisp/mail/mailabbrev.el
+++ b/lisp/mail/mailabbrev.el
@@ -1,7 +1,7 @@
1;;; mailabbrev.el --- abbrev-expansion of mail aliases 1;;; mailabbrev.el --- abbrev-expansion of mail aliases
2 2
3;; Copyright (C) 1985, 1986, 1987, 1992, 1993, 1996, 1997, 2000, 2002, 3;; Copyright (C) 1985, 1986, 1987, 1992, 1993, 1996, 1997, 2000, 2001,
4;; 2003, 2004, 2005, 2006 Free Software Foundation, Inc. 4;; 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Jamie Zawinski <jwz@lucid.com>, now <jwz@jwz.org> 6;; Author: Jamie Zawinski <jwz@lucid.com>, now <jwz@jwz.org>
7;; Maintainer: FSF 7;; Maintainer: FSF
diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el
index 7d60ed27e5c..d22507c7722 100644
--- a/lisp/mail/mailalias.el
+++ b/lisp/mail/mailalias.el
@@ -1,6 +1,6 @@
1;;; mailalias.el --- expand and complete mailing address aliases 1;;; mailalias.el --- expand and complete mailing address aliases
2 2
3;; Copyright (C) 1985, 1987, 1995, 1996, 1997, 2002, 2003, 3;; Copyright (C) 1985, 1987, 1995, 1996, 1997, 2001, 2002, 2003,
4;; 2004, 2005, 2006 Free Software Foundation, Inc. 4;; 2004, 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Maintainer: FSF 6;; Maintainer: FSF
diff --git a/lisp/mail/mailheader.el b/lisp/mail/mailheader.el
index 377144f7d68..4b6579fb6cb 100644
--- a/lisp/mail/mailheader.el
+++ b/lisp/mail/mailheader.el
@@ -1,6 +1,6 @@
1;;; mailheader.el --- mail header parsing, merging, formatting 1;;; mailheader.el --- mail header parsing, merging, formatting
2 2
3;; Copyright (C) 1996, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1996, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Author: Erik Naggum <erik@naggum.no> 6;; Author: Erik Naggum <erik@naggum.no>
diff --git a/lisp/mail/metamail.el b/lisp/mail/metamail.el
index 2388ab87971..4c6ef4bf928 100644
--- a/lisp/mail/metamail.el
+++ b/lisp/mail/metamail.el
@@ -1,6 +1,6 @@
1;;; metamail.el --- Metamail interface for GNU Emacs 1;;; metamail.el --- Metamail interface for GNU Emacs
2 2
3;; Copyright (C) 1993, 1996, 2002, 2003, 2004, 3;; Copyright (C) 1993, 1996, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Masanobu UMEDA <umerin@mse.kyutech.ac.jp> 6;; Author: Masanobu UMEDA <umerin@mse.kyutech.ac.jp>
diff --git a/lisp/mail/mspools.el b/lisp/mail/mspools.el
index a2f460d13a0..9084982b304 100644
--- a/lisp/mail/mspools.el
+++ b/lisp/mail/mspools.el
@@ -1,6 +1,6 @@
1;;; mspools.el --- show mail spools waiting to be read 1;;; mspools.el --- show mail spools waiting to be read
2 2
3;; Copyright (C) 1997, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1997, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Author: Stephen Eglen <stephen@gnu.org> 6;; Author: Stephen Eglen <stephen@gnu.org>
diff --git a/lisp/mail/reporter.el b/lisp/mail/reporter.el
index fa6c1c5e307..35c1381d891 100644
--- a/lisp/mail/reporter.el
+++ b/lisp/mail/reporter.el
@@ -1,7 +1,7 @@
1;;; reporter.el --- customizable bug reporting of lisp programs 1;;; reporter.el --- customizable bug reporting of lisp programs
2 2
3;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 2002, 2003, 2004, 3;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 2001, 2002, 2003,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2004, 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: 1993-1998 Barry A. Warsaw 6;; Author: 1993-1998 Barry A. Warsaw
7;; Maintainer: FSF 7;; Maintainer: FSF
diff --git a/lisp/mail/rfc2368.el b/lisp/mail/rfc2368.el
index ef20ac0398d..f03e9a635f0 100644
--- a/lisp/mail/rfc2368.el
+++ b/lisp/mail/rfc2368.el
@@ -1,11 +1,11 @@
1;;; rfc2368.el --- support for rfc2368 1;;; rfc2368.el --- support for rfc2368
2 2
3;; Copyright (C) 1998, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc.
5
3;; Author: Sen Nagata <sen@eccosys.com> 6;; Author: Sen Nagata <sen@eccosys.com>
4;; Keywords: mail 7;; Keywords: mail
5 8
6;; Copyright (C) 1998, 2000, 2002, 2003, 2004,
7;; 2005, 2006 Free Software Foundation, Inc.
8
9;; This file is part of GNU Emacs. 9;; This file is part of GNU Emacs.
10 10
11;; GNU Emacs is free software; you can redistribute it and/or modify 11;; GNU Emacs is free software; you can redistribute it and/or modify
diff --git a/lisp/mail/rfc822.el b/lisp/mail/rfc822.el
index 97a47f56f99..67ff1e02e89 100644
--- a/lisp/mail/rfc822.el
+++ b/lisp/mail/rfc822.el
@@ -1,6 +1,6 @@
1;;; rfc822.el --- hairy rfc822 parser for mail and news and suchlike 1;;; rfc822.el --- hairy rfc822 parser for mail and news and suchlike
2 2
3;; Copyright (C) 1986, 1987, 1990, 2002, 2003, 2004, 3;; Copyright (C) 1986, 1987, 1990, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Richard Mlynarik <mly@eddie.mit.edu> 6;; Author: Richard Mlynarik <mly@eddie.mit.edu>
diff --git a/lisp/mail/rmailmsc.el b/lisp/mail/rmailmsc.el
index 3502c0a7c57..f7d0885a3ac 100644
--- a/lisp/mail/rmailmsc.el
+++ b/lisp/mail/rmailmsc.el
@@ -1,6 +1,6 @@
1;;; rmailmsc.el --- miscellaneous support functions for the RMAIL mail reader 1;;; rmailmsc.el --- miscellaneous support functions for the RMAIL mail reader
2 2
3;; Copyright (C) 1985, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1985, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Maintainer: FSF 6;; Maintainer: FSF
diff --git a/lisp/mail/supercite.el b/lisp/mail/supercite.el
index cdb917701f7..f7beef054b0 100644
--- a/lisp/mail/supercite.el
+++ b/lisp/mail/supercite.el
@@ -1,6 +1,6 @@
1;;; supercite.el --- minor mode for citing mail and news replies 1;;; supercite.el --- minor mode for citing mail and news replies
2 2
3;; Copyright (C) 1993, 1997, 2002, 2003, 2004, 3;; Copyright (C) 1993, 1997, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: 1993 Barry A. Warsaw <bwarsaw@python.org> 6;; Author: 1993 Barry A. Warsaw <bwarsaw@python.org>
diff --git a/lisp/mail/uce.el b/lisp/mail/uce.el
index 4d48f467b59..ff53e06014e 100644
--- a/lisp/mail/uce.el
+++ b/lisp/mail/uce.el
@@ -1,6 +1,6 @@
1;;; uce.el --- facilitate reply to unsolicited commercial email 1;;; uce.el --- facilitate reply to unsolicited commercial email
2 2
3;; Copyright (C) 1996, 1998, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1996, 1998, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: stanislav shalunov <shalunov@mccme.ru> 6;; Author: stanislav shalunov <shalunov@mccme.ru>
diff --git a/lisp/mail/undigest.el b/lisp/mail/undigest.el
index 210a1d254f3..fce4e781ff8 100644
--- a/lisp/mail/undigest.el
+++ b/lisp/mail/undigest.el
@@ -1,6 +1,6 @@
1;;; undigest.el --- digest-cracking support for the RMAIL mail reader 1;;; undigest.el --- digest-cracking support for the RMAIL mail reader
2 2
3;; Copyright (C) 1985, 1986, 1994, 1996, 2002, 2003, 2004, 3;; Copyright (C) 1985, 1986, 1994, 1996, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Maintainer: FSF 6;; Maintainer: FSF
diff --git a/lisp/mail/unrmail.el b/lisp/mail/unrmail.el
index cf12472fb0e..79788ff1dc0 100644
--- a/lisp/mail/unrmail.el
+++ b/lisp/mail/unrmail.el
@@ -1,6 +1,6 @@
1;;; unrmail.el --- convert Rmail files to mailbox files 1;;; unrmail.el --- convert Rmail files to mailbox files
2 2
3;; Copyright (C) 1992, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1992, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Maintainer: FSF 6;; Maintainer: FSF
diff --git a/lisp/mail/vms-pmail.el b/lisp/mail/vms-pmail.el
index e7c44edbeb2..3a801565315 100644
--- a/lisp/mail/vms-pmail.el
+++ b/lisp/mail/vms-pmail.el
@@ -1,6 +1,6 @@
1;;; vms-pmail.el --- use Emacs as the editor within VMS mail 1;;; vms-pmail.el --- use Emacs as the editor within VMS mail
2 2
3;; Copyright (C) 1992, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1992, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Author: Roland B Roberts <roberts@panix.com> 6;; Author: Roland B Roberts <roberts@panix.com>
diff --git a/lisp/makefile.w32-in b/lisp/makefile.w32-in
index ebecf87d220..1c15be1f5d4 100644
--- a/lisp/makefile.w32-in
+++ b/lisp/makefile.w32-in
@@ -1,6 +1,6 @@
1# -*- Makefile -*- for GNU Emacs on the Microsoft W32 API. 1# -*- Makefile -*- for GNU Emacs on the Microsoft W32 API.
2# Copyright (C) 2000, 2001, 2002, 2003, 2004, 2# Copyright (C) 2000, 2001, 2002, 2003, 2004,
3# 2005 Free Software Foundation, Inc. 3# 2005, 2006 Free Software Foundation, Inc.
4# 4#
5# This file is part of GNU Emacs. 5# This file is part of GNU Emacs.
6# 6#
diff --git a/lisp/man.el b/lisp/man.el
index 2351853eeca..40a4e810204 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -428,13 +428,17 @@ Otherwise, the value is whatever the function
428 'follow-link t 428 'follow-link t
429 'help-echo "mouse-2, RET: display this man page" 429 'help-echo "mouse-2, RET: display this man page"
430 'func nil 430 'func nil
431 'action (lambda (button) 431 'action #'Man-xref-button-action)
432 (funcall 432
433 (button-get button 'func) 433(defun Man-xref-button-action (button)
434 (let ((func (button-get button 'Man-target-string))) 434 (let ((target (button-get button 'Man-target-string)))
435 (if func 435 (funcall
436 (if (functionp func) (funcall func) func) 436 (button-get button 'func)
437 (button-label button)))))) 437 (cond ((null target)
438 (button-label button))
439 ((functionp target)
440 (funcall target (button-start button)))
441 (t target)))))
438 442
439(define-button-type 'Man-xref-man-page 443(define-button-type 'Man-xref-man-page
440 :supertype 'Man-abstract-xref-man-page 444 :supertype 'Man-abstract-xref-man-page
@@ -636,11 +640,12 @@ a new value."
636;; ====================================================================== 640;; ======================================================================
637;; default man entry: get word under point 641;; default man entry: get word under point
638 642
639(defsubst Man-default-man-entry () 643(defsubst Man-default-man-entry (&optional pos)
640 "Make a guess at a default manual entry. 644 "Make a guess at a default manual entry based on the text at POS.
641This guess is based on the text surrounding the cursor." 645If POS is nil, the current point is used."
642 (let (word) 646 (let (word)
643 (save-excursion 647 (save-excursion
648 (if pos (goto-char pos))
644 ;; Default man entry title is any word the cursor is on, or if 649 ;; Default man entry title is any word the cursor is on, or if
645 ;; cursor not on a word, then nearest preceding word. 650 ;; cursor not on a word, then nearest preceding word.
646 (skip-chars-backward "-a-zA-Z0-9._+:") 651 (skip-chars-backward "-a-zA-Z0-9._+:")
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 72cc8521ee9..9ecc0053665 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -924,13 +924,13 @@ mail status in mode line"))
924 924
925(define-key menu-bar-showhide-menu [showhide-tooltip-mode] 925(define-key menu-bar-showhide-menu [showhide-tooltip-mode]
926 (list 'menu-item "Tooltips" 'tooltip-mode 926 (list 'menu-item "Tooltips" 'tooltip-mode
927 :help "Toggle tooltips on/off" 927 :help "Turn tooltips on/off"
928 :visible `(and (display-graphic-p) (fboundp 'x-show-tip)) 928 :visible `(and (display-graphic-p) (fboundp 'x-show-tip))
929 :button `(:toggle . tooltip-mode))) 929 :button `(:toggle . tooltip-mode)))
930 930
931(define-key menu-bar-showhide-menu [menu-bar-mode] 931(define-key menu-bar-showhide-menu [menu-bar-mode]
932 '(menu-item "Menu-bar" menu-bar-mode 932 '(menu-item "Menu-bar" menu-bar-mode
933 :help "Toggle menu-bar on/off" 933 :help "Turn menu-bar on/off"
934 :button (:toggle . menu-bar-mode))) 934 :button (:toggle . menu-bar-mode)))
935 935
936(define-key menu-bar-showhide-menu [showhide-tool-bar] 936(define-key menu-bar-showhide-menu [showhide-tool-bar]
@@ -1127,7 +1127,8 @@ mail status in mode line"))
1127 '(menu-item "Programmable Calculator" calc 1127 '(menu-item "Programmable Calculator" calc
1128 :help "Invoke the Emacs built-in full scientific calculator")) 1128 :help "Invoke the Emacs built-in full scientific calculator"))
1129(define-key menu-bar-tools-menu [calendar] 1129(define-key menu-bar-tools-menu [calendar]
1130 '(menu-item "Calendar" calendar)) 1130 '(menu-item "Calendar" calendar
1131 :help "Invoke the Emacs built-in calendar"))
1131 1132
1132(define-key menu-bar-tools-menu [separator-net] 1133(define-key menu-bar-tools-menu [separator-net]
1133 '("--")) 1134 '("--"))
@@ -1386,12 +1387,14 @@ key, a click, or a menu-item"))
1386 '(menu-item "Send Bug Report..." report-emacs-bug 1387 '(menu-item "Send Bug Report..." report-emacs-bug
1387 :help "Send e-mail to Emacs maintainers")) 1388 :help "Send e-mail to Emacs maintainers"))
1388(define-key menu-bar-help-menu [emacs-problems] 1389(define-key menu-bar-help-menu [emacs-problems]
1389 '(menu-item "Emacs Known Problems" view-emacs-problems)) 1390 '(menu-item "Emacs Known Problems" view-emacs-problems
1391 :help "Read about known problems with Emacs"))
1390(define-key menu-bar-help-menu [emacs-news] 1392(define-key menu-bar-help-menu [emacs-news]
1391 '(menu-item "Emacs News" view-emacs-news 1393 '(menu-item "Emacs News" view-emacs-news
1392 :help "New features of this version")) 1394 :help "New features of this version"))
1393(define-key menu-bar-help-menu [emacs-faq] 1395(define-key menu-bar-help-menu [emacs-faq]
1394 '(menu-item "Emacs FAQ" view-emacs-FAQ)) 1396 '(menu-item "Emacs FAQ" view-emacs-FAQ
1397 :help "Frequently asked (and answered) questions about Emacs"))
1395 1398
1396(defun help-with-tutorial-spec-language () 1399(defun help-with-tutorial-spec-language ()
1397 "Use the Emacs tutorial, specifying which language you want." 1400 "Use the Emacs tutorial, specifying which language you want."
diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index 1093fdbcdb5..96bb50eec69 100644
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -2868,7 +2868,7 @@
2868 * ChangeLog.1: New file. Contains old ChangeLog. 2868 * ChangeLog.1: New file. Contains old ChangeLog.
2869 2869
2870 2870
2871 Copyright (C) 2005 Free Software Foundation, Inc. 2871 Copyright (C) 2005, 2006 Free Software Foundation, Inc.
2872 2872
2873 Copying and distribution of this file, with or without modification, 2873 Copying and distribution of this file, with or without modification,
2874 are permitted in any medium without royalty provided the copyright 2874 are permitted in any medium without royalty provided the copyright
diff --git a/lisp/mh-e/ChangeLog.1 b/lisp/mh-e/ChangeLog.1
index 66b510011a1..40b69964ec3 100644
--- a/lisp/mh-e/ChangeLog.1
+++ b/lisp/mh-e/ChangeLog.1
@@ -11407,7 +11407,7 @@
11407 (dist): Leave release in current directory. 11407 (dist): Leave release in current directory.
11408 11408
11409 11409
11410 Copyright (C) 2003, 2004, 2005 Free Software Foundation, Inc. 11410 Copyright (C) 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
11411 11411
11412 Copying and distribution of this file, with or without modification, 11412 Copying and distribution of this file, with or without modification,
11413 are permitted in any medium without royalty provided the copyright 11413 are permitted in any medium without royalty provided the copyright
diff --git a/lisp/mouse-sel.el b/lisp/mouse-sel.el
index a1209f827f1..5c3e79ed807 100644
--- a/lisp/mouse-sel.el
+++ b/lisp/mouse-sel.el
@@ -244,6 +244,10 @@ primary selection and region."
244 :group 'mouse-sel 244 :group 'mouse-sel
245 (if mouse-sel-mode 245 (if mouse-sel-mode
246 (progn 246 (progn
247 ;; If mouse-2 has never been done by the user, initialize the
248 ;; `event-kind' property to ensure that `follow-link' clicks
249 ;; are interpreted correctly.
250 (put 'mouse-2 'event-kind 'mouse-click)
247 (add-hook 'x-lost-selection-functions 'mouse-sel-lost-selection-hook) 251 (add-hook 'x-lost-selection-functions 'mouse-sel-lost-selection-hook)
248 (when mouse-sel-default-bindings 252 (when mouse-sel-default-bindings
249 ;; Save original bindings and replace them with new ones. 253 ;; Save original bindings and replace them with new ones.
diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index 3f514a2aaab..33006731622 100644
--- a/lisp/net/browse-url.el
+++ b/lisp/net/browse-url.el
@@ -760,17 +760,23 @@ Prompts for a URL, defaulting to the URL at or before point. Variable
760 (interactive (browse-url-interactive-arg "URL: ")) 760 (interactive (browse-url-interactive-arg "URL: "))
761 (unless (interactive-p) 761 (unless (interactive-p)
762 (setq args (or args (list browse-url-new-window-flag)))) 762 (setq args (or args (list browse-url-new-window-flag))))
763 (if (functionp browse-url-browser-function) 763 (let ((process-environment (copy-sequence process-environment)))
764 (apply browse-url-browser-function url args) 764 ;; When connected to various displays, be careful to use the display of
765 ;; The `function' can be an alist; look down it for first match 765 ;; the currently selected frame, rather than the original start display,
766 ;; and apply the function (which might be a lambda). 766 ;; which may not even exist any more.
767 (catch 'done 767 (if (stringp (frame-parameter (selected-frame) 'display))
768 (dolist (bf browse-url-browser-function) 768 (setenv "DISPLAY" (frame-parameter (selected-frame) 'display)))
769 (when (string-match (car bf) url) 769 (if (functionp browse-url-browser-function)
770 (apply (cdr bf) url args) 770 (apply browse-url-browser-function url args)
771 (throw 'done t))) 771 ;; The `function' can be an alist; look down it for first match
772 (error "No browse-url-browser-function matching URL %s" 772 ;; and apply the function (which might be a lambda).
773 url)))) 773 (catch 'done
774 (dolist (bf browse-url-browser-function)
775 (when (string-match (car bf) url)
776 (apply (cdr bf) url args)
777 (throw 'done t)))
778 (error "No browse-url-browser-function matching URL %s"
779 url)))))
774 780
775;;;###autoload 781;;;###autoload
776(defun browse-url-at-point (&optional arg) 782(defun browse-url-at-point (&optional arg)
diff --git a/lisp/net/eudc-bob.el b/lisp/net/eudc-bob.el
index c6506fddb93..7aa6279d92d 100644
--- a/lisp/net/eudc-bob.el
+++ b/lisp/net/eudc-bob.el
@@ -1,6 +1,6 @@
1;;; eudc-bob.el --- Binary Objects Support for EUDC 1;;; eudc-bob.el --- Binary Objects Support for EUDC
2 2
3;; Copyright (C) 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Oscar Figueiredo <oscar@cpe.fr> 6;; Author: Oscar Figueiredo <oscar@cpe.fr>
diff --git a/lisp/net/eudc-export.el b/lisp/net/eudc-export.el
index c5f31c6b2f9..706c98df371 100644
--- a/lisp/net/eudc-export.el
+++ b/lisp/net/eudc-export.el
@@ -1,6 +1,6 @@
1;;; eudc-export.el --- functions to export EUDC query results 1;;; eudc-export.el --- functions to export EUDC query results
2 2
3;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Oscar Figueiredo <oscar@cpe.fr> 6;; Author: Oscar Figueiredo <oscar@cpe.fr>
diff --git a/lisp/net/eudc-hotlist.el b/lisp/net/eudc-hotlist.el
index 1e43e88dff4..84c4c2549e2 100644
--- a/lisp/net/eudc-hotlist.el
+++ b/lisp/net/eudc-hotlist.el
@@ -1,6 +1,6 @@
1;;; eudc-hotlist.el --- hotlist management for EUDC 1;;; eudc-hotlist.el --- hotlist management for EUDC
2 2
3;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Oscar Figueiredo <oscar@cpe.fr> 6;; Author: Oscar Figueiredo <oscar@cpe.fr>
diff --git a/lisp/net/eudc-vars.el b/lisp/net/eudc-vars.el
index 74e3deddc06..1cf449c6f52 100644
--- a/lisp/net/eudc-vars.el
+++ b/lisp/net/eudc-vars.el
@@ -1,6 +1,6 @@
1;;; eudc-vars.el --- Emacs Unified Directory Client 1;;; eudc-vars.el --- Emacs Unified Directory Client
2 2
3;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Oscar Figueiredo <oscar@cpe.fr> 6;; Author: Oscar Figueiredo <oscar@cpe.fr>
diff --git a/lisp/net/eudc.el b/lisp/net/eudc.el
index 2d5d8f6978d..d209fc26e0a 100644
--- a/lisp/net/eudc.el
+++ b/lisp/net/eudc.el
@@ -1,6 +1,6 @@
1;;; eudc.el --- Emacs Unified Directory Client 1;;; eudc.el --- Emacs Unified Directory Client
2 2
3;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Oscar Figueiredo <oscar@cpe.fr> 6;; Author: Oscar Figueiredo <oscar@cpe.fr>
diff --git a/lisp/net/eudcb-bbdb.el b/lisp/net/eudcb-bbdb.el
index 0fee937758e..a4350e7c285 100644
--- a/lisp/net/eudcb-bbdb.el
+++ b/lisp/net/eudcb-bbdb.el
@@ -1,6 +1,6 @@
1;;; eudcb-bbdb.el --- Emacs Unified Directory Client - BBDB Backend 1;;; eudcb-bbdb.el --- Emacs Unified Directory Client - BBDB Backend
2 2
3;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Oscar Figueiredo <oscar@cpe.fr> 6;; Author: Oscar Figueiredo <oscar@cpe.fr>
diff --git a/lisp/net/eudcb-ldap.el b/lisp/net/eudcb-ldap.el
index 9b6a77dd2e1..e48812ec2d9 100644
--- a/lisp/net/eudcb-ldap.el
+++ b/lisp/net/eudcb-ldap.el
@@ -1,6 +1,6 @@
1;;; eudcb-ldap.el --- Emacs Unified Directory Client - LDAP Backend 1;;; eudcb-ldap.el --- Emacs Unified Directory Client - LDAP Backend
2 2
3;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Oscar Figueiredo <oscar@cpe.fr> 6;; Author: Oscar Figueiredo <oscar@cpe.fr>
diff --git a/lisp/net/eudcb-mab.el b/lisp/net/eudcb-mab.el
index a734b90ecaf..77f9e71878f 100644
--- a/lisp/net/eudcb-mab.el
+++ b/lisp/net/eudcb-mab.el
@@ -3,6 +3,7 @@
3;; Copyright (C) 2003, 2004, 2005, 2006 Free Software Foundation, Inc. 3;; Copyright (C) 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
4 4
5;; Author: John Wiegley <johnw@newartisans.com> 5;; Author: John Wiegley <johnw@newartisans.com>
6;; Maintainer: FSF
6;; Keywords: comm 7;; Keywords: comm
7 8
8;; This file is part of GNU Emacs. 9;; This file is part of GNU Emacs.
diff --git a/lisp/net/eudcb-ph.el b/lisp/net/eudcb-ph.el
index 9edfc4870e5..44fe521b7b7 100644
--- a/lisp/net/eudcb-ph.el
+++ b/lisp/net/eudcb-ph.el
@@ -1,6 +1,6 @@
1;;; eudcb-ph.el --- Emacs Unified Directory Client - CCSO PH/QI Backend 1;;; eudcb-ph.el --- Emacs Unified Directory Client - CCSO PH/QI Backend
2 2
3;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Oscar Figueiredo <oscar@cpe.fr> 6;; Author: Oscar Figueiredo <oscar@cpe.fr>
diff --git a/lisp/net/ldap.el b/lisp/net/ldap.el
index 18b96a7cce1..7f936ed0bdb 100644
--- a/lisp/net/ldap.el
+++ b/lisp/net/ldap.el
@@ -1,6 +1,6 @@
1;;; ldap.el --- client interface to LDAP for Emacs 1;;; ldap.el --- client interface to LDAP for Emacs
2 2
3;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Oscar Figueiredo <oscar@cpe.fr> 6;; Author: Oscar Figueiredo <oscar@cpe.fr>
diff --git a/lisp/net/rcompile.el b/lisp/net/rcompile.el
index 158069986d2..b8bfdcc0166 100644
--- a/lisp/net/rcompile.el
+++ b/lisp/net/rcompile.el
@@ -1,6 +1,6 @@
1;;; rcompile.el --- run a compilation on a remote machine 1;;; rcompile.el --- run a compilation on a remote machine
2 2
3;; Copyright (C) 1993, 1994, 2002, 2003, 2004, 3;; Copyright (C) 1993, 1994, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Albert <alon@milcse.rtsg.mot.com> 6;; Author: Albert <alon@milcse.rtsg.mot.com>
diff --git a/lisp/net/rlogin.el b/lisp/net/rlogin.el
index 74b9e034f9a..6e8b073c639 100644
--- a/lisp/net/rlogin.el
+++ b/lisp/net/rlogin.el
@@ -1,7 +1,7 @@
1;;; rlogin.el --- remote login interface 1;;; rlogin.el --- remote login interface
2 2
3;; Copyright (C) 1992, 1993, 1994, 1995, 1997, 1998, 2002, 2003, 2004, 3;; Copyright (C) 1992, 1993, 1994, 1995, 1997, 1998, 2001, 2002, 2003,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2004, 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Noah Friedman 6;; Author: Noah Friedman
7;; Maintainer: Noah Friedman <friedman@splode.com> 7;; Maintainer: Noah Friedman <friedman@splode.com>
diff --git a/lisp/net/snmp-mode.el b/lisp/net/snmp-mode.el
index 62f6bb87b69..08f4659e5d9 100644
--- a/lisp/net/snmp-mode.el
+++ b/lisp/net/snmp-mode.el
@@ -1,6 +1,6 @@
1;;; snmp-mode.el --- SNMP & SNMPv2 MIB major mode 1;;; snmp-mode.el --- SNMP & SNMPv2 MIB major mode
2 2
3;; Copyright (C) 1995, 1998, 2002, 2003, 2004, 3;; Copyright (C) 1995, 1998, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Paul D. Smith <psmith@BayNetworks.com> 6;; Author: Paul D. Smith <psmith@BayNetworks.com>
diff --git a/lisp/net/telnet.el b/lisp/net/telnet.el
index 28bc552551b..1b0c50b4322 100644
--- a/lisp/net/telnet.el
+++ b/lisp/net/telnet.el
@@ -1,6 +1,6 @@
1;;; telnet.el --- run a telnet session from within an Emacs buffer 1;;; telnet.el --- run a telnet session from within an Emacs buffer
2 2
3;; Copyright (C) 1985, 1988, 1992, 1994, 2002, 2003, 2004, 3;; Copyright (C) 1985, 1988, 1992, 1994, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: William F. Schelter 6;; Author: William F. Schelter
diff --git a/lisp/net/webjump.el b/lisp/net/webjump.el
index e24ce702397..cbf298e2f10 100644
--- a/lisp/net/webjump.el
+++ b/lisp/net/webjump.el
@@ -1,6 +1,6 @@
1;;; webjump.el --- programmable Web hotlist 1;;; webjump.el --- programmable Web hotlist
2 2
3;; Copyright (C) 1996, 1997, 2002, 2003, 2004, 3;; Copyright (C) 1996, 1997, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Neil W. Van Dyke <nwv@acm.org> 6;; Author: Neil W. Van Dyke <nwv@acm.org>
diff --git a/lisp/obsolete/awk-mode.el b/lisp/obsolete/awk-mode.el
index 95c3a0582b7..7867af0c46c 100644
--- a/lisp/obsolete/awk-mode.el
+++ b/lisp/obsolete/awk-mode.el
@@ -1,6 +1,6 @@
1;;; awk-mode.el --- AWK code editing commands for Emacs 1;;; awk-mode.el --- AWK code editing commands for Emacs
2 2
3;; Copyright (C) 1988, 1994, 1996, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1988, 1994, 1996, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Maintainer: FSF 6;; Maintainer: FSF
diff --git a/lisp/obsolete/fast-lock.el b/lisp/obsolete/fast-lock.el
index de4b494826a..e2d1d16d2a6 100644
--- a/lisp/obsolete/fast-lock.el
+++ b/lisp/obsolete/fast-lock.el
@@ -1,6 +1,6 @@
1;;; fast-lock.el --- automagic text properties caching for fast Font Lock mode 1;;; fast-lock.el --- automagic text properties caching for fast Font Lock mode
2 2
3;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 2002, 2003, 2004, 3;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Simon Marshall <simon@gnu.org> 6;; Author: Simon Marshall <simon@gnu.org>
diff --git a/lisp/obsolete/float.el b/lisp/obsolete/float.el
index 32f0ef6a412..b065b4fe310 100644
--- a/lisp/obsolete/float.el
+++ b/lisp/obsolete/float.el
@@ -1,6 +1,6 @@
1;;; float.el --- obsolete floating point arithmetic package 1;;; float.el --- obsolete floating point arithmetic package
2 2
3;; Copyright (C) 1986, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1986, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Author: Bill Rosenblatt 6;; Author: Bill Rosenblatt
diff --git a/lisp/obsolete/hscroll.el b/lisp/obsolete/hscroll.el
index 0659c47c199..fdf5a7bfbea 100644
--- a/lisp/obsolete/hscroll.el
+++ b/lisp/obsolete/hscroll.el
@@ -1,6 +1,6 @@
1;;; hscroll.el --- automatically scroll truncated lines horizontally 1;;; hscroll.el --- automatically scroll truncated lines horizontally
2 2
3;; Copyright (C) 1992, 1993, 1995, 1996, 2002, 2003, 2004, 3;; Copyright (C) 1992, 1993, 1995, 1996, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Wayne Mesard <wmesard@esd.sgi.com> 6;; Author: Wayne Mesard <wmesard@esd.sgi.com>
diff --git a/lisp/obsolete/iso-insert.el b/lisp/obsolete/iso-insert.el
index 831ae3ffc1b..ac7d5d711ea 100644
--- a/lisp/obsolete/iso-insert.el
+++ b/lisp/obsolete/iso-insert.el
@@ -1,6 +1,7 @@
1;;; iso-insert.el --- insert functions for ISO 8859/1 -*- coding: iso-8859-1;-*- 1;;; iso-insert.el --- insert functions for ISO 8859/1 -*- coding: iso-8859-1;-*-
2 2
3;; Copyright (C) 1987, 1994, 2001 Free Software Foundation, Inc. 3;; Copyright (C) 1987, 1994, 2001, 2002, 2003, 2004, 2005, 2006
4;; Free Software Foundation, Inc.
4 5
5;; Author: Howard Gayle 6;; Author: Howard Gayle
6;; Maintainer: FSF 7;; Maintainer: FSF
diff --git a/lisp/obsolete/iso-swed.el b/lisp/obsolete/iso-swed.el
index 510efd32016..326029006cf 100644
--- a/lisp/obsolete/iso-swed.el
+++ b/lisp/obsolete/iso-swed.el
@@ -1,6 +1,6 @@
1;;; iso-swed.el --- set up char tables for ISO 8859/1 for Swedish/Finnish ttys 1;;; iso-swed.el --- set up char tables for ISO 8859/1 for Swedish/Finnish ttys
2 2
3;; Copyright (C) 1987, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1987, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Author: Howard Gayle 6;; Author: Howard Gayle
diff --git a/lisp/obsolete/keyswap.el b/lisp/obsolete/keyswap.el
index 61b5bbeb171..de5bd094b8f 100644
--- a/lisp/obsolete/keyswap.el
+++ b/lisp/obsolete/keyswap.el
@@ -1,6 +1,6 @@
1;;; keyswap.el --- swap BS and DEL keys -*- no-byte-compile: t -*- 1;;; keyswap.el --- swap BS and DEL keys -*- no-byte-compile: t -*-
2 2
3;; Copyright (C) 1992, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1992, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Author: Eric S. Raymond <esr@snark.thyrsus.com> 6;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
diff --git a/lisp/obsolete/mlsupport.el b/lisp/obsolete/mlsupport.el
index 68ee625cd8f..ffe89c4632a 100644
--- a/lisp/obsolete/mlsupport.el
+++ b/lisp/obsolete/mlsupport.el
@@ -1,6 +1,6 @@
1;;; mlsupport.el --- run-time support for mocklisp code 1;;; mlsupport.el --- run-time support for mocklisp code
2 2
3;; Copyright (C) 1985, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1985, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Maintainer: FSF 6;; Maintainer: FSF
diff --git a/lisp/obsolete/ooutline.el b/lisp/obsolete/ooutline.el
index 83f6fa69f30..0795031290e 100644
--- a/lisp/obsolete/ooutline.el
+++ b/lisp/obsolete/ooutline.el
@@ -1,6 +1,6 @@
1;;; ooutline.el --- outline mode commands for Emacs 1;;; ooutline.el --- outline mode commands for Emacs
2 2
3;; Copyright (C) 1986, 1993, 1994, 1997, 2002, 2003, 2004, 3;; Copyright (C) 1986, 1993, 1994, 1997, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Maintainer: FSF 6;; Maintainer: FSF
diff --git a/lisp/obsolete/options.el b/lisp/obsolete/options.el
index 968a0bac5f6..78847e3b277 100644
--- a/lisp/obsolete/options.el
+++ b/lisp/obsolete/options.el
@@ -1,6 +1,6 @@
1;;; options.el --- edit Options command for Emacs 1;;; options.el --- edit Options command for Emacs
2 2
3;; Copyright (C) 1985, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1985, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Maintainer: FSF 6;; Maintainer: FSF
diff --git a/lisp/obsolete/profile.el b/lisp/obsolete/profile.el
index 80b27063dbc..34170a85bc8 100644
--- a/lisp/obsolete/profile.el
+++ b/lisp/obsolete/profile.el
@@ -1,6 +1,6 @@
1;;; profile.el --- Emacs profiler (OBSOLETE; use elp.el instead) 1;;; profile.el --- Emacs profiler (OBSOLETE; use elp.el instead)
2 2
3;; Copyright (C) 1992, 1994, 1998, 2002, 2003, 2004, 3;; Copyright (C) 1992, 1994, 1998, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Boaz Ben-Zvi <boaz@lcs.mit.edu> 6;; Author: Boaz Ben-Zvi <boaz@lcs.mit.edu>
diff --git a/lisp/obsolete/rnews.el b/lisp/obsolete/rnews.el
index 89c74dd7993..d414a863884 100644
--- a/lisp/obsolete/rnews.el
+++ b/lisp/obsolete/rnews.el
@@ -1,6 +1,6 @@
1;;; rnews.el --- USENET news reader for GNU Emacs 1;;; rnews.el --- USENET news reader for GNU Emacs
2 2
3;; Copyright (C) 1985, 1986, 1987, 2002, 2003, 2004, 3;; Copyright (C) 1985, 1986, 1987, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Maintainer: FSF 6;; Maintainer: FSF
diff --git a/lisp/obsolete/rnewspost.el b/lisp/obsolete/rnewspost.el
index f07ce703db8..e570715f529 100644
--- a/lisp/obsolete/rnewspost.el
+++ b/lisp/obsolete/rnewspost.el
@@ -1,6 +1,6 @@
1;;; rnewspost.el --- USENET news poster/mailer for GNU Emacs 1;;; rnewspost.el --- USENET news poster/mailer for GNU Emacs
2 2
3;; Copyright (C) 1985, 1986, 1987, 1995, 2002, 2003, 2004, 3;; Copyright (C) 1985, 1986, 1987, 1995, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Maintainer: FSF 6;; Maintainer: FSF
diff --git a/lisp/obsolete/rsz-mini.el b/lisp/obsolete/rsz-mini.el
index a9e4b007dd8..ce9cae3ff30 100644
--- a/lisp/obsolete/rsz-mini.el
+++ b/lisp/obsolete/rsz-mini.el
@@ -1,6 +1,6 @@
1;;; rsz-mini.el --- dynamically resize minibuffer to display entire contents 1;;; rsz-mini.el --- dynamically resize minibuffer to display entire contents
2 2
3;; Copyright (C) 1990, 1993, 1994, 1995, 1997, 2002, 2003, 2004, 3;; Copyright (C) 1990, 1993, 1994, 1995, 1997, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Noah Friedman <friedman@splode.com> 6;; Author: Noah Friedman <friedman@splode.com>
diff --git a/lisp/obsolete/scribe.el b/lisp/obsolete/scribe.el
index 905e63ea1c5..1573d0ff859 100644
--- a/lisp/obsolete/scribe.el
+++ b/lisp/obsolete/scribe.el
@@ -1,6 +1,6 @@
1;;; scribe.el --- scribe mode, and its idiosyncratic commands 1;;; scribe.el --- scribe mode, and its idiosyncratic commands
2 2
3;; Copyright (C) 1985, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1985, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Maintainer: FSF 6;; Maintainer: FSF
diff --git a/lisp/obsolete/sun-curs.el b/lisp/obsolete/sun-curs.el
index faa55fb8dd5..8d399e852d8 100644
--- a/lisp/obsolete/sun-curs.el
+++ b/lisp/obsolete/sun-curs.el
@@ -1,6 +1,6 @@
1;;; sun-curs.el --- cursor definitions for Sun windows 1;;; sun-curs.el --- cursor definitions for Sun windows
2 2
3;; Copyright (C) 1987, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1987, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Author: Jeff Peck <peck@sun.com> 6;; Author: Jeff Peck <peck@sun.com>
diff --git a/lisp/obsolete/sun-fns.el b/lisp/obsolete/sun-fns.el
index 532d28462c9..eaedf59adc4 100644
--- a/lisp/obsolete/sun-fns.el
+++ b/lisp/obsolete/sun-fns.el
@@ -1,6 +1,6 @@
1;;; sun-fns.el --- subroutines of Mouse handling for Sun windows 1;;; sun-fns.el --- subroutines of Mouse handling for Sun windows
2 2
3;; Copyright (C) 1987, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1987, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Author: Jeff Peck <peck@sun.com> 6;; Author: Jeff Peck <peck@sun.com>
diff --git a/lisp/obsolete/swedish.el b/lisp/obsolete/swedish.el
index a247d565643..b54b27c1843 100644
--- a/lisp/obsolete/swedish.el
+++ b/lisp/obsolete/swedish.el
@@ -1,6 +1,7 @@
1;;; swedish.el --- miscellaneous functions for dealing with Swedish 1;;; swedish.el --- miscellaneous functions for dealing with Swedish
2 2
3;; Copyright (C) 1988, 2001 Free Software Foundation, Inc. 3;; Copyright (C) 1988, 2001, 2002, 2003, 2004, 2005, 2006
4;; Free Software Foundation, Inc.
4 5
5;; Author: Howard Gayle 6;; Author: Howard Gayle
6;; Maintainer: FSF 7;; Maintainer: FSF
diff --git a/lisp/obsolete/x-apollo.el b/lisp/obsolete/x-apollo.el
index 869f63481ee..e67a8f09fd4 100644
--- a/lisp/obsolete/x-apollo.el
+++ b/lisp/obsolete/x-apollo.el
@@ -1,6 +1,6 @@
1;;; x-apollo.el --- Apollo support functions 1;;; x-apollo.el --- Apollo support functions
2 2
3;; Copyright (C) 1995, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1995, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; This file is part of GNU Emacs. 6;; This file is part of GNU Emacs.
diff --git a/lisp/obsolete/x-menu.el b/lisp/obsolete/x-menu.el
index c13c9c1865b..eff1fbffb08 100644
--- a/lisp/obsolete/x-menu.el
+++ b/lisp/obsolete/x-menu.el
@@ -1,6 +1,6 @@
1;;; x-menu.el --- menu support for X 1;;; x-menu.el --- menu support for X
2 2
3;; Copyright (C) 1986, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1986, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; This file is part of GNU Emacs. 6;; This file is part of GNU Emacs.
diff --git a/lisp/play/5x5.el b/lisp/play/5x5.el
index db76fbb7725..c9850c3afab 100644
--- a/lisp/play/5x5.el
+++ b/lisp/play/5x5.el
@@ -1,6 +1,6 @@
1;;; 5x5.el --- simple little puzzle game 1;;; 5x5.el --- simple little puzzle game
2 2
3;; Copyright (C) 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Dave Pearson <davep@davep.org> 6;; Author: Dave Pearson <davep@davep.org>
diff --git a/lisp/play/bruce.el b/lisp/play/bruce.el
index 98294884ebd..185cb5ad264 100644
--- a/lisp/play/bruce.el
+++ b/lisp/play/bruce.el
@@ -1,7 +1,7 @@
1;;; bruce.el --- bruce phrase utility for overloading the Communications -*- no-byte-compile: t -*- 1;;; bruce.el --- bruce phrase utility for overloading the Communications -*- no-byte-compile: t -*-
2;;; Decency Act snoops, if any. 2;;; Decency Act snoops, if any.
3 3
4;; Copyright (C) 1988, 1993, 1997, 2002, 2003, 2004, 4;; Copyright (C) 1988, 1993, 1997, 2001, 2002, 2003, 2004,
5;; 2005, 2006 Free Software Foundation, Inc. 5;; 2005, 2006 Free Software Foundation, Inc.
6 6
7;; Maintainer: FSF 7;; Maintainer: FSF
diff --git a/lisp/play/cookie1.el b/lisp/play/cookie1.el
index 7a2e6c602ea..c4c90a83c36 100644
--- a/lisp/play/cookie1.el
+++ b/lisp/play/cookie1.el
@@ -1,6 +1,6 @@
1;;; cookie1.el --- retrieve random phrases from fortune cookie files 1;;; cookie1.el --- retrieve random phrases from fortune cookie files
2 2
3;; Copyright (C) 1993, 2002, 2003, 2004, 2005, 2006, 3;; Copyright (C) 1993, 2001, 2002, 2003, 2004, 2005, 2006,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Author: Eric S. Raymond <esr@snark.thyrsus.com> 6;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
diff --git a/lisp/play/decipher.el b/lisp/play/decipher.el
index 88b5f2ace46..a8e4ec4c48b 100644
--- a/lisp/play/decipher.el
+++ b/lisp/play/decipher.el
@@ -1,6 +1,6 @@
1;;; decipher.el --- cryptanalyze monoalphabetic substitution ciphers 1;;; decipher.el --- cryptanalyze monoalphabetic substitution ciphers
2;; 2;;
3;; Copyright (C) 1995, 1996, 2002, 2003, 2004, 3;; Copyright (C) 1995, 1996, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5;; 5;;
6;; Author: Christopher J. Madsen <chris_madsen@geocities.com> 6;; Author: Christopher J. Madsen <chris_madsen@geocities.com>
diff --git a/lisp/play/dissociate.el b/lisp/play/dissociate.el
index ce1f8b55432..b6333234523 100644
--- a/lisp/play/dissociate.el
+++ b/lisp/play/dissociate.el
@@ -1,6 +1,6 @@
1;;; dissociate.el --- scramble text amusingly for Emacs 1;;; dissociate.el --- scramble text amusingly for Emacs
2 2
3;; Copyright (C) 1985, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1985, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Maintainer: FSF 6;; Maintainer: FSF
diff --git a/lisp/play/doctor.el b/lisp/play/doctor.el
index 32dfd6254c3..9a3c45cb3aa 100644
--- a/lisp/play/doctor.el
+++ b/lisp/play/doctor.el
@@ -1,6 +1,6 @@
1;;; doctor.el --- psychological help for frustrated users 1;;; doctor.el --- psychological help for frustrated users
2 2
3;; Copyright (C) 1985, 1987, 1994, 1996, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1985, 1987, 1994, 1996, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Maintainer: FSF 6;; Maintainer: FSF
diff --git a/lisp/play/gamegrid.el b/lisp/play/gamegrid.el
index 3cc91226fe8..5b41cffbb8a 100644
--- a/lisp/play/gamegrid.el
+++ b/lisp/play/gamegrid.el
@@ -1,6 +1,6 @@
1;;; gamegrid.el --- library for implementing grid-based games on Emacs 1;;; gamegrid.el --- library for implementing grid-based games on Emacs
2 2
3;; Copyright (C) 1997, 1998, 2002, 2003, 2004, 3;; Copyright (C) 1997, 1998, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Glynn Clements <glynn@sensei.co.uk> 6;; Author: Glynn Clements <glynn@sensei.co.uk>
diff --git a/lisp/play/gametree.el b/lisp/play/gametree.el
index 82eef652f52..cb556bc0b42 100644
--- a/lisp/play/gametree.el
+++ b/lisp/play/gametree.el
@@ -1,6 +1,6 @@
1;;; gametree.el --- manage game analysis trees in Emacs 1;;; gametree.el --- manage game analysis trees in Emacs
2 2
3;; Copyright (C) 1997, 1999, 2002, 2003, 2004, 3;; Copyright (C) 1997, 1999, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Ian T Zimmerman <itz@rahul.net> 6;; Author: Ian T Zimmerman <itz@rahul.net>
diff --git a/lisp/play/handwrite.el b/lisp/play/handwrite.el
index 578f9a8e0b6..a1dc520973e 100644
--- a/lisp/play/handwrite.el
+++ b/lisp/play/handwrite.el
@@ -1,6 +1,6 @@
1;;; handwrite.el --- turns your emacs buffer into a handwritten document -*- coding: iso-latin-1; -*- 1;;; handwrite.el --- turns your emacs buffer into a handwritten document -*- coding: iso-latin-1; -*-
2 2
3;; Copyright (C) 1996, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1996, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Author: Danny Roozendaal (was: <danny@tvs.kun.nl>) 6;; Author: Danny Roozendaal (was: <danny@tvs.kun.nl>)
diff --git a/lisp/play/landmark.el b/lisp/play/landmark.el
index f947a8caeaa..3df56133135 100644
--- a/lisp/play/landmark.el
+++ b/lisp/play/landmark.el
@@ -1,6 +1,6 @@
1;;; landmark.el --- neural-network robot that learns landmarks 1;;; landmark.el --- neural-network robot that learns landmarks
2 2
3;; Copyright (C) 1996, 1997, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1996, 1997, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Terrence Brannon (was: <brannon@rana.usc.edu>) 6;; Author: Terrence Brannon (was: <brannon@rana.usc.edu>)
diff --git a/lisp/play/morse.el b/lisp/play/morse.el
index bf5abdfbd4c..8d569ed3845 100644
--- a/lisp/play/morse.el
+++ b/lisp/play/morse.el
@@ -1,6 +1,6 @@
1;;; morse.el --- convert text to morse code and back -*- coding: utf-8 -*- 1;;; morse.el --- convert text to morse code and back -*- coding: utf-8 -*-
2 2
3;; Copyright (C) 1995, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1995, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Author: Rick Farnbach <rick_farnbach@MENTORG.COM> 6;; Author: Rick Farnbach <rick_farnbach@MENTORG.COM>
diff --git a/lisp/play/mpuz.el b/lisp/play/mpuz.el
index ebeeb3159f8..6d1cb7a96f6 100644
--- a/lisp/play/mpuz.el
+++ b/lisp/play/mpuz.el
@@ -1,6 +1,6 @@
1;;; mpuz.el --- multiplication puzzle for GNU Emacs 1;;; mpuz.el --- multiplication puzzle for GNU Emacs
2 2
3;; Copyright (C) 1990, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1990, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Author: Philippe Schnoebelen <phs@lsv.ens-cachan.fr> 6;; Author: Philippe Schnoebelen <phs@lsv.ens-cachan.fr>
diff --git a/lisp/play/snake.el b/lisp/play/snake.el
index ae942212a18..db15e98c47b 100644
--- a/lisp/play/snake.el
+++ b/lisp/play/snake.el
@@ -1,6 +1,6 @@
1;;; snake.el --- implementation of Snake for Emacs 1;;; snake.el --- implementation of Snake for Emacs
2 2
3;; Copyright (C) 1997, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1997, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Author: Glynn Clements <glynn@sensei.co.uk> 6;; Author: Glynn Clements <glynn@sensei.co.uk>
diff --git a/lisp/play/solitaire.el b/lisp/play/solitaire.el
index d6faeb5e5ad..a67021c8764 100644
--- a/lisp/play/solitaire.el
+++ b/lisp/play/solitaire.el
@@ -1,6 +1,6 @@
1;;; solitaire.el --- game of solitaire in Emacs Lisp 1;;; solitaire.el --- game of solitaire in Emacs Lisp
2 2
3;; Copyright (C) 1994, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1994, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Author: Jan Schormann <Jan.Schormann@rechen-gilde.de> 6;; Author: Jan Schormann <Jan.Schormann@rechen-gilde.de>
diff --git a/lisp/play/spook.el b/lisp/play/spook.el
index fbad9ab0f13..828b0a594af 100644
--- a/lisp/play/spook.el
+++ b/lisp/play/spook.el
@@ -1,6 +1,6 @@
1;;; spook.el --- spook phrase utility for overloading the NSA line eater 1;;; spook.el --- spook phrase utility for overloading the NSA line eater
2 2
3;; Copyright (C) 1988, 1993, 2002, 2003, 2004, 3;; Copyright (C) 1988, 1993, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Maintainer: FSF 6;; Maintainer: FSF
diff --git a/lisp/play/tetris.el b/lisp/play/tetris.el
index 531d61e20e6..f9fc3f9f0ab 100644
--- a/lisp/play/tetris.el
+++ b/lisp/play/tetris.el
@@ -1,6 +1,6 @@
1;;; tetris.el --- implementation of Tetris for Emacs 1;;; tetris.el --- implementation of Tetris for Emacs
2 2
3;; Copyright (C) 1997, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1997, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Author: Glynn Clements <glynn@sensei.co.uk> 6;; Author: Glynn Clements <glynn@sensei.co.uk>
diff --git a/lisp/play/yow.el b/lisp/play/yow.el
index b86ad9d4c66..cc79c5a87a5 100644
--- a/lisp/play/yow.el
+++ b/lisp/play/yow.el
@@ -1,6 +1,6 @@
1;;; yow.el --- quote random zippyisms 1;;; yow.el --- quote random zippyisms
2 2
3;; Copyright (C) 1993, 1994, 1995, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1993, 1994, 1995, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Maintainer: FSF 6;; Maintainer: FSF
diff --git a/lisp/progmodes/autoconf.el b/lisp/progmodes/autoconf.el
index fe021d04cea..08a849b16bc 100644
--- a/lisp/progmodes/autoconf.el
+++ b/lisp/progmodes/autoconf.el
@@ -1,6 +1,6 @@
1;;; autoconf.el --- mode for editing Autoconf configure.in files 1;;; autoconf.el --- mode for editing Autoconf configure.in files
2 2
3;; Copyright (C) 2000, 2001, 2002 2003, 2004, 2005, 2006 3;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006
4;; Free Software Foundation, Inc. 4;; Free Software Foundation, Inc.
5 5
6;; Author: Dave Love <fx@gnu.org> 6;; Author: Dave Love <fx@gnu.org>
diff --git a/lisp/progmodes/cc-fonts.el b/lisp/progmodes/cc-fonts.el
index 8473eee90a2..ab31fa877f7 100644
--- a/lisp/progmodes/cc-fonts.el
+++ b/lisp/progmodes/cc-fonts.el
@@ -1179,7 +1179,7 @@ casts and declarations are fontified. Used on level 2 and higher."
1179 ;; The below code attempts to fontify the case constants in 1179 ;; The below code attempts to fontify the case constants in
1180 ;; c-label-face-name, but it cannot catch every case [sic]. 1180 ;; c-label-face-name, but it cannot catch every case [sic].
1181 ;; And do we want to fontify case constants anyway? 1181 ;; And do we want to fontify case constants anyway?
1182 nil 1182 (c-forward-label t match-pos nil)
1183;;; (when (c-forward-label t match-pos nil) 1183;;; (when (c-forward-label t match-pos nil)
1184;;; ;; Can't use `c-fontify-types-and-refs' here since we 1184;;; ;; Can't use `c-fontify-types-and-refs' here since we
1185;;; ;; should use the label face. 1185;;; ;; should use the label face.
diff --git a/lisp/progmodes/cc-langs.el b/lisp/progmodes/cc-langs.el
index 73ea6de9b05..bd9af00d9c6 100644
--- a/lisp/progmodes/cc-langs.el
+++ b/lisp/progmodes/cc-langs.el
@@ -1331,7 +1331,7 @@ properly."
1331(c-lang-defconst c-at-vsemi-p-fn 1331(c-lang-defconst c-at-vsemi-p-fn
1332 "Contains a function \"Is there a virtual semicolon at POS or point?\". 1332 "Contains a function \"Is there a virtual semicolon at POS or point?\".
1333Such a function takes one optional parameter, a buffer position (defaults to 1333Such a function takes one optional parameter, a buffer position (defaults to
1334point), and returns NIL or t. This variable contains NIL for languages which 1334point), and returns nil or t. This variable contains nil for languages which
1335don't have EOL terminated statements. " 1335don't have EOL terminated statements. "
1336 t nil 1336 t nil
1337 awk 'c-awk-at-vsemi-p) 1337 awk 'c-awk-at-vsemi-p)
@@ -1342,7 +1342,7 @@ don't have EOL terminated statements. "
1342The (admittedly kludgey) purpose of such a function is to prevent an infinite 1342The (admittedly kludgey) purpose of such a function is to prevent an infinite
1343recursion in c-beginning-of-statement-1 when point starts at a `while' token. 1343recursion in c-beginning-of-statement-1 when point starts at a `while' token.
1344The function MUST NOT UNDER ANY CIRCUMSTANCES call c-beginning-of-statement-1, 1344The function MUST NOT UNDER ANY CIRCUMSTANCES call c-beginning-of-statement-1,
1345even indirectly. This variable contains NIL for languages which don't have 1345even indirectly. This variable contains nil for languages which don't have
1346EOL terminated statements." 1346EOL terminated statements."
1347 t nil 1347 t nil
1348 awk 'c-awk-vsemi-status-unknown-p) 1348 awk 'c-awk-vsemi-status-unknown-p)
diff --git a/lisp/progmodes/glasses.el b/lisp/progmodes/glasses.el
index 90e6fbe3df3..50d01e9d2e5 100644
--- a/lisp/progmodes/glasses.el
+++ b/lisp/progmodes/glasses.el
@@ -1,6 +1,7 @@
1;;; glasses.el --- make cantReadThis readable 1;;; glasses.el --- make cantReadThis readable
2 2
3;; Copyright (C) 1999, 2000, 2001, 2005, 2006 Free Software Foundation, Inc. 3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
4;; Free Software Foundation, Inc.
4 5
5;; Author: Milan Zamazal <pdm@zamazal.org> 6;; Author: Milan Zamazal <pdm@zamazal.org>
6;; Maintainer: Milan Zamazal <pdm@zamazal.org> 7;; Maintainer: Milan Zamazal <pdm@zamazal.org>
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index fc7c303c491..adc6cd5194d 100644
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -486,7 +486,7 @@ required by the caller."
486 (car (nth 1 var-list)))) 486 (car (nth 1 var-list))))
487 (setq char ?-) 487 (setq char ?-)
488 (setq char ?+)) 488 (setq char ?+))
489 (if (string-match "\\*$" type) 489 (if (string-match "\\*$\\|\\*&$" type)
490 (speedbar-make-tag-line 490 (speedbar-make-tag-line
491 'bracket char 491 'bracket char
492 'gdb-speedbar-expand-node varnum 492 'gdb-speedbar-expand-node varnum
diff --git a/lisp/progmodes/idlw-help.el b/lisp/progmodes/idlw-help.el
index 1d370244523..9b812809352 100644
--- a/lisp/progmodes/idlw-help.el
+++ b/lisp/progmodes/idlw-help.el
@@ -1,7 +1,6 @@
1;;; idlw-help.el --- HTML Help code for IDLWAVE 1;;; idlw-help.el --- HTML Help code for IDLWAVE
2;; Copyright (c) 2000 Carsten Dominik 2;; Copyright (c) 2000, 2001, 2002, 2003, 2004, 2005, 2006
3;; Copyright (c) 2001, 2002 J.D. Smith 3;; Free Software Foundation
4;; Copyright (c) 2003,2004,2005,2006 Free Software Foundation
5;; 4;;
6;; Authors: J.D. Smith <jdsmith@as.arizona.edu> 5;; Authors: J.D. Smith <jdsmith@as.arizona.edu>
7;; Carsten Dominik <dominik@science.uva.nl> 6;; Carsten Dominik <dominik@science.uva.nl>
diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el
index f33ae35ed30..25f05b54b74 100644
--- a/lisp/progmodes/idlwave.el
+++ b/lisp/progmodes/idlwave.el
@@ -427,11 +427,11 @@ t means to show all source files."
427 :type 'integer) 427 :type 'integer)
428 428
429(defcustom idlwave-library-path nil 429(defcustom idlwave-library-path nil
430 "Library path for Windows and MacOS (OS9). Not needed under Unix. 430 "Library path for Windows and MacOS (OS9). Not needed under UNIX.
431When selecting the directories to scan for IDL user catalog routine 431When selecting the directories to scan for IDL user catalog routine
432info, IDLWAVE can, under UNIX, query the shell for the exact search 432info, IDLWAVE can, under UNIX, query the shell for the exact search
433path \(the value of !PATH). However, under Windows and MacOS 433path \(the value of !PATH). However, under Windows and MacOS
434(pre-OSX), the IDLWAVE shell does not work. In this case, this 434\(pre-OSX), the IDLWAVE shell does not work. In this case, this
435variable can be set to specify the paths where IDLWAVE can find PRO 435variable can be set to specify the paths where IDLWAVE can find PRO
436files. The shell will only be asked for a list of paths when this 436files. The shell will only be asked for a list of paths when this
437variable is nil. The value is a list of directories. A directory 437variable is nil. The value is a list of directories. A directory
@@ -1595,7 +1595,7 @@ Capitalize system variables - action only
1595(define-key idlwave-mode-map "\C-c\C-t" 'idlwave-find-module-this-file) 1595(define-key idlwave-mode-map "\C-c\C-t" 'idlwave-find-module-this-file)
1596(define-key idlwave-mode-map "\C-c?" 'idlwave-routine-info) 1596(define-key idlwave-mode-map "\C-c?" 'idlwave-routine-info)
1597(define-key idlwave-mode-map "\M-?" 'idlwave-context-help) 1597(define-key idlwave-mode-map "\M-?" 'idlwave-context-help)
1598(define-key idlwave-mode-map [(control meta ?\?)] 1598(define-key idlwave-mode-map [(control meta ?\?)]
1599 'idlwave-help-assistant-help-with-topic) 1599 'idlwave-help-assistant-help-with-topic)
1600;; Pickup both forms of Esc/Meta binding 1600;; Pickup both forms of Esc/Meta binding
1601(define-key idlwave-mode-map [(meta tab)] 'idlwave-complete) 1601(define-key idlwave-mode-map [(meta tab)] 'idlwave-complete)
@@ -1942,7 +1942,7 @@ The main features of this mode are
1942 (set (make-local-variable 'parse-sexp-ignore-comments) t) 1942 (set (make-local-variable 'parse-sexp-ignore-comments) t)
1943 1943
1944 ;; ChangeLog 1944 ;; ChangeLog
1945 (set (make-local-variable 'add-log-current-defun-function) 1945 (set (make-local-variable 'add-log-current-defun-function)
1946 'idlwave-current-routine-fullname) 1946 'idlwave-current-routine-fullname)
1947 1947
1948 ;; Set tag table list to use IDLTAGS as file name. 1948 ;; Set tag table list to use IDLTAGS as file name.
@@ -9236,7 +9236,7 @@ Assumes that point is at the beginning of the unit as found by
9236 "--" 9236 "--"
9237 ["Info" idlwave-info t] 9237 ["Info" idlwave-info t]
9238 "--" 9238 "--"
9239 ["Help with Topic" idlwave-help-assistant-help-with-topic 9239 ["Help with Topic" idlwave-help-assistant-help-with-topic
9240 idlwave-help-use-assistant] 9240 idlwave-help-use-assistant]
9241 ["Launch IDL Help" idlwave-launch-idlhelp t]))) 9241 ["Launch IDL Help" idlwave-launch-idlhelp t])))
9242 9242
diff --git a/lisp/progmodes/ld-script.el b/lisp/progmodes/ld-script.el
index 4f0159c5992..461c8b9bcf1 100644
--- a/lisp/progmodes/ld-script.el
+++ b/lisp/progmodes/ld-script.el
@@ -89,7 +89,7 @@
89 ;; 3.5.2 PROVIDE 89 ;; 3.5.2 PROVIDE
90 "PROVIDE" 90 "PROVIDE"
91 ;; 3.5.3 PROVIDE_HIDDEN 91 ;; 3.5.3 PROVIDE_HIDDEN
92 "PROVIDE_HIDEN" 92 "PROVIDE_HIDDEN"
93 ;; 3.6 SECTIONS Command 93 ;; 3.6 SECTIONS Command
94 "SECTIONS" 94 "SECTIONS"
95 ;; 3.6.4.2 Input Section Wildcard Patterns 95 ;; 3.6.4.2 Input Section Wildcard Patterns
diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el
index 73957cab8e9..de2a00c3ad7 100644
--- a/lisp/progmodes/sh-script.el
+++ b/lisp/progmodes/sh-script.el
@@ -1,7 +1,7 @@
1;;; sh-script.el --- shell-script editing commands for Emacs 1;;; sh-script.el --- shell-script editing commands for Emacs
2 2
3;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 1999, 2001, 2003, 2004, 2005, 3;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 1999, 2001, 2002,
4;; 2006 Free Software Foundation, Inc. 4;; 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Daniel Pfeiffer <occitan@esperanto.org> 6;; Author: Daniel Pfeiffer <occitan@esperanto.org>
7;; Version: 2.0f 7;; Version: 2.0f
diff --git a/lisp/progmodes/simula.el b/lisp/progmodes/simula.el
index 891549ac2aa..4c689a79fc7 100644
--- a/lisp/progmodes/simula.el
+++ b/lisp/progmodes/simula.el
@@ -1,6 +1,6 @@
1;;; simula.el --- SIMULA 87 code editing commands for Emacs 1;;; simula.el --- SIMULA 87 code editing commands for Emacs
2 2
3;; Copyright (C) 1992, 1994, 1996 2001, 2002, 2003, 2004, 2005, 2006 3;; Copyright (C) 1992, 1994, 1996, 2001, 2002, 2003, 2004, 2005, 2006
4;; Free Software Foundation, Inc. 4;; Free Software Foundation, Inc.
5 5
6;; Author: Hans Henrik Eriksen <hhe@ifi.uio.no> 6;; Author: Hans Henrik Eriksen <hhe@ifi.uio.no>
diff --git a/lisp/ps-bdf.el b/lisp/ps-bdf.el
index 3e18586489b..a19c0f02651 100644
--- a/lisp/ps-bdf.el
+++ b/lisp/ps-bdf.el
@@ -1,10 +1,11 @@
1;;; ps-bdf.el --- BDF font file handler for ps-print 1;;; ps-bdf.el --- BDF font file handler for ps-print
2 2
3;; Copyright (C) 1998, 1999, 2001, 2002, 2003, 2006 3;; Copyright (C) 1998, 1999, 2001, 2002, 2003, 2004, 2005, 2006
4;; Free Software Foundation, Inc. 4;; Free Software Foundation, Inc.
5;; Copyright (C) 1998, 1999, 2001, 2003 5;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
6;; National Institute of Advanced Industrial Science and Technology (AIST) 6;; National Institute of Advanced Industrial Science and Technology (AIST)
7;; Registration Number H14PRO021 7;; Registration Number H14PRO021
8
8;; Copyright (C) 2003 9;; Copyright (C) 2003
9;; National Institute of Advanced Industrial Science and Technology (AIST) 10;; National Institute of Advanced Industrial Science and Technology (AIST)
10;; Registration Number H13PRO009 11;; Registration Number H13PRO009
diff --git a/lisp/replace.el b/lisp/replace.el
index 4275aef8d87..610fd9d2e9f 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -1341,7 +1341,7 @@ with the `noescape' argument set.
1341 1341
1342(defun replace-match-data (integers reuse &optional new) 1342(defun replace-match-data (integers reuse &optional new)
1343 "Like `match-data', but markers in REUSE get invalidated. 1343 "Like `match-data', but markers in REUSE get invalidated.
1344If NEW is non-NIL, it is set and returned instead of fresh data, 1344If NEW is non-nil, it is set and returned instead of fresh data,
1345but coerced to the correct value of INTEGERS." 1345but coerced to the correct value of INTEGERS."
1346 (or (and new 1346 (or (and new
1347 (progn 1347 (progn
@@ -1357,7 +1357,7 @@ NEWTEXT, FIXEDCASE, LITERAL are just passed on. If NOEDIT is true, no
1357check for `\\?' is made to save time. MATCH-DATA is used for the 1357check for `\\?' is made to save time. MATCH-DATA is used for the
1358replacement. In case editing is done, it is changed to use markers. 1358replacement. In case editing is done, it is changed to use markers.
1359 1359
1360The return value is non-NIL if there has been no `\\?' or NOEDIT was 1360The return value is non-nil if there has been no `\\?' or NOEDIT was
1361passed in. If LITERAL is set, no checking is done, anyway." 1361passed in. If LITERAL is set, no checking is done, anyway."
1362 (unless (or literal noedit) 1362 (unless (or literal noedit)
1363 (setq noedit t) 1363 (setq noedit t)
@@ -1486,7 +1486,7 @@ make, or the user didn't cancel the call."
1486 ;; For speed, use only integers and 1486 ;; For speed, use only integers and
1487 ;; reuse the list used last time. 1487 ;; reuse the list used last time.
1488 (replace-match-data t real-match-data))))) 1488 (replace-match-data t real-match-data)))))
1489 1489
1490 ;; Record whether the match is nonempty, to avoid an infinite loop 1490 ;; Record whether the match is nonempty, to avoid an infinite loop
1491 ;; repeatedly matching the same empty string. 1491 ;; repeatedly matching the same empty string.
1492 (setq nonempty-match 1492 (setq nonempty-match
diff --git a/lisp/shell.el b/lisp/shell.el
index 2b1b6a907e4..27220b54ab0 100644
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -520,10 +520,10 @@ If BUFFER exists but shell process is not running, make new shell.
520If BUFFER exists and shell process is running, just switch to BUFFER. 520If BUFFER exists and shell process is running, just switch to BUFFER.
521Program used comes from variable `explicit-shell-file-name', 521Program used comes from variable `explicit-shell-file-name',
522 or (if that is nil) from the ESHELL environment variable, 522 or (if that is nil) from the ESHELL environment variable,
523 or else from SHELL if there is no ESHELL. 523 or (if that is nil) from `shell-file-name'.
524If a file `~/.emacs_SHELLNAME' exists, or `~/.emacs.d/init_SHELLNAME.sh', 524If a file `~/.emacs_SHELLNAME' exists, or `~/.emacs.d/init_SHELLNAME.sh',
525it is given as initial input (Note that this may lose due to a timing 525it is given as initial input (but this may be lost, due to a timing
526error if the shell discards input when it starts up). 526error, if the shell discards input when it starts up).
527The buffer is put in Shell mode, giving commands for sending input 527The buffer is put in Shell mode, giving commands for sending input
528and controlling the subjobs of the shell. See `shell-mode'. 528and controlling the subjobs of the shell. See `shell-mode'.
529See also the variable `shell-prompt-pattern'. 529See also the variable `shell-prompt-pattern'.
diff --git a/lisp/startup.el b/lisp/startup.el
index 74101a2bea3..f086ab7c6d8 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1455,9 +1455,12 @@ we put it on this frame."
1455 (if (and (display-color-p) 1455 (if (and (display-color-p)
1456 (image-type-available-p 'xpm)) 1456 (image-type-available-p 'xpm))
1457 "splash.xpm" "splash.pbm")))) 1457 "splash.xpm" "splash.pbm"))))
1458 (image-height (and img (cdr (image-size img)))) 1458 (image-height (and img (cdr (image-size img nil frame))))
1459 (window-height (1- (window-height (frame-selected-window frame))))) 1459 ;; We test frame-height so that, if the frame is split
1460 (> window-height (+ image-height 19))))))) 1460 ;; by displaying a warning, that doesn't cause the normal
1461 ;; splash screen to be used.
1462 (frame-height (1- (frame-height frame))))
1463 (> frame-height (+ image-height 19)))))))
1461 1464
1462 1465
1463(defun normal-splash-screen (&optional hide-on-input) 1466(defun normal-splash-screen (&optional hide-on-input)
diff --git a/lisp/subr.el b/lisp/subr.el
index 9edb97c2343..1cb5eb7ff30 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -943,7 +943,8 @@ is converted into a string by expressing it in decimal."
943(make-obsolete-variable 'directory-sep-char "do not use it." "21.1") 943(make-obsolete-variable 'directory-sep-char "do not use it." "21.1")
944(make-obsolete-variable 'mode-line-inverse-video "use the appropriate faces instead." "21.1") 944(make-obsolete-variable 'mode-line-inverse-video "use the appropriate faces instead." "21.1")
945(make-obsolete-variable 'unread-command-char 945(make-obsolete-variable 'unread-command-char
946 "use `unread-command-events' instead. That variable is a list of events to reread, so it now uses nil to mean `no event', instead of -1." 946 "use `unread-command-events' instead. That variable is a list of events
947to reread, so it now uses nil to mean `no event', instead of -1."
947 "before 19.15") 948 "before 19.15")
948 949
949;; Lisp manual only updated in 22.1. 950;; Lisp manual only updated in 22.1.
diff --git a/lisp/term/AT386.el b/lisp/term/AT386.el
index 4afc076df0d..84da8f8b64a 100644
--- a/lisp/term/AT386.el
+++ b/lisp/term/AT386.el
@@ -1,11 +1,11 @@
1;;; AT386.el --- terminal support package for IBM AT keyboards -*- no-byte-compile: t -*- 1;;; AT386.el --- terminal support package for IBM AT keyboards -*- no-byte-compile: t -*-
2 2
3;; Copyright (C) 1992, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc.
5
3;; Author: Eric S. Raymond <esr@snark.thyrsus.com> 6;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
4;; Keywords: terminals 7;; Keywords: terminals
5 8
6;; Copyright (C) 1992, 2002, 2003, 2004, 2005,
7;; 2006 Free Software Foundation, Inc.
8
9;; This file is part of GNU Emacs. 9;; This file is part of GNU Emacs.
10 10
11;; GNU Emacs is free software; you can redistribute it and/or modify 11;; GNU Emacs is free software; you can redistribute it and/or modify
diff --git a/lisp/term/iris-ansi.el b/lisp/term/iris-ansi.el
index 267b11b30f3..174a98c224a 100644
--- a/lisp/term/iris-ansi.el
+++ b/lisp/term/iris-ansi.el
@@ -1,6 +1,6 @@
1;;; iris-ansi.el --- configure Emacs for SGI xwsh and winterm apps -*- no-byte-compile: t -*- 1;;; iris-ansi.el --- configure Emacs for SGI xwsh and winterm apps -*- no-byte-compile: t -*-
2 2
3;; Copyright (C) 1997, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1997, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Author: Dan Nicolaescu <dann@ics.uci.edu> 6;; Author: Dan Nicolaescu <dann@ics.uci.edu>
diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el
index 6569918603f..c49c8893b21 100644
--- a/lisp/term/mac-win.el
+++ b/lisp/term/mac-win.el
@@ -1,6 +1,6 @@
1;;; mac-win.el --- parse switches controlling interface with Mac window system -*-coding: utf-8 1;;; mac-win.el --- parse switches controlling interface with Mac window system -*-coding: utf-8
2 2
3;; Copyright (C) 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Andrew Choi <akochoi@mac.com> 6;; Author: Andrew Choi <akochoi@mac.com>
@@ -82,7 +82,6 @@
82(defvar mac-service-selection) 82(defvar mac-service-selection)
83(defvar mac-system-script-code) 83(defvar mac-system-script-code)
84(defvar mac-apple-event-map) 84(defvar mac-apple-event-map)
85(defvar mac-atsu-font-table)
86(defvar mac-font-panel-mode) 85(defvar mac-font-panel-mode)
87(defvar mac-ts-active-input-overlay) 86(defvar mac-ts-active-input-overlay)
88(defvar x-invocation-args) 87(defvar x-invocation-args)
@@ -1841,7 +1840,8 @@ With numeric ARG, display the font panel if and only if ARG is positive."
1841 (let* ((ae (mac-event-ae event)) 1840 (let* ((ae (mac-event-ae event))
1842 (fm-font-size (mac-ae-number ae "fmsz")) 1841 (fm-font-size (mac-ae-number ae "fmsz"))
1843 (atsu-font-id (mac-ae-number ae "auid")) 1842 (atsu-font-id (mac-ae-number ae "auid"))
1844 (attribute-values (gethash atsu-font-id mac-atsu-font-table))) 1843 (attribute-values (and atsu-font-id
1844 (mac-atsu-font-face-attributes atsu-font-id))))
1845 (if fm-font-size 1845 (if fm-font-size
1846 (setq attribute-values 1846 (setq attribute-values
1847 `(:height ,(* 10 fm-font-size) ,@attribute-values))) 1847 `(:height ,(* 10 fm-font-size) ,@attribute-values)))
diff --git a/lisp/term/news.el b/lisp/term/news.el
index a0082566dd5..7967f7f9176 100644
--- a/lisp/term/news.el
+++ b/lisp/term/news.el
@@ -1,6 +1,6 @@
1;;; news.el --- keypad and function key bindings for the Sony NEWS keyboard -*- no-byte-compile: t -*- 1;;; news.el --- keypad and function key bindings for the Sony NEWS keyboard -*- no-byte-compile: t -*-
2 2
3;; Copyright (C) 1989, 1993, 2002, 2003, 2004, 3;; Copyright (C) 1989, 1993, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: FSF 6;; Author: FSF
diff --git a/lisp/term/sun-mouse.el b/lisp/term/sun-mouse.el
index 329e88e23e6..76b2ef6d3d9 100644
--- a/lisp/term/sun-mouse.el
+++ b/lisp/term/sun-mouse.el
@@ -1,6 +1,6 @@
1;;; sun-mouse.el --- mouse handling for Sun windows 1;;; sun-mouse.el --- mouse handling for Sun windows
2 2
3;; Copyright (C) 1987, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1987, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Author: Jeff Peck 6;; Author: Jeff Peck
diff --git a/lisp/term/sup-mouse.el b/lisp/term/sup-mouse.el
index ebc406d8206..a038fbd3d9d 100644
--- a/lisp/term/sup-mouse.el
+++ b/lisp/term/sup-mouse.el
@@ -1,6 +1,6 @@
1;;; sup-mouse.el --- supdup mouse support for lisp machines 1;;; sup-mouse.el --- supdup mouse support for lisp machines
2 2
3;; Copyright (C) 1985, 1986, 2002, 2003, 2004, 3;; Copyright (C) 1985, 1986, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Wolfgang Rupprecht 6;; Author: Wolfgang Rupprecht
diff --git a/lisp/term/tvi970.el b/lisp/term/tvi970.el
index ffcce0f209c..f0b7ca65456 100644
--- a/lisp/term/tvi970.el
+++ b/lisp/term/tvi970.el
@@ -1,11 +1,11 @@
1;;; tvi970.el --- terminal support for the Televideo 970 1;;; tvi970.el --- terminal support for the Televideo 970
2 2
3;; Copyright (C) 1992, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc.
5
3;; Author: Jim Blandy <jimb@occs.cs.oberlin.edu>, January 1992 6;; Author: Jim Blandy <jimb@occs.cs.oberlin.edu>, January 1992
4;; Keywords: terminals 7;; Keywords: terminals
5 8
6;; Copyright (C) 1992, 2002, 2003, 2004, 2005,
7;; 2006 Free Software Foundation, Inc.
8
9;; This file is part of GNU Emacs. 9;; This file is part of GNU Emacs.
10 10
11;; GNU Emacs is free software; you can redistribute it and/or modify 11;; GNU Emacs is free software; you can redistribute it and/or modify
diff --git a/lisp/term/vt100.el b/lisp/term/vt100.el
index c5732a2aefe..dfbeb4a0333 100644
--- a/lisp/term/vt100.el
+++ b/lisp/term/vt100.el
@@ -1,6 +1,6 @@
1;;; vt100.el --- define VT100 function key sequences in function-key-map 1;;; vt100.el --- define VT100 function key sequences in function-key-map
2 2
3;; Copyright (C) 1989, 1993, 2002, 2003, 2004, 3;; Copyright (C) 1989, 1993, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: FSF 6;; Author: FSF
diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el
index c74c7f86395..ba093bc603f 100644
--- a/lisp/term/w32-win.el
+++ b/lisp/term/w32-win.el
@@ -1,6 +1,6 @@
1;;; w32-win.el --- parse switches controlling interface with W32 window system 1;;; w32-win.el --- parse switches controlling interface with W32 window system
2 2
3;; Copyright (C) 1993, 1994, 2002, 2003, 2004, 3;; Copyright (C) 1993, 1994, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Kevin Gallo 6;; Author: Kevin Gallo
diff --git a/lisp/term/wyse50.el b/lisp/term/wyse50.el
index 40e70c8469a..6f4656bcaad 100644
--- a/lisp/term/wyse50.el
+++ b/lisp/term/wyse50.el
@@ -1,6 +1,6 @@
1;;; wyse50.el --- terminal support code for Wyse 50 -*- no-byte-compile: t -*- 1;;; wyse50.el --- terminal support code for Wyse 50 -*- no-byte-compile: t -*-
2 2
3;; Copyright (C) 1989, 1993, 1994, 2002, 2003, 2004, 3;; Copyright (C) 1989, 1993, 1994, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Daniel Pfeiffer <occitan@esperanto.org>, 6;; Author: Daniel Pfeiffer <occitan@esperanto.org>,
diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el
index fac25d86699..88b3a9124fb 100644
--- a/lisp/term/xterm.el
+++ b/lisp/term/xterm.el
@@ -1,6 +1,6 @@
1;;; xterm.el --- define function key sequences and standard colors for xterm 1;;; xterm.el --- define function key sequences and standard colors for xterm
2 2
3;; Copyright (C) 1995, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1995, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Author: FSF 6;; Author: FSF
diff --git a/lisp/textmodes/bib-mode.el b/lisp/textmodes/bib-mode.el
index 1c4dacf71d8..856fe735f8e 100644
--- a/lisp/textmodes/bib-mode.el
+++ b/lisp/textmodes/bib-mode.el
@@ -1,6 +1,6 @@
1;;; bib-mode.el --- major mode for editing bib files 1;;; bib-mode.el --- major mode for editing bib files
2 2
3;; Copyright (C) 1989, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1989, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Maintainer: FSF 6;; Maintainer: FSF
diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el
index 9597b136d7d..5cc22443219 100644
--- a/lisp/textmodes/bibtex.el
+++ b/lisp/textmodes/bibtex.el
@@ -1,7 +1,7 @@
1;;; bibtex.el --- BibTeX mode for GNU Emacs 1;;; bibtex.el --- BibTeX mode for GNU Emacs
2 2
3;; Copyright (C) 1992, 1994, 1995, 1996, 1997, 1998, 1999, 2002, 2003, 3;; Copyright (C) 1992, 1994, 1995, 1996, 1997, 1998, 1999, 2001, 2002,
4;; 2004, 2005, 2006 Free Software Foundation, Inc. 4;; 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Stefan Schoef <schoef@offis.uni-oldenburg.de> 6;; Author: Stefan Schoef <schoef@offis.uni-oldenburg.de>
7;; Bengt Martensson <bengt@mathematik.uni-Bremen.de> 7;; Bengt Martensson <bengt@mathematik.uni-Bremen.de>
diff --git a/lisp/textmodes/enriched.el b/lisp/textmodes/enriched.el
index cd1079e0924..841a5bb0830 100644
--- a/lisp/textmodes/enriched.el
+++ b/lisp/textmodes/enriched.el
@@ -1,6 +1,6 @@
1;;; enriched.el --- read and save files in text/enriched format 1;;; enriched.el --- read and save files in text/enriched format
2 2
3;; Copyright (C) 1994, 1995, 1996, 2002, 2003, 2004, 3;; Copyright (C) 1994, 1995, 1996, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Boris Goldowsky <boris@gnu.org> 6;; Author: Boris Goldowsky <boris@gnu.org>
diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index a3c110b8f19..7badf21d966 100644
--- a/lisp/textmodes/flyspell.el
+++ b/lisp/textmodes/flyspell.el
@@ -1,6 +1,6 @@
1;;; flyspell.el --- on-the-fly spell checker 1;;; flyspell.el --- on-the-fly spell checker
2 2
3;; Copyright (C) 1998, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1998, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Manuel Serrano <Manuel.Serrano@sophia.inria.fr> 6;; Author: Manuel Serrano <Manuel.Serrano@sophia.inria.fr>
@@ -541,6 +541,11 @@ in your .emacs file.
541 (member (or ispell-local-dictionary ispell-dictionary) 541 (member (or ispell-local-dictionary ispell-dictionary)
542 flyspell-dictionaries-that-consider-dash-as-word-delimiter))))) 542 flyspell-dictionaries-that-consider-dash-as-word-delimiter)))))
543 543
544(defun flyspell-hack-local-variables-hook ()
545 ;; When local variables are loaded, see if the dictionary context
546 ;; has changed.
547 (flyspell-accept-buffer-local-defs 'force))
548
544(defun flyspell-kill-ispell-hook () 549(defun flyspell-kill-ispell-hook ()
545 (setq flyspell-last-buffer nil) 550 (setq flyspell-last-buffer nil)
546 (dolist (buf (buffer-list)) 551 (dolist (buf (buffer-list))
@@ -579,6 +584,9 @@ in your .emacs file.
579 (add-hook 'pre-command-hook (function flyspell-pre-command-hook) t t) 584 (add-hook 'pre-command-hook (function flyspell-pre-command-hook) t t)
580 ;; we bound flyspell action to after-change hook 585 ;; we bound flyspell action to after-change hook
581 (add-hook 'after-change-functions 'flyspell-after-change-function nil t) 586 (add-hook 'after-change-functions 'flyspell-after-change-function nil t)
587 ;; we bound flyspell action to hack-local-variables-hook
588 (add-hook 'hack-local-variables-hook
589 (function flyspell-hack-local-variables-hook) t t)
582 ;; set flyspell-generic-check-word-predicate based on the major mode 590 ;; set flyspell-generic-check-word-predicate based on the major mode
583 (let ((mode-predicate (get major-mode 'flyspell-mode-predicate))) 591 (let ((mode-predicate (get major-mode 'flyspell-mode-predicate)))
584 (if mode-predicate 592 (if mode-predicate
@@ -684,6 +692,8 @@ not the very same deplacement command."
684 (remove-hook 'post-command-hook (function flyspell-post-command-hook) t) 692 (remove-hook 'post-command-hook (function flyspell-post-command-hook) t)
685 (remove-hook 'pre-command-hook (function flyspell-pre-command-hook) t) 693 (remove-hook 'pre-command-hook (function flyspell-pre-command-hook) t)
686 (remove-hook 'after-change-functions 'flyspell-after-change-function t) 694 (remove-hook 'after-change-functions 'flyspell-after-change-function t)
695 (remove-hook 'hack-local-variables-hook
696 (function flyspell-hack-local-variables-hook) t)
687 ;; we remove all the flyspell hilightings 697 ;; we remove all the flyspell hilightings
688 (flyspell-delete-all-overlays) 698 (flyspell-delete-all-overlays)
689 ;; we have to erase pre cache variables 699 ;; we have to erase pre cache variables
diff --git a/lisp/textmodes/makeinfo.el b/lisp/textmodes/makeinfo.el
index 26a47a65e84..f521cc279d0 100644
--- a/lisp/textmodes/makeinfo.el
+++ b/lisp/textmodes/makeinfo.el
@@ -1,6 +1,6 @@
1;;; makeinfo.el --- run makeinfo conveniently 1;;; makeinfo.el --- run makeinfo conveniently
2 2
3;; Copyright (C) 1991, 1993, 2002, 2003, 2004, 3;; Copyright (C) 1991, 1993, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Robert J. Chassell 6;; Author: Robert J. Chassell
diff --git a/lisp/textmodes/page-ext.el b/lisp/textmodes/page-ext.el
index 24282872f67..700a4388f57 100644
--- a/lisp/textmodes/page-ext.el
+++ b/lisp/textmodes/page-ext.el
@@ -1,6 +1,6 @@
1;;; page-ext.el --- extended page handling commands 1;;; page-ext.el --- extended page handling commands
2 2
3;; Copyright (C) 1990, 1991, 1993, 1994, 2002, 2003, 2004, 3;; Copyright (C) 1990, 1991, 1993, 1994, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Maintainer: Robert J. Chassell <bob@gnu.org> 6;; Maintainer: Robert J. Chassell <bob@gnu.org>
diff --git a/lisp/textmodes/page.el b/lisp/textmodes/page.el
index 20458491808..f3abe36a26e 100644
--- a/lisp/textmodes/page.el
+++ b/lisp/textmodes/page.el
@@ -1,6 +1,6 @@
1;;; page.el --- page motion commands for Emacs 1;;; page.el --- page motion commands for Emacs
2 2
3;; Copyright (C) 1985, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1985, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Maintainer: FSF 6;; Maintainer: FSF
diff --git a/lisp/textmodes/picture.el b/lisp/textmodes/picture.el
index ce1dbf8993b..ab070053e07 100644
--- a/lisp/textmodes/picture.el
+++ b/lisp/textmodes/picture.el
@@ -1,6 +1,6 @@
1;;; picture.el --- "Picture mode" -- editing using quarter-plane screen model 1;;; picture.el --- "Picture mode" -- editing using quarter-plane screen model
2 2
3;; Copyright (C) 1985, 1994, 2002, 2003, 2004, 3;; Copyright (C) 1985, 1994, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: K. Shane Hartman 6;; Author: K. Shane Hartman
diff --git a/lisp/textmodes/refbib.el b/lisp/textmodes/refbib.el
index 25613cff8ca..f276fe26458 100644
--- a/lisp/textmodes/refbib.el
+++ b/lisp/textmodes/refbib.el
@@ -1,6 +1,6 @@
1;;; refbib.el --- convert refer-style references to ones usable by Latex bib 1;;; refbib.el --- convert refer-style references to ones usable by Latex bib
2 2
3;; Copyright (C) 1989, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1989, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Author: Henry Kautz <kautz@research.att.com> 6;; Author: Henry Kautz <kautz@research.att.com>
diff --git a/lisp/textmodes/refer.el b/lisp/textmodes/refer.el
index ce0f96956df..474b6f7be60 100644
--- a/lisp/textmodes/refer.el
+++ b/lisp/textmodes/refer.el
@@ -79,19 +79,19 @@
79 :group 'wp) 79 :group 'wp)
80 80
81(defcustom refer-bib-directory nil 81(defcustom refer-bib-directory nil
82 "Directory, or list of directories, to search for \\.bib files. Can 82 "Directory, or list of directories, to search for \\.bib files.
83be set to 'bibinputs or 'texinputs, in which case the environment 83Can be set to 'bibinputs or 'texinputs, in which case the environment
84variable BIBINPUTS or TEXINPUTS, respectively, is used to obtain a 84variable BIBINPUTS or TEXINPUTS, respectively, is used to obtain a
85list of directories. Useful only if refer-bib-files is set to 'dir or 85list of directories. Useful only if `refer-bib-files' is set to 'dir or
86a list of file names (without directory). A value of nil indicates the 86a list of file names (without directory). A value of nil indicates the
87current working directory. 87current working directory.
88 88
89If refer-bib-directory is 'bibinputs or 'texinputs, it is setq'd to 89If `refer-bib-directory' is 'bibinputs or 'texinputs, it is setq'd to
90the appropriate list of directories when it is first used. 90the appropriate list of directories when it is first used.
91 91
92Note that an empty directory is interpreted by BibTeX as indicating 92Note that an empty directory is interpreted by BibTeX as indicating
93the default search path. Since Refer does not know that default path, 93the default search path. Since Refer does not know that default path,
94it cannot search it. Include that path explicitly in your BIBINPUTS 94it cannot search it. Include that path explicitly in your BIBINPUTS
95environment if you really want it searched (which is not likely to 95environment if you really want it searched (which is not likely to
96happen anyway)." 96happen anyway)."
97 :type '(choice (repeat directory) (const bibinputs) (const texinputs)) 97 :type '(choice (repeat directory) (const bibinputs) (const texinputs))
@@ -102,24 +102,24 @@ happen anyway)."
102or one of the following special values: 102or one of the following special values:
103nil = prompt for \\.bib file (if visiting a \\.bib file, use it as default) 103nil = prompt for \\.bib file (if visiting a \\.bib file, use it as default)
104auto = read \\.bib file names from appropriate command in buffer (see 104auto = read \\.bib file names from appropriate command in buffer (see
105 refer-bib-files-regexp) unless the buffer's mode is bibtex-mode, 105 `refer-bib-files-regexp') unless the buffer's mode is `bibtex-mode',
106 in which case only the buffer is searched 106 in which case only the buffer is searched
107dir = use all \\.bib files in directories referenced by refer-bib-directory. 107dir = use all \\.bib files in directories referenced by `refer-bib-directory'.
108 108
109If a specified file doesn't exist and has no extension, a \\.bib extension 109If a specified file doesn't exist and has no extension, a \\.bib extension
110is automatically tried. 110is automatically tried.
111 111
112If refer-bib-files is nil, auto or dir, it is setq'd to the appropriate 112If `refer-bib-files' is nil, auto or dir, it is setq'd to the appropriate
113list of files when it is first used if refer-cache-bib-files is t. If 113list of files when it is first used if `refer-cache-bib-files' is t. If
114refer-cache-bib-files is nil, the list of \\.bib files to use is re-read 114`refer-cache-bib-files' is nil, the list of \\.bib files to use is re-read
115each time it is needed." 115each time it is needed."
116 :type '(choice (repeat file) (const nil) (const auto) (const dir)) 116 :type '(choice (repeat file) (const nil) (const auto) (const dir))
117 :group 'refer) 117 :group 'refer)
118 118
119(defcustom refer-cache-bib-files t 119(defcustom refer-cache-bib-files t
120 "*Variable determining whether the value of refer-bib-files should be cached. 120 "*Variable determining whether the value of `refer-bib-files' should be cached.
121If t, initialize the value of refer-bib-files the first time it is used. If 121If t, initialize the value of refer-bib-files the first time it is used. If
122nil, re-read the list of \\.bib files depending on the value of refer-bib-files 122nil, re-read the list of \\.bib files depending on the value of `refer-bib-files'
123each time it is needed." 123each time it is needed."
124 :type 'boolean 124 :type 'boolean
125 :group 'refer) 125 :group 'refer)
@@ -128,8 +128,8 @@ each time it is needed."
128 "*Regexp matching a bibliography file declaration. 128 "*Regexp matching a bibliography file declaration.
129The current buffer is expected to contain a line such as 129The current buffer is expected to contain a line such as
130\\bibliography{file1,file2,file3} 130\\bibliography{file1,file2,file3}
131which is read to set up refer-bib-files. The regexp must specify the command 131which is read to set up `refer-bib-files'. The regexp must specify the command
132(such as \\bibliography) that is used to specify the list of bib files. The 132\(such as \\bibliography) that is used to specify the list of bib files. The
133command is expected to specify a file name, or a list of comma-separated file 133command is expected to specify a file name, or a list of comma-separated file
134names, within curly braces. 134names, within curly braces.
135If a specified file doesn't exist and has no extension, a \\.bib extension 135If a specified file doesn't exist and has no extension, a \\.bib extension
@@ -150,8 +150,8 @@ is automatically tried."
150(defun refer-find-entry (keywords &optional continue) 150(defun refer-find-entry (keywords &optional continue)
151 "Find entry in refer-bib-files containing KEYWORDS. 151 "Find entry in refer-bib-files containing KEYWORDS.
152If KEYWORDS is nil, prompt user for blank-separated list of keywords. 152If KEYWORDS is nil, prompt user for blank-separated list of keywords.
153If CONTINUE is t, or if called interactively with a prefix arg, look for next 153If CONTINUE is non-nil, or if called interactively with a prefix arg,
154entry by continuing search from previous point." 154look for next entry by continuing search from previous point."
155 (interactive (list nil current-prefix-arg)) 155 (interactive (list nil current-prefix-arg))
156 (or keywords (setq keywords (if continue 156 (or keywords (setq keywords (if continue
157 refer-previous-keywords 157 refer-previous-keywords
@@ -160,13 +160,13 @@ entry by continuing search from previous point."
160 (refer-find-entry-internal keywords continue)) 160 (refer-find-entry-internal keywords continue))
161 161
162(defun refer-find-next-entry () 162(defun refer-find-next-entry ()
163 "Find next occurrence of entry in refer-bib-files. See refer-find-entry." 163 "Find next occurrence of entry in `refer-bib-files'. See `refer-find-entry'."
164 (interactive) 164 (interactive)
165 (refer-find-entry-internal refer-previous-keywords t)) 165 (refer-find-entry-internal refer-previous-keywords t))
166 166
167(defun refer-yank-key () 167(defun refer-yank-key ()
168 "Inserts at point in current buffer the \"key\" field of the entry 168 "Inserts at point in current buffer the \"key\" field of the entry
169found on the last refer-find-entry or refer-find-next-entry." 169found on the last `refer-find-entry' or `refer-find-next-entry'."
170 (interactive) 170 (interactive)
171 (let ((old-point (point))) 171 (let ((old-point (point)))
172 (insert 172 (insert
diff --git a/lisp/textmodes/refill.el b/lisp/textmodes/refill.el
index 28ecd3bb4fe..69eb96491d1 100644
--- a/lisp/textmodes/refill.el
+++ b/lisp/textmodes/refill.el
@@ -1,6 +1,6 @@
1;;; refill.el --- `auto-fill' by refilling paragraphs on changes 1;;; refill.el --- `auto-fill' by refilling paragraphs on changes
2 2
3;; Copyright (C) 2000, 2002, 2003, 2004, 2005, 3;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Author: Dave Love <fx@gnu.org> 6;; Author: Dave Love <fx@gnu.org>
diff --git a/lisp/textmodes/reftex-auc.el b/lisp/textmodes/reftex-auc.el
index 394a0b52b19..aa46553adbe 100644
--- a/lisp/textmodes/reftex-auc.el
+++ b/lisp/textmodes/reftex-auc.el
@@ -1,5 +1,6 @@
1;;; reftex-auc.el --- RefTeX's interface to AUCTeX 1;;; reftex-auc.el --- RefTeX's interface to AUCTeX
2;; Copyright (C) 1997, 1998, 1999, 2000, 2003, 2004, 2005, 2
3;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
3;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
4 5
5;; Author: Carsten Dominik <dominik@science.uva.nl> 6;; Author: Carsten Dominik <dominik@science.uva.nl>
diff --git a/lisp/textmodes/reftex-cite.el b/lisp/textmodes/reftex-cite.el
index a83c790f076..55d1e2f4614 100644
--- a/lisp/textmodes/reftex-cite.el
+++ b/lisp/textmodes/reftex-cite.el
@@ -1,5 +1,6 @@
1;;; reftex-cite.el --- creating citations with RefTeX 1;;; reftex-cite.el --- creating citations with RefTeX
2;; Copyright (C) 1997, 1998, 1999, 2000, 2003, 2004, 2005, 2
3;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
3;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
4 5
5;; Author: Carsten Dominik <dominik@science.uva.nl> 6;; Author: Carsten Dominik <dominik@science.uva.nl>
diff --git a/lisp/textmodes/reftex-dcr.el b/lisp/textmodes/reftex-dcr.el
index 1e60b8e663e..bc5f7691bb7 100644
--- a/lisp/textmodes/reftex-dcr.el
+++ b/lisp/textmodes/reftex-dcr.el
@@ -1,5 +1,6 @@
1;;; reftex-dcr.el --- viewing cross references and citations with RefTeX 1;;; reftex-dcr.el --- viewing cross references and citations with RefTeX
2;; Copyright (C) 1997, 1998, 1999, 2000, 2003, 2004, 2005, 2
3;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
3;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
4 5
5;; Author: Carsten Dominik <dominik@science.uva.nl> 6;; Author: Carsten Dominik <dominik@science.uva.nl>
diff --git a/lisp/textmodes/reftex-global.el b/lisp/textmodes/reftex-global.el
index b878c288735..b07627c2e95 100644
--- a/lisp/textmodes/reftex-global.el
+++ b/lisp/textmodes/reftex-global.el
@@ -1,5 +1,6 @@
1;;; reftex-global.el --- operations on entire documents with RefTeX 1;;; reftex-global.el --- operations on entire documents with RefTeX
2;; Copyright (C) 1997, 1998, 1999, 2000, 2003, 2004, 2005, 2
3;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
3;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
4 5
5;; Author: Carsten Dominik <dominik@science.uva.nl> 6;; Author: Carsten Dominik <dominik@science.uva.nl>
diff --git a/lisp/textmodes/reftex-index.el b/lisp/textmodes/reftex-index.el
index 5616d4f454c..15f70895ce3 100644
--- a/lisp/textmodes/reftex-index.el
+++ b/lisp/textmodes/reftex-index.el
@@ -1,5 +1,6 @@
1;;; reftex-index.el --- index support with RefTeX 1;;; reftex-index.el --- index support with RefTeX
2;; Copyright (C) 1997, 1998, 1999, 2000, 2003, 2004, 2005, 2
3;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
3;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
4 5
5;; Author: Carsten Dominik <dominik@science.uva.nl> 6;; Author: Carsten Dominik <dominik@science.uva.nl>
diff --git a/lisp/textmodes/reftex-parse.el b/lisp/textmodes/reftex-parse.el
index 76eb7c31df8..89aef5bd971 100644
--- a/lisp/textmodes/reftex-parse.el
+++ b/lisp/textmodes/reftex-parse.el
@@ -1,5 +1,6 @@
1;;; reftex-parse.el --- parser functions for RefTeX 1;;; reftex-parse.el --- parser functions for RefTeX
2;; Copyright (C) 1997, 1998, 1999, 2000, 2003, 2004, 2005, 2
3;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
3;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
4 5
5;; Author: Carsten Dominik <dominik@science.uva.nl> 6;; Author: Carsten Dominik <dominik@science.uva.nl>
diff --git a/lisp/textmodes/reftex-ref.el b/lisp/textmodes/reftex-ref.el
index a850da3042e..3104152dab6 100644
--- a/lisp/textmodes/reftex-ref.el
+++ b/lisp/textmodes/reftex-ref.el
@@ -1,5 +1,6 @@
1;;; reftex-ref.el --- code to create labels and references with RefTeX 1;;; reftex-ref.el --- code to create labels and references with RefTeX
2;; Copyright (C) 1997, 1998, 1999, 2000, 2003, 2004, 2005, 2
3;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
3;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
4 5
5;; Author: Carsten Dominik <dominik@science.uva.nl> 6;; Author: Carsten Dominik <dominik@science.uva.nl>
diff --git a/lisp/textmodes/reftex-sel.el b/lisp/textmodes/reftex-sel.el
index f0e8205024c..1660fe70f40 100644
--- a/lisp/textmodes/reftex-sel.el
+++ b/lisp/textmodes/reftex-sel.el
@@ -1,5 +1,6 @@
1;;; reftex-sel.el --- the selection modes for RefTeX 1;;; reftex-sel.el --- the selection modes for RefTeX
2;; Copyright (C) 1997, 1998, 1999, 2000, 2003, 2440, 2005, 2
3;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
3;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
4 5
5;; Author: Carsten Dominik <dominik@science.uva.nl> 6;; Author: Carsten Dominik <dominik@science.uva.nl>
diff --git a/lisp/textmodes/reftex-vars.el b/lisp/textmodes/reftex-vars.el
index 0f8a948e363..852af59df45 100644
--- a/lisp/textmodes/reftex-vars.el
+++ b/lisp/textmodes/reftex-vars.el
@@ -1,5 +1,6 @@
1;;; reftex-vars.el --- configuration variables for RefTeX 1;;; reftex-vars.el --- configuration variables for RefTeX
2;; Copyright (C) 1997, 1998, 1999, 2003, 2004, 2005, 2
3;; Copyright (C) 1997, 1998, 1999, 2001, 2002, 2003, 2004, 2005,
3;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
4 5
5;; Author: Carsten Dominik <dominik@science.uva.nl> 6;; Author: Carsten Dominik <dominik@science.uva.nl>
diff --git a/lisp/textmodes/spell.el b/lisp/textmodes/spell.el
index ddc6788123d..f68cc6b6010 100644
--- a/lisp/textmodes/spell.el
+++ b/lisp/textmodes/spell.el
@@ -1,6 +1,6 @@
1;;; spell.el --- spelling correction interface for Emacs 1;;; spell.el --- spelling correction interface for Emacs
2 2
3;; Copyright (C) 1985, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1985, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Maintainer: FSF 6;; Maintainer: FSF
diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el
index 9e78f4b6015..511721d7f67 100644
--- a/lisp/textmodes/tex-mode.el
+++ b/lisp/textmodes/tex-mode.el
@@ -1,7 +1,7 @@
1;;; tex-mode.el --- TeX, LaTeX, and SliTeX mode commands -*- coding: utf-8 -*- 1;;; tex-mode.el --- TeX, LaTeX, and SliTeX mode commands -*- coding: utf-8 -*-
2 2
3;; Copyright (C) 1985, 1986, 1989, 1992, 1994, 1995, 1996, 1997, 1998, 1999, 3;; Copyright (C) 1985, 1986, 1989, 1992, 1994, 1995, 1996, 1997, 1998, 1999,
4;; 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. 4;; 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Maintainer: FSF 6;; Maintainer: FSF
7;; Keywords: tex 7;; Keywords: tex
diff --git a/lisp/textmodes/text-mode.el b/lisp/textmodes/text-mode.el
index 9263c48f18b..873635a3893 100644
--- a/lisp/textmodes/text-mode.el
+++ b/lisp/textmodes/text-mode.el
@@ -1,6 +1,6 @@
1;;; text-mode.el --- text mode, and its idiosyncratic commands 1;;; text-mode.el --- text mode, and its idiosyncratic commands
2 2
3;; Copyright (C) 1985, 1992, 1994, 2002, 2003, 2004, 3;; Copyright (C) 1985, 1992, 1994, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Maintainer: FSF 6;; Maintainer: FSF
diff --git a/lisp/textmodes/tildify.el b/lisp/textmodes/tildify.el
index bf6edac230c..74b2db3ad34 100644
--- a/lisp/textmodes/tildify.el
+++ b/lisp/textmodes/tildify.el
@@ -1,6 +1,6 @@
1;;; tildify.el --- adding hard spaces into texts 1;;; tildify.el --- adding hard spaces into texts
2 2
3;; Copyright (C) 1997, 1998, 1999, 2000, 2002, 2003, 2004, 3;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Milan Zamazal <pdm@zamazal.org> 6;; Author: Milan Zamazal <pdm@zamazal.org>
diff --git a/lisp/textmodes/two-column.el b/lisp/textmodes/two-column.el
index 958ef179b26..9de1a078d13 100644
--- a/lisp/textmodes/two-column.el
+++ b/lisp/textmodes/two-column.el
@@ -1,6 +1,6 @@
1;;; two-column.el --- minor mode for editing of two-column text 1;;; two-column.el --- minor mode for editing of two-column text
2 2
3;; Copyright (C) 1992, 1993, 1994, 1995, 2002, 2003, 2004, 3;; Copyright (C) 1992, 1993, 1994, 1995, 2001, 2002, 2003, 2004,
4;; 2005, 2006 Free Software Foundation, Inc. 4;; 2005, 2006 Free Software Foundation, Inc.
5 5
6;; Author: Daniel Pfeiffer <occitan@esperanto.org> 6;; Author: Daniel Pfeiffer <occitan@esperanto.org>
diff --git a/lisp/textmodes/underline.el b/lisp/textmodes/underline.el
index 8e8ef3b399e..4cea84c5a40 100644
--- a/lisp/textmodes/underline.el
+++ b/lisp/textmodes/underline.el
@@ -1,6 +1,6 @@
1;;; underline.el --- insert/remove underlining (done by overstriking) in Emacs 1;;; underline.el --- insert/remove underlining (done by overstriking) in Emacs
2 2
3;; Copyright (C) 1985, 2002, 2003, 2004, 2005, 3;; Copyright (C) 1985, 2001, 2002, 2003, 2004, 2005,
4;; 2006 Free Software Foundation, Inc. 4;; 2006 Free Software Foundation, Inc.
5 5
6;; Maintainer: FSF 6;; Maintainer: FSF
diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index c50dcf52897..6259cf974f1 100644
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,7 @@
12006-12-10 Juanma Barranquero <lekktu@gmail.com>
2
3 * url-gw.el (url-gateway-nslookup-program): Doc fix.
4
12006-11-26 Magnus Henoch <mange@freemail.hu> 52006-11-26 Magnus Henoch <mange@freemail.hu>
2 6
3 * url-http.el (url-http-wait-for-headers-change-function): Use 7 * url-http.el (url-http-wait-for-headers-change-function): Use
diff --git a/lisp/url/url-gw.el b/lisp/url/url-gw.el
index 5197d894aa2..eaf654e2b4f 100644
--- a/lisp/url/url-gw.el
+++ b/lisp/url/url-gw.el
@@ -104,7 +104,7 @@ linked Emacs under SunOS 4.x"
104 :group 'url-gateway) 104 :group 'url-gateway)
105 105
106(defcustom url-gateway-nslookup-program "nslookup" 106(defcustom url-gateway-nslookup-program "nslookup"
107 "*If non-NIL then a string naming nslookup program." 107 "*If non-nil then a string naming nslookup program."
108 :type '(choice (const :tag "None" :value nil) string) 108 :type '(choice (const :tag "None" :value nil) string)
109 :group 'url-gateway) 109 :group 'url-gateway)
110 110
@@ -253,7 +253,7 @@ Might do a non-blocking connection; use `process-status' to check."
253 ;; Use non-blocking socket if we can. 253 ;; Use non-blocking socket if we can.
254 (make-network-process :name name :buffer buffer 254 (make-network-process :name name :buffer buffer
255 :host host :service service 255 :host host :service service
256 :nowait 256 :nowait
257 (featurep 'make-network-process '(:nowait t)))) 257 (featurep 'make-network-process '(:nowait t))))
258 (socks 258 (socks
259 (socks-open-network-stream name buffer host service)) 259 (socks-open-network-stream name buffer host service))
diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index ad556c30a07..309be690408 100644
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -149,31 +149,32 @@ request.")
149 (concat " (" (or url-system-type url-os-type) ")")) 149 (concat " (" (or url-system-type url-os-type) ")"))
150 (t ""))))) 150 (t "")))))
151 151
152(defun url-http-create-request (url &optional ref-url) 152(defun url-http-create-request (&optional ref-url)
153 "Create an HTTP request for URL, referred to by REF-URL." 153 "Create an HTTP request for `url-http-target-url', referred to by REF-URL."
154 (declare (special proxy-object proxy-info 154 (declare (special proxy-info
155 url-http-method url-http-data 155 url-http-method url-http-data
156 url-http-extra-headers)) 156 url-http-extra-headers))
157 (url-http-debug "url-proxy-object is %s\n" url-proxy-object)
157 (let* ((extra-headers) 158 (let* ((extra-headers)
158 (request nil) 159 (request nil)
159 (no-cache (cdr-safe (assoc "Pragma" url-http-extra-headers))) 160 (no-cache (cdr-safe (assoc "Pragma" url-http-extra-headers)))
160 (proxy-obj (and (boundp 'proxy-object) proxy-object)) 161 (using-proxy (not (eq url-current-object url-http-target-url)))
161 (proxy-auth (if (or (cdr-safe (assoc "Proxy-Authorization" 162 (proxy-auth (if (or (cdr-safe (assoc "Proxy-Authorization"
162 url-http-extra-headers)) 163 url-http-extra-headers))
163 (not proxy-obj)) 164 (not using-proxy))
164 nil 165 nil
165 (let ((url-basic-auth-storage 166 (let ((url-basic-auth-storage
166 'url-http-proxy-basic-auth-storage)) 167 'url-http-proxy-basic-auth-storage))
167 (url-get-authentication url nil 'any nil)))) 168 (url-get-authentication url-http-target-url nil 'any nil))))
168 (real-fname (concat (url-filename (or proxy-obj url)) 169 (real-fname (concat (url-filename url-http-target-url)
169 (url-recreate-url-attributes (or proxy-obj url)))) 170 (url-recreate-url-attributes url-http-target-url)))
170 (host (url-host (or proxy-obj url))) 171 (host (url-host url-http-target-url))
171 (auth (if (cdr-safe (assoc "Authorization" url-http-extra-headers)) 172 (auth (if (cdr-safe (assoc "Authorization" url-http-extra-headers))
172 nil 173 nil
173 (url-get-authentication (or 174 (url-get-authentication (or
174 (and (boundp 'proxy-info) 175 (and (boundp 'proxy-info)
175 proxy-info) 176 proxy-info)
176 url) nil 'any nil)))) 177 url-http-target-url) nil 'any nil))))
177 (if (equal "" real-fname) 178 (if (equal "" real-fname)
178 (setq real-fname "/")) 179 (setq real-fname "/"))
179 (setq no-cache (and no-cache (string-match "no-cache" no-cache))) 180 (setq no-cache (and no-cache (string-match "no-cache" no-cache)))
@@ -222,12 +223,12 @@ request.")
222 (list 223 (list
223 ;; The request 224 ;; The request
224 (or url-http-method "GET") " " 225 (or url-http-method "GET") " "
225 (if proxy-obj (url-recreate-url proxy-obj) real-fname) 226 (if using-proxy (url-recreate-url url-http-target-url) real-fname)
226 " HTTP/" url-http-version "\r\n" 227 " HTTP/" url-http-version "\r\n"
227 ;; Version of MIME we speak 228 ;; Version of MIME we speak
228 "MIME-Version: 1.0\r\n" 229 "MIME-Version: 1.0\r\n"
229 ;; (maybe) Try to keep the connection open 230 ;; (maybe) Try to keep the connection open
230 "Connection: " (if (or proxy-obj 231 "Connection: " (if (or using-proxy
231 (not url-http-attempt-keepalives)) 232 (not url-http-attempt-keepalives))
232 "close" "keep-alive") "\r\n" 233 "close" "keep-alive") "\r\n"
233 ;; HTTP extensions we support 234 ;; HTTP extensions we support
@@ -235,11 +236,11 @@ request.")
235 (format 236 (format
236 "Extension: %s\r\n" url-extensions-header)) 237 "Extension: %s\r\n" url-extensions-header))
237 ;; Who we want to talk to 238 ;; Who we want to talk to
238 (if (/= (url-port (or proxy-obj url)) 239 (if (/= (url-port url-http-target-url)
239 (url-scheme-get-property 240 (url-scheme-get-property
240 (url-type (or proxy-obj url)) 'default-port)) 241 (url-type url-http-target-url) 'default-port))
241 (format 242 (format
242 "Host: %s:%d\r\n" host (url-port (or proxy-obj url))) 243 "Host: %s:%d\r\n" host (url-port url-http-target-url))
243 (format "Host: %s\r\n" host)) 244 (format "Host: %s\r\n" host))
244 ;; Who its from 245 ;; Who its from
245 (if url-personal-mail-address 246 (if url-personal-mail-address
@@ -266,11 +267,11 @@ request.")
266 auth 267 auth
267 ;; Cookies 268 ;; Cookies
268 (url-cookie-generate-header-lines host real-fname 269 (url-cookie-generate-header-lines host real-fname
269 (equal "https" (url-type url))) 270 (equal "https" (url-type url-http-target-url)))
270 ;; If-modified-since 271 ;; If-modified-since
271 (if (and (not no-cache) 272 (if (and (not no-cache)
272 (member url-http-method '("GET" nil))) 273 (member url-http-method '("GET" nil)))
273 (let ((tm (url-is-cached (or proxy-obj url)))) 274 (let ((tm (url-is-cached url-http-target-url)))
274 (if tm 275 (if tm
275 (concat "If-modified-since: " 276 (concat "If-modified-since: "
276 (url-get-normalized-date tm) "\r\n")))) 277 (url-get-normalized-date tm) "\r\n"))))
@@ -1085,8 +1086,7 @@ CBARGS as the arguments."
1085 url-http-chunked-length 1086 url-http-chunked-length
1086 url-http-chunked-start 1087 url-http-chunked-start
1087 url-http-chunked-counter 1088 url-http-chunked-counter
1088 url-http-process 1089 url-http-process))
1089 proxy-object))
1090 (let ((connection (url-http-find-free-connection (url-host url) 1090 (let ((connection (url-http-find-free-connection (url-host url)
1091 (url-port url))) 1091 (url-port url)))
1092 (buffer (generate-new-buffer (format " *http %s:%d*" 1092 (buffer (generate-new-buffer (format " *http %s:%d*"
@@ -1122,7 +1122,6 @@ CBARGS as the arguments."
1122 url-http-data 1122 url-http-data
1123 url-http-target-url)) 1123 url-http-target-url))
1124 (set (make-local-variable var) nil)) 1124 (set (make-local-variable var) nil))
1125 (make-local-variable 'proxy-object)
1126 1125
1127 (setq url-http-method (or url-request-method "GET") 1126 (setq url-http-method (or url-request-method "GET")
1128 url-http-extra-headers url-request-extra-headers 1127 url-http-extra-headers url-request-extra-headers
@@ -1134,9 +1133,8 @@ CBARGS as the arguments."
1134 url-callback-function callback 1133 url-callback-function callback
1135 url-callback-arguments cbargs 1134 url-callback-arguments cbargs
1136 url-http-after-change-function 'url-http-wait-for-headers-change-function 1135 url-http-after-change-function 'url-http-wait-for-headers-change-function
1137 url-http-target-url (if (boundp 'proxy-object) 1136 url-http-target-url (or url-proxy-object
1138 proxy-object 1137 url-current-object))
1139 url-current-object))
1140 1138
1141 (set-process-buffer connection buffer) 1139 (set-process-buffer connection buffer)
1142 (set-process-filter connection 'url-http-generic-filter) 1140 (set-process-filter connection 'url-http-generic-filter)
@@ -1151,7 +1149,7 @@ CBARGS as the arguments."
1151 (url-port url))) 1149 (url-port url)))
1152 (t 1150 (t
1153 (set-process-sentinel connection 'url-http-end-of-document-sentinel) 1151 (set-process-sentinel connection 'url-http-end-of-document-sentinel)
1154 (process-send-string connection (url-http-create-request url))))))) 1152 (process-send-string connection (url-http-create-request)))))))
1155 buffer)) 1153 buffer))
1156 1154
1157(defun url-http-async-sentinel (proc why) 1155(defun url-http-async-sentinel (proc why)
@@ -1162,7 +1160,7 @@ CBARGS as the arguments."
1162 (cond 1160 (cond
1163 ((string= (substring why 0 4) "open") 1161 ((string= (substring why 0 4) "open")
1164 (set-process-sentinel proc 'url-http-end-of-document-sentinel) 1162 (set-process-sentinel proc 'url-http-end-of-document-sentinel)
1165 (process-send-string proc (url-http-create-request url-http-target-url))) 1163 (process-send-string proc (url-http-create-request)))
1166 (t 1164 (t
1167 (setf (car url-callback-arguments) 1165 (setf (car url-callback-arguments)
1168 (nconc (list :error (list 'error 'connection-failed why 1166 (nconc (list :error (list 'error 'connection-failed why
diff --git a/lisp/url/url-proxy.el b/lisp/url/url-proxy.el
index c3bfb1e0c4b..5374030587b 100644
--- a/lisp/url/url-proxy.el
+++ b/lisp/url/url-proxy.el
@@ -65,12 +65,18 @@
65 (url-warn 'url (format "Unknown proxy directive: %s" proxy) 'critical) 65 (url-warn 'url (format "Unknown proxy directive: %s" proxy) 'critical)
66 nil)))) 66 nil))))
67 67
68(defvar url-proxy-object nil
69 "The URL to access through a proxy.
70This variable is bound by `url-proxy'. If this is non-nil, the
71scheme-specific loader should use its argument as the proxy, and
72the value of this variable as the object to retrieve.")
73
68(defun url-proxy (url callback &optional cbargs) 74(defun url-proxy (url callback &optional cbargs)
69 ;; Retrieve URL from a proxy. 75 ;; Retrieve URL from a proxy.
70 ;; Expects `url-using-proxy' to be bound to the specific proxy to use." 76 ;; Expects `url-using-proxy' to be bound to the specific proxy to use."
71 (setq url-using-proxy (url-generic-parse-url url-using-proxy)) 77 (setq url-using-proxy (url-generic-parse-url url-using-proxy))
72 (let ((proxy-object (copy-sequence url))) 78 (let ((url-proxy-object (copy-sequence url)))
73 (url-set-target proxy-object nil) 79 (url-set-target url-proxy-object nil)
74 (url-http url-using-proxy callback cbargs))) 80 (url-http url-using-proxy callback cbargs)))
75 81
76(provide 'url-proxy) 82(provide 'url-proxy)
diff --git a/lisp/url/url.el b/lisp/url/url.el
index a95c7e39c02..4ba604203dc 100644
--- a/lisp/url/url.el
+++ b/lisp/url/url.el
@@ -172,6 +172,7 @@ the list of events, as described in the docstring of `url-retrieve'."
172 (unless (url-type url) 172 (unless (url-type url)
173 (error "Bad url: %s" (url-recreate-url url))) 173 (error "Bad url: %s" (url-recreate-url url)))
174 (let ((loader (url-scheme-get-property (url-type url) 'loader)) 174 (let ((loader (url-scheme-get-property (url-type url) 'loader))
175 (url-proxy-object nil)
175 (url-using-proxy (if (url-host url) 176 (url-using-proxy (if (url-host url)
176 (url-find-proxy-for-url url (url-host url)))) 177 (url-find-proxy-for-url url (url-host url))))
177 (buffer nil) 178 (buffer nil)
diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el
index 7ee88d9ba22..11c2dcd78f4 100644
--- a/lisp/w32-fns.el
+++ b/lisp/w32-fns.el
@@ -479,5 +479,19 @@ that Emacs is unable to cope with."
479 (expand-file-name (pop command-line-args-left)))) 479 (expand-file-name (pop command-line-args-left))))
480 (batch-update-autoloads))) 480 (batch-update-autoloads)))
481 481
482(defun w32-append-code-lines (orig extra)
483 "Append non-empty non-comment lines in the file EXTRA to the file ORIG.
484
485This function saves all buffers and kills the Emacs session, without asking
486for any permissions.
487
488This is required because the Windows build environment is not required
489to include Sed, which is used by leim/Makefile.in to do the job."
490 (find-file orig)
491 (goto-char (point-max))
492 (insert-file-contents extra)
493 (delete-matching-lines "^$\\|^;")
494 (save-buffers-kill-emacs t))
495
482;;; arch-tag: c49b48cc-0f4f-454f-a274-c2dc34815e14 496;;; arch-tag: c49b48cc-0f4f-454f-a274-c2dc34815e14
483;;; w32-fns.el ends here 497;;; w32-fns.el ends here
diff --git a/lisp/wdired.el b/lisp/wdired.el
index bc70e0ddcfd..5a925e5d031 100644
--- a/lisp/wdired.el
+++ b/lisp/wdired.el
@@ -283,10 +283,13 @@ or \\[wdired-abort-changes] to abort changes")))
283 (when (and filename 283 (when (and filename
284 (not (member (file-name-nondirectory filename) '("." "..")))) 284 (not (member (file-name-nondirectory filename) '("." ".."))))
285 (dired-move-to-filename) 285 (dired-move-to-filename)
286 (put-text-property (- (point) 2) (1- (point)) 'old-name filename) 286 ;; The rear-nonsticky property below shall ensure that text preceding
287 (put-text-property b-protection (1- (point)) 'read-only t) 287 ;; the filename can't be modified.
288 (setq b-protection (dired-move-to-end-of-filename t))) 288 (add-text-properties
289 (put-text-property (point) (1+ (point)) 'end-name t) 289 (1- (point)) (point) `(old-name ,filename rear-nonsticky (read-only)))
290 (put-text-property b-protection (point) 'read-only t)
291 (setq b-protection (dired-move-to-end-of-filename t))
292 (put-text-property (point) (1+ (point)) 'end-name t))
290 (forward-line)) 293 (forward-line))
291 (put-text-property b-protection (point-max) 'read-only t)))) 294 (put-text-property b-protection (point-max) 'read-only t))))
292 295
@@ -312,20 +315,21 @@ relies on WDired buffer's properties. Optional arg NO-DIR with value
312non-nil means don't include directory. Optional arg OLD with value 315non-nil means don't include directory. Optional arg OLD with value
313non-nil means return old filename." 316non-nil means return old filename."
314 ;; FIXME: Use dired-get-filename's new properties. 317 ;; FIXME: Use dired-get-filename's new properties.
315 (let* ((end (line-end-position)) 318 (let (beg end file)
316 (beg (next-single-property-change 319 (save-excursion
317 (line-beginning-position) 'old-name nil end))) 320 (setq end (line-end-position))
318 (unless (eq beg end) 321 (beginning-of-line)
319 (let ((file 322 (setq beg (next-single-property-change (point) 'old-name nil end))
320 (if old 323 (unless (eq beg end)
321 (get-text-property beg 'old-name) 324 (if old
322 (wdired-normalize-filename 325 (setq file (get-text-property beg 'old-name))
323 (buffer-substring-no-properties 326 (setq end (next-single-property-change (1+ beg) 'end-name))
324 (+ 2 beg) (next-single-property-change (1+ beg) 'end-name)))))) 327 (setq file (buffer-substring-no-properties (1+ beg) end)))
325 (if (or no-dir old) 328 (and file (setq file (wdired-normalize-filename file))))
326 file 329 (if (or no-dir old)
327 (and file (> (length file) 0) 330 file
328 (concat (dired-current-directory) file))))))) 331 (and file (> (length file) 0)
332 (concat (dired-current-directory) file))))))
329 333
330 334
331(defun wdired-change-to-dired-mode () 335(defun wdired-change-to-dired-mode ()
@@ -333,9 +337,9 @@ non-nil means return old filename."
333 (or (eq major-mode 'wdired-mode) 337 (or (eq major-mode 'wdired-mode)
334 (error "Not a Wdired buffer")) 338 (error "Not a Wdired buffer"))
335 (let ((inhibit-read-only t)) 339 (let ((inhibit-read-only t))
336 (remove-text-properties (point-min) (point-max) 340 (remove-text-properties
337 '(read-only nil local-map nil))) 341 (point-min) (point-max)
338 (put-text-property 1 2 'front-sticky nil) 342 '(front-sticky nil rear-nonsticky nil read-only nil keymap nil)))
339 (use-local-map dired-mode-map) 343 (use-local-map dired-mode-map)
340 (force-mode-line-update) 344 (force-mode-line-update)
341 (setq buffer-read-only t) 345 (setq buffer-read-only t)
@@ -368,46 +372,42 @@ non-nil means return old filename."
368 (errors 0) 372 (errors 0)
369 file-ori file-new tmp-value) 373 file-ori file-new tmp-value)
370 (save-excursion 374 (save-excursion
371 (if (and wdired-allow-to-redirect-links 375 (when (and wdired-allow-to-redirect-links
372 (fboundp 'make-symbolic-link)) 376 (fboundp 'make-symbolic-link))
373 (progn 377 (setq tmp-value (wdired-do-symlink-changes))
374 (setq tmp-value (wdired-do-symlink-changes)) 378 (setq errors (cdr tmp-value))
375 (setq errors (cdr tmp-value)) 379 (setq changes (car tmp-value)))
376 (setq changes (car tmp-value)))) 380 (when (and wdired-allow-to-change-permissions
377 (if (and wdired-allow-to-change-permissions 381 (boundp 'wdired-col-perm)) ; could have been changed
378 (boundp 'wdired-col-perm)) ; could have been changed 382 (setq tmp-value (wdired-do-perm-changes))
379 (progn 383 (setq errors (+ errors (cdr tmp-value)))
380 (setq tmp-value (wdired-do-perm-changes)) 384 (setq changes (or changes (car tmp-value))))
381 (setq errors (+ errors (cdr tmp-value)))
382 (setq changes (or changes (car tmp-value)))))
383 (goto-char (point-max)) 385 (goto-char (point-max))
384 (while (not (bobp)) 386 (while (not (bobp))
385 (setq file-ori (wdired-get-filename nil t)) 387 (setq file-ori (wdired-get-filename nil t))
386 (if file-ori 388 (when file-ori
387 (setq file-new (wdired-get-filename))) 389 (setq file-new (wdired-get-filename)))
388 (if (and file-ori (not (equal file-new file-ori))) 390 (when (and file-ori (not (equal file-new file-ori)))
389 (progn 391 (setq changes t)
390 (setq changes t) 392 (if (not file-new) ;empty filename!
391 (if (not file-new) ;empty filename! 393 (setq files-deleted (cons file-ori files-deleted))
392 (setq files-deleted (cons file-ori files-deleted)) 394 (setq file-new (substitute-in-file-name file-new))
393 (progn 395 (if wdired-use-interactive-rename
394 (setq file-new (substitute-in-file-name file-new)) 396 (wdired-search-and-rename file-ori file-new)
395 (if wdired-use-interactive-rename 397 ;; If dired-rename-file autoloads dired-aux while
396 (wdired-search-and-rename file-ori file-new) 398 ;; dired-backup-overwrite is locally bound,
397 ;; If dired-rename-file autoloads dired-aux while 399 ;; dired-backup-overwrite won't be initialized.
398 ;; dired-backup-overwrite is locally bound, 400 ;; So we must ensure dired-aux is loaded.
399 ;; dired-backup-overwrite won't be initialized. 401 (require 'dired-aux)
400 ;; So we must ensure dired-aux is loaded. 402 (condition-case err
401 (require 'dired-aux) 403 (let ((dired-backup-overwrite nil))
402 (condition-case err 404 (dired-rename-file file-ori file-new
403 (let ((dired-backup-overwrite nil)) 405 overwrite))
404 (dired-rename-file file-ori file-new 406 (error
405 overwrite)) 407 (setq errors (1+ errors))
406 (error 408 (dired-log (concat "Rename `" file-ori "' to `"
407 (setq errors (1+ errors)) 409 file-new "' failed:\n%s\n")
408 (dired-log (concat "Rename `" file-ori "' to `" 410 err))))))
409 file-new "' failed:\n%s\n")
410 err))))))))
411 (forward-line -1))) 411 (forward-line -1)))
412 (if changes 412 (if changes
413 (revert-buffer) ;The "revert" is necessary to re-sort the buffer 413 (revert-buffer) ;The "revert" is necessary to re-sort the buffer
@@ -417,10 +417,10 @@ non-nil means return old filename."
417 end-link nil end-perm nil 417 end-link nil end-perm nil
418 old-perm nil perm-changed nil)) 418 old-perm nil perm-changed nil))
419 (message "(No changes to be performed)"))) 419 (message "(No changes to be performed)")))
420 (if files-deleted 420 (when files-deleted
421 (wdired-flag-for-deletion files-deleted)) 421 (wdired-flag-for-deletion files-deleted))
422 (if (> errors 0) 422 (when (> errors 0)
423 (dired-log-summary (format "%d rename actions failed" errors) nil))) 423 (dired-log-summary (format "%d rename actions failed" errors) nil)))
424 (set-buffer-modified-p nil) 424 (set-buffer-modified-p nil)
425 (setq buffer-undo-list nil)) 425 (setq buffer-undo-list nil))
426 426
@@ -446,10 +446,9 @@ non-nil means return old filename."
446 (dired-do-create-files-regexp 446 (dired-do-create-files-regexp
447 (function dired-rename-file) 447 (function dired-rename-file)
448 "Move" 1 ".*" filename-new nil t)) 448 "Move" 1 ".*" filename-new nil t))
449 (progn 449 (forward-line -1)
450 (forward-line -1) 450 (beginning-of-line)
451 (beginning-of-line) 451 (setq exit-while (bobp)))))))
452 (setq exit-while (= 1 (point)))))))))
453 452
454;; marks a list of files for deletion 453;; marks a list of files for deletion
455(defun wdired-flag-for-deletion (filenames-ori) 454(defun wdired-flag-for-deletion (filenames-ori)
@@ -518,7 +517,10 @@ says how many lines to move; default is one line."
518 (1- (match-beginning 1)) 'old-link 517 (1- (match-beginning 1)) 'old-link
519 (match-string-no-properties 1)) 518 (match-string-no-properties 1))
520 (put-text-property (match-end 1) (1+ (match-end 1)) 'end-link t) 519 (put-text-property (match-end 1) (1+ (match-end 1)) 'end-link t)
521 (put-text-property (1- (match-beginning 1)) 520 (put-text-property (1- (match-beginning 1))
521 (match-beginning 1)
522 'rear-nonsticky '(read-only))
523 (put-text-property (match-beginning 1)
522 (match-end 1) 'read-only nil))) 524 (match-end 1) 'read-only nil)))
523 (forward-line) 525 (forward-line)
524 (beginning-of-line))))) 526 (beginning-of-line)))))
@@ -527,15 +529,17 @@ says how many lines to move; default is one line."
527(defun wdired-get-previous-link (&optional old move) 529(defun wdired-get-previous-link (&optional old move)
528 "Return the next symlink target. 530 "Return the next symlink target.
529If OLD, return the old target. If MOVE, move point before it." 531If OLD, return the old target. If MOVE, move point before it."
530 (let ((beg (previous-single-property-change (point) 'old-link nil))) 532 (let (beg end target)
531 (when beg 533 (setq beg (previous-single-property-change (point) 'old-link nil))
532 (let ((target 534 (if beg
533 (if old 535 (progn
534 (get-text-property (1- beg) 'old-link) 536 (if old
535 (buffer-substring-no-properties 537 (setq target (get-text-property (1- beg) 'old-link))
536 (1+ beg) (next-single-property-change beg 'end-link))))) 538 (setq end (next-single-property-change beg 'end-link))
537 (if move (goto-char (1- beg))) 539 (setq target (buffer-substring-no-properties (1+ beg) end)))
538 (and target (wdired-normalize-filename target)))))) 540 (if move (goto-char (1- beg)))))
541 (and target (wdired-normalize-filename target))))
542
539 543
540;; Perform the changes in the target of the changed links. 544;; Perform the changes in the target of the changed links.
541(defun wdired-do-symlink-changes () 545(defun wdired-do-symlink-changes ()
@@ -613,29 +617,34 @@ Like original function but it skips read-only words."
613 (define-key map [down-mouse-1] 'wdired-mouse-toggle-bit) 617 (define-key map [down-mouse-1] 'wdired-mouse-toggle-bit)
614 map)) 618 map))
615 619
616;; Put a local-map to the permission bits of the files, and store the 620;; Put a keymap property to the permission bits of the files, and store the
617;; original name and permissions as a property 621;; original name and permissions as a property
618(defun wdired-preprocess-perms () 622(defun wdired-preprocess-perms ()
619 (let ((inhibit-read-only t) 623 (let ((inhibit-read-only t))
620 filename)
621 (set (make-local-variable 'wdired-col-perm) nil) 624 (set (make-local-variable 'wdired-col-perm) nil)
622 (save-excursion 625 (save-excursion
623 (goto-char (point-min)) 626 (goto-char (point-min))
624 (while (not (eobp)) 627 (while (not (eobp))
625 (if (and (not (looking-at dired-re-sym)) 628 (when (and (not (looking-at dired-re-sym))
626 (setq filename (wdired-get-filename))) 629 (wdired-get-filename)
627 (progn 630 (re-search-forward dired-re-perms (line-end-position) 'eol))
628 (re-search-forward dired-re-perms) 631 (let ((begin (match-beginning 0))
629 (or wdired-col-perm 632 (end (match-end 0)))
630 (setq wdired-col-perm (- (current-column) 9))) 633 (unless wdired-col-perm
631 (if (eq wdired-allow-to-change-permissions 'advanced) 634 (setq wdired-col-perm (- (current-column) 9)))
632 (put-text-property (match-beginning 0) (match-end 0) 635 (if (eq wdired-allow-to-change-permissions 'advanced)
633 'read-only nil) 636 (progn
634 (put-text-property (1+ (match-beginning 0)) (match-end 0) 637 (put-text-property begin end 'read-only nil)
635 'keymap wdired-perm-mode-map)) 638 ;; make first permission bit writable
636 (put-text-property (match-end 0) (1+ (match-end 0)) 'end-perm t) 639 (put-text-property
637 (put-text-property (match-beginning 0) (1+ (match-beginning 0)) 640 (1- begin) begin 'rear-nonsticky '(read-only)))
638 'old-perm (match-string-no-properties 0)))) 641 ;; avoid that keymap applies to text following permissions
642 (add-text-properties
643 (1+ begin) end
644 `(keymap ,wdired-perm-mode-map rear-nonsticky (keymap))))
645 (put-text-property end (1+ end) 'end-perm t)
646 (put-text-property
647 begin (1+ begin) 'old-perm (match-string-no-properties 0))))
639 (forward-line) 648 (forward-line)
640 (beginning-of-line))))) 649 (beginning-of-line)))))
641 650
@@ -661,24 +670,27 @@ Like original function but it skips read-only words."
661 (put-text-property 0 1 'read-only t new-bit) 670 (put-text-property 0 1 'read-only t new-bit)
662 (insert new-bit) 671 (insert new-bit)
663 (delete-char 1) 672 (delete-char 1)
664 (put-text-property pos-prop (1- pos-prop) 'perm-changed t)) 673 (put-text-property (1- pos-prop) pos-prop 'perm-changed t)
674 (put-text-property (1- (point)) (point) 'rear-nonsticky '(keymap)))
665 (forward-char 1))) 675 (forward-char 1)))
666 676
667(defun wdired-toggle-bit () 677(defun wdired-toggle-bit ()
668 "Toggle the permission bit at point." 678 "Toggle the permission bit at point."
669 (interactive) 679 (interactive)
670 (let ((inhibit-read-only t) 680 (let ((inhibit-read-only t)
671 (new-bit (cond 681 (new-bit "-")
672 ((not (eq (char-after (point)) ?-)) "-")
673 ((= (% (- (current-column) wdired-col-perm) 3) 0) "r")
674 ((= (% (- (current-column) wdired-col-perm) 3) 1) "w")
675 (t "x")))
676 (pos-prop (- (point) (- (current-column) wdired-col-perm)))) 682 (pos-prop (- (point) (- (current-column) wdired-col-perm))))
683 (if (eq (char-after (point)) ?-)
684 (setq new-bit
685 (if (= (% (- (current-column) wdired-col-perm) 3) 0) "r"
686 (if (= (% (- (current-column) wdired-col-perm) 3) 1) "w"
687 "x"))))
677 (put-text-property 0 1 'keymap wdired-perm-mode-map new-bit) 688 (put-text-property 0 1 'keymap wdired-perm-mode-map new-bit)
678 (put-text-property 0 1 'read-only t new-bit) 689 (put-text-property 0 1 'read-only t new-bit)
679 (insert new-bit) 690 (insert new-bit)
680 (delete-char 1) 691 (delete-char 1)
681 (put-text-property pos-prop (1- pos-prop) 'perm-changed t))) 692 (put-text-property (1- pos-prop) pos-prop 'perm-changed t)
693 (put-text-property (1- (point)) (point) 'rear-nonsticky '(keymap))))
682 694
683(defun wdired-mouse-toggle-bit (event) 695(defun wdired-mouse-toggle-bit (event)
684 "Toggle the permission bit that was left clicked." 696 "Toggle the permission bit that was left clicked."
@@ -690,28 +702,23 @@ Like original function but it skips read-only words."
690;; Allowed chars for 2000 bit are Ssl in position 6 702;; Allowed chars for 2000 bit are Ssl in position 6
691;; Allowed chars for 1000 bit are Tt in position 9 703;; Allowed chars for 1000 bit are Tt in position 9
692(defun wdired-perms-to-number (perms) 704(defun wdired-perms-to-number (perms)
693 (+ 705 (let ((nperm 0777))
694 (if (= (elt perms 1) ?-) 0 400) 706 (if (= (elt perms 1) ?-) (setq nperm (- nperm 400)))
695 (if (= (elt perms 2) ?-) 0 200) 707 (if (= (elt perms 2) ?-) (setq nperm (- nperm 200)))
696 (case (elt perms 3) 708 (let ((p-bit (elt perms 3)))
697 (?- 0) 709 (if (memq p-bit '(?- ?S)) (setq nperm (- nperm 100)))
698 (?S 4000) 710 (if (memq p-bit '(?s ?S)) (setq nperm (+ nperm 4000))))
699 (?s 4100) 711 (if (= (elt perms 4) ?-) (setq nperm (- nperm 40)))
700 (t 100)) 712 (if (= (elt perms 5) ?-) (setq nperm (- nperm 20)))
701 (if (= (elt perms 4) ?-) 0 40) 713 (let ((p-bit (elt perms 6)))
702 (if (= (elt perms 5) ?-) 0 20) 714 (if (memq p-bit '(?- ?S ?l)) (setq nperm (- nperm 10)))
703 (case (elt perms 6) 715 (if (memq p-bit '(?s ?S ?l)) (setq nperm (+ nperm 2000))))
704 (?- 0) 716 (if (= (elt perms 7) ?-) (setq nperm (- nperm 4)))
705 (?S 2000) 717 (if (= (elt perms 8) ?-) (setq nperm (- nperm 2)))
706 (?s 2010) 718 (let ((p-bit (elt perms 9)))
707 (t 10)) 719 (if (memq p-bit '(?- ?T)) (setq nperm (- nperm 1)))
708 (if (= (elt perms 7) ?-) 0 4) 720 (if (memq p-bit '(?t ?T)) (setq nperm (+ nperm 1000))))
709 (if (= (elt perms 8) ?-) 0 2) 721 nperm))
710 (case (elt perms 9)
711 (?- 0)
712 (?T 1000)
713 (?t 1001)
714 (t 1))))
715 722
716;; Perform the changes in the permissions of the files that have 723;; Perform the changes in the permissions of the files that have
717;; changed. 724;; changed.
diff --git a/lispref/ChangeLog b/lispref/ChangeLog
index 88aeae85b25..69098b20e64 100644
--- a/lispref/ChangeLog
+++ b/lispref/ChangeLog
@@ -1,3 +1,33 @@
12006-12-11 Richard Stallman <rms@gnu.org>
2
3 * modes.texi (Font Lock Basics): Explain how nil for font-lock-defaults
4 affects face menu. Explain how to make it non-nil without enabling
5 any fontification.
6
72006-12-10 Chong Yidong <cyd@stupidchicken.com>
8
9 * modes.texi (Font Lock Basics): Document nil value of
10 font-lock-defaults.
11
122006-12-10 Glenn Morris <rgm@gnu.org>
13
14 * abbrevs.texi (Defining Abbrevs): Mention `define-abbrev' 'force
15 value for system-flag argument. Abbrev tables may not be empty
16 when major modes are loaded.
17
182006-12-08 Juanma Barranquero <lekktu@gmail.com>
19
20 * makefile.w32-in (maintainer-clean): Partially revert last
21 change; delete "elisp-?" and "elisp-??" instead of "elisp-*"
22 to protect elisp-covers.texi.
23
242006-12-07 Juanma Barranquero <lekktu@gmail.com>
25
26 * makefile.w32-in (maintainer-clean): Depend on `distclean'.
27 Don't remove elisp* info files; they are already deleted by the
28 `clean' and `distclean' targets, and they are in the $(infodir)
29 directory, not the current one.
30
12006-12-04 Kim F. Storm <storm@cua.dk> 312006-12-04 Kim F. Storm <storm@cua.dk>
2 32
3 * commands.texi (Misc Events): Update signal events. 33 * commands.texi (Misc Events): Update signal events.
diff --git a/lispref/abbrevs.texi b/lispref/abbrevs.texi
index 52b3dfe1ad6..6facbf1e3b8 100644
--- a/lispref/abbrevs.texi
+++ b/lispref/abbrevs.texi
@@ -131,9 +131,12 @@ to add these to @var{name} separately.)
131@comment node-name, next, previous, up 131@comment node-name, next, previous, up
132@section Defining Abbrevs 132@section Defining Abbrevs
133 @code{define-abbrev} is the low-level basic function for defining an 133 @code{define-abbrev} is the low-level basic function for defining an
134abbrev in a specified abbrev table. When major modes predefine 134abbrev in a specified abbrev table. When major modes predefine standard
135standard abbrevs, they should call @code{define-abbrev} and specify 135abbrevs, they should call @code{define-abbrev} and specify @code{t} for
136@code{t} for @var{system-flag}. 136@var{system-flag}. Be aware that any saved non-``system'' abbrevs are
137restored at startup, i.e. before some major modes are loaded. Major modes
138should therefore not assume that when they are first loaded their abbrev
139tables are empty.
137 140
138@defun define-abbrev table name expansion &optional hook count system-flag 141@defun define-abbrev table name expansion &optional hook count system-flag
139This function defines an abbrev named @var{name}, in @var{table}, to 142This function defines an abbrev named @var{name}, in @var{table}, to
@@ -165,7 +168,10 @@ returns @code{nil}, @code{expand-abbrev} also returns @code{nil}, as
165if expansion had not really occurred. 168if expansion had not really occurred.
166 169
167If @var{system-flag} is non-@code{nil}, that marks the abbrev as a 170If @var{system-flag} is non-@code{nil}, that marks the abbrev as a
168``system'' abbrev with the @code{system-type} property. 171``system'' abbrev with the @code{system-type} property. Unless
172@var{system-flag} has the value @code{force}, a ``system'' abbrev will
173not overwrite an existing definition for a non-``system'' abbrev of the
174same name.
169 175
170Normally the function @code{define-abbrev} sets the variable 176Normally the function @code{define-abbrev} sets the variable
171@code{abbrevs-changed} to @code{t}, if it actually changes the abbrev. 177@code{abbrevs-changed} to @code{t}, if it actually changes the abbrev.
diff --git a/lispref/makefile.w32-in b/lispref/makefile.w32-in
index 7da88058bd5..23ea3f05df5 100644
--- a/lispref/makefile.w32-in
+++ b/lispref/makefile.w32-in
@@ -119,5 +119,5 @@ clean:
119 119
120distclean: clean 120distclean: clean
121 121
122maintainer-clean: clean 122maintainer-clean: distclean
123 - $(DEL) elisp elisp-* elisp.dvi elisp.oaux 123 - $(DEL) elisp elisp-? elisp-?? elisp.dvi elisp.oaux
diff --git a/lispref/modes.texi b/lispref/modes.texi
index 4f68bb5064b..29c316d625d 100644
--- a/lispref/modes.texi
+++ b/lispref/modes.texi
@@ -2358,7 +2358,12 @@ Lock mode is enabled, to set all the other variables.
2358@defvar font-lock-defaults 2358@defvar font-lock-defaults
2359This variable is set by major modes, as a buffer-local variable, to 2359This variable is set by major modes, as a buffer-local variable, to
2360specify how to fontify text in that mode. It automatically becomes 2360specify how to fontify text in that mode. It automatically becomes
2361buffer-local when you set it. The value should look like this: 2361buffer-local when you set it. If its value is @code{nil}, Font-Lock
2362mode does no highlighting, and you can use the @samp{Faces} menu
2363(under @samp{Edit} and then @samp{Text Properties} in the menu bar) to
2364assign faces explicitly to text in the buffer.
2365
2366If non-@code{nil}, the value should look like this:
2362 2367
2363@example 2368@example
2364(@var{keywords} [@var{keywords-only} [@var{case-fold} 2369(@var{keywords} [@var{keywords-only} [@var{case-fold}
@@ -2374,9 +2379,10 @@ The first symbol specifies how to do level 1 fontification, the second
2374symbol how to do level 2, and so on. @xref{Levels of Font Lock}. 2379symbol how to do level 2, and so on. @xref{Levels of Font Lock}.
2375 2380
2376The second element, @var{keywords-only}, specifies the value of the 2381The second element, @var{keywords-only}, specifies the value of the
2377variable @code{font-lock-keywords-only}. If this is non-@code{nil}, 2382variable @code{font-lock-keywords-only}. If this is omitted or
2378syntactic fontification (of strings and comments) is not performed. 2383@code{nil}, syntactic fontification (of strings and comments) is also
2379@xref{Syntactic Font Lock}. 2384performed. If this is non-@code{nil}, such fontification is not
2385performed. @xref{Syntactic Font Lock}.
2380 2386
2381The third element, @var{case-fold}, specifies the value of 2387The third element, @var{case-fold}, specifies the value of
2382@code{font-lock-keywords-case-fold-search}. If it is non-@code{nil}, 2388@code{font-lock-keywords-case-fold-search}. If it is non-@code{nil},
@@ -2403,6 +2409,13 @@ fontification, aside from those you can control with the first five
2403elements. @xref{Other Font Lock Variables}. 2409elements. @xref{Other Font Lock Variables}.
2404@end defvar 2410@end defvar
2405 2411
2412 If your mode fontifies text explicitly by adding
2413@code{font-lock-face} properties, it can specify @code{(nil t)} for
2414@code{font-lock-defaults} to turn off all automatic fontification.
2415However, this is not required; it is possible to fontify some things
2416using @code{font-lock-face} properties and set up automatic
2417fontification for other parts of the text.
2418
2406@node Search-based Fontification 2419@node Search-based Fontification
2407@subsection Search-based Fontification 2420@subsection Search-based Fontification
2408 2421
diff --git a/man/ChangeLog b/man/ChangeLog
index 212da90ae1b..09eb469c53f 100644
--- a/man/ChangeLog
+++ b/man/ChangeLog
@@ -1,3 +1,39 @@
12006-12-15 Eli Zaretskii <eliz@gnu.org>
2
3 * text.texi (HTML Mode): Fix "C-c TAB".
4
52006-12-13 Reiner Steib <Reiner.Steib@gmx.de>
6
7 * gnus.texi (Hiding Headers): Document that `long-to' and `many-to'
8 also applies to Cc.
9
102006-12-12 Reiner Steib <Reiner.Steib@gmx.de>
11
12 * gnus.texi (X-Face): Clarify. Say which programs are required on
13 Windows.
14
152006-12-09 Richard Stallman <rms@gnu.org>
16
17 * misc.texi (Invoking emacsclient): Simplify TCP file text.
18
192006-12-08 Kevin Rodgers <ihs_4664@yahoo.com>
20
21 * files.texi (Misc File Ops): Document insert-file-literally.
22
232006-12-08 Eli Zaretskii <eliz@gnu.org>
24
25 * cmdargs.texi (Colors): Note that --color is intended for overriding
26 the terminal defaults, not for normal invocation.
27
28 * misc.texi (Emacs Server): Improve wording. Don't mention the
29 ``server program''. Add a cross-reference to "Init File" node.
30 (Invoking emacsclient): Add index entries. Document both short and
31 long versions of command-line options. Document the -f option.
32
332006-12-08 Michael Olson <mwolson@gnu.org>
34
35 * erc.texi (Modules): Remove documentation for list module.
36
12006-12-06 Richard Stallman <rms@gnu.org> 372006-12-06 Richard Stallman <rms@gnu.org>
2 38
3 * text.texi (Outline Format): Say to set outline-regexp 39 * text.texi (Outline Format): Say to set outline-regexp
diff --git a/man/cmdargs.texi b/man/cmdargs.texi
index fc17d7ec695..f664c3144ce 100644
--- a/man/cmdargs.texi
+++ b/man/cmdargs.texi
@@ -951,8 +951,12 @@ Reverse video---swap the foreground and background colors.
951@item --color=@var{mode} 951@item --color=@var{mode}
952@opindex --color 952@opindex --color
953@cindex standard colors on a character terminal 953@cindex standard colors on a character terminal
954For a character terminal only, specify the mode of color support. The 954@cindex override character terminal color support
955parameter @var{mode} can be one of the following: 955For a character terminal only, specify the mode of color support.
956This option is intended for overriding the number of supported colors
957that the character terminal advertises in its @code{termcap} or
958@code{terminfo} database. The parameter @var{mode} can be one of the
959following:
956@table @samp 960@table @samp
957@item never 961@item never
958@itemx no 962@itemx no
diff --git a/man/erc.texi b/man/erc.texi
index 0d535eae875..d8ae4157a47 100644
--- a/man/erc.texi
+++ b/man/erc.texi
@@ -422,10 +422,6 @@ Launch an identd server on port 8113
422@item irccontrols 422@item irccontrols
423Highlight or remove IRC control characters 423Highlight or remove IRC control characters
424 424
425@cindex modules, list
426@item list
427List channels nicely in a separate buffer
428
429@cindex modules, log 425@cindex modules, log
430@item log 426@item log
431Save buffers in logs 427Save buffers in logs
diff --git a/man/files.texi b/man/files.texi
index ccf619442d6..86e3282e542 100644
--- a/man/files.texi
+++ b/man/files.texi
@@ -2433,6 +2433,13 @@ in Emacs. @xref{Misc Buffer}.
2433contents of the specified file into the current buffer at point, 2433contents of the specified file into the current buffer at point,
2434leaving point unchanged before the contents and the mark after them. 2434leaving point unchanged before the contents and the mark after them.
2435 2435
2436@findex insert-file-literally
2437 @kbd{M-x insert-file-literally} is like @kbd{C-x i}, except it
2438inserts the specified file with no conversion of the contents: no
2439format conversion (@pxref{Formatted Text}), no character code
2440conversion (@pxref{Coding Systems}), and no automatic uncompression
2441(@pxref{Compressed Files}).
2442
2436@findex write-region 2443@findex write-region
2437 @kbd{M-x write-region} is the inverse of @kbd{M-x insert-file}; it 2444 @kbd{M-x write-region} is the inverse of @kbd{M-x insert-file}; it
2438copies the contents of the region into the specified file. @kbd{M-x 2445copies the contents of the region into the specified file. @kbd{M-x
diff --git a/man/gnus.texi b/man/gnus.texi
index a929bb2b208..7a83ea66a97 100644
--- a/man/gnus.texi
+++ b/man/gnus.texi
@@ -10975,15 +10975,15 @@ the current group's @code{to-address} parameter.
10975Remove the @code{To} header if it only contains the address identical to 10975Remove the @code{To} header if it only contains the address identical to
10976the current group's @code{to-list} parameter. 10976the current group's @code{to-list} parameter.
10977@item cc-list 10977@item cc-list
10978Remove the @code{CC} header if it only contains the address identical to 10978Remove the @code{Cc} header if it only contains the address identical to
10979the current group's @code{to-list} parameter. 10979the current group's @code{to-list} parameter.
10980@item date 10980@item date
10981Remove the @code{Date} header if the article is less than three days 10981Remove the @code{Date} header if the article is less than three days
10982old. 10982old.
10983@item long-to 10983@item long-to
10984Remove the @code{To} header if it is very long. 10984Remove the @code{To} and/or @code{Cc} header if it is very long.
10985@item many-to 10985@item many-to
10986Remove all @code{To} headers if there are more than one. 10986Remove all @code{To} and/or @code{Cc} headers if there are more than one.
10987@end table 10987@end table
10988 10988
10989To include these three elements, you could say something like: 10989To include these three elements, you could say something like:
@@ -22175,21 +22175,26 @@ have suitable conversion or display programs installed. If your Emacs
22175has image support the default action is to display the face before the 22175has image support the default action is to display the face before the
22176@code{From} header. If there's no native @code{X-Face} support, Gnus 22176@code{From} header. If there's no native @code{X-Face} support, Gnus
22177will try to convert the @code{X-Face} header using external programs 22177will try to convert the @code{X-Face} header using external programs
22178from the @code{pbmplus} package and friends. For XEmacs it's faster if 22178from the @code{pbmplus} package and friends, see below. For XEmacs it's
22179XEmacs has been compiled with @code{X-Face} support. The default action 22179faster if XEmacs has been compiled with @code{X-Face} support. The
22180under Emacs without image support is to fork off the @code{display} 22180default action under Emacs without image support is to fork off the
22181program. 22181@code{display} program.
22182 22182
22183On a GNU/Linux system, the @code{display} program is from the 22183On a GNU/Linux system, the @code{display} program is included in the
22184ImageMagick package. For external conversion programs look for packages 22184ImageMagick package. For external conversion programs look for packages
22185with names like @code{netpbm}, @code{libgr-progs} and @code{compface}. 22185with names like @code{netpbm}, @code{libgr-progs} and @code{compface}.
22186 22186On Windows, you may use the packages @code{netpbm} and @code{compface}
22187The variable that controls this is the 22187from @url{http://gnuwin32.sourceforge.net}. You need to add the
22188@code{gnus-article-x-face-command} variable. If this variable is a 22188@code{bin} directory to your @code{PATH} environment variable.
22189@c In fact only the following DLLs and binaries seem to be required:
22190@c compface1.dll uncompface.exe libnetpbm10.dll icontopbm.exe
22191
22192The variable @code{gnus-article-x-face-command} controls which programs
22193are used to display the @code{X-Face} header. If this variable is a
22189string, this string will be executed in a sub-shell. If it is a 22194string, this string will be executed in a sub-shell. If it is a
22190function, this function will be called with the face as the argument. 22195function, this function will be called with the face as the argument.
22191If @code{gnus-article-x-face-too-ugly} (which is a regexp) matches 22196If @code{gnus-article-x-face-too-ugly} (which is a regexp) matches the
22192the @code{From} header, the face will not be shown. 22197@code{From} header, the face will not be shown.
22193 22198
22194(Note: @code{x-face} is used in the variable/function names, not 22199(Note: @code{x-face} is used in the variable/function names, not
22195@code{xface}). 22200@code{xface}).
diff --git a/man/misc.texi b/man/misc.texi
index da8c3179b91..72ddd96534a 100644
--- a/man/misc.texi
+++ b/man/misc.texi
@@ -1244,28 +1244,36 @@ variable @env{EDITOR} to specify which editor to run. If you set
1244@env{EDITOR} to @samp{emacs}, they invoke Emacs---but in an 1244@env{EDITOR} to @samp{emacs}, they invoke Emacs---but in an
1245inconvenient fashion, by starting a new, separate Emacs process. This 1245inconvenient fashion, by starting a new, separate Emacs process. This
1246is inconvenient because it takes time and because the new Emacs process 1246is inconvenient because it takes time and because the new Emacs process
1247doesn't share the buffers in any existing Emacs process. 1247doesn't share the buffers with any existing Emacs process.
1248 1248
1249 You can arrange to use your existing Emacs process as the editor for 1249 You can arrange to use your existing Emacs process as the editor for
1250programs like @code{mail} by using the Emacs client and Emacs server 1250programs like @code{mail} by using the Emacs client program and the
1251programs. Here is how. 1251server that is part of Emacs. Here is how.
1252 1252
1253@cindex @env{TEXEDIT} environment variable 1253@cindex @env{TEXEDIT} environment variable
1254 First, the preparation. Within Emacs, call the function 1254@findex server-start
1255@code{server-start}. (Your @file{.emacs} file can do this automatically 1255 First, the preparations. Within Emacs, call the function
1256if you add the expression @code{(server-start)} to it.) Then, outside 1256@code{server-start}. (Your @file{.emacs} init file can do this
1257Emacs, set the @env{EDITOR} environment variable to @samp{emacsclient}. 1257automatically if you add the expression @code{(server-start)} to it,
1258(Note that some programs use a different environment variable; for 1258see @ref{Init File}.) Then, outside Emacs, set the @env{EDITOR}
1259example, to make @TeX{} use @samp{emacsclient}, you should set the 1259environment variable to @samp{emacsclient}. (Note that some programs
1260@env{TEXEDIT} environment variable to @samp{emacsclient +%d %s}.) 1260use a different environment variable; for example, to make @TeX{} use
1261@samp{emacsclient}, you should set the @env{TEXEDIT} environment
1262variable to @samp{emacsclient +%d %s}.)
1263
1264@pindex emacs.bash
1265@cindex Bash command to use Emacs server
1266 As an alternative to using @code{emacsclient}, the file
1267@file{etc/emacs.bash} defines a Bash command @code{edit} which will
1268communicate with a running Emacs session, or start one if none exist.
1261 1269
1262@kindex C-x # 1270@kindex C-x #
1263@findex server-edit 1271@findex server-edit
1264 Then, whenever any program invokes your specified @env{EDITOR} 1272 Now, whenever any program invokes your specified @env{EDITOR}
1265program, the effect is to send a message to your principal Emacs telling 1273program, the effect is to send a message to your principal Emacs telling
1266it to visit a file. (That's what the program @code{emacsclient} does.) 1274it to visit a file. (That's what the program @code{emacsclient} does.)
1267Emacs displays the buffer immediately and you can immediately begin 1275Emacs displays the buffer immediately and you can immediately begin
1268editing it. 1276editing it in the already running Emacs session.
1269 1277
1270 When you've finished editing that buffer, type @kbd{C-x #} 1278 When you've finished editing that buffer, type @kbd{C-x #}
1271(@code{server-edit}). This saves the file and sends a message back to 1279(@code{server-edit}). This saves the file and sends a message back to
@@ -1297,8 +1305,8 @@ kills it if the file name matches the regular expression
1297each one a unique ``server name'', using the variable 1305each one a unique ``server name'', using the variable
1298@code{server-name}. For example, @kbd{M-x set-variable @key{RET} 1306@code{server-name}. For example, @kbd{M-x set-variable @key{RET}
1299server-name @key{RET} foo @key{RET}} sets the server name to 1307server-name @key{RET} foo @key{RET}} sets the server name to
1300@samp{foo}. The @code{emacsclient} program can visit a server by name 1308@samp{foo}. The @code{emacsclient} program can specify a server by
1301using the @samp{-s} option. @xref{Invoking emacsclient}. 1309name using the @samp{-s} option. @xref{Invoking emacsclient}.
1302 1310
1303 While @code{mail} or another application is waiting for 1311 While @code{mail} or another application is waiting for
1304@code{emacsclient} to finish, @code{emacsclient} does not read terminal 1312@code{emacsclient} to finish, @code{emacsclient} does not read terminal
@@ -1335,6 +1343,7 @@ automatically when you finish with them.
1335 1343
1336@node Invoking emacsclient,, Emacs Server, Emacs Server 1344@node Invoking emacsclient,, Emacs Server, Emacs Server
1337@subsection Invoking @code{emacsclient} 1345@subsection Invoking @code{emacsclient}
1346@cindex @code{emacsclient} invocation and options
1338 1347
1339 To run the @code{emacsclient} program, specify file names as arguments, 1348 To run the @code{emacsclient} program, specify file names as arguments,
1340and optionally line numbers as well, like this: 1349and optionally line numbers as well, like this:
@@ -1363,37 +1372,52 @@ a client buffer, the next client buffer is automatically selected.
1363@code{emacsclient}, then it returns immediately. (You can take as 1372@code{emacsclient}, then it returns immediately. (You can take as
1364long as you like to edit the files in Emacs.) 1373long as you like to edit the files in Emacs.)
1365 1374
1366 The option @samp{--alternate-editor=@var{command}} specifies a 1375 The option @samp{-a @var{command}} or
1367command to run if @code{emacsclient} fails to contact Emacs. This is 1376@samp{--alternate-editor=@var{command}} specifies a command to run if
1368useful when running @code{emacsclient} in a script. For example, the 1377@code{emacsclient} fails to contact Emacs. This is useful when
1369following setting for the @env{EDITOR} environment variable will 1378running @code{emacsclient} in a script. For example, the following
1370always give you an editor, even if no Emacs server is running: 1379setting for the @env{EDITOR} environment variable will always give you
1380an editor, even if no Emacs server is running:
1371 1381
1372@example 1382@example
1373EDITOR="emacsclient --alternate-editor emacs +%d %s" 1383EDITOR="emacsclient --alternate-editor emacs +%d %s"
1374@end example 1384@end example
1375 1385
1376@noindent 1386@noindent
1387@cindex @env{ALTERNATE_EDITOR} environment variable
1377The environment variable @env{ALTERNATE_EDITOR} has the same effect, with 1388The environment variable @env{ALTERNATE_EDITOR} has the same effect, with
1378the value of the @samp{--alternate-editor} option taking precedence. 1389the value of the @samp{--alternate-editor} option taking precedence.
1379 1390
1380@pindex emacs.bash
1381 Alternatively, the file @file{etc/emacs.bash} defines a bash
1382function which will communicate with a running Emacs server, or start
1383one if none exists.
1384
1385If you use several displays, you can tell Emacs on which display to 1391If you use several displays, you can tell Emacs on which display to
1386open the given files with the option @samp{--display=@var{DISPLAY}}. 1392open the given files with the @samp{-d @var{display}} or
1387This can be used typically when connecting from home to an Emacs 1393@samp{--display=@var{display}} option to @code{emacsclient}. This is
1388server running on your machine at your workplace. 1394handy when connecting from home to an Emacs session running on your
1395machine at your workplace.
1389 1396
1390If there is more than one Emacs server running, you can specify a 1397If there is more than one Emacs server running, you can specify a
1391server name with the option @samp{-s @var{name}}. 1398server name with the @samp{-s @var{name}} or
1399@samp{--socket-name=@var{name}} option to @code{emacsclient}. (This
1400option is not supported on MS-Windows.)
1392 1401
1393You can also use @code{emacsclient} to execute any piece of Emacs Lisp 1402You can also use @code{emacsclient} to execute any piece of Emacs Lisp
1394code, using the option @samp{--eval}. When this option is given, the 1403code, using the @samp{-e} or @samp{--eval} option. When this option
1395rest of the arguments is not taken as a list of files to visit but as 1404is given, the rest of the arguments is interpreted as a list of
1396a list of expressions to evaluate. 1405expressions to evaluate, not a list of files to visit.
1406
1407@cindex @env{EMACS_SERVER_FILE} environment variable
1408When you start the Emacs server (by calling @code{server-start}),
1409Emacs creates a file with information about TCP connection to the
1410server: the host where Emacs is running, the port where it is
1411listening, and an authentication string. @code{emacsclient} uses this
1412information if it needs to connect to the server via TCP. By default,
1413the file goes in the @file{~/.emacs.d/server/} directory@footnote{On
1414MS-Windows, if @env{HOME} is not set or the TCP configuration file
1415cannot be found there, Emacs also looks for the file in the
1416@file{.emacs.d/server/} subdirectory of the directory pointed to by
1417the @env{APPDATA} environment variable.}. You can specify the file
1418name to use with the @samp{-f @var{file}} or
1419@samp{--server-file=@var{file}} options, or by setting
1420@env{EMACS_SERVER_FILE} environment variable to the file name.
1397 1421
1398@node Printing, Sorting, Emacs Server, Top 1422@node Printing, Sorting, Emacs Server, Top
1399@section Printing Hard Copies 1423@section Printing Hard Copies
diff --git a/man/text.texi b/man/text.texi
index e27be49248f..4cdc78934e0 100644
--- a/man/text.texi
+++ b/man/text.texi
@@ -1844,7 +1844,7 @@ characters themselves (@code{sgml-name-8bit-mode}).
1844Run a shell command (which you must specify) to validate the current 1844Run a shell command (which you must specify) to validate the current
1845buffer as SGML (@code{sgml-validate}). 1845buffer as SGML (@code{sgml-validate}).
1846 1846
1847@item C-x TAB 1847@item C-c TAB
1848@kindex C-c TAB @r{(SGML mode)} 1848@kindex C-c TAB @r{(SGML mode)}
1849@findex sgml-tags-invisible 1849@findex sgml-tags-invisible
1850Toggle the visibility of existing tags in the buffer. This can be 1850Toggle the visibility of existing tags in the buffer. This can be
diff --git a/oldXMenu/Activate.c b/oldXMenu/Activate.c
index 6809607c3dc..ad29bd6e8c5 100644
--- a/oldXMenu/Activate.c
+++ b/oldXMenu/Activate.c
@@ -1,5 +1,5 @@
1/* Copyright Massachusetts Institute of Technology 1985 */ 1/* Copyright Massachusetts Institute of Technology 1985 */
2/* Copyright (C) 2002, 2003, 2004, 2005, 2/* Copyright (C) 2001, 2002, 2003, 2004, 2005,
3 2006 Free Software Foundation, Inc. */ 3 2006 Free Software Foundation, Inc. */
4 4
5#include "copyright.h" 5#include "copyright.h"
diff --git a/oldXMenu/AddPane.c b/oldXMenu/AddPane.c
index 2e122ea0ae3..35d85a863b7 100644
--- a/oldXMenu/AddPane.c
+++ b/oldXMenu/AddPane.c
@@ -1,7 +1,7 @@
1#include "copyright.h" 1#include "copyright.h"
2 2
3/* Copyright Massachusetts Institute of Technology 1985 */ 3/* Copyright Massachusetts Institute of Technology 1985 */
4/* Copyright (C) 2002, 2003, 2004, 2005, 4/* Copyright (C) 2001, 2002, 2003, 2004, 2005,
5 2006 Free Software Foundation, Inc. */ 5 2006 Free Software Foundation, Inc. */
6 6
7/* 7/*
diff --git a/oldXMenu/AddSel.c b/oldXMenu/AddSel.c
index 6ddec57a525..dca0e4be88b 100644
--- a/oldXMenu/AddSel.c
+++ b/oldXMenu/AddSel.c
@@ -1,7 +1,7 @@
1#include "copyright.h" 1#include "copyright.h"
2 2
3/* Copyright Massachusetts Institute of Technology 1985 */ 3/* Copyright Massachusetts Institute of Technology 1985 */
4/* Copyright (C) 2002, 2003, 2004, 2005, 4/* Copyright (C) 2001, 2002, 2003, 2004, 2005,
5 2006 Free Software Foundation, Inc. */ 5 2006 Free Software Foundation, Inc. */
6 6
7/* 7/*
diff --git a/oldXMenu/ChgPane.c b/oldXMenu/ChgPane.c
index 20b0a949d9a..ce9b8b8b3e8 100644
--- a/oldXMenu/ChgPane.c
+++ b/oldXMenu/ChgPane.c
@@ -1,7 +1,7 @@
1#include "copyright.h" 1#include "copyright.h"
2 2
3/* Copyright Massachusetts Institute of Technology 1985 */ 3/* Copyright Massachusetts Institute of Technology 1985 */
4/* Copyright (C) 2002, 2003, 2004, 2005, 4/* Copyright (C) 2001, 2002, 2003, 2004, 2005,
5 2006 Free Software Foundation, Inc. */ 5 2006 Free Software Foundation, Inc. */
6 6
7/* 7/*
diff --git a/oldXMenu/ChgSel.c b/oldXMenu/ChgSel.c
index b34a22574f2..9e80240cd51 100644
--- a/oldXMenu/ChgSel.c
+++ b/oldXMenu/ChgSel.c
@@ -1,7 +1,7 @@
1#include "copyright.h" 1#include "copyright.h"
2 2
3/* Copyright Massachusetts Institute of Technology 1985 */ 3/* Copyright Massachusetts Institute of Technology 1985 */
4/* Copyright (C) 2002, 2003, 2004, 2005, 4/* Copyright (C) 2001, 2002, 2003, 2004, 2005,
5 2006 Free Software Foundation, Inc. */ 5 2006 Free Software Foundation, Inc. */
6 6
7/* 7/*
diff --git a/oldXMenu/Create.c b/oldXMenu/Create.c
index 77115b20835..679f5b84183 100644
--- a/oldXMenu/Create.c
+++ b/oldXMenu/Create.c
@@ -1,5 +1,5 @@
1/* Copyright Massachusetts Institute of Technology 1985 */ 1/* Copyright Massachusetts Institute of Technology 1985 */
2/* Copyright (C) 2002, 2003, 2004, 2005, 2/* Copyright (C) 2001, 2002, 2003, 2004, 2005,
3 2006 Free Software Foundation, Inc. */ 3 2006 Free Software Foundation, Inc. */
4 4
5#include "copyright.h" 5#include "copyright.h"
diff --git a/oldXMenu/DelPane.c b/oldXMenu/DelPane.c
index e824b539cf1..7680cb65de7 100644
--- a/oldXMenu/DelPane.c
+++ b/oldXMenu/DelPane.c
@@ -1,7 +1,7 @@
1#include "copyright.h" 1#include "copyright.h"
2 2
3/* Copyright Massachusetts Institute of Technology 1985 */ 3/* Copyright Massachusetts Institute of Technology 1985 */
4/* Copyright (C) 2002, 2003, 2004, 2005, 4/* Copyright (C) 2001, 2002, 2003, 2004, 2005,
5 2006 Free Software Foundation, Inc. */ 5 2006 Free Software Foundation, Inc. */
6 6
7/* 7/*
diff --git a/oldXMenu/DelSel.c b/oldXMenu/DelSel.c
index c8b39eb03a1..bae42c21572 100644
--- a/oldXMenu/DelSel.c
+++ b/oldXMenu/DelSel.c
@@ -1,7 +1,7 @@
1#include "copyright.h" 1#include "copyright.h"
2 2
3/* Copyright Massachusetts Institute of Technology 1985 */ 3/* Copyright Massachusetts Institute of Technology 1985 */
4/* Copyright (C) 2002, 2003, 2004, 2005, 4/* Copyright (C) 2001, 2002, 2003, 2004, 2005,
5 2006 Free Software Foundation, Inc. */ 5 2006 Free Software Foundation, Inc. */
6 6
7/* 7/*
diff --git a/oldXMenu/Destroy.c b/oldXMenu/Destroy.c
index 52ab5028546..082de8872a4 100644
--- a/oldXMenu/Destroy.c
+++ b/oldXMenu/Destroy.c
@@ -1,7 +1,7 @@
1#include "copyright.h" 1#include "copyright.h"
2 2
3/* Copyright Massachusetts Institute of Technology 1985 */ 3/* Copyright Massachusetts Institute of Technology 1985 */
4/* Copyright (C) 2002, 2003, 2004, 2005, 4/* Copyright (C) 2001, 2002, 2003, 2004, 2005,
5 2006 Free Software Foundation, Inc. */ 5 2006 Free Software Foundation, Inc. */
6 6
7/* 7/*
diff --git a/oldXMenu/Error.c b/oldXMenu/Error.c
index 51d5b8fa6cb..d05cabc2d56 100644
--- a/oldXMenu/Error.c
+++ b/oldXMenu/Error.c
@@ -1,7 +1,7 @@
1#include "copyright.h" 1#include "copyright.h"
2 2
3/* Copyright Massachusetts Institute of Technology 1985 */ 3/* Copyright Massachusetts Institute of Technology 1985 */
4/* Copyright (C) 2002, 2003, 2004, 2005, 4/* Copyright (C) 2001, 2002, 2003, 2004, 2005,
5 2006 Free Software Foundation, Inc. */ 5 2006 Free Software Foundation, Inc. */
6 6
7/* 7/*
diff --git a/oldXMenu/EvHand.c b/oldXMenu/EvHand.c
index 457609f4c2a..84836c92e1c 100644
--- a/oldXMenu/EvHand.c
+++ b/oldXMenu/EvHand.c
@@ -1,7 +1,7 @@
1#include "copyright.h" 1#include "copyright.h"
2 2
3/* Copyright Massachusetts Institute of Technology 1985 */ 3/* Copyright Massachusetts Institute of Technology 1985 */
4/* Copyright (C) 2002, 2003, 2004, 2005, 4/* Copyright (C) 2001, 2002, 2003, 2004, 2005,
5 2006 Free Software Foundation, Inc. */ 5 2006 Free Software Foundation, Inc. */
6 6
7/* 7/*
diff --git a/oldXMenu/FindPane.c b/oldXMenu/FindPane.c
index 6c0be73f0fb..4f354562d6c 100644
--- a/oldXMenu/FindPane.c
+++ b/oldXMenu/FindPane.c
@@ -1,7 +1,7 @@
1#include "copyright.h" 1#include "copyright.h"
2 2
3/* Copyright Massachusetts Institute of Technology 1985 */ 3/* Copyright Massachusetts Institute of Technology 1985 */
4/* Copyright (C) 2002, 2003, 2004, 2005, 4/* Copyright (C) 2001, 2002, 2003, 2004, 2005,
5 2006 Free Software Foundation, Inc. */ 5 2006 Free Software Foundation, Inc. */
6 6
7/* 7/*
diff --git a/oldXMenu/FindSel.c b/oldXMenu/FindSel.c
index 777770a4706..cf14656aad1 100644
--- a/oldXMenu/FindSel.c
+++ b/oldXMenu/FindSel.c
@@ -1,7 +1,7 @@
1#include "copyright.h" 1#include "copyright.h"
2 2
3/* Copyright Massachusetts Institute of Technology 1985 */ 3/* Copyright Massachusetts Institute of Technology 1985 */
4/* Copyright (C) 2002, 2003, 2004, 2005, 4/* Copyright (C) 2001, 2002, 2003, 2004, 2005,
5 2006 Free Software Foundation, Inc. */ 5 2006 Free Software Foundation, Inc. */
6 6
7/* 7/*
diff --git a/oldXMenu/InsPane.c b/oldXMenu/InsPane.c
index 5f8f334f184..063b811a7da 100644
--- a/oldXMenu/InsPane.c
+++ b/oldXMenu/InsPane.c
@@ -1,7 +1,7 @@
1#include "copyright.h" 1#include "copyright.h"
2 2
3/* Copyright Massachusetts Institute of Technology 1985 */ 3/* Copyright Massachusetts Institute of Technology 1985 */
4/* Copyright (C) 2002, 2003, 2004, 2005, 4/* Copyright (C) 2001, 2002, 2003, 2004, 2005,
5 2006 Free Software Foundation, Inc. */ 5 2006 Free Software Foundation, Inc. */
6 6
7/* 7/*
diff --git a/oldXMenu/InsSel.c b/oldXMenu/InsSel.c
index 30e0756d8e4..540787f7b21 100644
--- a/oldXMenu/InsSel.c
+++ b/oldXMenu/InsSel.c
@@ -1,7 +1,7 @@
1#include "copyright.h" 1#include "copyright.h"
2 2
3/* Copyright Massachusetts Institute of Technology 1985 */ 3/* Copyright Massachusetts Institute of Technology 1985 */
4/* Copyright (C) 2002, 2003, 2004, 2005, 4/* Copyright (C) 2001, 2002, 2003, 2004, 2005,
5 2006 Free Software Foundation, Inc. */ 5 2006 Free Software Foundation, Inc. */
6 6
7/* 7/*
diff --git a/oldXMenu/Internal.c b/oldXMenu/Internal.c
index ec11cc7d156..8a656ebcfe9 100644
--- a/oldXMenu/Internal.c
+++ b/oldXMenu/Internal.c
@@ -1,7 +1,7 @@
1#include "copyright.h" 1#include "copyright.h"
2 2
3/* Copyright Massachusetts Institute of Technology 1985 */ 3/* Copyright Massachusetts Institute of Technology 1985 */
4/* Copyright (C) 2002, 2003, 2004, 2005, 4/* Copyright (C) 2001, 2002, 2003, 2004, 2005,
5 2006 Free Software Foundation, Inc. */ 5 2006 Free Software Foundation, Inc. */
6 6
7/* 7/*
diff --git a/oldXMenu/Locate.c b/oldXMenu/Locate.c
index 59916eee979..156d75762b1 100644
--- a/oldXMenu/Locate.c
+++ b/oldXMenu/Locate.c
@@ -1,7 +1,7 @@
1#include "copyright.h" 1#include "copyright.h"
2 2
3/* Copyright Massachusetts Institute of Technology 1985 */ 3/* Copyright Massachusetts Institute of Technology 1985 */
4/* Copyright (C) 2002, 2003, 2004, 2005, 4/* Copyright (C) 2001, 2002, 2003, 2004, 2005,
5 2006 Free Software Foundation, Inc. */ 5 2006 Free Software Foundation, Inc. */
6 6
7/* 7/*
diff --git a/oldXMenu/Post.c b/oldXMenu/Post.c
index ca6bb5752ab..b4a2a0966ac 100644
--- a/oldXMenu/Post.c
+++ b/oldXMenu/Post.c
@@ -1,7 +1,7 @@
1#include "copyright.h" 1#include "copyright.h"
2 2
3/* Copyright Massachusetts Institute of Technology 1985 */ 3/* Copyright Massachusetts Institute of Technology 1985 */
4/* Copyright (C) 2002, 2003, 2004, 2005, 4/* Copyright (C) 2001, 2002, 2003, 2004, 2005,
5 2006 Free Software Foundation, Inc. */ 5 2006 Free Software Foundation, Inc. */
6 6
7/* 7/*
diff --git a/oldXMenu/Recomp.c b/oldXMenu/Recomp.c
index e955323c825..ad20508fbf3 100644
--- a/oldXMenu/Recomp.c
+++ b/oldXMenu/Recomp.c
@@ -1,7 +1,7 @@
1#include "copyright.h" 1#include "copyright.h"
2 2
3/* Copyright Massachusetts Institute of Technology 1985 */ 3/* Copyright Massachusetts Institute of Technology 1985 */
4/* Copyright (C) 2002, 2003, 2004, 2005, 4/* Copyright (C) 2001, 2002, 2003, 2004, 2005,
5 2006 Free Software Foundation, Inc. */ 5 2006 Free Software Foundation, Inc. */
6 6
7/* 7/*
diff --git a/oldXMenu/SetAEQ.c b/oldXMenu/SetAEQ.c
index 437f5e2d721..0b431ec712b 100644
--- a/oldXMenu/SetAEQ.c
+++ b/oldXMenu/SetAEQ.c
@@ -1,7 +1,7 @@
1#include "copyright.h" 1#include "copyright.h"
2 2
3/* Copyright Massachusetts Institute of Technology 1985 */ 3/* Copyright Massachusetts Institute of Technology 1985 */
4/* Copyright (C) 2002, 2003, 2004, 2005, 4/* Copyright (C) 2001, 2002, 2003, 2004, 2005,
5 2006 Free Software Foundation, Inc. */ 5 2006 Free Software Foundation, Inc. */
6 6
7/* 7/*
diff --git a/oldXMenu/SetFrz.c b/oldXMenu/SetFrz.c
index 7a75dddfd59..a9a0ca6a712 100644
--- a/oldXMenu/SetFrz.c
+++ b/oldXMenu/SetFrz.c
@@ -1,7 +1,7 @@
1#include "copyright.h" 1#include "copyright.h"
2 2
3/* Copyright Massachusetts Institute of Technology 1985 */ 3/* Copyright Massachusetts Institute of Technology 1985 */
4/* Copyright (C) 2002, 2003, 2004, 2005, 4/* Copyright (C) 2001, 2002, 2003, 2004, 2005,
5 2006 Free Software Foundation, Inc. */ 5 2006 Free Software Foundation, Inc. */
6 6
7/* 7/*
diff --git a/oldXMenu/SetPane.c b/oldXMenu/SetPane.c
index e76b75902c3..98a028e32c2 100644
--- a/oldXMenu/SetPane.c
+++ b/oldXMenu/SetPane.c
@@ -1,7 +1,7 @@
1#include "copyright.h" 1#include "copyright.h"
2 2
3/* Copyright Massachusetts Institute of Technology 1985 */ 3/* Copyright Massachusetts Institute of Technology 1985 */
4/* Copyright (C) 2002, 2003, 2004, 2005, 4/* Copyright (C) 2001, 2002, 2003, 2004, 2005,
5 2006 Free Software Foundation, Inc. */ 5 2006 Free Software Foundation, Inc. */
6 6
7/* 7/*
diff --git a/oldXMenu/SetSel.c b/oldXMenu/SetSel.c
index 5910354b966..2aaf354b598 100644
--- a/oldXMenu/SetSel.c
+++ b/oldXMenu/SetSel.c
@@ -1,7 +1,7 @@
1#include "copyright.h" 1#include "copyright.h"
2 2
3/* Copyright Massachusetts Institute of Technology 1985 */ 3/* Copyright Massachusetts Institute of Technology 1985 */
4/* Copyright (C) 2002, 2003, 2004, 2005, 4/* Copyright (C) 2001, 2002, 2003, 2004, 2005,
5 2006 Free Software Foundation, Inc. */ 5 2006 Free Software Foundation, Inc. */
6 6
7/* 7/*
diff --git a/oldXMenu/X10.h b/oldXMenu/X10.h
index 4d7d84e8c03..e6ac3433620 100644
--- a/oldXMenu/X10.h
+++ b/oldXMenu/X10.h
@@ -15,7 +15,7 @@
15 * 15 *
16 */ 16 */
17 17
18/* Copyright (C) 2002, 2003, 2004, 2005, 18/* Copyright (C) 2001, 2002, 2003, 2004, 2005,
19 2006 Free Software Foundation, Inc. */ 19 2006 Free Software Foundation, Inc. */
20 20
21/* 21/*
diff --git a/oldXMenu/XCrAssoc.c b/oldXMenu/XCrAssoc.c
index 0596b9fcee1..7e022ce566b 100644
--- a/oldXMenu/XCrAssoc.c
+++ b/oldXMenu/XCrAssoc.c
@@ -1,5 +1,5 @@
1/* Copyright Massachusetts Institute of Technology 1985 */ 1/* Copyright Massachusetts Institute of Technology 1985 */
2/* Copyright (C) 2002, 2003, 2004, 2005, 2/* Copyright (C) 2001, 2002, 2003, 2004, 2005,
3 2006 Free Software Foundation, Inc. */ 3 2006 Free Software Foundation, Inc. */
4 4
5/* 5/*
diff --git a/oldXMenu/XDelAssoc.c b/oldXMenu/XDelAssoc.c
index 772e9fa1b40..3e111dceacd 100644
--- a/oldXMenu/XDelAssoc.c
+++ b/oldXMenu/XDelAssoc.c
@@ -1,5 +1,5 @@
1/* Copyright Massachusetts Institute of Technology 1985 */ 1/* Copyright Massachusetts Institute of Technology 1985 */
2/* Copyright (C) 2002, 2003, 2004, 2005, 2/* Copyright (C) 2001, 2002, 2003, 2004, 2005,
3 2006 Free Software Foundation, Inc. */ 3 2006 Free Software Foundation, Inc. */
4 4
5/* 5/*
diff --git a/oldXMenu/XDestAssoc.c b/oldXMenu/XDestAssoc.c
index 1772321ad27..8cb1faa2d69 100644
--- a/oldXMenu/XDestAssoc.c
+++ b/oldXMenu/XDestAssoc.c
@@ -1,5 +1,5 @@
1/* Copyright Massachusetts Institute of Technology 1985 */ 1/* Copyright Massachusetts Institute of Technology 1985 */
2/* Copyright (C) 2002, 2003, 2004, 2005, 2/* Copyright (C) 2001, 2002, 2003, 2004, 2005,
3 2006 Free Software Foundation, Inc. */ 3 2006 Free Software Foundation, Inc. */
4 4
5/* 5/*
diff --git a/oldXMenu/XLookAssoc.c b/oldXMenu/XLookAssoc.c
index 7e72570e2ba..4f3892800d5 100644
--- a/oldXMenu/XLookAssoc.c
+++ b/oldXMenu/XLookAssoc.c
@@ -1,5 +1,5 @@
1/* Copyright Massachusetts Institute of Technology 1985 */ 1/* Copyright Massachusetts Institute of Technology 1985 */
2/* Copyright (C) 2002, 2003, 2004, 2005, 2/* Copyright (C) 2001, 2002, 2003, 2004, 2005,
3 2006 Free Software Foundation, Inc. */ 3 2006 Free Software Foundation, Inc. */
4 4
5/* 5/*
diff --git a/oldXMenu/XMakeAssoc.c b/oldXMenu/XMakeAssoc.c
index db020c4884b..443c1f447e6 100644
--- a/oldXMenu/XMakeAssoc.c
+++ b/oldXMenu/XMakeAssoc.c
@@ -1,5 +1,5 @@
1/* Copyright Massachusetts Institute of Technology 1985 */ 1/* Copyright Massachusetts Institute of Technology 1985 */
2/* Copyright (C) 2002, 2003, 2004, 2005, 2/* Copyright (C) 2001, 2002, 2003, 2004, 2005,
3 2006 Free Software Foundation, Inc. */ 3 2006 Free Software Foundation, Inc. */
4 4
5/* 5/*
diff --git a/oldXMenu/XMenu.h b/oldXMenu/XMenu.h
index 858e4a64f7b..b3933211199 100644
--- a/oldXMenu/XMenu.h
+++ b/oldXMenu/XMenu.h
@@ -1,7 +1,7 @@
1#include "copyright.h" 1#include "copyright.h"
2 2
3/* Copyright Massachusetts Institute of Technology 1985 */ 3/* Copyright Massachusetts Institute of Technology 1985 */
4/* Copyright (C) 2002, 2003, 2004, 2005, 4/* Copyright (C) 2001, 2002, 2003, 2004, 2005,
5 2006 Free Software Foundation, Inc. */ 5 2006 Free Software Foundation, Inc. */
6 6
7/* 7/*
diff --git a/oldXMenu/XMenuInt.h b/oldXMenu/XMenuInt.h
index a2e6f56e89b..683ed14e778 100644
--- a/oldXMenu/XMenuInt.h
+++ b/oldXMenu/XMenuInt.h
@@ -1,5 +1,5 @@
1/* Copyright Massachusetts Institute of Technology 1985 */ 1/* Copyright Massachusetts Institute of Technology 1985 */
2/* Copyright (C) 2002, 2003, 2004, 2005, 2/* Copyright (C) 2001, 2002, 2003, 2004, 2005,
3 2006 Free Software Foundation, Inc. */ 3 2006 Free Software Foundation, Inc. */
4 4
5/* 5/*
diff --git a/oldXMenu/copyright.h b/oldXMenu/copyright.h
index 05062d856df..7f4208bce85 100644
--- a/oldXMenu/copyright.h
+++ b/oldXMenu/copyright.h
@@ -16,7 +16,7 @@ without express or implied warranty.
16 16
17*/ 17*/
18 18
19/* Copyright (C) 2002, 2003, 2004, 2005, 19/* Copyright (C) 2001, 2002, 2003, 2004, 2005,
20 2006 Free Software Foundation, Inc. */ 20 2006 Free Software Foundation, Inc. */
21 21
22/* arch-tag: c689b1bc-a3ba-41a1-baa0-a3622b5445b2 22/* arch-tag: c689b1bc-a3ba-41a1-baa0-a3622b5445b2
diff --git a/oldXMenu/insque.c b/oldXMenu/insque.c
index fef750484a3..a9d5c5b456d 100644
--- a/oldXMenu/insque.c
+++ b/oldXMenu/insque.c
@@ -1,4 +1,4 @@
1/* Copyright (C) 2002, 2003, 2004, 2005, 1/* Copyright (C) 2001, 2002, 2003, 2004, 2005,
2 2006 Free Software Foundation, Inc. */ 2 2006 Free Software Foundation, Inc. */
3 3
4/* This file implements the emacs_insque and emacs_remque functions, 4/* This file implements the emacs_insque and emacs_remque functions,
diff --git a/src/ChangeLog b/src/ChangeLog
index de7417da7ab..27411da33cb 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,144 @@
12006-12-15 Eli Zaretskii <eliz@gnu.org>
2
3 * emacs.c (USAGE3): Clarify documentation of --color.
4
52006-12-15 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
6
7 * mac.c (wakeup_from_rne_enabled_p) [TARGET_API_MAC_CARBON]: New
8 variable.
9 (ENABLE_WAKEUP_FROM_RNE, DISABLE_WAKEUP_FROM_RNE): New macros.
10 [!MAC_OSX] (select): Use them.
11 [MAC_OSX] (select_and_poll_event, sys_select): Likewise.
12 (mac_wakeup_from_rne) [TARGET_API_MAC_CARBON]: New function.
13
14 * macfns.c (mac_atsu_font_face_attributes) [USE_ATSUI]: Add extern.
15 (Fmac_atsu_font_face_attributes) [USE_ATSUI]: New function.
16 (syms_of_macfns) [USE_ATSUI]: Defsubr it.
17
18 * macselect.c [TARGET_API_MAC_CARBON] (mac_do_receive_drag): Use
19 mac_wakeup_from_rne instead of mac_post_mouse_moved_event.
20
21 * macterm.c (mac_query_char_extents) [USE_ATSUI]: Don't call
22 ATSUGetGlyphBounds if not necessary.
23 (Vmac_atsu_font_table) [USE_ATSUI]: Remove Variable.
24 (syms_of_macterm) [USE_ATSUI]: Don't defvar it.
25 (fm_get_style_from_font, atsu_find_font_from_family_name)
26 (atsu_find_font_family_name, mac_atsu_font_face_attributes)
27 [USE_ATSUI]: New functions.
28 (init_font_name_table) [USE_ATSUI]: Use atsu_find_font_family_name.
29 (mac_load_query_font) [USE_ATSUI]: Use atsu_find_font_from_family_name.
30 Don't get metrics for Latin-1 right half characters.
31 (mac_load_query_font): Don't load font if space width is not positive.
32 [TARGET_API_MAC_CARBON] (mac_store_event_ref_as_apple_event): Use
33 mac_wakeup_from_rne instead of mac_post_mouse_moved_event.
34 (XTread_socket): Call SelectWindow when unfocused frame is clicked.
35
36 * macterm.h (mac_wakeup_from_rne) [TARGET_API_MAC_CARBON]: Add extern.
37
382006-12-15 Kim F. Storm <storm@cua.dk>
39
40 * keyboard.c (ignore_mouse_drag_p): New global var.
41 (some_mouse_moved): Return 0 if it is non-zero.
42 (make_lispy_event): Generate click event on mouse up if
43 ignore_mouse_drag_p is non-zero, even if mouse moved.
44 Clear ignore_mouse_drag_p on mouse down/up.
45
46 * xdisp.c (redisplay_window): Set ignore_mouse_drag_p if tool-bar
47 is resized to avoid generating a mouse drag event.
48
492006-12-14 Juanma Barranquero <lekktu@gmail.com>
50
51 * w32fns.c (w32_wnd_proc): Force non-tooltip frames to respect the
52 minimum tracking size. Remove non-working old hack to do the same.
53
542006-12-14 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
55
56 * emacs.c (handle_user_signal): Move function to keyboard.c.
57 (main): Use add_user_signal for SIGUSR1 and SIGUSR2.
58
59 * keyboard.c (make_lispy_event): Use find_user_signal_name.
60 (read_avail_input): Store pending user signal events.
61 (struct user_signal_info): New struct.
62 (user_signals): New variable.
63 (add_user_signal, store_user_signal_events)
64 (find_user_signal_name): New functions.
65 (handle_user_signal): Move function from emacs.c. Don't store
66 USER_SIGNAL_EVENT here, but increment number of pending signals.
67
68 * keyboard.h (add_user_signals): Add extern.
69
702006-12-11 Juanma Barranquero <lekktu@gmail.com>
71
72 * buffer.c (syms_of_buffer) <cursor-in-non-selected-windows>:
73 <default-scroll-up-aggressively, default-scroll-down-aggressively>:
74 <line-spacing, left-margin>: Doc fixes.
75
76 * xdisp.c (syms_of_xdisp) <mode-line-inverse-video>: Doc fix.
77
782006-12-10 Kim F. Storm <storm@cua.dk>
79
80 * xdisp.c (show_mouse_face): Never use text cursor in tool-bar.
81
822006-12-10 Juanma Barranquero <lekktu@gmail.com>
83
84 * abbrev.c (syms_of_abbrev) <last-abbrev-text>:
85 * buffer.c (syms_of_buffer) <default-major-mode>:
86 * keymap.c (Flookup_key):
87 * lread.c (Feval_buffer, Feval_region):
88 * macterm.c (syms_of_macterm) <x-use-underline-position-properties>:
89 <x-underline-at-descent-line, mac-emulate-three-button-mouse>:
90 * marker.c (Fmarker_insertion_type):
91 * minibuf.c (syms_of_minibuf) <minibuffer-completion-table>:
92 * msdos.c (syms_of_msdos) <delete-exited-processes>:
93 * w32term.c (syms_of_w32term) <x-use-underline-position-properties>:
94 <x-underline-at-descent-line>:
95 * xdisp.c (format-mode-line):
96 * xterm.c (syms_of_xterm) <x-use-underline-position-properties>:
97 <x-underline-at-descent-line>: Doc fixes.
98
992006-12-10 Andreas Schwab <schwab@suse.de>
100
101 * systime.h (EMACS_GET_TIME): Remove check for
102 HAVE_STRUCT_TIMEZONE which is never defined.
103
1042006-12-10 Alan Mackenzie <acm@muc.de>
105
106 * syntax.c (Fpartial_parse_sexp): Correct Docco: Elt 8 of the
107 result is now neither the last elt nor optional for OLDSTATE.
108
1092006-12-09 Eli Zaretskii <eliz@gnu.org>
110
111 * process.c (Fsignal_process): Doc fix. Use XFLOAT_DATA to
112 extract the process ID from a Lisp float.
113
1142006-12-09 Chong Yidong <cyd@stupidchicken.com>
115
116 * xterm.c (XTframe_raise_lower): Comment out _NET_ACTIVE_WINDOW code.
117
1182006-12-08 Eli Zaretskii <eliz@gnu.org>
119
120 * frame.h (PIX_TYPE): Redefine as `unsigned long', for 64-bit
121 platforms where long is 64-bit.
122
123 * msdos.h (PIX_TYPE): Redefine as `unsigned long'.
124
1252006-12-08 NAKAJI Hiroyuki <nakaji@jp.freebsd.org> (tiny change)
126
127 * m/amdx86-64.h: Add support for Solaris 10 on x86-64.
128
1292006-12-08 Kenichi Handa <handa@m17n.org>
130
131 * xterm.c (x_query_font): Use xstricmp instead off strcasecmp.
132
1332006-12-08 Juanma Barranquero <lekktu@gmail.com>
134
135 * emacs.c (syms_of_emacs) <system-type>: Doc fix.
136
1372006-12-07 Kim F. Storm <storm@cua.dk>
138
139 * process.c (parse_signal): Use xstricmp instead of strcasecmp.
140 (Fsignal_process): Don't use strncasecmp.
141
12006-12-05 Glenn Morris <rgm@gnu.org> 1422006-12-05 Glenn Morris <rgm@gnu.org>
2 143
3 * abbrev.c (Qforce): New Lisp_Object. 144 * abbrev.c (Qforce): New Lisp_Object.
diff --git a/src/abbrev.c b/src/abbrev.c
index 5e8c8c98862..2d95b881bc5 100644
--- a/src/abbrev.c
+++ b/src/abbrev.c
@@ -685,7 +685,7 @@ for any particular abbrev defined in both. */);
685 685
686 DEFVAR_LISP ("last-abbrev-text", &Vlast_abbrev_text, 686 DEFVAR_LISP ("last-abbrev-text", &Vlast_abbrev_text,
687 doc: /* The exact text of the last abbrev expanded. 687 doc: /* The exact text of the last abbrev expanded.
688nil if the abbrev has already been unexpanded. */); 688A value of nil means the abbrev has already been unexpanded. */);
689 689
690 DEFVAR_INT ("last-abbrev-location", &last_abbrev_point, 690 DEFVAR_INT ("last-abbrev-location", &last_abbrev_point,
691 doc: /* The location of the start of the last abbrev expanded. */); 691 doc: /* The location of the start of the last abbrev expanded. */);
diff --git a/src/buffer.c b/src/buffer.c
index 95f900aaf46..e9c3c47a959 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -5447,13 +5447,13 @@ This is the same as (default-value 'fringe-cursor-alist'). */);
5447 &buffer_defaults.scroll_up_aggressively, 5447 &buffer_defaults.scroll_up_aggressively,
5448 doc: /* Default value of `scroll-up-aggressively'. 5448 doc: /* Default value of `scroll-up-aggressively'.
5449This value applies in buffers that don't have their own local values. 5449This value applies in buffers that don't have their own local values.
5450This variable is an alias for (default-value 'scroll-up-aggressively). */); 5450This is the same as (default-value 'scroll-up-aggressively). */);
5451 5451
5452 DEFVAR_LISP_NOPRO ("default-scroll-down-aggressively", 5452 DEFVAR_LISP_NOPRO ("default-scroll-down-aggressively",
5453 &buffer_defaults.scroll_down_aggressively, 5453 &buffer_defaults.scroll_down_aggressively,
5454 doc: /* Default value of `scroll-down-aggressively'. 5454 doc: /* Default value of `scroll-down-aggressively'.
5455This value applies in buffers that don't have their own local values. 5455This value applies in buffers that don't have their own local values.
5456This variable is an alias for (default-value 'scroll-down-aggressively). */); 5456This is the same as (default-value 'scroll-down-aggressively). */);
5457 5457
5458 DEFVAR_PER_BUFFER ("header-line-format", 5458 DEFVAR_PER_BUFFER ("header-line-format",
5459 &current_buffer->header_line_format, 5459 &current_buffer->header_line_format,
@@ -5516,8 +5516,8 @@ Decimal digits after the % specify field width to which to pad. */);
5516 5516
5517 DEFVAR_LISP_NOPRO ("default-major-mode", &buffer_defaults.major_mode, 5517 DEFVAR_LISP_NOPRO ("default-major-mode", &buffer_defaults.major_mode,
5518 doc: /* *Major mode for new buffers. Defaults to `fundamental-mode'. 5518 doc: /* *Major mode for new buffers. Defaults to `fundamental-mode'.
5519nil here means use current buffer's major mode, provided it is not 5519A value of nil means use current buffer's major mode,
5520marked as "special". 5520provided it is not marked as "special".
5521 5521
5522When a mode is used by default, `find-file' switches to it 5522When a mode is used by default, `find-file' switches to it
5523before it reads the contents into the buffer and before 5523before it reads the contents into the buffer and before
@@ -5547,7 +5547,7 @@ Interactively, you can set the buffer local value using \\[set-fill-column]. */
5547 5547
5548 DEFVAR_PER_BUFFER ("left-margin", &current_buffer->left_margin, 5548 DEFVAR_PER_BUFFER ("left-margin", &current_buffer->left_margin,
5549 make_number (Lisp_Int), 5549 make_number (Lisp_Int),
5550 doc: /* *Column for the default indent-line-function to indent to. 5550 doc: /* *Column for the default `indent-line-function' to indent to.
5551Linefeed indents to this column in Fundamental mode. */); 5551Linefeed indents to this column in Fundamental mode. */);
5552 5552
5553 DEFVAR_PER_BUFFER ("tab-width", &current_buffer->tab_width, 5553 DEFVAR_PER_BUFFER ("tab-width", &current_buffer->tab_width,
@@ -6052,12 +6052,12 @@ this variable has no effect; the cursor appears as a hollow box. */);
6052 doc: /* Additional space to put between lines when displaying a buffer. 6052 doc: /* Additional space to put between lines when displaying a buffer.
6053The space is measured in pixels, and put below lines on window systems. 6053The space is measured in pixels, and put below lines on window systems.
6054If value is a floating point number, it specifies the spacing relative 6054If value is a floating point number, it specifies the spacing relative
6055to the default frame line height. nil means add no extra space. */); 6055to the default frame line height. A value of nil means add no extra space. */);
6056 6056
6057 DEFVAR_PER_BUFFER ("cursor-in-non-selected-windows", 6057 DEFVAR_PER_BUFFER ("cursor-in-non-selected-windows",
6058 &current_buffer->cursor_in_non_selected_windows, Qnil, 6058 &current_buffer->cursor_in_non_selected_windows, Qnil,
6059 doc: /* *Cursor type to display in non-selected windows. 6059 doc: /* *Cursor type to display in non-selected windows.
6060t means to use hollow box cursor. See `cursor-type' for other values. */); 6060The value t means to use hollow box cursor. See `cursor-type' for other values. */);
6061 6061
6062 DEFVAR_LISP ("kill-buffer-query-functions", &Vkill_buffer_query_functions, 6062 DEFVAR_LISP ("kill-buffer-query-functions", &Vkill_buffer_query_functions,
6063 doc: /* List of functions called with no args to query before killing a buffer. */); 6063 doc: /* List of functions called with no args to query before killing a buffer. */);
diff --git a/src/category.c b/src/category.c
index cb6385fdb25..4d19d4a6ccd 100644
--- a/src/category.c
+++ b/src/category.c
@@ -1,6 +1,7 @@
1/* GNU Emacs routines to deal with category tables. 1/* GNU Emacs routines to deal with category tables.
2 Copyright (C) 1998, 2001, 2004, 2005, 2006 Free Software Foundation, Inc. 2 Copyright (C) 1998, 2001, 2004, 2005, 2006 Free Software Foundation, Inc.
3 Copyright (C) 1995, 1997, 1998, 1999 3 Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4 2005, 2006
4 National Institute of Advanced Industrial Science and Technology (AIST) 5 National Institute of Advanced Industrial Science and Technology (AIST)
5 Registration Number H14PRO021 6 Registration Number H14PRO021
6 Copyright (C) 2003 7 Copyright (C) 2003
diff --git a/src/category.h b/src/category.h
index 4799b7a5e3d..86257635226 100644
--- a/src/category.h
+++ b/src/category.h
@@ -1,5 +1,6 @@
1/* Declarations having to do with Emacs category tables. 1/* Declarations having to do with Emacs category tables.
2 Copyright (C) 1995, 1998, 1999 2 Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
3 2005, 2006
3 National Institute of Advanced Industrial Science and Technology (AIST) 4 National Institute of Advanced Industrial Science and Technology (AIST)
4 Registration Number H14PRO021 5 Registration Number H14PRO021
5 Copyright (C) 2003 6 Copyright (C) 2003
diff --git a/src/ccl.c b/src/ccl.c
index 1ff97229466..017c9ab4feb 100644
--- a/src/ccl.c
+++ b/src/ccl.c
@@ -1,7 +1,8 @@
1/* CCL (Code Conversion Language) interpreter. 1/* CCL (Code Conversion Language) interpreter.
2 Copyright (C) 2001, 2002, 2003, 2004, 2005, 2 Copyright (C) 2001, 2002, 2003, 2004, 2005,
3 2006 Free Software Foundation, Inc. 3 2006 Free Software Foundation, Inc.
4 Copyright (C) 1995, 1997, 1998, 2003, 2004, 2005 4 Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
5 2005, 2006
5 National Institute of Advanced Industrial Science and Technology (AIST) 6 National Institute of Advanced Industrial Science and Technology (AIST)
6 Registration Number H14PRO021 7 Registration Number H14PRO021
7 Copyright (C) 2003 8 Copyright (C) 2003
diff --git a/src/ccl.h b/src/ccl.h
index 96417e79fa5..01d92b621eb 100644
--- a/src/ccl.h
+++ b/src/ccl.h
@@ -1,5 +1,6 @@
1/* Header for CCL (Code Conversion Language) interpreter. 1/* Header for CCL (Code Conversion Language) interpreter.
2 Copyright (C) 1995, 1998, 2000 2 Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
3 2005, 2006
3 National Institute of Advanced Industrial Science and Technology (AIST) 4 National Institute of Advanced Industrial Science and Technology (AIST)
4 Registration Number H14PRO021 5 Registration Number H14PRO021
5 Copyright (C) 2003 6 Copyright (C) 2003
diff --git a/src/charset.c b/src/charset.c
index 2228a24f698..9fb7f641705 100644
--- a/src/charset.c
+++ b/src/charset.c
@@ -1,7 +1,8 @@
1/* Basic character set support. 1/* Basic character set support.
2 Copyright (C) 2001, 2002, 2003, 2004, 2005, 2 Copyright (C) 2001, 2002, 2003, 2004, 2005,
3 2006 Free Software Foundation, Inc. 3 2006 Free Software Foundation, Inc.
4 Copyright (C) 1995, 1997, 1998, 1999, 2000, 2001 4 Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
5 2005, 2006
5 National Institute of Advanced Industrial Science and Technology (AIST) 6 National Institute of Advanced Industrial Science and Technology (AIST)
6 Registration Number H14PRO021 7 Registration Number H14PRO021
7 Copyright (C) 2003, 2004 8 Copyright (C) 2003, 2004
diff --git a/src/charset.h b/src/charset.h
index 25ccaf9d324..e7aaf9d6194 100644
--- a/src/charset.h
+++ b/src/charset.h
@@ -1,7 +1,8 @@
1/* Header for charset handler. 1/* Header for charset handler.
2 Copyright (C) 2001, 2002, 2003, 2004, 2005, 2 Copyright (C) 2001, 2002, 2003, 2004, 2005,
3 2006 Free Software Foundation, Inc. 3 2006 Free Software Foundation, Inc.
4 Copyright (C) 1995, 1997, 1998, 2003 4 Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
5 2005, 2006
5 National Institute of Advanced Industrial Science and Technology (AIST) 6 National Institute of Advanced Industrial Science and Technology (AIST)
6 Registration Number H14PRO021 7 Registration Number H14PRO021
7 Copyright (C) 2003 8 Copyright (C) 2003
diff --git a/src/coding.c b/src/coding.c
index 28ab86c43fc..50c63b4beb8 100644
--- a/src/coding.c
+++ b/src/coding.c
@@ -1,7 +1,8 @@
1/* Coding system handler (conversion, detection, etc). 1/* Coding system handler (conversion, detection, etc).
2 Copyright (C) 2001, 2002, 2003, 2004, 2005, 2 Copyright (C) 2001, 2002, 2003, 2004, 2005,
3 2006 Free Software Foundation, Inc. 3 2006 Free Software Foundation, Inc.
4 Copyright (C) 1995, 1997, 1998, 2002, 2003, 2004, 2005 4 Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
5 2005, 2006
5 National Institute of Advanced Industrial Science and Technology (AIST) 6 National Institute of Advanced Industrial Science and Technology (AIST)
6 Registration Number H14PRO021 7 Registration Number H14PRO021
7 Copyright (C) 2003 8 Copyright (C) 2003
diff --git a/src/coding.h b/src/coding.h
index 93375d2c2eb..0f8d2b0ed7b 100644
--- a/src/coding.h
+++ b/src/coding.h
@@ -1,7 +1,8 @@
1/* Header for coding system handler. 1/* Header for coding system handler.
2 Copyright (C) 2002, 2003, 2004, 2005, 2 Copyright (C) 2002, 2003, 2004, 2005,
3 2006 Free Software Foundation, Inc. 3 2006 Free Software Foundation, Inc.
4 Copyright (C) 1995, 1997, 1998, 2000 4 Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
5 2005, 2006
5 National Institute of Advanced Industrial Science and Technology (AIST) 6 National Institute of Advanced Industrial Science and Technology (AIST)
6 Registration Number H14PRO021 7 Registration Number H14PRO021
7 Copyright (C) 2003 8 Copyright (C) 2003
diff --git a/src/composite.c b/src/composite.c
index ea6b3708f12..1ccd3af2515 100644
--- a/src/composite.c
+++ b/src/composite.c
@@ -1,7 +1,7 @@
1/* Composite sequence support. 1/* Composite sequence support.
2 Copyright (C) 2001, 2002, 2003, 2004, 2005, 2 Copyright (C) 2001, 2002, 2003, 2004, 2005,
3 2006 Free Software Foundation, Inc. 3 2006 Free Software Foundation, Inc.
4 Copyright (C) 1999 4 Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
5 National Institute of Advanced Industrial Science and Technology (AIST) 5 National Institute of Advanced Industrial Science and Technology (AIST)
6 Registration Number H14PRO021 6 Registration Number H14PRO021
7 Copyright (C) 2003, 2006 7 Copyright (C) 2003, 2006
diff --git a/src/composite.h b/src/composite.h
index 08463afd899..6e600e7a29b 100644
--- a/src/composite.h
+++ b/src/composite.h
@@ -1,7 +1,7 @@
1/* Header for composite sequence handler. 1/* Header for composite sequence handler.
2 Copyright (C) 2001, 2002, 2003, 2004, 2005, 2 Copyright (C) 2001, 2002, 2003, 2004, 2005,
3 2006 Free Software Foundation, Inc. 3 2006 Free Software Foundation, Inc.
4 Copyright (C) 1997 4 Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
5 National Institute of Advanced Industrial Science and Technology (AIST) 5 National Institute of Advanced Industrial Science and Technology (AIST)
6 Registration Number H14PRO021 6 Registration Number H14PRO021
7 Copyright (C) 2003, 2006 7 Copyright (C) 2003, 2006
diff --git a/src/emacs.c b/src/emacs.c
index 935a12463dc..6601336edd5 100644
--- a/src/emacs.c
+++ b/src/emacs.c
@@ -303,7 +303,7 @@ Display options:\n\
303 used for debugging Emacs\n\ 303 used for debugging Emacs\n\
304--border-color, -bd COLOR main border color\n\ 304--border-color, -bd COLOR main border color\n\
305--border-width, -bw WIDTH width of main border\n\ 305--border-width, -bw WIDTH width of main border\n\
306--color, --color=MODE color mode for character terminals;\n\ 306--color, --color=MODE override color mode for character terminals;\n\
307 MODE defaults to `auto', and can also\n\ 307 MODE defaults to `auto', and can also\n\
308 be `never', `auto', `always',\n\ 308 be `never', `auto', `always',\n\
309 or a mode name like `ansi8'\n\ 309 or a mode name like `ansi8'\n\
@@ -361,24 +361,6 @@ pthread_t main_thread;
361#endif 361#endif
362 362
363 363
364#if defined (SIGUSR1) || defined (SIGUSR2)
365SIGTYPE
366handle_user_signal (sig)
367 int sig;
368{
369 struct input_event buf;
370
371 SIGNAL_THREAD_CHECK (sig);
372 bzero (&buf, sizeof buf);
373 buf.kind = USER_SIGNAL_EVENT;
374 buf.frame_or_window = selected_frame;
375
376 kbd_buffer_store_event (&buf);
377 buf.code = sig;
378 kbd_buffer_store_event (&buf);
379}
380#endif
381
382/* Handle bus errors, invalid instruction, etc. */ 364/* Handle bus errors, invalid instruction, etc. */
383SIGTYPE 365SIGTYPE
384fatal_error_signal (sig) 366fatal_error_signal (sig)
@@ -1214,10 +1196,10 @@ main (argc, argv
1214 signal (SIGILL, fatal_error_signal); 1196 signal (SIGILL, fatal_error_signal);
1215 signal (SIGTRAP, fatal_error_signal); 1197 signal (SIGTRAP, fatal_error_signal);
1216#ifdef SIGUSR1 1198#ifdef SIGUSR1
1217 signal (SIGUSR1, handle_user_signal); 1199 add_user_signal (SIGUSR1, "usr1");
1218#endif 1200#endif
1219#ifdef SIGUSR2 1201#ifdef SIGUSR2
1220 signal (SIGUSR2, handle_user_signal); 1202 add_user_signal (SIGUSR2, "usr2");
1221#endif 1203#endif
1222#ifdef SIGABRT 1204#ifdef SIGABRT
1223 signal (SIGABRT, fatal_error_signal); 1205 signal (SIGABRT, fatal_error_signal);
@@ -2478,7 +2460,8 @@ Special values:
2478 `ms-dos' compiled as an MS-DOS application. 2460 `ms-dos' compiled as an MS-DOS application.
2479 `windows-nt' compiled as a native W32 application. 2461 `windows-nt' compiled as a native W32 application.
2480 `cygwin' compiled using the Cygwin library. 2462 `cygwin' compiled using the Cygwin library.
2481 `vax-vms' or `axp-vms': compiled for a (Open)VMS system. 2463 `vax-vms' or
2464 `axp-vms' compiled for a (Open)VMS system.
2482Anything else indicates some sort of Unix system. */); 2465Anything else indicates some sort of Unix system. */);
2483 Vsystem_type = intern (SYSTEM_TYPE); 2466 Vsystem_type = intern (SYSTEM_TYPE);
2484 2467
diff --git a/src/fontset.c b/src/fontset.c
index a52082e2ff4..5a50012fef4 100644
--- a/src/fontset.c
+++ b/src/fontset.c
@@ -1,6 +1,7 @@
1/* Fontset handler. 1/* Fontset handler.
2 Copyright (C) 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. 2 Copyright (C) 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
3 Copyright (C) 1995, 1997, 1998, 2000, 2003, 2004, 2005 3 Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4 2005, 2006
4 National Institute of Advanced Industrial Science and Technology (AIST) 5 National Institute of Advanced Industrial Science and Technology (AIST)
5 Registration Number H14PRO021 6 Registration Number H14PRO021
6 Copyright (C) 2003, 2006 7 Copyright (C) 2003, 2006
diff --git a/src/fontset.h b/src/fontset.h
index cf09dde73f2..b86c26784c7 100644
--- a/src/fontset.h
+++ b/src/fontset.h
@@ -1,7 +1,8 @@
1/* Header for fontset handler. 1/* Header for fontset handler.
2 Copyright (C) 1998, 2002, 2003, 2004, 2005, 2 Copyright (C) 1998, 2002, 2003, 2004, 2005,
3 2006 Free Software Foundation, Inc. 3 2006 Free Software Foundation, Inc.
4 Copyright (C) 1995, 1997, 2000 4 Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
5 2005, 2006
5 National Institute of Advanced Industrial Science and Technology (AIST) 6 National Institute of Advanced Industrial Science and Technology (AIST)
6 Registration Number H14PRO021 7 Registration Number H14PRO021
7 Copyright (C) 2003, 2006 8 Copyright (C) 2003, 2006
diff --git a/src/frame.h b/src/frame.h
index 75770eb4c36..3148e583e89 100644
--- a/src/frame.h
+++ b/src/frame.h
@@ -72,7 +72,7 @@ enum text_cursor_kinds
72 72
73#if !defined(HAVE_X_WINDOWS) 73#if !defined(HAVE_X_WINDOWS)
74 74
75#define PIX_TYPE int 75#define PIX_TYPE unsigned long
76 76
77/* A (mostly empty) x_output structure definition for building Emacs 77/* A (mostly empty) x_output structure definition for building Emacs
78 on Unix and GNU/Linux without X support. */ 78 on Unix and GNU/Linux without X support. */
diff --git a/src/keyboard.c b/src/keyboard.c
index 3a9f6f415db..ef8107b2ce3 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -699,6 +699,9 @@ static SIGTYPE interrupt_signal P_ ((int signalnum));
699static void timer_start_idle P_ ((void)); 699static void timer_start_idle P_ ((void));
700static void timer_stop_idle P_ ((void)); 700static void timer_stop_idle P_ ((void));
701static void timer_resume_idle P_ ((void)); 701static void timer_resume_idle P_ ((void));
702static SIGTYPE handle_user_signal P_ ((int));
703static char *find_user_signal_name P_ ((int));
704static int store_user_signal_events P_ ((void));
702 705
703/* Nonzero means don't try to suspend even if the operating system seems 706/* Nonzero means don't try to suspend even if the operating system seems
704 to support it. */ 707 to support it. */
@@ -1435,13 +1438,25 @@ usage: (track-mouse BODY ...) */)
1435} 1438}
1436 1439
1437/* If mouse has moved on some frame, return one of those frames. 1440/* If mouse has moved on some frame, return one of those frames.
1438 Return 0 otherwise. */ 1441
1442 Return 0 otherwise.
1443
1444 If ignore_mouse_drag_p is non-zero, ignore (implicit) mouse movement
1445 after resizing the tool-bar window. */
1446
1447int ignore_mouse_drag_p;
1439 1448
1440static FRAME_PTR 1449static FRAME_PTR
1441some_mouse_moved () 1450some_mouse_moved ()
1442{ 1451{
1443 Lisp_Object tail, frame; 1452 Lisp_Object tail, frame;
1444 1453
1454 if (ignore_mouse_drag_p)
1455 {
1456 //ignore_mouse_drag_p = 0;
1457 return 0;
1458 }
1459
1445 FOR_EACH_FRAME (tail, frame) 1460 FOR_EACH_FRAME (tail, frame)
1446 { 1461 {
1447 if (XFRAME (frame)->mouse_moved) 1462 if (XFRAME (frame)->mouse_moved)
@@ -5589,6 +5604,7 @@ make_lispy_event (event)
5589 double_click_count = 1; 5604 double_click_count = 1;
5590 button_down_time = event->timestamp; 5605 button_down_time = event->timestamp;
5591 *start_pos_ptr = Fcopy_alist (position); 5606 *start_pos_ptr = Fcopy_alist (position);
5607 ignore_mouse_drag_p = 0;
5592 } 5608 }
5593 5609
5594 /* Now we're releasing a button - check the co-ordinates to 5610 /* Now we're releasing a button - check the co-ordinates to
@@ -5624,8 +5640,13 @@ make_lispy_event (event)
5624 ydiff = XINT (event->y) - XINT (XCDR (down)); 5640 ydiff = XINT (event->y) - XINT (XCDR (down));
5625 } 5641 }
5626 5642
5627 if (xdiff < double_click_fuzz && xdiff > - double_click_fuzz 5643 if (ignore_mouse_drag_p)
5628 && ydiff < double_click_fuzz && ydiff > - double_click_fuzz 5644 {
5645 event->modifiers |= click_modifier;
5646 ignore_mouse_drag_p = 0;
5647 }
5648 else if (xdiff < double_click_fuzz && xdiff > - double_click_fuzz
5649 && ydiff < double_click_fuzz && ydiff > - double_click_fuzz
5629 /* Maybe the mouse has moved a lot, caused scrolling, and 5650 /* Maybe the mouse has moved a lot, caused scrolling, and
5630 eventually ended up at the same screen position (but 5651 eventually ended up at the same screen position (but
5631 not buffer position) in which case it is a drag, not 5652 not buffer position) in which case it is a drag, not
@@ -5948,20 +5969,16 @@ make_lispy_event (event)
5948 5969
5949 case USER_SIGNAL_EVENT: 5970 case USER_SIGNAL_EVENT:
5950 /* A user signal. */ 5971 /* A user signal. */
5951 switch (event->code) 5972 if (event->code == 0)
5973 return Qsignal;
5974 else
5952 { 5975 {
5953 case 0: 5976 char *name = find_user_signal_name (event->code);
5954 return Qsignal; 5977
5955#ifdef SIGUSR1 5978 if (name)
5956 case SIGUSR1: 5979 return intern (name);
5957 return intern ("usr1"); 5980 else
5958#endif 5981 return make_number (event->code);
5959#ifdef SIGUSR2
5960 case SIGUSR2:
5961 return intern ("usr2");
5962#endif
5963 default:
5964 return make_number (event->code);
5965 } 5982 }
5966 5983
5967 case SAVE_SESSION_EVENT: 5984 case SAVE_SESSION_EVENT:
@@ -6799,6 +6816,10 @@ read_avail_input (expected)
6799 register int i; 6816 register int i;
6800 int nread = 0; 6817 int nread = 0;
6801 6818
6819 /* Store pending user signal events, if any. */
6820 if (store_user_signal_events ())
6821 expected = 0;
6822
6802 if (read_socket_hook) 6823 if (read_socket_hook)
6803 { 6824 {
6804 int nr; 6825 int nr;
@@ -7022,6 +7043,133 @@ reinvoke_input_signal ()
7022 7043
7023 7044
7024 7045
7046/* User signal events. */
7047
7048struct user_signal_info
7049{
7050 /* Signal number. */
7051 int sig;
7052
7053 /* Name of the signal. */
7054 char *name;
7055
7056 /* Number of pending signals. */
7057 int npending;
7058
7059 struct user_signal_info *next;
7060};
7061
7062/* List of user signals. */
7063static struct user_signal_info *user_signals = NULL;
7064
7065void
7066add_user_signal (sig, name)
7067 int sig;
7068 const char *name;
7069{
7070 struct user_signal_info *p;
7071
7072 for (p = user_signals; p; p = p->next)
7073 if (p->sig == sig)
7074 /* Already added. */
7075 return;
7076
7077 p = xmalloc (sizeof (struct user_signal_info));
7078 p->sig = sig;
7079 p->name = xstrdup (name);
7080 p->npending = 0;
7081 p->next = user_signals;
7082 user_signals = p;
7083
7084 signal (sig, handle_user_signal);
7085}
7086
7087static SIGTYPE
7088handle_user_signal (sig)
7089 int sig;
7090{
7091 int old_errno = errno;
7092 struct user_signal_info *p;
7093
7094#if defined (USG) && !defined (POSIX_SIGNALS)
7095 /* USG systems forget handlers when they are used;
7096 must reestablish each time */
7097 signal (sig, handle_user_signal);
7098#endif
7099
7100 SIGNAL_THREAD_CHECK (sig);
7101
7102 for (p = user_signals; p; p = p->next)
7103 if (p->sig == sig)
7104 {
7105 p->npending++;
7106#ifdef SIGIO
7107 if (interrupt_input)
7108 kill (getpid (), SIGIO);
7109 else
7110#endif
7111 {
7112 /* Tell wait_reading_process_output that it needs to wake
7113 up and look around. */
7114 if (input_available_clear_time)
7115 EMACS_SET_SECS_USECS (*input_available_clear_time, 0, 0);
7116 }
7117 break;
7118 }
7119
7120 errno = old_errno;
7121}
7122
7123static char *
7124find_user_signal_name (sig)
7125 int sig;
7126{
7127 struct user_signal_info *p;
7128
7129 for (p = user_signals; p; p = p->next)
7130 if (p->sig == sig)
7131 return p->name;
7132
7133 return NULL;
7134}
7135
7136static int
7137store_user_signal_events ()
7138{
7139 struct user_signal_info *p;
7140 struct input_event buf;
7141 int nstored = 0;
7142
7143 for (p = user_signals; p; p = p->next)
7144 if (p->npending > 0)
7145 {
7146 SIGMASKTYPE mask;
7147
7148 if (nstored == 0)
7149 {
7150 bzero (&buf, sizeof buf);
7151 buf.kind = USER_SIGNAL_EVENT;
7152 buf.frame_or_window = selected_frame;
7153 }
7154 nstored += p->npending;
7155
7156 mask = sigblock (sigmask (p->sig));
7157 do
7158 {
7159 buf.code = 0;
7160 kbd_buffer_store_event (&buf);
7161 buf.code = p->sig;
7162 kbd_buffer_store_event (&buf);
7163 p->npending--;
7164 }
7165 while (p->npending > 0);
7166 sigsetmask (mask);
7167 }
7168
7169 return nstored;
7170}
7171
7172
7025static void menu_bar_item P_ ((Lisp_Object, Lisp_Object, Lisp_Object, void*)); 7173static void menu_bar_item P_ ((Lisp_Object, Lisp_Object, Lisp_Object, void*));
7026static Lisp_Object menu_bar_one_keymap_changed_items; 7174static Lisp_Object menu_bar_one_keymap_changed_items;
7027 7175
diff --git a/src/keyboard.h b/src/keyboard.h
index 96ac7d2e856..984ecccc0a4 100644
--- a/src/keyboard.h
+++ b/src/keyboard.h
@@ -344,6 +344,7 @@ extern void gen_help_event P_ ((Lisp_Object, Lisp_Object, Lisp_Object,
344extern void kbd_buffer_store_help_event P_ ((Lisp_Object, Lisp_Object)); 344extern void kbd_buffer_store_help_event P_ ((Lisp_Object, Lisp_Object));
345extern Lisp_Object menu_item_eval_property P_ ((Lisp_Object)); 345extern Lisp_Object menu_item_eval_property P_ ((Lisp_Object));
346extern int kbd_buffer_events_waiting P_ ((int)); 346extern int kbd_buffer_events_waiting P_ ((int));
347extern void add_user_signals P_ ((int, const char *));
347 348
348/* arch-tag: 769cbade-1ba9-4950-b886-db265b061aa3 349/* arch-tag: 769cbade-1ba9-4950-b886-db265b061aa3
349 (do not change this comment) */ 350 (do not change this comment) */
diff --git a/src/keymap.c b/src/keymap.c
index f67cc109e87..176b6760e36 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -1280,7 +1280,8 @@ buffer position instead of point are used. */)
1280 1280
1281DEFUN ("lookup-key", Flookup_key, Slookup_key, 2, 3, 0, 1281DEFUN ("lookup-key", Flookup_key, Slookup_key, 2, 3, 0,
1282 doc: /* In keymap KEYMAP, look up key sequence KEY. Return the definition. 1282 doc: /* In keymap KEYMAP, look up key sequence KEY. Return the definition.
1283nil means undefined. See doc of `define-key' for kinds of definitions. 1283A value of nil means undefined. See doc of `define-key'
1284for kinds of definitions.
1284 1285
1285A number as value means KEY is "too long"; 1286A number as value means KEY is "too long";
1286that is, characters or symbols in it except for the last one 1287that is, characters or symbols in it except for the last one
@@ -1655,13 +1656,13 @@ specified buffer position instead of point are used.
1655 are read using the keymaps of the buffer clicked on, not 1656 are read using the keymaps of the buffer clicked on, not
1656 the current buffer. So we may have to switch the buffer 1657 the current buffer. So we may have to switch the buffer
1657 here. */ 1658 here. */
1658 1659
1659 if (CONSP (position)) 1660 if (CONSP (position))
1660 { 1661 {
1661 Lisp_Object window; 1662 Lisp_Object window;
1662 1663
1663 window = POSN_WINDOW (position); 1664 window = POSN_WINDOW (position);
1664 1665
1665 if (WINDOWP (window) 1666 if (WINDOWP (window)
1666 && BUFFERP (XWINDOW (window)->buffer) 1667 && BUFFERP (XWINDOW (window)->buffer)
1667 && XBUFFER (XWINDOW (window)->buffer) != current_buffer) 1668 && XBUFFER (XWINDOW (window)->buffer) != current_buffer)
@@ -1673,13 +1674,13 @@ specified buffer position instead of point are used.
1673 would not be a problem here, but it is easier to keep 1674 would not be a problem here, but it is easier to keep
1674 things the same. 1675 things the same.
1675 */ 1676 */
1676 1677
1677 record_unwind_protect (Fset_buffer, Fcurrent_buffer ()); 1678 record_unwind_protect (Fset_buffer, Fcurrent_buffer ());
1678 1679
1679 set_buffer_internal (XBUFFER (XWINDOW (window)->buffer)); 1680 set_buffer_internal (XBUFFER (XWINDOW (window)->buffer));
1680 } 1681 }
1681 } 1682 }
1682 1683
1683 if (! NILP (current_kboard->Voverriding_terminal_local_map)) 1684 if (! NILP (current_kboard->Voverriding_terminal_local_map))
1684 { 1685 {
1685 value = Flookup_key (current_kboard->Voverriding_terminal_local_map, 1686 value = Flookup_key (current_kboard->Voverriding_terminal_local_map,
@@ -1702,8 +1703,8 @@ specified buffer position instead of point are used.
1702 : MARKERP (position) ? marker_position (position) 1703 : MARKERP (position) ? marker_position (position)
1703 : PT; 1704 : PT;
1704 1705
1705 local_map = get_local_map (pt, current_buffer, Qlocal_map); 1706 local_map = get_local_map (pt, current_buffer, Qlocal_map);
1706 keymap = get_local_map (pt, current_buffer, Qkeymap); 1707 keymap = get_local_map (pt, current_buffer, Qkeymap);
1707 1708
1708 if (CONSP (position)) 1709 if (CONSP (position))
1709 { 1710 {
@@ -1711,7 +1712,7 @@ specified buffer position instead of point are used.
1711 1712
1712 /* For a mouse click, get the local text-property keymap 1713 /* For a mouse click, get the local text-property keymap
1713 of the place clicked on, rather than point. */ 1714 of the place clicked on, rather than point. */
1714 1715
1715 if (POSN_INBUFFER_P (position)) 1716 if (POSN_INBUFFER_P (position))
1716 { 1717 {
1717 Lisp_Object pos; 1718 Lisp_Object pos;
@@ -1722,7 +1723,7 @@ specified buffer position instead of point are used.
1722 { 1723 {
1723 local_map = get_local_map (XINT (pos), 1724 local_map = get_local_map (XINT (pos),
1724 current_buffer, Qlocal_map); 1725 current_buffer, Qlocal_map);
1725 1726
1726 keymap = get_local_map (XINT (pos), 1727 keymap = get_local_map (XINT (pos),
1727 current_buffer, Qkeymap); 1728 current_buffer, Qkeymap);
1728 } 1729 }
@@ -1733,12 +1734,12 @@ specified buffer position instead of point are used.
1733 string displayed via the `display' property, 1734 string displayed via the `display' property,
1734 consider `local-map' and `keymap' properties of 1735 consider `local-map' and `keymap' properties of
1735 that string. */ 1736 that string. */
1736 1737
1737 if (string = POSN_STRING (position), 1738 if (string = POSN_STRING (position),
1738 (CONSP (string) && STRINGP (XCAR (string)))) 1739 (CONSP (string) && STRINGP (XCAR (string))))
1739 { 1740 {
1740 Lisp_Object pos, map; 1741 Lisp_Object pos, map;
1741 1742
1742 pos = XCDR (string); 1743 pos = XCDR (string);
1743 string = XCAR (string); 1744 string = XCAR (string);
1744 if (INTEGERP (pos) 1745 if (INTEGERP (pos)
@@ -1754,7 +1755,7 @@ specified buffer position instead of point are used.
1754 keymap = map; 1755 keymap = map;
1755 } 1756 }
1756 } 1757 }
1757 1758
1758 } 1759 }
1759 1760
1760 if (! NILP (keymap)) 1761 if (! NILP (keymap))
diff --git a/src/lread.c b/src/lread.c
index 79ccc8bd152..d6fab4ffc8c 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -656,7 +656,7 @@ read_filtered_event (no_switch_frame, ascii_required, error_nonascii,
656 { 656 {
657 EMACS_TIME wait_time; 657 EMACS_TIME wait_time;
658 int sec, usec; 658 int sec, usec;
659 double duration = extract_float (seconds); 659 double duration = extract_float (seconds);
660 660
661 sec = (int) duration; 661 sec = (int) duration;
662 usec = (duration - sec) * 1000000; 662 usec = (duration - sec) * 1000000;
@@ -1743,7 +1743,7 @@ DEFUN ("eval-buffer", Feval_buffer, Seval_buffer, 0, 5, "",
1743Programs can pass two arguments, BUFFER and PRINTFLAG. 1743Programs can pass two arguments, BUFFER and PRINTFLAG.
1744BUFFER is the buffer to evaluate (nil means use current buffer). 1744BUFFER is the buffer to evaluate (nil means use current buffer).
1745PRINTFLAG controls printing of output: 1745PRINTFLAG controls printing of output:
1746nil means discard it; anything else is stream for print. 1746A value of nil means discard it; anything else is stream for print.
1747 1747
1748If the optional third argument FILENAME is non-nil, 1748If the optional third argument FILENAME is non-nil,
1749it specifies the file name to use for `load-history'. 1749it specifies the file name to use for `load-history'.
@@ -1792,7 +1792,7 @@ When called from programs, expects two arguments,
1792giving starting and ending indices in the current buffer 1792giving starting and ending indices in the current buffer
1793of the text to be executed. 1793of the text to be executed.
1794Programs can pass third argument PRINTFLAG which controls output: 1794Programs can pass third argument PRINTFLAG which controls output:
1795nil means discard it; anything else is stream for printing it. 1795A value of nil means discard it; anything else is stream for printing it.
1796Also the fourth argument READ-FUNCTION, if non-nil, is used 1796Also the fourth argument READ-FUNCTION, if non-nil, is used
1797instead of `read' to read each expression. It gets one argument 1797instead of `read' to read each expression. It gets one argument
1798which is the input stream for reading characters. 1798which is the input stream for reading characters.
diff --git a/src/m/amdx86-64.h b/src/m/amdx86-64.h
index 940ff70dbda..670360336a8 100644
--- a/src/m/amdx86-64.h
+++ b/src/m/amdx86-64.h
@@ -125,7 +125,12 @@ Boston, MA 02110-1301, USA. */
125#undef LIB_STANDARD 125#undef LIB_STANDARD
126#define LIB_STANDARD -lgcc -lc -lgcc /usr/lib/crtend.o 126#define LIB_STANDARD -lgcc -lc -lgcc /usr/lib/crtend.o
127 127
128#else /* !__OpenBSD__ && !__FreeBSD__ */ 128#elif defined(sun)
129
130#undef START_FILES
131#undef LIB_STANDARD
132
133#else /* !__OpenBSD__ && !__FreeBSD__ && !sun */
129 134
130#undef START_FILES 135#undef START_FILES
131#ifdef HAVE_X86_64_LIB64_DIR 136#ifdef HAVE_X86_64_LIB64_DIR
diff --git a/src/mac.c b/src/mac.c
index c4275caa741..e79bd775fda 100644
--- a/src/mac.c
+++ b/src/mac.c
@@ -79,6 +79,15 @@ static ComponentInstance as_scripting_component;
79/* The single script context used for all script executions. */ 79/* The single script context used for all script executions. */
80static OSAID as_script_context; 80static OSAID as_script_context;
81 81
82#if TARGET_API_MAC_CARBON
83static int wakeup_from_rne_enabled_p = 0;
84#define ENABLE_WAKEUP_FROM_RNE (wakeup_from_rne_enabled_p = 1)
85#define DISABLE_WAKEUP_FROM_RNE (wakeup_from_rne_enabled_p = 0)
86#else
87#define ENABLE_WAKEUP_FROM_RNE 0
88#define DISABLE_WAKEUP_FROM_RNE 0
89#endif
90
82#ifndef MAC_OSX 91#ifndef MAC_OSX
83static OSErr posix_pathname_to_fsspec P_ ((const char *, FSSpec *)); 92static OSErr posix_pathname_to_fsspec P_ ((const char *, FSSpec *));
84static OSErr fsspec_to_posix_pathname P_ ((const FSSpec *, char *, int)); 93static OSErr fsspec_to_posix_pathname P_ ((const FSSpec *, char *, int));
@@ -2431,6 +2440,7 @@ select (nfds, rfds, wfds, efds, timeout)
2431 BLOCK_INPUT block, in case that some input has already been read 2440 BLOCK_INPUT block, in case that some input has already been read
2432 asynchronously. */ 2441 asynchronously. */
2433 BLOCK_INPUT; 2442 BLOCK_INPUT;
2443 ENABLE_WAKEUP_FROM_RNE;
2434 if (!detect_input_pending ()) 2444 if (!detect_input_pending ())
2435 { 2445 {
2436#if TARGET_API_MAC_CARBON 2446#if TARGET_API_MAC_CARBON
@@ -2461,6 +2471,7 @@ select (nfds, rfds, wfds, efds, timeout)
2461 } 2471 }
2462#endif /* not TARGET_API_MAC_CARBON */ 2472#endif /* not TARGET_API_MAC_CARBON */
2463 } 2473 }
2474 DISABLE_WAKEUP_FROM_RNE;
2464 UNBLOCK_INPUT; 2475 UNBLOCK_INPUT;
2465 2476
2466 if (err == noErr) 2477 if (err == noErr)
@@ -5023,6 +5034,7 @@ select_and_poll_event (nfds, rfds, wfds, efds, timeout)
5023 BLOCK_INPUT block, in case that some input has already been read 5034 BLOCK_INPUT block, in case that some input has already been read
5024 asynchronously. */ 5035 asynchronously. */
5025 BLOCK_INPUT; 5036 BLOCK_INPUT;
5037 ENABLE_WAKEUP_FROM_RNE;
5026 if (!detect_input_pending ()) 5038 if (!detect_input_pending ())
5027 { 5039 {
5028 EMACS_TIME select_timeout; 5040 EMACS_TIME select_timeout;
@@ -5045,6 +5057,7 @@ select_and_poll_event (nfds, rfds, wfds, efds, timeout)
5045 kEventLeaveInQueue, NULL); 5057 kEventLeaveInQueue, NULL);
5046 } 5058 }
5047 } 5059 }
5060 DISABLE_WAKEUP_FROM_RNE;
5048 UNBLOCK_INPUT; 5061 UNBLOCK_INPUT;
5049 5062
5050 if (r != 0) 5063 if (r != 0)
@@ -5124,6 +5137,7 @@ sys_select (nfds, rfds, wfds, efds, timeout)
5124 BLOCK_INPUT block, in case that some input has already been 5137 BLOCK_INPUT block, in case that some input has already been
5125 read asynchronously. */ 5138 read asynchronously. */
5126 BLOCK_INPUT; 5139 BLOCK_INPUT;
5140 ENABLE_WAKEUP_FROM_RNE;
5127 if (!detect_input_pending ()) 5141 if (!detect_input_pending ())
5128 { 5142 {
5129 int minfd, fd; 5143 int minfd, fd;
@@ -5184,6 +5198,7 @@ sys_select (nfds, rfds, wfds, efds, timeout)
5184 CFRunLoopRemoveSource (runloop, source, kCFRunLoopDefaultMode); 5198 CFRunLoopRemoveSource (runloop, source, kCFRunLoopDefaultMode);
5185 } 5199 }
5186 } 5200 }
5201 DISABLE_WAKEUP_FROM_RNE;
5187 UNBLOCK_INPUT; 5202 UNBLOCK_INPUT;
5188 5203
5189 if (err == noErr || err == eventLoopQuitErr) 5204 if (err == noErr || err == eventLoopQuitErr)
@@ -5385,6 +5400,16 @@ init_mac_osx_environment ()
5385} 5400}
5386#endif /* MAC_OSX */ 5401#endif /* MAC_OSX */
5387 5402
5403#if TARGET_API_MAC_CARBON
5404void
5405mac_wakeup_from_rne ()
5406{
5407 if (wakeup_from_rne_enabled_p)
5408 /* Post a harmless event so as to wake up from
5409 ReceiveNextEvent. */
5410 mac_post_mouse_moved_event ();
5411}
5412#endif
5388 5413
5389void 5414void
5390syms_of_mac () 5415syms_of_mac ()
diff --git a/src/macfns.c b/src/macfns.c
index 2148ec3e1ad..a5de3edeec6 100644
--- a/src/macfns.c
+++ b/src/macfns.c
@@ -4597,6 +4597,30 @@ This is for internal use only. Use `mac-font-panel-mode' instead. */)
4597 return Qnil; 4597 return Qnil;
4598} 4598}
4599#endif 4599#endif
4600
4601#if USE_ATSUI
4602extern Lisp_Object mac_atsu_font_face_attributes P_ ((ATSUFontID));
4603
4604DEFUN ("mac-atsu-font-face-attributes", Fmac_atsu_font_face_attributes,
4605 Smac_atsu_font_face_attributes, 1, 1, 0,
4606 doc: /* Return plist of face attributes and values for ATSU font ID.
4607ID is specified by either an integer or a float. */)
4608 (id)
4609 Lisp_Object id;
4610{
4611 ATSUFontID font_id;
4612 Lisp_Object result;
4613
4614 check_mac ();
4615 CHECK_NUMBER_OR_FLOAT(id);
4616 font_id = NUMBERP (id) ? XINT (id) : (ATSUFontID) XFLOAT (id);
4617 BLOCK_INPUT;
4618 result = mac_atsu_font_face_attributes (font_id);
4619 UNBLOCK_INPUT;
4620 return result;
4621}
4622#endif
4623
4600 4624
4601/*********************************************************************** 4625/***********************************************************************
4602 Initialization 4626 Initialization
@@ -4829,6 +4853,9 @@ Chinese, Japanese, and Korean. */);
4829#if USE_MAC_FONT_PANEL 4853#if USE_MAC_FONT_PANEL
4830 defsubr (&Smac_set_font_panel_visibility); 4854 defsubr (&Smac_set_font_panel_visibility);
4831#endif 4855#endif
4856#if USE_ATSUI
4857 defsubr (&Smac_atsu_font_face_attributes);
4858#endif
4832} 4859}
4833 4860
4834/* arch-tag: d7591289-f374-4377-b245-12f5dbbb8edc 4861/* arch-tag: d7591289-f374-4377-b245-12f5dbbb8edc
diff --git a/src/macselect.c b/src/macselect.c
index 7a952f88367..8d15db24144 100644
--- a/src/macselect.c
+++ b/src/macselect.c
@@ -1567,8 +1567,7 @@ mac_do_receive_drag (window, refcon, drag)
1567 { 1567 {
1568 mac_store_drag_event (window, mouse_pos, modifiers, &apple_event); 1568 mac_store_drag_event (window, mouse_pos, modifiers, &apple_event);
1569 AEDisposeDesc (&apple_event); 1569 AEDisposeDesc (&apple_event);
1570 /* Post a harmless event so as to wake up from ReceiveNextEvent. */ 1570 mac_wakeup_from_rne ();
1571 mac_post_mouse_moved_event ();
1572 return noErr; 1571 return noErr;
1573 } 1572 }
1574 else 1573 else
diff --git a/src/macterm.c b/src/macterm.c
index ff36e9501c6..cb0e024b8eb 100644
--- a/src/macterm.c
+++ b/src/macterm.c
@@ -1156,7 +1156,8 @@ mac_query_char_extents (style, c,
1156 UniChar ch = c; 1156 UniChar ch = c;
1157 1157
1158 err = atsu_get_text_layout_with_text_ptr (&ch, 1, style, &text_layout); 1158 err = atsu_get_text_layout_with_text_ptr (&ch, 1, style, &text_layout);
1159 if (err == noErr) 1159 if (err == noErr
1160 && (font_ascent_return || font_descent_return || overall_return))
1160 { 1161 {
1161 ATSTrapezoid glyph_bounds; 1162 ATSTrapezoid glyph_bounds;
1162 1163
@@ -7006,7 +7007,6 @@ static Lisp_Object fm_font_family_alist;
7006static Lisp_Object atsu_font_id_hash; 7007static Lisp_Object atsu_font_id_hash;
7007/* Alist linking Font Manager style to face attributes. */ 7008/* Alist linking Font Manager style to face attributes. */
7008static Lisp_Object fm_style_face_attributes_alist; 7009static Lisp_Object fm_style_face_attributes_alist;
7009static Lisp_Object Vmac_atsu_font_table;
7010extern Lisp_Object QCfamily, QCweight, QCslant, Qnormal, Qbold, Qitalic; 7010extern Lisp_Object QCfamily, QCweight, QCslant, Qnormal, Qbold, Qitalic;
7011#endif 7011#endif
7012 7012
@@ -7243,6 +7243,73 @@ add_mac_font_name (name, size, style, charset)
7243} 7243}
7244 7244
7245#if USE_ATSUI 7245#if USE_ATSUI
7246static FMFontStyle
7247fm_get_style_from_font (font)
7248 FMFont font;
7249{
7250 OSStatus err;
7251 FMFontStyle style = normal;
7252 ByteCount len;
7253 UInt16 mac_style;
7254 FMFontFamily font_family;
7255#define FONT_HEADER_MAC_STYLE_OFFSET (4*4 + 2*2 + 8*2 + 2*4)
7256
7257 /* FMGetFontFamilyInstanceFromFont returns `normal' as the style of
7258 some font (e.g., Optima) even if it is `bold'. */
7259 err = FMGetFontTable (font, 'head', FONT_HEADER_MAC_STYLE_OFFSET,
7260 sizeof (mac_style), &mac_style, &len);
7261 if (err == noErr
7262 && len >= FONT_HEADER_MAC_STYLE_OFFSET + sizeof (mac_style))
7263 style = EndianU16_BtoN (mac_style);
7264 else
7265 FMGetFontFamilyInstanceFromFont (font, &font_family, &style);
7266
7267 return style;
7268}
7269
7270static ATSUFontID
7271atsu_find_font_from_family_name (family)
7272 const char *family;
7273{
7274 struct Lisp_Hash_Table *h = XHASH_TABLE (atsu_font_id_hash);
7275 unsigned hash_code;
7276 int i;
7277 Lisp_Object rest, best;
7278 FMFontStyle min_style, style;
7279
7280 i = hash_lookup (h, make_unibyte_string (family, strlen (family)),
7281 &hash_code);
7282 if (i < 0)
7283 return kATSUInvalidFontID;
7284
7285 rest = HASH_VALUE (h, i);
7286 if (INTEGERP (rest) || (CONSP (rest) && INTEGERP (XCDR (rest))))
7287 return cons_to_long (rest);
7288
7289 rest = Fnreverse (rest);
7290 best = XCAR (rest);
7291 rest = XCDR (rest);
7292 if (!NILP (rest)
7293 && (min_style = fm_get_style_from_font (cons_to_long (best))) != normal)
7294 do
7295 {
7296 style = fm_get_style_from_font (cons_to_long (XCAR (rest)));
7297 if (style < min_style)
7298 {
7299 best = XCAR (rest);
7300 if (style == normal)
7301 break;
7302 else
7303 min_style = style;
7304 }
7305 rest = XCDR (rest);
7306 }
7307 while (!NILP (rest));
7308
7309 HASH_VALUE (h, i) = best;
7310 return cons_to_long (best);
7311}
7312
7246static Lisp_Object 7313static Lisp_Object
7247fm_style_to_face_attributes (fm_style) 7314fm_style_to_face_attributes (fm_style)
7248 FMFontStyle fm_style; 7315 FMFontStyle fm_style;
@@ -7263,6 +7330,44 @@ fm_style_to_face_attributes (fm_style)
7263 7330
7264 return tem; 7331 return tem;
7265} 7332}
7333
7334static Lisp_Object
7335atsu_find_font_family_name (font_id)
7336 ATSUFontID font_id;
7337{
7338 OSStatus err;
7339 ByteCount len;
7340 Lisp_Object family = Qnil;
7341
7342 err = ATSUFindFontName (font_id, kFontFamilyName,
7343 kFontMacintoshPlatform, kFontNoScript,
7344 kFontNoLanguage, 0, NULL, &len, NULL);
7345 if (err == noErr)
7346 {
7347 family = make_uninit_string (len);
7348 err = ATSUFindFontName (font_id, kFontFamilyName,
7349 kFontMacintoshPlatform, kFontNoScript,
7350 kFontNoLanguage, len, SDATA (family),
7351 NULL, NULL);
7352 }
7353 if (err == noErr)
7354 decode_mac_font_name (SDATA (family), len + 1, Qnil);
7355
7356 return family;
7357}
7358
7359Lisp_Object
7360mac_atsu_font_face_attributes (font_id)
7361 ATSUFontID font_id;
7362{
7363 Lisp_Object family, style_attrs;
7364
7365 family = atsu_find_font_family_name (font_id);
7366 if (NILP (family))
7367 return Qnil;
7368 style_attrs = fm_style_to_face_attributes (fm_get_style_from_font (font_id));
7369 return Fcons (QCfamily, Fcons (family, style_attrs));
7370}
7266#endif 7371#endif
7267 7372
7268/* Sets up the table font_name_table to contain the list of all fonts 7373/* Sets up the table font_name_table to contain the list of all fonts
@@ -7294,9 +7399,8 @@ init_font_name_table ()
7294 unsigned hash_code; 7399 unsigned hash_code;
7295 ItemCount nfonts, i; 7400 ItemCount nfonts, i;
7296 ATSUFontID *font_ids = NULL; 7401 ATSUFontID *font_ids = NULL;
7297 Ptr name; 7402 Lisp_Object prev_family = Qnil;
7298 ByteCount name_len; 7403 int j;
7299 Lisp_Object family;
7300 7404
7301 atsu_font_id_hash = 7405 atsu_font_id_hash =
7302 make_hash_table (Qequal, make_number (DEFAULT_HASH_SIZE), 7406 make_hash_table (Qequal, make_number (DEFAULT_HASH_SIZE),
@@ -7314,41 +7418,25 @@ init_font_name_table ()
7314 if (err == noErr) 7418 if (err == noErr)
7315 for (i = 0; i < nfonts; i++) 7419 for (i = 0; i < nfonts; i++)
7316 { 7420 {
7317 err = ATSUFindFontName (font_ids[i], kFontFamilyName, 7421 Lisp_Object family;
7318 kFontMacintoshPlatform, kFontNoScript, 7422
7319 kFontNoLanguage, 0, NULL, &name_len, NULL); 7423 family = atsu_find_font_family_name (font_ids[i]);
7320 if (err != noErr) 7424 if (NILP (family) || SREF (family, 0) == '.')
7321 continue; 7425 continue;
7322 name = xmalloc (name_len + 1); 7426 if (!NILP (Fequal (prev_family, family)))
7323 name[name_len] = '\0'; 7427 family = prev_family;
7324 err = ATSUFindFontName (font_ids[i], kFontFamilyName, 7428 else
7325 kFontMacintoshPlatform, kFontNoScript, 7429 j = hash_lookup (h, family, &hash_code);
7326 kFontNoLanguage, name_len, name, 7430 if (j < 0)
7327 NULL, NULL);
7328 if (err == noErr)
7329 { 7431 {
7330 FMFontFamily ff; 7432 add_mac_font_name (SDATA (family), 0, normal, "iso10646-1");
7331 FMFontStyle style = normal; 7433 j = hash_put (h, family, Fcons (long_to_cons (font_ids[i]),
7332 7434 Qnil), hash_code);
7333 decode_mac_font_name (name, name_len + 1, Qnil);
7334 family = make_unibyte_string (name, name_len);
7335 FMGetFontFamilyInstanceFromFont (font_ids[i], &ff, &style);
7336 Fputhash ((font_ids[i] > MOST_POSITIVE_FIXNUM
7337 ? make_float (font_ids[i])
7338 : make_number (font_ids[i])),
7339 Fcons (QCfamily,
7340 Fcons (family,
7341 fm_style_to_face_attributes (style))),
7342 Vmac_atsu_font_table);
7343 if (*name != '.'
7344 && hash_lookup (h, family, &hash_code) < 0)
7345 {
7346 add_mac_font_name (name, 0, normal, "iso10646-1");
7347 hash_put (h, family, long_to_cons (font_ids[i]),
7348 hash_code);
7349 }
7350 } 7435 }
7351 xfree (name); 7436 else if (EQ (prev_family, family))
7437 HASH_VALUE (h, j) = Fcons (long_to_cons (font_ids[i]),
7438 HASH_VALUE (h, j));
7439 prev_family = family;
7352 } 7440 }
7353 if (font_ids) 7441 if (font_ids)
7354 xfree (font_ids); 7442 xfree (font_ids);
@@ -7892,14 +7980,11 @@ mac_load_query_font (f, fontname)
7892 {kAllTypographicFeaturesType, kDiacriticsType}; 7980 {kAllTypographicFeaturesType, kDiacriticsType};
7893 static const ATSUFontFeatureSelector selectors[] = 7981 static const ATSUFontFeatureSelector selectors[] =
7894 {kAllTypeFeaturesOffSelector, kDecomposeDiacriticsSelector}; 7982 {kAllTypeFeaturesOffSelector, kDecomposeDiacriticsSelector};
7895 Lisp_Object font_id_cons;
7896 FMFontStyle style; 7983 FMFontStyle style;
7897 7984
7898 font_id_cons = Fgethash (make_unibyte_string (family, strlen (family)), 7985 font_id = atsu_find_font_from_family_name (family);
7899 atsu_font_id_hash, Qnil); 7986 if (font_id == kATSUInvalidFontID)
7900 if (NILP (font_id_cons)) 7987 return;
7901 return NULL;
7902 font_id = cons_to_long (font_id_cons);
7903 size_fixed = Long2Fix (size); 7988 size_fixed = Long2Fix (size);
7904 bold_p = (fontface & bold) != 0; 7989 bold_p = (fontface & bold) != 0;
7905 italic_p = (fontface & italic) != 0; 7990 italic_p = (fontface & italic) != 0;
@@ -8023,11 +8108,19 @@ mac_load_query_font (f, fontname)
8023 continue; 8108 continue;
8024 else if (c == 0x7f) 8109 else if (c == 0x7f)
8025 { 8110 {
8026 c = 0x9f; 8111#if USE_CG_TEXT_DRAWING
8027 continue; 8112 if (font->cg_glyphs)
8113 {
8114 c = 0x9f;
8115 pcm = NULL;
8116 continue;
8117 }
8118#endif
8119 break;
8028 } 8120 }
8029 8121
8030 mac_query_char_extents (font->mac_style, c, NULL, NULL, pcm + c, 8122 mac_query_char_extents (font->mac_style, c, NULL, NULL,
8123 pcm ? pcm + c : NULL,
8031#if USE_CG_TEXT_DRAWING 8124#if USE_CG_TEXT_DRAWING
8032 (font->cg_glyphs ? font->cg_glyphs + c 8125 (font->cg_glyphs ? font->cg_glyphs + c
8033 : NULL) 8126 : NULL)
@@ -8045,6 +8138,8 @@ mac_load_query_font (f, fontname)
8045 font->cg_font = NULL; 8138 font->cg_font = NULL;
8046 xfree (font->cg_glyphs); 8139 xfree (font->cg_glyphs);
8047 font->cg_glyphs = NULL; 8140 font->cg_glyphs = NULL;
8141 if (pcm == NULL)
8142 break;
8048 } 8143 }
8049#endif 8144#endif
8050 } 8145 }
@@ -8052,6 +8147,7 @@ mac_load_query_font (f, fontname)
8052 else 8147 else
8053#endif 8148#endif
8054 { 8149 {
8150 OSStatus err;
8055 FontInfo the_fontinfo; 8151 FontInfo the_fontinfo;
8056 int is_two_byte_font; 8152 int is_two_byte_font;
8057 8153
@@ -8134,8 +8230,13 @@ mac_load_query_font (f, fontname)
8134 sizeof (XCharStruct) * (0xff - 0x20 + 1)); 8230 sizeof (XCharStruct) * (0xff - 0x20 + 1));
8135 8231
8136 space_bounds = font->bounds.per_char; 8232 space_bounds = font->bounds.per_char;
8137 mac_query_char_extents (NULL, 0x20, &font->ascent, &font->descent, 8233 err = mac_query_char_extents (NULL, 0x20, &font->ascent,
8138 space_bounds, NULL); 8234 &font->descent, space_bounds, NULL);
8235 if (err != noErr || space_bounds->width <= 0)
8236 {
8237 mac_unload_font (&one_mac_display_info, font);
8238 return NULL;
8239 }
8139 8240
8140 for (c = 0x21, pcm = space_bounds + 1; c <= 0xff; c++, pcm++) 8241 for (c = 0x21, pcm = space_bounds + 1; c <= 0xff; c++, pcm++)
8141 mac_query_char_extents (NULL, c, NULL, NULL, pcm, NULL); 8242 mac_query_char_extents (NULL, c, NULL, NULL, pcm, NULL);
@@ -9386,9 +9487,7 @@ mac_store_event_ref_as_apple_event (class, id, class_key, id_key,
9386 { 9487 {
9387 mac_store_apple_event (class_key, id_key, &apple_event); 9488 mac_store_apple_event (class_key, id_key, &apple_event);
9388 AEDisposeDesc (&apple_event); 9489 AEDisposeDesc (&apple_event);
9389 /* Post a harmless event so as to wake up from 9490 mac_wakeup_from_rne ();
9390 ReceiveNextEvent. */
9391 mac_post_mouse_moved_event ();
9392 } 9491 }
9393 } 9492 }
9394 } 9493 }
@@ -10401,7 +10500,9 @@ XTread_socket (sd, expected, hold_quit)
10401#else 10500#else
10402 FrontWindow () 10501 FrontWindow ()
10403#endif 10502#endif
10404 != window_ptr) 10503 != window_ptr
10504 || (mac_window_to_frame (window_ptr)
10505 != dpyinfo->x_focus_frame))
10405 SelectWindow (window_ptr); 10506 SelectWindow (window_ptr);
10406 else 10507 else
10407 { 10508 {
@@ -11673,7 +11774,7 @@ syms_of_macterm ()
11673 DEFVAR_BOOL ("x-use-underline-position-properties", 11774 DEFVAR_BOOL ("x-use-underline-position-properties",
11674 &x_use_underline_position_properties, 11775 &x_use_underline_position_properties,
11675 doc: /* *Non-nil means make use of UNDERLINE_POSITION font properties. 11776 doc: /* *Non-nil means make use of UNDERLINE_POSITION font properties.
11676nil means ignore them. If you encounter fonts with bogus 11777A value of nil means ignore them. If you encounter fonts with bogus
11677UNDERLINE_POSITION font properties, for example 7x13 on XFree prior 11778UNDERLINE_POSITION font properties, for example 7x13 on XFree prior
11678to 4.1, set this to nil. 11779to 4.1, set this to nil.
11679 11780
@@ -11683,9 +11784,9 @@ NOTE: Not supported on Mac yet. */);
11683 DEFVAR_BOOL ("x-underline-at-descent-line", 11784 DEFVAR_BOOL ("x-underline-at-descent-line",
11684 &x_underline_at_descent_line, 11785 &x_underline_at_descent_line,
11685 doc: /* *Non-nil means to draw the underline at the same place as the descent line. 11786 doc: /* *Non-nil means to draw the underline at the same place as the descent line.
11686nil means to draw the underline according to the value of the variable 11787A value of nil means to draw the underline according to the value of the
11687`x-use-underline-position-properties', which is usually at the baseline 11788variable `x-use-underline-position-properties', which is usually at the
11688level. The default value is nil. */); 11789baseline level. The default value is nil. */);
11689 x_underline_at_descent_line = 0; 11790 x_underline_at_descent_line = 0;
11690 11791
11691 DEFVAR_LISP ("x-toolkit-scroll-bars", &Vx_toolkit_scroll_bars, 11792 DEFVAR_LISP ("x-toolkit-scroll-bars", &Vx_toolkit_scroll_bars,
@@ -11732,8 +11833,8 @@ unexpected results for some keys on non-US/GB keyboards. */);
11732 &Vmac_emulate_three_button_mouse, 11833 &Vmac_emulate_three_button_mouse,
11733 doc: /* *Specify a way of three button mouse emulation. 11834 doc: /* *Specify a way of three button mouse emulation.
11734The value can be nil, t, or the symbol `reverse'. 11835The value can be nil, t, or the symbol `reverse'.
11735nil means that no emulation should be done and the modifiers should be 11836A value of nil means that no emulation should be done and the modifiers
11736placed on the mouse-1 event. 11837should be placed on the mouse-1 event.
11737t means that when the option-key is held down while pressing the mouse 11838t means that when the option-key is held down while pressing the mouse
11738button, the click will register as mouse-2 and while the command-key 11839button, the click will register as mouse-2 and while the command-key
11739is held down, the click will register as mouse-3. 11840is held down, the click will register as mouse-3.
@@ -11784,15 +11885,6 @@ CODING_SYSTEM is a coding system corresponding to TEXT-ENCODING. */);
11784 Fcons (list3 (build_string ("mac-roman"), 11885 Fcons (list3 (build_string ("mac-roman"),
11785 make_number (smRoman), Qnil), Qnil); 11886 make_number (smRoman), Qnil), Qnil);
11786 11887
11787#if USE_ATSUI
11788 DEFVAR_LISP ("mac-atsu-font-table", &Vmac_atsu_font_table,
11789 doc: /* Hash table of ATSU font IDs vs plist of attributes and values. */);
11790 Vmac_atsu_font_table =
11791 make_hash_table (Qeql, make_number (DEFAULT_HASH_SIZE),
11792 make_float (DEFAULT_REHASH_SIZE),
11793 make_float (DEFAULT_REHASH_THRESHOLD),
11794 Qnil, Qnil, Qnil);
11795#endif
11796#if USE_MAC_TSM 11888#if USE_MAC_TSM
11797 DEFVAR_LISP ("mac-ts-active-input-overlay", &Vmac_ts_active_input_overlay, 11889 DEFVAR_LISP ("mac-ts-active-input-overlay", &Vmac_ts_active_input_overlay,
11798 doc: /* Overlay used to display Mac TSM active input area. */); 11890 doc: /* Overlay used to display Mac TSM active input area. */);
diff --git a/src/macterm.h b/src/macterm.h
index cac90f1fa80..856d349f6f7 100644
--- a/src/macterm.h
+++ b/src/macterm.h
@@ -685,6 +685,7 @@ extern Lisp_Object cfdate_to_lisp P_ ((CFDateRef));
685extern Lisp_Object cfboolean_to_lisp P_ ((CFBooleanRef)); 685extern Lisp_Object cfboolean_to_lisp P_ ((CFBooleanRef));
686extern Lisp_Object cfobject_desc_to_lisp P_ ((CFTypeRef)); 686extern Lisp_Object cfobject_desc_to_lisp P_ ((CFTypeRef));
687extern Lisp_Object cfproperty_list_to_lisp P_ ((CFPropertyListRef, int, int)); 687extern Lisp_Object cfproperty_list_to_lisp P_ ((CFPropertyListRef, int, int));
688extern void mac_wakeup_from_rne P_ ((void));
688#endif 689#endif
689extern void xrm_merge_string_database P_ ((XrmDatabase, const char *)); 690extern void xrm_merge_string_database P_ ((XrmDatabase, const char *));
690extern Lisp_Object xrm_get_resource P_ ((XrmDatabase, const char *, 691extern Lisp_Object xrm_get_resource P_ ((XrmDatabase, const char *,
diff --git a/src/marker.c b/src/marker.c
index 9f2aa4826b4..bac8e46fc3f 100644
--- a/src/marker.c
+++ b/src/marker.c
@@ -848,7 +848,7 @@ see `marker-insertion-type'. */)
848DEFUN ("marker-insertion-type", Fmarker_insertion_type, 848DEFUN ("marker-insertion-type", Fmarker_insertion_type,
849 Smarker_insertion_type, 1, 1, 0, 849 Smarker_insertion_type, 1, 1, 0,
850 doc: /* Return insertion type of MARKER: t if it stays after inserted text. 850 doc: /* Return insertion type of MARKER: t if it stays after inserted text.
851nil means the marker stays before text inserted there. */) 851The value nil means the marker stays before text inserted there. */)
852 (marker) 852 (marker)
853 register Lisp_Object marker; 853 register Lisp_Object marker;
854{ 854{
diff --git a/src/minibuf.c b/src/minibuf.c
index 316f487e0ff..2397ea4b085 100644
--- a/src/minibuf.c
+++ b/src/minibuf.c
@@ -2868,10 +2868,10 @@ The value may alternatively be a function, which is given three arguments:
2868 STRING, the current buffer contents; 2868 STRING, the current buffer contents;
2869 PREDICATE, the predicate for filtering possible matches; 2869 PREDICATE, the predicate for filtering possible matches;
2870 CODE, which says what kind of things to do. 2870 CODE, which says what kind of things to do.
2871CODE can be nil, t or `lambda'. 2871CODE can be nil, t or `lambda':
2872nil means to return the best completion of STRING, or nil if there is none. 2872 nil -- return the best completion of STRING, or nil if there is none.
2873t means to return a list of all possible completions of STRING. 2873 t -- return a list of all possible completions of STRING.
2874`lambda' means to return t if STRING is a valid completion as it stands. */); 2874 lambda -- return t if STRING is a valid completion as it stands. */);
2875 Vminibuffer_completion_table = Qnil; 2875 Vminibuffer_completion_table = Qnil;
2876 2876
2877 DEFVAR_LISP ("minibuffer-completion-predicate", &Vminibuffer_completion_predicate, 2877 DEFVAR_LISP ("minibuffer-completion-predicate", &Vminibuffer_completion_predicate,
diff --git a/src/msdos.c b/src/msdos.c
index 4a39ce75ae1..4e989402a80 100644
--- a/src/msdos.c
+++ b/src/msdos.c
@@ -5300,7 +5300,7 @@ This variable is used only by MSDOS terminals. */);
5300#ifndef subprocesses 5300#ifndef subprocesses
5301 DEFVAR_BOOL ("delete-exited-processes", &delete_exited_processes, 5301 DEFVAR_BOOL ("delete-exited-processes", &delete_exited_processes,
5302 doc: /* *Non-nil means delete processes immediately when they exit. 5302 doc: /* *Non-nil means delete processes immediately when they exit.
5303nil means don't delete them until `list-processes' is run. */); 5303A value of nil means don't delete them until `list-processes' is run. */);
5304 delete_exited_processes = 0; 5304 delete_exited_processes = 0;
5305#endif 5305#endif
5306 5306
diff --git a/src/msdos.h b/src/msdos.h
index 8bfbcf2d10c..cbe65818867 100644
--- a/src/msdos.h
+++ b/src/msdos.h
@@ -53,7 +53,7 @@ typedef int Pixmap;
53typedef int Display; 53typedef int Display;
54typedef int Window; 54typedef int Window;
55typedef int XRectangle; 55typedef int XRectangle;
56#define PIX_TYPE int 56#define PIX_TYPE unsigned long
57#define XDISPLAY 57#define XDISPLAY
58 58
59/* A stripped version of struct x_display_info in xterm.h, which see. */ 59/* A stripped version of struct x_display_info in xterm.h, which see. */
diff --git a/src/process.c b/src/process.c
index db7fcb8b201..663170e685e 100644
--- a/src/process.c
+++ b/src/process.c
@@ -6083,7 +6083,7 @@ If PROCESS is a network process, resume handling of incoming traffic. */)
6083DEFUN ("signal-process", Fsignal_process, Ssignal_process, 6083DEFUN ("signal-process", Fsignal_process, Ssignal_process,
6084 2, 2, "sProcess (name or number): \nnSignal code: ", 6084 2, 2, "sProcess (name or number): \nnSignal code: ",
6085 doc: /* Send PROCESS the signal with code SIGCODE. 6085 doc: /* Send PROCESS the signal with code SIGCODE.
6086PROCESS may also be an integer specifying the process id of the 6086PROCESS may also be a number specifying the process id of the
6087process to signal; in this case, the process need not be a child of 6087process to signal; in this case, the process need not be a child of
6088this Emacs. 6088this Emacs.
6089SIGCODE may be an integer, or a symbol whose name is a signal name. */) 6089SIGCODE may be an integer, or a symbol whose name is a signal name. */)
@@ -6100,7 +6100,7 @@ SIGCODE may be an integer, or a symbol whose name is a signal name. */)
6100 6100
6101 if (FLOATP (process)) 6101 if (FLOATP (process))
6102 { 6102 {
6103 pid = (pid_t) XFLOAT (process); 6103 pid = (pid_t) XFLOAT_DATA (process);
6104 goto got_it; 6104 goto got_it;
6105 } 6105 }
6106 6106
@@ -6129,7 +6129,7 @@ SIGCODE may be an integer, or a symbol whose name is a signal name. */)
6129 got_it: 6129 got_it:
6130 6130
6131#define parse_signal(NAME, VALUE) \ 6131#define parse_signal(NAME, VALUE) \
6132 else if (!strcasecmp (name, NAME)) \ 6132 else if (!xstricmp (name, NAME)) \
6133 XSETINT (sigcode, VALUE) 6133 XSETINT (sigcode, VALUE)
6134 6134
6135 if (INTEGERP (sigcode)) 6135 if (INTEGERP (sigcode))
@@ -6141,7 +6141,7 @@ SIGCODE may be an integer, or a symbol whose name is a signal name. */)
6141 CHECK_SYMBOL (sigcode); 6141 CHECK_SYMBOL (sigcode);
6142 name = SDATA (SYMBOL_NAME (sigcode)); 6142 name = SDATA (SYMBOL_NAME (sigcode));
6143 6143
6144 if (!strncasecmp(name, "sig", 3)) 6144 if (!strncmp(name, "SIG", 3) || !strncmp(name, "sig", 3))
6145 name += 3; 6145 name += 3;
6146 6146
6147 if (0) 6147 if (0)
diff --git a/src/syntax.c b/src/syntax.c
index a85746be362..d1ae3f6bd8c 100644
--- a/src/syntax.c
+++ b/src/syntax.c
@@ -893,7 +893,7 @@ DEFUN ("string-to-syntax", Fstring_to_syntax, Sstring_to_syntax, 1, 1, 0,
893 doc: /* Convert a syntax specification STRING into syntax cell form. 893 doc: /* Convert a syntax specification STRING into syntax cell form.
894STRING should be a string as it is allowed as argument of 894STRING should be a string as it is allowed as argument of
895`modify-syntax-entry'. Value is the equivalent cons cell 895`modify-syntax-entry'. Value is the equivalent cons cell
896(CODE . MATCHING-CHAR) that can be used as value of a `syntax-table' 896\(CODE . MATCHING-CHAR) that can be used as value of a `syntax-table'
897text property. */) 897text property. */)
898 (string) 898 (string)
899 Lisp_Object string; 899 Lisp_Object string;
@@ -3270,7 +3270,7 @@ Fourth arg STOPBEFORE non-nil means stop when come to
3270 any character that starts a sexp. 3270 any character that starts a sexp.
3271Fifth arg OLDSTATE is a list like what this function returns. 3271Fifth arg OLDSTATE is a list like what this function returns.
3272 It is used to initialize the state of the parse. Elements number 1, 2, 6 3272 It is used to initialize the state of the parse. Elements number 1, 2, 6
3273 and 8 are ignored; you can leave off element 8 (the last) entirely. 3273 and 8 are ignored.
3274Sixth arg COMMENTSTOP non-nil means stop at the start of a comment. 3274Sixth arg COMMENTSTOP non-nil means stop at the start of a comment.
3275 If it is symbol `syntax-table', stop after the start of a comment or a 3275 If it is symbol `syntax-table', stop after the start of a comment or a
3276 string, or after end of a comment or a string. */) 3276 string, or after end of a comment or a string. */)
diff --git a/src/systime.h b/src/systime.h
index 00373b257b3..e7ff2b2a3b7 100644
--- a/src/systime.h
+++ b/src/systime.h
@@ -101,16 +101,8 @@ extern time_t timezone;
101#ifdef GETTIMEOFDAY_ONE_ARGUMENT 101#ifdef GETTIMEOFDAY_ONE_ARGUMENT
102#define EMACS_GET_TIME(time) gettimeofday (&(time)) 102#define EMACS_GET_TIME(time) gettimeofday (&(time))
103#else /* not GETTIMEOFDAY_ONE_ARGUMENT */ 103#else /* not GETTIMEOFDAY_ONE_ARGUMENT */
104#ifdef HAVE_STRUCT_TIMEZONE
105#define EMACS_GET_TIME(time) \
106 do { \
107 struct timezone dummy; \
108 gettimeofday (&(time), &dummy); \
109 } while (0)
110#else
111/* Presumably the second arg is ignored. */ 104/* Presumably the second arg is ignored. */
112#define EMACS_GET_TIME(time) gettimeofday (&(time), NULL) 105#define EMACS_GET_TIME(time) gettimeofday (&(time), NULL)
113#endif /* HAVE_STRUCT_TIMEZONE */
114#endif /* not GETTIMEOFDAY_ONE_ARGUMENT */ 106#endif /* not GETTIMEOFDAY_ONE_ARGUMENT */
115 107
116#define EMACS_ADD_TIME(dest, src1, src2) \ 108#define EMACS_ADD_TIME(dest, src1, src2) \
diff --git a/src/w32fns.c b/src/w32fns.c
index 1ab44486852..65362099bf9 100644
--- a/src/w32fns.c
+++ b/src/w32fns.c
@@ -3707,8 +3707,11 @@ w32_wnd_proc (hwnd, msg, wParam, lParam)
3707 However for top/left sizing we will need to fix the X 3707 However for top/left sizing we will need to fix the X
3708 and Y positions as well. */ 3708 and Y positions as well. */
3709 3709
3710 lppos->cx -= wdiff; 3710 int cx_mintrack = GetSystemMetrics (SM_CXMINTRACK);
3711 lppos->cy -= hdiff; 3711 int cy_mintrack = GetSystemMetrics (SM_CYMINTRACK);
3712
3713 lppos->cx = max (lppos->cx - wdiff, cx_mintrack);
3714 lppos->cy = max (lppos->cy - hdiff, cy_mintrack);
3712 3715
3713 if (wp.showCmd != SW_SHOWMAXIMIZED 3716 if (wp.showCmd != SW_SHOWMAXIMIZED
3714 && (lppos->flags & SWP_NOMOVE) == 0) 3717 && (lppos->flags & SWP_NOMOVE) == 0)
@@ -3732,9 +3735,6 @@ w32_wnd_proc (hwnd, msg, wParam, lParam)
3732 goto dflt; 3735 goto dflt;
3733 3736
3734 case WM_GETMINMAXINFO: 3737 case WM_GETMINMAXINFO:
3735 /* Hack to correct bug that allows Emacs frames to be resized
3736 below the Minimum Tracking Size. */
3737 ((LPMINMAXINFO) lParam)->ptMinTrackSize.y++;
3738 /* Hack to allow resizing the Emacs frame above the screen size. 3738 /* Hack to allow resizing the Emacs frame above the screen size.
3739 Note that Windows 9x limits coordinates to 16-bits. */ 3739 Note that Windows 9x limits coordinates to 16-bits. */
3740 ((LPMINMAXINFO) lParam)->ptMaxTrackSize.x = 32767; 3740 ((LPMINMAXINFO) lParam)->ptMaxTrackSize.x = 32767;
diff --git a/src/w32term.c b/src/w32term.c
index 89be876b920..992bbc76aad 100644
--- a/src/w32term.c
+++ b/src/w32term.c
@@ -6693,7 +6693,7 @@ the cursor have no effect. */);
6693 DEFVAR_BOOL ("x-use-underline-position-properties", 6693 DEFVAR_BOOL ("x-use-underline-position-properties",
6694 &x_use_underline_position_properties, 6694 &x_use_underline_position_properties,
6695 doc: /* *Non-nil means make use of UNDERLINE_POSITION font properties. 6695 doc: /* *Non-nil means make use of UNDERLINE_POSITION font properties.
6696nil means ignore them. If you encounter fonts with bogus 6696A value of nil means ignore them. If you encounter fonts with bogus
6697UNDERLINE_POSITION font properties, for example 7x13 on XFree prior 6697UNDERLINE_POSITION font properties, for example 7x13 on XFree prior
6698to 4.1, set this to nil. 6698to 4.1, set this to nil.
6699 6699
@@ -6703,9 +6703,9 @@ NOTE: Not supported on MS-Windows yet. */);
6703 DEFVAR_BOOL ("x-underline-at-descent-line", 6703 DEFVAR_BOOL ("x-underline-at-descent-line",
6704 &x_underline_at_descent_line, 6704 &x_underline_at_descent_line,
6705 doc: /* *Non-nil means to draw the underline at the same place as the descent line. 6705 doc: /* *Non-nil means to draw the underline at the same place as the descent line.
6706nil means to draw the underline according to the value of the variable 6706A value of nil means to draw the underline according to the value of the
6707`x-use-underline-position-properties', which is usually at the baseline 6707variable `x-use-underline-position-properties', which is usually at the
6708level. The default value is nil. */); 6708baseline level. The default value is nil. */);
6709 x_underline_at_descent_line = 0; 6709 x_underline_at_descent_line = 0;
6710 6710
6711 DEFVAR_LISP ("x-toolkit-scroll-bars", &Vx_toolkit_scroll_bars, 6711 DEFVAR_LISP ("x-toolkit-scroll-bars", &Vx_toolkit_scroll_bars,
diff --git a/src/xdisp.c b/src/xdisp.c
index 957340674f6..63998ddf8f7 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -13600,8 +13600,11 @@ redisplay_window (window, just_this_one_p)
13600 13600
13601#endif 13601#endif
13602 13602
13603 if (redisplay_tool_bar_p) 13603 if (redisplay_tool_bar_p && redisplay_tool_bar (f))
13604 redisplay_tool_bar (f); 13604 {
13605 extern int ignore_mouse_drag_p;
13606 ignore_mouse_drag_p = 1;
13607 }
13605#endif 13608#endif
13606 } 13609 }
13607 13610
@@ -17407,9 +17410,9 @@ for details) to use.
17407 17410
17408Optional second arg FACE specifies the face property to put 17411Optional second arg FACE specifies the face property to put
17409on all characters for which no face is specified. 17412on all characters for which no face is specified.
17410t means whatever face the window's mode line currently uses 17413The value t means whatever face the window's mode line currently uses
17411\(either `mode-line' or `mode-line-inactive', depending). 17414\(either `mode-line' or `mode-line-inactive', depending).
17412nil means the default is no face property. 17415A value of nil means the default is no face property.
17413If FACE is an integer, the value string has no text properties. 17416If FACE is an integer, the value string has no text properties.
17414 17417
17415Optional third and fourth args WINDOW and BUFFER specify the window 17418Optional third and fourth args WINDOW and BUFFER specify the window
@@ -22155,7 +22158,7 @@ show_mouse_face (dpyinfo, draw)
22155 } 22158 }
22156 22159
22157 /* Change the mouse cursor. */ 22160 /* Change the mouse cursor. */
22158 if (draw == DRAW_NORMAL_TEXT) 22161 if (draw == DRAW_NORMAL_TEXT && !EQ (dpyinfo->mouse_face_window, f->tool_bar_window))
22159 rif->define_frame_cursor (f, FRAME_X_OUTPUT (f)->text_cursor); 22162 rif->define_frame_cursor (f, FRAME_X_OUTPUT (f)->text_cursor);
22160 else if (draw == DRAW_MOUSE_FACE) 22163 else if (draw == DRAW_MOUSE_FACE)
22161 rif->define_frame_cursor (f, FRAME_X_OUTPUT (f)->hand_cursor); 22164 rif->define_frame_cursor (f, FRAME_X_OUTPUT (f)->hand_cursor);
@@ -24276,7 +24279,7 @@ Value is a number or a cons (WIDTH-DPI . HEIGHT-DPI). */);
24276 truncate_partial_width_windows = 1; 24279 truncate_partial_width_windows = 1;
24277 24280
24278 DEFVAR_BOOL ("mode-line-inverse-video", &mode_line_inverse_video, 24281 DEFVAR_BOOL ("mode-line-inverse-video", &mode_line_inverse_video,
24279 doc: /* nil means display the mode-line/header-line/menu-bar in the default face. 24282 doc: /* When nil, display the mode-line/header-line/menu-bar in the default face.
24280Any other value means to use the appropriate face, `mode-line', 24283Any other value means to use the appropriate face, `mode-line',
24281`header-line', or `menu' respectively. */); 24284`header-line', or `menu' respectively. */);
24282 mode_line_inverse_video = 1; 24285 mode_line_inverse_video = 1;
diff --git a/src/xterm.c b/src/xterm.c
index 277f0431a3b..977325f0b75 100644
--- a/src/xterm.c
+++ b/src/xterm.c
@@ -8608,15 +8608,15 @@ do_ewmh_fullscreen (f)
8608 Atom *atoms = XListProperties (FRAME_X_DISPLAY (f), 8608 Atom *atoms = XListProperties (FRAME_X_DISPLAY (f),
8609 FRAME_X_DISPLAY_INFO (f)->root_window, 8609 FRAME_X_DISPLAY_INFO (f)->root_window,
8610 &num); 8610 &num);
8611 if (atoms && num > 0) 8611 if (atoms && num > 0)
8612 { 8612 {
8613 char **names = (char **) xmalloc (num * sizeof(*names)); 8613 char **names = (char **) xmalloc (num * sizeof(*names));
8614 if (XGetAtomNames (FRAME_X_DISPLAY (f), atoms, num, names)) 8614 if (XGetAtomNames (FRAME_X_DISPLAY (f), atoms, num, names))
8615 { 8615 {
8616 int i; 8616 int i;
8617 for (i = 0; i < num; ++i) 8617 for (i = 0; i < num; ++i)
8618 { 8618 {
8619 if (!have_net_atom) 8619 if (!have_net_atom)
8620 have_net_atom = strncmp (names[i], "_NET_", 5) == 0; 8620 have_net_atom = strncmp (names[i], "_NET_", 5) == 0;
8621 XFree (names[i]); 8621 XFree (names[i]);
8622 } 8622 }
@@ -8629,7 +8629,7 @@ do_ewmh_fullscreen (f)
8629 FRAME_X_DISPLAY_INFO (f)->have_net_atoms = have_net_atom; 8629 FRAME_X_DISPLAY_INFO (f)->have_net_atoms = have_net_atom;
8630 } 8630 }
8631 8631
8632 if (have_net_atom) 8632 if (have_net_atom)
8633 { 8633 {
8634 Lisp_Object frame; 8634 Lisp_Object frame;
8635 const char *atom = "_NET_WM_STATE"; 8635 const char *atom = "_NET_WM_STATE";
@@ -8642,7 +8642,7 @@ do_ewmh_fullscreen (f)
8642 8642
8643 /* If there are _NET_ atoms we assume we have extended window manager 8643 /* If there are _NET_ atoms we assume we have extended window manager
8644 hints. */ 8644 hints. */
8645 switch (f->want_fullscreen) 8645 switch (f->want_fullscreen)
8646 { 8646 {
8647 case FULLSCREEN_BOTH: 8647 case FULLSCREEN_BOTH:
8648 what = fs; 8648 what = fs;
@@ -8698,7 +8698,7 @@ static void
8698XTfullscreen_hook (f) 8698XTfullscreen_hook (f)
8699 FRAME_PTR f; 8699 FRAME_PTR f;
8700{ 8700{
8701 if (f->async_visible) 8701 if (f->async_visible)
8702 { 8702 {
8703 BLOCK_INPUT; 8703 BLOCK_INPUT;
8704 do_ewmh_fullscreen (f); 8704 do_ewmh_fullscreen (f);
@@ -8718,7 +8718,7 @@ x_check_fullscreen (f)
8718 { 8718 {
8719 int width, height, ign; 8719 int width, height, ign;
8720 8720
8721 if (do_ewmh_fullscreen (f)) 8721 if (do_ewmh_fullscreen (f))
8722 return; 8722 return;
8723 8723
8724 x_real_positions (f, &f->left_pos, &f->top_pos); 8724 x_real_positions (f, &f->left_pos, &f->top_pos);
@@ -9052,20 +9052,26 @@ XTframe_raise_lower (f, raise_flag)
9052{ 9052{
9053 if (raise_flag) 9053 if (raise_flag)
9054 { 9054 {
9055 Lisp_Object frame; 9055 /* The following code is needed for `raise-frame' to work on
9056 const char *atom = "_NET_ACTIVE_WINDOW"; 9056 some versions of metacity; see Window Manager
9057 Specification/Extended Window Manager Hints at
9058 http://freedesktop.org/wiki/Standards_2fwm_2dspec
9059
9060 However, on other versions (metacity 2.17.2-1.fc7), it
9061 reportedly causes hangs when resizing frames. */
9062
9063 /* Lisp_Object frame;
9064 const char *atom = "_NET_ACTIVE_WINDOW"; */
9057 9065
9058 x_raise_frame (f); 9066 x_raise_frame (f);
9059 /* See Window Manager Specification/Extended Window Manager Hints at
9060 http://freedesktop.org/wiki/Standards_2fwm_2dspec */
9061 9067
9062 XSETFRAME (frame, f); 9068 /* XSETFRAME (frame, f);
9063 Fx_send_client_event (frame, make_number (0), frame, 9069 Fx_send_client_event (frame, make_number (0), frame,
9064 make_unibyte_string (atom, strlen (atom)), 9070 make_unibyte_string (atom, strlen (atom)),
9065 make_number (32), 9071 make_number (32),
9066 Fcons (make_number (1), 9072 Fcons (make_number (1),
9067 Fcons (make_number (time (NULL) * 1000), 9073 Fcons (make_number (time (NULL) * 1000),
9068 Qnil))); 9074 Qnil))); */
9069 } 9075 }
9070 else 9076 else
9071 x_lower_frame (f); 9077 x_lower_frame (f);
@@ -10512,8 +10518,8 @@ x_query_font (f, fontname)
10512 10518
10513 for (i = 0; i < dpyinfo->n_fonts; i++) 10519 for (i = 0; i < dpyinfo->n_fonts; i++)
10514 if (dpyinfo->font_table[i].name 10520 if (dpyinfo->font_table[i].name
10515 && (!strcasecmp (dpyinfo->font_table[i].name, fontname) 10521 && (!xstricmp (dpyinfo->font_table[i].name, fontname)
10516 || !strcasecmp (dpyinfo->font_table[i].full_name, fontname))) 10522 || !xstricmp (dpyinfo->font_table[i].full_name, fontname)))
10517 return (dpyinfo->font_table + i); 10523 return (dpyinfo->font_table + i);
10518 return NULL; 10524 return NULL;
10519} 10525}
@@ -11601,7 +11607,7 @@ syms_of_xterm ()
11601 DEFVAR_BOOL ("x-use-underline-position-properties", 11607 DEFVAR_BOOL ("x-use-underline-position-properties",
11602 &x_use_underline_position_properties, 11608 &x_use_underline_position_properties,
11603 doc: /* *Non-nil means make use of UNDERLINE_POSITION font properties. 11609 doc: /* *Non-nil means make use of UNDERLINE_POSITION font properties.
11604nil means ignore them. If you encounter fonts with bogus 11610A value of nil means ignore them. If you encounter fonts with bogus
11605UNDERLINE_POSITION font properties, for example 7x13 on XFree prior 11611UNDERLINE_POSITION font properties, for example 7x13 on XFree prior
11606to 4.1, set this to nil. */); 11612to 4.1, set this to nil. */);
11607 x_use_underline_position_properties = 1; 11613 x_use_underline_position_properties = 1;
@@ -11609,9 +11615,9 @@ to 4.1, set this to nil. */);
11609 DEFVAR_BOOL ("x-underline-at-descent-line", 11615 DEFVAR_BOOL ("x-underline-at-descent-line",
11610 &x_underline_at_descent_line, 11616 &x_underline_at_descent_line,
11611 doc: /* *Non-nil means to draw the underline at the same place as the descent line. 11617 doc: /* *Non-nil means to draw the underline at the same place as the descent line.
11612nil means to draw the underline according to the value of the variable 11618A value of nil means to draw the underline according to the value of the
11613`x-use-underline-position-properties', which is usually at the baseline 11619variable `x-use-underline-position-properties', which is usually at the
11614level. The default value is nil. */); 11620baseline level. The default value is nil. */);
11615 x_underline_at_descent_line = 0; 11621 x_underline_at_descent_line = 0;
11616 11622
11617 DEFVAR_BOOL ("x-mouse-click-focus-ignore-position", 11623 DEFVAR_BOOL ("x-mouse-click-focus-ignore-position",
diff --git a/vms/make-mms-derivative.el b/vms/make-mms-derivative.el
index f2c64df289d..d74a6582ca4 100644
--- a/vms/make-mms-derivative.el
+++ b/vms/make-mms-derivative.el
@@ -1,6 +1,6 @@
1;;; make-mms-derivative.el --- framework to do horrible things for VMS support 1;;; make-mms-derivative.el --- framework to do horrible things for VMS support
2 2
3;; Copyright (C) 2005, 2006 Free Software Foundation, Inc. 3;; Copyright (C) 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
4 4
5;; Author: Thien-Thi Nguyen <ttn@gnu.org> 5;; Author: Thien-Thi Nguyen <ttn@gnu.org>
6;; Keywords: maint build vms mms makefile levitte autoconf war-is-a-lose 6;; Keywords: maint build vms mms makefile levitte autoconf war-is-a-lose