carbon2-commit: Prevent access to uninitialized variables in x_init_device.
16 years, 11 months
Aidan Kehoe
Aidan Kehoe
changeset: 4419:80e07b006f9c32715be50f894640af03293ae544
user: Jerry James <james(a)xemacs.org>
date: Fri Jan 18 16:12:31 2008 -0700
files: src/ChangeLog src/device-x.c
description:
Prevent access to uninitialized variables in x_init_device.
2008-01-18 Jerry James <james(a)xemacs.org>
* device-x.c (x_init_device): Don't write to path or read from
format when neither has been initialized.
diff -r 7080e020d70021a200ac537c0c58a6c210135934 -r 80e07b006f9c32715be50f894640af03293ae544 src/ChangeLog
--- a/src/ChangeLog Thu Jan 17 21:02:42 2008 -0500
+++ b/src/ChangeLog Fri Jan 18 16:12:31 2008 -0700
＠＠ -1,3 +1,8 ＠＠ 2008-01-16 Aidan Kehoe <kehoea＠parhasa
+2008-01-18 Jerry James <james(a)xemacs.org>
+
+ * device-x.c (x_init_device): Don't write to path or read from
+ format when neither has been initialized.
+
2008-01-16 Aidan Kehoe <kehoea(a)parhasard.net>
* elhash.c (internal_hash):
diff -r 7080e020d70021a200ac537c0c58a6c210135934 -r 80e07b006f9c32715be50f894640af03293ae544 src/device-x.c
--- a/src/device-x.c Thu Jan 17 21:02:42 2008 -0500
+++ b/src/device-x.c Fri Jan 18 16:12:31 2008 -0700
＠＠ -703,6 +703,10 ＠＠ x_init_device (struct device *d, Lisp_Ob
path = alloca_extbytes (strlen (data_dir) + 13 + strlen (locale) + 7);
format = "%sapp-defaults/%s/Emacs";
}
+ else
+ {
+ goto no_data_directory;
+ }
/*
* The general form for $LANG is <language>_<country>.<encoding>. Try
＠＠ -730,6 +734,7 ＠＠ x_init_device (struct device *d, Lisp_Ob
XrmCombineFileDatabase (path, &db, False);
}
+ no_data_directory:
xfree (locale, Extbyte*);
}
#endif /* MULE */
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
- 1 participants
- 0 comments
carbon2-commit: Add support for the Intel compiler under Windows
16 years, 11 months
Aidan Kehoe
Aidan Kehoe
changeset: 4418:7080e020d70021a200ac537c0c58a6c210135934
parent: 4416:e70cc8a90e9043075a0e40fe9587d2c931fb618e
user: Vin Shelton <acs(a)xemacs.org>
date: Thu Jan 17 21:02:42 2008 -0500
files: nt/ChangeLog nt/config.inc.samp nt/xemacs.mak
description:
Add support for the Intel compiler under Windows
diff -r e70cc8a90e9043075a0e40fe9587d2c931fb618e -r 7080e020d70021a200ac537c0c58a6c210135934 nt/ChangeLog
--- a/nt/ChangeLog Thu Jan 17 11:55:11 2008 +0100
+++ b/nt/ChangeLog Thu Jan 17 21:02:42 2008 -0500
＠＠ -1,3 +1,9 ＠＠ 2007-10-15 Adrian Aichner <adrian＠xema
+2008-01-17 Vin Shelton <acs(a)xemacs.org>
+
+ * config.inc.samp: Added USE_INTEL_COMPILER to support the Intel
+ compiler.
+ * xemacs.mak: Use USE_INTEL_COMPILER.
+
2007-10-15 Adrian Aichner <adrian(a)xemacs.org>
* xemacs.mak (INFO_FILES): Sync nt/xemacs.mak and man/Makefile
diff -r e70cc8a90e9043075a0e40fe9587d2c931fb618e -r 7080e020d70021a200ac537c0c58a6c210135934 nt/config.inc.samp
--- a/nt/config.inc.samp Thu Jan 17 11:55:11 2008 +0100
+++ b/nt/config.inc.samp Thu Jan 17 21:02:42 2008 -0500
＠＠ -257,3 +257,6 ＠＠ NEW_GC=0
# *AND CURRENTLY HAPPENS WITH VC++*, at least when using pdump. Therefore,
# be warned!
USE_UNION_TYPE=0
+
+# Set this to build XEmacs with the Intel C Compiler.
+USE_INTEL_COMPILER=0
diff -r e70cc8a90e9043075a0e40fe9587d2c931fb618e -r 7080e020d70021a200ac537c0c58a6c210135934 nt/xemacs.mak
--- a/nt/xemacs.mak Thu Jan 17 11:55:11 2008 +0100
+++ b/nt/xemacs.mak Thu Jan 17 21:02:42 2008 -0500
＠＠ -250,6 +250,11 ＠＠ USE_MINITAR=$(HAVE_ZLIB)
# NOTE: The various graphics libraries are generally compiled to use
# MSVCRT.DLL (the same that we use in USE_CRTDLL, more or less), so using
# this is a good thing.
+
+!if $(USE_INTEL_COMPILER)
+CC=icl
+INTEL_LIBS=libirc.lib libmmt.lib
+!endif
!if !defined(USE_SYSTEM_MALLOC)
USE_SYSTEM_MALLOC=$(USE_PORTABLE_DUMPER)
＠＠ -1290,7 +1295,7 ＠＠ TEMACS_LIBS=$(LASTFILE) $(OPT_LIBS) \
TEMACS_LIBS=$(LASTFILE) $(OPT_LIBS) \
oldnames.lib kernel32.lib user32.lib gdi32.lib comdlg32.lib advapi32.lib \
shell32.lib wsock32.lib netapi32.lib winmm.lib winspool.lib ole32.lib \
- mpr.lib uuid.lib imm32.lib $(LIBC_LIB)
+ mpr.lib uuid.lib imm32.lib $(INTEL_LIBS) $(LIBC_LIB)
TEMACS_COMMON_LFLAGS=-nologo $(LIBRARIES) $(DEBUG_FLAGS_LINK) \
-base:0x1000000 -stack:0x800000 $(TEMACS_ENTRYPOINT) -subsystem:windows \
-heap:0x00100000 -nodefaultlib $(PROFILE_FLAGS) setargv.obj
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
- 1 participants
- 0 comments
[AC pkgs (perl-modes)] Sync cperl-mode with upstream 5.24
16 years, 11 months
Ville Skyttä
Ville Skyttä
APPROVE COMMIT
2008-01-20 Ville Skyttä <scop(a)xemacs.org>
* cperl-mode.el: Sync with upstream version 5.24.
(auto-mode-alist): Match *.PM.
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
- 1 participants
- 0 comments
[COMMIT] 21.4 Support Intel compiler under Windows
16 years, 11 months
Vin Shelton
Vin Shelton
The 21.4 version of the Intel compiler patch.
nt/ChangeLog addition:
2008-01-18 Vin Shelton <acs(a)xemacs.org>
* xemacs.mak: Support Intel C compiler.
* config.inc.samp: ditto.
21.4 source patch:
Diff command: cvs -q diff -u
Files affected: nt/config.inc.samp nt/xemacs.mak
Index: nt/xemacs.mak
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/nt/xemacs.mak,v
retrieving revision 1.58.2.13
diff -a -u -u -r1.58.2.13 xemacs.mak
--- nt/xemacs.mak 2006/03/18 19:26:32 1.58.2.13
+++ nt/xemacs.mak 2008/01/19 16:47:18
＠＠ -353,6 +353,16 ＠＠
! endif
!endif
+!if $(USE_INTEL_COMPILER)
+CC=icl
+# Use static library if possible
+INTEL_LIBS=libircmt.lib libmmt.lib
+# Debugging requires DLL version of libm
+!if $(DEBUG_XEMACS)
+INTEL_LIBS=libircmt.lib libmmd.lib
+!endif
+!endif
+
#
# Compiler command echo control. Define VERBOSECC=1 to get verbose compilation.
#
＠＠ -872,7 +882,8 ＠＠
TEMACS_SRC=$(SRC)
TEMACS_LIBS=$(LASTFILE) $(LWLIB) $(X_LIBS) $(MSW_LIBS) \
oldnames.lib kernel32.lib user32.lib gdi32.lib comdlg32.lib advapi32.lib \
- shell32.lib wsock32.lib winmm.lib winspool.lib ole32.lib uuid.lib $(LIBC_LIB)
+ shell32.lib wsock32.lib winmm.lib winspool.lib ole32.lib uuid.lib \
+ $(INTEL_LIBS) $(LIBC_LIB)
TEMACS_LFLAGS=-nologo $(LIBRARIES) $(DEBUG_FLAGS) -base:0x1000000\
-stack:0x800000 $(TEMACS_ENTRYPOINT) -subsystem:windows\
-pdb:$(TEMACS_DIR)\temacs.pdb -map:$(TEMACS_DIR)\temacs.map \
Index: nt/config.inc.samp
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/nt/config.inc.samp,v
retrieving revision 1.2.2.5
diff -a -u -u -r1.2.2.5 config.inc.samp
--- nt/config.inc.samp 2006/03/18 19:26:32 1.2.2.5
+++ nt/config.inc.samp 2008/01/19 16:47:18
＠＠ -98,3 +98,5 ＠＠
# routines, instead of the older "unexec" routines in unexnt.c.
USE_PORTABLE_DUMPER=1
+# Set this to build XEmacs with the Intel C Compiler.
+USE_INTEL_COMPILER=0
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
- 1 participants
- 0 comments
commit: Prevent access to uninitialized variables in x_init_device.
16 years, 11 months
Jerry James
Jerry James
changeset: 4404:80e07b006f9c32715be50f894640af03293ae544
tag: tip
user: Jerry James <james(a)xemacs.org>
date: Fri Jan 18 16:12:31 2008 -0700
files: src/ChangeLog src/device-x.c
description:
Prevent access to uninitialized variables in x_init_device.
2008-01-18 Jerry James <james(a)xemacs.org>
* device-x.c (x_init_device): Don't write to path or read from
format when neither has been initialized.
diff -r 7080e020d70021a200ac537c0c58a6c210135934 -r 80e07b006f9c32715be50f894640af03293ae544 src/ChangeLog
--- a/src/ChangeLog Thu Jan 17 21:02:42 2008 -0500
+++ b/src/ChangeLog Fri Jan 18 16:12:31 2008 -0700
＠＠ -1,3 +1,8 ＠＠ 2008-01-16 Aidan Kehoe <kehoea＠parhasa
+2008-01-18 Jerry James <james(a)xemacs.org>
+
+ * device-x.c (x_init_device): Don't write to path or read from
+ format when neither has been initialized.
+
2008-01-16 Aidan Kehoe <kehoea(a)parhasard.net>
* elhash.c (internal_hash):
diff -r 7080e020d70021a200ac537c0c58a6c210135934 -r 80e07b006f9c32715be50f894640af03293ae544 src/device-x.c
--- a/src/device-x.c Thu Jan 17 21:02:42 2008 -0500
+++ b/src/device-x.c Fri Jan 18 16:12:31 2008 -0700
＠＠ -703,6 +703,10 ＠＠ x_init_device (struct device *d, Lisp_Ob
path = alloca_extbytes (strlen (data_dir) + 13 + strlen (locale) + 7);
format = "%sapp-defaults/%s/Emacs";
}
+ else
+ {
+ goto no_data_directory;
+ }
/*
* The general form for $LANG is <language>_<country>.<encoding>. Try
＠＠ -730,6 +734,7 ＠＠ x_init_device (struct device *d, Lisp_Ob
XrmCombineFileDatabase (path, &db, False);
}
+ no_data_directory:
xfree (locale, Extbyte*);
}
#endif /* MULE */
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
- 1 participants
- 0 comments
commit: 2008-01-13 Michael Sperber <mike@xemacs.org>
16 years, 11 months
Michael Sperber
Michael Sperber
changeset: 4400:555e21a66d51b966860fc9a82a4e6a1cf40a78fe
tag: tip
user: Mike Sperber <sperber(a)deinprogramm.de>
date: Thu Jan 17 10:18:05 2008 +0100
files: lisp/ChangeLog lisp/files.el
description:
2008-01-13 Michael Sperber <mike(a)xemacs.org>
* files.el (insert-directory): Bind `coding-system-for-read'
according to the current locale where available. (Previously, the
default ended up being undecided, which doesn't work well for
UTF-8-based locales, for example.)
diff -r e5b3c4dbc8a2a2c9c86f8d6e8b606a09033415db -r 555e21a66d51b966860fc9a82a4e6a1cf40a78fe lisp/ChangeLog
--- a/lisp/ChangeLog Wed Jan 16 15:43:01 2008 +0100
+++ b/lisp/ChangeLog Thu Jan 17 10:18:05 2008 +0100
＠＠ -1,3 +1,10 ＠＠ 2008-01-16 Aidan Kehoe <kehoea＠parhasa
+2008-01-17 Mike Sperber <mike(a)xemacs.org>
+
+ * files.el (insert-directory): Bind `coding-system-for-read' to
+ the `file-name' coding system. (Previously, the default ended up
+ being undecided, which doesn't work well for UTF-8-based locales,
+ for example.)
+
2008-01-16 Aidan Kehoe <kehoea(a)parhasard.net>
* keydefs.el (global-map):
diff -r e5b3c4dbc8a2a2c9c86f8d6e8b606a09033415db -r 555e21a66d51b966860fc9a82a4e6a1cf40a78fe lisp/files.el
--- a/lisp/files.el Wed Jan 16 15:43:01 2008 +0100
+++ b/lisp/files.el Thu Jan 17 10:18:05 2008 +0100
＠＠ -4177,6 +4177,9 ＠＠ If WILDCARD, it also runs the shell spec
file switches wildcard full-directory-p)))
(t
(let* ((beg (point))
+ ;; on Unix, assume that ls will output in what the
+ ;; file-name coding system specifies
+ (coding-system-for-read (get-coding-system 'file-name))
(result
(if wildcard
;; Run ls in the directory of the file pattern we asked for.
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
- 3 participants
- 3 comments
Re: [Q] commit: Automated merge with ssh://aidan-guest@hg.debian.org//hg/xemacs/xemacs
16 years, 11 months
Aidan Kehoe
Aidan Kehoe
Ar an t-ochtú lá déag de mí Eanair, scríobh Stephen J. Turnbull:
> Aidan Kehoe writes:
>
> > It's being generated by hg fetch,
>
> But it doesn't happen for anybody else. Why does this only happen for
> you?
These:
http://calypso.tux.org/pipermail/xemacs-patches/2007-December/001095.html
http://calypso.tux.org/pipermail/xemacs-patches/2007-December/001097.html
from you and Mike, respectively, are equivalent messages, that happen not to
use the fetch extension. I imagine there are more from me because I’m making
more changes.
> > a Mercurial extension which does what cvs update used to do, but
> > better.
>
> Please, let's not compare to CVS, that's more waste of bandwidth.
> What does it do better than "hg pull -u"?
It merges automatically, when that is possible, and pops up a conflict
resolution tool when that isn’t.
--
¿Dónde estará ahora mi sobrino Yoghurtu Nghé, que tuvo que huir
precipitadamente de la aldea por culpa de la escasez de rinocerontes?
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
- 1 participants
- 0 comments
commit: Add support for the Intel compiler under Windows
16 years, 11 months
Vin Shelton
Vin Shelton
changeset: 4403:7080e020d70021a200ac537c0c58a6c210135934
tag: tip
user: Vin Shelton <acs(a)xemacs.org>
date: Thu Jan 17 21:02:42 2008 -0500
files: nt/ChangeLog nt/config.inc.samp nt/xemacs.mak
description:
Add support for the Intel compiler under Windows
diff -r e70cc8a90e9043075a0e40fe9587d2c931fb618e -r 7080e020d70021a200ac537c0c58a6c210135934 nt/ChangeLog
--- a/nt/ChangeLog Thu Jan 17 11:55:11 2008 +0100
+++ b/nt/ChangeLog Thu Jan 17 21:02:42 2008 -0500
＠＠ -1,3 +1,9 ＠＠ 2007-10-15 Adrian Aichner <adrian＠xema
+2008-01-17 Vin Shelton <acs(a)xemacs.org>
+
+ * config.inc.samp: Added USE_INTEL_COMPILER to support the Intel
+ compiler.
+ * xemacs.mak: Use USE_INTEL_COMPILER.
+
2007-10-15 Adrian Aichner <adrian(a)xemacs.org>
* xemacs.mak (INFO_FILES): Sync nt/xemacs.mak and man/Makefile
diff -r e70cc8a90e9043075a0e40fe9587d2c931fb618e -r 7080e020d70021a200ac537c0c58a6c210135934 nt/config.inc.samp
--- a/nt/config.inc.samp Thu Jan 17 11:55:11 2008 +0100
+++ b/nt/config.inc.samp Thu Jan 17 21:02:42 2008 -0500
＠＠ -257,3 +257,6 ＠＠ NEW_GC=0
# *AND CURRENTLY HAPPENS WITH VC++*, at least when using pdump. Therefore,
# be warned!
USE_UNION_TYPE=0
+
+# Set this to build XEmacs with the Intel C Compiler.
+USE_INTEL_COMPILER=0
diff -r e70cc8a90e9043075a0e40fe9587d2c931fb618e -r 7080e020d70021a200ac537c0c58a6c210135934 nt/xemacs.mak
--- a/nt/xemacs.mak Thu Jan 17 11:55:11 2008 +0100
+++ b/nt/xemacs.mak Thu Jan 17 21:02:42 2008 -0500
＠＠ -250,6 +250,11 ＠＠ USE_MINITAR=$(HAVE_ZLIB)
# NOTE: The various graphics libraries are generally compiled to use
# MSVCRT.DLL (the same that we use in USE_CRTDLL, more or less), so using
# this is a good thing.
+
+!if $(USE_INTEL_COMPILER)
+CC=icl
+INTEL_LIBS=libirc.lib libmmt.lib
+!endif
!if !defined(USE_SYSTEM_MALLOC)
USE_SYSTEM_MALLOC=$(USE_PORTABLE_DUMPER)
＠＠ -1290,7 +1295,7 ＠＠ TEMACS_LIBS=$(LASTFILE) $(OPT_LIBS) \
TEMACS_LIBS=$(LASTFILE) $(OPT_LIBS) \
oldnames.lib kernel32.lib user32.lib gdi32.lib comdlg32.lib advapi32.lib \
shell32.lib wsock32.lib netapi32.lib winmm.lib winspool.lib ole32.lib \
- mpr.lib uuid.lib imm32.lib $(LIBC_LIB)
+ mpr.lib uuid.lib imm32.lib $(INTEL_LIBS) $(LIBC_LIB)
TEMACS_COMMON_LFLAGS=-nologo $(LIBRARIES) $(DEBUG_FLAGS_LINK) \
-base:0x1000000 -stack:0x800000 $(TEMACS_ENTRYPOINT) -subsystem:windows \
-heap:0x00100000 -nodefaultlib $(PROFILE_FLAGS) setargv.obj
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
- 1 participants
- 0 comments
[COMMIT 21.5] Patch to support Intel compiler on Windows
16 years, 11 months
Vin Shelton
Vin Shelton
I got a copy of the Intel C++ compiler for Windoze and this patch
enables support for it.
diff -r e70cc8a90e90 nt/ChangeLog
--- a/nt/ChangeLog Thu Jan 17 11:55:11 2008 +0100
+++ b/nt/ChangeLog Thu Jan 17 20:55:02 2008 -0500
＠＠ -1,3 +1,9 ＠＠ 2007-10-15 Adrian Aichner <adrian＠xema
+2008-01-17 Vin Shelton <acs(a)xemacs.org>
+
+ * config.inc.samp: Added USE_INTEL_COMPILER to support the Intel
+ compiler.
+ * xemacs.mak: Use USE_INTEL_COMPILER.
+
2007-10-15 Adrian Aichner <adrian(a)xemacs.org>
* xemacs.mak (INFO_FILES): Sync nt/xemacs.mak and man/Makefile
diff -r e70cc8a90e90 nt/config.inc.samp
--- a/nt/config.inc.samp Thu Jan 17 11:55:11 2008 +0100
+++ b/nt/config.inc.samp Thu Jan 17 20:55:02 2008 -0500
＠＠ -257,3 +257,6 ＠＠ NEW_GC=0
# *AND CURRENTLY HAPPENS WITH VC++*, at least when using pdump. Therefore,
# be warned!
USE_UNION_TYPE=0
+
+# Set this to build XEmacs with the Intel C Compiler.
+USE_INTEL_COMPILER=0
diff -r e70cc8a90e90 nt/xemacs.mak
--- a/nt/xemacs.mak Thu Jan 17 11:55:11 2008 +0100
+++ b/nt/xemacs.mak Thu Jan 17 20:55:02 2008 -0500
＠＠ -250,6 +250,11 ＠＠ USE_MINITAR=$(HAVE_ZLIB)
# NOTE: The various graphics libraries are generally compiled to use
# MSVCRT.DLL (the same that we use in USE_CRTDLL, more or less), so using
# this is a good thing.
+
+!if $(USE_INTEL_COMPILER)
+CC=icl
+INTEL_LIBS=libirc.lib libmmt.lib
+!endif
!if !defined(USE_SYSTEM_MALLOC)
USE_SYSTEM_MALLOC=$(USE_PORTABLE_DUMPER)
＠＠ -1290,7 +1295,7 ＠＠ TEMACS_LIBS=$(LASTFILE) $(OPT_LIBS) \
TEMACS_LIBS=$(LASTFILE) $(OPT_LIBS) \
oldnames.lib kernel32.lib user32.lib gdi32.lib comdlg32.lib advapi32.lib \
shell32.lib wsock32.lib netapi32.lib winmm.lib winspool.lib ole32.lib \
- mpr.lib uuid.lib imm32.lib $(LIBC_LIB)
+ mpr.lib uuid.lib imm32.lib $(INTEL_LIBS) $(LIBC_LIB)
TEMACS_COMMON_LFLAGS=-nologo $(LIBRARIES) $(DEBUG_FLAGS_LINK) \
-base:0x1000000 -stack:0x800000 $(TEMACS_ENTRYPOINT) -subsystem:windows \
-heap:0x00100000 -nodefaultlib $(PROFILE_FLAGS) setargv.obj
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
- 1 participants
- 0 comments
carbon2-commit: Automated merge with ssh://aidan-guest@hg.debian.org//hg/xemacs/xemacs
16 years, 11 months
Aidan Kehoe
Aidan Kehoe
changeset: 4417:333ef1b4229da9ebee6c3f8ad4cf2e7a638ca003
tag: tip
parent: 4403:c49a1266d28ae3933996fc1f6ad46701c06d085e
parent: 4416:e70cc8a90e9043075a0e40fe9587d2c931fb618e
user: Aidan Kehoe <kehoea(a)parhasard.net>
date: Fri Jan 18 01:24:08 2008 +0100
files: configure configure.ac
description:
Automated merge with ssh://aidan-guest＠hg.debian.org//hg/xemacs/xemacs
diff -r c49a1266d28ae3933996fc1f6ad46701c06d085e -r 333ef1b4229da9ebee6c3f8ad4cf2e7a638ca003 ChangeLog
--- a/ChangeLog Wed Jan 09 11:37:16 2008 +0100
+++ b/ChangeLog Fri Jan 18 01:24:08 2008 +0100
＠＠ -1,3 +1,17 ＠＠ 2008-01-01 Stephen J. Turnbull <stephe
+2008-01-17 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * configure.ac:
+ If using a version of the gdbm library that sticks dbm_open in
+ libgdbm_compat.so, also link to that library.
+ Correct a thinko with DBM version 4 checks. Both from Hans de
+ Graaff, in
+ http://mid.gmane.org/20050812092756.6850.qmail＠graaff.xs4all.nl
+ and
+ http://mid.gmane.org/pan.2007.06.24.10.10.57＠gentoo.org; thank you
+ Hans!
+ * configure:
+ Regenerate.
+
2008-01-01 Stephen J. Turnbull <stephen(a)xemacs.org>
* Makefile.in.in (mkpkgdir): Fix incorrect comment convention.
diff -r c49a1266d28ae3933996fc1f6ad46701c06d085e -r 333ef1b4229da9ebee6c3f8ad4cf2e7a638ca003 configure
--- a/configure Wed Jan 09 11:37:16 2008 +0100
+++ b/configure Fri Jan 18 01:24:08 2008 +0100
＠＠ -37296,10 +37296,79 ＠＠ if test $ac_cv_lib_gdbm_dbm_open = yes;
enable_database_gdbm=yes enable_database_dbm=no libdbm=-lgdbm
else
+ { echo "$as_me:$LINENO: checking for dbm_open in -lgdbm_compat" >&5
+echo $ECHO_N "checking for dbm_open in -lgdbm_compat... $ECHO_C" >&6; }
+if test "${ac_cv_lib_gdbm_compat_dbm_open+set}" = set; then
+ echo $ECHO_N "(cached) $ECHO_C" >&6
+else
+ ac_check_lib_save_LIBS=$LIBS
+LIBS="-lgdbm_compat -lgdbm $LIBS"
+cat >conftest.$ac_ext <<_ACEOF
+/* confdefs.h. */
+_ACEOF
+cat confdefs.h >>conftest.$ac_ext
+cat >>conftest.$ac_ext <<_ACEOF
+/* end confdefs.h. */
+
+/* Override any GCC internal prototype to avoid an error.
+ Use char because int might match the return type of a GCC
+ builtin and then its argument prototype would still apply. */
+#ifdef __cplusplus
+extern "C"
+#endif
+char dbm_open ();
+int
+main ()
+{
+return dbm_open ();
+ ;
+ return 0;
+}
+_ACEOF
+rm -f conftest.$ac_objext conftest$ac_exeext
+if { (ac_try="$ac_link"
+case "(($ac_try" in
+ *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
+ *) ac_try_echo=$ac_try;;
+esac
+eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5
+ (eval "$ac_link") 2>conftest.er1
+ ac_status=$?
+ grep -v '^ *+' conftest.er1 >conftest.err
+ rm -f conftest.er1
+ cat conftest.err >&5
+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
+ (exit $ac_status); } && {
+ test -z "$ac_c_werror_flag" ||
+ test ! -s conftest.err
+ } && test -s conftest$ac_exeext &&
+ $as_test_x conftest$ac_exeext; then
+ ac_cv_lib_gdbm_compat_dbm_open=yes
+else
+ echo "$as_me: failed program was:" >&5
+sed 's/^/| /' conftest.$ac_ext >&5
+
+ ac_cv_lib_gdbm_compat_dbm_open=no
+fi
+
+rm -f core conftest.err conftest.$ac_objext conftest_ipa8_conftest.oo \
+ conftest$ac_exeext conftest.$ac_ext
+LIBS=$ac_check_lib_save_LIBS
+fi
+{ echo "$as_me:$LINENO: result: $ac_cv_lib_gdbm_compat_dbm_open" >&5
+echo "${ECHO_T}$ac_cv_lib_gdbm_compat_dbm_open" >&6; }
+if test $ac_cv_lib_gdbm_compat_dbm_open = yes; then
+
+ enable_database_gdbm=yes enable_database_dbm=no libdbm="-lgdbm_compat -lgdbm"
+else
+
if test "$enable_database_gdbm" = "yes"; then
{ echo "Error:" "Required GNU DBM support cannot be provided." >&2; exit 1; }
fi
enable_database_gdbm=no
+fi
+
+
fi
fi
＠＠ -37952,7 +38021,7 ＠＠ fi
fi
- if test "$enable_database_berkdb" != "yes" -a "$dbver" = "4"; then
+ if test "$enable_database_berkdb" = "yes" -a "$dbver" = "4"; then
rm -f $tempcname
echo "#include <$db_h_file>" > $tempcname
echo "configure___ dbfunc=db_create" >> $tempcname
diff -r c49a1266d28ae3933996fc1f6ad46701c06d085e -r 333ef1b4229da9ebee6c3f8ad4cf2e7a638ca003 configure.ac
--- a/configure.ac Wed Jan 09 11:37:16 2008 +0100
+++ b/configure.ac Fri Jan 18 01:24:08 2008 +0100
＠＠ -5445,10 +5445,13 ＠＠ if test "$enable_database_gdbm" != "no";
if test "$enable_database_gdbm" != "no"; then
AC_CHECK_LIB(gdbm, dbm_open, [
enable_database_gdbm=yes enable_database_dbm=no libdbm=-lgdbm], [
+ AC_CHECK_LIB(gdbm_compat, dbm_open, [
+ enable_database_gdbm=yes enable_database_dbm=no libdbm="-lgdbm_compat -lgdbm"], [
if test "$enable_database_gdbm" = "yes"; then
XE_DIE("Required GNU DBM support cannot be provided.")
fi
- enable_database_gdbm=no])
+ enable_database_gdbm=no], -lgdbm)
+ ])
fi
dnl Check for DBM support in libc and libdbm.
＠＠ -5529,7 +5532,7 ＠＠ yes
fi
dnl Berk db 4.1 decorates public functions with version information
- if test "$enable_database_berkdb" != "yes" -a "$dbver" = "4"; then
+ if test "$enable_database_berkdb" = "yes" -a "$dbver" = "4"; then
rm -f $tempcname
echo "#include <$db_h_file>" > $tempcname
echo "configure___ dbfunc=db_create" >> $tempcname
diff -r c49a1266d28ae3933996fc1f6ad46701c06d085e -r 333ef1b4229da9ebee6c3f8ad4cf2e7a638ca003 lisp/ChangeLog
--- a/lisp/ChangeLog Wed Jan 09 11:37:16 2008 +0100
+++ b/lisp/ChangeLog Fri Jan 18 01:24:08 2008 +0100
＠＠ -1,3 +1,31 ＠＠ 2008-01-04 Michael Sperber <mike＠xemac
+2008-01-17 Mike Sperber <mike(a)xemacs.org>
+
+ * files.el (insert-directory): Bind `coding-system-for-read' to
+ the `file-name' coding system. (Previously, the default ended up
+ being undecided, which doesn't work well for UTF-8-based locales,
+ for example.)
+
+2008-01-16 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * keydefs.el (global-map):
+ Bind '(shift delete) to #'kill-primary-selection, as described by
+ Glynn Clements in
+ 16434.49191.47038.991206(a)cerise.nosuchdomain.co.uk of 2004-02-08.
+
+2008-01-14 Jerry James <james(a)xemacs.org>
+
+ * font-lock.el (font-lock-add-keywords): Adapt to differences in
+ Emacs and XEmacs compiled font-lock lists.
+ * font-lock.el (font-lock-remove-keywords): Ditto.
+ * font-lock.el (font-lock-set-defaults-1): Make changes specified
+ by font-lock-keywords-alist and font-lock-removed-keywords-alist.
+
+2008-01-14 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * bytecomp.el (byte-compile-output-file-form):
+ Bind print-gensym-alist to nil, as we do within
+ byte-compile-output-docform.
+
2008-01-04 Michael Sperber <mike(a)xemacs.org>
* code-files.el (insert-file-contents):
＠＠ -220,7 +248,7 ＠＠ 2007-12-04 Aidan Kehoe <kehoea＠parhasa
* keydefs.el:
Bind mouse wheel movements by default, to a lambda that calls the
- autoloaded #'mwheel-install and then #'mwheel-scrool with the
+ autoloaded #'mwheel-install and then #'mwheel-scroll with the
appropriate event.
2007-12-07 Vin Shelton <acs(a)xemacs.org>
diff -r c49a1266d28ae3933996fc1f6ad46701c06d085e -r 333ef1b4229da9ebee6c3f8ad4cf2e7a638ca003 lisp/bytecomp.el
--- a/lisp/bytecomp.el Wed Jan 09 11:37:16 2008 +0100
+++ b/lisp/bytecomp.el Fri Jan 18 01:24:08 2008 +0100
＠＠ -1888,7 +1888,8 ＠＠ With argument, insert value in current b
(print-readably t) ; print #[] for bytecode, 'x for (quote x)
(print-gensym (if (and byte-compile-print-gensym
(not byte-compile-emacs19-compatibility))
- '(t) nil)))
+ '(t) nil))
+ print-gensym-alist)
(princ "\n" byte-compile-outbuffer)
(prin1 form byte-compile-outbuffer)
nil)))
diff -r c49a1266d28ae3933996fc1f6ad46701c06d085e -r 333ef1b4229da9ebee6c3f8ad4cf2e7a638ca003 lisp/files.el
--- a/lisp/files.el Wed Jan 09 11:37:16 2008 +0100
+++ b/lisp/files.el Fri Jan 18 01:24:08 2008 +0100
＠＠ -4177,6 +4177,9 ＠＠ If WILDCARD, it also runs the shell spec
file switches wildcard full-directory-p)))
(t
(let* ((beg (point))
+ ;; on Unix, assume that ls will output in what the
+ ;; file-name coding system specifies
+ (coding-system-for-read (get-coding-system 'file-name))
(result
(if wildcard
;; Run ls in the directory of the file pattern we asked for.
diff -r c49a1266d28ae3933996fc1f6ad46701c06d085e -r 333ef1b4229da9ebee6c3f8ad4cf2e7a638ca003 lisp/font-lock.el
--- a/lisp/font-lock.el Wed Jan 09 11:37:16 2008 +0100
+++ b/lisp/font-lock.el Fri Jan 18 01:24:08 2008 +0100
＠＠ -959,7 +959,7 ＠＠ see the variables `c-font-lock-extra-typ
(let ((was-compiled (eq (car font-lock-keywords) t)))
;; Bring back the user-level (uncompiled) keywords.
(if was-compiled
- (setq font-lock-keywords (cadr font-lock-keywords)))
+ (setq font-lock-keywords (cdr font-lock-keywords)))
;; Now modify or replace them.
(if (eq how 'set)
(setq font-lock-keywords keywords)
＠＠ -1069,7 +1069,7 ＠＠ happens, so the major mode can be correc
(let ((was-compiled (eq (car font-lock-keywords) t)))
;; Bring back the user-level (uncompiled) keywords.
(if was-compiled
- (setq font-lock-keywords (cadr font-lock-keywords)))
+ (setq font-lock-keywords (cdr font-lock-keywords)))
;; Edit them.
(setq font-lock-keywords (copy-sequence font-lock-keywords))
＠＠ -2031,7 +2031,10 ＠＠ Each keyword has the form (MATCHER HIGHL
font-lock-defaults
(font-lock-find-font-lock-defaults major-mode)))
(keywords (font-lock-choose-keywords
- (nth 0 defaults) font-lock-maximum-decoration)))
+ (nth 0 defaults) font-lock-maximum-decoration))
+ (local (cdr (assq major-mode font-lock-keywords-alist)))
+ (removed-keywords
+ (cdr-safe (assq major-mode font-lock-removed-keywords-alist))))
;; Keywords?
(setq font-lock-keywords (if (fboundp keywords)
＠＠ -2096,7 +2099,14 ＠＠ Each keyword has the form (MATCHER HIGHL
;; older way:
;; defaults not specified at all, so use `beginning-of-defun'.
(setq font-lock-beginning-of-syntax-function
- 'beginning-of-defun)))))
+ 'beginning-of-defun)))
+
+ ;; Local fontification?
+ (while local
+ (font-lock-add-keywords nil (car (car local)) (cdr (car local)))
+ (setq local (cdr local)))
+ (when removed-keywords
+ (font-lock-remove-keywords nil removed-keywords))))
(setq font-lock-cache-position (make-marker))
(setq font-lock-defaults-computed t)))
diff -r c49a1266d28ae3933996fc1f6ad46701c06d085e -r 333ef1b4229da9ebee6c3f8ad4cf2e7a638ca003 lisp/keydefs.el
--- a/lisp/keydefs.el Wed Jan 09 11:37:16 2008 +0100
+++ b/lisp/keydefs.el Fri Jan 18 01:24:08 2008 +0100
＠＠ -620,11 +620,15 ＠＠ Keymap for characters following C-c.")
(define-key global-map '(meta delete) 'backward-or-forward-kill-word)
(define-key global-map [(control x) (delete)]
'backward-or-forward-kill-sentence)
+(define-key global-map '(shift delete) 'kill-primary-selection)
+
(define-key global-map 'kp-delete 'backward-or-forward-delete-char)
(define-key global-map '(control kp-delete) 'backward-or-forward-kill-word)
(define-key global-map '(meta kp-delete) 'backward-or-forward-kill-word)
(define-key global-map [(control x) (kp-delete)]
'backward-or-forward-kill-sentence)
+
+(define-key global-map '(shift kp-delete) 'kill-primary-selection)
;; don't try this one at home, kids.
(define-key global-map '(control meta delete) 'backward-or-forward-kill-sexp)
diff -r c49a1266d28ae3933996fc1f6ad46701c06d085e -r 333ef1b4229da9ebee6c3f8ad4cf2e7a638ca003 src/ChangeLog
--- a/src/ChangeLog Wed Jan 09 11:37:16 2008 +0100
+++ b/src/ChangeLog Fri Jan 18 01:24:08 2008 +0100
＠＠ -1,3 +1,27 ＠＠ 2008-01-09 Aidan Kehoe <kehoea＠parhasa
+2008-01-16 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * elhash.c (internal_hash):
+ Make short lists with the same contents in a different order hash
+ distinctly. Gives better performance for things like three-element
+ lists describing colours. Thank you Sebastian Freundt!
+
+2008-01-15 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * print.c (prin1_to_string): New.
+ The guts of Fprin1_to_string, without resetting
+ Vprint_gensym_alist.
+ (Fprin1_to_string):
+ Call prin1_to_string, wrapped with RESET_PRINT_GENSYM calls.
+ * doprnt.c (emacs_doprnt_1):
+ Call prin1_to_string, not Fprin1_to_string (dos veces). Avoids an
+ inappropriate reset of print-gensym-alist.
+
+2008-01-12 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * rangetab.c (Fmap_range_table):
+ Clarify docstring. (If FUNCTION doesn't touch any range-table
+ entry, things will also be correct.)
+
2008-01-09 Aidan Kehoe <kehoea(a)parhasard.net>
* config.h.in:
diff -r c49a1266d28ae3933996fc1f6ad46701c06d085e -r 333ef1b4229da9ebee6c3f8ad4cf2e7a638ca003 src/doprnt.c
--- a/src/doprnt.c Wed Jan 09 11:37:16 2008 +0100
+++ b/src/doprnt.c Fri Jan 18 01:24:08 2008 +0100
＠＠ -558,7 +558,7 ＠＠ emacs_doprnt_1 (Lisp_Object stream, cons
{
/* For `S', prin1 the argument and then treat like
a string. */
- ls = Fprin1_to_string (obj, Qnil);
+ ls = prin1_to_string (obj, 0);
}
else if (STRINGP (obj))
ls = obj;
＠＠ -567,7 +567,7 ＠＠ emacs_doprnt_1 (Lisp_Object stream, cons
else
{
/* convert to string using princ. */
- ls = Fprin1_to_string (obj, Qt);
+ ls = prin1_to_string (obj, 1);
}
string = XSTRING_DATA (ls);
string_len = XSTRING_LENGTH (ls);
diff -r c49a1266d28ae3933996fc1f6ad46701c06d085e -r 333ef1b4229da9ebee6c3f8ad4cf2e7a638ca003 src/elhash.c
--- a/src/elhash.c Wed Jan 09 11:37:16 2008 +0100
+++ b/src/elhash.c Fri Jan 18 01:24:08 2008 +0100
＠＠ -1719,12 +1719,33 ＠＠ internal_hash (Lisp_Object obj, int dept
{
if (depth > 5)
return 0;
- if (CONSP (obj))
- {
- /* no point in worrying about tail recursion, since we're not
- going very deep */
- return HASH2 (internal_hash (XCAR (obj), depth + 1),
- internal_hash (XCDR (obj), depth + 1));
+
+ if (CONSP(obj))
+ {
+ Hashcode hash, h;
+ int s;
+
+ depth += 1;
+
+ if (!CONSP(XCDR(obj)))
+ {
+ /* special case for '(a . b) conses */
+ return HASH2(internal_hash(XCAR(obj), depth),
+ internal_hash(XCDR(obj), depth));
+ }
+
+ /* Don't simply tail recurse; we want to hash lists with the
+ same contents in distinct orders differently. */
+ hash = internal_hash(XCAR(obj), depth);
+
+ obj = XCDR(obj);
+ for (s = 1; s < 6 && CONSP(obj); obj = XCDR(obj), s++)
+ {
+ h = internal_hash(XCAR(obj), depth);
+ hash = HASH3(hash, h, s);
+ }
+
+ return hash;
}
if (STRINGP (obj))
{
diff -r c49a1266d28ae3933996fc1f6ad46701c06d085e -r 333ef1b4229da9ebee6c3f8ad4cf2e7a638ca003 src/lisp.h
--- a/src/lisp.h Wed Jan 09 11:37:16 2008 +0100
+++ b/src/lisp.h Fri Jan 18 01:24:08 2008 +0100
＠＠ -4932,6 +4932,7 ＠＠ EXFUN (Fprinc, 2);
EXFUN (Fprinc, 2);
EXFUN (Fprint, 2);
+Lisp_Object prin1_to_string (Lisp_Object, int);
/* Lower-level ways to output data: */
void default_object_printer (Lisp_Object, Lisp_Object, int);
diff -r c49a1266d28ae3933996fc1f6ad46701c06d085e -r 333ef1b4229da9ebee6c3f8ad4cf2e7a638ca003 src/print.c
--- a/src/print.c Wed Jan 09 11:37:16 2008 +0100
+++ b/src/print.c Fri Jan 18 01:24:08 2008 +0100
＠＠ -867,6 +867,26 ＠＠ Output stream is STREAM, or value of `st
return object;
}
+Lisp_Object
+prin1_to_string (Lisp_Object object, int noescape)
+{
+ /* This function can GC */
+ Lisp_Object result = Qnil;
+ Lisp_Object stream = make_resizing_buffer_output_stream ();
+ Lstream *str = XLSTREAM (stream);
+ /* gcpro OBJECT in case a caller forgot to do so */
+ struct gcpro gcpro1, gcpro2, gcpro3;
+ GCPRO3 (object, stream, result);
+
+ print_internal (object, stream, !noescape);
+ Lstream_flush (str);
+ UNGCPRO;
+ result = make_string (resizing_buffer_stream_ptr (str),
+ Lstream_byte_count (str));
+ Lstream_delete (str);
+ return result;
+}
+
DEFUN ("prin1-to-string", Fprin1_to_string, 1, 2, 0, /*
Return a string containing the printed representation of OBJECT,
any Lisp object. Quoting characters are used when needed to make output
＠＠ -877,20 +897,11 ＠＠ second argument NOESCAPE is non-nil.
{
/* This function can GC */
Lisp_Object result = Qnil;
- Lisp_Object stream = make_resizing_buffer_output_stream ();
- Lstream *str = XLSTREAM (stream);
- /* gcpro OBJECT in case a caller forgot to do so */
- struct gcpro gcpro1, gcpro2, gcpro3;
- GCPRO3 (object, stream, result);
RESET_PRINT_GENSYM;
- print_internal (object, stream, NILP (noescape));
+ result = prin1_to_string (object, !(EQ(noescape, Qnil)));
RESET_PRINT_GENSYM;
- Lstream_flush (str);
- UNGCPRO;
- result = make_string (resizing_buffer_stream_ptr (str),
- Lstream_byte_count (str));
- Lstream_delete (str);
+
return result;
}
diff -r c49a1266d28ae3933996fc1f6ad46701c06d085e -r 333ef1b4229da9ebee6c3f8ad4cf2e7a638ca003 src/rangetab.c
--- a/src/rangetab.c Wed Jan 09 11:37:16 2008 +0100
+++ b/src/rangetab.c Fri Jan 18 01:24:08 2008 +0100
＠＠ -571,7 +571,8 ＠＠ Results are guaranteed to be correct (i.
Results are guaranteed to be correct (i.e. each entry processed
exactly once) if FUNCTION modifies or deletes the current entry
\(i.e. passes the current range to `put-range-table' or
-`remove-range-table'), but not otherwise.
+`remove-range-table'). If FUNCTION modifies or deletes any other entry,
+this guarantee doesn't hold.
*/
(function, range_table))
{
diff -r c49a1266d28ae3933996fc1f6ad46701c06d085e -r 333ef1b4229da9ebee6c3f8ad4cf2e7a638ca003 tests/ChangeLog
--- a/tests/ChangeLog Wed Jan 09 11:37:16 2008 +0100
+++ b/tests/ChangeLog Fri Jan 18 01:24:08 2008 +0100
＠＠ -1,3 +1,28 ＠＠ 2008-01-03 Stephen J. Turnbull <stephe
+2008-01-16 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * automated/mule-tests.el (test-file-name):
+ Call #'make-temp-file now it's available. Remove a long comment
+ saying, essentially, that it should be used, not
+ #'make-temp-name.
+
+2008-01-16 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * automated/hash-table-tests.el:
+ Assert that two short lists with the same contents in distinct
+ orders hash differently.
+
+2008-01-15 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * automated/lisp-tests.el (literal-with-uninterned):
+ Use ?\x syntax for Latin-1 characters, don't assume that the file
+ will be read as UTF-8.
+
+2008-01-15 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * automated/lisp-tests.el (thing):
+ Check that printing a hash table literal doesn't clear
+ print-gensym-alist.
+
2008-01-03 Stephen J. Turnbull <stephen(a)xemacs.org>
* automated/symbol-tests.el (Symbol documentation): Add tests to
diff -r c49a1266d28ae3933996fc1f6ad46701c06d085e -r 333ef1b4229da9ebee6c3f8ad4cf2e7a638ca003 tests/automated/hash-table-tests.el
--- a/tests/automated/hash-table-tests.el Wed Jan 09 11:37:16 2008 +0100
+++ b/tests/automated/hash-table-tests.el Fri Jan 18 01:24:08 2008 +0100
＠＠ -281,3 +281,4 ＠＠
;;; Test sxhash
(Assert (= (sxhash "foo") (sxhash "foo")))
(Assert (= (sxhash '(1 2 3)) (sxhash '(1 2 3))))
+(Assert (/= (sxhash '(1 2 3)) (sxhash '(3 2 1))))
diff -r c49a1266d28ae3933996fc1f6ad46701c06d085e -r 333ef1b4229da9ebee6c3f8ad4cf2e7a638ca003 tests/automated/lisp-tests.el
--- a/tests/automated/lisp-tests.el Wed Jan 09 11:37:16 2008 +0100
+++ b/tests/automated/lisp-tests.el Fri Jan 18 01:24:08 2008 +0100
＠＠ -1299,3 +1299,17 ＠＠
;; Check all-completions ignore element start with space.
(Assert (not (all-completions "" '((" hidden" . "object")))))
(Assert (all-completions " " '((" hidden" . "object"))))
+
+(let* ((literal-with-uninterned
+ '(first-element
+ [#1=#:G32976 #2=#:G32974 #3=#:G32971 #4=#:G32969 alias
+ #s(hash-table size 256 data (969 ?\xF9 55 ?7 166 ?\xA6))
+ #5=#:G32970 #6=#:G32972]))
+ (print-readably t)
+ (print-gensym t)
+ (printed-with-uninterned (prin1-to-string literal-with-uninterned))
+ (awkward-regexp "#1=#")
+ (first-match-start (string-match awkward-regexp
+ printed-with-uninterned)))
+ (Assert (null (string-match awkward-regexp printed-with-uninterned
+ (1+ first-match-start)))))
diff -r c49a1266d28ae3933996fc1f6ad46701c06d085e -r 333ef1b4229da9ebee6c3f8ad4cf2e7a638ca003 tests/automated/mule-tests.el
--- a/tests/automated/mule-tests.el Wed Jan 09 11:37:16 2008 +0100
+++ b/tests/automated/mule-tests.el Fri Jan 18 01:24:08 2008 +0100
＠＠ -118,21 +118,8 ＠＠ This is a naive implementation in Lisp.
;; Fixed 2007-06-22 <18043.2793.611745.734215(a)parhasard.net>.
;;----------------------------------------------------------------
-(let ((test-file-name
- ;; The Gnus people, when they call #'make-temp-name, then loop,
- ;; checking if the corresponding file exists. Our #'make-temp-name
- ;; already does this loop, and the Gnus approach doesn't bring
- ;; anything; there remains a race condition if you can predict the
- ;; path name. The path name in question depends on the process ID and
- ;; a (weak) PRNG seeded with the seconds to the power of the
- ;; milliseconds of some instant close to the startup time of this
- ;; XEmacs; without being able to read the address space of this
- ;; XEmacs, or monitor what stat() calls it does, it is not predictable.
- ;;
- ;; The really kosher way to do this is to merge GNU's make-temp-file
- ;; and use that. It basically has the functionality of the Unix
- ;; mkstemp.
- (make-temp-name (expand-file-name "tXfXsKc" (temp-directory))))
+(let ((test-file-name
+ (make-temp-file (expand-file-name "tXfXsKc" (temp-directory))))
revert-buffer-function
kill-buffer-hook) ; paranoia
(find-file test-file-name)
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
- 1 participants
- 0 comments