Mercurial > hg > xemacs-beta
annotate tests/frame.el @ 2526:902d5bd9b75c
[xemacs-hg @ 2005-01-28 02:36:11 by ben]
Support symlinks under Windows
nt.c, fileio.c: Fix sync comments.
config.h.in, dired-msw.c, emacs.c, event-msw.c, fileio.c, glyphs.c, lisp.h, nt.c, process-nt.c, realpath.c, sound.c, symsinit.h, sysdep.c, sysfile.h, syswindows.h, win32.c: Add support for treating shortcuts under Windows as symbolic links.
Enabled with mswindows-shortcuts-are-links (t by default). Rewrite
lots of places to use PATHNAME_CONVERT_OUT, which is moved to
sysfile.h. Add PATHNAME_RESOLVE_LINKS, which only does things
under Windows.
Add profiling section for expand_file_name calls.
nt.c, sysdep.c: Unicode-ize.
realpath.c: Renamed from readlink_and_correct_case. Fix some problems with
Windows implementation due to incorrect understanding of workings
of the function.
sound.c, ntplay.c, sound.h: Rename play_sound_file to nt_play_sound_file and pass
internally-formatted data to it to avoid converting out and back
again.
text.h: is_c -> is_ascii.
author | ben |
---|---|
date | Fri, 28 Jan 2005 02:36:28 +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 |