comparison src/window.c @ 2693:1deaf4364cd3

(Vmouse_event): Var deleted. (syms_of_window): Don't make it Lisp var.
author Richard M. Stallman <rms@gnu.org>
date Sat, 08 May 1993 16:28:36 +0000
parents 33761a44c172
children 427eadecebd6
comparison
equal deleted inserted replaced
2692:fc1de7b24bc4 2693:1deaf4364cd3
57 when the minibuffer is selected. */ 57 when the minibuffer is selected. */
58 Lisp_Object Vminibuf_scroll_window; 58 Lisp_Object Vminibuf_scroll_window;
59 59
60 /* Non-nil means this is the buffer whose window C-M-v should scroll. */ 60 /* Non-nil means this is the buffer whose window C-M-v should scroll. */
61 Lisp_Object Vother_window_scroll_buffer; 61 Lisp_Object Vother_window_scroll_buffer;
62
63 /* Last mouse click data structure (nil if no mouse support). */
64 Lisp_Object Vmouse_event;
65 62
66 /* Non-nil means it's function to call to display temp buffers. */ 63 /* Non-nil means it's function to call to display temp buffers. */
67 Lisp_Object Vtemp_buffer_show_function; 64 Lisp_Object Vtemp_buffer_show_function;
68 65
69 /* If a window gets smaller than either of these, it is removed. */ 66 /* If a window gets smaller than either of these, it is removed. */
2891 It will receive two args, the buffer and a flag which if non-nil means\n\ 2888 It will receive two args, the buffer and a flag which if non-nil means\n\
2892 that the currently selected window is not acceptable.\n\ 2889 that the currently selected window is not acceptable.\n\
2893 Commands such as `switch-to-buffer-other-window' and `find-file-other-window'\n\ 2890 Commands such as `switch-to-buffer-other-window' and `find-file-other-window'\n\
2894 work using this function."); 2891 work using this function.");
2895 Vdisplay_buffer_function = Qnil; 2892 Vdisplay_buffer_function = Qnil;
2896
2897 DEFVAR_LISP ("mouse-event", &Vmouse_event,
2898 "The last mouse-event object. A list of four elements:\n\
2899 ((X-POS Y-POS) WINDOW FRAME-PART KEYSEQ).\n\
2900 KEYSEQ is a string, the key sequence to be looked up in the mouse maps.\n\
2901 WINDOW is the window that the click applies do.\n\
2902 If FRAME-PART is non-nil, the event was on a scroll bar;\n\
2903 then Y-POS is really the total length of the scroll bar, while X-POS is\n\
2904 the relative position of the scroll bar's value within that total length.\n\
2905 FRAME-PART is one of the following symbols:\n\
2906 `vertical-scroll-bar', `vertical-slider',\n\
2907 `vertical-thumbup', `vertical-thumbdown',\n\
2908 `horizontal-scroll-bar', `horizontal-slider',\n\
2909 `horizontal-thumbleft', `horizontal-thumbright'");
2910 Vmouse_event = Qnil;
2911 2893
2912 DEFVAR_LISP ("minibuffer-scroll-window", &Vminibuf_scroll_window, 2894 DEFVAR_LISP ("minibuffer-scroll-window", &Vminibuf_scroll_window,
2913 "Non-nil means it is the window that C-M-v in minibuffer should scroll."); 2895 "Non-nil means it is the window that C-M-v in minibuffer should scroll.");
2914 Vminibuf_scroll_window = Qnil; 2896 Vminibuf_scroll_window = Qnil;
2915 2897