Mercurial > emacs
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 |