Mercurial > hg > xemacs-beta
annotate src/window.h @ 5307:c096d8051f89
Have NATNUMP give t for positive bignums; check limits appropriately.
src/ChangeLog addition:
2010-11-20 Aidan Kehoe <kehoea@parhasard.net>
* abbrev.c (Fexpand_abbrev):
* alloc.c:
* alloc.c (Fmake_list):
* alloc.c (Fmake_vector):
* alloc.c (Fmake_bit_vector):
* alloc.c (Fmake_byte_code):
* alloc.c (Fmake_string):
* alloc.c (vars_of_alloc):
* bytecode.c (UNUSED):
* bytecode.c (Fbyte_code):
* chartab.c (decode_char_table_range):
* cmds.c (Fself_insert_command):
* data.c (check_integer_range):
* data.c (Fnatnump):
* data.c (Fnonnegativep):
* data.c (Fstring_to_number):
* elhash.c (hash_table_size_validate):
* elhash.c (decode_hash_table_size):
* eval.c (Fbacktrace_frame):
* event-stream.c (lisp_number_to_milliseconds):
* event-stream.c (Faccept_process_output):
* event-stream.c (Frecent_keys):
* event-stream.c (Fdispatch_event):
* events.c (Fmake_event):
* events.c (Fevent_timestamp):
* events.c (Fevent_timestamp_lessp):
* events.h:
* events.h (struct command_builder):
* file-coding.c (gzip_putprop):
* fns.c:
* fns.c (check_sequence_range):
* fns.c (Frandom):
* fns.c (Fnthcdr):
* fns.c (Flast):
* fns.c (Fnbutlast):
* fns.c (Fbutlast):
* fns.c (Fmember):
* fns.c (Ffill):
* fns.c (Freduce):
* fns.c (replace_string_range_1):
* fns.c (Freplace):
* font-mgr.c (Ffc_pattern_get):
* frame-msw.c (msprinter_set_frame_properties):
* glyphs.c (check_valid_xbm_inline):
* indent.c (Fmove_to_column):
* intl-win32.c (mswindows_multibyte_to_unicode_putprop):
* lisp.h:
* lisp.h (ARRAY_DIMENSION_LIMIT):
* lread.c (decode_mode_1):
* mule-ccl.c (ccl_get_compiled_code):
* number.h:
* process-unix.c (unix_open_multicast_group):
* process.c (Fset_process_window_size):
* profile.c (Fstart_profiling):
* unicode.c (Funicode_to_char):
Change NATNUMP to return 1 for positive bignums; changes uses of
it and of CHECK_NATNUM appropriately, usually by checking for an
integer in an appropriate range.
Add array-dimension-limit and use it in #'make-vector,
#'make-string. Add array-total-size-limit, array-rank-limit while
we're at it, for the sake of any Common Lisp-oriented code that
uses these limits.
Rename check_int_range to check_integer_range, have it take
Lisp_Objects (and thus bignums) instead.
Remove bignum_butlast(), just set int_n to an appropriately large
integer if N is a bignum.
Accept bignums in check_sequence_range(), change the functions
that use check_sequence_range() appropriately.
Move the definition of NATNUMP() to number.h; document why it's a
reasonable name, contradicting an old comment.
tests/ChangeLog addition:
2010-11-20 Aidan Kehoe <kehoea@parhasard.net>
* automated/lisp-tests.el:
* automated/lisp-tests.el (featurep):
* automated/lisp-tests.el (wrong-type-argument):
* automated/mule-tests.el (featurep):
Check for args-out-of-range errors instead of wrong-type-argument
errors in various places when code is handed a large bignum
instead of a fixnum.
Also check for the wrong-type-argument errors when giving the same
code a non-integer value.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Sat, 20 Nov 2010 16:49:11 +0000 |
parents | 1fae11d56ad2 |
children | 308d34e9f07d |
rev | line source |
---|---|
428 | 1 /* Window definitions for XEmacs. |
2 Copyright (C) 1985, 1986, 1992, 1993, 1994, 1995 | |
3 Free Software Foundation, Inc. | |
4 Copyright (C) 1994, 1995 Board of Trustees, University of Illinois. | |
5047
07dcc7000bbf
put width before height consistently, fix a real bug found in the process
Ben Wing <ben@xemacs.org>
parents:
4775
diff
changeset
|
5 Copyright (C) 1995, 1996, 2002, 2010 Ben Wing. |
428 | 6 Copyright (C) 1996 Chuck Thompson. |
7 | |
8 This file is part of XEmacs. | |
9 | |
10 XEmacs is free software; you can redistribute it and/or modify it | |
11 under the terms of the GNU General Public License as published by the | |
12 Free Software Foundation; either version 2, or (at your option) any | |
13 later version. | |
14 | |
15 XEmacs is distributed in the hope that it will be useful, but WITHOUT | |
16 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
17 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
18 for more details. | |
19 | |
20 You should have received a copy of the GNU General Public License | |
21 along with XEmacs; see the file COPYING. If not, write to | |
22 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
23 Boston, MA 02111-1307, USA. */ | |
24 | |
25 /* Synched up with: FSF 19.30. */ | |
26 | |
440 | 27 #ifndef INCLUDED_window_h_ |
28 #define INCLUDED_window_h_ | |
428 | 29 |
30 #include "redisplay.h" | |
31 #ifdef HAVE_SCROLLBARS | |
32 #include "scrollbar.h" | |
33 #endif | |
34 | |
872 | 35 struct window; |
428 | 36 |
5118
e0db3c197671
merge up to latest default branch, doesn't compile yet
Ben Wing <ben@xemacs.org>
parents:
4775
diff
changeset
|
37 DECLARE_LISP_OBJECT (window, struct window); |
617 | 38 #define XWINDOW(x) XRECORD (x, window, struct window) |
39 #define wrap_window(p) wrap_record (p, window) | |
40 #define WINDOWP(x) RECORDP (x, window) | |
41 #define CHECK_WINDOW(x) CHECK_RECORD (x, window) | |
42 #define CONCHECK_WINDOW(x) CONCHECK_RECORD (x, window) | |
43 | |
872 | 44 /* Basic properties available to non-privileged users; redefined in |
45 window-impl.h */ | |
428 | 46 |
872 | 47 int window_live_p (struct window *w); |
48 Lisp_Object window_frame (struct window *w); | |
49 Lisp_Object window_buffer (struct window *w); | |
428 | 50 |
872 | 51 #define WINDOW_LIVE_P(w) window_live_p (w) |
52 #define WINDOW_FRAME(w) window_frame (w) | |
53 #define WINDOW_BUFFER(w) window_buffer (w) | |
428 | 54 |
872 | 55 #define WINDOW_XFRAME(w) XFRAME (WINDOW_FRAME (w)) |
56 #define WINDOW_DEVICE(w) XFRAME_DEVICE (WINDOW_FRAME (w)) | |
57 #define WINDOW_XDEVICE(w) XDEVICE (WINDOW_DEVICE (w)) | |
58 #define WINDOW_CONSOLE(w) XDEVICE_CONSOLE (WINDOW_DEVICE (w)) | |
59 #define WINDOW_XCONSOLE(w) XCONSOLE (WINDOW_CONSOLE (w)) | |
60 #define WINDOW_XBUFFER(w) XBUFFER (WINDOW_BUFFER (w)) | |
428 | 61 |
872 | 62 #define XWINDOW_FRAME(w) WINDOW_FRAME (XWINDOW (w)) |
63 #define XWINDOW_XFRAME(w) XFRAME (XWINDOW_FRAME (w)) | |
64 #define XWINDOW_DEVICE(w) XFRAME_DEVICE (XWINDOW_FRAME (w)) | |
65 #define XWINDOW_XDEVICE(w) XDEVICE (XWINDOW_DEVICE (w)) | |
66 #define XWINDOW_CONSOLE(w) XDEVICE_CONSOLE (XWINDOW_DEVICE (w)) | |
67 #define XWINDOW_XCONSOLE(w) XCONSOLE (XWINDOW_CONSOLE (w)) | |
68 #define XWINDOW_BUFFER(w) WINDOW_BUFFER (XWINDOW (w)) | |
69 #define XWINDOW_XBUFFER(w) XBUFFER (XWINDOW_BUFFER (w)) | |
428 | 70 |
71 #define CHECK_LIVE_WINDOW(x) do { \ | |
72 CHECK_WINDOW (x); \ | |
73 if (!WINDOW_LIVE_P (XWINDOW (x))) \ | |
74 dead_wrong_type_argument (Qwindow_live_p, (x)); \ | |
75 } while (0) | |
76 #define CONCHECK_LIVE_WINDOW(x) do { \ | |
77 CONCHECK_WINDOW (x); \ | |
78 if (!WINDOW_LIVE_P (XWINDOW (x))) \ | |
79 x = wrong_type_argument (Qwindow_live_p, (x)); \ | |
80 } while (0) | |
81 | |
872 | 82 struct window_mirror; |
428 | 83 |
5118
e0db3c197671
merge up to latest default branch, doesn't compile yet
Ben Wing <ben@xemacs.org>
parents:
4775
diff
changeset
|
84 DECLARE_LISP_OBJECT (window_mirror, struct window_mirror); |
872 | 85 #define XWINDOW_MIRROR(x) XRECORD (x, window_mirror, struct window_mirror) |
86 #define wrap_window_mirror(p) wrap_record (p, window_mirror) | |
87 #define WINDOW_MIRRORP(x) RECORDP (x, window_mirror) | |
88 #define CHECK_WINDOW_MIRROR(x) CHECK_RECORD (x, window_mirror) | |
89 #define CONCHECK_WINDOW_MIRROR(x) CONCHECK_RECORD (x, window_mirror) | |
428 | 90 |
91 EXFUN (Fget_buffer_window, 3); | |
92 EXFUN (Fmove_to_window_line, 2); | |
93 EXFUN (Frecenter, 2); | |
444 | 94 EXFUN (Freplace_buffer_in_windows, 3); |
428 | 95 EXFUN (Fselect_window, 2); |
96 EXFUN (Fselected_window, 1); | |
440 | 97 EXFUN (Fset_window_buffer, 3); |
428 | 98 EXFUN (Fset_window_hscroll, 2); |
99 EXFUN (Fset_window_point, 2); | |
100 EXFUN (Fset_window_start, 3); | |
101 EXFUN (Fwindow_buffer, 1); | |
102 EXFUN (Fwindow_highest_p, 1); | |
103 EXFUN (Fwindow_point, 1); | |
104 EXFUN (Fwindow_start, 1); | |
872 | 105 |
1149 | 106 extern Lisp_Object Qcurrent_window_configuration, Qset_window_configuration; |
872 | 107 Lisp_Object display_buffer (Lisp_Object, Lisp_Object, Lisp_Object); |
428 | 108 |
109 /* The minibuffer window of the selected frame. | |
110 Note that you cannot test for minibufferness of an arbitrary window | |
111 by comparing against this; but you can test for minibufferness of | |
112 the selected window or of any window that is displayed. */ | |
113 extern Lisp_Object minibuf_window; | |
114 | |
115 /* Prompt to display in front of the minibuffer contents, or nil */ | |
116 extern Lisp_Object Vminibuf_prompt; | |
117 /* Prompt to display in front of the minibuffer prompt, or nil */ | |
118 extern Lisp_Object Vminibuf_preprompt; | |
119 | |
120 Lisp_Object allocate_window (void); | |
121 int window_char_width (struct window *, int include_margins_p); | |
122 int window_char_height (struct window *, int include_gutters_p); | |
123 int window_displayed_height (struct window *); | |
124 int window_is_leftmost (struct window *w); | |
125 int window_is_rightmost (struct window *w); | |
126 int window_is_lowest (struct window *w); | |
127 int window_is_highest (struct window *w); | |
128 int window_truncation_on (struct window *w); | |
129 int window_needs_vertical_divider (struct window *); | |
130 int window_scrollbar_width (struct window *w); | |
131 int window_scrollbar_height (struct window *w); | |
132 int window_modeline_height (struct window *w); | |
133 int window_left_margin_width (struct window *w); | |
134 int window_right_margin_width (struct window *w); | |
135 int window_top_gutter_height (struct window *w); | |
136 int window_bottom_gutter_height (struct window *w); | |
137 int window_left_gutter_width (struct window *w, int modeline); | |
138 int window_right_gutter_width (struct window *w, int modeline); | |
139 | |
140 void delete_all_subwindows (struct window *w); | |
141 void set_window_pixheight (Lisp_Object window, int pixheight, | |
142 int nodelete); | |
143 void set_window_pixwidth (Lisp_Object window, int pixwidth, | |
144 int nodelete); | |
145 void window_scroll (Lisp_Object window, Lisp_Object n, int direction, | |
578 | 146 Error_Behavior errb); |
428 | 147 int buffer_window_count (struct buffer *b, struct frame *f); |
148 int buffer_window_mru (struct window *w); | |
5047
07dcc7000bbf
put width before height consistently, fix a real bug found in the process
Ben Wing <ben@xemacs.org>
parents:
4775
diff
changeset
|
149 void check_frame_size (struct frame *frame, int *cols, int *rows); |
440 | 150 int frame_pixsize_valid_p (struct frame *frame, int width, int height); |
428 | 151 struct window *decode_window (Lisp_Object window); |
152 struct window *find_window_by_pixel_pos (int pix_x, int pix_y, Lisp_Object win); | |
153 | |
154 void free_window_mirror (struct window_mirror *mir); | |
155 Lisp_Object real_window (struct window_mirror *mir, int no_abort); | |
156 struct window_mirror *find_window_mirror (struct window *w); | |
157 display_line_dynarr *window_display_lines (struct window *w, int); | |
158 struct buffer *window_display_buffer (struct window *w); | |
159 void set_window_display_buffer (struct window *w, struct buffer *b); | |
160 void update_frame_window_mirror (struct frame *f); | |
161 | |
162 int map_windows (struct frame *f, | |
163 int (*mapfun) (struct window *w, void *closure), | |
164 void *closure); | |
165 void some_window_value_changed (Lisp_Object specifier, struct window *w, | |
166 Lisp_Object oldval); | |
167 int invalidate_vertical_divider_cache_in_window (struct window *w, | |
168 void *u_n_u_s_e_d); | |
169 int window_divider_width (struct window *w); | |
170 | |
440 | 171 #endif /* INCLUDED_window_h_ */ |