Mercurial > hg > xemacs-beta
comparison src/window.h @ 5118:e0db3c197671 ben-lisp-object
merge up to latest default branch, doesn't compile yet
author | Ben Wing <ben@xemacs.org> |
---|---|
date | Sat, 26 Dec 2009 21:18:49 -0600 |
parents | 1d61580e0cf7 |
children | 2a462149bd6a |
comparison
equal
deleted
inserted
replaced
5117:3742ea8250b5 | 5118:e0db3c197671 |
---|---|
32 #include "scrollbar.h" | 32 #include "scrollbar.h" |
33 #endif | 33 #endif |
34 | 34 |
35 struct window; | 35 struct window; |
36 | 36 |
37 DECLARE_LRECORD (window, struct window); | 37 DECLARE_LISP_OBJECT (window, struct window); |
38 #define XWINDOW(x) XRECORD (x, window, struct window) | 38 #define XWINDOW(x) XRECORD (x, window, struct window) |
39 #define wrap_window(p) wrap_record (p, window) | 39 #define wrap_window(p) wrap_record (p, window) |
40 #define WINDOWP(x) RECORDP (x, window) | 40 #define WINDOWP(x) RECORDP (x, window) |
41 #define CHECK_WINDOW(x) CHECK_RECORD (x, window) | 41 #define CHECK_WINDOW(x) CHECK_RECORD (x, window) |
42 #define CONCHECK_WINDOW(x) CONCHECK_RECORD (x, window) | 42 #define CONCHECK_WINDOW(x) CONCHECK_RECORD (x, window) |
79 x = wrong_type_argument (Qwindow_live_p, (x)); \ | 79 x = wrong_type_argument (Qwindow_live_p, (x)); \ |
80 } while (0) | 80 } while (0) |
81 | 81 |
82 struct window_mirror; | 82 struct window_mirror; |
83 | 83 |
84 DECLARE_LRECORD (window_mirror, struct window_mirror); | 84 DECLARE_LISP_OBJECT (window_mirror, struct window_mirror); |
85 #define XWINDOW_MIRROR(x) XRECORD (x, window_mirror, struct window_mirror) | 85 #define XWINDOW_MIRROR(x) XRECORD (x, window_mirror, struct window_mirror) |
86 #define wrap_window_mirror(p) wrap_record (p, window_mirror) | 86 #define wrap_window_mirror(p) wrap_record (p, window_mirror) |
87 #define WINDOW_MIRRORP(x) RECORDP (x, window_mirror) | 87 #define WINDOW_MIRRORP(x) RECORDP (x, window_mirror) |
88 #define CHECK_WINDOW_MIRROR(x) CHECK_RECORD (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) | 89 #define CONCHECK_WINDOW_MIRROR(x) CONCHECK_RECORD (x, window_mirror) |
90 | 90 |
91 DECLARE_LRECORD (window_configuration, struct window_config); | 91 DECLARE_LISP_OBJECT (window_configuration, struct window_config); |
92 | 92 |
93 EXFUN (Fget_buffer_window, 3); | 93 EXFUN (Fget_buffer_window, 3); |
94 EXFUN (Fmove_to_window_line, 2); | 94 EXFUN (Fmove_to_window_line, 2); |
95 EXFUN (Frecenter, 2); | 95 EXFUN (Frecenter, 2); |
96 EXFUN (Freplace_buffer_in_windows, 3); | 96 EXFUN (Freplace_buffer_in_windows, 3); |
103 EXFUN (Fwindow_buffer, 1); | 103 EXFUN (Fwindow_buffer, 1); |
104 EXFUN (Fwindow_highest_p, 1); | 104 EXFUN (Fwindow_highest_p, 1); |
105 EXFUN (Fwindow_point, 1); | 105 EXFUN (Fwindow_point, 1); |
106 EXFUN (Fwindow_start, 1); | 106 EXFUN (Fwindow_start, 1); |
107 | 107 |
108 Lisp_Object save_window_excursion_unwind (Lisp_Object); | |
109 extern Lisp_Object Qcurrent_window_configuration, Qset_window_configuration; | 108 extern Lisp_Object Qcurrent_window_configuration, Qset_window_configuration; |
110 Lisp_Object display_buffer (Lisp_Object, Lisp_Object, Lisp_Object); | 109 Lisp_Object display_buffer (Lisp_Object, Lisp_Object, Lisp_Object); |
111 | 110 |
112 /* The minibuffer window of the selected frame. | 111 /* The minibuffer window of the selected frame. |
113 Note that you cannot test for minibufferness of an arbitrary window | 112 Note that you cannot test for minibufferness of an arbitrary window |