aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJim Blandy1992-01-28 14:42:19 +0000
committerJim Blandy1992-01-28 14:42:19 +0000
commit1f98fa48b925f63d6c64f3a0937fcc613b2a83cb (patch)
tree6bc48c30342b67695f4cbde1485b58dfb44208b8
parent14e76af946582f7151f53da1579386891c9445d8 (diff)
downloademacs-1f98fa48b925f63d6c64f3a0937fcc613b2a83cb.tar.gz
emacs-1f98fa48b925f63d6c64f3a0937fcc613b2a83cb.zip
*** empty log message ***
-rw-r--r--src/eval.c1
-rw-r--r--src/xfns.c36
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
38extern void abort (); 39extern 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. */
219Lisp_Object Vmouse_screen_part;
220
221Lisp_Object Qtext_part;
222Lisp_Object Qmodeline_part;
223
224Lisp_Object Qvscrollbar_part;
225Lisp_Object Qvslider_part;
226Lisp_Object Qvthumbup_part;
227Lisp_Object Qvthumbdown_part;
228
229Lisp_Object Qhscrollbar_part;
230Lisp_Object Qhslider_part;
231Lisp_Object Qhthumbleft_part;
232Lisp_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;