Mercurial > hg > xemacs-beta

annotate tests/frame.el @ 5879:77d7b77909c2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Move extents.c to working in byte positions only; fix a bug, extent_detach() src/ChangeLog addition: 2015-03-27 Aidan Kehoe <kehoea@parhasard.net> Fix a small bug, extent_detach(); minimise needless char-byte conversion, extents.c, sticking to byte positions in general in this file. * extents.c: * extents.c (signal_single_extent_changed): Pass byte endpoints to gutter_extent_signal_changed_region_maybe(), buffer_extent_signal_changed_region(). * extents.c (extent_detach): Call signal_extent_changed() correctly, pass both extent endpoints rather than just the byte and character variants of the start. * extents.c (struct report_extent_modification_closure): Do this in terms of byte positions. * extents.c (report_extent_modification_mapper): Use byte positions, only converting to characters when we are definitely calling Lisp. * extents.c (report_extent_modification): Use byte positions in this API, move the byte-char conversion to our callers, simplifying extents.c (it all now works in byte positions). * extents.h: Update report_extent_modification's prototype. * gutter.c (gutter_extent_signal_changed_region_maybe): Use byte positions here, avoids needless byte-char conversion. * gutter.h: Update the prototype here. * insdel.c: * insdel.c (buffer_extent_signal_changed_region): Implement this in terms of byte positions. * insdel.c (signal_before_change): * insdel.c (signal_after_change): Call report_extent_modification() with byte positions, doing the char->byte conversion here rather than leaving it to extents.c. * insdel.h: * insdel.h (struct each_buffer_change_data): The extent unchanged info now describes bytecounts.
author Aidan Kehoe <kehoea@parhasard.net>
date Fri, 27 Mar 2015 23:39:49 +0000
parents 308d34e9f07d
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
4980
931aaa7a6b37 Martin Buchholz claims tests/frame.el.
Jerry James <james@xemacs.org>
parents: 108
diff changeset
1 ;;; Test geometry setting for frames.
931aaa7a6b37 Martin Buchholz claims tests/frame.el.
Jerry James <james@xemacs.org>
parents: 108
diff changeset
2 ;;;
931aaa7a6b37 Martin Buchholz claims tests/frame.el.
Jerry James <james@xemacs.org>
parents: 108
diff changeset
3 ;;; Copyright (C) 1997 Martin Buchholz
931aaa7a6b37 Martin Buchholz claims tests/frame.el.
Jerry James <james@xemacs.org>
parents: 108
diff changeset
4 ;;;
5402
308d34e9f07d Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents: 4980
diff changeset
5 ;; This file is part of XEmacs.
308d34e9f07d Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents: 4980
diff changeset
6 ;;
308d34e9f07d Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents: 4980
diff changeset
7 ;; XEmacs is free software: you can redistribute it and/or modify it
308d34e9f07d Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents: 4980
diff changeset
8 ;; under the terms of the GNU General Public License as published by the
308d34e9f07d Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents: 4980
diff changeset
9 ;; Free Software Foundation, either version 3 of the License, or (at your
308d34e9f07d Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents: 4980
diff changeset
10 ;; option) any later version.
308d34e9f07d Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents: 4980
diff changeset
11 ;;
308d34e9f07d Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents: 4980
diff changeset
12 ;; XEmacs is distributed in the hope that it will be useful, but WITHOUT
308d34e9f07d Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents: 4980
diff changeset
13 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
308d34e9f07d Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents: 4980
diff changeset
14 ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
308d34e9f07d Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents: 4980
diff changeset
15 ;; for more details.
308d34e9f07d Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents: 4980
diff changeset
16 ;;
308d34e9f07d Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents: 4980
diff changeset
17 ;; You should have received a copy of the GNU General Public License
308d34e9f07d Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents: 4980
diff changeset
18 ;; along with XEmacs. If not, see <http://www.gnu.org/licenses/>.
4980
931aaa7a6b37 Martin Buchholz claims tests/frame.el.
Jerry James <james@xemacs.org>
parents: 108
diff changeset
19
108
360340f9fd5f Import from CVS: tag r20-1b6
cvs
parents:
diff changeset
20 (defmacro check-frame-geometry (xx yy)
360340f9fd5f Import from CVS: tag r20-1b6
cvs
parents:
diff changeset
21 `(loop for frame in (list nil (selected-frame))
360340f9fd5f Import from CVS: tag r20-1b6
cvs
parents:
diff changeset
22 do
360340f9fd5f Import from CVS: tag r20-1b6
cvs
parents:
diff changeset
23 (assert (eq (frame-property frame 'top) ,yy))
360340f9fd5f Import from CVS: tag r20-1b6
cvs
parents:
diff changeset
24 (assert (eq (frame-property frame 'left) ,xx))
360340f9fd5f Import from CVS: tag r20-1b6
cvs
parents:
diff changeset
25 (assert (eq (frame-property frame 'top) ,yy))
360340f9fd5f Import from CVS: tag r20-1b6
cvs
parents:
diff changeset
26 (assert (eq (frame-property frame 'left) ,xx))
360340f9fd5f Import from CVS: tag r20-1b6
cvs
parents:
diff changeset
27 (loop for plist in
360340f9fd5f Import from CVS: tag r20-1b6
cvs
parents:
diff changeset
28 (list (frame-properties)
360340f9fd5f Import from CVS: tag r20-1b6
cvs
parents:
diff changeset
29 (frame-properties nil)
360340f9fd5f Import from CVS: tag r20-1b6
cvs
parents:
diff changeset
30 (frame-properties (selected-frame)))
360340f9fd5f Import from CVS: tag r20-1b6
cvs
parents:
diff changeset
31 do
360340f9fd5f Import from CVS: tag r20-1b6
cvs
parents:
diff changeset
32 (assert (eq (plist-get plist 'top) ,yy))
360340f9fd5f Import from CVS: tag r20-1b6
cvs
parents:
diff changeset
33 (assert (eq (plist-get plist 'left) ,xx)))))
360340f9fd5f Import from CVS: tag r20-1b6
cvs
parents:
diff changeset
34
360340f9fd5f Import from CVS: tag r20-1b6
cvs
parents:
diff changeset
35 (loop for (x y) in '((0 0) (1 1) (3 3) (9 9) (10 20) (20 40) (40 80) (100 200))
360340f9fd5f Import from CVS: tag r20-1b6
cvs
parents:
diff changeset
36 do
360340f9fd5f Import from CVS: tag r20-1b6
cvs
parents:
diff changeset
37 (loop for frame in (list nil (selected-frame))
360340f9fd5f Import from CVS: tag r20-1b6
cvs
parents:
diff changeset
38 do
360340f9fd5f Import from CVS: tag r20-1b6
cvs
parents:
diff changeset
39 (set-frame-properties frame `(left ,x top ,y))
360340f9fd5f Import from CVS: tag r20-1b6
cvs
parents:
diff changeset
40 (check-frame-geometry x y)
360340f9fd5f Import from CVS: tag r20-1b6
cvs
parents:
diff changeset
41 (set-frame-property frame 'top (+ y 3))
360340f9fd5f Import from CVS: tag r20-1b6
cvs
parents:
diff changeset
42 (check-frame-geometry x (+ y 3))
360340f9fd5f Import from CVS: tag r20-1b6
cvs
parents:
diff changeset
43 (set-frame-property frame 'left (+ x 3))
360340f9fd5f Import from CVS: tag r20-1b6
cvs
parents:
diff changeset
44 (check-frame-geometry (+ x 3) (+ y 3))))