diff options
| author | Jim Blandy | 1992-01-28 14:42:19 +0000 |
|---|---|---|
| committer | Jim Blandy | 1992-01-28 14:42:19 +0000 |
| commit | 1f98fa48b925f63d6c64f3a0937fcc613b2a83cb (patch) | |
| tree | 6bc48c30342b67695f4cbde1485b58dfb44208b8 /src | |
| parent | 14e76af946582f7151f53da1579386891c9445d8 (diff) | |
| download | emacs-1f98fa48b925f63d6c64f3a0937fcc613b2a83cb.tar.gz emacs-1f98fa48b925f63d6c64f3a0937fcc613b2a83cb.zip | |
*** empty log message ***
Diffstat (limited to 'src')
| -rw-r--r-- | src/eval.c | 1 | ||||
| -rw-r--r-- | src/xfns.c | 36 |
2 files changed, 4 insertions, 33 deletions
diff --git a/src/eval.c b/src/eval.c index f549f9d1ffe..e82fba1559e 100644 --- a/src/eval.c +++ b/src/eval.c | |||
| @@ -26,6 +26,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ | |||
| 26 | 26 | ||
| 27 | #ifndef standalone | 27 | #ifndef standalone |
| 28 | #include "commands.h" | 28 | #include "commands.h" |
| 29 | #include "keyboard.h" | ||
| 29 | #else | 30 | #else |
| 30 | #define INTERACTIVE 1 | 31 | #define INTERACTIVE 1 |
| 31 | #endif | 32 | #endif |
diff --git a/src/xfns.c b/src/xfns.c index 387af54197d..4f3a7ff9e2b 100644 --- a/src/xfns.c +++ b/src/xfns.c | |||
| @@ -33,6 +33,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ | |||
| 33 | #include "buffer.h" | 33 | #include "buffer.h" |
| 34 | #include "dispextern.h" | 34 | #include "dispextern.h" |
| 35 | #include "xscrollbar.h" | 35 | #include "xscrollbar.h" |
| 36 | #include "keyboard.h" | ||
| 36 | 37 | ||
| 37 | #ifdef HAVE_X_WINDOWS | 38 | #ifdef HAVE_X_WINDOWS |
| 38 | extern void abort (); | 39 | extern void abort (); |
| @@ -215,22 +216,6 @@ x_window_to_screen (wdesc) | |||
| 215 | return 0; | 216 | return 0; |
| 216 | } | 217 | } |
| 217 | 218 | ||
| 218 | /* A symbol indicating which part of the screen the mouse is in. */ | ||
| 219 | Lisp_Object Vmouse_screen_part; | ||
| 220 | |||
| 221 | Lisp_Object Qtext_part; | ||
| 222 | Lisp_Object Qmodeline_part; | ||
| 223 | |||
| 224 | Lisp_Object Qvscrollbar_part; | ||
| 225 | Lisp_Object Qvslider_part; | ||
| 226 | Lisp_Object Qvthumbup_part; | ||
| 227 | Lisp_Object Qvthumbdown_part; | ||
| 228 | |||
| 229 | Lisp_Object Qhscrollbar_part; | ||
| 230 | Lisp_Object Qhslider_part; | ||
| 231 | Lisp_Object Qhthumbleft_part; | ||
| 232 | Lisp_Object Qhthumbright_part; | ||
| 233 | |||
| 234 | /* Map an X window that implements a scroll bar to the Emacs screen it | 219 | /* Map an X window that implements a scroll bar to the Emacs screen it |
| 235 | belongs to. Also store in *PART a symbol identifying which part of | 220 | belongs to. Also store in *PART a symbol identifying which part of |
| 236 | the scroll bar it is. */ | 221 | the scroll bar it is. */ |
| @@ -2708,7 +2693,7 @@ adjust_scrollbars (s) | |||
| 2708 | int chars_in_buffer, buffer_size; | 2693 | int chars_in_buffer, buffer_size; |
| 2709 | struct window *w = XWINDOW (SCREEN_SELECTED_WINDOW (s)); | 2694 | struct window *w = XWINDOW (SCREEN_SELECTED_WINDOW (s)); |
| 2710 | 2695 | ||
| 2711 | if (s->output_method != output_x_window) | 2696 | if (! SCREEN_IS_X (s)) |
| 2712 | return; | 2697 | return; |
| 2713 | 2698 | ||
| 2714 | if (s->display.x->v_scrollbar != 0) | 2699 | if (s->display.x->v_scrollbar != 0) |
| @@ -3924,7 +3909,7 @@ DEFUN ("x-store-cut-buffer", Fx_store_cut_buffer, Sx_store_cut_buffer, | |||
| 3924 | int mask; | 3909 | int mask; |
| 3925 | 3910 | ||
| 3926 | CHECK_STRING (string, 1); | 3911 | CHECK_STRING (string, 1); |
| 3927 | if (selected_screen->output_method != output_x_window) | 3912 | if (SCREEN_IS_X (selected_screen)) |
| 3928 | error ("Selected screen does not understand X protocol."); | 3913 | error ("Selected screen does not understand X protocol."); |
| 3929 | 3914 | ||
| 3930 | BLOCK_INPUT; | 3915 | BLOCK_INPUT; |
| @@ -4175,17 +4160,6 @@ arg XRM_STRING is a string of resources in xrdb format.") | |||
| 4175 | This also initializes many symbols, such as those used for input. */ | 4160 | This also initializes many symbols, such as those used for input. */ |
| 4176 | x_term_init (XSTRING (display)->data); | 4161 | x_term_init (XSTRING (display)->data); |
| 4177 | 4162 | ||
| 4178 | Qtext_part = intern ("text-part"); | ||
| 4179 | Qmodeline_part = intern ("modeline-part"); | ||
| 4180 | Qvscrollbar_part = intern ("vscrollbar-part"); | ||
| 4181 | Qvslider_part = intern ("vslider-part"); | ||
| 4182 | Qvthumbup_part = intern ("vthumbup-part"); | ||
| 4183 | Qvthumbdown_part = intern ("vthumbdown-part"); | ||
| 4184 | Qhscrollbar_part = intern ("hscrollbar-part"); | ||
| 4185 | Qhslider_part = intern ("hslider-part"); | ||
| 4186 | Qhthumbleft_part = intern ("hthumbleft-part"); | ||
| 4187 | Qhthumbright_part = intern ("hthumbright-part"); | ||
| 4188 | |||
| 4189 | #ifdef HAVE_X11 | 4163 | #ifdef HAVE_X11 |
| 4190 | XFASTINT (Vwindow_system_version) = 11; | 4164 | XFASTINT (Vwindow_system_version) = 11; |
| 4191 | 4165 | ||
| @@ -4336,10 +4310,6 @@ syms_of_xfns () | |||
| 4336 | "The buffer offset of the character under the pointer."); | 4310 | "The buffer offset of the character under the pointer."); |
| 4337 | mouse_buffer_offset = Qnil; | 4311 | mouse_buffer_offset = Qnil; |
| 4338 | 4312 | ||
| 4339 | DEFVAR_LISP ("mouse-screen-part", &Vmouse_screen_part, | ||
| 4340 | "A symbol indicating the part of the screen the mouse is in."); | ||
| 4341 | Vmouse_screen_part = Qnil; | ||
| 4342 | |||
| 4343 | DEFVAR_INT ("x-pointer-shape", &Vx_pointer_shape, | 4313 | DEFVAR_INT ("x-pointer-shape", &Vx_pointer_shape, |
| 4344 | "The shape of the pointer when over text."); | 4314 | "The shape of the pointer when over text."); |
| 4345 | Vx_pointer_shape = Qnil; | 4315 | Vx_pointer_shape = Qnil; |