annotate tests/frame.el @ 851:e7ee5f8bde58
[xemacs-hg @ 2002-05-23 11:46:08 by ben]
fix for raymond toy's crash, alloca crashes, some recover-session improvements
files.el: Recover-session improvements: Only show session files where some
files can actually be recovered, and show in chronological order.
subr.el, menubar-items.el: As promised to rms, the functionality in
truncate-string-with-continuation-dots has been merged into
truncate-string-to-width. Change callers in menubar-items.el.
select.el: Document some of these funs better. Fix problem where we were
doing own-clipboard twice.
Makefile.in.in: Add alloca.o. Ensure that alloca.s doesn't compile into alloca.o,
but allocax.o (not that it's currently used or anything.)
EmacsFrame.c, abbrev.c, alloc.c, alloca.c, callint.c, callproc.c, config.h.in, device-msw.c, device-x.c, dired.c, doc.c, editfns.c, emacs.c, emodules.c, eval.c, event-Xt.c, event-msw.c, event-stream.c, file-coding.c, fileio.c, filelock.c, fns.c, glyphs-gtk.c, glyphs-msw.c, glyphs-x.c, gui-x.c, input-method-xlib.c, intl-win32.c, lisp.h, lread.c, menubar-gtk.c, menubar-msw.c, menubar.c, mule-wnnfns.c, nt.c, objects-msw.c, process-nt.c, realpath.c, redisplay-gtk.c, redisplay-output.c, redisplay-x.c, redisplay.c, search.c, select-msw.c, sysdep.c, syswindows.h, text.c, text.h, ui-byhand.c: Fix Raymond Toy's crash. Repeat to self: 2^21 - 1 is NOT the
same as (2 << 21) - 1.
Fix crashes due to excessive alloca(). replace alloca() with
ALLOCA(), which calls the C alloca() [which uses xmalloc()]
when the size is too big. Insert in various places calls to
try to flush the C alloca() stored info if there is any.
Add MALLOC_OR_ALLOCA(), for places that expect to be alloca()ing
large blocks. This xmalloc()s when too large and records an
unwind-protect to free -- relying on the caller to unbind_to()
elsewhere in the function. Use it in concat().
Use MALLOC instead of ALLOCA in select-msw.c.
xemacs.mak: Add alloca.o.
author |
ben |
date |
Thu, 23 May 2002 11:46:46 +0000 |
parents |
360340f9fd5f |
children |
931aaa7a6b37 |
rev |
line source |
108
|
1 ;;; Test geometry settings for frames
|
|
2 (defmacro check-frame-geometry (xx yy)
|
|
3 `(loop for frame in (list nil (selected-frame))
|
|
4 do
|
|
5 (assert (eq (frame-property frame 'top) ,yy))
|
|
6 (assert (eq (frame-property frame 'left) ,xx))
|
|
7 (assert (eq (frame-property frame 'top) ,yy))
|
|
8 (assert (eq (frame-property frame 'left) ,xx))
|
|
9 (loop for plist in
|
|
10 (list (frame-properties)
|
|
11 (frame-properties nil)
|
|
12 (frame-properties (selected-frame)))
|
|
13 do
|
|
14 (assert (eq (plist-get plist 'top) ,yy))
|
|
15 (assert (eq (plist-get plist 'left) ,xx)))))
|
|
16
|
|
17 (loop for (x y) in '((0 0) (1 1) (3 3) (9 9) (10 20) (20 40) (40 80) (100 200))
|
|
18 do
|
|
19 (loop for frame in (list nil (selected-frame))
|
|
20 do
|
|
21 (set-frame-properties frame `(left ,x top ,y))
|
|
22 (check-frame-geometry x y)
|
|
23 (set-frame-property frame 'top (+ y 3))
|
|
24 (check-frame-geometry x (+ y 3))
|
|
25 (set-frame-property frame 'left (+ x 3))
|
|
26 (check-frame-geometry (+ x 3) (+ y 3))))
|
|
27
|