[C] xemacsweb: Update download site links after checklink and linklint feedback
18 years, 6 months
Adrian Aichner
Adrian Aichner
COMMIT
This is the website update for my corresponding package-get.el update
commited today.
Adrian
xemacsweb ChangeLog patch:
Diff command: cvs -q diff -U 0
Files affected: Releases/ChangeLog Download/ChangeLog
Index: Releases/ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacsweb/Releases/ChangeLog,v
retrieving revision 1.120
diff -u -U0 -r1.120 ChangeLog
--- Releases/ChangeLog 23 Oct 2005 17:15:43 -0000 1.120
+++ Releases/ChangeLog 24 Oct 2005 22:57:33 -0000
＠＠ -0,0 +1,5 ＠＠
+2005-10-25 Adrian Aichner <adrian(a)xemacs.org>
+
+ * index.content: Update download site links after checklink and
+ linklint feedback.
+
Index: Download/ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacsweb/Download/ChangeLog,v
retrieving revision 1.168
diff -u -U0 -r1.168 ChangeLog
--- Download/ChangeLog 23 Oct 2005 17:15:18 -0000 1.168
+++ Download/ChangeLog 24 Oct 2005 22:57:33 -0000
＠＠ -0,0 +1,5 ＠＠
+2005-10-25 Adrian Aichner <adrian(a)xemacs.org>
+
+ * index.content: Update download site links after checklink and
+ linklint feedback.
+
xemacsweb source patch:
Diff command: cvs -f -z3 -q diff -u -w -N
Files affected: Releases/index.content Download/index.content
Index: Download/index.content
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacsweb/Download/index.content,v
retrieving revision 1.69
diff -u -w -r1.69 index.content
--- Download/index.content 23 Oct 2005 17:15:18 -0000 1.69
+++ Download/index.content 24 Oct 2005 22:50:34 -0000
＠＠ -204,11 +204,8 ＠＠
<h5>Secondary Mirrors</h5>
<ul>
<li><a href="ftp://ftp.stealth.net/pub/mirrors/ftp.xemacs.org/pub/xemacs/">ftp:/...>
- <li><a href="ftp://ibiblio.org/pub/packages/editors/xemacs/">ftp://ibiblio.org/p...>
- <li><a href="http://ibiblio.org/pub/packages/editors/xemacs/">http://ibiblio.org...>
- <li><a href="http://mirrors.mix5.com/xemacs/">http://mirrors.mix5.com/xemacs/</a...>
- <li><a href="http://www.binarycode.org/xemacs/">http://www.binarycode.org/xemacs...>
- <li><a href="http://xemacs.software-archive.net/">http://xemacs.software-archive...>
+ <li><a href="ftp://mirrors.ibiblio.org/pub/mirrors/xemacs/">ftp://ibiblio.org/pu...>
+ <li><a href="http://mirrors.ibiblio.org/pub/mirrors/xemacs/">http://ibiblio.org/...>
</ul></li>
</ul></li>
</ul>
＠＠ -275,9 +272,9 ＠＠
<li>
<h4>Taiwan</h4>
<ul>
- <li><a href="ftp://ftp.tw.xemacs.org/pub/xemacs/"
+ <li><a href="ftp://ftp.tw.xemacs.org/Unix/Editors/XEmacs/"
><b>ftp.tw.xemacs.org (FTP)</b></a></li>
- <li><a href="http://ftp.tw.xemacs.org/pub/xemacs/"
+ <li><a href="http://ftp.tw.xemacs.org/Unix/Editors/XEmacs/"
><b>ftp.tw.xemacs.org (HTTP)</b></a></li>
</ul>
<p></p>
Index: Releases/index.content
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacsweb/Releases/index.content,v
retrieving revision 1.107
diff -u -w -r1.107 index.content
--- Releases/index.content 23 Oct 2005 17:15:43 -0000 1.107
+++ Releases/index.content 24 Oct 2005 22:50:34 -0000
＠＠ -89,48 +89,49 ＠＠
<a href="http://ftp.xemacs.org/xemacs/stable/">ftp.xemacs.org</a>
or a mirror in your country:
+ <!-- Generated by 21.5 (beta22) "cucumber" (+CVS-20051023) XEmacs Lucid
+ at Tue Oct 25 00:28:29 2005 +0200 (W. Europe Daylight Time) -->
<ul>
<li><a href="http://ftp.xemacs.org/pub/xemacs/stable">US (Main XEmacs Site)</a></li>
<li><a href="ftp://xemacs.xmundo.net/pub/mirrors/xemacs/stable">Argentina (xmundo.net)</a></li>
<li><a href="http://mirror.aarnet.edu.au/pub/xemacs/stable">Australia (aarnet.edu.au)</a></li>
<li><a href="http://ftp.au.xemacs.org/pub/xemacs/stable">Australia (au.xemacs.org)</a></li>
<li><a href="http://ftp.at.xemacs.org/editors/xemacs/stable">Austria (at.xemacs.org)</a></li>
- <li><a href="http://ftp.be.xemacs.org/xemacs/stable">Belgium (be.xemacs.org)</a></li>
+ <li><a href="http://ftp.be.xemacs.org/ftp/xemacs/stable">Belgium (be.xemacs.org)</a></li>
<li><a href="ftp://ftp.br.xemacs.org/pub/xemacs/stable">Brazil (br.xemacs.org)</a></li>
<li><a href="http://ftp.ca.xemacs.org/pub/Mirror/xemacs/stable">Canada (ca.xemacs.org)</a></li>
- <li><a href="http://ftp.crc.ca/pub/packages/editors/xemacs/stable">Canada (crc.ca)</a></li>
- <li><a href="http://ftp.nrc.ca/pub/packages/editors/xemacs/stable">Canada (nrc.ca)</a></li>
+ <li><a href="ftp://ftp.crc.ca/pub/packages/editors/xemacs/stable">Canada (crc.ca)</a></li>
+ <li><a href="ftp://ftp.nrc.ca/pub/packages/editors/xemacs/stable">Canada (nrc.ca)</a></li>
<li><a href="ftp://ftp.cz.xemacs.org/MIRRORS/ftp.xemacs.org/pub/xemacs/stable">C... Republic (cz.xemacs.org)</a></li>
<li><a href="http://ftp.dk.xemacs.org/pub/emacs/xemacs/stable">Denmark (dk.xemacs.org)</a></li>
<li><a href="http://ftp.fi.xemacs.org/pub/mirrors/ftp.xemacs.org/pub/tux/xemacs/... (fi.xemacs.org)</a></li>
<li><a href="http://ftp.fr.xemacs.org/pub/xemacs/stable">France (fr.xemacs.org)</a></li>
- <li><a href="http://mirror.cict.fr/xemacs/stable">France (mirror.cict.fr)</a></li>
- <li><a href="http://ftp.pasteur.fr/pub/computing/xemacs/stable">France (pasteur.fr)</a></li>
+ <li><a href="ftp://mirror.cict.fr/xemacs/stable">France (mirror.cict.fr)</a></li>
+ <li><a href="ftp://ftp.pasteur.fr/pub/computing/xemacs/stable">France (pasteur.fr)</a></li>
<li><a href="http://ftp.de.xemacs.org/pub/ftp.xemacs.org/tux/xemacs/stable">Germany (de.xemacs.org)</a></li>
<li><a href="http://ftp.is.xemacs.org/pub/xemacs/stable">Iceland (is.xemacs.org)</a></li>
<li><a href="http://ftp.ie.xemacs.org/mirrors/ftp.xemacs.org/pub/xemacs/stable">... (ie.xemacs.org)</a></li>
<li><a href="http://ftp.heanet.ie/mirrors/ftp.xemacs.org/stable">Ireland (heanet.ie)</a></li>
- <li><a href="http://ftp.it.xemacs.org/unix/packages/xemacs/stable">Italy (it.xemacs.org)</a></li>
+ <li><a href="http://ftp.it.xemacs.org/stable">Italy (it.xemacs.org)</a></li>
<li><a href="http://ring.aist.go.jp/pub/text/xemacs/stable">Japan (aist.go.jp)</a></li>
<li><a href="http://ring.asahi-net.or.jp/pub/text/xemacs/stable">Japan (asahi-net.or.jp)</a></li>
<li><a href="http://ftp.dti.ad.jp/pub/unix/editor/xemacs/stable">Japan (dti.ad.jp)</a></li>
<li><a href="http://ftp.jaist.ac.jp/pub/GNU/xemacs/stable">Japan (jaist.ac.jp)</a></li>
<li><a href="ftp://ftp.jp.xemacs.org/pub/GNU/xemacs/stable">Japan (jp.xemacs.org)</a></li>
- <li><a href="http://mirror.nucba.ac.jp/mirror/xemacs/stable">Japan (nucba.ac.jp)</a></li>
<li><a href="http://sunsite.sut.ac.jp/pub/archives/packages/xemacs/stable">Japan (sut.ac.jp)</a></li>
<li><a href="http://ftp.kr.xemacs.org/pub/tools/emacs/xemacs/stable">Korea (kr.xemacs.org)</a></li>
<li><a href="ftp://ftp.nz.xemacs.org/mirror/ftp.xemacs.org/stable">New Zealand (nz.xemacs.org)</a></li>
<li><a href="http://ftp.no.xemacs.org/pub/xemacs/stable">Norway (no.xemacs.org)</a></li>
<li><a href="http://ftp.pl.xemacs.org/pub/unix/editors/xemacs/stable">Poland (pl.xemacs.org)</a></li>
<li><a href="http://ftp.ru.xemacs.org/pub/xemacs/stable">Russia (ru.xemacs.org)</a></li>
- <li><a href="http://ftp.za.xemacs.org/mirrorsites/ftp.xemacs.org/stable">South Africa (za.xemacs.org)</a></li>
<li><a href="http://ftp.se.xemacs.org/pub/gnu/xemacs/stable">Sweden (se.xemacs.org)</a></li>
- <li><a href="http://ftp.ch.xemacs.org/mirror/xemacs/stable">Switzerland (ch.xemacs.org)</a></li>
+ <li><a href="http://ftp.ch.xemacs.org/ftp/mirror/xemacs/stable">Switzerland (ch.xemacs.org)</a></li>
+ <li><a href="http://ftp.tw.xemacs.org/Unix/Editors/XEmacs/stable">Taiwan (ftp.tw.xemacs.org)</a></li>
<li><a href="http://ftp.uk.xemacs.org/sites/ftp.xemacs.org/pub/xemacs/stable">UK (uk.xemacs.org)</a></li>
- <li><a href="http://ibiblio.org/pub/packages/editors/xemacs/stable">US (ibiblio.org)</a></li>
- <li><a href="http://ftp.stealth.net/pub/mirrors/ftp.xemacs.org/pub/xemacs/stable... (stealth.net)</a></li>
+ <li><a href="http://mirrors.ibiblio.org/pub/mirrors/xemacs/stable">US (ibiblio.org)</a></li>
+ <li><a href="ftp://ftp.stealth.net/pub/mirrors/ftp.xemacs.org/pub/xemacs/stable">US (stealth.net)</a></li>
<li><a href="http://metalab.unc.edu/pub/packages/editors/xemacs/stable">US (unc.edu)</a></li>
- <li><a href="http://ftp.us.xemacs.org/pub/xemacs/stable">US (us.xemacs.org)</a></li>
+ <li><a href="http://ftp.us.xemacs.org/ftp/pub/xemacs/stable">US (us.xemacs.org)</a></li>
<li><a href="http://ftp.sunsite.utk.edu/pub/xemacs/stable">US (utk.edu)</a></li>
</ul>
＠＠ -303,48 +304,49 ＠＠
<a href="http://ftp.xemacs.org/xemacs/beta/">ftp.xemacs.org</a>
or a mirror in your country:
+ <!-- Generated by 21.5 (beta22) "cucumber" (+CVS-20051023) XEmacs Lucid
+ at Tue Oct 25 00:28:29 2005 +0200 (W. Europe Daylight Time) -->
<ul>
<li><a href="http://ftp.xemacs.org/pub/xemacs/beta">US (Main XEmacs Site)</a></li>
<li><a href="ftp://xemacs.xmundo.net/pub/mirrors/xemacs/beta">Argentina (xmundo.net)</a></li>
<li><a href="http://mirror.aarnet.edu.au/pub/xemacs/beta">Australia (aarnet.edu.au)</a></li>
<li><a href="http://ftp.au.xemacs.org/pub/xemacs/beta">Australia (au.xemacs.org)</a></li>
<li><a href="http://ftp.at.xemacs.org/editors/xemacs/beta">Austria (at.xemacs.org)</a></li>
- <li><a href="http://ftp.be.xemacs.org/xemacs/beta">Belgium (be.xemacs.org)</a></li>
+ <li><a href="http://ftp.be.xemacs.org/ftp/xemacs/beta">Belgium (be.xemacs.org)</a></li>
<li><a href="ftp://ftp.br.xemacs.org/pub/xemacs/beta">Brazil (br.xemacs.org)</a></li>
<li><a href="http://ftp.ca.xemacs.org/pub/Mirror/xemacs/beta">Canada (ca.xemacs.org)</a></li>
- <li><a href="http://ftp.crc.ca/pub/packages/editors/xemacs/beta">Canada (crc.ca)</a></li>
- <li><a href="http://ftp.nrc.ca/pub/packages/editors/xemacs/beta">Canada (nrc.ca)</a></li>
+ <li><a href="ftp://ftp.crc.ca/pub/packages/editors/xemacs/beta">Canada (crc.ca)</a></li>
+ <li><a href="ftp://ftp.nrc.ca/pub/packages/editors/xemacs/beta">Canada (nrc.ca)</a></li>
<li><a href="ftp://ftp.cz.xemacs.org/MIRRORS/ftp.xemacs.org/pub/xemacs/beta">Czech Republic (cz.xemacs.org)</a></li>
<li><a href="http://ftp.dk.xemacs.org/pub/emacs/xemacs/beta">Denmark (dk.xemacs.org)</a></li>
<li><a href="http://ftp.fi.xemacs.org/pub/mirrors/ftp.xemacs.org/pub/tux/xemacs/... (fi.xemacs.org)</a></li>
<li><a href="http://ftp.fr.xemacs.org/pub/xemacs/beta">France (fr.xemacs.org)</a></li>
- <li><a href="http://mirror.cict.fr/xemacs/beta">France (mirror.cict.fr)</a></li>
- <li><a href="http://ftp.pasteur.fr/pub/computing/xemacs/beta">France (pasteur.fr)</a></li>
+ <li><a href="ftp://mirror.cict.fr/xemacs/beta">France (mirror.cict.fr)</a></li>
+ <li><a href="ftp://ftp.pasteur.fr/pub/computing/xemacs/beta">France (pasteur.fr)</a></li>
<li><a href="http://ftp.de.xemacs.org/pub/ftp.xemacs.org/tux/xemacs/beta">Germany (de.xemacs.org)</a></li>
<li><a href="http://ftp.is.xemacs.org/pub/xemacs/beta">Iceland (is.xemacs.org)</a></li>
<li><a href="http://ftp.ie.xemacs.org/mirrors/ftp.xemacs.org/pub/xemacs/beta">Ir... (ie.xemacs.org)</a></li>
<li><a href="http://ftp.heanet.ie/mirrors/ftp.xemacs.org/beta">Ireland (heanet.ie)</a></li>
- <li><a href="http://ftp.it.xemacs.org/unix/packages/xemacs/beta">Italy (it.xemacs.org)</a></li>
+ <li><a href="http://ftp.it.xemacs.org/beta">Italy (it.xemacs.org)</a></li>
<li><a href="http://ring.aist.go.jp/pub/text/xemacs/beta">Japan (aist.go.jp)</a></li>
<li><a href="http://ring.asahi-net.or.jp/pub/text/xemacs/beta">Japan (asahi-net.or.jp)</a></li>
<li><a href="http://ftp.dti.ad.jp/pub/unix/editor/xemacs/beta">Japan (dti.ad.jp)</a></li>
<li><a href="http://ftp.jaist.ac.jp/pub/GNU/xemacs/beta">Japan (jaist.ac.jp)</a></li>
<li><a href="ftp://ftp.jp.xemacs.org/pub/GNU/xemacs/beta">Japan (jp.xemacs.org)</a></li>
- <li><a href="http://mirror.nucba.ac.jp/mirror/xemacs/beta">Japan (nucba.ac.jp)</a></li>
<li><a href="http://sunsite.sut.ac.jp/pub/archives/packages/xemacs/beta">Japan (sut.ac.jp)</a></li>
<li><a href="http://ftp.kr.xemacs.org/pub/tools/emacs/xemacs/beta">Korea (kr.xemacs.org)</a></li>
<li><a href="ftp://ftp.nz.xemacs.org/mirror/ftp.xemacs.org/beta">New Zealand (nz.xemacs.org)</a></li>
<li><a href="http://ftp.no.xemacs.org/pub/xemacs/beta">Norway (no.xemacs.org)</a></li>
<li><a href="http://ftp.pl.xemacs.org/pub/unix/editors/xemacs/beta">Poland (pl.xemacs.org)</a></li>
<li><a href="http://ftp.ru.xemacs.org/pub/xemacs/beta">Russia (ru.xemacs.org)</a></li>
- <li><a href="http://ftp.za.xemacs.org/mirrorsites/ftp.xemacs.org/beta">South Africa (za.xemacs.org)</a></li>
<li><a href="http://ftp.se.xemacs.org/pub/gnu/xemacs/beta">Sweden (se.xemacs.org)</a></li>
- <li><a href="http://ftp.ch.xemacs.org/mirror/xemacs/beta">Switzerland (ch.xemacs.org)</a></li>
+ <li><a href="http://ftp.ch.xemacs.org/ftp/mirror/xemacs/beta">Switzerland (ch.xemacs.org)</a></li>
+ <li><a href="http://ftp.tw.xemacs.org/Unix/Editors/XEmacs/beta">Taiwan (ftp.tw.xemacs.org)</a></li>
<li><a href="http://ftp.uk.xemacs.org/sites/ftp.xemacs.org/pub/xemacs/beta">UK (uk.xemacs.org)</a></li>
- <li><a href="http://ibiblio.org/pub/packages/editors/xemacs/beta">US (ibiblio.org)</a></li>
- <li><a href="http://ftp.stealth.net/pub/mirrors/ftp.xemacs.org/pub/xemacs/beta">US (stealth.net)</a></li>
+ <li><a href="http://mirrors.ibiblio.org/pub/mirrors/xemacs/beta">US (ibiblio.org)</a></li>
+ <li><a href="ftp://ftp.stealth.net/pub/mirrors/ftp.xemacs.org/pub/xemacs/beta">US (stealth.net)</a></li>
<li><a href="http://metalab.unc.edu/pub/packages/editors/xemacs/beta">US (unc.edu)</a></li>
- <li><a href="http://ftp.us.xemacs.org/pub/xemacs/beta">US (us.xemacs.org)</a></li>
+ <li><a href="http://ftp.us.xemacs.org/ftp/pub/xemacs/beta">US (us.xemacs.org)</a></li>
<li><a href="http://ftp.sunsite.utk.edu/pub/xemacs/beta">US (utk.edu)</a></li>
</ul>
＠＠ -392,48 +394,49 ＠＠
or from a mirror in your country:
</p>
+ <!-- Generated by 21.5 (beta22) "cucumber" (+CVS-20051023) XEmacs Lucid
+ at Tue Oct 25 00:28:29 2005 +0200 (W. Europe Daylight Time) -->
<ul>
<li><a href="http://ftp.xemacs.org/pub/xemacs/packages">US (Main XEmacs Site)</a></li>
<li><a href="ftp://xemacs.xmundo.net/pub/mirrors/xemacs/packages">Argentina (xmundo.net)</a></li>
<li><a href="http://mirror.aarnet.edu.au/pub/xemacs/packages">Australia (aarnet.edu.au)</a></li>
<li><a href="http://ftp.au.xemacs.org/pub/xemacs/packages">Australia (au.xemacs.org)</a></li>
<li><a href="http://ftp.at.xemacs.org/editors/xemacs/packages">Austria (at.xemacs.org)</a></li>
- <li><a href="http://ftp.be.xemacs.org/xemacs/packages">Belgium (be.xemacs.org)</a></li>
+ <li><a href="http://ftp.be.xemacs.org/ftp/xemacs/packages">Belgium (be.xemacs.org)</a></li>
<li><a href="ftp://ftp.br.xemacs.org/pub/xemacs/packages">Brazil (br.xemacs.org)</a></li>
<li><a href="http://ftp.ca.xemacs.org/pub/Mirror/xemacs/packages">Canada (ca.xemacs.org)</a></li>
- <li><a href="http://ftp.crc.ca/pub/packages/editors/xemacs/packages">Canada (crc.ca)</a></li>
- <li><a href="http://ftp.nrc.ca/pub/packages/editors/xemacs/packages">Canada (nrc.ca)</a></li>
+ <li><a href="ftp://ftp.crc.ca/pub/packages/editors/xemacs/packages">Canada (crc.ca)</a></li>
+ <li><a href="ftp://ftp.nrc.ca/pub/packages/editors/xemacs/packages">Canada (nrc.ca)</a></li>
<li><a href="ftp://ftp.cz.xemacs.org/MIRRORS/ftp.xemacs.org/pub/xemacs/packages"... Republic (cz.xemacs.org)</a></li>
<li><a href="http://ftp.dk.xemacs.org/pub/emacs/xemacs/packages">Denmark (dk.xemacs.org)</a></li>
<li><a href="http://ftp.fi.xemacs.org/pub/mirrors/ftp.xemacs.org/pub/tux/xemacs/... (fi.xemacs.org)</a></li>
<li><a href="http://ftp.fr.xemacs.org/pub/xemacs/packages">France (fr.xemacs.org)</a></li>
- <li><a href="http://mirror.cict.fr/xemacs/packages">France (mirror.cict.fr)</a></li>
- <li><a href="http://ftp.pasteur.fr/pub/computing/xemacs/packages">France (pasteur.fr)</a></li>
+ <li><a href="ftp://mirror.cict.fr/xemacs/packages">France (mirror.cict.fr)</a></li>
+ <li><a href="ftp://ftp.pasteur.fr/pub/computing/xemacs/packages">France (pasteur.fr)</a></li>
<li><a href="http://ftp.de.xemacs.org/pub/ftp.xemacs.org/tux/xemacs/packages">Ge... (de.xemacs.org)</a></li>
<li><a href="http://ftp.is.xemacs.org/pub/xemacs/packages">Iceland (is.xemacs.org)</a></li>
<li><a href="http://ftp.ie.xemacs.org/mirrors/ftp.xemacs.org/pub/xemacs/packages... (ie.xemacs.org)</a></li>
<li><a href="http://ftp.heanet.ie/mirrors/ftp.xemacs.org/packages">Ireland (heanet.ie)</a></li>
- <li><a href="http://ftp.it.xemacs.org/unix/packages/XEMACS/packages">Italy (it.xemacs.org)</a></li>
+ <li><a href="http://ftp.it.xemacs.org/packages">Italy (it.xemacs.org)</a></li>
<li><a href="http://ring.aist.go.jp/pub/text/xemacs/packages">Japan (aist.go.jp)</a></li>
<li><a href="http://ring.asahi-net.or.jp/pub/text/xemacs/packages">Japan (asahi-net.or.jp)</a></li>
<li><a href="http://ftp.dti.ad.jp/pub/unix/editor/xemacs/packages">Japan (dti.ad.jp)</a></li>
<li><a href="http://ftp.jaist.ac.jp/pub/GNU/xemacs/packages">Japan (jaist.ac.jp)</a></li>
<li><a href="ftp://ftp.jp.xemacs.org/pub/GNU/xemacs/packages">Japan (jp.xemacs.org)</a></li>
- <li><a href="http://mirror.nucba.ac.jp/mirror/xemacs/packages">Japan (nucba.ac.jp)</a></li>
<li><a href="http://sunsite.sut.ac.jp/pub/archives/packages/xemacs/packages">Japan (sut.ac.jp)</a></li>
<li><a href="http://ftp.kr.xemacs.org/pub/tools/emacs/xemacs/packages">Korea (kr.xemacs.org)</a></li>
<li><a href="ftp://ftp.nz.xemacs.org/mirror/ftp.xemacs.org/packages">New Zealand (nz.xemacs.org)</a></li>
<li><a href="http://ftp.no.xemacs.org/pub/xemacs/packages">Norway (no.xemacs.org)</a></li>
<li><a href="http://ftp.pl.xemacs.org/pub/unix/editors/xemacs/packages">Poland (pl.xemacs.org)</a></li>
<li><a href="http://ftp.ru.xemacs.org/pub/xemacs/packages">Russia (ru.xemacs.org)</a></li>
- <li><a href="http://ftp.za.xemacs.org/mirrorsites/ftp.xemacs.org/packages">South Africa (za.xemacs.org)</a></li>
<li><a href="http://ftp.se.xemacs.org/pub/gnu/xemacs/packages">Sweden (se.xemacs.org)</a></li>
- <li><a href="http://ftp.ch.xemacs.org/mirror/xemacs/packages">Switzerland (ch.xemacs.org)</a></li>
+ <li><a href="http://ftp.ch.xemacs.org/ftp/mirror/xemacs/packages">Switzerland (ch.xemacs.org)</a></li>
+ <li><a href="http://ftp.tw.xemacs.org/Unix/Editors/XEmacs/packages">Taiwan (ftp.tw.xemacs.org)</a></li>
<li><a href="http://ftp.uk.xemacs.org/sites/ftp.xemacs.org/pub/xemacs/packages">UK (uk.xemacs.org)</a></li>
- <li><a href="http://ibiblio.org/pub/packages/editors/xemacs/packages">US (ibiblio.org)</a></li>
- <li><a href="http://ftp.stealth.net/pub/mirrors/ftp.xemacs.org/pub/xemacs/packag... (stealth.net)</a></li>
+ <li><a href="http://mirrors.ibiblio.org/pub/mirrors/xemacs/packages">US (ibiblio.org)</a></li>
+ <li><a href="ftp://ftp.stealth.net/pub/mirrors/ftp.xemacs.org/pub/xemacs/package... (stealth.net)</a></li>
<li><a href="http://metalab.unc.edu/pub/packages/editors/xemacs/packages">US (unc.edu)</a></li>
- <li><a href="http://ftp.us.xemacs.org/pub/xemacs/packages">US (us.xemacs.org)</a></li>
+ <li><a href="http://ftp.us.xemacs.org/ftp/pub/xemacs/packages">US (us.xemacs.org)</a></li>
<li><a href="http://ftp.sunsite.utk.edu/pub/xemacs/packages">US (utk.edu)</a></li>
</ul>
＠＠ -456,45 +459,49 ＠＠
or from a mirror in your country:
</p>
+ <!-- Generated by 21.5 (beta22) "cucumber" (+CVS-20051023) XEmacs Lucid
+ at Tue Oct 25 00:28:29 2005 +0200 (W. Europe Daylight Time) -->
<ul>
<li><a href="http://ftp.xemacs.org/pub/xemacs/beta/experimental/packages">Pre-Re... (Main XEmacs Site)</a></li>
<li><a href="ftp://xemacs.xmundo.net/pub/mirrors/xemacs/beta/experimental/packag... Pre-Releases (xmundo.net)</a></li>
<li><a href="http://mirror.aarnet.edu.au/pub/xemacs/beta/experimental/packages">Australia Pre-Releases (aarnet.edu.au)</a></li>
<li><a href="http://ftp.au.xemacs.org/pub/xemacs/beta/experimental/packages">Aus... Pre-Releases (au.xemacs.org)</a></li>
- <li><a href="http://ftp.at.xemacs.org/editors/xemacs/beta/experimentsl/packages"... Pre-Releases (at.xemacs.org)</a></li>
+ <li><a href="http://ftp.at.xemacs.org/editors/xemacs/beta/experimental/packages"... Pre-Releases (at.xemacs.org)</a></li>
+ <li><a href="http://ftp.be.xemacs.org/ftp/xemacs/beta/experimental/packages">Bel... (be.xemacs.org)</a></li>
<li><a href="ftp://ftp.br.xemacs.org/pub/xemacs/xemacs-21.5/experimental/package... Pre-Releases (br.xemacs.org)</a></li>
<li><a href="http://ftp.ca.xemacs.org/pub/Mirror/xemacs/beta/experimental/packag... Pre-Releases (ca.xemacs.org)</a></li>
- <li><a href="http://ftp.crc.ca/pub/packages/editors/xemacs/beta/experimental/packages">Canada Pre-Releases (crc.ca)</a></li>
- <li><a href="http://ftp.nrc.ca/pub/packages/editors/xemacs/beta/experimental/packages">Canada Pre-Releases (nrc.ca)</a></li>
+ <li><a href="ftp://ftp.crc.ca/pub/packages/editors/xemacs/beta/experimental/packages">Canada Pre-Releases (crc.ca)</a></li>
+ <li><a href="ftp://ftp.nrc.ca/pub/packages/editors/xemacs/beta/experimental/packages">Canada Pre-Releases (nrc.ca)</a></li>
<li><a href="ftp://ftp.cz.xemacs.org/MIRRORS/ftp.xemacs.org/pub/xemacs/xemacs-21... Republic Pre-Releases (cz.xemacs.org)</a></li>
<li><a href="http://ftp.dk.xemacs.org/pub/emacs/xemacs/beta/experimental/package... Pre-Releases (dk.xemacs.org)</a></li>
<li><a href="http://ftp.fi.xemacs.org/pub/mirrors/ftp.xemacs.org/pub/tux/xemacs/... Pre-Releases (fi.xemacs.org)</a></li>
<li><a href="http://ftp.fr.xemacs.org/pub/xemacs/beta/experimental/packages">France Pre-Releases (fr.xemacs.org)</a></li>
- <li><a href="http://mirror.cict.fr/xemacs/beta/experimental/packages">France Pre-Releases (mirror.cict.fr)</a></li>
- <li><a href="http://ftp.pasteur.fr/pub/computing/xemacs/beta/experimental/packages">France Pre-Releases (pasteur.fr)</a></li>
+ <li><a href="ftp://mirror.cict.fr/xemacs/beta/experimental/packages">France Pre-Releases (mirror.cict.fr)</a></li>
+ <li><a href="ftp://ftp.pasteur.fr/pub/computing/xemacs/beta/experimental/packages">France Pre-Releases (pasteur.fr)</a></li>
<li><a href="http://ftp.de.xemacs.org/pub/ftp.xemacs.org/tux/xemacs/beta/experim... Pre-Releases (de.xemacs.org)</a></li>
<li><a href="http://ftp.is.xemacs.org/pub/xemacs/beta/experimental/packages">Ice... Pre-Releases (is.xemacs.org)</a></li>
<li><a href="http://ftp.ie.xemacs.org/mirrors/ftp.xemacs.org/pub/xemacs/beta/exp... Pre-Releases (ie.xemacs.org)</a></li>
<li><a href="http://ftp.heanet.ie/mirrors/ftp.xemacs.org/beta/experimental/packa... Pre-Releases (heanet.ie)</a></li>
- <li><a href="http://ftp.it.xemacs.org/unix/packages/XEMACS/beta/experimental/pac... Pre-Releases (it.xemacs.org)</a></li>
+ <li><a href="http://ftp.it.xemacs.org/beta/experimental/packages">Italy Pre-Releases (it.xemacs.org)</a></li>
<li><a href="http://ring.aist.go.jp/pub/text/xemacs/beta/experimental/packages">Japan Pre-Releases (aist.go.jp)</a></li>
<li><a href="http://ring.asahi-net.or.jp/pub/text/xemacs/beta/experimental/packages">Japan Pre-Releases (asahi-net.or.jp)</a></li>
<li><a href="http://ftp.dti.ad.jp/pub/unix/editor/xemacs/beta/experimental/packages">Japan Pre-Releases (dti.ad.jp)</a></li>
<li><a href="http://ftp.jaist.ac.jp/pub/GNU/xemacs/beta/experimental/packages">Japan Pre-Releases (jaist.ac.jp)</a></li>
<li><a href="ftp://ftp.jp.xemacs.org/pub/GNU/xemacs/beta/experimental/packages">... Pre-Releases (jp.xemacs.org)</a></li>
<li><a href="http://sunsite.sut.ac.jp/pub/archives/packages/xemacs/xemacs-21.5/experimental/packages">Japan Pre-Releases (sut.ac.jp)</a></li>
+ <li><a href="http://ftp.kr.xemacs.org/pub/tools/emacs/xemacs/beta/experimental/p... (kr.xemacs.org)</a></li>
<li><a href="ftp://ftp.nz.xemacs.org/mirror/ftp.xemacs.org/packages">New Zealand Pre-Releases (nz.xemacs.org)</a></li>
<li><a href="http://ftp.no.xemacs.org/pub/xemacs/beta/experimental/packages">Norway Pre-Releases (no.xemacs.org)</a></li>
<li><a href="http://ftp.pl.xemacs.org/pub/unix/editors/xemacs/beta/experimental/... Pre-Releases (pl.xemacs.org)</a></li>
<li><a href="http://ftp.ru.xemacs.org/pub/xemacs/beta/experimental/packages">Russia Pre-Releases (ru.xemacs.org)</a></li>
- <li><a href="http://ftp.za.xemacs.org/mirrorsites/ftp.xemacs.org/beta/experiment... Africa Pre-Releases (za.xemacs.org)</a></li>
<li><a href="http://ftp.se.xemacs.org/pub/gnu/xemacs/beta/experimental/packages"... Pre-Releases (se.xemacs.org)</a></li>
- <li><a href="http://ftp.ch.xemacs.org/mirror/xemacs/beta/experimental/packages">... Pre-Releases (ch.xemacs.org)</a></li>
+ <li><a href="http://ftp.ch.xemacs.org/ftp/mirror/xemacs/beta/experimental/packag... Pre-Releases (ch.xemacs.org)</a></li>
+ <li><a href="http://ftp.tw.xemacs.org/Unix/Editors/XEmacs/beta/experimental/pack... Pre-Releases (ftp.tw.xemacs.org)</a></li>
<li><a href="http://ftp.uk.xemacs.org/sites/ftp.xemacs.org/pub/xemacs/beta/exper... Pre-Releases (uk.xemacs.org)</a></li>
- <li><a href="http://ibiblio.org/pub/packages/editors/xemacs/beta/experimental/pa... Pre-Releases (ibiblio.org)</a></li>
- <li><a href="http://ftp.stealth.net/pub/mirrors/ftp.xemacs.org/pub/xemacs/beta/e... Pre-Releases (stealth.net)</a></li>
+ <li><a href="http://mirrors.ibiblio.org/pub/mirrors/xemacs/beta/experimental/pac... Pre-Releases (ibiblio.org)</a></li>
+ <li><a href="ftp://ftp.stealth.net/pub/mirrors/ftp.xemacs.org/pub/xemacs/beta/ex... Pre-Releases (stealth.net)</a></li>
<li><a href="http://metalab.unc.edu/pub/packages/editors/xemacs/beta/experimenta... Pre-Releases (unc.edu)</a></li>
- <li><a href="http://ftp.us.xemacs.org/pub/xemacs/beta/experimental/packages">US Pre-Releases (us.xemacs.org)</a></li>
+ <li><a href="http://ftp.us.xemacs.org/ftp/pub/xemacs/beta/experimental/packages">US Pre-Releases (us.xemacs.org)</a></li>
<li><a href="http://ftp.sunsite.utk.edu/pub/xemacs/beta/experimental/packages">US Pre-Releases (utk.edu)</a></li>
</ul>
--
Adrian Aichner
mailto:adrian＠xemacs.org
http://www.xemacs.org/
- 1 participants
- 0 comments
[C] xemacs-21.5-clean: package-get.el fixes after checklink and linklint testing
18 years, 6 months
Adrian Aichner
Adrian Aichner
COMMIT
Sorry, this is going to be a bit iterative.
Adrian
xemacs-21.5-clean ChangeLog patch:
Diff command: cvs -q diff -U 0
Files affected: lisp/ChangeLog
Index: lisp/ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v
retrieving revision 1.687
diff -u -U0 -r1.687 ChangeLog
--- lisp/ChangeLog 24 Oct 2005 10:07:26 -0000 1.687
+++ lisp/ChangeLog 24 Oct 2005 22:39:37 -0000
＠＠ -0,0 +1,6 ＠＠
+2005-10-25 Adrian Aichner <adrian(a)xemacs.org>
+
+ * package-get.el (package-get-download-sites): Fixes after
+ checklink and linklint testing.
+ * package-get.el (package-get-pre-release-download-sites): Ditto.
+
xemacs-21.5-clean source patch:
Diff command: cvs -f -z3 -q diff -u -w -N
Files affected: lisp/package-get.el
Index: lisp/package-get.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/package-get.el,v
retrieving revision 1.70
diff -u -w -r1.70 package-get.el
--- lisp/package-get.el 23 Oct 2005 16:56:45 -0000 1.70
+++ lisp/package-get.el 24 Oct 2005 22:38:58 -0000
＠＠ -236,16 +236,16 ＠＠
("Norway (no.xemacs.org)" "ftp.no.xemacs.org" "pub/xemacs/packages")
("Poland (pl.xemacs.org)" "ftp.pl.xemacs.org" "pub/unix/editors/xemacs/packages")
("Russia (ru.xemacs.org)" "ftp.ru.xemacs.org" "pub/xemacs/packages")
- ("South Africa (za.xemacs.org)" "ftp.za.xemacs.org" "mirrorsites/ftp.xemacs.org/packages")
+; ("South Africa (za.xemacs.org)" "ftp.za.xemacs.org" "mirrorsites/ftp.xemacs.org/packages")
("Sweden (se.xemacs.org)" "ftp.se.xemacs.org" "pub/gnu/xemacs/packages")
("Switzerland (ch.xemacs.org)" "ftp.ch.xemacs.org" "mirror/xemacs/packages")
+ ("Taiwan (ftp.tw.xemacs.org)" "ftp.tw.xemacs.org" "Unix/Editors/XEmacs/packages")
("UK (uk.xemacs.org)" "ftp.uk.xemacs.org" "sites/ftp.xemacs.org/pub/xemacs/packages")
- ("US (ibiblio.org)" "ibiblio.org" "pub/packages/editors/xemacs/packages")
+ ("US (ibiblio.org)" "mirrors.ibiblio.org" "pub/mirrors/xemacs/packages")
("US (stealth.net)" "ftp.stealth.net" "pub/mirrors/ftp.xemacs.org/pub/xemacs/packages")
("US (unc.edu)" "metalab.unc.edu" "pub/packages/editors/xemacs/packages")
("US (us.xemacs.org)" "ftp.us.xemacs.org" "pub/xemacs/packages")
- ("US (utk.edu)" "ftp.sunsite.utk.edu" "pub/xemacs/packages")
- )
+ ("US (utk.edu)" "ftp.sunsite.utk.edu" "pub/xemacs/packages"))
"*List of remote sites available for downloading packages.
List format is '(site-description site-name directory-on-site).
SITE-DESCRIPTION is a textual description of the site. SITE-NAME
＠＠ -326,16 +326,18 ＠＠
"pub/unix/editors/xemacs/beta/experimental/packages")
("Russia Pre-Releases (ru.xemacs.org)" "ftp.ru.xemacs.org"
"pub/xemacs/beta/experimental/packages")
- ("South Africa Pre-Releases (za.xemacs.org)" "ftp.za.xemacs.org"
- "mirrorsites/ftp.xemacs.org/beta/experimental/packages")
+; ("South Africa Pre-Releases (za.xemacs.org)" "ftp.za.xemacs.org"
+; "mirrorsites/ftp.xemacs.org/beta/experimental/packages")
("Sweden Pre-Releases (se.xemacs.org)" "ftp.se.xemacs.org"
"pub/gnu/xemacs/beta/experimental/packages")
("Switzerland Pre-Releases (ch.xemacs.org)" "ftp.ch.xemacs.org"
"mirror/xemacs/beta/experimental/packages")
+ ("Taiwan Pre-Releases (ftp.tw.xemacs.org)" "ftp.tw.xemacs.org"
+ "Unix/Editors/XEmacs/beta/experimental/packages")
("UK Pre-Releases (uk.xemacs.org)" "ftp.uk.xemacs.org"
"sites/ftp.xemacs.org/pub/xemacs/beta/experimental/packages")
- ("US Pre-Releases (ibiblio.org)" "ibiblio.org"
- "pub/packages/editors/xemacs/beta/experimental/packages")
+ ("US Pre-Releases (ibiblio.org)" "mirrors.ibiblio.org"
+ "pub/mirrors/xemacs/beta/experimental/packages")
("US Pre-Releases (stealth.net)" "ftp.stealth.net"
"pub/mirrors/ftp.xemacs.org/pub/xemacs/beta/experimental/packages")
("US Pre-Releases (unc.edu)" "metalab.unc.edu"
--
Adrian Aichner
mailto:adrian＠xemacs.org
http://www.xemacs.org/
- 1 participants
- 0 comments
Re: [Q] Re: New version of savehist
18 years, 6 months
Hrvoje Niksic
Hrvoje Niksic
Adrian Aichner <adrian(a)xemacs.org> writes:
> QUERY
[...]
> Hello Hrvoje, shouldn't these issues be resolved before we release this
> code in an updated edit-utils package?
The two items were meant as an overview of the differences, not as
specific issues that needed fixing. I'm not convinced that many
people customized savehist variables.
> Would you be willing to provide a patch including XEmacs ChangeLog
> to expedite the review process?
That was never required for other files I maintain, such as `htmlize'.
I don't have a ChangeLog entry, unfortunately.
- 1 participants
- 0 comments
[PATCH] Autoconf aliasing FAQ and documentation changes.
18 years, 6 months
Malcolm Purvis
Malcolm Purvis
This patch updates INSTALL and the FAQ to reflect the recently checked in
autoconf option changes.
In particular, where the FAQ mentions a configure option that is different in
21.4 and 21.5 both options are given. Earlier this year I posted a similar
patch to the FAQ that only gave the 21.5 form but the consensus was that one
version of the FAQ could be used for all versions of XEmacs.
Malcolm
ChangeLog addition:
2005-10-20 Malcolm Purvis <malcolmp(a)xemacs.org>
* INSTALL: Reflect changes in the configure options. Update MacOS
X X11 installation instructions to reflect the changes in recent
OS releases.
man/ChangeLog addition:
2005-10-20 Malcolm Purvis <malcolmp(a)xemacs.org>
* xemacs-faq.texi (Q1.2.2):
* xemacs-faq.texi (Q2.1.1):
* xemacs-faq.texi (Q2.1.6):
* xemacs-faq.texi (Q2.2.1):
* xemacs-faq.texi (Q2.3.6):
* xemacs-faq.texi (Q2.4.3):
* xemacs-faq.texi (Q2.4.4):
* xemacs-faq.texi (Q2.4.7):
* xemacs-faq.texi (Q5.3.3):
* xemacs-faq.texi (Q6.0.8):
* xemacs-faq.texi (Q7.2.1):
Add 21.5 specific examples of configure options in addition to the
existing 21.4 ones.
xemacs-autoconf-2.5 source patch:
Diff command: cvs -q diff -u
Files affected: man/xemacs-faq.texi INSTALL
Index: INSTALL
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/INSTALL,v
retrieving revision 1.43
diff -u -r1.43 INSTALL
--- INSTALL 2005/03/10 11:49:00 1.43
+++ INSTALL 2005/10/20 12:55:19
＠＠ -74,16 +74,17 ＠＠
Decide which libraries you would like to use with XEmacs, but are not
yet available on your system. On some systems, X11, Motif and CDE are
-optional additions. On MacOS/X systems, you may download X11R6 for
-Mac OS X from http://www.apple.com/macosx/x11/download/. You need
-both the runtime libraries and the SDK (in a sidebar of that page at
-the time of writing). There is also a 3rd-party implementation of
-X11R6 for the Mac at http://www.xdarwin.org/. On Solaris, the
-SUNWaudmo package enables native sound support. There are also a
-number of free software applications that XEmacs can use. If these
-are not yet available on your system, obtain, build and install those
-external libraries before building XEmacs. The libraries XEmacs can
-use are:
+optional additions. On MacOS/X systems prior to 10.2, you may download
+X11R6 for Mac OS X from http://www.apple.com/macosx/x11/download/. In
+later releases X11 is available as an optional package on the
+installation CDs. In either case you need both the runtime libraries
+and the SDK (in a sidebar of that page at the time of writing). There
+is also a 3rd-party implementation of X11R6 for the Mac at
+http://www.xdarwin.org/. On Solaris, the SUNWaudmo package enables
+native sound support. There are also a number of free software
+applications that XEmacs can use. If these are not yet available on
+your system, obtain, build and install those external libraries before
+building XEmacs. The libraries XEmacs can use are:
Xaw3d, XPM, JPEG, compface, PNG, zlib, GNU DBM, Berkeley DB, socks,
term, NAS, Canna, Kinput2, SJ3, Wnn, PostgreSQL, LDAP.
＠＠ -137,6 +138,12 ＠＠
program `configure' as follows:
./configure [CONFIGURATION-NAME] [--OPTION[=VALUE]] ...
+
+Options are generally of the form `--with-FEATURE' or
+`--enable-FEATURE' to use a feature or `--without-FEATURE' or
+`--disable-FEATURE' to not use a feature. Unlike the `configure'
+program used in other applications, either `--with-FEATURE' or
+`--enable-FEATURE' can be used to use the same feature.
Controlling the Host Type
-------------------------
Index: man/xemacs-faq.texi
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/man/xemacs-faq.texi,v
retrieving revision 1.86
diff -u -r1.86 xemacs-faq.texi
--- man/xemacs-faq.texi 2005/10/14 02:11:49 1.86
+++ man/xemacs-faq.texi 2005/10/20 12:57:29
＠＠ -1103,9 +1103,10 ＠＠
sparc-sun-sunos4.1.4 (gcc)
＠end example
-Some systems have a dual mode 32-bit/64-bit compiler. On most of
-these, XEmacs requires the ＠samp{--pdump} configure option to build
-correctly with the 64-bit version of the compiler.
+Some systems have a dual mode 32-bit/64-bit compiler. On most of these,
+XEmacs requires the ＠samp{--pdump} (in XEmacs 21.5,
+＠samp{--enable-pdump}) configure option to build correctly with the
+64-bit version of the compiler.
＠example
mips-sgi-irix6.5, CC="gcc -mabi=64"
＠＠ -3263,14 +3264,14 ＠＠
＠code{cd $prefix/lib/xemacs ; tar zxvf <tarballname>}
-If you have the packages somewhere nonstandard and don't want to
-bother with ＠samp{$prefix} (for example, you're a developer and are
-compiling the packages yourself, and want your own private copy of
-everything), you can also directly specify this using ＠file{configure}.
-To do this under 21.5 and above use the ＠samp{--package-prefix} parameter
-to specify the directory under which you untarred the above tarballs.
-Under 21.4 and previous you need to use ＠samp{--package-path},
-something like this:
+If you have the packages somewhere nonstandard and don't want to bother
+with ＠samp{$prefix} (for example, you're a developer and are compiling
+the packages yourself, and want your own private copy of everything),
+you can also directly specify this using ＠file{configure}. To do this
+with 21.5 and above use the ＠samp{--with-package-prefix} parameter to
+specify the directory under which you untarred the above tarballs.
+Under 21.4 and previous you need to use ＠samp{--package-path}. Using
+these options looks something like this:
＠example
configure --package-path="~/.xemacs::/src/xemacs/site-packages:/src/xemacs/xemacs-packages:/src/xemacs/mule-packages" ...
＠＠ -3505,11 +3506,10 ＠＠
under ＠file{/usr/local/lib/xemacs}.
You can specify where exactly XEmacs looks for packages by using the
-＠samp{--package-prefix} or ＠samp{--package-path} parameters to
-＠file{configure} (or the equivalent settings in ＠file{config.inc},
-under Windows), or setting the ＠samp{EMACSPACKAGEPATH} environment
-variable (which has the same format as ＠samp{--package-path}).
-(a)xref{Q2.1.1}.
+＠samp{--with-package-prefix} or ＠samp{--with-package-path} parameters to
+＠file{configure} (or the equivalent settings in ＠file{config.inc}, under
+Windows), or setting the ＠samp{EMACSPACKAGEPATH} environment variable
+(which has the same format as ＠samp{--with-package-path}). ＠xref{Q2.1.1}.
See ＠file{configure.usage} for more info about the format of these
＠file{configure} parameters.
＠＠ -3545,19 +3545,40 ＠＠
＠unnumberedsubsec Q2.2.1: Libraries in non-standard locations
If your libraries are in a non-standard location, you can specify the location
-using the following flags to ＠file{configure}:
+using the following flags to ＠file{configure}. Under 21.4 or earlier:
＠example
--site-libraries=WHATEVER
--site-includes=WHATEVER
＠end example
+Under 21.5 or later:
+
+＠example
+--with-site-libraries=WHATEVER
+--with-site-includes=WHATEVER
+＠end example
+
If you have multiple paths to specify, use the following syntax:
＠example
--site-libraries='/path/one /path/two /path/etc'
＠end example
+If the libraries and headers reside in the directories ＠samp{lib} and
+＠samp{include} of a common root (say ＠samp{/sw}) then both can be
+specified with a single option:
+
+＠example
+--site-prefixes=WHATEVER
+＠end example
+
+or for 21.5:
+
+＠example
+--with-site-prefixes=WHATEVER
+＠end example
+
＠node Q2.2.2, Q2.3.1, Q2.2.1, Installation
＠unnumberedsubsec Q2.2.2: Why can't I strip XEmacs?
＠＠ -3751,8 +3772,10 ＠＠
＠item
Specify the target location of the extra libs on the command line
-to ＠file{configure}, e.g.
-(a)samp{./configure --site-prefixes=/build/libs i586-pc-mingw32}.
+to ＠file{configure}, e.g.for 21.4 or earlier
+(a)samp{./configure --site-prefixes=/build/libs i586-pc-mingw32} and for
+21.5 or later
+(a)samp{./configure --with-site-prefixes=/build/libs i586-pc-mingw32}.
＠end itemize
＠node Q2.3.7, Q2.3.8, Q2.3.6, Installation
＠＠ -3965,10 +3988,11 ＠＠
the top-level source directory) to read what it says about your
platform.
-If you compiled XEmacs using ＠samp{--use-union-type} (or the option
-＠samp{USE_UNION_TYPE} in ＠file{config.inc} under Windows), try
-recompiling again without it. The union type has been known to trigger
-compiler errors in a number of cases.
+If you compiled XEmacs 21.4 or ealier using ＠samp{--use-union-type}, or
+21.5 or later using ＠samp{--enable-union-type} (or in either case used
+the option ＠samp{USE_UNION_TYPE} in ＠file{config.inc} under Windows),
+try recompiling again without it. The union type has been known to
+trigger compiler errors in a number of cases.
＠node Q2.4.4, Q2.4.5, Q2.4.3, Installation
＠unnumberedsubsec Q2.4.4: How to debug an XEmacs problem with a debugger
＠＠ -3983,12 +4007,14 ＠＠
strongly recompiling your XEmacs with debugging symbols and with no
optimization (e.g. with GCC use the compiler flags ＠samp{-g -O0} --
that's an "oh" followed by a zero), and with the configure options
-＠samp{--debug=yes} and ＠samp{--error-checking=all}. This will make
-your XEmacs run somewhat slower, but you are a lot more likely to
-catch the problem earlier (closer to its source). It makes it a lot
-easier to determine what's going on with a debugger. The way to
-control the compiler flags is with the configuration option
-＠samp{--cflags}. If you have a recent version of 21.5, you should use
+＠samp{--debug=yes} and ＠samp{--error-checking=all}
+(＠samp{--enable-debug=yes} and ＠samp{--enable-error-checking=all} on
+XEmacs 21.5 or later). This will make your XEmacs run somewhat slower,
+but you are a lot more likely to catch the problem earlier (closer to
+its source). It makes it a lot easier to determine what's going on with
+a debugger. The way to control the compiler flags is with the
+configuration option ＠samp{--cflags} (＠samp{--with-cflags} in 21.5). If
+you have a recent version of 21.5, you should use
＠samp{--without-optimization} in preference to directly setting
＠samp{--cflags}.
＠＠ -4146,11 +4172,11 ＠＠
If you're using a debugger to get a C stack backtrace and you're seeing
stack traces with some of the innermost frames mangled, it may be due to
dynamic linking. (This happens especially under Linux.) Consider
-reconfiguring with ＠samp{--dynamic=no}. Also, sometimes (again under
-Linux), stack backtraces of core dumps will have the frame where the
-fatal signal occurred mangled; if you can obtain a stack trace while
-running the XEmacs process under a debugger, the stack trace should be
-clean.
+reconfiguring with ＠samp{--dynamic=no} (＠samp{--with-dynamic=no} in 21.5
+or later). Also, sometimes (again under Linux), stack backtraces of
+core dumps will have the frame where the fatal signal occurred mangled;
+if you can obtain a stack trace while running the XEmacs process under a
+debugger, the stack trace should be clean.
＠email{1CMC3466＠(a)ibm.mtsac.edu, Curtiss} suggests upgrading to ld.so
version 1.8 if dynamic linking and debugging is a problem on Linux.
＠＠ -4293,14 +4319,14 ＠＠
complex command run from a make suite, it may be easier to attach to
the process once it's running.
-Under Microsoft Windows (and perhaps other operating systems), there
-is another useful trick you can do if you have configured with
-debugging support (configure option ＠samp{--debug} or setting
-＠samp{DEBUG_XEMACS} in ＠file{nt/config.inc}). Set the environment
-variable ＠samp{XEMACSDEBUG} (as described above) to ＠samp{(setq
-debug-on-error t)}. Then, when an error occurs noninteractively,
-instead of trying to invoke the Lisp debugger (which obviously won't
-work), XEmacs will break out to a C debugger using
+Under Microsoft Windows (and perhaps other operating systems), there is
+another useful trick you can do if you have configured with debugging
+support (configure option ＠samp{--debug} (＠samp{--with-debug} in 21.5)
+or setting ＠samp{DEBUG_XEMACS} in ＠file{nt/config.inc}). Set the
+environment variable ＠samp{XEMACSDEBUG} (as described above) to
+＠samp{(setq debug-on-error t)}. Then, when an error occurs
+noninteractively, instead of trying to invoke the Lisp debugger (which
+obviously won't work), XEmacs will break out to a C debugger using
＠code{(force-debugging-signal t)}. ＠emph{NOTE}: This runs
＠code{abort()}!!! (As well as and after executing INT 3 under MS
Windows, which should invoke a debugger if it's active.) This is
＠＠ -6441,15 +6467,19 ＠＠
＠uref{http://radscan.com/nas.html}.
-To build XEmacs with it, use the ＠file{configure} flag ＠samp{--with-sound=nas}.
+To build XEmacs with it, use the ＠file{configure} flag
+＠samp{--with-sound=nas} (＠samp{--enable-sound=nas} in 21.5 or later).
＠dfn{Enlightened Sound Daemon} (ESD or EsounD) is yet another sound system.
＠uref{http://www.tux.org/~ricdude/EsounD.html}.
-To build XEmacs with it, use the ＠file{configure} flag ＠samp{--with-sound=esd}.
+To build XEmacs with it, use the ＠file{configure} flag
+＠samp{--with-sound=esd} (＠samp{--enable-sound=esd} in 21.5 or later).
-You can specify support for both with a flag like ＠samp{--with-sound=nas,esd}.
+You can specify support for both with a flag like
+＠samp{--with-sound=nas,esd} (＠samp{--enable-sound=nas,esd} in 21.5 or
+later).
＠node Q5.3.4, Q5.4.1, Q5.3.3, External Subsystems
＠unnumberedsubsec Q5.3.4: Sunsite sounds don't play.
＠＠ -6873,7 +6903,8 ＠＠
defined by ＠code{/bin/mail}.
There are various different protocols in general use, which you need to
-specify using the ＠samp{--mail-locking} option to ＠file{configure}:
+specify using the ＠samp{--mail-locking} option
+(＠samp{--with-mail-locking} in 21.5 or later) to ＠file{configure}:
＠table ＠samp
＠item lockf
＠＠ -7794,10 +7825,10 ＠＠
arbitrarily decide to hand you an unpleasant surprise rather than a
bignum ＠ref{Q7.2.2, XEmacs segfaults when I use very big numbers!}.
-To configure with GNU MP, add
-＠samp{--use-number-lib=gmp}
-to your invocation of ＠file{configure}. For BSD MP, use
-＠samp{--use-number-lib=mp}.
+To configure with GNU MP, add ＠samp{--use-number-lib=gmp}
+(＠samp{--enable-bignum=gmp} in 21.5 or later) to your invocation of
+＠file{configure}. For BSD MP, use ＠samp{--use-number-lib=mp}
+(＠samp{--enable-bignum=mp} for 21.5).
If you would like to help with bignum support, especially on BSD MP,
please subscribe to the ＠uref{http://www.xemacs.org/Lists/#xemacs-beta,
--
Malcolm Purvis <malcolmp(a)xemacs.org>
- 1 participants
- 1 comments
[COMMIT] refactor mc-alloc dependencies
18 years, 6 months
Ben Wing
Ben Wing
NOTE: This patch has been committed.
lisp/ChangeLog addition:
2005-10-24 Ben Wing <ben(a)xemacs.org>
* next-error.el (compilation-current-error):
* next-error.el (compilation-current-error)): New.
* next-error.el (compilation-context-lines)): New.
* occur.el (occur-accumulate-lines):
* occur.el (multi-occur):
Fix some byte-compile warnings.
src/ChangeLog addition:
2005-10-24 Ben Wing <ben(a)xemacs.org>
* alloc.c:
* alloc.c (Lisp_Free):
* alloc.c (Fcons):
* alloc.c (noseeum_cons):
* alloc.c (make_float):
* alloc.c (make_bignum):
* alloc.c (make_bignum_bg):
* alloc.c (make_ratio):
* alloc.c (make_ratio_bg):
* alloc.c (make_ratio_rt):
* alloc.c (make_bigfloat):
* alloc.c (make_bigfloat_bf):
* alloc.c (make_vector_internal):
* alloc.c (make_bit_vector_internal):
* alloc.c (make_compiled_function):
* alloc.c (Fmake_symbol):
* alloc.c (allocate_extent):
* alloc.c (allocate_event):
* alloc.c (make_key_data):
* alloc.c (make_button_data):
* alloc.c (make_motion_data):
* alloc.c (make_process_data):
* alloc.c (make_timeout_data):
* alloc.c (make_magic_data):
* alloc.c (make_magic_eval_data):
* alloc.c (make_eval_data):
* alloc.c (make_misc_user_data):
* alloc.c (Fmake_marker):
* alloc.c (noseeum_make_marker):
* buffer.c (allocate_buffer):
* buffer.c (compute_buffer_usage):
* buffer.c (nuke_all_buffer_slots):
* buffer.c (common_init_complex_vars_of_buffer):
* buffer.h (struct buffer):
* casetab.c (allocate_case_table):
* casetab.h (struct Lisp_Case_Table):
* charset.h (struct Lisp_Charset):
* chartab.c (fill_char_table):
* chartab.c (Fmake_char_table):
* chartab.c (make_char_table_entry):
* chartab.c (copy_char_table_entry):
* chartab.c (Fcopy_char_table):
* chartab.c (put_char_table):
* chartab.h (struct Lisp_Char_Table_Entry):
* chartab.h (struct Lisp_Char_Table):
* console-impl.h (struct console):
* console-msw-impl.h (struct Lisp_Devmode):
* console-msw-impl.h (struct mswindows_dialog_id):
* console.c (allocate_console):
* console.c (nuke_all_console_slots):
* console.c (common_init_complex_vars_of_console):
* data.c (make_weak_list):
* data.c (make_weak_box):
* data.c (make_ephemeron):
* database.c (struct Lisp_Database):
* database.c (allocate_database):
* device-impl.h (struct device):
* device-msw.c (allocate_devmode):
* device.c (nuke_all_device_slots):
* device.c (allocate_device):
* dialog-msw.c (handle_question_dialog_box):
* elhash.c (struct Lisp_Hash_Table):
* elhash.c (make_general_lisp_hash_table):
* elhash.c (Fcopy_hash_table):
* events.h (struct Lisp_Timeout):
* events.h (struct command_builder):
* extents-impl.h (struct extent_auxiliary):
* extents-impl.h (struct extent_info):
* extents.c (allocate_extent_auxiliary):
* extents.c (allocate_extent_info):
* extents.c (copy_extent):
* faces.c (allocate_face):
* faces.h (struct Lisp_Face):
* file-coding.c (Fcopy_coding_system):
* file-coding.h (struct Lisp_Coding_System):
* frame-impl.h (struct frame):
* frame.c (nuke_all_frame_slots):
* frame.c (allocate_frame_core):
* glyphs.c (allocate_image_instance):
* glyphs.c (Fcolorize_image_instance):
* glyphs.c (allocate_glyph):
* glyphs.h (struct Lisp_Image_Instance):
* glyphs.h (struct Lisp_Glyph):
* gui.c (allocate_gui_item):
* gui.h (struct Lisp_Gui_Item):
* keymap.c (struct Lisp_Keymap):
* keymap.c (make_keymap):
* lisp.h (struct Lisp_Vector):
* lisp.h (struct Lisp_Bit_Vector):
* lisp.h (struct weak_box):
* lisp.h (struct ephemeron):
* lisp.h (struct weak_list):
* lrecord.h:
* lrecord.h (struct toolbar_button):
* lstream.c (COPY_SIZED_LCRECORD):
* lstream.h (struct lstream):
* mule-charset.c (make_charset):
* mule-charset.c (compute_charset_usage):
* objects-impl.h (struct Lisp_Color_Instance):
* objects-impl.h (struct Lisp_Font_Instance):
* objects.c (Fmake_color_instance):
* objects.c (Fmake_font_instance):
* objects.c (reinit_vars_of_objects):
* opaque.c (make_opaque):
* opaque.h (Lisp_Opaque):
* opaque.h (Lisp_Opaque_Ptr):
* print.c (default_object_printer):
* process.c (make_process_internal):
* procimpl.h (struct Lisp_Process):
* rangetab.c (Fmake_range_table):
* rangetab.c (Fcopy_range_table):
* rangetab.h (struct Lisp_Range_Table):
* scrollbar-gtk.c (gtk_compute_scrollbar_instance_usage):
* scrollbar-msw.c (mswindows_compute_scrollbar_instance_usage):
* scrollbar-x.c (x_compute_scrollbar_instance_usage):
* scrollbar.c (create_scrollbar_instance):
* scrollbar.c (compute_scrollbar_instance_usage):
* scrollbar.h (struct scrollbar_instance):
* specifier.c (make_specifier_internal):
* specifier.h (struct Lisp_Specifier):
* symbols.c (Fdefvaralias):
* symeval.h (SYMBOL_VALUE_MAGIC_P):
* toolbar.c (update_toolbar_button):
* toolbar.h (struct toolbar_button):
* tooltalk.c (struct Lisp_Tooltalk_Message):
* tooltalk.c (make_tooltalk_message):
* tooltalk.c (struct Lisp_Tooltalk_Pattern):
* tooltalk.c (make_tooltalk_pattern):
* ui-gtk.c (allocate_ffi_data):
* ui-gtk.c (allocate_emacs_gtk_object_data):
* ui-gtk.c (allocate_emacs_gtk_boxed_data):
* ui-gtk.h:
* unicode.c (compute_from_unicode_table_size_1):
* unicode.c (compute_to_unicode_table_size_1):
* window-impl.h (struct window):
* window-impl.h (struct window_mirror):
* window.c (allocate_window):
* window.c (new_window_mirror):
* window.c (make_dummy_parent):
* window.c (compute_window_mirror_usage):
* window.c (compute_window_usage):
Eliminate the majority of #ifdef MC_ALLOC occurrences through
macros LCRECORD_HEADER, ALLOC_LCRECORD_TYPE, MALLOCED_STORAGE_SIZE,
etc. (defined in lrecord.h).
latest source patch:
Diff command: bash -ci "cvs-diff --show-c-function -no-changelog "
Files affected: src/window.c src/window-impl.h src/unicode.c src/ui-gtk.h src/ui-gtk.c src/tooltalk.c src/toolbar.h src/toolbar.c src/symeval.h src/symbols.c src/specifier.h src/specifier.c src/scrollbar.h src/scrollbar.c src/scrollbar-x.c src/scrollbar-msw.c src/scrollbar-gtk.c src/rangetab.h src/rangetab.c src/procimpl.h src/process.c src/print.c src/opaque.h src/opaque.c src/objects.c src/objects-impl.h src/mule-charset.c src/lstream.h src/lstream.c src/lrecord.h src/lisp.h src/keymap.c src/gui.h src/gui.c src/glyphs.h src/glyphs.c src/frame.c src/frame-impl.h src/file-coding.h src/file-coding.c src/faces.h src/faces.c src/extents.c src/extents-impl.h src/events.h src/elhash.c src/dialog-msw.c src/device.c src/device-msw.c src/device-impl.h src/database.c src/data.c src/console.c src/console-msw-impl.h src/console-impl.h src/chartab.h src/chartab.c src/charset.h src/casetab.h src/casetab.c src/buffer.h src/buffer.c src/alloc.c lisp/occur.el lisp/next-error.el
cvs server: Diffing .
Index: lisp/next-error.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/next-error.el,v
retrieving revision 1.1
diff -u -p -r1.1 next-error.el
--- lisp/next-error.el 2005/10/18 20:49:42 1.1
+++ lisp/next-error.el 2005/10/24 08:05:15
＠＠ -270,6 +270,8 ＠＠ location."
;;; Used as a `post-command-hook' by `next-error-follow-mode'
;;; for the *Compilation* *grep* and *Occur* buffers.
+(defvar compilation-current-error)
+(defvar compilation-context-lines)
(defun next-error-follow-mode-post-command-hook ()
(unless (equal next-error-follow-last-line (line-number-at-pos))
(setq next-error-follow-last-line (line-number-at-pos))
Index: lisp/occur.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/occur.el,v
retrieving revision 1.1
diff -u -p -r1.1 occur.el
--- lisp/occur.el 2005/10/18 20:49:43 1.1
+++ lisp/occur.el 2005/10/24 08:05:15
＠＠ -247,9 +247,9 ＠＠ If the value is nil, don't highlight the
(setq count (+ count (if forwardp -1 1)))
(setq beg (line-beginning-position)
end (line-end-position))
- (if (and keep-props (if (boundp 'jit-lock-mode) jit-lock-mode)
+ (if (and keep-props (if-boundp 'jit-lock-mode jit-lock-mode)
(text-property-not-all beg end 'fontified t))
- (if (fboundp 'jit-lock-fontify-now)
+ (if-fboundp 'jit-lock-fontify-now
(jit-lock-fontify-now beg end)))
(push
(funcall (if keep-props
＠＠ -324,6 +324,7 ＠＠ the matching is case-sensitive."
"Show all lines in buffers BUFS containing a match for REGEXP.
This function acts on multiple buffers; otherwise, it is exactly like
`occur'."
+ (defvar ido-ignore-item-temp-list)
(interactive
(cons
(let* ((bufs (list (read-buffer "First buffer to search: "
cvs server: Diffing lisp/mule
cvs server: Diffing lisp/term
cvs server: Diffing lock
cvs server: Diffing lwlib
cvs server: Diffing man
cvs server: Diffing man/internals
cvs server: Diffing man/lispref
cvs server: Diffing man/new-users-guide
cvs server: Diffing man/xemacs
cvs server: Diffing modules
cvs server: Diffing modules/base64
cvs server: Diffing modules/canna
Index: src/alloc.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/alloc.c,v
retrieving revision 1.116
diff -u -p -r1.116 alloc.c
--- src/alloc.c 2005/10/14 01:21:59 1.116
+++ src/alloc.c 2005/10/24 08:05:18
＠＠ -811,7 +811,9 ＠＠ dbg_eq (Lisp_Object obj1, Lisp_Object ob
}
-#ifndef MC_ALLOC
+#ifdef MC_ALLOC
+#define DECLARE_FIXED_TYPE_ALLOC(type, structture) struct __foo__
+#else
/************************************************************************/
/* Fixed-size type macros */
/************************************************************************/
＠＠ -1085,7 +1087,6 ＠＠ do \
NOSEEUM_INCREMENT_CONS_COUNTER (sizeof (structtype), #type); \
} while (0)
-
/* Lisp_Free is the type to represent a free list member inside a frob
block of any lisp object type. */
typedef struct Lisp_Free
＠＠ -1172,18 +1173,42 ＠＠ do { FREE_FIXED_TYPE (type, structtype,
#endif
#endif /* not MC_ALLOC */
+#ifdef MC_ALLOC
+#define ALLOCATE_FIXED_TYPE_AND_SET_IMPL(type, lisp_type, var, lrec_ptr) \
+do { \
+ (var) = alloc_lrecord_type (lisp_type, lrec_ptr); \
+} while (0)
+#define NOSEEUM_ALLOCATE_FIXED_TYPE_AND_SET_IMPL(type, lisp_type, var, \
+ lrec_ptr) \
+do { \
+ (var) = noseeum_alloc_lrecord_type (lisp_type, lrec_ptr); \
+} while (0)
+#else /* not MC_ALLOC */
+#define ALLOCATE_FIXED_TYPE_AND_SET_IMPL(type, lisp_type, var, lrec_ptr) \
+do \
+{ \
+ ALLOCATE_FIXED_TYPE (type, lisp_type, var); \
+ set_lheader_implementation (&(var)->lheader, lrec_ptr); \
+} while (0)
+#define NOSEEUM_ALLOCATE_FIXED_TYPE_AND_SET_IMPL(type, lisp_type, var, \
+ lrec_ptr) \
+do \
+{ \
+ NOSEEUM_ALLOCATE_FIXED_TYPE (type, lisp_type, var); \
+ set_lheader_implementation (&(var)->lheader, lrec_ptr); \
+} while (0)
+#endif /* MC_ALLOC */
+
/************************************************************************/
/* Cons allocation */
/************************************************************************/
-#ifndef MC_ALLOC
DECLARE_FIXED_TYPE_ALLOC (cons, Lisp_Cons);
/* conses are used and freed so often that we set this really high */
/* #define MINIMUM_ALLOWED_FIXED_TYPE_CELLS_cons 20000 */
#define MINIMUM_ALLOWED_FIXED_TYPE_CELLS_cons 2000
-#endif /* not MC_ALLOC */
static Lisp_Object
mark_cons (Lisp_Object obj)
＠＠ -1237,12 +1262,7 ＠＠ Create a new cons, give it CAR and CDR a
Lisp_Object val;
Lisp_Cons *c;
-#ifdef MC_ALLOC
- c = alloc_lrecord_type (Lisp_Cons, &lrecord_cons);
-#else /* not MC_ALLOC */
- ALLOCATE_FIXED_TYPE (cons, Lisp_Cons, c);
- set_lheader_implementation (&c->lheader, &lrecord_cons);
-#endif /* not MC_ALLOC */
+ ALLOCATE_FIXED_TYPE_AND_SET_IMPL (cons, Lisp_Cons, c, &lrecord_cons);
val = wrap_cons (c);
XSETCAR (val, car);
XSETCDR (val, cdr);
＠＠ -1258,12 +1278,7 ＠＠ noseeum_cons (Lisp_Object car, Lisp_Obje
Lisp_Object val;
Lisp_Cons *c;
-#ifdef MC_ALLOC
- c = noseeum_alloc_lrecord_type (Lisp_Cons, &lrecord_cons);
-#else /* not MC_ALLOC */
- NOSEEUM_ALLOCATE_FIXED_TYPE (cons, Lisp_Cons, c);
- set_lheader_implementation (&c->lheader, &lrecord_cons);
-#endif /* not MC_ALLOC */
+ NOSEEUM_ALLOCATE_FIXED_TYPE_AND_SET_IMPL (cons, Lisp_Cons, c, &lrecord_cons);
val = wrap_cons (c);
XCAR (val) = car;
XCDR (val) = cdr;
＠＠ -1365,27 +1380,20 ＠＠ Return a new list of length LENGTH, with
/*** With enhanced number support, these are short floats */
-#ifndef MC_ALLOC
DECLARE_FIXED_TYPE_ALLOC (float, Lisp_Float);
#define MINIMUM_ALLOWED_FIXED_TYPE_CELLS_float 1000
-#endif /* not MC_ALLOC */
Lisp_Object
make_float (double float_value)
{
Lisp_Float *f;
-#ifdef MC_ALLOC
- f = alloc_lrecord_type (Lisp_Float, &lrecord_float);
-#else /* not MC_ALLOC */
- ALLOCATE_FIXED_TYPE (float, Lisp_Float, f);
+ ALLOCATE_FIXED_TYPE_AND_SET_IMPL (float, Lisp_Float, f, &lrecord_float);
/* Avoid dump-time `uninitialized memory read' purify warnings. */
if (sizeof (struct lrecord_header) + sizeof (double) != sizeof (*f))
- xzero (*f);
-#endif /* not MC_ALLOC */
+ zero_lrecord (f);
- set_lheader_implementation (&f->lheader, &lrecord_float);
float_data (f) = float_value;
return wrap_float (f);
}
＠＠ -1397,10 +1405,8 ＠＠ make_float (double float_value)
/*** Bignum ***/
#ifdef HAVE_BIGNUM
-#ifndef MC_ALLOC
DECLARE_FIXED_TYPE_ALLOC (bignum, Lisp_Bignum);
#define MINIMUM_ALLOWED_FIXED_TYPE_CELLS_bignum 250
-#endif /* not MC_ALLOC */
/* WARNING: This function returns a bignum even if its argument fits into a
fixnum. See Fcanonicalize_number(). */
＠＠ -1409,12 +1415,7 ＠＠ make_bignum (long bignum_value)
{
Lisp_Bignum *b;
-#ifdef MC_ALLOC
- b = alloc_lrecord_type (Lisp_Bignum, &lrecord_bignum);
-#else /* not MC_ALLOC */
- ALLOCATE_FIXED_TYPE (bignum, Lisp_Bignum, b);
- set_lheader_implementation (&b->lheader, &lrecord_bignum);
-#endif /* not MC_ALLOC */
+ ALLOCATE_FIXED_TYPE_AND_SET_IMPL (bignum, Lisp_Bignum, b, &lrecord_bignum);
bignum_init (bignum_data (b));
bignum_set_long (bignum_data (b), bignum_value);
return wrap_bignum (b);
＠＠ -1427,12 +1428,7 ＠＠ make_bignum_bg (bignum bg)
{
Lisp_Bignum *b;
-#ifdef MC_ALLOC
- b = alloc_lrecord_type (Lisp_Bignum, &lrecord_bignum);
-#else /* not MC_ALLOC */
- ALLOCATE_FIXED_TYPE (bignum, Lisp_Bignum, b);
- set_lheader_implementation (&b->lheader, &lrecord_bignum);
-#endif /* not MC_ALLOC */
+ ALLOCATE_FIXED_TYPE_AND_SET_IMPL (bignum, Lisp_Bignum, b, &lrecord_bignum);
bignum_init (bignum_data (b));
bignum_set (bignum_data (b), bg);
return wrap_bignum (b);
＠＠ -1441,22 +1437,15 ＠＠ make_bignum_bg (bignum bg)
/*** Ratio ***/
#ifdef HAVE_RATIO
-#ifndef MC_ALLOC
DECLARE_FIXED_TYPE_ALLOC (ratio, Lisp_Ratio);
#define MINIMUM_ALLOWED_FIXED_TYPE_CELLS_ratio 250
-#endif /* not MC_ALLOC */
Lisp_Object
make_ratio (long numerator, unsigned long denominator)
{
Lisp_Ratio *r;
-#ifdef MC_ALLOC
- r = alloc_lrecord_type (Lisp_Ratio, &lrecord_ratio);
-#else /* not MC_ALLOC */
- ALLOCATE_FIXED_TYPE (ratio, Lisp_Ratio, r);
- set_lheader_implementation (&r->lheader, &lrecord_ratio);
-#endif /* not MC_ALLOC */
+ ALLOCATE_FIXED_TYPE_AND_SET_IMPL (ratio, Lisp_Ratio, r, &lrecord_ratio);
ratio_init (ratio_data (r));
ratio_set_long_ulong (ratio_data (r), numerator, denominator);
ratio_canonicalize (ratio_data (r));
＠＠ -1468,12 +1457,7 ＠＠ make_ratio_bg (bignum numerator, bignum
{
Lisp_Ratio *r;
-#ifdef MC_ALLOC
- r = alloc_lrecord_type (Lisp_Ratio, &lrecord_ratio);
-#else /* not MC_ALLOC */
- ALLOCATE_FIXED_TYPE (ratio, Lisp_Ratio, r);
- set_lheader_implementation (&r->lheader, &lrecord_ratio);
-#endif /* not MC_ALLOC */
+ ALLOCATE_FIXED_TYPE_AND_SET_IMPL (ratio, Lisp_Ratio, r, &lrecord_ratio);
ratio_init (ratio_data (r));
ratio_set_bignum_bignum (ratio_data (r), numerator, denominator);
ratio_canonicalize (ratio_data (r));
＠＠ -1485,12 +1469,7 ＠＠ make_ratio_rt (ratio rat)
{
Lisp_Ratio *r;
-#ifdef MC_ALLOC
- r = alloc_lrecord_type (Lisp_Ratio, &lrecord_ratio);
-#else /* not MC_ALLOC */
- ALLOCATE_FIXED_TYPE (ratio, Lisp_Ratio, r);
- set_lheader_implementation (&r->lheader, &lrecord_ratio);
-#endif /* not MC_ALLOC */
+ ALLOCATE_FIXED_TYPE_AND_SET_IMPL (ratio, Lisp_Ratio, r, &lrecord_ratio);
ratio_init (ratio_data (r));
ratio_set (ratio_data (r), rat);
return wrap_ratio (r);
＠＠ -1499,10 +1478,8 ＠＠ make_ratio_rt (ratio rat)
/*** Bigfloat ***/
#ifdef HAVE_BIGFLOAT
-#ifndef MC_ALLOC
DECLARE_FIXED_TYPE_ALLOC (bigfloat, Lisp_Bigfloat);
#define MINIMUM_ALLOWED_FIXED_TYPE_CELLS_bigfloat 250
-#endif /* not MC_ALLOC */
/* This function creates a bigfloat with the default precision if the
PRECISION argument is zero. */
＠＠ -1511,12 +1488,7 ＠＠ make_bigfloat (double float_value, unsig
{
Lisp_Bigfloat *f;
-#ifdef MC_ALLOC
- f = alloc_lrecord_type (Lisp_Bigfloat, &lrecord_bigfloat);
-#else /* not MC_ALLOC */
- ALLOCATE_FIXED_TYPE (bigfloat, Lisp_Bigfloat, f);
- set_lheader_implementation (&f->lheader, &lrecord_bigfloat);
-#endif /* not MC_ALLOC */
+ ALLOCATE_FIXED_TYPE_AND_SET_IMPL (bigfloat, Lisp_Bigfloat, f, &lrecord_bigfloat);
if (precision == 0UL)
bigfloat_init (bigfloat_data (f));
else
＠＠ -1531,12 +1503,7 ＠＠ make_bigfloat_bf (bigfloat float_value)
{
Lisp_Bigfloat *f;
-#ifdef MC_ALLOC
- f = alloc_lrecord_type (Lisp_Bigfloat, &lrecord_bigfloat);
-#else /* not MC_ALLOC */
- ALLOCATE_FIXED_TYPE (bigfloat, Lisp_Bigfloat, f);
- set_lheader_implementation (&f->lheader, &lrecord_bigfloat);
-#endif /* not MC_ALLOC */
+ ALLOCATE_FIXED_TYPE_AND_SET_IMPL (bigfloat, Lisp_Bigfloat, f, &lrecord_bigfloat);
bigfloat_init_prec (bigfloat_data (f), bigfloat_get_prec (float_value));
bigfloat_set (bigfloat_data (f), float_value);
return wrap_bigfloat (f);
＠＠ -1613,11 +1580,7 ＠＠ make_vector_internal (Elemcount sizei)
Bytecount sizem = FLEXIBLE_ARRAY_STRUCT_SIZEOF (Lisp_Vector, Lisp_Object,
contents, sizei);
Lisp_Vector *p =
-#ifdef MC_ALLOC
- (Lisp_Vector *) alloc_lrecord (sizem, &lrecord_vector);
-#else /* not MC_ALLOC */
- (Lisp_Vector *) basic_alloc_lcrecord (sizem, &lrecord_vector);
-#endif /* not MC_ALLOC */
+ (Lisp_Vector *) BASIC_ALLOC_LCRECORD (sizem, &lrecord_vector);
p->size = sizei;
return p;
＠＠ -1774,11 +1737,7 ＠＠ make_bit_vector_internal (Elemcount size
unsigned long,
bits, num_longs);
Lisp_Bit_Vector *p = (Lisp_Bit_Vector *)
-#ifdef MC_ALLOC
- alloc_lrecord (sizem, &lrecord_bit_vector);
-#else /* not MC_ALLOC */
- basic_alloc_lcrecord (sizem, &lrecord_bit_vector);
-#endif /* not MC_ALLOC */
+ BASIC_ALLOC_LCRECORD (sizem, &lrecord_bit_vector);
bit_vector_length (p) = sizei;
return p;
＠＠ -1854,22 +1813,16 ＠＠ Each argument must be one of the integer
/* Compiled-function allocation */
/************************************************************************/
-#ifndef MC_ALLOC
DECLARE_FIXED_TYPE_ALLOC (compiled_function, Lisp_Compiled_Function);
#define MINIMUM_ALLOWED_FIXED_TYPE_CELLS_compiled_function 1000
-#endif /* not MC_ALLOC */
static Lisp_Object
make_compiled_function (void)
{
Lisp_Compiled_Function *f;
-#ifdef MC_ALLOC
- f = alloc_lrecord_type (Lisp_Compiled_Function, &lrecord_compiled_function);
-#else /* not MC_ALLOC */
- ALLOCATE_FIXED_TYPE (compiled_function, Lisp_Compiled_Function, f);
- set_lheader_implementation (&f->lheader, &lrecord_compiled_function);
-#endif /* not MC_ALLOC */
+ ALLOCATE_FIXED_TYPE_AND_SET_IMPL (compiled_function, Lisp_Compiled_Function,
+ f, &lrecord_compiled_function);
f->stack_depth = 0;
f->specpdl_depth = 0;
＠＠ -2001,10 +1954,8 ＠＠ This is terrible behavior which is retai
/* Symbol allocation */
/************************************************************************/
-#ifndef MC_ALLOC
DECLARE_FIXED_TYPE_ALLOC (symbol, Lisp_Symbol);
#define MINIMUM_ALLOWED_FIXED_TYPE_CELLS_symbol 1000
-#endif /* not MC_ALLOC */
DEFUN ("make-symbol", Fmake_symbol, 1, 1, 0, /*
Return a newly allocated uninterned symbol whose name is NAME.
＠＠ -2016,12 +1967,7 ＠＠ Its value and function definition are vo
CHECK_STRING (name);
-#ifdef MC_ALLOC
- p = alloc_lrecord_type (Lisp_Symbol, &lrecord_symbol);
-#else /* not MC_ALLOC */
- ALLOCATE_FIXED_TYPE (symbol, Lisp_Symbol, p);
- set_lheader_implementation (&p->lheader, &lrecord_symbol);
-#endif /* not MC_ALLOC */
+ ALLOCATE_FIXED_TYPE_AND_SET_IMPL (symbol, Lisp_Symbol, p, &lrecord_symbol);
p->name = name;
p->plist = Qnil;
p->value = Qunbound;
＠＠ -2035,22 +1981,15 ＠＠ Its value and function definition are vo
/* Extent allocation */
/************************************************************************/
-#ifndef MC_ALLOC
DECLARE_FIXED_TYPE_ALLOC (extent, struct extent);
#define MINIMUM_ALLOWED_FIXED_TYPE_CELLS_extent 1000
-#endif /* not MC_ALLOC */
struct extent *
allocate_extent (void)
{
struct extent *e;
-#ifdef MC_ALLOC
- e = alloc_lrecord_type (struct extent, &lrecord_extent);
-#else /* not MC_ALLOC */
- ALLOCATE_FIXED_TYPE (extent, struct extent, e);
- set_lheader_implementation (&e->lheader, &lrecord_extent);
-#endif /* not MC_ALLOC */
+ ALLOCATE_FIXED_TYPE_AND_SET_IMPL (extent, struct extent, e, &lrecord_extent);
extent_object (e) = Qnil;
set_extent_start (e, -1);
set_extent_end (e, -1);
＠＠ -2070,221 +2009,151 ＠＠ allocate_extent (void)
/* Event allocation */
/************************************************************************/
-#ifndef MC_ALLOC
DECLARE_FIXED_TYPE_ALLOC (event, Lisp_Event);
#define MINIMUM_ALLOWED_FIXED_TYPE_CELLS_event 1000
-#endif /* not MC_ALLOC */
Lisp_Object
allocate_event (void)
{
Lisp_Event *e;
-#ifdef MC_ALLOC
- e = alloc_lrecord_type (Lisp_Event, &lrecord_event);
-#else /* not MC_ALLOC */
- ALLOCATE_FIXED_TYPE (event, Lisp_Event, e);
- set_lheader_implementation (&e->lheader, &lrecord_event);
-#endif /* not MC_ALLOC */
+ ALLOCATE_FIXED_TYPE_AND_SET_IMPL (event, Lisp_Event, e, &lrecord_event);
return wrap_event (e);
}
#ifdef EVENT_DATA_AS_OBJECTS
-#ifndef MC_ALLOC
DECLARE_FIXED_TYPE_ALLOC (key_data, Lisp_Key_Data);
#define MINIMUM_ALLOWED_FIXED_TYPE_CELLS_key_data 1000
-#endif /* not MC_ALLOC */
Lisp_Object
make_key_data (void)
{
Lisp_Key_Data *d;
-#ifdef MC_ALLOC
- d = alloc_lrecord_type (Lisp_Key_Data, &lrecord_key_data);
-#else /* not MC_ALLOC */
- ALLOCATE_FIXED_TYPE (key_data, Lisp_Key_Data, d);
- xzero (*d);
- set_lheader_implementation (&d->lheader, &lrecord_key_data);
-#endif /* not MC_ALLOC */
+ ALLOCATE_FIXED_TYPE_AND_SET_IMPL (key_data, Lisp_Key_Data, d,
+ &lrecord_key_data);
+ zero_lrecord (d);
d->keysym = Qnil;
return wrap_key_data (d);
}
-#ifndef MC_ALLOC
DECLARE_FIXED_TYPE_ALLOC (button_data, Lisp_Button_Data);
#define MINIMUM_ALLOWED_FIXED_TYPE_CELLS_button_data 1000
-#endif /* not MC_ALLOC */
Lisp_Object
make_button_data (void)
{
Lisp_Button_Data *d;
-#ifdef MC_ALLOC
- d = alloc_lrecord_type (Lisp_Button_Data, &lrecord_button_data);
-#else /* not MC_ALLOC */
- ALLOCATE_FIXED_TYPE (button_data, Lisp_Button_Data, d);
- xzero (*d);
- set_lheader_implementation (&d->lheader, &lrecord_button_data);
-
-#endif /* not MC_ALLOC */
+ ALLOCATE_FIXED_TYPE_AND_SET_IMPL (button_data, Lisp_Button_Data, d, &lrecord_button_data);
+ zero_lrecord (d);
return wrap_button_data (d);
}
-#ifndef MC_ALLOC
DECLARE_FIXED_TYPE_ALLOC (motion_data, Lisp_Motion_Data);
#define MINIMUM_ALLOWED_FIXED_TYPE_CELLS_motion_data 1000
-#endif /* not MC_ALLOC */
Lisp_Object
make_motion_data (void)
{
Lisp_Motion_Data *d;
-#ifdef MC_ALLOC
- d = alloc_lrecord_type (Lisp_Motion_Data, &lrecord_motion_data);
-#else /* not MC_ALLOC */
- ALLOCATE_FIXED_TYPE (motion_data, Lisp_Motion_Data, d);
- xzero (*d);
- set_lheader_implementation (&d->lheader, &lrecord_motion_data);
-#endif /* not MC_ALLOC */
+ ALLOCATE_FIXED_TYPE_AND_SET_IMPL (motion_data, Lisp_Motion_Data, d, &lrecord_motion_data);
+ zero_lrecord (d);
return wrap_motion_data (d);
}
-#ifndef MC_ALLOC
DECLARE_FIXED_TYPE_ALLOC (process_data, Lisp_Process_Data);
#define MINIMUM_ALLOWED_FIXED_TYPE_CELLS_process_data 1000
-#endif /* not MC_ALLOC */
Lisp_Object
make_process_data (void)
{
Lisp_Process_Data *d;
-#ifdef MC_ALLOC
- d = alloc_lrecord_type (Lisp_Process_Data, &lrecord_process_data);
-#else /* not MC_ALLOC */
- ALLOCATE_FIXED_TYPE (process_data, Lisp_Process_Data, d);
- xzero (*d);
- set_lheader_implementation (&d->lheader, &lrecord_process_data);
+ ALLOCATE_FIXED_TYPE_AND_SET_IMPL (process_data, Lisp_Process_Data, d, &lrecord_process_data);
+ zero_lrecord (d);
d->process = Qnil;
-#endif /* not MC_ALLOC */
return wrap_process_data (d);
}
-#ifndef MC_ALLOC
DECLARE_FIXED_TYPE_ALLOC (timeout_data, Lisp_Timeout_Data);
#define MINIMUM_ALLOWED_FIXED_TYPE_CELLS_timeout_data 1000
-#endif /* not MC_ALLOC */
Lisp_Object
make_timeout_data (void)
{
Lisp_Timeout_Data *d;
-#ifdef MC_ALLOC
- d = alloc_lrecord_type (Lisp_Timeout_Data, &lrecord_timeout_data);
-#else /* not MC_ALLOC */
- ALLOCATE_FIXED_TYPE (timeout_data, Lisp_Timeout_Data, d);
- xzero (*d);
- set_lheader_implementation (&d->lheader, &lrecord_timeout_data);
+ ALLOCATE_FIXED_TYPE_AND_SET_IMPL (timeout_data, Lisp_Timeout_Data, d, &lrecord_timeout_data);
+ zero_lrecord (d);
d->function = Qnil;
d->object = Qnil;
-#endif /* not MC_ALLOC */
return wrap_timeout_data (d);
}
-#ifndef MC_ALLOC
DECLARE_FIXED_TYPE_ALLOC (magic_data, Lisp_Magic_Data);
#define MINIMUM_ALLOWED_FIXED_TYPE_CELLS_magic_data 1000
-#endif /* not MC_ALLOC */
Lisp_Object
make_magic_data (void)
{
Lisp_Magic_Data *d;
-#ifdef MC_ALLOC
- d = alloc_lrecord_type (Lisp_Magic_Data, &lrecord_magic_data);
-#else /* not MC_ALLOC */
- ALLOCATE_FIXED_TYPE (magic_data, Lisp_Magic_Data, d);
- xzero (*d);
- set_lheader_implementation (&d->lheader, &lrecord_magic_data);
-#endif /* not MC_ALLOC */
+ ALLOCATE_FIXED_TYPE_AND_SET_IMPL (magic_data, Lisp_Magic_Data, d, &lrecord_magic_data);
+ zero_lrecord (d);
return wrap_magic_data (d);
}
-#ifndef MC_ALLOC
DECLARE_FIXED_TYPE_ALLOC (magic_eval_data, Lisp_Magic_Eval_Data);
#define MINIMUM_ALLOWED_FIXED_TYPE_CELLS_magic_eval_data 1000
-#endif /* not MC_ALLOC */
Lisp_Object
make_magic_eval_data (void)
{
Lisp_Magic_Eval_Data *d;
-#ifdef MC_ALLOC
- d = alloc_lrecord_type (Lisp_Magic_Eval_Data, &lrecord_magic_eval_data);
-#else /* not MC_ALLOC */
- ALLOCATE_FIXED_TYPE (magic_eval_data, Lisp_Magic_Eval_Data, d);
- xzero (*d);
- set_lheader_implementation (&d->lheader, &lrecord_magic_eval_data);
+ ALLOCATE_FIXED_TYPE_AND_SET_IMPL (magic_eval_data, Lisp_Magic_Eval_Data, d, &lrecord_magic_eval_data);
+ zero_lrecord (d);
d->object = Qnil;
-#endif /* not MC_ALLOC */
return wrap_magic_eval_data (d);
}
-#ifndef MC_ALLOC
DECLARE_FIXED_TYPE_ALLOC (eval_data, Lisp_Eval_Data);
#define MINIMUM_ALLOWED_FIXED_TYPE_CELLS_eval_data 1000
-#endif /* not MC_ALLOC */
Lisp_Object
make_eval_data (void)
{
Lisp_Eval_Data *d;
-#ifdef MC_ALLOC
- d = alloc_lrecord_type (Lisp_Eval_Data, &lrecord_eval_data);
-#else /* not MC_ALLOC */
- ALLOCATE_FIXED_TYPE (eval_data, Lisp_Eval_Data, d);
- xzero (*d);
- set_lheader_implementation (&d->lheader, &lrecord_eval_data);
+ ALLOCATE_FIXED_TYPE_AND_SET_IMPL (eval_data, Lisp_Eval_Data, d, &lrecord_eval_data);
+ zero_lrecord (d);
d->function = Qnil;
d->object = Qnil;
-#endif /* not MC_ALLOC */
return wrap_eval_data (d);
}
-#ifndef MC_ALLOC
DECLARE_FIXED_TYPE_ALLOC (misc_user_data, Lisp_Misc_User_Data);
#define MINIMUM_ALLOWED_FIXED_TYPE_CELLS_misc_user_data 1000
-#endif /* not MC_ALLOC */
Lisp_Object
make_misc_user_data (void)
{
Lisp_Misc_User_Data *d;
-#ifdef MC_ALLOC
- d = alloc_lrecord_type (Lisp_Misc_User_Data, &lrecord_misc_user_data);
-#else /* not MC_ALLOC */
- ALLOCATE_FIXED_TYPE (misc_user_data, Lisp_Misc_User_Data, d);
- xzero (*d);
- set_lheader_implementation (&d->lheader, &lrecord_misc_user_data);
+ ALLOCATE_FIXED_TYPE_AND_SET_IMPL (misc_user_data, Lisp_Misc_User_Data, d, &lrecord_misc_user_data);
+ zero_lrecord (d);
d->function = Qnil;
d->object = Qnil;
-#endif /* not MC_ALLOC */
return wrap_misc_user_data (d);
}
＠＠ -2295,10 +2164,8 ＠＠ make_misc_user_data (void)
/* Marker allocation */
/************************************************************************/
-#ifndef MC_ALLOC
DECLARE_FIXED_TYPE_ALLOC (marker, Lisp_Marker);
#define MINIMUM_ALLOWED_FIXED_TYPE_CELLS_marker 1000
-#endif /* not MC_ALLOC */
DEFUN ("make-marker", Fmake_marker, 0, 0, 0, /*
Return a new marker which does not point at any place.
＠＠ -2307,12 +2174,7 ＠＠ Return a new marker which does not point
{
Lisp_Marker *p;
-#ifdef MC_ALLOC
- p = alloc_lrecord_type (Lisp_Marker, &lrecord_marker);
-#else /* not MC_ALLOC */
- ALLOCATE_FIXED_TYPE (marker, Lisp_Marker, p);
- set_lheader_implementation (&p->lheader, &lrecord_marker);
-#endif /* not MC_ALLOC */
+ ALLOCATE_FIXED_TYPE_AND_SET_IMPL (marker, Lisp_Marker, p, &lrecord_marker);
p->buffer = 0;
p->membpos = 0;
marker_next (p) = 0;
＠＠ -2326,12 +2188,8 ＠＠ noseeum_make_marker (void)
{
Lisp_Marker *p;
-#ifdef MC_ALLOC
- p = noseeum_alloc_lrecord_type (Lisp_Marker, &lrecord_marker);
-#else /* not MC_ALLOC */
- NOSEEUM_ALLOCATE_FIXED_TYPE (marker, Lisp_Marker, p);
- set_lheader_implementation (&p->lheader, &lrecord_marker);
-#endif /* not MC_ALLOC */
+ NOSEEUM_ALLOCATE_FIXED_TYPE_AND_SET_IMPL (marker, Lisp_Marker, p,
+ &lrecord_marker);
p->buffer = 0;
p->membpos = 0;
marker_next (p) = 0;
＠＠ -2358,12 +2216,10 ＠＠ noseeum_make_marker (void)
This new method makes things somewhat bigger, but it is MUCH safer. */
-#ifndef MC_ALLOC
DECLARE_FIXED_TYPE_ALLOC (string, Lisp_String);
/* strings are used and freed quite often */
/* #define MINIMUM_ALLOWED_FIXED_TYPE_CELLS_string 10000 */
#define MINIMUM_ALLOWED_FIXED_TYPE_CELLS_string 1000
-#endif /* not MC_ALLOC */
static Lisp_Object
mark_string (Lisp_Object obj)
Index: src/buffer.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/buffer.c,v
retrieving revision 1.71
diff -u -p -r1.71 buffer.c
--- src/buffer.c 2005/04/08 23:11:18 1.71
+++ src/buffer.c 2005/10/24 08:05:19
＠＠ -587,15 +587,9 ＠＠ get_truename_buffer (REGISTER Lisp_Objec
static struct buffer *
allocate_buffer (void)
{
-#ifdef MC_ALLOC
- struct buffer *b = alloc_lrecord_type (struct buffer, &lrecord_buffer);
-
- copy_lrecord (b, XBUFFER (Vbuffer_defaults));
-#else /* not MC_ALLOC */
- struct buffer *b = alloc_lcrecord_type (struct buffer, &lrecord_buffer);
+ struct buffer *b = ALLOC_LCRECORD_TYPE (struct buffer, &lrecord_buffer);
- copy_lcrecord (b, XBUFFER (Vbuffer_defaults));
-#endif /* not MC_ALLOC */
+ COPY_LCRECORD (b, XBUFFER (Vbuffer_defaults));
return b;
}
＠＠ -1763,11 +1757,7 ＠＠ compute_buffer_usage (struct buffer *b,
struct overhead_stats *ovstats)
{
xzero (*stats);
-#ifdef MC_ALLOC
- stats->other += mc_alloced_storage_size (sizeof (*b), ovstats);
-#else /* not MC_ALLOC */
- stats->other += malloced_storage_size (b, sizeof (*b), ovstats);
-#endif /* not MC_ALLOC */
+ stats->other += MALLOCED_STORAGE_SIZE (b, sizeof (*b), ovstats);
stats->text += compute_buffer_text_usage (b, ovstats);
stats->markers += compute_buffer_marker_usage (b, ovstats);
stats->extents += compute_buffer_extent_usage (b, ovstats);
＠＠ -2204,11 +2194,7 ＠＠ do { \
static void
nuke_all_buffer_slots (struct buffer *b, Lisp_Object zap)
{
-#ifdef MC_ALLOC
- zero_lrecord (b);
-#else /* not MC_ALLOC */
- zero_lcrecord (b);
-#endif /* not MC_ALLOC */
+ ZERO_LCRECORD (b);
b->extent_info = Qnil;
b->indirect_children = Qnil;
＠＠ -2223,13 +2209,8 ＠＠ common_init_complex_vars_of_buffer (void
{
/* Make sure all markable slots in buffer_defaults
are initialized reasonably, so mark_buffer won't choke. */
-#ifdef MC_ALLOC
- struct buffer *defs = alloc_lrecord_type (struct buffer, &lrecord_buffer);
- struct buffer *syms = alloc_lrecord_type (struct buffer, &lrecord_buffer);
-#else /* not MC_ALLOC */
- struct buffer *defs = alloc_lcrecord_type (struct buffer, &lrecord_buffer);
- struct buffer *syms = alloc_lcrecord_type (struct buffer, &lrecord_buffer);
-#endif /* not MC_ALLOC */
+ struct buffer *defs = ALLOC_LCRECORD_TYPE (struct buffer, &lrecord_buffer);
+ struct buffer *syms = ALLOC_LCRECORD_TYPE (struct buffer, &lrecord_buffer);
staticpro_nodump (&Vbuffer_defaults);
staticpro_nodump (&Vbuffer_local_symbols);
Index: src/buffer.h
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/buffer.h,v
retrieving revision 1.32
diff -u -p -r1.32 buffer.h
--- src/buffer.h 2005/04/08 23:11:19 1.32
+++ src/buffer.h 2005/10/24 08:05:20
＠＠ -140,11 +140,7 ＠＠ struct buffer_text
struct buffer
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
/* This structure holds the coordinates of the buffer contents
in ordinary buffers. In indirect buffers, this is not used. */
Index: src/casetab.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/casetab.c,v
retrieving revision 1.16
diff -u -p -r1.16 casetab.c
--- src/casetab.c 2005/04/08 23:11:19 1.16
+++ src/casetab.c 2005/10/24 08:05:20
＠＠ -116,11 +116,7 ＠＠ static Lisp_Object
allocate_case_table (int init_tables)
{
Lisp_Case_Table *ct =
-#ifdef MC_ALLOC
- alloc_lrecord_type (Lisp_Case_Table, &lrecord_case_table);
-#else /* not MC_ALLOC */
- alloc_lcrecord_type (Lisp_Case_Table, &lrecord_case_table);
-#endif /* not MC_ALLOC */
+ ALLOC_LCRECORD_TYPE (Lisp_Case_Table, &lrecord_case_table);
if (init_tables)
{
Index: src/casetab.h
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/casetab.h,v
retrieving revision 1.6
diff -u -p -r1.6 casetab.h
--- src/casetab.h 2005/04/08 23:11:19 1.6
+++ src/casetab.h 2005/10/24 08:05:20
＠＠ -25,11 +25,7 ＠＠ Boston, MA 02111-1307, USA. */
struct Lisp_Case_Table
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
Lisp_Object downcase_table;
Lisp_Object upcase_table;
Lisp_Object case_canon_table;
Index: src/charset.h
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/charset.h,v
retrieving revision 1.11
diff -u -p -r1.11 charset.h
--- src/charset.h 2005/04/08 23:11:20 1.11
+++ src/charset.h 2005/10/24 08:05:20
＠＠ -181,11 +181,7 ＠＠ leading_byte_prefix_p (Ibyte lb)
struct Lisp_Charset
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
int id;
Lisp_Object name;
Index: src/chartab.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/chartab.c,v
retrieving revision 1.36
diff -u -p -r1.36 chartab.c
--- src/chartab.c 2005/04/11 05:15:06 1.36
+++ src/chartab.c 2005/10/24 08:05:20
＠＠ -476,11 +476,7 ＠＠ fill_char_table (Lisp_Char_Table *ct, Li
if (!EQ (ct->level1[i], Qnull_pointer) &&
CHAR_TABLE_ENTRYP (ct->level1[i]) &&
!OBJECT_DUMPED_P (ct->level1[1]))
-#ifdef MC_ALLOC
- free_lrecord (ct->level1[i]);
-#else /* not MC_ALLOC */
- free_lcrecord (ct->level1[i]);
-#endif /* not MC_ALLOC */
+ FREE_LCRECORD (ct->level1[i]);
ct->level1[i] = value;
}
#endif /* MULE */
＠＠ -596,11 +592,7 ＠＠ sorts of values. The different char tab
Lisp_Object obj;
enum char_table_type ty = symbol_to_char_table_type (type);
-#ifdef MC_ALLOC
- ct = alloc_lrecord_type (Lisp_Char_Table, &lrecord_char_table);
-#else /* not MC_ALLOC */
- ct = alloc_lcrecord_type (Lisp_Char_Table, &lrecord_char_table);
-#endif /* not MC_ALLOC */
+ ct = ALLOC_LCRECORD_TYPE (Lisp_Char_Table, &lrecord_char_table);
ct->type = ty;
obj = wrap_char_table (ct);
if (ty == CHAR_TABLE_TYPE_SYNTAX)
＠＠ -633,11 +625,7 ＠＠ make_char_table_entry (Lisp_Object initv
{
int i;
Lisp_Char_Table_Entry *cte =
-#ifdef MC_ALLOC
- alloc_lrecord_type (Lisp_Char_Table_Entry, &lrecord_char_table_entry);
-#else /* not MC_ALLOC */
- alloc_lcrecord_type (Lisp_Char_Table_Entry, &lrecord_char_table_entry);
-#endif /* not MC_ALLOC */
+ ALLOC_LCRECORD_TYPE (Lisp_Char_Table_Entry, &lrecord_char_table_entry);
for (i = 0; i < 96; i++)
cte->level2[i] = initval;
＠＠ -651,11 +639,7 ＠＠ copy_char_table_entry (Lisp_Object entry
Lisp_Char_Table_Entry *cte = XCHAR_TABLE_ENTRY (entry);
int i;
Lisp_Char_Table_Entry *ctenew =
-#ifdef MC_ALLOC
- alloc_lrecord_type (Lisp_Char_Table_Entry, &lrecord_char_table_entry);
-#else /* not MC_ALLOC */
- alloc_lcrecord_type (Lisp_Char_Table_Entry, &lrecord_char_table_entry);
-#endif /* not MC_ALLOC */
+ ALLOC_LCRECORD_TYPE (Lisp_Char_Table_Entry, &lrecord_char_table_entry);
for (i = 0; i < 96; i++)
{
＠＠ -684,11 +668,7 ＠＠ as CHAR-TABLE. The values will not them
CHECK_CHAR_TABLE (char_table);
ct = XCHAR_TABLE (char_table);
-#ifdef MC_ALLOC
- ctnew = alloc_lrecord_type (Lisp_Char_Table, &lrecord_char_table);
-#else /* not MC_ALLOC */
- ctnew = alloc_lcrecord_type (Lisp_Char_Table, &lrecord_char_table);
-#endif /* not MC_ALLOC */
+ ctnew = ALLOC_LCRECORD_TYPE (Lisp_Char_Table, &lrecord_char_table);
ctnew->type = ct->type;
ctnew->parent = ct->parent;
ctnew->default_ = ct->default_;
＠＠ -1080,11 +1060,7 ＠＠ put_char_table (Lisp_Object table, struc
int lb = XCHARSET_LEADING_BYTE (range->charset) - MIN_LEADING_BYTE;
if (CHAR_TABLE_ENTRYP (ct->level1[lb]) &&
!OBJECT_DUMPED_P (ct->level1[lb]))
-#ifdef MC_ALLOC
- free_lrecord (ct->level1[lb]);
-#else /* not MC_ALLOC */
- free_lcrecord (ct->level1[lb]);
-#endif /* not MC_ALLOC */
+ FREE_LCRECORD (ct->level1[lb]);
ct->level1[lb] = val;
}
break;
Index: src/chartab.h
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/chartab.h,v
retrieving revision 1.15
diff -u -p -r1.15 chartab.h
--- src/chartab.h 2005/04/08 23:11:20 1.15
+++ src/chartab.h 2005/10/24 08:05:20
＠＠ -42,11 +42,7 ＠＠ Boston, MA 02111-1307, USA. */
struct Lisp_Char_Table_Entry
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
/* In the interests of simplicity, we just use a fixed 96-entry
table. If we felt like being smarter, we could make this
＠＠ -84,11 +80,7 ＠＠ enum char_table_type
struct Lisp_Char_Table
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
Lisp_Object ascii[NUM_ASCII_CHARS];
Lisp_Object default_;
Index: src/console-impl.h
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/console-impl.h,v
retrieving revision 1.11
diff -u -p -r1.11 console-impl.h
--- src/console-impl.h 2005/09/27 05:48:27 1.11
+++ src/console-impl.h 2005/10/24 08:05:21
＠＠ -412,11 +412,7 ＠＠ struct console_methods * type##_console_
struct console
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
/* Description of this console's methods. */
struct console_methods *conmeths;
Index: src/console-msw-impl.h
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/console-msw-impl.h,v
retrieving revision 1.4
diff -u -p -r1.4 console-msw-impl.h
--- src/console-msw-impl.h 2005/04/08 23:11:21 1.4
+++ src/console-msw-impl.h 2005/10/24 08:05:21
＠＠ -57,11 +57,7 ＠＠ DECLARE_CONSOLE_TYPE (msprinter);
struct Lisp_Devmode
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
/* Pointer to the DEVMODE structure */
DEVMODEW *devmode;
＠＠ -279,11 +275,7 ＠＠ struct msprinter_frame
struct mswindows_dialog_id
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
Lisp_Object frame;
Lisp_Object callbacks;
Index: src/console.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/console.c,v
retrieving revision 1.41
diff -u -p -r1.41 console.c
--- src/console.c 2005/04/08 23:11:21 1.41
+++ src/console.c 2005/10/24 08:05:21
＠＠ -194,18 +194,10 ＠＠ static struct console *
allocate_console (Lisp_Object type)
{
Lisp_Object console;
-#ifdef MC_ALLOC
- struct console *con = alloc_lrecord_type (struct console, &lrecord_console);
-#else /* not MC_ALLOC */
- struct console *con = alloc_lcrecord_type (struct console, &lrecord_console);
-#endif /* not MC_ALLOC */
+ struct console *con = ALLOC_LCRECORD_TYPE (struct console, &lrecord_console);
struct gcpro gcpro1;
-#ifdef MC_ALLOC
- copy_lrecord (con, XCONSOLE (Vconsole_defaults));
-#else /* not MC_ALLOC */
- copy_lcrecord (con, XCONSOLE (Vconsole_defaults));
-#endif /* not MC_ALLOC */
+ COPY_LCRECORD (con, XCONSOLE (Vconsole_defaults));
console = wrap_console (con);
GCPRO1 (console);
＠＠ -670,11 +662,7 ＠＠ find_nonminibuffer_frame_not_on_console
static void
nuke_all_console_slots (struct console *con, Lisp_Object zap)
{
-#ifdef MC_ALLOC
- zero_lrecord (con);
-#else /* not MC_ALLOC */
- zero_lcrecord (con);
-#endif /* not MC_ALLOC */
+ ZERO_LCRECORD (con);
#define MARKED_SLOT(x) con->x = zap;
#include "conslots.h"
＠＠ -1405,13 +1393,8 ＠＠ common_init_complex_vars_of_console (voi
/* Make sure all markable slots in console_defaults
are initialized reasonably, so mark_console won't choke.
*/
-#ifdef MC_ALLOC
- struct console *defs = alloc_lrecord_type (struct console, &lrecord_console);
- struct console *syms = alloc_lrecord_type (struct console, &lrecord_console);
-#else /* not MC_ALLOC */
- struct console *defs = alloc_lcrecord_type (struct console, &lrecord_console);
- struct console *syms = alloc_lcrecord_type (struct console, &lrecord_console);
-#endif /* not MC_ALLOC */
+ struct console *defs = ALLOC_LCRECORD_TYPE (struct console, &lrecord_console);
+ struct console *syms = ALLOC_LCRECORD_TYPE (struct console, &lrecord_console);
staticpro_nodump (&Vconsole_defaults);
staticpro_nodump (&Vconsole_local_symbols);
Index: src/data.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/data.c,v
retrieving revision 1.64
diff -u -p -r1.64 data.c
--- src/data.c 2005/04/08 23:11:21 1.64
+++ src/data.c 2005/10/24 08:05:22
＠＠ -2577,11 +2577,7 ＠＠ make_weak_list (enum weak_list_type type
{
Lisp_Object result;
struct weak_list *wl =
-#ifdef MC_ALLOC
- alloc_lrecord_type (struct weak_list, &lrecord_weak_list);
-#else /* not MC_ALLOC */
- alloc_lcrecord_type (struct weak_list, &lrecord_weak_list);
-#endif /* not MC_ALLOC */
+ ALLOC_LCRECORD_TYPE (struct weak_list, &lrecord_weak_list);
wl->list = Qnil;
wl->type = type;
＠＠ -3056,11 +3052,7 ＠＠ make_weak_box (Lisp_Object value)
Lisp_Object result;
struct weak_box *wb =
-#ifdef MC_ALLOC
- alloc_lrecord_type (struct weak_box, &lrecord_weak_box);
-#else /* not MC_ALLOC */
- alloc_lcrecord_type (struct weak_box, &lrecord_weak_box);
-#endif /* not MC_ALLOC */
+ ALLOC_LCRECORD_TYPE (struct weak_box, &lrecord_weak_box);
wb->value = value;
result = wrap_weak_box (wb);
＠＠ -3283,11 +3275,7 ＠＠ make_ephemeron(Lisp_Object key, Lisp_Obj
struct gcpro gcpro1, gcpro2;
struct ephemeron *eph =
-#ifdef MC_ALLOC
- alloc_lrecord_type (struct ephemeron, &lrecord_ephemeron);
-#else /* not MC_ALLOC */
- alloc_lcrecord_type (struct ephemeron, &lrecord_ephemeron);
-#endif /* not MC_ALLOC */
+ ALLOC_LCRECORD_TYPE (struct ephemeron, &lrecord_ephemeron);
eph->key = Qnil;
eph->cons_chain = Qnil;
Index: src/database.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/database.c,v
retrieving revision 1.35
diff -u -p -r1.35 database.c
--- src/database.c 2005/04/08 23:11:21 1.35
+++ src/database.c 2005/10/24 08:05:22
＠＠ -98,11 +98,7 ＠＠ typedef struct
struct Lisp_Database
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
Lisp_Object fname;
int mode;
int access_;
＠＠ -135,11 +131,7 ＠＠ struct Lisp_Database
static Lisp_Database *
allocate_database (void)
{
-#ifdef MC_ALLOC
- Lisp_Database *db = alloc_lrecord_type (Lisp_Database, &lrecord_database);
-#else /* not MC_ALLOC */
- Lisp_Database *db = alloc_lcrecord_type (Lisp_Database, &lrecord_database);
-#endif /* not MC_ALLOC */
+ Lisp_Database *db = ALLOC_LCRECORD_TYPE (Lisp_Database, &lrecord_database);
db->fname = Qnil;
db->live_p = 0;
Index: src/device-impl.h
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/device-impl.h,v
retrieving revision 1.5
diff -u -p -r1.5 device-impl.h
--- src/device-impl.h 2005/04/08 23:11:21 1.5
+++ src/device-impl.h 2005/10/24 08:05:22
＠＠ -71,11 +71,7 ＠＠ struct pixel_to_glyph_translation_cache
struct device
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
/* Methods for this device's console. This can also be retrieved
through device->console, but it's faster this way. */
Index: src/device-msw.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/device-msw.c,v
retrieving revision 1.57
diff -u -p -r1.57 device-msw.c
--- src/device-msw.c 2005/04/08 23:11:22 1.57
+++ src/device-msw.c 2005/10/24 08:05:22
＠＠ -1188,11 +1188,7 ＠＠ allocate_devmode (DEVMODEW* src_devmode,
{
Lisp_Devmode *dm;
-#ifdef MC_ALLOC
- dm = alloc_lrecord_type (Lisp_Devmode, &lrecord_devmode);
-#else /* not MC_ALLOC */
- dm = alloc_lcrecord_type (Lisp_Devmode, &lrecord_devmode);
-#endif /* not MC_ALLOC */
+ dm = ALLOC_LCRECORD_TYPE (Lisp_Devmode, &lrecord_devmode);
if (d)
dm->device = wrap_device (d);
Index: src/device.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/device.c,v
retrieving revision 1.34
diff -u -p -r1.34 device.c
--- src/device.c 2005/04/08 23:11:22 1.34
+++ src/device.c 2005/10/24 08:05:23
＠＠ -187,11 +187,7 ＠＠ Return a list of valid device classes.
static void
nuke_all_device_slots (struct device *d, Lisp_Object zap)
{
-#ifdef MC_ALLOC
- zero_lrecord (d);
-#else /* not MC_ALLOC */
- zero_lcrecord (d);
-#endif /* not MC_ALLOC */
+ ZERO_LCRECORD (d);
#define MARKED_SLOT(x) d->x = zap;
#include "devslots.h"
＠＠ -201,11 +197,7 ＠＠ static struct device *
allocate_device (Lisp_Object console)
{
Lisp_Object device;
-#ifdef MC_ALLOC
- struct device *d = alloc_lrecord_type (struct device, &lrecord_device);
-#else /* not MC_ALLOC */
- struct device *d = alloc_lcrecord_type (struct device, &lrecord_device);
-#endif /* not MC_ALLOC */
+ struct device *d = ALLOC_LCRECORD_TYPE (struct device, &lrecord_device);
struct gcpro gcpro1;
device = wrap_device (d);
Index: src/dialog-msw.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/dialog-msw.c,v
retrieving revision 1.33
diff -u -p -r1.33 dialog-msw.c
--- src/dialog-msw.c 2005/04/08 23:11:22 1.33
+++ src/dialog-msw.c 2005/10/24 08:05:23
＠＠ -751,13 +751,8 ＠＠ handle_question_dialog_box (struct frame
Lisp_Object dialog_data;
int i;
struct mswindows_dialog_id *did =
-#ifdef MC_ALLOC
- alloc_lrecord_type (struct mswindows_dialog_id,
- &lrecord_mswindows_dialog_id);
-#else /* not MC_ALLOC */
- alloc_lcrecord_type (struct mswindows_dialog_id,
+ ALLOC_LCRECORD_TYPE (struct mswindows_dialog_id,
&lrecord_mswindows_dialog_id);
-#endif /* not MC_ALLOC */
dialog_data = wrap_mswindows_dialog_id (did);
Index: src/elhash.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/elhash.c,v
retrieving revision 1.42
diff -u -p -r1.42 elhash.c
--- src/elhash.c 2005/04/08 23:11:23 1.42
+++ src/elhash.c 2005/10/24 08:05:24
＠＠ -102,11 +102,7 ＠＠ typedef struct htentry
struct Lisp_Hash_Table
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
Elemcount size;
Elemcount count;
Elemcount rehash_count;
＠＠ -554,11 +550,7 ＠＠ make_general_lisp_hash_table (hash_table
enum hash_table_weakness weakness)
{
Lisp_Object hash_table;
-#ifdef MC_ALLOC
- Lisp_Hash_Table *ht = alloc_lrecord_type (Lisp_Hash_Table, &lrecord_hash_table);
-#else /* not MC_ALLOC */
- Lisp_Hash_Table *ht = alloc_lcrecord_type (Lisp_Hash_Table, &lrecord_hash_table);
-#endif /* not MC_ALLOC */
+ Lisp_Hash_Table *ht = ALLOC_LCRECORD_TYPE (Lisp_Hash_Table, &lrecord_hash_table);
ht->test_function = test_function;
ht->hash_function = hash_function;
＠＠ -975,14 +967,8 ＠＠ The keys and values will not themselves
(hash_table))
{
const Lisp_Hash_Table *ht_old = xhash_table (hash_table);
-#ifdef MC_ALLOC
- Lisp_Hash_Table *ht = alloc_lrecord_type (Lisp_Hash_Table, &lrecord_hash_table);
-
- copy_lrecord (ht, ht_old);
-#else /* not MC_ALLOC */
- Lisp_Hash_Table *ht = alloc_lcrecord_type (Lisp_Hash_Table, &lrecord_hash_table);
- copy_lcrecord (ht, ht_old);
-#endif /* not MC_ALLOC */
+ Lisp_Hash_Table *ht = ALLOC_LCRECORD_TYPE (Lisp_Hash_Table, &lrecord_hash_table);
+ COPY_LCRECORD (ht, ht_old);
ht->hentries = xnew_array (htentry, ht_old->size + 1);
memcpy (ht->hentries, ht_old->hentries, (ht_old->size + 1) * sizeof (htentry));
Index: src/events.h
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/events.h,v
retrieving revision 1.41
diff -u -p -r1.41 events.h
--- src/events.h 2005/06/26 18:05:05 1.41
+++ src/events.h 2005/10/24 08:05:24
＠＠ -660,11 +660,7 ＠＠ DECLARE_LRECORD (magic_data, Lisp_Magic_
struct Lisp_Timeout
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
int id; /* Id we use to identify the timeout over its lifetime */
int interval_id; /* Id for this particular interval; this may
be different each time the timeout is
＠＠ -1113,11 +1109,7 ＠＠ void event_stream_unixoid_delete_io_stre
*/
struct command_builder
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
Lisp_Object console; /* back pointer to the console this command
builder is for */
#if 0
Index: src/extents-impl.h
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/extents-impl.h,v
retrieving revision 1.2
diff -u -p -r1.2 extents-impl.h
--- src/extents-impl.h 2005/04/08 23:11:24 1.2
+++ src/extents-impl.h 2005/10/24 08:05:24
＠＠ -103,11 +103,7 ＠＠ struct extent
typedef struct extent_auxiliary extent_auxiliary;
struct extent_auxiliary
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
Lisp_Object begin_glyph;
Lisp_Object end_glyph;
＠＠ -133,11 +129,7 ＠＠ extern struct extent_auxiliary extent_au
struct extent_info
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
struct extent_list *extents;
struct stack_of_extents *soe;
Index: src/extents.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/extents.c,v
retrieving revision 1.60
diff -u -p -r1.60 extents.c
--- src/extents.c 2005/08/01 16:28:21 1.60
+++ src/extents.c 2005/10/24 08:05:26
＠＠ -986,17 +986,9 ＠＠ void
allocate_extent_auxiliary (EXTENT ext)
{
Lisp_Object extent_aux;
-#ifdef MC_ALLOC
struct extent_auxiliary *data =
- alloc_lrecord_type (struct extent_auxiliary, &lrecord_extent_auxiliary);
-
- copy_lrecord (data, &extent_auxiliary_defaults);
-#else /* not MC_ALLOC */
- struct extent_auxiliary *data =
- alloc_lcrecord_type (struct extent_auxiliary, &lrecord_extent_auxiliary);
-
- copy_lcrecord (data, &extent_auxiliary_defaults);
-#endif /* not MC_ALLOC */
+ ALLOC_LCRECORD_TYPE (struct extent_auxiliary, &lrecord_extent_auxiliary);
+ COPY_LCRECORD (data, &extent_auxiliary_defaults);
extent_aux = wrap_extent_auxiliary (data);
ext->plist = Fcons (extent_aux, ext->plist);
ext->flags.has_aux = 1;
＠＠ -1174,11 +1166,7 ＠＠ allocate_extent_info (void)
{
Lisp_Object extent_info;
struct extent_info *data =
-#ifdef MC_ALLOC
- alloc_lrecord_type (struct extent_info, &lrecord_extent_info);
-#else /* not MC_ALLOC */
- alloc_lcrecord_type (struct extent_info, &lrecord_extent_info);
-#endif /* not MC_ALLOC */
+ ALLOC_LCRECORD_TYPE (struct extent_info, &lrecord_extent_info);
extent_info = wrap_extent_info (data);
data->extents = allocate_extent_list ();
＠＠ -3909,19 +3897,11 ＠＠ copy_extent (EXTENT original, Bytexpos f
/* also need to copy the aux struct. It won't work for
this extent to share the same aux struct as the original
one. */
-#ifdef MC_ALLOC
- struct extent_auxiliary *data =
- alloc_lrecord_type (struct extent_auxiliary,
- &lrecord_extent_auxiliary);
-
- copy_lrecord (data, XEXTENT_AUXILIARY (XCAR (original->plist)));
-#else /* not MC_ALLOC */
struct extent_auxiliary *data =
- alloc_lcrecord_type (struct extent_auxiliary,
+ ALLOC_LCRECORD_TYPE (struct extent_auxiliary,
&lrecord_extent_auxiliary);
- copy_lcrecord (data, XEXTENT_AUXILIARY (XCAR (original->plist)));
-#endif /* not MC_ALLOC */
+ COPY_LCRECORD (data, XEXTENT_AUXILIARY (XCAR (original->plist)));
XCAR (e->plist) = wrap_extent_auxiliary (data);
}
Index: src/faces.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/faces.c,v
retrieving revision 1.47
diff -u -p -r1.47 faces.c
--- src/faces.c 2005/07/20 07:36:41 1.47
+++ src/faces.c 2005/10/24 08:05:26
＠＠ -373,11 +373,7 ＠＠ reset_face (Lisp_Face *f)
static Lisp_Face *
allocate_face (void)
{
-#ifdef MC_ALLOC
- Lisp_Face *result = alloc_lrecord_type (Lisp_Face, &lrecord_face);
-#else /* not MC_ALLOC */
- Lisp_Face *result = alloc_lcrecord_type (Lisp_Face, &lrecord_face);
-#endif /* not MC_ALLOC */
+ Lisp_Face *result = ALLOC_LCRECORD_TYPE (Lisp_Face, &lrecord_face);
reset_face (result);
return result;
Index: src/faces.h
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/faces.h,v
retrieving revision 1.13
diff -u -p -r1.13 faces.h
--- src/faces.h 2005/04/08 23:11:25 1.13
+++ src/faces.h 2005/10/24 08:05:27
＠＠ -33,11 +33,7 ＠＠ Boston, MA 02111-1307, USA. */
struct Lisp_Face
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
Lisp_Object name;
Lisp_Object doc_string;
Index: src/file-coding.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/file-coding.c,v
retrieving revision 1.46
diff -u -p -r1.46 file-coding.c
--- src/file-coding.c 2005/06/19 21:08:30 1.46
+++ src/file-coding.c 2005/10/24 08:05:28
＠＠ -1409,11 +1409,7 ＠＠ Use `define-coding-system-alias' instead
{
Lisp_Coding_System *to = XCODING_SYSTEM (new_coding_system);
Lisp_Coding_System *from = XCODING_SYSTEM (old_coding_system);
-#ifdef MC_ALLOC
- copy_sized_lrecord (to, from, sizeof_coding_system (from));
-#else /* not MC_ALLOC */
- copy_sized_lcrecord (to, from, sizeof_coding_system (from));
-#endif /* not MC_ALLOC */
+ COPY_SIZED_LCRECORD (to, from, sizeof_coding_system (from));
to->name = new_name;
}
return new_coding_system;
Index: src/file-coding.h
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/file-coding.h,v
retrieving revision 1.26
diff -u -p -r1.26 file-coding.h
--- src/file-coding.h 2005/04/08 23:11:25 1.26
+++ src/file-coding.h 2005/10/24 08:05:28
＠＠ -188,11 +188,7 ＠＠ enum eol_type
struct Lisp_Coding_System
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
struct coding_system_methods *methods;
#define CODING_SYSTEM_SLOT_DECLARATION
Index: src/frame-impl.h
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/frame-impl.h,v
retrieving revision 1.5
diff -u -p -r1.5 frame-impl.h
--- src/frame-impl.h 2005/04/08 23:11:26 1.5
+++ src/frame-impl.h 2005/10/24 08:05:28
＠＠ -41,11 +41,7 ＠＠ Boston, MA 02111-1307, USA. */
struct frame
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
/* Methods for this frame's console. This can also be retrieved
through frame->device->console, but it's faster this way. */
Index: src/frame.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/frame.c,v
retrieving revision 1.71
diff -u -p -r1.71 frame.c
--- src/frame.c 2005/04/27 09:01:48 1.71
+++ src/frame.c 2005/10/24 08:05:29
＠＠ -259,11 +259,7 ＠＠ DEFINE_LRECORD_IMPLEMENTATION ("frame",
static void
nuke_all_frame_slots (struct frame *f)
{
-#ifdef MC_ALLOC
- zero_lrecord (f);
-#else /* not MC_ALLOC */
- zero_lcrecord (f);
-#endif /* not MC_ALLOC */
+ ZERO_LCRECORD (f);
#define MARKED_SLOT(x) f->x = Qnil;
#include "frameslots.h"
＠＠ -279,11 +275,7 ＠＠ allocate_frame_core (Lisp_Object device)
/* This function can GC */
Lisp_Object frame;
Lisp_Object root_window;
-#ifdef MC_ALLOC
- struct frame *f = alloc_lrecord_type (struct frame, &lrecord_frame);
-#else /* not MC_ALLOC */
- struct frame *f = alloc_lcrecord_type (struct frame, &lrecord_frame);
-#endif /* not MC_ALLOC */
+ struct frame *f = ALLOC_LCRECORD_TYPE (struct frame, &lrecord_frame);
nuke_all_frame_slots (f);
frame = wrap_frame (f);
Index: src/glyphs.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/glyphs.c,v
retrieving revision 1.53
diff -u -p -r1.53 glyphs.c
--- src/glyphs.c 2005/09/27 05:48:25 1.53
+++ src/glyphs.c 2005/10/24 08:05:31
＠＠ -1326,11 +1326,7 ＠＠ allocate_image_instance (Lisp_Object gov
Lisp_Object instantiator)
{
Lisp_Image_Instance *lp =
-#ifdef MC_ALLOC
- alloc_lrecord_type (Lisp_Image_Instance, &lrecord_image_instance);
-#else /* not MC_ALLOC */
- alloc_lcrecord_type (Lisp_Image_Instance, &lrecord_image_instance);
-#endif /* not MC_ALLOC */
+ ALLOC_LCRECORD_TYPE (Lisp_Image_Instance, &lrecord_image_instance);
Lisp_Object val;
/* It's not possible to simply keep a record of the domain in which
＠＠ -1997,11 +1993,7 ＠＠ instance is a mono pixmap; otherwise, th
device-specific method to copy the window-system subobject. */
new_ = allocate_image_instance (XIMAGE_INSTANCE_DOMAIN (image_instance),
Qnil, Qnil);
-#ifdef MC_ALLOC
- copy_lrecord (XIMAGE_INSTANCE (new_), XIMAGE_INSTANCE (image_instance));
-#else /* not MC_ALLOC */
- copy_lcrecord (XIMAGE_INSTANCE (new_), XIMAGE_INSTANCE (image_instance));
-#endif /* not MC_ALLOC */
+ COPY_LCRECORD (XIMAGE_INSTANCE (new_), XIMAGE_INSTANCE (image_instance));
/* note that if this method returns non-zero, this method MUST
copy any window-system resources, so that when one image instance is
freed, the other one is not hosed. */
＠＠ -3814,11 +3806,7 ＠＠ allocate_glyph (enum glyph_type type,
{
/* This function can GC */
Lisp_Object obj = Qnil;
-#ifdef MC_ALLOC
- Lisp_Glyph *g = alloc_lrecord_type (Lisp_Glyph, &lrecord_glyph);
-#else /* not MC_ALLOC */
- Lisp_Glyph *g = alloc_lcrecord_type (Lisp_Glyph, &lrecord_glyph);
-#endif /* not MC_ALLOC */
+ Lisp_Glyph *g = ALLOC_LCRECORD_TYPE (Lisp_Glyph, &lrecord_glyph);
g->type = type;
g->image = Fmake_specifier (Qimage); /* This function can GC */
Index: src/glyphs.h
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/glyphs.h,v
retrieving revision 1.39
diff -u -p -r1.39 glyphs.h
--- src/glyphs.h 2005/04/08 23:11:27 1.39
+++ src/glyphs.h 2005/10/24 08:05:31
＠＠ -594,11 +594,7 ＠＠ struct subwindow_image_instance
struct Lisp_Image_Instance
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
Lisp_Object domain; /* The domain in which we were cached. */
Lisp_Object device; /* The device of the domain. Recorded
since the domain may get deleted
＠＠ -950,11 +946,7 ＠＠ enum glyph_type
struct Lisp_Glyph
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
enum glyph_type type;
Index: src/gui.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/gui.c,v
retrieving revision 1.30
diff -u -p -r1.30 gui.c
--- src/gui.c 2005/04/08 23:11:27 1.30
+++ src/gui.c 2005/10/24 08:05:31
＠＠ -197,11 +197,7 ＠＠ gui_item_init (Lisp_Object gui_item)
Lisp_Object
allocate_gui_item (void)
{
-#ifdef MC_ALLOC
- Lisp_Gui_Item *lp = alloc_lrecord_type (Lisp_Gui_Item, &lrecord_gui_item);
-#else /* not MC_ALLOC */
- Lisp_Gui_Item *lp = alloc_lcrecord_type (Lisp_Gui_Item, &lrecord_gui_item);
-#endif /* not MC_ALLOC */
+ Lisp_Gui_Item *lp = ALLOC_LCRECORD_TYPE (Lisp_Gui_Item, &lrecord_gui_item);
Lisp_Object val;
val = wrap_gui_item (lp);
Index: src/gui.h
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/gui.h,v
retrieving revision 1.19
diff -u -p -r1.19 gui.h
--- src/gui.h 2005/04/08 23:11:27 1.19
+++ src/gui.h 2005/10/24 08:05:31
＠＠ -44,11 +44,7 ＠＠ extern int popup_up_p;
menu item or submenu properties */
struct Lisp_Gui_Item
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
Lisp_Object name; /* String */
Lisp_Object callback; /* Symbol or form */
Lisp_Object callback_ex; /* Form taking context arguments */
Index: src/keymap.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/keymap.c,v
retrieving revision 1.57
diff -u -p -r1.57 keymap.c
--- src/keymap.c 2005/07/17 20:08:48 1.57
+++ src/keymap.c 2005/10/24 08:05:33
＠＠ -148,11 +148,7 ＠＠ Boston, MA 02111-1307, USA. */
struct Lisp_Keymap
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
Lisp_Object parents; /* Keymaps to be searched after this one.
An ordered list */
Lisp_Object prompt; /* Qnil or a string to print in the minibuffer
＠＠ -760,11 +756,7 ＠＠ static Lisp_Object
make_keymap (Elemcount size)
{
Lisp_Object result;
-#ifdef MC_ALLOC
- Lisp_Keymap *keymap = alloc_lrecord_type (Lisp_Keymap, &lrecord_keymap);
-#else /* not MC_ALLOC */
- Lisp_Keymap *keymap = alloc_lcrecord_type (Lisp_Keymap, &lrecord_keymap);
-#endif /* not MC_ALLOC */
+ Lisp_Keymap *keymap = ALLOC_LCRECORD_TYPE (Lisp_Keymap, &lrecord_keymap);
result = wrap_keymap (keymap);
Index: src/lisp.h
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/lisp.h,v
retrieving revision 1.131
diff -u -p -r1.131 lisp.h
--- src/lisp.h 2005/09/27 05:29:45 1.131
+++ src/lisp.h 2005/10/24 08:05:34
＠＠ -2372,11 +2372,7 ＠＠ DECLARE_MODULE_API_LRECORD (string, Lisp
struct Lisp_Vector
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
long size;
Lisp_Object contents[1];
};
＠＠ -2413,11 +2409,7 ＠＠ DECLARE_LRECORD (vector, Lisp_Vector);
struct Lisp_Bit_Vector
{
-#ifdef MC_ALLOC
- struct lrecord_header lheader;
-#else /* MC_ALLOC */
- struct lcrecord_header lheader;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER lheader;
Elemcount size;
unsigned long bits[1];
};
＠＠ -2778,11 +2770,7 ＠＠ void define_structure_type_keyword (stru
struct weak_box
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
Lisp_Object value;
Lisp_Object next_weak_box; /* don't mark through this! */
＠＠ -2804,11 +2792,7 ＠＠ DECLARE_LRECORD (weak_box, struct weak_b
struct ephemeron
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
Lisp_Object key;
＠＠ -2867,11 +2851,7 ＠＠ enum weak_list_type
struct weak_list
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
Lisp_Object list; /* don't mark through this! */
enum weak_list_type type;
Lisp_Object next_weak; /* don't mark through this! */
Index: src/lrecord.h
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/lrecord.h,v
retrieving revision 1.39
diff -u -p -r1.39 lrecord.h
--- src/lrecord.h 2005/10/14 01:22:00 1.39
+++ src/lrecord.h 2005/10/24 08:05:35
＠＠ -1,6 +1,6 ＠＠
/* The "lrecord" structure (header of a compound lisp object).
Copyright (C) 1993, 1994, 1995 Free Software Foundation, Inc.
- Copyright (C) 1996, 2001, 2002, 2004 Ben Wing.
+ Copyright (C) 1996, 2001, 2002, 2004, 2005 Ben Wing.
This file is part of XEmacs.
＠＠ -659,11 +659,7 ＠＠ void dec_lrecord_stats (Bytecount size_i
struct Lisp_Hash_Table
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else
- struct lcrecord_header header;
-#endif
+ struct LCRECORD_HEADER header;
Elemcount size;
Elemcount count;
Elemcount rehash_count;
＠＠ -728,11 +724,7 ＠＠ void dec_lrecord_stats (Bytecount size_i
struct Lisp_Specifier
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else
- struct lcrecord_header header;
-#endif
+ struct LCRECORD_HEADER header;
struct specifier_methods *methods;
...
＠＠ -1206,11 +1198,7 ＠＠ extern MODULE_API Lisp_Object (*lrecord_
1. Declare the struct for your object in a header file somewhere.
Remember that it must begin with
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else
- struct lcrecord_header header;
-#endif
+ struct LCRECORD_HEADER header;
2. Put the "standard junk" (DECLARE_RECORD()/XFOO/etc.) below the
struct definition -- see below.
＠＠ -1244,11 +1232,7 ＠＠ An example:
struct toolbar_button
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else
- struct lcrecord_header header;
-#endif
+ struct LCRECORD_HEADER header;
Lisp_Object next;
Lisp_Object frame;
＠＠ -1618,6 +1602,7 ＠＠ void free_managed_lcrecord (Lisp_Object
MODULE_API void *
alloc_automanaged_lcrecord (Bytecount size,
const struct lrecord_implementation *);
+
#define alloc_lcrecord_type(type, lrecord_implementation) \
((type *) alloc_automanaged_lcrecord (sizeof (type), lrecord_implementation))
＠＠ -1681,14 +1666,14 ＠＠ void free_lrecord (Lisp_Object rec);
#define copy_lrecord(dst, src) copy_sized_lrecord (dst, src, sizeof (*(dst)))
+#endif /* MC_ALLOC */
+
#define zero_sized_lrecord(lcr, size) \
memset ((char *) (lcr) + sizeof (struct lrecord_header), 0, \
(size) - sizeof (struct lrecord_header))
#define zero_lrecord(lcr) zero_sized_lrecord (lcr, sizeof (*(lcr)))
-#endif /* MC_ALLOC */
-
DECLARE_INLINE_HEADER (
Bytecount
detagged_lisp_object_size (const struct lrecord_header *h)
＠＠ -1708,6 +1693,27 ＠＠ lisp_object_size (Lisp_Object o)
{
return detagged_lisp_object_size (XRECORD_LHEADER (o));
}
+
+#ifdef MC_ALLOC
+#define ALLOC_LCRECORD_TYPE alloc_lrecord_type
+#define COPY_SIZED_LCRECORD copy_sized_lrecord
+#define COPY_LCRECORD copy_lrecord
+#define MALLOCED_STORAGE_SIZE(ptr, size, stats) \
+ mc_alloced_storage_size (size, stats)
+#define ZERO_LCRECORD zero_lrecord
+#define LCRECORD_HEADER lrecord_header
+#define BASIC_ALLOC_LCRECORD alloc_lrecord
+#define FREE_LCRECORD free_lrecord
+#else
+#define ALLOC_LCRECORD_TYPE alloc_lcrecord_type
+#define COPY_SIZED_LCRECORD copy_sized_lcrecord
+#define COPY_LCRECORD copy_lcrecord
+#define MALLOCED_STORAGE_SIZE malloced_storage_size
+#define ZERO_LCRECORD zero_lcrecord
+#define LCRECORD_HEADER lcrecord_header
+#define BASIC_ALLOC_LCRECORD basic_alloc_lcrecord
+#define FREE_LCRECORD free_lcrecord
+#endif
/************************************************************************/
Index: src/lstream.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/lstream.c,v
retrieving revision 1.34
diff -u -p -r1.34 lstream.c
--- src/lstream.c 2005/04/08 23:11:29 1.34
+++ src/lstream.c 2005/10/24 08:05:35
＠＠ -220,6 +220,7 ＠＠ Lstream_new (const Lstream_implementatio
}
p = XLSTREAM (alloc_managed_lcrecord (Vlstream_free_list[i]));
+#define COPY_SIZED_LCRECORD copy_sized_lcrecord
#endif /* not MC_ALLOC */
/* Zero it out, except the header. */
memset ((char *) p + sizeof (p->header), '\0',
Index: src/lstream.h
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/lstream.h,v
retrieving revision 1.19
diff -u -p -r1.19 lstream.h
--- src/lstream.h 2005/04/08 23:11:29 1.19
+++ src/lstream.h 2005/10/24 08:05:36
＠＠ -230,11 +230,7 ＠＠ typedef struct lstream_implementation
struct lstream
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
const Lstream_implementation *imp; /* methods for this stream */
Lstream_buffering buffering; /* type of buffering in use */
Bytecount buffering_size; /* number of bytes buffered */
Index: src/mule-charset.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/mule-charset.c,v
retrieving revision 1.43
diff -u -p -r1.43 mule-charset.c
--- src/mule-charset.c 2005/05/15 16:38:13 1.43
+++ src/mule-charset.c 2005/10/24 08:05:36
＠＠ -197,11 +197,7 ＠＠ make_charset (int id, Lisp_Object name,
if (!overwrite)
{
-#ifdef MC_ALLOC
- cs = alloc_lrecord_type (Lisp_Charset, &lrecord_charset);
-#else /* not MC_ALLOC */
- cs = alloc_lcrecord_type (Lisp_Charset, &lrecord_charset);
-#endif /* not MC_ALLOC */
+ cs = ALLOC_LCRECORD_TYPE (Lisp_Charset, &lrecord_charset);
obj = wrap_charset (cs);
if (final)
＠＠ -884,11 +880,7 ＠＠ compute_charset_usage (Lisp_Object chars
{
struct Lisp_Charset *c = XCHARSET (charset);
xzero (*stats);
-#ifdef MC_ALLOC
- stats->other += mc_alloced_storage_size (sizeof (*c), ovstats);
-#else /* not MC_ALLOC */
- stats->other += malloced_storage_size (c, sizeof (*c), ovstats);
-#endif /* not MC_ALLOC */
+ stats->other += MALLOCED_STORAGE_SIZE (c, sizeof (*c), ovstats);
stats->from_unicode += compute_from_unicode_table_size (charset, ovstats);
stats->to_unicode += compute_to_unicode_table_size (charset, ovstats);
}
Index: src/objects-impl.h
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/objects-impl.h,v
retrieving revision 1.4
diff -u -p -r1.4 objects-impl.h
--- src/objects-impl.h 2005/04/08 23:11:30 1.4
+++ src/objects-impl.h 2005/10/24 08:05:36
＠＠ -99,11 +99,7 ＠＠ extern Lisp_Object Qface_boolean;
struct Lisp_Color_Instance
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
Lisp_Object name;
Lisp_Object device;
＠＠ -123,11 +119,7 ＠＠ struct Lisp_Color_Instance
struct Lisp_Font_Instance
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
Lisp_Object name; /* the instantiator used to create the font instance */
Lisp_Object truename; /* used by the device-specific methods; we need to
call them to get the truename (#### in reality,
Index: src/objects.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/objects.c,v
retrieving revision 1.28
diff -u -p -r1.28 objects.c
--- src/objects.c 2005/04/08 23:11:30 1.28
+++ src/objects.c 2005/10/24 08:05:36
＠＠ -178,11 +178,7 ＠＠ is deallocated as well.
CHECK_STRING (name);
device = wrap_device (decode_device (device));
-#ifdef MC_ALLOC
- c = alloc_lrecord_type (Lisp_Color_Instance, &lrecord_color_instance);
-#else /* not MC_ALLOC */
- c = alloc_lcrecord_type (Lisp_Color_Instance, &lrecord_color_instance);
-#endif /* not MC_ALLOC */
+ c = ALLOC_LCRECORD_TYPE (Lisp_Color_Instance, &lrecord_color_instance);
c->name = name;
c->device = device;
c->data = 0;
＠＠ -391,11 +387,7 ＠＠ these objects are GCed, the underlying X
device = wrap_device (decode_device (device));
-#ifdef MC_ALLOC
- f = alloc_lrecord_type (Lisp_Font_Instance, &lrecord_font_instance);
-#else /* not MC_ALLOC */
- f = alloc_lcrecord_type (Lisp_Font_Instance, &lrecord_font_instance);
-#endif /* not MC_ALLOC */
+ f = ALLOC_LCRECORD_TYPE (Lisp_Font_Instance, &lrecord_font_instance);
f->name = name;
f->truename = Qnil;
f->device = device;
＠＠ -1206,11 +1198,7 ＠＠ reinit_vars_of_objects (void)
staticpro_nodump (&Vthe_null_color_instance);
{
Lisp_Color_Instance *c =
-#ifdef MC_ALLOC
- alloc_lrecord_type (Lisp_Color_Instance, &lrecord_color_instance);
-#else /* not MC_ALLOC */
- alloc_lcrecord_type (Lisp_Color_Instance, &lrecord_color_instance);
-#endif /* not MC_ALLOC */
+ ALLOC_LCRECORD_TYPE (Lisp_Color_Instance, &lrecord_color_instance);
c->name = Qnil;
c->device = Qnil;
c->data = 0;
＠＠ -1221,11 +1209,7 ＠＠ reinit_vars_of_objects (void)
staticpro_nodump (&Vthe_null_font_instance);
{
Lisp_Font_Instance *f =
-#ifdef MC_ALLOC
- alloc_lrecord_type (Lisp_Font_Instance, &lrecord_font_instance);
-#else /* not MC_ALLOC */
- alloc_lcrecord_type (Lisp_Font_Instance, &lrecord_font_instance);
-#endif /* not MC_ALLOC */
+ ALLOC_LCRECORD_TYPE (Lisp_Font_Instance, &lrecord_font_instance);
f->name = Qnil;
f->truename = Qnil;
f->device = Qnil;
Index: src/opaque.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/opaque.c,v
retrieving revision 1.20
diff -u -p -r1.20 opaque.c
--- src/opaque.c 2005/04/08 23:11:30 1.20
+++ src/opaque.c 2005/10/24 08:05:36
＠＠ -75,11 +75,7 ＠＠ Lisp_Object
make_opaque (const void *data, Bytecount size)
{
Lisp_Opaque *p = (Lisp_Opaque *)
-#ifdef MC_ALLOC
- alloc_lrecord (aligned_sizeof_opaque (size), &lrecord_opaque);
-#else /* not MC_ALLOC */
- basic_alloc_lcrecord (aligned_sizeof_opaque (size), &lrecord_opaque);
-#endif /* not MC_ALLOC */
+ BASIC_ALLOC_LCRECORD (aligned_sizeof_opaque (size), &lrecord_opaque);
p->size = size;
if (data == OPAQUE_CLEAR)
Index: src/opaque.h
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/opaque.h,v
retrieving revision 1.10
diff -u -p -r1.10 opaque.h
--- src/opaque.h 2005/04/08 23:11:30 1.10
+++ src/opaque.h 2005/10/24 08:05:36
＠＠ -28,11 +28,7 ＠＠ Boston, MA 02111-1307, USA. */
typedef struct Lisp_Opaque
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
Bytecount size;
max_align_t data[1];
} Lisp_Opaque;
＠＠ -58,11 +54,7 ＠＠ Lisp_Object make_opaque (const void *dat
typedef struct Lisp_Opaque_Ptr
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
void *ptr;
} Lisp_Opaque_Ptr;
Index: src/print.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/print.c,v
retrieving revision 1.54
diff -u -p -r1.54 print.c
--- src/print.c 2005/04/14 09:44:27 1.54
+++ src/print.c 2005/10/24 08:05:37
＠＠ -1453,13 +1453,7 ＠＠ static void
default_object_printer (Lisp_Object obj, Lisp_Object printcharfun,
int UNUSED (escapeflag))
{
-#ifdef MC_ALLOC
- struct lrecord_header *header =
- (struct lrecord_header *) XPNTR (obj);
-#else /* not MC_ALLOC */
- struct lcrecord_header *header =
- (struct lcrecord_header *) XPNTR (obj);
-#endif /* not MC_ALLOC */
+ struct LCRECORD_HEADER *header = (struct LCRECORD_HEADER *) XPNTR (obj);
if (print_readably)
printing_unreadable_object
Index: src/process.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/process.c,v
retrieving revision 1.67
diff -u -p -r1.67 process.c
--- src/process.c 2005/04/08 23:11:31 1.67
+++ src/process.c 2005/10/24 08:05:38
＠＠ -483,11 +483,7 ＠＠ make_process_internal (Lisp_Object name)
{
Lisp_Object val, name1;
int i;
-#ifdef MC_ALLOC
- Lisp_Process *p = alloc_lrecord_type (Lisp_Process, &lrecord_process);
-#else /* not MC_ALLOC */
- Lisp_Process *p = alloc_lcrecord_type (Lisp_Process, &lrecord_process);
-#endif /* not MC_ALLOC */
+ Lisp_Process *p = ALLOC_LCRECORD_TYPE (Lisp_Process, &lrecord_process);
#define MARKED_SLOT(x) p->x = Qnil;
#include "process-slots.h"
Index: src/procimpl.h
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/procimpl.h,v
retrieving revision 1.13
diff -u -p -r1.13 procimpl.h
--- src/procimpl.h 2005/04/08 23:11:31 1.13
+++ src/procimpl.h 2005/10/24 08:05:38
＠＠ -94,11 +94,7 ＠＠ extern struct process_methods the_proces
struct Lisp_Process
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
/* Exit code if process has terminated,
signal which stopped/interrupted process
Index: src/rangetab.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/rangetab.c,v
retrieving revision 1.24
diff -u -p -r1.24 rangetab.c
--- src/rangetab.c 2005/09/26 08:29:31 1.24
+++ src/rangetab.c 2005/10/24 08:05:38
＠＠ -328,13 +328,8 ＠＠ Range tables allow you to efficiently se
*/
(type))
{
-#ifdef MC_ALLOC
- Lisp_Range_Table *rt = alloc_lrecord_type (Lisp_Range_Table,
- &lrecord_range_table);
-#else /* not MC_ALLOC */
- Lisp_Range_Table *rt = alloc_lcrecord_type (Lisp_Range_Table,
+ Lisp_Range_Table *rt = ALLOC_LCRECORD_TYPE (Lisp_Range_Table,
&lrecord_range_table);
-#endif /* not MC_ALLOC */
rt->entries = Dynarr_new (range_table_entry);
rt->type = range_table_symbol_to_type (type);
return wrap_range_table (rt);
＠＠ -352,11 +347,7 ＠＠ The values will not themselves be copied
CHECK_RANGE_TABLE (range_table);
rt = XRANGE_TABLE (range_table);
-#ifdef MC_ALLOC
- rtnew = alloc_lrecord_type (Lisp_Range_Table, &lrecord_range_table);
-#else /* not MC_ALLOC */
- rtnew = alloc_lcrecord_type (Lisp_Range_Table, &lrecord_range_table);
-#endif /* not MC_ALLOC */
+ rtnew = ALLOC_LCRECORD_TYPE (Lisp_Range_Table, &lrecord_range_table);
rtnew->entries = Dynarr_new (range_table_entry);
rtnew->type = rt->type;
Index: src/rangetab.h
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/rangetab.h,v
retrieving revision 1.7
diff -u -p -r1.7 rangetab.h
--- src/rangetab.h 2005/04/08 23:11:31 1.7
+++ src/rangetab.h 2005/10/24 08:05:38
＠＠ -49,11 +49,7 ＠＠ enum range_table_type
struct Lisp_Range_Table
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
range_table_entry_dynarr *entries;
enum range_table_type type;
};
Index: src/scrollbar-gtk.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/scrollbar-gtk.c,v
retrieving revision 1.17
diff -u -p -r1.17 scrollbar-gtk.c
--- src/scrollbar-gtk.c 2005/04/08 23:11:31 1.17
+++ src/scrollbar-gtk.c 2005/10/24 08:05:38
＠＠ -484,11 +484,7 ＠＠ gtk_compute_scrollbar_instance_usage (st
struct gtk_scrollbar_data *data =
(struct gtk_scrollbar_data *) inst->scrollbar_data;
-#ifdef MC_ALLOC
- total += mc_alloced_storage_size (sizeof (*data), ovstats);
-#else /* not MC_ALLOC */
- total += malloced_storage_size (data, sizeof (*data), ovstats);
-#endif /* not MC_ALLOC */
+ total += MALLOCED_STORAGE_SIZE (data, sizeof (*data), ovstats);
inst = inst->next;
}
Index: src/scrollbar-msw.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/scrollbar-msw.c,v
retrieving revision 1.29
diff -u -p -r1.29 scrollbar-msw.c
--- src/scrollbar-msw.c 2005/04/08 23:11:32 1.29
+++ src/scrollbar-msw.c 2005/10/24 08:05:38
＠＠ -433,11 +433,7 ＠＠ mswindows_compute_scrollbar_instance_usa
struct mswindows_scrollbar_data *data =
(struct mswindows_scrollbar_data *) inst->scrollbar_data;
-#ifdef MC_ALLOC
- total += mc_alloced_storage_size (sizeof (*data), ovstats);
-#else /* not MC_ALLOC */
- total += malloced_storage_size (data, sizeof (*data), ovstats);
-#endif /* not MC_ALLOC */
+ total += MALLOCED_STORAGE_SIZE (data, sizeof (*data), ovstats);
inst = inst->next;
}
Index: src/scrollbar-x.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/scrollbar-x.c,v
retrieving revision 1.29
diff -u -p -r1.29 scrollbar-x.c
--- src/scrollbar-x.c 2005/04/08 23:11:32 1.29
+++ src/scrollbar-x.c 2005/10/24 08:05:39
＠＠ -703,14 +703,9 ＠＠ x_compute_scrollbar_instance_usage (stru
struct x_scrollbar_data *data =
(struct x_scrollbar_data *) inst->scrollbar_data;
-#ifdef MC_ALLOC
- total += mc_alloced_storage_size (sizeof (*data), ovstats);
- total += mc_alloced_storage_size (1 + strlen (data->name), ovstats);
-#else /* not MC_ALLOC */
- total += malloced_storage_size (data, sizeof (*data), ovstats);
- total += malloced_storage_size (data->name, 1 + strlen (data->name),
+ total += MALLOCED_STORAGE_SIZE (data, sizeof (*data), ovstats);
+ total += MALLOCED_STORAGE_SIZE (data->name, 1 + strlen (data->name),
ovstats);
-#endif /* not MC_ALLOC */
inst = inst->next;
}
Index: src/scrollbar.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/scrollbar.c,v
retrieving revision 1.34
diff -u -p -r1.34 scrollbar.c
--- src/scrollbar.c 2005/04/08 23:11:32 1.34
+++ src/scrollbar.c 2005/10/24 08:05:39
＠＠ -199,13 +199,8 ＠＠ create_scrollbar_instance (struct frame
{
struct device *d = XDEVICE (f->device);
struct scrollbar_instance *instance =
-#ifdef MC_ALLOC
- alloc_lrecord_type (struct scrollbar_instance,
- &lrecord_scrollbar_instance);
-#else /* not MC_ALLOC */
- alloc_lcrecord_type (struct scrollbar_instance,
+ ALLOC_LCRECORD_TYPE (struct scrollbar_instance,
&lrecord_scrollbar_instance);
-#endif /* not MC_ALLOC */
MAYBE_DEVMETH (d, create_scrollbar_instance, (f, vertical, instance));
＠＠ -277,11 +272,7 ＠＠ compute_scrollbar_instance_usage (struct
while (inst)
{
-#ifdef MC_ALLOC
- total += mc_alloced_storage_size (sizeof (*inst), ovstats);
-#else /* not MC_ALLOC */
- total += malloced_storage_size (inst, sizeof (*inst), ovstats);
-#endif /* not MC_ALLOC */
+ total += MALLOCED_STORAGE_SIZE (inst, sizeof (*inst), ovstats);
inst = inst->next;
}
Index: src/scrollbar.h
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/scrollbar.h,v
retrieving revision 1.6
diff -u -p -r1.6 scrollbar.h
--- src/scrollbar.h 2005/04/08 23:11:32 1.6
+++ src/scrollbar.h 2005/10/24 08:05:39
＠＠ -27,11 +27,7 ＠＠ Boston, MA 02111-1307, USA. */
struct scrollbar_instance
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
/* Used by the frame caches. */
struct scrollbar_instance *next;
Index: src/specifier.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/specifier.c,v
retrieving revision 1.41
diff -u -p -r1.41 specifier.c
--- src/specifier.c 2005/09/26 08:41:51 1.41
+++ src/specifier.c 2005/10/24 08:05:40
＠＠ -493,13 +493,8 ＠＠ make_specifier_internal (struct specifie
{
Lisp_Object specifier;
Lisp_Specifier *sp = (Lisp_Specifier *)
-#ifdef MC_ALLOC
- alloc_lrecord (aligned_sizeof_specifier (data_size),
- &lrecord_specifier);
-#else /* not MC_ALLOC */
- basic_alloc_lcrecord (aligned_sizeof_specifier (data_size),
+ BASIC_ALLOC_LCRECORD (aligned_sizeof_specifier (data_size),
&lrecord_specifier);
-#endif /* not MC_ALLOC */
sp->methods = spec_meths;
sp->global_specs = Qnil;
Index: src/specifier.h
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/specifier.h,v
retrieving revision 1.17
diff -u -p -r1.17 specifier.h
--- src/specifier.h 2005/04/08 23:11:33 1.17
+++ src/specifier.h 2005/10/24 08:05:40
＠＠ -216,11 +216,7 ＠＠ struct specifier_methods
struct Lisp_Specifier
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
struct specifier_methods *methods;
/* we keep a chained list of all current specifiers, for GC cleanup
Index: src/symbols.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/symbols.c,v
retrieving revision 1.52
diff -u -p -r1.52 symbols.c
--- src/symbols.c 2005/10/14 01:22:01 1.52
+++ src/symbols.c 2005/10/24 08:05:41
＠＠ -2187,13 +2187,8 ＠＠ sets it.
{
struct symbol_value_buffer_local *bfwd
-#ifdef MC_ALLOC
- = alloc_lrecord_type (struct symbol_value_buffer_local,
- &lrecord_symbol_value_buffer_local);
-#else /* not MC_ALLOC */
- = alloc_lcrecord_type (struct symbol_value_buffer_local,
+ = ALLOC_LCRECORD_TYPE (struct symbol_value_buffer_local,
&lrecord_symbol_value_buffer_local);
-#endif /* not MC_ALLOC */
Lisp_Object foo;
bfwd->magic.type = SYMVAL_BUFFER_LOCAL;
＠＠ -2300,13 +2295,8 ＠＠ Use `make-local-hook' instead.
}
/* Make sure variable is set up to hold per-buffer values */
-#ifdef MC_ALLOC
- bfwd = alloc_lrecord_type (struct symbol_value_buffer_local,
- &lrecord_symbol_value_buffer_local);
-#else /* not MC_ALLOC */
- bfwd = alloc_lcrecord_type (struct symbol_value_buffer_local,
+ bfwd = ALLOC_LCRECORD_TYPE (struct symbol_value_buffer_local,
&lrecord_symbol_value_buffer_local);
-#endif /* not MC_ALLOC */
bfwd->magic.type = SYMVAL_SOME_BUFFER_LOCAL;
bfwd->current_buffer = Qnil;
＠＠ -3025,13 +3015,8 ＠＠ pity, thereby invalidating your code.
valcontents = XSYMBOL (variable)->value;
if (!SYMBOL_VALUE_LISP_MAGIC_P (valcontents))
{
-#ifdef MC_ALLOC
- bfwd = alloc_lrecord_type (struct symbol_value_lisp_magic,
- &lrecord_symbol_value_lisp_magic);
-#else /* MC_ALLOC */
- bfwd = alloc_lcrecord_type (struct symbol_value_lisp_magic,
+ bfwd = ALLOC_LCRECORD_TYPE (struct symbol_value_lisp_magic,
&lrecord_symbol_value_lisp_magic);
-#endif /* not MC_ALLOC */
bfwd->magic.type = SYMVAL_LISP_MAGIC;
for (i = 0; i < MAGIC_HANDLER_MAX; i++)
{
＠＠ -3166,13 +3151,8 ＠＠ has a buffer-local value in any buffer,
invalid_change ("Variable is magic and cannot be aliased", variable);
reject_constant_symbols (variable, Qunbound, 0, Qt);
-#ifdef MC_ALLOC
- bfwd = alloc_lrecord_type (struct symbol_value_varalias,
- &lrecord_symbol_value_varalias);
-#else /* not MC_ALLOC */
- bfwd = alloc_lcrecord_type (struct symbol_value_varalias,
+ bfwd = ALLOC_LCRECORD_TYPE (struct symbol_value_varalias,
&lrecord_symbol_value_varalias);
-#endif /* not MC_ALLOC */
bfwd->magic.type = SYMVAL_VARALIAS;
bfwd->aliasee = alias;
bfwd->shadowed = valcontents;
Index: src/symeval.h
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/symeval.h,v
retrieving revision 1.14
diff -u -p -r1.14 symeval.h
--- src/symeval.h 2005/06/16 19:59:35 1.14
+++ src/symeval.h 2005/10/24 08:05:41
＠＠ -77,11 +77,7 ＠＠ typedef EMACS_INT Fixnum;
struct symbol_value_magic
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header lcheader;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
void *value;
enum symbol_value_type type;
};
Index: src/toolbar.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/toolbar.c,v
retrieving revision 1.35
diff -u -p -r1.35 toolbar.c
--- src/toolbar.c 2005/04/08 23:11:34 1.35
+++ src/toolbar.c 2005/10/24 08:05:41
＠＠ -303,11 +303,7 ＠＠ update_toolbar_button (struct frame *f,
if (!tb)
{
-#ifdef MC_ALLOC
- tb = alloc_lrecord_type (struct toolbar_button, &lrecord_toolbar_button);
-#else /* not MC_ALLOC */
- tb = alloc_lcrecord_type (struct toolbar_button, &lrecord_toolbar_button);
-#endif /* not MC_ALLOC */
+ tb = ALLOC_LCRECORD_TYPE (struct toolbar_button, &lrecord_toolbar_button);
tb->next = Qnil;
tb->frame = wrap_frame (f);
tb->up_glyph = Qnil;
Index: src/toolbar.h
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/toolbar.h,v
retrieving revision 1.14
diff -u -p -r1.14 toolbar.h
--- src/toolbar.h 2005/04/08 23:11:34 1.14
+++ src/toolbar.h 2005/10/24 08:05:41
＠＠ -38,11 +38,7 ＠＠ Boston, MA 02111-1307, USA. */
struct toolbar_button
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
Lisp_Object next;
Lisp_Object frame;
Index: src/tooltalk.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/tooltalk.c,v
retrieving revision 1.34
diff -u -p -r1.34 tooltalk.c
--- src/tooltalk.c 2005/06/28 11:32:15 1.34
+++ src/tooltalk.c 2005/10/24 08:05:42
＠＠ -147,11 +147,7 ＠＠ Lisp_Object Qtooltalk_messagep;
struct Lisp_Tooltalk_Message
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
Lisp_Object plist_sym, callback;
Tt_message m;
};
＠＠ -195,11 +191,7 ＠＠ make_tooltalk_message (Tt_message m)
{
Lisp_Object val;
Lisp_Tooltalk_Message *msg =
-#ifdef MC_ALLOC
- alloc_lrecord_type (Lisp_Tooltalk_Message, &lrecord_tooltalk_message);
-#else /* not MC_ALLOC */
- alloc_lcrecord_type (Lisp_Tooltalk_Message, &lrecord_tooltalk_message);
-#endif /* not MC_ALLOC */
+ ALLOC_LCRECORD_TYPE (Lisp_Tooltalk_Message, &lrecord_tooltalk_message);
msg->m = m;
msg->callback = Qnil;
＠＠ -233,11 +225,7 ＠＠ Lisp_Object Qtooltalk_patternp;
struct Lisp_Tooltalk_Pattern
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
Lisp_Object plist_sym, callback;
Tt_pattern p;
};
＠＠ -280,11 +268,7 ＠＠ static Lisp_Object
make_tooltalk_pattern (Tt_pattern p)
{
Lisp_Tooltalk_Pattern *pat =
-#ifdef MC_ALLOC
- alloc_lrecord_type (Lisp_Tooltalk_Pattern, &lrecord_tooltalk_pattern);
-#else /* not MC_ALLOC */
- alloc_lcrecord_type (Lisp_Tooltalk_Pattern, &lrecord_tooltalk_pattern);
-#endif /* not MC_ALLOC */
+ ALLOC_LCRECORD_TYPE (Lisp_Tooltalk_Pattern, &lrecord_tooltalk_pattern);
Lisp_Object val;
pat->p = p;
Index: src/ui-gtk.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ui-gtk.c,v
retrieving revision 1.23
diff -u -p -r1.23 ui-gtk.c
--- src/ui-gtk.c 2005/04/08 23:11:34 1.23
+++ src/ui-gtk.c 2005/10/24 08:05:42
＠＠ -280,11 +280,7 ＠＠ import_gtk_type (GtkType t)
static emacs_ffi_data *
allocate_ffi_data (void)
{
-#ifdef MC_ALLOC
- emacs_ffi_data *data = alloc_lrecord_type (emacs_ffi_data, &lrecord_emacs_ffi);
-#else /* not MC_ALLOC */
- emacs_ffi_data *data = alloc_lcrecord_type (emacs_ffi_data, &lrecord_emacs_ffi);
-#endif /* not MC_ALLOC */
+ emacs_ffi_data *data = ALLOC_LCRECORD_TYPE (emacs_ffi_data, &lrecord_emacs_ffi);
data->return_type = GTK_TYPE_NONE;
data->n_args = 0;
＠＠ -948,13 +944,8 ＠＠ DEFINE_LRECORD_IMPLEMENTATION_WITH_PROPS
static emacs_gtk_object_data *
allocate_emacs_gtk_object_data (void)
{
-#ifdef MC_ALLOC
- emacs_gtk_object_data *data = alloc_lrecord_type (emacs_gtk_object_data,
- &lrecord_emacs_gtk_object);
-#else /* not MC_ALLOC */
- emacs_gtk_object_data *data = alloc_lcrecord_type (emacs_gtk_object_data,
+ emacs_gtk_object_data *data = ALLOC_LCRECORD_TYPE (emacs_gtk_object_data,
&lrecord_emacs_gtk_object);
-#endif /* not MC_ALLOC */
data->object = NULL;
data->alive_p = FALSE;
＠＠ -1162,13 +1153,8 ＠＠ DEFINE_LRECORD_IMPLEMENTATION_WITH_PROPS
static emacs_gtk_boxed_data *
allocate_emacs_gtk_boxed_data (void)
{
-#ifdef MC_ALLOC
- emacs_gtk_boxed_data *data = alloc_lrecord_type (emacs_gtk_boxed_data,
- &lrecord_emacs_gtk_boxed);
-#else /* not MC_ALLOC */
- emacs_gtk_boxed_data *data = alloc_lcrecord_type (emacs_gtk_boxed_data,
+ emacs_gtk_boxed_data *data = ALLOC_LCRECORD_TYPE (emacs_gtk_boxed_data,
&lrecord_emacs_gtk_boxed);
-#endif /* not MC_ALLOC */
data->object = NULL;
data->object_type = GTK_TYPE_INVALID;
Index: src/ui-gtk.h
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ui-gtk.h,v
retrieving revision 1.6
diff -u -p -r1.6 ui-gtk.h
--- src/ui-gtk.h 2005/04/08 23:11:34 1.6
+++ src/ui-gtk.h 2005/10/24 08:05:42
＠＠ -21,11 +21,7 ＠＠ typedef void (*ffi_marshalling_function)
#define MAX_GTK_ARGS 100
typedef struct {
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
GtkType return_type;
GtkType args[MAX_GTK_ARGS];
gint n_args;
＠＠ -43,11 +39,7 ＠＠ DECLARE_LRECORD (emacs_ffi, emacs_ffi_da
/* Encapsulate a GtkObject in Lisp */
typedef struct {
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
gboolean alive_p;
GtkObject *object;
Lisp_Object plist;
＠＠ -64,11 +56,7 ＠＠ extern Lisp_Object build_gtk_object (Gtk
/* Encapsulate a GTK_TYPE_BOXED in lisp */
typedef struct {
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
GtkType object_type;
void *object;
} emacs_gtk_boxed_data;
Index: src/unicode.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/unicode.c,v
retrieving revision 1.28
diff -u -p -r1.28 unicode.c
--- src/unicode.c 2005/04/08 23:11:34 1.28
+++ src/unicode.c 2005/10/24 08:05:43
＠＠ -548,15 +548,10 ＠＠ compute_from_unicode_table_size_1 (void
}
}
-#ifdef MC_ALLOC
- size += mc_alloced_storage_size (256 * (level == 1 ? sizeof (short) :
- sizeof (void *)), stats);
-#else /* not MC_ALLOC */
- size += malloced_storage_size (table,
+ size += MALLOCED_STORAGE_SIZE (table,
256 * (level == 1 ? sizeof (short) :
sizeof (void *)),
stats);
-#endif /* not MC_ALLOC */
return size;
}
＠＠ -578,15 +573,10 ＠＠ compute_to_unicode_table_size_1 (void *t
}
}
-#ifdef MC_ALLOC
- size += mc_alloced_storage_size (96 * (level == 1 ? sizeof (int) :
- sizeof (void *)), stats);
-#else /* not MC_ALLOC */
- size += malloced_storage_size (table,
+ size += MALLOCED_STORAGE_SIZE (table,
96 * (level == 1 ? sizeof (int) :
sizeof (void *)),
stats);
-#endif /* not MC_ALLOC */
return size;
}
Index: src/window-impl.h
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/window-impl.h,v
retrieving revision 1.2
diff -u -p -r1.2 window-impl.h
--- src/window-impl.h 2005/04/08 23:11:35 1.2
+++ src/window-impl.h 2005/10/24 08:05:43
＠＠ -84,11 +84,7 ＠＠ the window configuration. */
struct window
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
/* The upper left corner coordinates of this window,
as integers (pixels) relative to upper left corner of frame = 0, 0 */
＠＠ -172,11 +168,7 ＠＠ struct window
struct window_mirror
{
-#ifdef MC_ALLOC
- struct lrecord_header header;
-#else /* MC_ALLOC */
- struct lcrecord_header header;
-#endif /* MC_ALLOC */
+ struct LCRECORD_HEADER header;
/* Frame this mirror is on. */
struct frame *frame;
Index: src/window.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/window.c,v
retrieving revision 1.85
diff -u -p -r1.85 window.c
--- src/window.c 2005/05/15 16:38:14 1.85
+++ src/window.c 2005/10/24 08:05:45
＠＠ -346,11 +346,7 ＠＠ DEFINE_LRECORD_IMPLEMENTATION ("window",
Lisp_Object
allocate_window (void)
{
-#ifdef MC_ALLOC
- struct window *p = alloc_lrecord_type (struct window, &lrecord_window);
-#else /* not MC_ALLOC */
- struct window *p = alloc_lcrecord_type (struct window, &lrecord_window);
-#endif /* not MC_ALLOC */
+ struct window *p = ALLOC_LCRECORD_TYPE (struct window, &lrecord_window);
Lisp_Object val = wrap_window (p);
#define WINDOW_SLOT(slot) p->slot = Qnil;
＠＠ -487,11 +483,7 ＠＠ static struct window_mirror *
new_window_mirror (struct frame *f)
{
struct window_mirror *t =
-#ifdef MC_ALLOC
- alloc_lrecord_type (struct window_mirror, &lrecord_window_mirror);
-#else /* not MC_ALLOC */
- alloc_lcrecord_type (struct window_mirror, &lrecord_window_mirror);
-#endif /* not MC_ALLOC */
+ ALLOC_LCRECORD_TYPE (struct window_mirror, &lrecord_window_mirror);
t->frame = f;
t->current_display_lines = Dynarr_new (display_line);
＠＠ -3810,18 +3802,10 ＠＠ make_dummy_parent (Lisp_Object window)
{
Lisp_Object new;
struct window *o = XWINDOW (window);
-#ifdef MC_ALLOC
- struct window *p = alloc_lrecord_type (struct window, &lrecord_window);
-#else /* not MC_ALLOC */
- struct window *p = alloc_lcrecord_type (struct window, &lrecord_window);
-#endif /* not MC_ALLOC */
+ struct window *p = ALLOC_LCRECORD_TYPE (struct window, &lrecord_window);
new = wrap_window (p);
-#ifdef MC_ALLOC
- copy_lrecord (p, o);
-#else /* MC_ALLOC */
- copy_lcrecord (p, o);
-#endif /* MC_ALLOC */
+ COPY_LCRECORD (p, o);
/* Don't copy the pointers to the line start cache or the face
instances. */
＠＠ -5112,13 +5096,8 ＠＠ compute_window_mirror_usage (struct wind
{
if (!mir)
return;
-#ifdef MC_ALLOC
- stats->other += mc_alloced_storage_size (sizeof (struct window_mirror),
- ovstats);
-#else /* not MC_ALLOC */
- stats->other += malloced_storage_size (mir, sizeof (struct window_mirror),
+ stats->other += MALLOCED_STORAGE_SIZE (mir, sizeof (struct window_mirror),
ovstats);
-#endif /* not MC_ALLOC */
#ifdef HAVE_SCROLLBARS
{
struct device *d = XDEVICE (FRAME_DEVICE (mir->frame));
＠＠ -5142,11 +5121,7 ＠＠ compute_window_usage (struct window *w,
struct overhead_stats *ovstats)
{
xzero (*stats);
-#ifdef MC_ALLOC
- stats->other += mc_alloced_storage_size (sizeof (struct window), ovstats);
-#else /* not MC_ALLOC */
- stats->other += malloced_storage_size (w, sizeof (struct window), ovstats);
-#endif /* not MC_ALLOC */
+ stats->other += MALLOCED_STORAGE_SIZE (w, sizeof (struct window), ovstats);
stats->face += compute_face_cachel_usage (w->face_cachels, ovstats);
stats->glyph += compute_glyph_cachel_usage (w->glyph_cachels, ovstats);
stats->line_start +=
cvs server: Diffing src/m
cvs server: Diffing src/s
cvs server: Diffing tests
cvs server: Diffing tests/DLL
cvs server: Diffing tests/Dnd
cvs server: Diffing tests/autoconf
cvs server: Diffing tests/automated
cvs server: Diffing tests/gtk
cvs server: Diffing tests/mule
cvs server: Diffing tests/tooltalk
- 1 participants
- 0 comments
[C] xemacsweb: Concentrate download links information into Releases/ for maintainability
18 years, 6 months
Adrian Aichner
Adrian Aichner
COMMIT
I think this removal of duplicated information should make future
maintenance easier.
Also, I have generated the site link information half-automatically
from
(list 'package-get-download-sites
'package-get-pre-release-download-sites))
using
(mapc
(lambda (site-list)
(with-output-to-temp-buffer
(concat "*" (symbol-name site-list) "*")
(princ "<ul>\n")
(mapc
(lambda (e)
;; (princ (format "%s\nftp://%s/%s\n" (first e) (second e) (third e)))
(princ (format " <li><a href=\"http://%s/%s\">%s</a></li>\n" (second e) (third e) (first e))))
(symbol-value site-list))
(princ "</ul>\n")))
(list 'package-get-download-sites
'package-get-pre-release-download-sites))
which I might work on a bit more.
Double-checking/testing is highly welcome after this big change.
Best regards,
Adrian
xemacsweb ChangeLog patch:
Diff command: cvs -q diff -U 0
Files affected: Documentation/ChangeLog Download/ChangeLog Install/ChangeLog Releases/ChangeLog
Index: Documentation/ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacsweb/Documentation/ChangeLog,v
retrieving revision 1.62
diff -u -U0 -r1.62 ChangeLog
--- Documentation/ChangeLog 11 Jun 2005 22:05:32 -0000 1.62
+++ Documentation/ChangeLog 23 Oct 2005 17:10:24 -0000
＠＠ -0,0 +1,5 ＠＠
+2005-10-23 Adrian Aichner <adrian(a)xemacs.org>
+
+ * packageGuide.content: Concentrate download links information
+ into Releases/ for maintainability.
+
Index: Download/ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacsweb/Download/ChangeLog,v
retrieving revision 1.167
diff -u -U0 -r1.167 ChangeLog
--- Download/ChangeLog 22 Oct 2005 21:47:08 -0000 1.167
+++ Download/ChangeLog 23 Oct 2005 17:10:24 -0000
＠＠ -0,0 +1,5 ＠＠
+2005-10-23 Adrian Aichner <adrian(a)xemacs.org>
+
+ * index.content: Concentrate download links information into
+ Releases/ for maintainability.
+
Index: Install/ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacsweb/Install/ChangeLog,v
retrieving revision 1.36
diff -u -U0 -r1.36 ChangeLog
--- Install/ChangeLog 11 Jun 2005 22:07:05 -0000 1.36
+++ Install/ChangeLog 23 Oct 2005 17:10:24 -0000
＠＠ -0,0 +1,5 ＠＠
+2005-10-23 Adrian Aichner <adrian(a)xemacs.org>
+
+ * index.content: Concentrate download links information into
+ Releases/ for maintainability.
+
Index: Releases/ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacsweb/Releases/ChangeLog,v
retrieving revision 1.119
diff -u -U0 -r1.119 ChangeLog
--- Releases/ChangeLog 19 Sep 2005 09:13:08 -0000 1.119
+++ Releases/ChangeLog 23 Oct 2005 17:10:24 -0000
＠＠ -0,0 +1,7 ＠＠
+2005-10-23 Adrian Aichner <adrian(a)xemacs.org>
+
+ * index.content: Concentrate download links information into
+ Releases/ for maintainability. Use same site names as
+ Tools->Packages->Set Download Site for maximum familarity for
+ users and maintainers.
+
xemacsweb source patch:
Diff command: cvs -f -z3 -q diff -u -w -N
Files affected: Documentation/packageGuide.content Download/index.content Install/index.content Releases/index.content
Index: Releases/index.content
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacsweb/Releases/index.content,v
retrieving revision 1.106
diff -u -w -r1.106 index.content
--- Releases/index.content 19 Sep 2005 09:13:08 -0000 1.106
+++ Releases/index.content 23 Oct 2005 17:06:46 -0000
＠＠ -13,48 +13,18 ＠＠
.
<a href="#Beta">Beta</a>
.
- <a href="#Historical">Historical</a>
- |
- <a href="#Packages">Packages</a>
+ <a href="#Historical">Historical</a> | Packages :
+ <a href="#Packages">Official Releases</a>
+ .
+ <a href="#Pre-Releases">Pre-Releases</a>
<p>This directory holds the notices that are posted when new
- versions of XEmacs are released.</p>
+ versions of XEmacs or its Packages are released.</p>
- <h2><a id="Stable" name="Stable">Stable</a> Releases</h2>
+ <h2><a id="Stable" name="Stable">Stable</a> XEmacs Releases</h2>
<p><a href="#index">Goto</a> Index</p>
- Download a stable release from
- <a href="http://ftp.xemacs.org/xemacs/stable/">ftp.xemacs.org</a>
- or a mirror in your country:
- <a href="ftp://xemacs.xmundo.net/pub/mirrors/xemacs/stable/">ar</a>
- <a href="http://ftp.at.xemacs.org/editors/xemacs/stable/">at</a>
- <a href="http://www.au.xemacs.org/pub/xemacs/stable/">au</a>
- <a href="http://ftp.be.xemacs.org/ftp/xemacs/stable/">be</a>
- <a href="ftp://ftp.br.xemacs.org/pub/xemacs/stable/">br</a>
- <a href="http://ftp.ca.xemacs.org/pub/Mirror/xemacs/stable/">ca</a>
- <a href="http://ftp.ch.xemacs.org/ftp/mirror/xemacs/stable/">ch</a>
- <a href="ftp://ftp.cz.xemacs.org/MIRRORS/ftp.xemacs.org/pub/xemacs/stable/">...>
- <a href="http://ftp.de.xemacs.org/pub/ftp.xemacs.org/tux/xemacs/stable/">de</a>
- <a href="http://ftp.dk.xemacs.org/pub/emacs/xemacs/stable/">dk</a>
- <a href="http://ftp.fi.xemacs.org/pub/mirrors/ftp.xemacs.org/pub/tux/xemacs/...>
- <a href="http://ftp.fr.xemacs.org/pub/xemacs/stable/">fr</a>
-<!-- <a href="http://ftp.hu.xemacs.org/ftp/packages/xemacs/stable/">hu</a> -->
- <a href="http://ftp.ie.xemacs.org/mirrors/ftp.xemacs.org/pub/xemacs/stable/"...>
- <a href="http://ftp.is.xemacs.org/pub/xemacs/stable/">is</a>
- <a href="http://ftp.it.xemacs.org/stable/">it</a>
- <a href="ftp://ftp.jp.xemacs.org/pub/GNU/xemacs/stable/">jp</a>
- <a href="http://ftp.kr.xemacs.org/pub/tools/emacs/xemacs/stable/">kr</a>
- <a href="http://ftp.no.xemacs.org/pub/xemacs/stable/">no</a>
- <a href="ftp://ftp.nz.xemacs.org/mirror/ftp.xemacs.org/stable/">nz</a>
- <a href="http://ftp.pl.xemacs.org/pub/unix/editors/xemacs/stable/">pl</a>
- <a href="http://ftp.ru.xemacs.org/pub/xemacs/stable/">ru</a>
-<!-- <a href="http://ftp.sa.xemacs.org/pub/mirrors/ftp.xemacs.org/pub/xemacs/stab...> -->
- <a href="http://ftp.se.xemacs.org/pub/gnu/xemacs/stable/">se</a>
- <a href="http://ftp.tw.xemacs.org/pub/xemacs/stable/">tw</a>
- <a href="http://ftp.uk.xemacs.org/sites/ftp.xemacs.org/pub/xemacs/stable/">u...>
- <a href="http://ftp.us.xemacs.org/ftp/pub/xemacs/stable/">us</a>
-
<p>
<strong>Note:</strong> XEmacs 21.4 has been promoted to
<em>stable</em>, and the XEmacs 21.1 series has been retired. For
＠＠ -115,7 +85,56 ＠＠
<li><strong>2001-04-16</strong>: <a href="21.4.0.html">[21.4.0 release notice]</a> <!-- <a href="21.4.0.html#changes">[changelogs]</a> --></li>
</ul>
- <h2><a id="Gamma" name="Gamma">Gamma</a> Releases</h2>
+ Download a stable release from
+ <a href="http://ftp.xemacs.org/xemacs/stable/">ftp.xemacs.org</a>
+ or a mirror in your country:
+
+ <ul>
+ <li><a href="http://ftp.xemacs.org/pub/xemacs/stable">US (Main XEmacs Site)</a></li>
+ <li><a href="ftp://xemacs.xmundo.net/pub/mirrors/xemacs/stable">Argentina (xmundo.net)</a></li>
+ <li><a href="http://mirror.aarnet.edu.au/pub/xemacs/stable">Australia (aarnet.edu.au)</a></li>
+ <li><a href="http://ftp.au.xemacs.org/pub/xemacs/stable">Australia (au.xemacs.org)</a></li>
+ <li><a href="http://ftp.at.xemacs.org/editors/xemacs/stable">Austria (at.xemacs.org)</a></li>
+ <li><a href="http://ftp.be.xemacs.org/xemacs/stable">Belgium (be.xemacs.org)</a></li>
+ <li><a href="ftp://ftp.br.xemacs.org/pub/xemacs/stable">Brazil (br.xemacs.org)</a></li>
+ <li><a href="http://ftp.ca.xemacs.org/pub/Mirror/xemacs/stable">Canada (ca.xemacs.org)</a></li>
+ <li><a href="http://ftp.crc.ca/pub/packages/editors/xemacs/stable">Canada (crc.ca)</a></li>
+ <li><a href="http://ftp.nrc.ca/pub/packages/editors/xemacs/stable">Canada (nrc.ca)</a></li>
+ <li><a href="ftp://ftp.cz.xemacs.org/MIRRORS/ftp.xemacs.org/pub/xemacs/stable">C... Republic (cz.xemacs.org)</a></li>
+ <li><a href="http://ftp.dk.xemacs.org/pub/emacs/xemacs/stable">Denmark (dk.xemacs.org)</a></li>
+ <li><a href="http://ftp.fi.xemacs.org/pub/mirrors/ftp.xemacs.org/pub/tux/xemacs/... (fi.xemacs.org)</a></li>
+ <li><a href="http://ftp.fr.xemacs.org/pub/xemacs/stable">France (fr.xemacs.org)</a></li>
+ <li><a href="http://mirror.cict.fr/xemacs/stable">France (mirror.cict.fr)</a></li>
+ <li><a href="http://ftp.pasteur.fr/pub/computing/xemacs/stable">France (pasteur.fr)</a></li>
+ <li><a href="http://ftp.de.xemacs.org/pub/ftp.xemacs.org/tux/xemacs/stable">Germany (de.xemacs.org)</a></li>
+ <li><a href="http://ftp.is.xemacs.org/pub/xemacs/stable">Iceland (is.xemacs.org)</a></li>
+ <li><a href="http://ftp.ie.xemacs.org/mirrors/ftp.xemacs.org/pub/xemacs/stable">... (ie.xemacs.org)</a></li>
+ <li><a href="http://ftp.heanet.ie/mirrors/ftp.xemacs.org/stable">Ireland (heanet.ie)</a></li>
+ <li><a href="http://ftp.it.xemacs.org/unix/packages/xemacs/stable">Italy (it.xemacs.org)</a></li>
+ <li><a href="http://ring.aist.go.jp/pub/text/xemacs/stable">Japan (aist.go.jp)</a></li>
+ <li><a href="http://ring.asahi-net.or.jp/pub/text/xemacs/stable">Japan (asahi-net.or.jp)</a></li>
+ <li><a href="http://ftp.dti.ad.jp/pub/unix/editor/xemacs/stable">Japan (dti.ad.jp)</a></li>
+ <li><a href="http://ftp.jaist.ac.jp/pub/GNU/xemacs/stable">Japan (jaist.ac.jp)</a></li>
+ <li><a href="ftp://ftp.jp.xemacs.org/pub/GNU/xemacs/stable">Japan (jp.xemacs.org)</a></li>
+ <li><a href="http://mirror.nucba.ac.jp/mirror/xemacs/stable">Japan (nucba.ac.jp)</a></li>
+ <li><a href="http://sunsite.sut.ac.jp/pub/archives/packages/xemacs/stable">Japan (sut.ac.jp)</a></li>
+ <li><a href="http://ftp.kr.xemacs.org/pub/tools/emacs/xemacs/stable">Korea (kr.xemacs.org)</a></li>
+ <li><a href="ftp://ftp.nz.xemacs.org/mirror/ftp.xemacs.org/stable">New Zealand (nz.xemacs.org)</a></li>
+ <li><a href="http://ftp.no.xemacs.org/pub/xemacs/stable">Norway (no.xemacs.org)</a></li>
+ <li><a href="http://ftp.pl.xemacs.org/pub/unix/editors/xemacs/stable">Poland (pl.xemacs.org)</a></li>
+ <li><a href="http://ftp.ru.xemacs.org/pub/xemacs/stable">Russia (ru.xemacs.org)</a></li>
+ <li><a href="http://ftp.za.xemacs.org/mirrorsites/ftp.xemacs.org/stable">South Africa (za.xemacs.org)</a></li>
+ <li><a href="http://ftp.se.xemacs.org/pub/gnu/xemacs/stable">Sweden (se.xemacs.org)</a></li>
+ <li><a href="http://ftp.ch.xemacs.org/mirror/xemacs/stable">Switzerland (ch.xemacs.org)</a></li>
+ <li><a href="http://ftp.uk.xemacs.org/sites/ftp.xemacs.org/pub/xemacs/stable">UK (uk.xemacs.org)</a></li>
+ <li><a href="http://ibiblio.org/pub/packages/editors/xemacs/stable">US (ibiblio.org)</a></li>
+ <li><a href="http://ftp.stealth.net/pub/mirrors/ftp.xemacs.org/pub/xemacs/stable... (stealth.net)</a></li>
+ <li><a href="http://metalab.unc.edu/pub/packages/editors/xemacs/stable">US (unc.edu)</a></li>
+ <li><a href="http://ftp.us.xemacs.org/pub/xemacs/stable">US (us.xemacs.org)</a></li>
+ <li><a href="http://ftp.sunsite.utk.edu/pub/xemacs/stable">US (utk.edu)</a></li>
+ </ul>
+
+ <h2><a id="Gamma" name="Gamma">Gamma</a> XEmacs Releases</h2>
<p><a href="#index">Goto</a> Index</p>
＠＠ -173,41 +192,10 ＠＠
issues will not yet be reflected in the FAQ or Info documentation.
</p>
- <h2><a id="Beta" name="Beta">Beta</a> Releases</h2>
+ <h2><a id="Beta" name="Beta">Beta</a> XEmacs Releases</h2>
<p><a href="#index">Goto</a> Index</p>
- Download a beta release from
- <a href="http://ftp.xemacs.org/xemacs/beta/">ftp.xemacs.org</a>
- or a mirror in your country:
- <a href="ftp://xemacs.xmundo.net/pub/mirrors/xemacs/beta/">ar</a>
- <a href="http://ftp.at.xemacs.org/editors/xemacs/beta/">at</a>
- <a href="http://www.au.xemacs.org/pub/xemacs/beta/">au</a>
- <a href="http://ftp.be.xemacs.org/ftp/xemacs/beta/">be</a>
- <a href="ftp://ftp.br.xemacs.org/pub/xemacs/xemacs-21.5/">br</a>
- <a href="http://ftp.ca.xemacs.org/pub/Mirror/xemacs/beta/">ca</a>
- <a href="http://ftp.ch.xemacs.org/ftp/mirror/xemacs/beta/">ch</a>
- <a href="ftp://ftp.cz.xemacs.org/MIRRORS/ftp.xemacs.org/pub/xemacs/beta/">cz</a>
- <a href="http://ftp.de.xemacs.org/pub/ftp.xemacs.org/tux/xemacs/beta/">de</a>
- <a href="http://ftp.dk.xemacs.org/pub/emacs/xemacs/beta/">dk</a>
- <a href="http://ftp.fi.xemacs.org/pub/mirrors/ftp.xemacs.org/pub/tux/xemacs/...>
- <a href="http://ftp.fr.xemacs.org/pub/xemacs/beta/">fr</a>
-<!-- <a href="http://ftp.hu.xemacs.org/ftp/packages/xemacs/beta/">hu</a> -->
- <a href="http://ftp.ie.xemacs.org/mirrors/ftp.xemacs.org/pub/xemacs/beta/">i...>
- <a href="http://ftp.is.xemacs.org/pub/xemacs/beta/">is</a>
- <a href="http://ftp.it.xemacs.org/beta/">it</a>
- <a href="ftp://ftp.jp.xemacs.org/pub/GNU/xemacs/beta/">jp</a>
- <a href="http://ftp.kr.xemacs.org/pub/tools/emacs/xemacs/beta/">kr</a>
- <a href="http://ftp.no.xemacs.org/pub/xemacs/beta/">no</a>
- <a href="ftp://ftp.nz.xemacs.org/mirror/ftp.xemacs.org/beta/">nz</a>
- <a href="http://ftp.pl.xemacs.org/pub/unix/editors/xemacs/beta/">pl</a>
- <a href="http://ftp.ru.xemacs.org/pub/xemacs/beta/">ru</a>
-<!-- <a href="http://ftp.sa.xemacs.org/pub/mirrors/ftp.xemacs.org/pub/xemacs/beta...> -->
- <a href="http://ftp.se.xemacs.org/pub/gnu/xemacs/beta/">se</a>
- <a href="http://ftp.tw.xemacs.org/pub/xemacs/beta/">tw</a>
- <a href="http://ftp.uk.xemacs.org/sites/ftp.xemacs.org/pub/xemacs/xemacs-21....>
- <a href="http://ftp.us.xemacs.org/ftp/pub/xemacs/beta/">us</a>
-
<p>
The <em>beta</em> series of releases is for testers. Users should
read the <em>XEmacs Beta</em> mailing list,
＠＠ -311,7 +299,56 ＠＠
<li><strong>2000-01-18</strong>: <a href="21.2.27.html">[21.2.27 release notice]</a> <a href="21.2.27.html#changes">[changelogs]</a></li>
</ul>
- <h2><a id="Historical" name="Historical">Historical</a> Releases</h2>
+ Download a beta release from
+ <a href="http://ftp.xemacs.org/xemacs/beta/">ftp.xemacs.org</a>
+ or a mirror in your country:
+
+ <ul>
+ <li><a href="http://ftp.xemacs.org/pub/xemacs/beta">US (Main XEmacs Site)</a></li>
+ <li><a href="ftp://xemacs.xmundo.net/pub/mirrors/xemacs/beta">Argentina (xmundo.net)</a></li>
+ <li><a href="http://mirror.aarnet.edu.au/pub/xemacs/beta">Australia (aarnet.edu.au)</a></li>
+ <li><a href="http://ftp.au.xemacs.org/pub/xemacs/beta">Australia (au.xemacs.org)</a></li>
+ <li><a href="http://ftp.at.xemacs.org/editors/xemacs/beta">Austria (at.xemacs.org)</a></li>
+ <li><a href="http://ftp.be.xemacs.org/xemacs/beta">Belgium (be.xemacs.org)</a></li>
+ <li><a href="ftp://ftp.br.xemacs.org/pub/xemacs/beta">Brazil (br.xemacs.org)</a></li>
+ <li><a href="http://ftp.ca.xemacs.org/pub/Mirror/xemacs/beta">Canada (ca.xemacs.org)</a></li>
+ <li><a href="http://ftp.crc.ca/pub/packages/editors/xemacs/beta">Canada (crc.ca)</a></li>
+ <li><a href="http://ftp.nrc.ca/pub/packages/editors/xemacs/beta">Canada (nrc.ca)</a></li>
+ <li><a href="ftp://ftp.cz.xemacs.org/MIRRORS/ftp.xemacs.org/pub/xemacs/beta">Czech Republic (cz.xemacs.org)</a></li>
+ <li><a href="http://ftp.dk.xemacs.org/pub/emacs/xemacs/beta">Denmark (dk.xemacs.org)</a></li>
+ <li><a href="http://ftp.fi.xemacs.org/pub/mirrors/ftp.xemacs.org/pub/tux/xemacs/... (fi.xemacs.org)</a></li>
+ <li><a href="http://ftp.fr.xemacs.org/pub/xemacs/beta">France (fr.xemacs.org)</a></li>
+ <li><a href="http://mirror.cict.fr/xemacs/beta">France (mirror.cict.fr)</a></li>
+ <li><a href="http://ftp.pasteur.fr/pub/computing/xemacs/beta">France (pasteur.fr)</a></li>
+ <li><a href="http://ftp.de.xemacs.org/pub/ftp.xemacs.org/tux/xemacs/beta">Germany (de.xemacs.org)</a></li>
+ <li><a href="http://ftp.is.xemacs.org/pub/xemacs/beta">Iceland (is.xemacs.org)</a></li>
+ <li><a href="http://ftp.ie.xemacs.org/mirrors/ftp.xemacs.org/pub/xemacs/beta">Ir... (ie.xemacs.org)</a></li>
+ <li><a href="http://ftp.heanet.ie/mirrors/ftp.xemacs.org/beta">Ireland (heanet.ie)</a></li>
+ <li><a href="http://ftp.it.xemacs.org/unix/packages/xemacs/beta">Italy (it.xemacs.org)</a></li>
+ <li><a href="http://ring.aist.go.jp/pub/text/xemacs/beta">Japan (aist.go.jp)</a></li>
+ <li><a href="http://ring.asahi-net.or.jp/pub/text/xemacs/beta">Japan (asahi-net.or.jp)</a></li>
+ <li><a href="http://ftp.dti.ad.jp/pub/unix/editor/xemacs/beta">Japan (dti.ad.jp)</a></li>
+ <li><a href="http://ftp.jaist.ac.jp/pub/GNU/xemacs/beta">Japan (jaist.ac.jp)</a></li>
+ <li><a href="ftp://ftp.jp.xemacs.org/pub/GNU/xemacs/beta">Japan (jp.xemacs.org)</a></li>
+ <li><a href="http://mirror.nucba.ac.jp/mirror/xemacs/beta">Japan (nucba.ac.jp)</a></li>
+ <li><a href="http://sunsite.sut.ac.jp/pub/archives/packages/xemacs/beta">Japan (sut.ac.jp)</a></li>
+ <li><a href="http://ftp.kr.xemacs.org/pub/tools/emacs/xemacs/beta">Korea (kr.xemacs.org)</a></li>
+ <li><a href="ftp://ftp.nz.xemacs.org/mirror/ftp.xemacs.org/beta">New Zealand (nz.xemacs.org)</a></li>
+ <li><a href="http://ftp.no.xemacs.org/pub/xemacs/beta">Norway (no.xemacs.org)</a></li>
+ <li><a href="http://ftp.pl.xemacs.org/pub/unix/editors/xemacs/beta">Poland (pl.xemacs.org)</a></li>
+ <li><a href="http://ftp.ru.xemacs.org/pub/xemacs/beta">Russia (ru.xemacs.org)</a></li>
+ <li><a href="http://ftp.za.xemacs.org/mirrorsites/ftp.xemacs.org/beta">South Africa (za.xemacs.org)</a></li>
+ <li><a href="http://ftp.se.xemacs.org/pub/gnu/xemacs/beta">Sweden (se.xemacs.org)</a></li>
+ <li><a href="http://ftp.ch.xemacs.org/mirror/xemacs/beta">Switzerland (ch.xemacs.org)</a></li>
+ <li><a href="http://ftp.uk.xemacs.org/sites/ftp.xemacs.org/pub/xemacs/beta">UK (uk.xemacs.org)</a></li>
+ <li><a href="http://ibiblio.org/pub/packages/editors/xemacs/beta">US (ibiblio.org)</a></li>
+ <li><a href="http://ftp.stealth.net/pub/mirrors/ftp.xemacs.org/pub/xemacs/beta">US (stealth.net)</a></li>
+ <li><a href="http://metalab.unc.edu/pub/packages/editors/xemacs/beta">US (unc.edu)</a></li>
+ <li><a href="http://ftp.us.xemacs.org/pub/xemacs/beta">US (us.xemacs.org)</a></li>
+ <li><a href="http://ftp.sunsite.utk.edu/pub/xemacs/beta">US (utk.edu)</a></li>
+ </ul>
+
+ <h2><a id="Historical" name="Historical">Historical</a>XEmacs Releases</h2>
<p><a href="#index">Goto</a> Index</p>
＠＠ -327,43 +364,11 ＠＠
<a href="21.1.7.changelog.html">[changelogs]</a></li>
<li><strong>1999-08-14</strong>: <a href="21.1.6.html">[21.1.6 release notice]</a></li>
</ul>
-
- <h2><a id="Packages" name="Packages">Package</a> Releases</h2>
+ <hr/>
+ <h2><a id="Packages" name="Packages">Offical Package Releases</a></h2>
<p><a href="#index">Goto</a> Index</p>
- Download XEmacs Packages inside XEmacs using the Tools->Packages
- menu, from
- <a href="http://ftp.xemacs.org/xemacs/packages/">ftp.xemacs.org</a>,
- or from a mirror in your country:
- <a href="ftp://xemacs.xmundo.net/pub/mirrors/xemacs/packages/">ar</a>
- <a href="http://ftp.at.xemacs.org/editors/xemacs/packages/">at</a>
- <a href="http://www.au.xemacs.org/pub/xemacs/packages/">au</a>
- <a href="http://ftp.be.xemacs.org/ftp/xemacs/packages/">be</a>
- <a href="ftp://ftp.br.xemacs.org/pub/xemacs/packages/">br</a>
- <a href="http://ftp.ca.xemacs.org/pub/Mirror/xemacs/packages/">ca</a>
- <a href="http://ftp.ch.xemacs.org/ftp/mirror/xemacs/packages/">ch</a>
- <a href="ftp://ftp.cz.xemacs.org/MIRRORS/ftp.xemacs.org/pub/xemacs/packages/...>
- <a href="http://ftp.de.xemacs.org/pub/ftp.xemacs.org/tux/xemacs/packages/">d...>
- <a href="http://ftp.dk.xemacs.org/pub/emacs/xemacs/packages/">dk</a>
- <a href="http://ftp.fi.xemacs.org/pub/mirrors/ftp.xemacs.org/pub/tux/xemacs/...>
- <a href="http://ftp.fr.xemacs.org/pub/xemacs/packages/">fr</a>
-<!-- <a href="http://ftp.hu.xemacs.org/ftp/packages/xemacs/packages/">hu</a> -->
- <a href="http://ftp.ie.xemacs.org/mirrors/ftp.xemacs.org/pub/xemacs/packages...>
- <a href="http://ftp.is.xemacs.org/pub/xemacs/packages/">is</a>
- <a href="http://ftp.it.xemacs.org/packages/">it</a>
- <a href="ftp://ftp.jp.xemacs.org/pub/GNU/xemacs/packages/">jp</a>
- <a href="http://ftp.kr.xemacs.org/pub/tools/emacs/xemacs/packages/">kr</a>
- <a href="http://ftp.no.xemacs.org/pub/xemacs/packages/">no</a>
- <a href="ftp://ftp.nz.xemacs.org/mirror/ftp.xemacs.org/stable/">nz</a>
- <a href="http://ftp.pl.xemacs.org/pub/unix/editors/xemacs/packages/">pl</a>
- <a href="http://ftp.ru.xemacs.org/pub/xemacs/packages/">ru</a>
-<!-- <a href="http://ftp.sa.xemacs.org/pub/mirrors/ftp.xemacs.org/pub/xemacs/pack...> -->
- <a href="http://ftp.se.xemacs.org/pub/gnu/xemacs/packages/">se</a>
- <a href="http://ftp.tw.xemacs.org/pub/xemacs/packages/">tw</a>
- <a href="http://ftp.uk.xemacs.org/sites/ftp.xemacs.org/pub/xemacs/packages/"...>
- <a href="http://ftp.us.xemacs.org/ftp/pub/xemacs/packages/">us</a>
-
<p>
These packages enhance XEmacs' utility as briefly documented under
<a href="<!-- _GP_ relPath(qq{Develop/packages.html}) -->">XEmacs
＠＠ -379,6 +384,119 ＠＠
<li><strong>2004-05-17</strong>: <a href="2004-05-17.html">[2004-05-17 release notice]</a> <a href="2004-05-17.html#changes">[changelogs]</a></li>
<li><strong>2004-02-02</strong>: <a href="2004-02-02.html">[2004-02-02 release notice]</a> <a href="2004-02-02.html#changes">[changelogs]</a></li>
</ul>
+
+ <p>
+ Download XEmacs Packages inside XEmacs using the Tools->Packages
+ menu, from
+ <a href="http://ftp.xemacs.org/xemacs/packages/">ftp.xemacs.org</a>,
+ or from a mirror in your country:
+ </p>
+
+<ul>
+ <li><a href="http://ftp.xemacs.org/pub/xemacs/packages">US (Main XEmacs Site)</a></li>
+ <li><a href="ftp://xemacs.xmundo.net/pub/mirrors/xemacs/packages">Argentina (xmundo.net)</a></li>
+ <li><a href="http://mirror.aarnet.edu.au/pub/xemacs/packages">Australia (aarnet.edu.au)</a></li>
+ <li><a href="http://ftp.au.xemacs.org/pub/xemacs/packages">Australia (au.xemacs.org)</a></li>
+ <li><a href="http://ftp.at.xemacs.org/editors/xemacs/packages">Austria (at.xemacs.org)</a></li>
+ <li><a href="http://ftp.be.xemacs.org/xemacs/packages">Belgium (be.xemacs.org)</a></li>
+ <li><a href="ftp://ftp.br.xemacs.org/pub/xemacs/packages">Brazil (br.xemacs.org)</a></li>
+ <li><a href="http://ftp.ca.xemacs.org/pub/Mirror/xemacs/packages">Canada (ca.xemacs.org)</a></li>
+ <li><a href="http://ftp.crc.ca/pub/packages/editors/xemacs/packages">Canada (crc.ca)</a></li>
+ <li><a href="http://ftp.nrc.ca/pub/packages/editors/xemacs/packages">Canada (nrc.ca)</a></li>
+ <li><a href="ftp://ftp.cz.xemacs.org/MIRRORS/ftp.xemacs.org/pub/xemacs/packages"... Republic (cz.xemacs.org)</a></li>
+ <li><a href="http://ftp.dk.xemacs.org/pub/emacs/xemacs/packages">Denmark (dk.xemacs.org)</a></li>
+ <li><a href="http://ftp.fi.xemacs.org/pub/mirrors/ftp.xemacs.org/pub/tux/xemacs/... (fi.xemacs.org)</a></li>
+ <li><a href="http://ftp.fr.xemacs.org/pub/xemacs/packages">France (fr.xemacs.org)</a></li>
+ <li><a href="http://mirror.cict.fr/xemacs/packages">France (mirror.cict.fr)</a></li>
+ <li><a href="http://ftp.pasteur.fr/pub/computing/xemacs/packages">France (pasteur.fr)</a></li>
+ <li><a href="http://ftp.de.xemacs.org/pub/ftp.xemacs.org/tux/xemacs/packages">Ge... (de.xemacs.org)</a></li>
+ <li><a href="http://ftp.is.xemacs.org/pub/xemacs/packages">Iceland (is.xemacs.org)</a></li>
+ <li><a href="http://ftp.ie.xemacs.org/mirrors/ftp.xemacs.org/pub/xemacs/packages... (ie.xemacs.org)</a></li>
+ <li><a href="http://ftp.heanet.ie/mirrors/ftp.xemacs.org/packages">Ireland (heanet.ie)</a></li>
+ <li><a href="http://ftp.it.xemacs.org/unix/packages/XEMACS/packages">Italy (it.xemacs.org)</a></li>
+ <li><a href="http://ring.aist.go.jp/pub/text/xemacs/packages">Japan (aist.go.jp)</a></li>
+ <li><a href="http://ring.asahi-net.or.jp/pub/text/xemacs/packages">Japan (asahi-net.or.jp)</a></li>
+ <li><a href="http://ftp.dti.ad.jp/pub/unix/editor/xemacs/packages">Japan (dti.ad.jp)</a></li>
+ <li><a href="http://ftp.jaist.ac.jp/pub/GNU/xemacs/packages">Japan (jaist.ac.jp)</a></li>
+ <li><a href="ftp://ftp.jp.xemacs.org/pub/GNU/xemacs/packages">Japan (jp.xemacs.org)</a></li>
+ <li><a href="http://mirror.nucba.ac.jp/mirror/xemacs/packages">Japan (nucba.ac.jp)</a></li>
+ <li><a href="http://sunsite.sut.ac.jp/pub/archives/packages/xemacs/packages">Japan (sut.ac.jp)</a></li>
+ <li><a href="http://ftp.kr.xemacs.org/pub/tools/emacs/xemacs/packages">Korea (kr.xemacs.org)</a></li>
+ <li><a href="ftp://ftp.nz.xemacs.org/mirror/ftp.xemacs.org/packages">New Zealand (nz.xemacs.org)</a></li>
+ <li><a href="http://ftp.no.xemacs.org/pub/xemacs/packages">Norway (no.xemacs.org)</a></li>
+ <li><a href="http://ftp.pl.xemacs.org/pub/unix/editors/xemacs/packages">Poland (pl.xemacs.org)</a></li>
+ <li><a href="http://ftp.ru.xemacs.org/pub/xemacs/packages">Russia (ru.xemacs.org)</a></li>
+ <li><a href="http://ftp.za.xemacs.org/mirrorsites/ftp.xemacs.org/packages">South Africa (za.xemacs.org)</a></li>
+ <li><a href="http://ftp.se.xemacs.org/pub/gnu/xemacs/packages">Sweden (se.xemacs.org)</a></li>
+ <li><a href="http://ftp.ch.xemacs.org/mirror/xemacs/packages">Switzerland (ch.xemacs.org)</a></li>
+ <li><a href="http://ftp.uk.xemacs.org/sites/ftp.xemacs.org/pub/xemacs/packages">UK (uk.xemacs.org)</a></li>
+ <li><a href="http://ibiblio.org/pub/packages/editors/xemacs/packages">US (ibiblio.org)</a></li>
+ <li><a href="http://ftp.stealth.net/pub/mirrors/ftp.xemacs.org/pub/xemacs/packag... (stealth.net)</a></li>
+ <li><a href="http://metalab.unc.edu/pub/packages/editors/xemacs/packages">US (unc.edu)</a></li>
+ <li><a href="http://ftp.us.xemacs.org/pub/xemacs/packages">US (us.xemacs.org)</a></li>
+ <li><a href="http://ftp.sunsite.utk.edu/pub/xemacs/packages">US (utk.edu)</a></li>
+</ul>
+
+ <h2><a id="Pre-Releases" name="Pre-Releases">Package Pre-Releases</a></h2>
+
+ <p><a href="#index">Goto</a> Index</p>
+
+ <p>
+ These pre-release packages (enhancing XEmacs' utility as briefly
+ documented under <a href="<!-- _GP_
+ relPath(qq{Develop/packages.html}) -->">XEmacs Packages</a>) serve
+ the purpose of quick turn-around and testing before they get
+ officially released.
+ </p>
+
+ <p>
+ Download XEmacs Pre-Release Packages inside XEmacs using the
+ Tools->Packages menu, from <a
+ href="http://ftp.xemacs.org/xemacs/beta/experimental/packages/">ftp.xemac...>,
+ or from a mirror in your country:
+ </p>
+
+<ul>
+ <li><a href="http://ftp.xemacs.org/pub/xemacs/beta/experimental/packages">Pre-Re... (Main XEmacs Site)</a></li>
+ <li><a href="ftp://xemacs.xmundo.net/pub/mirrors/xemacs/beta/experimental/packag... Pre-Releases (xmundo.net)</a></li>
+ <li><a href="http://mirror.aarnet.edu.au/pub/xemacs/beta/experimental/packages">Australia Pre-Releases (aarnet.edu.au)</a></li>
+ <li><a href="http://ftp.au.xemacs.org/pub/xemacs/beta/experimental/packages">Aus... Pre-Releases (au.xemacs.org)</a></li>
+ <li><a href="http://ftp.at.xemacs.org/editors/xemacs/beta/experimentsl/packages"... Pre-Releases (at.xemacs.org)</a></li>
+ <li><a href="ftp://ftp.br.xemacs.org/pub/xemacs/xemacs-21.5/experimental/package... Pre-Releases (br.xemacs.org)</a></li>
+ <li><a href="http://ftp.ca.xemacs.org/pub/Mirror/xemacs/beta/experimental/packag... Pre-Releases (ca.xemacs.org)</a></li>
+ <li><a href="http://ftp.crc.ca/pub/packages/editors/xemacs/beta/experimental/packages">Canada Pre-Releases (crc.ca)</a></li>
+ <li><a href="http://ftp.nrc.ca/pub/packages/editors/xemacs/beta/experimental/packages">Canada Pre-Releases (nrc.ca)</a></li>
+ <li><a href="ftp://ftp.cz.xemacs.org/MIRRORS/ftp.xemacs.org/pub/xemacs/xemacs-21... Republic Pre-Releases (cz.xemacs.org)</a></li>
+ <li><a href="http://ftp.dk.xemacs.org/pub/emacs/xemacs/beta/experimental/package... Pre-Releases (dk.xemacs.org)</a></li>
+ <li><a href="http://ftp.fi.xemacs.org/pub/mirrors/ftp.xemacs.org/pub/tux/xemacs/... Pre-Releases (fi.xemacs.org)</a></li>
+ <li><a href="http://ftp.fr.xemacs.org/pub/xemacs/beta/experimental/packages">France Pre-Releases (fr.xemacs.org)</a></li>
+ <li><a href="http://mirror.cict.fr/xemacs/beta/experimental/packages">France Pre-Releases (mirror.cict.fr)</a></li>
+ <li><a href="http://ftp.pasteur.fr/pub/computing/xemacs/beta/experimental/packages">France Pre-Releases (pasteur.fr)</a></li>
+ <li><a href="http://ftp.de.xemacs.org/pub/ftp.xemacs.org/tux/xemacs/beta/experim... Pre-Releases (de.xemacs.org)</a></li>
+ <li><a href="http://ftp.is.xemacs.org/pub/xemacs/beta/experimental/packages">Ice... Pre-Releases (is.xemacs.org)</a></li>
+ <li><a href="http://ftp.ie.xemacs.org/mirrors/ftp.xemacs.org/pub/xemacs/beta/exp... Pre-Releases (ie.xemacs.org)</a></li>
+ <li><a href="http://ftp.heanet.ie/mirrors/ftp.xemacs.org/beta/experimental/packa... Pre-Releases (heanet.ie)</a></li>
+ <li><a href="http://ftp.it.xemacs.org/unix/packages/XEMACS/beta/experimental/pac... Pre-Releases (it.xemacs.org)</a></li>
+ <li><a href="http://ring.aist.go.jp/pub/text/xemacs/beta/experimental/packages">Japan Pre-Releases (aist.go.jp)</a></li>
+ <li><a href="http://ring.asahi-net.or.jp/pub/text/xemacs/beta/experimental/packages">Japan Pre-Releases (asahi-net.or.jp)</a></li>
+ <li><a href="http://ftp.dti.ad.jp/pub/unix/editor/xemacs/beta/experimental/packages">Japan Pre-Releases (dti.ad.jp)</a></li>
+ <li><a href="http://ftp.jaist.ac.jp/pub/GNU/xemacs/beta/experimental/packages">Japan Pre-Releases (jaist.ac.jp)</a></li>
+ <li><a href="ftp://ftp.jp.xemacs.org/pub/GNU/xemacs/beta/experimental/packages">... Pre-Releases (jp.xemacs.org)</a></li>
+ <li><a href="http://sunsite.sut.ac.jp/pub/archives/packages/xemacs/xemacs-21.5/experimental/packages">Japan Pre-Releases (sut.ac.jp)</a></li>
+ <li><a href="ftp://ftp.nz.xemacs.org/mirror/ftp.xemacs.org/packages">New Zealand Pre-Releases (nz.xemacs.org)</a></li>
+ <li><a href="http://ftp.no.xemacs.org/pub/xemacs/beta/experimental/packages">Norway Pre-Releases (no.xemacs.org)</a></li>
+ <li><a href="http://ftp.pl.xemacs.org/pub/unix/editors/xemacs/beta/experimental/... Pre-Releases (pl.xemacs.org)</a></li>
+ <li><a href="http://ftp.ru.xemacs.org/pub/xemacs/beta/experimental/packages">Russia Pre-Releases (ru.xemacs.org)</a></li>
+ <li><a href="http://ftp.za.xemacs.org/mirrorsites/ftp.xemacs.org/beta/experiment... Africa Pre-Releases (za.xemacs.org)</a></li>
+ <li><a href="http://ftp.se.xemacs.org/pub/gnu/xemacs/beta/experimental/packages"... Pre-Releases (se.xemacs.org)</a></li>
+ <li><a href="http://ftp.ch.xemacs.org/mirror/xemacs/beta/experimental/packages">... Pre-Releases (ch.xemacs.org)</a></li>
+ <li><a href="http://ftp.uk.xemacs.org/sites/ftp.xemacs.org/pub/xemacs/beta/exper... Pre-Releases (uk.xemacs.org)</a></li>
+ <li><a href="http://ibiblio.org/pub/packages/editors/xemacs/beta/experimental/pa... Pre-Releases (ibiblio.org)</a></li>
+ <li><a href="http://ftp.stealth.net/pub/mirrors/ftp.xemacs.org/pub/xemacs/beta/e... Pre-Releases (stealth.net)</a></li>
+ <li><a href="http://metalab.unc.edu/pub/packages/editors/xemacs/beta/experimenta... Pre-Releases (unc.edu)</a></li>
+ <li><a href="http://ftp.us.xemacs.org/pub/xemacs/beta/experimental/packages">US Pre-Releases (us.xemacs.org)</a></li>
+ <li><a href="http://ftp.sunsite.utk.edu/pub/xemacs/beta/experimental/packages">US Pre-Releases (utk.edu)</a></li>
+</ul>
<!-- Keep this comment at the end of the file
Local variables:
Index: Install/index.content
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacsweb/Install/index.content,v
retrieving revision 1.36
diff -u -w -r1.36 index.content
--- Install/index.content 11 Jun 2005 22:07:05 -0000 1.36
+++ Install/index.content 23 Oct 2005 17:06:46 -0000
＠＠ -162,37 +162,9 ＠＠
</dir>
<p>
- Fetch any of the above from the packages directory of
- <a href="http://ftp.xemacs.org/xemacs/packages/">ftp.xemacs.org</a>
- or a mirror in your country:
- <a href="ftp://xemacs.xmundo.net/pub/mirrors/xemacs/packages/">ar</a>
- <a href="http://ftp.at.xemacs.org/editors/xemacs/packages/">at</a>
- <a href="http://www.au.xemacs.org/pub/xemacs/packages/">au</a>
- <a href="http://ftp.be.xemacs.org/ftp/xemacs/packages/">be</a>
- <a href="ftp://ftp.br.xemacs.org/pub/xemacs/packages/">br</a>
- <a href="http://ftp.ca.xemacs.org/pub/Mirror/xemacs/packages/">ca</a>
- <a href="http://ftp.ch.xemacs.org/ftp/mirror/xemacs/packages/">ch</a>
- <a href="ftp://ftp.cz.xemacs.org/MIRRORS/ftp.xemacs.org/pub/xemacs/packages/...>
- <a href="http://ftp.de.xemacs.org/pub/ftp.xemacs.org/tux/xemacs/packages/">d...>
- <a href="http://ftp.dk.xemacs.org/pub/emacs/xemacs/packages/">dk</a>
- <a href="http://ftp.fi.xemacs.org/pub/mirrors/ftp.xemacs.org/pub/tux/xemacs/...>
- <a href="http://ftp.fr.xemacs.org/pub/xemacs/packages/">fr</a>
-<!-- <a href="http://ftp.hu.xemacs.org/ftp/packages/xemacs/packages/">hu</a> -->
- <a href="http://ftp.ie.xemacs.org/mirrors/ftp.xemacs.org/pub/xemacs/packages...>
- <a href="http://ftp.is.xemacs.org/pub/xemacs/packages/">is</a>
- <a href="http://ftp.it.xemacs.org/packages/">it</a>
- <a href="ftp://ftp.jp.xemacs.org/pub/GNU/xemacs/packages/">jp</a>
- <a href="http://ftp.kr.xemacs.org/pub/tools/emacs/xemacs/packages/">kr</a>
- <a href="http://ftp.no.xemacs.org/pub/xemacs/packages/">no</a>
- <a href="ftp://ftp.nz.xemacs.org/mirror/ftp.xemacs.org/packages/">nz</a>
- <a href="http://ftp.pl.xemacs.org/pub/unix/editors/xemacs/packages/">pl</a>
- <a href="http://ftp.ru.xemacs.org/pub/xemacs/packages/">ru</a>
-<!-- <a href="http://ftp.sa.xemacs.org/pub/mirrors/ftp.xemacs.org/pub/xemacs/pack...> -->
- <a href="http://ftp.se.xemacs.org/pub/gnu/xemacs/packages/">se</a>
- <a href="http://ftp.tw.xemacs.org/pub/xemacs/packages/">tw</a>
- <a href="http://ftp.uk.xemacs.org/sites/ftp.xemacs.org/pub/xemacs/packages/"...>
- <a href="http://ftp.us.xemacs.org/ftp/pub/xemacs/packages/">us</a>
- </p>
+ Fetch any of the above packages as documented in our <a
+ href="<!-- _GP_ relPath(qq{Releases/index.html#Packages})
+ -->">Release Notice Archive</a>.</p>
<p>
The current version number will replace the '*'.</p></li>
Index: Download/index.content
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacsweb/Download/index.content,v
retrieving revision 1.68
diff -u -w -r1.68 index.content
--- Download/index.content 22 Oct 2005 21:47:08 -0000 1.68
+++ Download/index.content 23 Oct 2005 17:06:46 -0000
＠＠ -73,8 +73,15 ＠＠
<p><b>Releases: </b></p>
<p>
- Please consult the <a href="../Releases/">Releases page</a>
- for recent releases and changes they contain.</p>
+ Please consult the <a href="<!-- _GP_
+ relPath(qq{Releases/index.html}) -->">Release Notice Archive</a>
+ for recent releases and changes they contain. Please use that
+ page instead, as it provides convenient links to particular
+ release types and package types.</p>
+
+ <p>
+ Here are some tips for manual navigation through the XEmacs
+ download area:</p>
<menu>
<li>
＠＠ -91,6 +98,17 ＠＠
The latest developmental branch release can be found in
directory <strong>beta</strong> in the mirrors below. Be
warned, beta releases can be unstable.</li>
+
+ <li>
+ The latest official xemacs package rleases can be found in
+ directory <strong>packages</strong> in the mirrors below.</li>
+
+ <li>
+ The latest xemacs pre-release packages can be found in directory
+ <strong>beta/experimental/packages</strong> in the mirrors
+ below. Be warned, pre-release packages can be unstable as they
+ serve the purpose of initial testing and fast distribution of
+ suggested fixes.</li>
<li>
Unreleased developmental versions can be found at <a href="<!--
Index: Documentation/packageGuide.content
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacsweb/Documentation/packageGuide.content,v
retrieving revision 1.32
diff -u -w -r1.32 packageGuide.content
--- Documentation/packageGuide.content 11 Jun 2005 22:05:32 -0000 1.32
+++ Documentation/packageGuide.content 23 Oct 2005 17:06:46 -0000
＠＠ -212,70 +212,14 ＠＠
<dl>
<dt>Official XEmacs Packages:</dt>
<dd>These packages have received testing from XEmacs developers
- and bleeding-edge users and are available at <a
- href="http://ftp.xemacs.org/pub/xemacs/packages/">http://ftp.xemacs.org/p...>,
- or from a mirror in your country:
- <a href="ftp://xemacs.xmundo.net/pub/mirrors/xemacs/packages/">ar</a>
- <a href="http://ftp.at.xemacs.org/editors/xemacs/packages/">at</a>
- <a href="http://www.au.xemacs.org/pub/xemacs/packages/">au</a>
- <a href="http://ftp.be.xemacs.org/ftp/xemacs/packages/">be</a>
- <a href="ftp://ftp.br.xemacs.org/pub/xemacs/packages/">br</a>
- <a href="http://ftp.ca.xemacs.org/pub/Mirror/xemacs/packages/">ca</a>
- <a href="http://ftp.ch.xemacs.org/ftp/mirror/xemacs/packages/">ch</a>
- <a href="ftp://ftp.cz.xemacs.org/MIRRORS/ftp.xemacs.org/pub/xemacs/packages/...>
- <a href="http://ftp.de.xemacs.org/pub/ftp.xemacs.org/tux/xemacs/packages/">d...>
- <a href="http://ftp.dk.xemacs.org/pub/emacs/xemacs/packages/">dk</a>
- <a href="http://ftp.fi.xemacs.org/pub/mirrors/ftp.xemacs.org/pub/tux/xemacs/...>
- <a href="http://ftp.fr.xemacs.org/pub/xemacs/packages/">fr</a>
-<!-- <a href="http://ftp.hu.xemacs.org/ftp/packages/xemacs/packages/">hu</a> -->
- <a href="http://ftp.ie.xemacs.org/mirrors/ftp.xemacs.org/pub/xemacs/packages...>
- <a href="http://ftp.is.xemacs.org/pub/xemacs/packages/">is</a>
- <a href="http://ftp.it.xemacs.org/packages/">it</a>
- <a href="ftp://ftp.jp.xemacs.org/pub/GNU/xemacs/packages/">jp</a>
- <a href="http://ftp.kr.xemacs.org/pub/tools/emacs/xemacs/packages/">kr</a>
- <a href="http://ftp.no.xemacs.org/pub/xemacs/packages/">no</a>
- <a href="ftp://ftp.nz.xemacs.org/mirror/ftp.xemacs.org/stable/">nz</a>
- <a href="http://ftp.pl.xemacs.org/pub/unix/editors/xemacs/packages/">pl</a>
- <a href="http://ftp.ru.xemacs.org/pub/xemacs/packages/">ru</a>
-<!-- <a href="http://ftp.sa.xemacs.org/pub/mirrors/ftp.xemacs.org/pub/xemacs/pack...> -->
- <a href="http://ftp.se.xemacs.org/pub/gnu/xemacs/packages/">se</a>
- <a href="http://ftp.tw.xemacs.org/pub/xemacs/packages/">tw</a>
- <a href="http://ftp.uk.xemacs.org/mirror/ftp.xemacs.org/pub/xemacs/packages/...>
- <a href="http://ftp.us.xemacs.org/ftp/pub/xemacs/packages/">us</a>
- </dd>
+ and bleeding-edge users and are available as documented in our <a
+ href="<!-- _GP_ relPath(qq{Releases/index.html#Packages})
+ -->">Release Notice Archive</a>.</dd>
<dt>Pre-Release XEmacs Packages:</dt>
<dd>These <strong>are</strong> the <cite>bleeding-edge</cite>
- packages made available at <a
- href="http://ftp.xemacs.org/pub/beta/experimental/packages/">http://ftp.x...>,
- or from a mirror in your country:
- <a href="ftp://xemacs.xmundo.net/pub/mirrors/xemacs/beta/experimental/packag...>
- <a href="http://ftp.at.xemacs.org/editors/xemacs/beta/experimental/packages/...>
- <a href="http://www.au.xemacs.org/pub/xemacs/beta/experimental/packages/">au</a>
- <a href="http://ftp.be.xemacs.org/ftp/xemacs/beta/experimental/packages/">be</a>
- <a href="ftp://ftp.br.xemacs.org/pub/xemacs/xemacs-21.5/experimental/package...>
- <a href="http://ftp.ca.xemacs.org/pub/Mirror/xemacs/beta/experimental/packag...>
- <a href="http://ftp.ch.xemacs.org/ftp/mirror/xemacs/beta/experimental/packag...>
- <a href="ftp://ftp.cz.xemacs.org/MIRRORS/ftp.xemacs.org/pub/xemacs/beta/expe...>
- <a href="http://ftp.de.xemacs.org/pub/ftp.xemacs.org/tux/xemacs/beta/experim...>
- <a href="http://ftp.dk.xemacs.org/pub/emacs/xemacs/beta/experimental/package...>
- <a href="http://ftp.fi.xemacs.org/pub/mirrors/ftp.xemacs.org/pub/tux/xemacs/...>
- <a href="http://ftp.fr.xemacs.org/pub/xemacs/beta/experimental/packages/">fr</a>
-<!-- <a href="http://ftp.hu.xemacs.org/ftp/packages/xemacs/beta/experimental/pack...> -->
- <a href="http://ftp.ie.xemacs.org/mirrors/ftp.xemacs.org/pub/xemacs/beta/exp...>
- <a href="http://ftp.is.xemacs.org/pub/xemacs/beta/experimental/packages/">is</a>
- <a href="http://ftp.it.xemacs.org/beta/experimental/packages/">it</a>
- <a href="ftp://ftp.jp.xemacs.org/pub/GNU/xemacs/beta/experimental/packages/"...>
- <a href="http://ftp.kr.xemacs.org/pub/tools/emacs/xemacs/beta/experimental/p...>
- <a href="http://ftp.no.xemacs.org/pub/xemacs/beta/experimental/packages/">no</a>
- <a href="ftp://ftp.nz.xemacs.org/mirror/ftp.xemacs.org/stable/">nz</a>
- <a href="http://ftp.pl.xemacs.org/pub/unix/editors/xemacs/beta/experimental/...>
- <a href="http://ftp.ru.xemacs.org/pub/xemacs/beta/experimental/packages/">ru</a>
-<!-- <a href="http://ftp.sa.xemacs.org/pub/mirrors/ftp.xemacs.org/pub/xemacs/beta...> -->
- <a href="http://ftp.se.xemacs.org/pub/gnu/xemacs/beta/experimental/packages/...>
- <a href="http://ftp.tw.xemacs.org/pub/xemacs/beta/experimental/packages/">tw</a>
- <a href="http://ftp.uk.xemacs.org/sites/ftp.xemacs.org/pub/xemacs/xemacs-21....>
- <a href="http://ftp.us.xemacs.org/ftp/pub/xemacs/beta/experimental/packages/...>
- , for testing purposes. <a href="<!-- _GP_
+ packages made available as documented in our <a href="<!-- _GP_
+ relPath(qq{Releases/index.html#Pre-Releases}) -->">Release Notice
+ Archive</a> for testing purposes. <a href="<!-- _GP_
relPath(qq{Debug/index.html#ReportingBugs}) -->">Reporting
Bugs</a> is the best means to get any issues with these packages
fixed.</dd>
--
Adrian Aichner
mailto:adrian＠xemacs.org
http://www.xemacs.org/
- 1 participants
- 0 comments
[CS<1129652628.1640.7.camel@localhost.localdomain> 21.5R21.4] [C] xemacs-21.5-clean: Sync packages mirrors list with website
18 years, 6 months
Adrian Aichner
Adrian Aichner
COMMIT
COMMIT SUPERSEDES <1129652628.1640.7.camel(a)localhost.localdomain> 21.5 RECOMMEND 21.4
Hi Ville, based on your work I've done some more checking.
Stephen, or anyone else in Japan, could you please try the Japanese
package sites and provide us feedback.
>From Germany even jp.xemacs.org does not respond:
Yesterday checklink gave this:
ftp://ftp.jp.xemacs.org/pub/GNU/xemacs/packages/ Line: 505
Code: 404 File 'packages' not found
To do: The link is broken. Fix it NOW!
Currently, firefox gives Error 502 (down or not responding).
A related website update, and responsible for most of the delay, is
in the works.
Thanks!
Adrian
xemacs-21.5-clean ChangeLog patch:
Diff command: cvs -q diff -U 0
Files affected: lisp/ChangeLog
Index: lisp/ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v
retrieving revision 1.685
diff -u -U0 -r1.685 ChangeLog
--- lisp/ChangeLog 21 Oct 2005 15:48:28 -0000 1.685
+++ lisp/ChangeLog 23 Oct 2005 16:56:00 -0000
＠＠ -0,0 +1,13 ＠＠
+2005-10-23 Adrian Aichner <adrian(a)xemacs.org>
+
+ * package-get.el (package-get-download-sites): Sync packages
+ mirrors list with website, based on Ville's work.
+ * package-get.el (package-get-pre-release-download-sites): Sync
+ with `package-get-download-sites'.
+
+2005-10-18 Ville Skyttä <scop(a)xemacs.org>
+
+ * package-get.el (package-get-download-sites): Sync mirrors list
+ with the XEmacs website.
+ (package-get-pre-release-download-sites): Ditto.
+
xemacs-21.5-clean source patch:
Diff command: cvs -f -z3 -q diff -u -w -N
Files affected: lisp/package-get.el
Index: lisp/package-get.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/package-get.el,v
retrieving revision 1.69
diff -u -w -r1.69 package-get.el
--- lisp/package-get.el 5 Jun 2005 22:46:56 -0000 1.69
+++ lisp/package-get.el 23 Oct 2005 16:47:43 -0000
＠＠ -204,6 +204,7 ＠＠
("US (Main XEmacs Site)"
"ftp.xemacs.org" "pub/xemacs/packages")
;; In alphabetical order of Country, our mirrors...
+ ("Argentina (xmundo.net)" "xemacs.xmundo.net" "pub/mirrors/xemacs/packages")
("Australia (aarnet.edu.au)" "mirror.aarnet.edu.au" "pub/xemacs/packages")
("Australia (au.xemacs.org)" "ftp.au.xemacs.org" "pub/xemacs/packages")
("Austria (at.xemacs.org)" "ftp.at.xemacs.org" "editors/xemacs/packages")
＠＠ -211,7 +212,7 ＠＠
("Brazil (br.xemacs.org)" "ftp.br.xemacs.org" "pub/xemacs/packages")
("Canada (ca.xemacs.org)" "ftp.ca.xemacs.org" "pub/Mirror/xemacs/packages")
("Canada (crc.ca)" "ftp.crc.ca" "pub/packages/editors/xemacs/packages")
- ("Canada (ualberta.ca)" "sunsite.ualberta.ca" "pub/Mirror/xemacs/packages")
+ ("Canada (nrc.ca)" "ftp.nrc.ca" "pub/packages/editors/xemacs/packages")
("Czech Republic (cz.xemacs.org)" "ftp.cz.xemacs.org" "MIRRORS/ftp.xemacs.org/pub/xemacs/packages")
("Denmark (dk.xemacs.org)" "ftp.dk.xemacs.org" "pub/emacs/xemacs/packages")
("Finland (fi.xemacs.org)" "ftp.fi.xemacs.org" "pub/mirrors/ftp.xemacs.org/pub/tux/xemacs/packages")
＠＠ -219,22 +220,22 ＠＠
("France (mirror.cict.fr)" "mirror.cict.fr" "xemacs/packages")
("France (pasteur.fr)" "ftp.pasteur.fr" "pub/computing/xemacs/packages")
("Germany (de.xemacs.org)" "ftp.de.xemacs.org" "pub/ftp.xemacs.org/tux/xemacs/packages")
- ("Germany (tu-darmstadt.de)" "ftp.tu-darmstadt.de" "pub/editors/xemacs/packages")
+ ("Iceland (is.xemacs.org)" "ftp.is.xemacs.org" "pub/xemacs/packages")
("Ireland (ie.xemacs.org)" "ftp.ie.xemacs.org" "mirrors/ftp.xemacs.org/pub/xemacs/packages")
+ ("Ireland (heanet.ie)" "ftp.heanet.ie" "mirrors/ftp.xemacs.org/packages")
("Italy (it.xemacs.org)" "ftp.it.xemacs.org" "unix/packages/XEMACS/packages")
("Japan (aist.go.jp)" "ring.aist.go.jp" "pub/text/xemacs/packages")
("Japan (asahi-net.or.jp)" "ring.asahi-net.or.jp" "pub/text/xemacs/packages")
("Japan (dti.ad.jp)" "ftp.dti.ad.jp" "pub/unix/editor/xemacs/packages")
("Japan (jaist.ac.jp)" "ftp.jaist.ac.jp" "pub/GNU/xemacs/packages")
("Japan (jp.xemacs.org)" "ftp.jp.xemacs.org" "pub/GNU/xemacs/packages")
- ("Japan (nucba.ac.jp)" "mirror.nucba.ac.jp" "mirror/xemacs/packages")
+; ("Japan (nucba.ac.jp)" "mirror.nucba.ac.jp" "mirror/xemacs/packages")
("Japan (sut.ac.jp)" "sunsite.sut.ac.jp" "pub/archives/packages/xemacs/packages")
("Korea (kr.xemacs.org)" "ftp.kr.xemacs.org" "pub/tools/emacs/xemacs/packages")
("New Zealand (nz.xemacs.org)" "ftp.nz.xemacs.org" "mirror/ftp.xemacs.org/packages")
("Norway (no.xemacs.org)" "ftp.no.xemacs.org" "pub/xemacs/packages")
("Poland (pl.xemacs.org)" "ftp.pl.xemacs.org" "pub/unix/editors/xemacs/packages")
("Russia (ru.xemacs.org)" "ftp.ru.xemacs.org" "pub/xemacs/packages")
- ("Slovakia (sk.xemacs.org)" "ftp.sk.xemacs.org" "pub/mirrors/xemacs/packages")
("South Africa (za.xemacs.org)" "ftp.za.xemacs.org" "mirrorsites/ftp.xemacs.org/packages")
("Sweden (se.xemacs.org)" "ftp.se.xemacs.org" "pub/gnu/xemacs/packages")
("Switzerland (ch.xemacs.org)" "ftp.ch.xemacs.org" "mirror/xemacs/packages")
＠＠ -263,20 +264,24 ＠＠
("Pre-Releases (Main XEmacs Site)" "ftp.xemacs.org"
"pub/xemacs/beta/experimental/packages")
;; In alphabetical order of Country, our mirrors...
+ ("Argentina Pre-Releases (xmundo.net)" "xemacs.xmundo.net"
+ "pub/mirrors/xemacs/beta/experimental/packages")
("Australia Pre-Releases (aarnet.edu.au)" "mirror.aarnet.edu.au"
"pub/xemacs/beta/experimental/packages")
("Australia Pre-Releases (au.xemacs.org)" "ftp.au.xemacs.org"
"pub/xemacs/beta/experimental/packages")
("Austria Pre-Releases (at.xemacs.org)" "ftp.at.xemacs.org"
- "editors/xemacs/beta/experimentsl/packages")
+ "editors/xemacs/beta/experimental/packages")
+ ("Belgium (be.xemacs.org)" "ftp.be.xemacs.org"
+ "xemacs/beta/experimental/packages")
("Brazil Pre-Releases (br.xemacs.org)" "ftp.br.xemacs.org"
"pub/xemacs/xemacs-21.5/experimental/packages")
("Canada Pre-Releases (ca.xemacs.org)" "ftp.ca.xemacs.org"
"pub/Mirror/xemacs/beta/experimental/packages")
("Canada Pre-Releases (crc.ca)" "ftp.crc.ca"
"pub/packages/editors/xemacs/beta/experimental/packages")
- ("Canada Pre-Releases (ualberta.ca)" "sunsite.ualberta.ca"
- "pub/Mirror/xemacs/beta/experimental/packages")
+ ("Canada Pre-Releases (nrc.ca)" "ftp.nrc.ca"
+ "pub/packages/editors/xemacs/beta/experimental/packages")
("Czech Republic Pre-Releases (cz.xemacs.org)" "ftp.cz.xemacs.org"
"MIRRORS/ftp.xemacs.org/pub/xemacs/xemacs-21.5/experimental/packages")
("Denmark Pre-Releases (dk.xemacs.org)" "ftp.dk.xemacs.org"
＠＠ -291,10 +296,12 ＠＠
"pub/computing/xemacs/beta/experimental/packages")
("Germany Pre-Releases (de.xemacs.org)" "ftp.de.xemacs.org"
"pub/ftp.xemacs.org/tux/xemacs/beta/experimental/packages")
- ("Germany Pre-Releases (tu-darmstadt.de)" "ftp.tu-darmstadt.de"
- "pub/editors/xemacs/beta/experimental/packages")
+ ("Iceland Pre-Releases (is.xemacs.org)" "ftp.is.xemacs.org"
+ "pub/xemacs/beta/experimental/packages")
("Ireland Pre-Releases (ie.xemacs.org)" "ftp.ie.xemacs.org"
"mirrors/ftp.xemacs.org/pub/xemacs/beta/experimental/packages")
+ ("Ireland Pre-Releases (heanet.ie)" "ftp.heanet.ie"
+ "mirrors/ftp.xemacs.org/beta/experimental/packages")
("Italy Pre-Releases (it.xemacs.org)" "ftp.it.xemacs.org"
"unix/packages/XEMACS/beta/experimental/packages")
("Japan Pre-Releases (aist.go.jp)" "ring.aist.go.jp"
＠＠ -309,17 +316,16 ＠＠
"pub/GNU/xemacs/beta/experimental/packages")
("Japan Pre-Releases (sut.ac.jp)" "sunsite.sut.ac.jp"
"pub/archives/packages/xemacs/xemacs-21.5/experimental/packages")
- ("New Zealand Pre-Releases (nz.xemacs.org)" "ftp.nz.xemacs.org" "mirror/ftp.xemacs.org/packages")
+ ("Korea (kr.xemacs.org)" "ftp.kr.xemacs.org"
+ "pub/tools/emacs/xemacs/beta/experimental/packages")
+ ("New Zealand Pre-Releases (nz.xemacs.org)" "ftp.nz.xemacs.org"
+ "mirror/ftp.xemacs.org/packages")
("Norway Pre-Releases (no.xemacs.org)" "ftp.no.xemacs.org"
"pub/xemacs/beta/experimental/packages")
("Poland Pre-Releases (pl.xemacs.org)" "ftp.pl.xemacs.org"
"pub/unix/editors/xemacs/beta/experimental/packages")
("Russia Pre-Releases (ru.xemacs.org)" "ftp.ru.xemacs.org"
"pub/xemacs/beta/experimental/packages")
- ("Saudi Arabia Pre-Releases (sa.xemacs.org)" "ftp.sa.xemacs.org"
- "pub/mirrors/ftp.xemacs.org/xemacs/xemacs-21.5/experimental/packages")
- ("Slovakia Pre-Releases (sk.xemacs.org)" "ftp.sk.xemacs.org"
- "pub/mirrors/xemacs/beta/experimental/packages")
("South Africa Pre-Releases (za.xemacs.org)" "ftp.za.xemacs.org"
"mirrorsites/ftp.xemacs.org/beta/experimental/packages")
("Sweden Pre-Releases (se.xemacs.org)" "ftp.se.xemacs.org"
--
Adrian Aichner
mailto:adrian＠xemacs.org
http://www.xemacs.org/
- 1 participants
- 0 comments
eBay Deal
18 years, 6 months
Chris Schmidt
Chris Schmidt
Hi,
I am contacting you regarding a deal on eBay. I am a new user and i have 0 feedback. Iwould like to know if you can help me selling an item on ebay because i saw you have
a positive feedback.I am asking this because i am afraid i could get scammed, since i am a new user. In exchange i will pay you 20% from the total amount, in case my item will be sold.If you agree let me know and i will provide you the pictures and the details of my product.
Email me back if you agree.
Thanks
Chris
- 1 participants
- 0 comments
[C] xemacsweb: Remove ftp.jaist.ac.jp and mirror.nucba.ac.jp from Download/index.content
18 years, 6 months
Adrian Aichner
Adrian Aichner
COMMIT
As part of my review of
xemacs/lisp/package-get.el
xemacsweb/Download/index.content
xemacsweb/Releases/index.content
xemacsweb/Documentation/packageGuide.content
xemacsweb/Install/index.content
I found these sites not to respond.
It went unnoticed for so long, because my linklint checking only tests
http links.
Adrian
xemacsweb ChangeLog patch:
Diff command: cvs -q diff -U 0
Files affected: Download/ChangeLog
Index: Download/ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacsweb/Download/ChangeLog,v
retrieving revision 1.166
diff -u -U0 -r1.166 ChangeLog
--- Download/ChangeLog 17 Oct 2005 22:15:15 -0000 1.166
+++ Download/ChangeLog 22 Oct 2005 21:45:07 -0000
＠＠ -0,0 +1,4 ＠＠
+2005-10-22 Adrian Aichner <adrian(a)xemacs.org>
+
+ * index.content: Remove ftp.jaist.ac.jp and mirror.nucba.ac.jp.
+
xemacsweb source patch:
Diff command: cvs -f -z3 -q diff -u -w -N
Files affected: Download/index.content
Index: Download/index.content
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacsweb/Download/index.content,v
retrieving revision 1.67
diff -u -w -r1.67 index.content
--- Download/index.content 17 Oct 2005 22:15:16 -0000 1.67
+++ Download/index.content 22 Oct 2005 21:44:14 -0000
＠＠ -232,8 +232,6 ＠＠
<p></p>
<h5>Secondary Mirrors</h5>
<ul>
- <li><a href="ftp://ftp.jaist.ac.jp/pub/GNU/xemacs/"
- >ftp://ftp.jaist.ac.jp/pub/GNU/xemacs/</a></li>
<li><a href="ftp://ring.aist.go.jp/pub/text/xemacs/"
>ftp://ring.aist.go.jp/pub/text/xemacs/</a></li>
<li><a href="ftp://ring.asahi-net.or.jp/pub/text/xemacs/"
＠＠ -242,8 +240,6 ＠＠
>ftp://sunsite.sut.ac.jp/pub/archives/packages/xemacs/</a></li>
<li><a href="ftp://ftp.dti.ad.jp/pub/unix/editor/xemacs/"
>ftp://ftp.dti.ad.jp/pub/unix/editor/xemacs/</a></li>
- <li><a href="ftp://mirror.nucba.ac.jp/mirror/xemacs/"
- >ftp://mirror.nucba.ac.jp/mirror/xemacs/</a></li>
</ul></li>
</ul>
<p></p>
--
Adrian Aichner
mailto:adrian＠xemacs.org
http://www.xemacs.org/
- 1 participants
- 0 comments
Door-opener!
18 years, 6 months
Anita
Anita
Genuine College Degree in 2 Weeks!
Have you ever thought that the only thing stopping you from
a great job and better pay was a few letters behind your name?
Well now you can get them!
BA BSc MA MSc MBA PHD
Within 2 weeks!
No Study Required!
100% Verifiable
These are real, genuine degrees that include Bachel0rs,D0ctorate,
and so on,almost every degrees you want! They are verifiable and
student rec0rds and transcripts are also available. This little
known s.ecret has beenkept quiet for years. The opp0rtunity exists
due to a lega.l loophole all0wing some established c0lleges to award
degrees at their discretion.
With all of the attention that this news has been generating, I wouldn't
be surprised to see this loophole closed very soon.
Call now for more information today, you'll thank me later...
1-206-279-9144
We accept your call 24*7!
- 1 participants
- 0 comments