Mercurial > hg > xemacs-beta
annotate tests/frame.el @ 930:eaedf30d9d76
[xemacs-hg @ 2002-07-23 08:34:59 by youngs]
2002-07-15 Jerry James <james@xemacs.org>
* make-docfile.c: Change whitespace and organization to reduce the
size of the diff against FSF Emacs sources and synch to Emacs 21.2.
Remove unused DO_REALLOC.
Mark XEmacs changes and additions more clearly.
Reintroduce previously deleted Emacs code inside #if 0 ... #endif.
* make-docfile.c (next_extra_elc): Replace goto with do-while.
* make-docfile.c (main): Put XEmacs-only args in one place.
* make-docfile.c (write_c_args): Change buff to buf to match
Emacs. Replace pointer arithmetic with simpler array syntax.
* make-docfile.c (scan_c_file): Note that DEFSIMPLE and DEFPRED no
longer exist. Correct the "name too long" test (off by one).
Die with message if a DEFUN has no docstring instead of hanging.
* make-docfile.c (scan_lisp_file): Introduce while loops used in
Emacs sources to skip consecutive blank lines.
2002-07-21 John Paul Wallington <jpw@xemacs.org>
* process.el (substitute-env-vars): New function; sync with
GNU Emacs 21.1.50.
(setenv): Add optional arg SUBSTITUTE-ENV-VARS; sync with
GNU Emacs 21.1.50.
2002-07-20 Mike Sperber <mike@xemacs.org>
* eval.c (run_post_gc_hook): Use more correct flags when running
post-gc-hook.
2002-07-20 Mike Sperber <mike@xemacs.org>
* process-unix.c (child_setup): Don't try to close file
descriptors for chid process once again---it's already being done
in close_process_descs.
(unix_create_process): Call begin_dont_check_for_quit to inhibit
unwanted interaction (and thus breaking of X event synchronicity)
in the child.
2002-07-15 Jerry James <james@xemacs.org>
* lisp.h: Make Qdll_error visible globally.
* symbols.c (check_sane_subr): Revert 2002-06-26 change.
Check only if !initialized.
* symbols.c (check_module_subr): Add parameter. Duplicate
check_sane_subr checks, but signal an error instead of asserting.
* symbols.c (defsubr): Use check_module_subr parameter.
* symbols.c (defsubr_macro): Ditto.
author | youngs |
---|---|
date | Tue, 23 Jul 2002 08:35:11 +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 |