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