Mercurial > hg > xemacs-beta
annotate tests/frame.el @ 4693:80cd90837ac5
Add argument information to remaining MANY or UNEVALLED C subrs.
src/ChangeLog addition:
2009-09-20 Aidan Kehoe <kehoea@parhasard.net>
* alloc.c (Flist):
(Fvector):
(Fbit_vector):
(Fmake_byte_code):
(Fstring):
* data.c (Feqlsign):
(Flss):
(Fgtr):
(Fleq):
(Fgeq):
(Fneq):
(Fgtr):
(Fplus):
(Fminus):
(Ftimes):
(Fdiv):
(Fquo):
(Fmax):
(Fmin):
(Flogand):
(Flogior):
(Flogxor):
* editfns.c (Fsave_excursion):
(Fsave_current_buffer):
(Fencode_time):
(Finsert):
(Finsert_before_markers):
(Fsave_restriction):
(Fformat):
* elhash.c (Fmake_hash_table):
* eval.c (Fdefun):
(Fdefmacro):
(Fcatch):
(Funwind_protect):
(Fcall_with_condition_handler):
(Ffuncall):
(Fapply):
(Frun_hooks):
* fns.c (Fappend):
(Fconcat):
(Fvconcat):
(Fbvconcat):
(Fnconc):
* print.c (Fwith_output_to_temp_buffer):
* process.c (Fstart_process_internal):
* window.c (Fsave_window_excursion):
* widget.c (Fwidget_apply):
Add argument information, in a form understood by
#'function-arglist, to all these MANY or UNEVALLED (that is to
say, special-operator) built-in functions.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Sun, 20 Sep 2009 21:29:00 +0100 |
| 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 |