Mercurial > emacs
annotate src/msdos.c @ 109573:228a5fa4eda0
Remove extern declarations from .c files, and them to .h files.
* src/xsmfns.c (Vuser_login_name):
* src/xrdb.c (Vdouble_click_time):
* src/xfaces.c (xic_create_fontsetname):
* src/w32select.c (waiting_for_input):
* src/print.c (minibuffer_auto_raise):
* src/msdos.c (Qhelp_echo):
* src/macros.c (real_this_command):
* src/keymap.c (Voverriding_local_map):
* src/xterm.c (poll_for_input_1, gray_bitmap_width)
(gray_bitmap_height, gray_bitmap_bits;
* src/xmenu.c ( Voverriding_local_map)
(Voverriding_local_map_menu_flag; Qmenu_item; use_dialog_box)
(use_file_dialog, Xt_app_con):
* src/xdisp.c (minibuffer_auto_raise, Voverriding_local_map)
(Voverriding_local_map_menu_flag, Qmenu_item, Qface, Qinvisible)
(Qwidth, Qinvisible, Qwindow, Qpriority, Qtool_bar_lines)
(Qtool_bar_lines, ignore_mouse_drag_p):
* src/minibuf.c (Voverriding_local_map, Qfield, Qfront_sticky)
(Qrear_nonsticky, nconc2):
* src/keyboard.c (current_global_map, minibuf_level, Qmenu_item)
(Vhistory_length, Vtranslation_table_for_input, Qcomposition)
(Qdisplay, Qafter_string, Qbefore_string, Qundefined):
* src/fileio.c (use_dialog_box, use_file_dialog, Vuser_login_name)
(minibuf_level, minibuffer_auto_raise, lisp_time_argument):
* src/eval.c (Qinteractive_form, Qrisky_local_variable, Qfunction)
(gc_in_progress):
* src/doc.c (Voverriding_local_map, Qremap):
* src/dired.c (completion_ignore_case, Qcompletion_ignore_case)
(Vcompletion_regexp_list):
* src/coding.c (Qmac, Qinsert_file_contents, Qwrite_region)
(Qcompletion_ignore_case):
* src/callint.c (Qcursor_in_echo_area, Qfile_directory_p, Qonly)
(Vhistory_length, Vthis_original_command, real_this_command)
(Qface, Qminibuffer_prompt, history_delete_duplicates):
* src/image.c (Qrisky_local_variable):
* src/fontset.c (QCname):
* src/fns.c (minibuffer_auto_raise, QCname):
* src/dispnew.c (char_ins_del_cost):
* src/composite.c (font_fill_lglyph_metrics):
* src/cmds.c (Qface, Vtranslation_table_for_input):
* src/charset.c (map_char_table_for_charset, Qfile_name_handler_alist):
* src/ccl.c (charset_unicode):
* src/callproc.c (Vtemporary_file_directory):
* src/buffer.c (emacs_strerror): Remove extern declarations.
Remove extern declarations from .c files, and them to .h files.
* src/keyboard.h (Qhelp_echo, waiting_for_input)
(input_available_clear_time, ignore_mouse_drag_p)
(Vdouble_click_time, real_this_command, Vthis_original_command):
* src/keymap.h (Qremap, Qmenu_item, Voverriding_local_map)
(Voverriding_local_map_menu_flag):
* src/lisp.h (Qinteractive_form, use_file_dialog)
(Qcursor_in_echo_area, QCascent, QCmargin, QCrelief, Qcount)
(Qextension_data, QCconversion, QCcolor_symbols, QCheuristic_mask)
(QCindex, QCmatrix, QCcolor_adjustment, QCmask)
(Qrisky_local_variable, map_char_table_for_charset, Vprint_level)
(Qfunction, debug_on_next_call, Qfield)
(Vinhibit_field_text_motion, Vuser_login_name, lisp_time_argument)
(Qpriority, Qwindow, Qevaporate, Qbefore_string, Qafter_string)
(Qfile_directory_p, Qinsert_file_contents)
(Qcompletion_ignore_case, Qcompletion_ignore_case)
(Vcompletion_regexp_list, Vhistory_length, completion_ignore_case)
(history_delete_duplicates, minibuffer_auto_raise, Qonly)
(Qfile_name_handler_alist, Qfront_sticky, Qrear_nonsticky)
(Qminibuffer_prompt)
(Vtemporary_file_directory,char_ins_del_vector, Qface):
* src/xterm.h (gray_bitmap_width, gray_bitmap_height)
(gray_bitmap_bits, xic_create_fontsetname):
* src/coding.h (Vtranslation_table_for_input): Add extern declarations.
* src/data.c (Qwindow): Make non-static, used from other files too.
* src/frame.c (validate_x_resource_name): Remove shadow definition for i.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Wed, 28 Jul 2010 22:48:06 -0700 |
parents | 05e7e7c46ff0 |
children | 85236524c2a3 |
rev | line source |
---|---|
19871
847fbc8725a9
Switch to raw-text as coding system.
Richard M. Stallman <rms@gnu.org>
parents:
19864
diff
changeset
|
1 /* MS-DOS specific C utilities. -*- coding: raw-text -*- |
64770
a0d1312ede66
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64084
diff
changeset
|
2 Copyright (C) 1993, 1994, 1995, 1996, 1997, 1999, 2000, 2001, 2002, |
106815 | 3 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 |
79759 | 4 Free Software Foundation, Inc. |
5503 | 5 |
6 This file is part of GNU Emacs. | |
7 | |
94963
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
92280
diff
changeset
|
8 GNU Emacs is free software: you can redistribute it and/or modify |
5503 | 9 it under the terms of the GNU General Public License as published by |
94963
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
92280
diff
changeset
|
10 the Free Software Foundation, either version 3 of the License, or |
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
92280
diff
changeset
|
11 (at your option) any later version. |
5503 | 12 |
13 GNU Emacs is distributed in the hope that it will be useful, | |
14 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
16 GNU General Public License for more details. | |
17 | |
18 You should have received a copy of the GNU General Public License | |
94963
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
92280
diff
changeset
|
19 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ |
5503 | 20 |
7666
13a977e6777a
(dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents:
7523
diff
changeset
|
21 /* Contributed by Morten Welinder */ |
13179 | 22 /* New display, keyboard, and mouse control by Kim F. Storm */ |
7666
13a977e6777a
(dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents:
7523
diff
changeset
|
23 |
5503 | 24 /* Note: some of the stuff here was taken from end of sysdep.c in demacs. */ |
25 | |
5980 | 26 #include <config.h> |
5503 | 27 |
28 #ifdef MSDOS | |
105669
68dd71358159
* alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
103114
diff
changeset
|
29 #include <setjmp.h> |
5503 | 30 #include "lisp.h" |
31 #include <stdio.h> | |
32 #include <stdlib.h> | |
23815
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
33 #include <time.h> |
5503 | 34 #include <sys/param.h> |
35 #include <sys/time.h> | |
36 #include <dos.h> | |
15125
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
37 #include <errno.h> |
109165
750db9f3e6d8
Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents:
109162
diff
changeset
|
38 #include <string.h> /* for memset and string functions */ |
15125
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
39 #include <sys/stat.h> /* for _fixpath */ |
16915
8d28d96f6031
(run_msdos_command): Remove unused variables.
Eli Zaretskii <eliz@gnu.org>
parents:
16872
diff
changeset
|
40 #include <unistd.h> /* for chdir, dup, dup2, etc. */ |
42192
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
41 #include <dir.h> /* for getdisk */ |
55292
d9dc976b92ba
(top-level): Add "#pragma pack(0)" after <dir.h>, to
Eli Zaretskii <eliz@gnu.org>
parents:
55198
diff
changeset
|
42 #pragma pack(0) /* dir.h does a pack(4), which isn't GCC's default */ |
14974
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
43 #include <fcntl.h> |
16915
8d28d96f6031
(run_msdos_command): Remove unused variables.
Eli Zaretskii <eliz@gnu.org>
parents:
16872
diff
changeset
|
44 #include <io.h> /* for setmode */ |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
45 #include <dpmi.h> /* for __dpmi_xxx stuff */ |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
46 #include <sys/farptr.h> /* for _farsetsel, _farnspokeb */ |
15125
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
47 #include <libc/dosio.h> /* for _USE_LFN */ |
16915
8d28d96f6031
(run_msdos_command): Remove unused variables.
Eli Zaretskii <eliz@gnu.org>
parents:
16872
diff
changeset
|
48 #include <conio.h> /* for cputs */ |
14974
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
49 |
5503 | 50 #include "msdos.h" |
51 #include "systime.h" | |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
52 #include "frame.h" |
5503 | 53 #include "termhooks.h" |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
54 #include "termchar.h" |
9572 | 55 #include "dispextern.h" |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
56 #include "dosfns.h" |
9572 | 57 #include "termopts.h" |
88351
aac41b50c875
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43371
diff
changeset
|
58 #include "character.h" |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
59 #include "coding.h" |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
60 #include "disptab.h" |
9572 | 61 #include "window.h" |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
62 #include "buffer.h" |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
63 #include "commands.h" |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
64 #include "blockinput.h" |
30711 | 65 #include "keyboard.h" |
52308
00e2bb6c6d5b
Include intervals.h, since STRING_INTERVALS requires that.
Eli Zaretskii <eliz@gnu.org>
parents:
51571
diff
changeset
|
66 #include "intervals.h" |
5503 | 67 #include <go32.h> |
68 #include <pc.h> | |
69 #include <ctype.h> | |
70 /* #include <process.h> */ | |
71 /* Damn that local process.h! Instead we can define P_WAIT ourselves. */ | |
72 #define P_WAIT 1 | |
73 | |
15125
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
74 #ifndef _USE_LFN |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
75 #define _USE_LFN 0 |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
76 #endif |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
77 |
16837
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
78 #ifndef _dos_ds |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
79 #define _dos_ds _go32_info_block.selector_for_linear_memory |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
80 #endif |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
81 |
14999 | 82 #include <signal.h> |
16872
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
83 #include "syssignal.h" |
14999 | 84 |
14974
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
85 #ifndef SYSTEM_MALLOC |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
86 |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
87 #ifdef GNU_MALLOC |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
88 |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
89 /* If other `malloc' than ours is used, force our `sbrk' behave like |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
90 Unix programs expect (resize memory blocks to keep them contiguous). |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
91 If `sbrk' from `ralloc.c' is NOT used, also zero-out sbrk'ed memory, |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
92 because that's what `gmalloc' expects to get. */ |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
93 #include <crt0.h> |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
94 |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
95 #ifdef REL_ALLOC |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
96 int _crt0_startup_flags = _CRT0_FLAG_UNIX_SBRK; |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
97 #else /* not REL_ALLOC */ |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
98 int _crt0_startup_flags = (_CRT0_FLAG_UNIX_SBRK | _CRT0_FLAG_FILL_SBRK_MEMORY); |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
99 #endif /* not REL_ALLOC */ |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
100 #endif /* GNU_MALLOC */ |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
101 |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
102 #endif /* not SYSTEM_MALLOC */ |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
103 |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
104 static unsigned long |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
105 event_timestamp (void) |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
106 { |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
107 struct time t; |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
108 unsigned long s; |
45332 | 109 |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
110 gettime (&t); |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
111 s = t.ti_min; |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
112 s *= 60; |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
113 s += t.ti_sec; |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
114 s *= 1000; |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
115 s += t.ti_hund * 10; |
45332 | 116 |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
117 return s; |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
118 } |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
119 |
13179 | 120 |
121 /* ------------------------ Mouse control --------------------------- | |
122 * | |
123 * Coordinates are in screen positions and zero based. | |
124 * Mouse buttons are numbered from left to right and also zero based. | |
125 */ | |
5503 | 126 |
28553
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
127 /* This used to be in termhooks.h, but mainstream Emacs code no longer |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
128 uses it, and it was removed... */ |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
129 #define NUM_MOUSE_BUTTONS (5) |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
130 |
13179 | 131 int have_mouse; /* 0: no, 1: enabled, -1: disabled */ |
132 static int mouse_visible; | |
5503 | 133 |
13179 | 134 static int mouse_last_x; |
135 static int mouse_last_y; | |
5503 | 136 |
13179 | 137 static int mouse_button_translate[NUM_MOUSE_BUTTONS]; |
138 static int mouse_button_count; | |
5503 | 139 |
13179 | 140 void |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
141 mouse_on (void) |
13179 | 142 { |
143 union REGS regs; | |
5503 | 144 |
13179 | 145 if (have_mouse > 0 && !mouse_visible) |
146 { | |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
147 struct tty_display_info *tty = CURTTY (); |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
148 |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
149 if (tty->termscript) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
150 fprintf (tty->termscript, "<M_ON>"); |
13179 | 151 regs.x.ax = 0x0001; |
152 int86 (0x33, ®s, ®s); | |
153 mouse_visible = 1; | |
5503 | 154 } |
155 } | |
156 | |
13179 | 157 void |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
158 mouse_off (void) |
5503 | 159 { |
13179 | 160 union REGS regs; |
5503 | 161 |
13179 | 162 if (have_mouse > 0 && mouse_visible) |
5503 | 163 { |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
164 struct tty_display_info *tty = CURTTY (); |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
165 |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
166 if (tty->termscript) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
167 fprintf (tty->termscript, "<M_OFF>"); |
13179 | 168 regs.x.ax = 0x0002; |
169 int86 (0x33, ®s, ®s); | |
170 mouse_visible = 0; | |
5503 | 171 } |
172 } | |
173 | |
20036
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
174 static void |
30532
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
175 mouse_setup_buttons (int n_buttons) |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
176 { |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
177 if (n_buttons == 3) |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
178 { |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
179 mouse_button_count = 3; |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
180 mouse_button_translate[0] = 0; /* Left */ |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
181 mouse_button_translate[1] = 2; /* Middle */ |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
182 mouse_button_translate[2] = 1; /* Right */ |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
183 } |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
184 else /* two, what else? */ |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
185 { |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
186 mouse_button_count = 2; |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
187 mouse_button_translate[0] = 0; |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
188 mouse_button_translate[1] = 1; |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
189 } |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
190 } |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
191 |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
192 DEFUN ("msdos-set-mouse-buttons", Fmsdos_set_mouse_buttons, Smsdos_set_mouse_buttons, |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
193 1, 1, "NSet number of mouse buttons to: ", |
41940
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41406
diff
changeset
|
194 doc: /* Set the number of mouse buttons to use by Emacs. |
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41406
diff
changeset
|
195 This is useful with mice that report the number of buttons inconsistently, |
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41406
diff
changeset
|
196 e.g., if the number of buttons is reported as 3, but Emacs only sees 2 of |
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41406
diff
changeset
|
197 them. This happens with wheeled mice on Windows 9X, for example. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
198 (Lisp_Object nbuttons) |
30532
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
199 { |
34561
62530d6f561d
(Fmsdos_set_mouse_buttons): Signal an error if the
Eli Zaretskii <eliz@gnu.org>
parents:
34483
diff
changeset
|
200 int n; |
62530d6f561d
(Fmsdos_set_mouse_buttons): Signal an error if the
Eli Zaretskii <eliz@gnu.org>
parents:
34483
diff
changeset
|
201 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40082
diff
changeset
|
202 CHECK_NUMBER (nbuttons); |
34561
62530d6f561d
(Fmsdos_set_mouse_buttons): Signal an error if the
Eli Zaretskii <eliz@gnu.org>
parents:
34483
diff
changeset
|
203 n = XINT (nbuttons); |
62530d6f561d
(Fmsdos_set_mouse_buttons): Signal an error if the
Eli Zaretskii <eliz@gnu.org>
parents:
34483
diff
changeset
|
204 if (n < 2 || n > 3) |
71986
de36a2bee064
(Fmsdos_set_mouse_buttons): Use xsignal2.
Kim F. Storm <storm@cua.dk>
parents:
68651
diff
changeset
|
205 xsignal2 (Qargs_out_of_range, |
de36a2bee064
(Fmsdos_set_mouse_buttons): Use xsignal2.
Kim F. Storm <storm@cua.dk>
parents:
68651
diff
changeset
|
206 build_string ("only 2 or 3 mouse buttons are supported"), |
de36a2bee064
(Fmsdos_set_mouse_buttons): Use xsignal2.
Kim F. Storm <storm@cua.dk>
parents:
68651
diff
changeset
|
207 nbuttons); |
34561
62530d6f561d
(Fmsdos_set_mouse_buttons): Signal an error if the
Eli Zaretskii <eliz@gnu.org>
parents:
34483
diff
changeset
|
208 mouse_setup_buttons (n); |
30532
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
209 return Qnil; |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
210 } |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
211 |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
212 static void |
20036
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
213 mouse_get_xy (int *x, int *y) |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
214 { |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
215 union REGS regs; |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
216 |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
217 regs.x.ax = 0x0003; |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
218 int86 (0x33, ®s, ®s); |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
219 *x = regs.x.cx / 8; |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
220 *y = regs.x.dx / 8; |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
221 } |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
222 |
5503 | 223 void |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
224 mouse_moveto (int x, int y) |
5503 | 225 { |
13179 | 226 union REGS regs; |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
227 struct tty_display_info *tty = CURTTY (); |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
228 |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
229 if (tty->termscript) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
230 fprintf (tty->termscript, "<M_XY=%dx%d>", x, y); |
13179 | 231 regs.x.ax = 0x0004; |
232 mouse_last_x = regs.x.cx = x * 8; | |
233 mouse_last_y = regs.x.dx = y * 8; | |
234 int86 (0x33, ®s, ®s); | |
5503 | 235 } |
236 | |
13179 | 237 static int |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
238 mouse_pressed (int b, int *xp, int *yp) |
13179 | 239 { |
240 union REGS regs; | |
241 | |
242 if (b >= mouse_button_count) | |
243 return 0; | |
244 regs.x.ax = 0x0005; | |
245 regs.x.bx = mouse_button_translate[b]; | |
246 int86 (0x33, ®s, ®s); | |
247 if (regs.x.bx) | |
248 *xp = regs.x.cx / 8, *yp = regs.x.dx / 8; | |
249 return (regs.x.bx != 0); | |
250 } | |
251 | |
252 static int | |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
253 mouse_released (int b, int *xp, int *yp) |
13179 | 254 { |
255 union REGS regs; | |
256 | |
257 if (b >= mouse_button_count) | |
258 return 0; | |
259 regs.x.ax = 0x0006; | |
260 regs.x.bx = mouse_button_translate[b]; | |
261 int86 (0x33, ®s, ®s); | |
262 if (regs.x.bx) | |
263 *xp = regs.x.cx / 8, *yp = regs.x.dx / 8; | |
264 return (regs.x.bx != 0); | |
265 } | |
266 | |
23497
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
267 static int |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
268 mouse_button_depressed (int b, int *xp, int *yp) |
23497
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
269 { |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
270 union REGS regs; |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
271 |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
272 if (b >= mouse_button_count) |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
273 return 0; |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
274 regs.x.ax = 0x0003; |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
275 int86 (0x33, ®s, ®s); |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
276 if ((regs.x.bx & (1 << mouse_button_translate[b])) != 0) |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
277 { |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
278 *xp = regs.x.cx / 8; |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
279 *yp = regs.x.dx / 8; |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
280 return 1; |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
281 } |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
282 return 0; |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
283 } |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
284 |
13179 | 285 void |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
286 mouse_get_pos (FRAME_PTR *f, int insist, Lisp_Object *bar_window, |
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
287 enum scroll_bar_part *part, Lisp_Object *x, Lisp_Object *y, |
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
288 unsigned long *time) |
13179 | 289 { |
290 int ix, iy; | |
20036
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
291 Lisp_Object frame, tail; |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
292 |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
293 /* Clear the mouse-moved flag for every frame on this display. */ |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
294 FOR_EACH_FRAME (tail, frame) |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
295 XFRAME (frame)->mouse_moved = 0; |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
296 |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
297 *f = SELECTED_FRAME(); |
13179 | 298 *bar_window = Qnil; |
299 mouse_get_xy (&ix, &iy); | |
300 *time = event_timestamp (); | |
20036
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
301 *x = make_number (mouse_last_x = ix); |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
302 *y = make_number (mouse_last_y = iy); |
13179 | 303 } |
304 | |
305 static void | |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
306 mouse_check_moved (void) |
13179 | 307 { |
308 int x, y; | |
309 | |
310 mouse_get_xy (&x, &y); | |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
311 SELECTED_FRAME()->mouse_moved |= (x != mouse_last_x || y != mouse_last_y); |
13179 | 312 mouse_last_x = x; |
313 mouse_last_y = y; | |
5503 | 314 } |
315 | |
30711 | 316 /* Force the mouse driver to ``forget'' about any button clicks until |
317 now. */ | |
318 static void | |
319 mouse_clear_clicks (void) | |
320 { | |
321 int b; | |
322 | |
323 for (b = 0; b < mouse_button_count; b++) | |
324 { | |
325 int dummy_x, dummy_y; | |
326 | |
327 (void) mouse_pressed (b, &dummy_x, &dummy_y); | |
328 (void) mouse_released (b, &dummy_x, &dummy_y); | |
329 } | |
330 } | |
331 | |
13179 | 332 void |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
333 mouse_init (void) |
5503 | 334 { |
13179 | 335 union REGS regs; |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
336 struct tty_display_info *tty = CURTTY (); |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
337 |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
338 if (tty->termscript) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
339 fprintf (tty->termscript, "<M_INIT>"); |
13179 | 340 |
341 regs.x.ax = 0x0021; | |
342 int86 (0x33, ®s, ®s); | |
343 | |
23497
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
344 /* Reset the mouse last press/release info. It seems that Windows |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
345 doesn't do that automatically when function 21h is called, which |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
346 causes Emacs to ``remember'' the click that switched focus to the |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
347 window just before Emacs was started from that window. */ |
30711 | 348 mouse_clear_clicks (); |
23497
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
349 |
13179 | 350 regs.x.ax = 0x0007; |
351 regs.x.cx = 0; | |
352 regs.x.dx = 8 * (ScreenCols () - 1); | |
353 int86 (0x33, ®s, ®s); | |
354 | |
355 regs.x.ax = 0x0008; | |
356 regs.x.cx = 0; | |
357 regs.x.dx = 8 * (ScreenRows () - 1); | |
358 int86 (0x33, ®s, ®s); | |
359 | |
360 mouse_moveto (0, 0); | |
361 mouse_visible = 0; | |
362 } | |
13848
5f38596d591e
(have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
13744
diff
changeset
|
363 |
13179 | 364 /* ------------------------- Screen control ---------------------- |
365 * | |
366 */ | |
5503 | 367 |
13179 | 368 static int internal_terminal = 0; |
369 | |
370 #ifndef HAVE_X_WINDOWS | |
371 extern unsigned char ScreenAttrib; | |
372 static int screen_face; | |
373 | |
374 static int screen_size_X; | |
375 static int screen_size_Y; | |
376 static int screen_size; | |
377 | |
378 static int current_pos_X; | |
379 static int current_pos_Y; | |
380 static int new_pos_X; | |
381 static int new_pos_Y; | |
382 | |
383 static void *startup_screen_buffer; | |
384 static int startup_screen_size_X; | |
385 static int startup_screen_size_Y; | |
386 static int startup_pos_X; | |
387 static int startup_pos_Y; | |
13717
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
388 static unsigned char startup_screen_attrib; |
13179 | 389 |
23815
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
390 static clock_t startup_time; |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
391 |
13179 | 392 static int term_setup_done; |
393 | |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
394 static unsigned short outside_cursor; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
395 |
13179 | 396 /* Similar to the_only_frame. */ |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
397 struct tty_display_info the_only_display_info; |
13179 | 398 |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
399 /* Support for DOS/V (allows Japanese characters to be displayed on |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
400 standard, non-Japanese, ATs). Only supported for DJGPP v2 and later. */ |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
401 |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
402 /* Holds the address of the text-mode screen buffer. */ |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
403 static unsigned long screen_old_address = 0; |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
404 /* Segment and offset of the virtual screen. If 0, DOS/V is NOT loaded. */ |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
405 static unsigned short screen_virtual_segment = 0; |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
406 static unsigned short screen_virtual_offset = 0; |
24680
fc493aad59ad
(unibyte_display_via_language_environment): Add extern.
Andrew Innes <andrewi@gnu.org>
parents:
24678
diff
changeset
|
407 /* A flag to control how to display unibyte 8-bit characters. */ |
fc493aad59ad
(unibyte_display_via_language_environment): Add extern.
Andrew Innes <andrewi@gnu.org>
parents:
24678
diff
changeset
|
408 extern int unibyte_display_via_language_environment; |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
409 |
53187
7ba9466a0ed8
(Qcursor_type, Qbar, Qhbar): Declare extern.
Kim F. Storm <storm@cua.dk>
parents:
52401
diff
changeset
|
410 extern Lisp_Object Qcursor_type; |
7ba9466a0ed8
(Qcursor_type, Qbar, Qhbar): Declare extern.
Kim F. Storm <storm@cua.dk>
parents:
52401
diff
changeset
|
411 extern Lisp_Object Qbar, Qhbar; |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
412 |
49381 | 413 /* The screen colors of the current frame, which serve as the default |
41406
9ba7c0fd50b7
(IT_clear_screen): If the frame's faces are not yet
Eli Zaretskii <eliz@gnu.org>
parents:
41122
diff
changeset
|
414 colors for newly-created frames. */ |
9ba7c0fd50b7
(IT_clear_screen): If the frame's faces are not yet
Eli Zaretskii <eliz@gnu.org>
parents:
41122
diff
changeset
|
415 static int initial_screen_colors[2]; |
9ba7c0fd50b7
(IT_clear_screen): If the frame's faces are not yet
Eli Zaretskii <eliz@gnu.org>
parents:
41122
diff
changeset
|
416 |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
417 /* Update the screen from a part of relocated DOS/V screen buffer which |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
418 begins at OFFSET and includes COUNT characters. */ |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
419 static void |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
420 dosv_refresh_virtual_screen (int offset, int count) |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
421 { |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
422 __dpmi_regs regs; |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
423 |
28932
f8b0ac62f238
Use the term `invalid' instead of `illegal'.
Gerd Moellmann <gerd@gnu.org>
parents:
28553
diff
changeset
|
424 if (offset < 0 || count < 0) /* paranoia; invalid values crash DOS/V */ |
21489
a1a2beb0a09c
(dosv_refresh_virtual_screen): Do not use negative arguments.
Eli Zaretskii <eliz@gnu.org>
parents:
21415
diff
changeset
|
425 return; |
a1a2beb0a09c
(dosv_refresh_virtual_screen): Do not use negative arguments.
Eli Zaretskii <eliz@gnu.org>
parents:
21415
diff
changeset
|
426 |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
427 regs.h.ah = 0xff; /* update relocated screen */ |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
428 regs.x.es = screen_virtual_segment; |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
429 regs.x.di = screen_virtual_offset + offset; |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
430 regs.x.cx = count; |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
431 __dpmi_int (0x10, ®s); |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
432 } |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
433 |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
434 static void |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
435 dos_direct_output (int y, int x, char *buf, int len) |
5503 | 436 { |
21489
a1a2beb0a09c
(dosv_refresh_virtual_screen): Do not use negative arguments.
Eli Zaretskii <eliz@gnu.org>
parents:
21415
diff
changeset
|
437 int t0 = 2 * (x + y * screen_size_X); |
a1a2beb0a09c
(dosv_refresh_virtual_screen): Do not use negative arguments.
Eli Zaretskii <eliz@gnu.org>
parents:
21415
diff
changeset
|
438 int t = t0 + (int) ScreenPrimary; |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
439 int l0 = len; |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
440 |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
441 /* This is faster. */ |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
442 for (_farsetsel (_dos_ds); --len >= 0; t += 2, buf++) |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
443 _farnspokeb (t, *buf); |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
444 |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
445 if (screen_virtual_segment) |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
446 dosv_refresh_virtual_screen (t0, l0); |
13179 | 447 } |
448 #endif | |
449 | |
450 #ifndef HAVE_X_WINDOWS | |
451 | |
16837
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
452 static int blink_bit = -1; /* the state of the blink bit at startup */ |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
453 |
15341
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
454 /* Enable bright background colors. */ |
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
455 static void |
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
456 bright_bg (void) |
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
457 { |
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
458 union REGS regs; |
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
459 |
16837
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
460 /* Remember the original state of the blink/bright-background bit. |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
461 It is stored at 0040:0065h in the BIOS data area. */ |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
462 if (blink_bit == -1) |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
463 blink_bit = (_farpeekb (_dos_ds, 0x465) & 0x20) == 0x20; |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
464 |
15341
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
465 regs.h.bl = 0; |
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
466 regs.x.ax = 0x1003; |
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
467 int86 (0x10, ®s, ®s); |
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
468 } |
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
469 |
16837
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
470 /* Disable bright background colors (and enable blinking) if we found |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
471 the video system in that state at startup. */ |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
472 static void |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
473 maybe_enable_blinking (void) |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
474 { |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
475 if (blink_bit == 1) |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
476 { |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
477 union REGS regs; |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
478 |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
479 regs.h.bl = 1; |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
480 regs.x.ax = 0x1003; |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
481 int86 (0x10, ®s, ®s); |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
482 } |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
483 } |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
484 |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
485 /* Return non-zero if the system has a VGA adapter. */ |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
486 static int |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
487 vga_installed (void) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
488 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
489 union REGS regs; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
490 |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
491 regs.x.ax = 0x1a00; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
492 int86 (0x10, ®s, ®s); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
493 if (regs.h.al == 0x1a && regs.h.bl > 5 && regs.h.bl < 13) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
494 return 1; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
495 return 0; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
496 } |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
497 |
14284
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
498 /* Set the screen dimensions so that it can show no less than |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
499 ROWS x COLS frame. */ |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
500 |
14284
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
501 void |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
502 dos_set_window_size (int *rows, int *cols) |
14284
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
503 { |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
504 char video_name[30]; |
45332 | 505 union REGS regs; |
14284
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
506 Lisp_Object video_mode; |
45332 | 507 int video_mode_value, have_vga = 0; |
14284
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
508 int current_rows = ScreenRows (), current_cols = ScreenCols (); |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
509 |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
510 if (*rows == current_rows && *cols == current_cols) |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
511 return; |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
512 |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
513 mouse_off (); |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
514 have_vga = vga_installed (); |
14284
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
515 |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
516 /* If the user specified a special video mode for these dimensions, |
14284
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
517 use that mode. */ |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
518 sprintf (video_name, "screen-dimensions-%dx%d", *rows, *cols); |
108299
a5fcd78ad3eb
Don't use XSYMBOL (foo)->value.
Eli Zaretskii <eliz@gnu.org>
parents:
108234
diff
changeset
|
519 video_mode = Fsymbol_value (Fintern_soft (build_string (video_name), Qnil)); |
14284
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
520 |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
521 if (INTEGERP (video_mode) |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
522 && (video_mode_value = XINT (video_mode)) > 0) |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
523 { |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
524 regs.x.ax = video_mode_value; |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
525 int86 (0x10, ®s, ®s); |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
526 |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
527 if (have_mouse) |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
528 { |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
529 /* Must hardware-reset the mouse, or else it won't update |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
530 its notion of screen dimensions for some non-standard |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
531 video modes. This is *painfully* slow... */ |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
532 regs.x.ax = 0; |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
533 int86 (0x33, ®s, ®s); |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
534 } |
14284
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
535 } |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
536 |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
537 /* Find one of the dimensions supported by standard EGA/VGA |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
538 which gives us at least the required dimensions. */ |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
539 else |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
540 { |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
541 static struct { |
45332 | 542 int rows, need_vga; |
14284
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
543 } std_dimension[] = { |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
544 {25, 0}, |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
545 {28, 1}, |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
546 {35, 0}, |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
547 {40, 1}, |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
548 {43, 0}, |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
549 {50, 1} |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
550 }; |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
551 int i = 0; |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
552 |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
553 while (i < sizeof (std_dimension) / sizeof (std_dimension[0])) |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
554 { |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
555 if (std_dimension[i].need_vga <= have_vga |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
556 && std_dimension[i].rows >= *rows) |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
557 { |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
558 if (std_dimension[i].rows != current_rows |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
559 || *cols != current_cols) |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
560 _set_screen_lines (std_dimension[i].rows); |
14284
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
561 break; |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
562 } |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
563 i++; |
14284
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
564 } |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
565 } |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
566 |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
567 |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
568 if (have_mouse) |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
569 { |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
570 mouse_init (); |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
571 mouse_on (); |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
572 } |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
573 |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
574 /* Tell the caller what dimensions have been REALLY set. */ |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
575 *rows = ScreenRows (); |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
576 *cols = ScreenCols (); |
15341
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
577 |
32730
5d98418d7b78
(dos_set_window_size): Update screen dimension variables.
Eli Zaretskii <eliz@gnu.org>
parents:
32546
diff
changeset
|
578 /* Update Emacs' notion of screen dimensions. */ |
5d98418d7b78
(dos_set_window_size): Update screen dimension variables.
Eli Zaretskii <eliz@gnu.org>
parents:
32546
diff
changeset
|
579 screen_size_X = *cols; |
5d98418d7b78
(dos_set_window_size): Update screen dimension variables.
Eli Zaretskii <eliz@gnu.org>
parents:
32546
diff
changeset
|
580 screen_size_Y = *rows; |
5d98418d7b78
(dos_set_window_size): Update screen dimension variables.
Eli Zaretskii <eliz@gnu.org>
parents:
32546
diff
changeset
|
581 screen_size = *cols * *rows; |
5d98418d7b78
(dos_set_window_size): Update screen dimension variables.
Eli Zaretskii <eliz@gnu.org>
parents:
32546
diff
changeset
|
582 |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
583 /* If the dimensions changed, the mouse highlight info is invalid. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
584 if (current_rows != *rows || current_cols != *cols) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
585 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
586 struct frame *f = SELECTED_FRAME(); |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
587 struct tty_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f); |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
588 Lisp_Object window = dpyinfo->mouse_face_window; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
589 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
590 if (! NILP (window) && XFRAME (XWINDOW (window)->frame) == f) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
591 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
592 dpyinfo->mouse_face_beg_row = dpyinfo->mouse_face_beg_col = -1; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
593 dpyinfo->mouse_face_end_row = dpyinfo->mouse_face_end_col = -1; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
594 dpyinfo->mouse_face_window = Qnil; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
595 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
596 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
597 |
15341
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
598 /* Enable bright background colors. */ |
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
599 bright_bg (); |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
600 |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
601 /* FIXME: I'm not sure the above will run at all on DOS/V. But let's |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
602 be defensive anyway. */ |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
603 if (screen_virtual_segment) |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
604 dosv_refresh_virtual_screen (0, *cols * *rows); |
14284
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
605 } |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
606 |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
607 /* If we write a character in the position where the mouse is, |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
608 the mouse cursor may need to be refreshed. */ |
7744
da18793f532d
(output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7667
diff
changeset
|
609 |
da18793f532d
(output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7667
diff
changeset
|
610 static void |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
611 mouse_off_maybe (void) |
7744
da18793f532d
(output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7667
diff
changeset
|
612 { |
13179 | 613 int x, y; |
45332 | 614 |
13179 | 615 if (!mouse_visible) |
616 return; | |
45332 | 617 |
13179 | 618 mouse_get_xy (&x, &y); |
619 if (y != new_pos_Y || x < new_pos_X) | |
620 return; | |
45332 | 621 |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
622 mouse_off (); |
9572 | 623 } |
624 | |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
625 #define DEFAULT_CURSOR_START (-1) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
626 #define DEFAULT_CURSOR_WIDTH (-1) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
627 #define BOX_CURSOR_WIDTH (-32) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
628 |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
629 /* Set cursor to begin at scan line START_LINE in the character cell |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
630 and extend for WIDTH scan lines. Scan lines are counted from top |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
631 of the character cell, starting from zero. */ |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
632 static void |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
633 msdos_set_cursor_shape (struct frame *f, int start_line, int width) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
634 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
635 unsigned desired_cursor; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
636 __dpmi_regs regs; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
637 int max_line, top_line, bot_line; |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
638 struct tty_display_info *tty = FRAME_TTY (f); |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
639 |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
640 /* Avoid the costly BIOS call if F isn't the currently selected |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
641 frame. Allow for NULL as unconditionally meaning the selected |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
642 frame. */ |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
643 if (f && f != SELECTED_FRAME()) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
644 return; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
645 |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
646 if (tty->termscript) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
647 fprintf (tty->termscript, "\nCURSOR SHAPE=(%d,%d)", start_line, width); |
57048
79225007cc58
(msdos_set_cursor_shape): Add debugging print-out to termscript.
Eli Zaretskii <eliz@gnu.org>
parents:
56729
diff
changeset
|
648 |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
649 /* The character cell size in scan lines is stored at 40:85 in the |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
650 BIOS data area. */ |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
651 max_line = _farpeekw (_dos_ds, 0x485) - 1; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
652 switch (max_line) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
653 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
654 default: /* this relies on CGA cursor emulation being ON! */ |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
655 case 7: |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
656 bot_line = 7; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
657 break; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
658 case 9: |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
659 bot_line = 9; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
660 break; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
661 case 13: |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
662 bot_line = 12; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
663 break; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
664 case 15: |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
665 bot_line = 14; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
666 break; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
667 } |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
668 |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
669 if (width < 0) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
670 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
671 if (width == BOX_CURSOR_WIDTH) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
672 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
673 top_line = 0; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
674 bot_line = max_line; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
675 } |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
676 else if (start_line != DEFAULT_CURSOR_START) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
677 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
678 top_line = start_line; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
679 bot_line = top_line - width - 1; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
680 } |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
681 else if (width != DEFAULT_CURSOR_WIDTH) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
682 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
683 top_line = 0; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
684 bot_line = -1 - width; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
685 } |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
686 else |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
687 top_line = bot_line + 1; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
688 } |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
689 else if (width == 0) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
690 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
691 /* [31, 0] seems to DTRT for all screen sizes. */ |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
692 top_line = 31; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
693 bot_line = 0; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
694 } |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
695 else /* WIDTH is positive */ |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
696 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
697 if (start_line != DEFAULT_CURSOR_START) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
698 bot_line = start_line; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
699 top_line = bot_line - (width - 1); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
700 } |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
701 |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
702 /* If the current cursor shape is already what they want, we are |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
703 history here. */ |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
704 desired_cursor = ((top_line & 0x1f) << 8) | (bot_line & 0x1f); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
705 if (desired_cursor == _farpeekw (_dos_ds, 0x460)) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
706 return; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
707 |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
708 regs.h.ah = 1; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
709 regs.x.cx = desired_cursor; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
710 __dpmi_int (0x10, ®s); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
711 } |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
712 |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
713 static void |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
714 IT_set_cursor_type (struct frame *f, Lisp_Object cursor_type) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
715 { |
44695 | 716 if (EQ (cursor_type, Qbar) || EQ (cursor_type, Qhbar)) |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
717 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
718 /* Just BAR means the normal EGA/VGA cursor. */ |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
719 msdos_set_cursor_shape (f, DEFAULT_CURSOR_START, DEFAULT_CURSOR_WIDTH); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
720 } |
44695 | 721 else if (CONSP (cursor_type) |
722 && (EQ (XCAR (cursor_type), Qbar) | |
723 || EQ (XCAR (cursor_type), Qhbar))) | |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
724 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
725 Lisp_Object bar_parms = XCDR (cursor_type); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
726 int width; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
727 |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
728 if (INTEGERP (bar_parms)) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
729 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
730 /* Feature: negative WIDTH means cursor at the top |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
731 of the character cell, zero means invisible cursor. */ |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
732 width = XINT (bar_parms); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
733 msdos_set_cursor_shape (f, width >= 0 ? DEFAULT_CURSOR_START : 0, |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
734 width); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
735 } |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
736 else if (CONSP (bar_parms) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
737 && INTEGERP (XCAR (bar_parms)) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
738 && INTEGERP (XCDR (bar_parms))) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
739 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
740 int start_line = XINT (XCDR (bar_parms)); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
741 |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
742 width = XINT (XCAR (bar_parms)); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
743 msdos_set_cursor_shape (f, start_line, width); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
744 } |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
745 } |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
746 else |
57048
79225007cc58
(msdos_set_cursor_shape): Add debugging print-out to termscript.
Eli Zaretskii <eliz@gnu.org>
parents:
56729
diff
changeset
|
747 { |
79225007cc58
(msdos_set_cursor_shape): Add debugging print-out to termscript.
Eli Zaretskii <eliz@gnu.org>
parents:
56729
diff
changeset
|
748 /* Treat anything unknown as "box cursor". This includes nil, so |
79225007cc58
(msdos_set_cursor_shape): Add debugging print-out to termscript.
Eli Zaretskii <eliz@gnu.org>
parents:
56729
diff
changeset
|
749 that a frame which doesn't specify a cursor type gets a box, |
79225007cc58
(msdos_set_cursor_shape): Add debugging print-out to termscript.
Eli Zaretskii <eliz@gnu.org>
parents:
56729
diff
changeset
|
750 which is the default in Emacs. */ |
79225007cc58
(msdos_set_cursor_shape): Add debugging print-out to termscript.
Eli Zaretskii <eliz@gnu.org>
parents:
56729
diff
changeset
|
751 msdos_set_cursor_shape (f, 0, BOX_CURSOR_WIDTH); |
79225007cc58
(msdos_set_cursor_shape): Add debugging print-out to termscript.
Eli Zaretskii <eliz@gnu.org>
parents:
56729
diff
changeset
|
752 } |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
753 } |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
754 |
21785
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
755 static void |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
756 IT_ring_bell (struct frame *f) |
9572 | 757 { |
758 if (visible_bell) | |
759 { | |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
760 mouse_off (); |
13179 | 761 ScreenVisualBell (); |
9572 | 762 } |
763 else | |
13305
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
764 { |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
765 union REGS inregs, outregs; |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
766 inregs.h.ah = 2; |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
767 inregs.h.dl = 7; |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
768 intdos (&inregs, &outregs); |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
769 } |
9572 | 770 } |
771 | |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
772 /* Given a face id FACE, extract the face parameters to be used for |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
773 display until the face changes. The face parameters (actually, its |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
774 color) are used to construct the video attribute byte for each |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
775 glyph during the construction of the buffer that is then blitted to |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
776 the video RAM. */ |
9572 | 777 static void |
778 IT_set_face (int face) | |
779 { | |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
780 struct frame *sf = SELECTED_FRAME(); |
32546
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
781 struct face *fp = FACE_FROM_ID (sf, face); |
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
782 struct face *dfp = FACE_FROM_ID (sf, DEFAULT_FACE_ID); |
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
783 unsigned long fg, bg, dflt_fg, dflt_bg; |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
784 struct tty_display_info *tty = FRAME_TTY (sf); |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
785 |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
786 if (!fp) |
25214
acfe5b9d7233
(IT_set_face): Abort if the default face is not realized
Eli Zaretskii <eliz@gnu.org>
parents:
25110
diff
changeset
|
787 { |
32546
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
788 fp = dfp; |
25214
acfe5b9d7233
(IT_set_face): Abort if the default face is not realized
Eli Zaretskii <eliz@gnu.org>
parents:
25110
diff
changeset
|
789 /* The default face for the frame should always be realized and |
acfe5b9d7233
(IT_set_face): Abort if the default face is not realized
Eli Zaretskii <eliz@gnu.org>
parents:
25110
diff
changeset
|
790 cached. */ |
acfe5b9d7233
(IT_set_face): Abort if the default face is not realized
Eli Zaretskii <eliz@gnu.org>
parents:
25110
diff
changeset
|
791 if (!fp) |
acfe5b9d7233
(IT_set_face): Abort if the default face is not realized
Eli Zaretskii <eliz@gnu.org>
parents:
25110
diff
changeset
|
792 abort (); |
acfe5b9d7233
(IT_set_face): Abort if the default face is not realized
Eli Zaretskii <eliz@gnu.org>
parents:
25110
diff
changeset
|
793 } |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
794 screen_face = face; |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
795 fg = fp->foreground; |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
796 bg = fp->background; |
32546
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
797 dflt_fg = dfp->foreground; |
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
798 dflt_bg = dfp->background; |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
799 |
40082
0eaf29d6544e
(IT_reassert_line_highlight, IT_change_line_highlight): Functions removed.
Miles Bader <miles@gnu.org>
parents:
38314
diff
changeset
|
800 /* Don't use invalid colors. In particular, FACE_TTY_DEFAULT_* colors |
0eaf29d6544e
(IT_reassert_line_highlight, IT_change_line_highlight): Functions removed.
Miles Bader <miles@gnu.org>
parents:
38314
diff
changeset
|
801 mean use the colors of the default face. Note that we assume all |
0eaf29d6544e
(IT_reassert_line_highlight, IT_change_line_highlight): Functions removed.
Miles Bader <miles@gnu.org>
parents:
38314
diff
changeset
|
802 16 colors to be available for the background, since Emacs switches |
0eaf29d6544e
(IT_reassert_line_highlight, IT_change_line_highlight): Functions removed.
Miles Bader <miles@gnu.org>
parents:
38314
diff
changeset
|
803 on this mode (and loses the blinking attribute) at startup. */ |
26902
264b83a3a688
Changes for separate unspecified foreground and background colors
Eli Zaretskii <eliz@gnu.org>
parents:
26729
diff
changeset
|
804 if (fg == FACE_TTY_DEFAULT_COLOR || fg == FACE_TTY_DEFAULT_FG_COLOR) |
26946
9e0e23a92539
(IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
805 fg = FRAME_FOREGROUND_PIXEL (sf); |
26902
264b83a3a688
Changes for separate unspecified foreground and background colors
Eli Zaretskii <eliz@gnu.org>
parents:
26729
diff
changeset
|
806 else if (fg == FACE_TTY_DEFAULT_BG_COLOR) |
26946
9e0e23a92539
(IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
807 fg = FRAME_BACKGROUND_PIXEL (sf); |
9e0e23a92539
(IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
808 if (bg == FACE_TTY_DEFAULT_COLOR || bg == FACE_TTY_DEFAULT_BG_COLOR) |
9e0e23a92539
(IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
809 bg = FRAME_BACKGROUND_PIXEL (sf); |
26902
264b83a3a688
Changes for separate unspecified foreground and background colors
Eli Zaretskii <eliz@gnu.org>
parents:
26729
diff
changeset
|
810 else if (bg == FACE_TTY_DEFAULT_FG_COLOR) |
26946
9e0e23a92539
(IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
811 bg = FRAME_FOREGROUND_PIXEL (sf); |
9e0e23a92539
(IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
812 |
9e0e23a92539
(IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
813 /* Make sure highlighted lines really stand out, come what may. */ |
40082
0eaf29d6544e
(IT_reassert_line_highlight, IT_change_line_highlight): Functions removed.
Miles Bader <miles@gnu.org>
parents:
38314
diff
changeset
|
814 if (fp->tty_reverse_p && (fg == dflt_fg && bg == dflt_bg)) |
26946
9e0e23a92539
(IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
815 { |
9e0e23a92539
(IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
816 unsigned long tem = fg; |
9e0e23a92539
(IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
817 |
9e0e23a92539
(IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
818 fg = bg; |
9e0e23a92539
(IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
819 bg = tem; |
9e0e23a92539
(IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
820 } |
34676
fbd6630ebdaa
(IT_set_face): Obey inverse_video.
Eli Zaretskii <eliz@gnu.org>
parents:
34657
diff
changeset
|
821 /* If the user requested inverse video, obey. */ |
fbd6630ebdaa
(IT_set_face): Obey inverse_video.
Eli Zaretskii <eliz@gnu.org>
parents:
34657
diff
changeset
|
822 if (inverse_video) |
fbd6630ebdaa
(IT_set_face): Obey inverse_video.
Eli Zaretskii <eliz@gnu.org>
parents:
34657
diff
changeset
|
823 { |
fbd6630ebdaa
(IT_set_face): Obey inverse_video.
Eli Zaretskii <eliz@gnu.org>
parents:
34657
diff
changeset
|
824 unsigned long tem2 = fg; |
fbd6630ebdaa
(IT_set_face): Obey inverse_video.
Eli Zaretskii <eliz@gnu.org>
parents:
34657
diff
changeset
|
825 |
fbd6630ebdaa
(IT_set_face): Obey inverse_video.
Eli Zaretskii <eliz@gnu.org>
parents:
34657
diff
changeset
|
826 fg = bg; |
fbd6630ebdaa
(IT_set_face): Obey inverse_video.
Eli Zaretskii <eliz@gnu.org>
parents:
34657
diff
changeset
|
827 bg = tem2; |
fbd6630ebdaa
(IT_set_face): Obey inverse_video.
Eli Zaretskii <eliz@gnu.org>
parents:
34657
diff
changeset
|
828 } |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
829 if (tty->termscript) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
830 fprintf (tty->termscript, "<FACE %d: %d/%d[FG:%d/BG:%d]>", face, |
40082
0eaf29d6544e
(IT_reassert_line_highlight, IT_change_line_highlight): Functions removed.
Miles Bader <miles@gnu.org>
parents:
38314
diff
changeset
|
831 fp->foreground, fp->background, fg, bg); |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
832 if (fg >= 0 && fg < 16) |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
833 { |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
834 ScreenAttrib &= 0xf0; |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
835 ScreenAttrib |= fg; |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
836 } |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
837 if (bg >= 0 && bg < 16) |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
838 { |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
839 ScreenAttrib &= 0x0f; |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
840 ScreenAttrib |= ((bg & 0x0f) << 4); |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
841 } |
9572 | 842 } |
843 | |
102034
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
844 /* According to RBIL (INTERRUP.A, V-1000), 160 is the maximum possible |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
845 width of a DOS display in any known text mode. We multiply by 2 to |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
846 accomodate the screen attribute byte. */ |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
847 #define MAX_SCREEN_BUF 160*2 |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
848 |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
849 Lisp_Object Vdos_unsupported_char_glyph; |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
850 extern unsigned char *encode_terminal_code (struct glyph *, int, |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
851 struct coding_system *); |
21785
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
852 static void |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
853 IT_write_glyphs (struct frame *f, struct glyph *str, int str_len) |
9572 | 854 { |
102034
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
855 unsigned char screen_buf[MAX_SCREEN_BUF], *screen_bp, *bp; |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
856 int offset = 2 * (new_pos_X + screen_size_X * new_pos_Y); |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
857 register int sl = str_len; |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
858 struct tty_display_info *tty = FRAME_TTY (f); |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
859 struct frame *sf; |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
860 unsigned char *conversion_buffer; |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
861 |
24001
fce0e760c4ab
(IT_write_glyphs): Move constant expression out of the loop.
Eli Zaretskii <eliz@gnu.org>
parents:
23971
diff
changeset
|
862 /* Do we need to consider conversion of unibyte characters to |
fce0e760c4ab
(IT_write_glyphs): Move constant expression out of the loop.
Eli Zaretskii <eliz@gnu.org>
parents:
23971
diff
changeset
|
863 multibyte? */ |
fce0e760c4ab
(IT_write_glyphs): Move constant expression out of the loop.
Eli Zaretskii <eliz@gnu.org>
parents:
23971
diff
changeset
|
864 int convert_unibyte_characters |
24678
56fe3cae0f96
(unibyte_display_via_language_environment):
Andrew Innes <andrewi@gnu.org>
parents:
24593
diff
changeset
|
865 = (NILP (current_buffer->enable_multibyte_characters) |
56fe3cae0f96
(unibyte_display_via_language_environment):
Andrew Innes <andrewi@gnu.org>
parents:
24593
diff
changeset
|
866 && unibyte_display_via_language_environment); |
24001
fce0e760c4ab
(IT_write_glyphs): Move constant expression out of the loop.
Eli Zaretskii <eliz@gnu.org>
parents:
23971
diff
changeset
|
867 |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
868 /* If terminal_coding does any conversion, use it, otherwise use |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
869 safe_terminal_coding. We can't use CODING_REQUIRE_ENCODING here |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
870 because it always returns 1 if terminal_coding.src_multibyte is 1. */ |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
871 struct coding_system *coding = FRAME_TERMINAL_CODING (f); |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
872 |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
873 if (!(coding->common_flags & CODING_REQUIRE_ENCODING_MASK)) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
874 coding = &safe_terminal_coding; |
30835
45f168392f57
(IT_write_glyphs): Use a locally declared conversion_buffer.
Kenichi Handa <handa@m17n.org>
parents:
30826
diff
changeset
|
875 |
26946
9e0e23a92539
(IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
876 if (str_len <= 0) return; |
45332 | 877 |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
878 sf = SELECTED_FRAME(); |
25214
acfe5b9d7233
(IT_set_face): Abort if the default face is not realized
Eli Zaretskii <eliz@gnu.org>
parents:
25110
diff
changeset
|
879 |
acfe5b9d7233
(IT_set_face): Abort if the default face is not realized
Eli Zaretskii <eliz@gnu.org>
parents:
25110
diff
changeset
|
880 /* Since faces get cached and uncached behind our back, we can't |
acfe5b9d7233
(IT_set_face): Abort if the default face is not realized
Eli Zaretskii <eliz@gnu.org>
parents:
25110
diff
changeset
|
881 rely on their indices in the cache being consistent across |
acfe5b9d7233
(IT_set_face): Abort if the default face is not realized
Eli Zaretskii <eliz@gnu.org>
parents:
25110
diff
changeset
|
882 invocations. So always reset the screen face to the default |
acfe5b9d7233
(IT_set_face): Abort if the default face is not realized
Eli Zaretskii <eliz@gnu.org>
parents:
25110
diff
changeset
|
883 face of the frame, before writing glyphs, and let the glyphs |
acfe5b9d7233
(IT_set_face): Abort if the default face is not realized
Eli Zaretskii <eliz@gnu.org>
parents:
25110
diff
changeset
|
884 set the right face if it's different from the default. */ |
acfe5b9d7233
(IT_set_face): Abort if the default face is not realized
Eli Zaretskii <eliz@gnu.org>
parents:
25110
diff
changeset
|
885 IT_set_face (DEFAULT_FACE_ID); |
45332 | 886 |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
887 /* The mode bit CODING_MODE_LAST_BLOCK should be set to 1 only at |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
888 the tail. */ |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
889 coding->mode &= ~CODING_MODE_LAST_BLOCK; |
102034
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
890 screen_bp = &screen_buf[0]; |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
891 while (sl > 0) |
9572 | 892 { |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
893 int cf; |
102034
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
894 int n; |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
895 |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
896 /* If the face of this glyph is different from the current |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
897 screen face, update the screen attribute byte. */ |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
898 cf = str->face_id; |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
899 if (cf != screen_face) |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
900 IT_set_face (cf); /* handles invalid faces gracefully */ |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
901 |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
902 /* Identify a run of glyphs with the same face. */ |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
903 for (n = 1; n < sl; ++n) |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
904 if (str[n].face_id != cf) |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
905 break; |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
906 |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
907 if (n >= sl) |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
908 /* This is the last glyph. */ |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
909 coding->mode |= CODING_MODE_LAST_BLOCK; |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
910 |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
911 conversion_buffer = encode_terminal_code (str, n, coding); |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
912 if (coding->produced > 0) |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
913 { |
102034
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
914 /* Copy the encoded bytes to the screen buffer. */ |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
915 for (bp = conversion_buffer; coding->produced--; bp++) |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
916 { |
102034
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
917 /* Paranoia: discard bytes that would overrun the end of |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
918 the screen buffer. */ |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
919 if (screen_bp - screen_buf <= MAX_SCREEN_BUF - 2) |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
920 { |
102034
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
921 *screen_bp++ = (unsigned char)*bp; |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
922 *screen_bp++ = ScreenAttrib; |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
923 } |
102034
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
924 if (tty->termscript) |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
925 fputc (*bp, tty->termscript); |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
926 } |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
927 } |
102034
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
928 /* Update STR and its remaining length. */ |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
929 str += n; |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
930 sl -= n; |
9572 | 931 } |
13179 | 932 |
102034
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
933 /* Dump whatever we have in the screen buffer. */ |
13179 | 934 mouse_off_maybe (); |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
935 dosmemput (screen_buf, screen_bp - screen_buf, (int)ScreenPrimary + offset); |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
936 if (screen_virtual_segment) |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
937 dosv_refresh_virtual_screen (offset, (screen_bp - screen_buf) / 2); |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
938 new_pos_X += (screen_bp - screen_buf) / 2; |
9572 | 939 } |
940 | |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
941 /************************************************************************ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
942 Mouse Highlight (and friends..) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
943 ************************************************************************/ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
944 |
44359
ff9f7aee02c8
Rename autoselect_window_p to mouse_autoselect_window.
Pavel Janík <Pavel@Janik.cz>
parents:
44337
diff
changeset
|
945 /* Last window where we saw the mouse. Used by mouse-autoselect-window. */ |
43363
bcefd6f01283
(last_mouse_window): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
43357
diff
changeset
|
946 static Lisp_Object last_mouse_window; |
bcefd6f01283
(last_mouse_window): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
43357
diff
changeset
|
947 |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
948 static int mouse_preempted = 0; /* non-zero when XMenu gobbles mouse events */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
949 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
950 /* Set the mouse pointer shape according to whether it is in the |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
951 area where the mouse highlight is in effect. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
952 static void |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
953 IT_set_mouse_pointer (int mode) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
954 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
955 /* A no-op for now. DOS text-mode mouse pointer doesn't offer too |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
956 many possibilities to change its shape, and the available |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
957 functionality pretty much sucks (e.g., almost every reasonable |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
958 shape will conceal the character it is on). Since the color of |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
959 the pointer changes in the highlighted area, it is not clear to |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
960 me whether anything else is required, anyway. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
961 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
962 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
963 /* Display the active region described by mouse_face_* |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
964 in its mouse-face if HL > 0, in its normal face if HL = 0. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
965 static void |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
966 show_mouse_face (struct tty_display_info *dpyinfo, int hl) |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
967 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
968 struct window *w = XWINDOW (dpyinfo->mouse_face_window); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
969 struct frame *f = XFRAME (WINDOW_FRAME (w)); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
970 int i; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
971 struct face *fp; |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
972 struct tty_display_info *tty = FRAME_TTY (f); |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
973 |
45332 | 974 |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
975 /* If window is in the process of being destroyed, don't bother |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
976 doing anything. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
977 if (w->current_matrix == NULL) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
978 goto set_cursor_shape; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
979 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
980 /* Recognize when we are called to operate on rows that don't exist |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
981 anymore. This can happen when a window is split. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
982 if (dpyinfo->mouse_face_end_row >= w->current_matrix->nrows) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
983 goto set_cursor_shape; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
984 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
985 /* There's no sense to do anything if the mouse face isn't realized. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
986 if (hl > 0) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
987 { |
43371
263456abbeb0
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43363
diff
changeset
|
988 if (dpyinfo->mouse_face_hidden) |
263456abbeb0
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43363
diff
changeset
|
989 goto set_cursor_shape; |
263456abbeb0
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43363
diff
changeset
|
990 |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
991 fp = FACE_FROM_ID (SELECTED_FRAME(), dpyinfo->mouse_face_face_id); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
992 if (!fp) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
993 goto set_cursor_shape; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
994 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
995 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
996 /* Note that mouse_face_beg_row etc. are window relative. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
997 for (i = dpyinfo->mouse_face_beg_row; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
998 i <= dpyinfo->mouse_face_end_row; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
999 i++) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1000 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1001 int start_hpos, end_hpos; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1002 struct glyph_row *row = MATRIX_ROW (w->current_matrix, i); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1003 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1004 /* Don't do anything if row doesn't have valid contents. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1005 if (!row->enabled_p) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1006 continue; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1007 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1008 /* For all but the first row, the highlight starts at column 0. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1009 if (i == dpyinfo->mouse_face_beg_row) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1010 start_hpos = dpyinfo->mouse_face_beg_col; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1011 else |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1012 start_hpos = 0; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1013 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1014 if (i == dpyinfo->mouse_face_end_row) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1015 end_hpos = dpyinfo->mouse_face_end_col; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1016 else |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1017 end_hpos = row->used[TEXT_AREA]; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1018 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1019 if (end_hpos <= start_hpos) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1020 continue; |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1021 /* Record that some glyphs of this row are displayed in |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1022 mouse-face. */ |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1023 row->mouse_face_p = hl > 0; |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1024 if (hl > 0) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1025 { |
51201
df6e2df16eb0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50247
diff
changeset
|
1026 int vpos = row->y + WINDOW_TOP_EDGE_Y (w); |
df6e2df16eb0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50247
diff
changeset
|
1027 int kstart = start_hpos + WINDOW_LEFT_EDGE_X (w); |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1028 int nglyphs = end_hpos - start_hpos; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1029 int offset = ScreenPrimary + 2*(vpos*screen_size_X + kstart) + 1; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1030 int start_offset = offset; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1031 |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1032 if (tty->termscript) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1033 fprintf (tty->termscript, "\n<MH+ %d-%d:%d>", |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1034 kstart, kstart + nglyphs - 1, vpos); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1035 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1036 mouse_off (); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1037 IT_set_face (dpyinfo->mouse_face_face_id); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1038 /* Since we are going to change only the _colors_ of the |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1039 displayed text, there's no need to go through all the |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1040 pain of generating and encoding the text from the glyphs. |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1041 Instead, we simply poke the attribute byte of each |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1042 affected position in video memory with the colors |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1043 computed by IT_set_face! */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1044 _farsetsel (_dos_ds); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1045 while (nglyphs--) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1046 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1047 _farnspokeb (offset, ScreenAttrib); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1048 offset += 2; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1049 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1050 if (screen_virtual_segment) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1051 dosv_refresh_virtual_screen (start_offset, end_hpos - start_hpos); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1052 mouse_on (); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1053 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1054 else |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1055 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1056 /* We are removing a previously-drawn mouse highlight. The |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1057 safest way to do so is to redraw the glyphs anew, since |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1058 all kinds of faces and display tables could have changed |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1059 behind our back. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1060 int nglyphs = end_hpos - start_hpos; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1061 int save_x = new_pos_X, save_y = new_pos_Y; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1062 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1063 if (end_hpos >= row->used[TEXT_AREA]) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1064 nglyphs = row->used[TEXT_AREA] - start_hpos; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1065 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1066 /* IT_write_glyphs writes at cursor position, so we need to |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1067 temporarily move cursor coordinates to the beginning of |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1068 the highlight region. */ |
51201
df6e2df16eb0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50247
diff
changeset
|
1069 new_pos_X = start_hpos + WINDOW_LEFT_EDGE_X (w); |
df6e2df16eb0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50247
diff
changeset
|
1070 new_pos_Y = row->y + WINDOW_TOP_EDGE_Y (w); |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1071 |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1072 if (tty->termscript) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1073 fprintf (tty->termscript, "<MH- %d-%d:%d>", |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1074 new_pos_X, new_pos_X + nglyphs - 1, new_pos_Y); |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1075 IT_write_glyphs (f, row->glyphs[TEXT_AREA] + start_hpos, nglyphs); |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1076 if (tty->termscript) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1077 fputs ("\n", tty->termscript); |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1078 new_pos_X = save_x; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1079 new_pos_Y = save_y; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1080 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1081 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1082 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1083 set_cursor_shape: |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1084 /* Change the mouse pointer shape. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1085 IT_set_mouse_pointer (hl); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1086 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1087 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1088 /* Clear out the mouse-highlighted active region. |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1089 Redraw it un-highlighted first. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1090 static void |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1091 clear_mouse_face (struct tty_display_info *dpyinfo) |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1092 { |
54730
c33e4ac43939
(clear_mouse_face): Only clear mouse highlight if not hidden.
Kim F. Storm <storm@cua.dk>
parents:
53187
diff
changeset
|
1093 if (!dpyinfo->mouse_face_hidden && ! NILP (dpyinfo->mouse_face_window)) |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1094 show_mouse_face (dpyinfo, 0); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1095 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1096 dpyinfo->mouse_face_beg_row = dpyinfo->mouse_face_beg_col = -1; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1097 dpyinfo->mouse_face_end_row = dpyinfo->mouse_face_end_col = -1; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1098 dpyinfo->mouse_face_window = Qnil; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1099 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1100 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1101 /* Find the glyph matrix position of buffer position POS in window W. |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1102 *HPOS and *VPOS are set to the positions found. W's current glyphs |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1103 must be up to date. If POS is above window start return (0, 0). |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1104 If POS is after end of W, return end of last line in W. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1105 static int |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1106 fast_find_position (struct window *w, int pos, int *hpos, int *vpos) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1107 { |
45332 | 1108 int i, lastcol, line_start_position, maybe_next_line_p = 0; |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1109 int yb = window_text_bottom_y (w); |
45332 | 1110 struct glyph_row *row = MATRIX_ROW (w->current_matrix, 0), *best_row = row; |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1111 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1112 while (row->y < yb) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1113 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1114 if (row->used[TEXT_AREA]) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1115 line_start_position = row->glyphs[TEXT_AREA]->charpos; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1116 else |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1117 line_start_position = 0; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1118 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1119 if (line_start_position > pos) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1120 break; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1121 /* If the position sought is the end of the buffer, |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1122 don't include the blank lines at the bottom of the window. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1123 else if (line_start_position == pos |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1124 && pos == BUF_ZV (XBUFFER (w->buffer))) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1125 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1126 maybe_next_line_p = 1; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1127 break; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1128 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1129 else if (line_start_position > 0) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1130 best_row = row; |
34483
eccf7d43bead
(fast_find_position): Don't overstep the last window row.
Eli Zaretskii <eliz@gnu.org>
parents:
32730
diff
changeset
|
1131 |
eccf7d43bead
(fast_find_position): Don't overstep the last window row.
Eli Zaretskii <eliz@gnu.org>
parents:
32730
diff
changeset
|
1132 /* Don't overstep the last matrix row, lest we get into the |
eccf7d43bead
(fast_find_position): Don't overstep the last window row.
Eli Zaretskii <eliz@gnu.org>
parents:
32730
diff
changeset
|
1133 never-never land... */ |
eccf7d43bead
(fast_find_position): Don't overstep the last window row.
Eli Zaretskii <eliz@gnu.org>
parents:
32730
diff
changeset
|
1134 if (row->y + 1 >= yb) |
eccf7d43bead
(fast_find_position): Don't overstep the last window row.
Eli Zaretskii <eliz@gnu.org>
parents:
32730
diff
changeset
|
1135 break; |
45332 | 1136 |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1137 ++row; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1138 } |
45332 | 1139 |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1140 /* Find the right column within BEST_ROW. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1141 lastcol = 0; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1142 row = best_row; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1143 for (i = 0; i < row->used[TEXT_AREA]; i++) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1144 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1145 struct glyph *glyph = row->glyphs[TEXT_AREA] + i; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1146 int charpos; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1147 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1148 charpos = glyph->charpos; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1149 if (charpos == pos) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1150 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1151 *hpos = i; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1152 *vpos = row->y; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1153 return 1; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1154 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1155 else if (charpos > pos) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1156 break; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1157 else if (charpos > 0) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1158 lastcol = i; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1159 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1160 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1161 /* If we're looking for the end of the buffer, |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1162 and we didn't find it in the line we scanned, |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1163 use the start of the following line. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1164 if (maybe_next_line_p) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1165 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1166 ++row; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1167 lastcol = 0; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1168 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1169 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1170 *vpos = row->y; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1171 *hpos = lastcol + 1; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1172 return 0; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1173 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1174 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1175 /* Take proper action when mouse has moved to the mode or top line of |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1176 window W, x-position X. MODE_LINE_P non-zero means mouse is on the |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1177 mode line. X is relative to the start of the text display area of |
41122 | 1178 W, so the width of fringes and scroll bars must be subtracted |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1179 to get a position relative to the start of the mode line. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1180 static void |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1181 IT_note_mode_line_highlight (struct window *w, int x, int mode_line_p) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1182 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1183 struct frame *f = XFRAME (w->frame); |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1184 struct tty_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f); |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1185 struct glyph_row *row; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1186 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1187 if (mode_line_p) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1188 row = MATRIX_MODE_LINE_ROW (w->current_matrix); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1189 else |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1190 row = MATRIX_HEADER_LINE_ROW (w->current_matrix); |
45332 | 1191 |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1192 if (row->enabled_p) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1193 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1194 struct glyph *glyph, *end; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1195 Lisp_Object help, map; |
45332 | 1196 |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1197 /* Find the glyph under X. */ |
51201
df6e2df16eb0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50247
diff
changeset
|
1198 glyph = (row->glyphs[TEXT_AREA] |
df6e2df16eb0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50247
diff
changeset
|
1199 + x |
52315 | 1200 /* in case someone implements scroll bars some day... */ |
51201
df6e2df16eb0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50247
diff
changeset
|
1201 - WINDOW_LEFT_SCROLL_BAR_AREA_WIDTH (w)); |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1202 end = glyph + row->used[TEXT_AREA]; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1203 if (glyph < end |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1204 && STRINGP (glyph->object) |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46272
diff
changeset
|
1205 && STRING_INTERVALS (glyph->object) |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1206 && glyph->charpos >= 0 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46272
diff
changeset
|
1207 && glyph->charpos < SCHARS (glyph->object)) |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1208 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1209 /* If we're on a string with `help-echo' text property, |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1210 arrange for the help to be displayed. This is done by |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1211 setting the global variable help_echo to the help string. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1212 help = Fget_text_property (make_number (glyph->charpos), |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1213 Qhelp_echo, glyph->object); |
30050
ed1979c6dfb9
* xterm.c (note_mode_line_highlight, note_mouse_highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29613
diff
changeset
|
1214 if (!NILP (help)) |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1215 { |
50225
39746533995d
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
49600
diff
changeset
|
1216 help_echo_string = help; |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1217 XSETWINDOW (help_echo_window, w); |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1218 help_echo_object = glyph->object; |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1219 help_echo_pos = glyph->charpos; |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1220 } |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1221 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1222 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1223 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1224 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1225 /* Take proper action when the mouse has moved to position X, Y on |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1226 frame F as regards highlighting characters that have mouse-face |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1227 properties. Also de-highlighting chars where the mouse was before. |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1228 X and Y can be negative or out of range. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1229 static void |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1230 IT_note_mouse_highlight (struct frame *f, int x, int y) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1231 { |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1232 struct tty_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f); |
50225
39746533995d
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
49600
diff
changeset
|
1233 enum window_part part = ON_NOTHING; |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1234 Lisp_Object window; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1235 struct window *w; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1236 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1237 /* When a menu is active, don't highlight because this looks odd. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1238 if (mouse_preempted) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1239 return; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1240 |
43371
263456abbeb0
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43363
diff
changeset
|
1241 if (NILP (Vmouse_highlight) |
28008
5b87cdbef5a8
(IT_note_mouse_highlight): Return immediately if frame's
Eli Zaretskii <eliz@gnu.org>
parents:
27775
diff
changeset
|
1242 || !f->glyphs_initialized_p) |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1243 return; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1244 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1245 dpyinfo->mouse_face_mouse_x = x; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1246 dpyinfo->mouse_face_mouse_y = y; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1247 dpyinfo->mouse_face_mouse_frame = f; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1248 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1249 if (dpyinfo->mouse_face_defer) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1250 return; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1251 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1252 if (gc_in_progress) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1253 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1254 dpyinfo->mouse_face_deferred_gc = 1; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1255 return; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1256 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1257 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1258 /* Which window is that in? */ |
51201
df6e2df16eb0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50247
diff
changeset
|
1259 window = window_from_coordinates (f, x, y, &part, &x, &y, 0); |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1260 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1261 /* If we were displaying active text in another window, clear that. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1262 if (! EQ (window, dpyinfo->mouse_face_window)) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1263 clear_mouse_face (dpyinfo); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1264 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1265 /* Not on a window -> return. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1266 if (!WINDOWP (window)) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1267 return; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1268 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1269 /* Convert to window-relative coordinates. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1270 w = XWINDOW (window); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1271 |
50225
39746533995d
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
49600
diff
changeset
|
1272 if (part == ON_MODE_LINE || part == ON_HEADER_LINE) |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1273 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1274 /* Mouse is on the mode or top line. */ |
50225
39746533995d
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
49600
diff
changeset
|
1275 IT_note_mode_line_highlight (w, x, part == ON_MODE_LINE); |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1276 return; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1277 } |
51201
df6e2df16eb0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50247
diff
changeset
|
1278 |
df6e2df16eb0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50247
diff
changeset
|
1279 IT_set_mouse_pointer (0); |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1280 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1281 /* Are we in a window whose display is up to date? |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1282 And verify the buffer's text has not changed. */ |
50225
39746533995d
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
49600
diff
changeset
|
1283 if (part == ON_TEXT |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1284 && EQ (w->window_end_valid, w->buffer) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1285 && XFASTINT (w->last_modified) == BUF_MODIFF (XBUFFER (w->buffer)) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1286 && (XFASTINT (w->last_overlay_modified) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1287 == BUF_OVERLAY_MODIFF (XBUFFER (w->buffer)))) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1288 { |
45332 | 1289 int pos, i, nrows = w->current_matrix->nrows; |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1290 struct glyph_row *row; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1291 struct glyph *glyph; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1292 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1293 /* Find the glyph under X/Y. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1294 glyph = NULL; |
34483
eccf7d43bead
(fast_find_position): Don't overstep the last window row.
Eli Zaretskii <eliz@gnu.org>
parents:
32730
diff
changeset
|
1295 if (y >= 0 && y < nrows) |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1296 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1297 row = MATRIX_ROW (w->current_matrix, y); |
34483
eccf7d43bead
(fast_find_position): Don't overstep the last window row.
Eli Zaretskii <eliz@gnu.org>
parents:
32730
diff
changeset
|
1298 /* Give up if some row before the one we are looking for is |
eccf7d43bead
(fast_find_position): Don't overstep the last window row.
Eli Zaretskii <eliz@gnu.org>
parents:
32730
diff
changeset
|
1299 not enabled. */ |
eccf7d43bead
(fast_find_position): Don't overstep the last window row.
Eli Zaretskii <eliz@gnu.org>
parents:
32730
diff
changeset
|
1300 for (i = 0; i <= y; i++) |
eccf7d43bead
(fast_find_position): Don't overstep the last window row.
Eli Zaretskii <eliz@gnu.org>
parents:
32730
diff
changeset
|
1301 if (!MATRIX_ROW (w->current_matrix, i)->enabled_p) |
eccf7d43bead
(fast_find_position): Don't overstep the last window row.
Eli Zaretskii <eliz@gnu.org>
parents:
32730
diff
changeset
|
1302 break; |
eccf7d43bead
(fast_find_position): Don't overstep the last window row.
Eli Zaretskii <eliz@gnu.org>
parents:
32730
diff
changeset
|
1303 if (i > y /* all rows upto and including the one at Y are enabled */ |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1304 && row->displays_text_p |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1305 && x < window_box_width (w, TEXT_AREA)) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1306 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1307 glyph = row->glyphs[TEXT_AREA]; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1308 if (x >= row->used[TEXT_AREA]) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1309 glyph = NULL; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1310 else |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1311 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1312 glyph += x; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1313 if (!BUFFERP (glyph->object)) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1314 glyph = NULL; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1315 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1316 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1317 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1318 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1319 /* Clear mouse face if X/Y not over text. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1320 if (glyph == NULL) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1321 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1322 clear_mouse_face (dpyinfo); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1323 return; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1324 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1325 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1326 if (!BUFFERP (glyph->object)) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1327 abort (); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1328 pos = glyph->charpos; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1329 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1330 /* Check for mouse-face and help-echo. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1331 { |
45332 | 1332 Lisp_Object mouse_face, overlay, position, *overlay_vec; |
77906
a33e69b10eed
(getdefdir): Delete stray semicolon.
Chong Yidong <cyd@stupidchicken.com>
parents:
75348
diff
changeset
|
1333 int noverlays, obegv, ozv; |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1334 struct buffer *obuf; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1335 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1336 /* If we get an out-of-range value, return now; avoid an error. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1337 if (pos > BUF_Z (XBUFFER (w->buffer))) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1338 return; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1339 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1340 /* Make the window's buffer temporarily current for |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1341 overlays_at and compute_char_face. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1342 obuf = current_buffer; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1343 current_buffer = XBUFFER (w->buffer); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1344 obegv = BEGV; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1345 ozv = ZV; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1346 BEGV = BEG; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1347 ZV = Z; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1348 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1349 /* Is this char mouse-active or does it have help-echo? */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1350 XSETINT (position, pos); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1351 |
55650
c8d69f7304ee
(IT_note_mouse_highlight): Use GET_OVERLAYS_AT.
Kim F. Storm <storm@cua.dk>
parents:
55292
diff
changeset
|
1352 /* Put all the overlays we want in a vector in overlay_vec. */ |
c8d69f7304ee
(IT_note_mouse_highlight): Use GET_OVERLAYS_AT.
Kim F. Storm <storm@cua.dk>
parents:
55292
diff
changeset
|
1353 GET_OVERLAYS_AT (pos, overlay_vec, noverlays, NULL, 0); |
30381
ace34a073127
(IT_note_mouse_highlight): Process overlays in the
Eli Zaretskii <eliz@gnu.org>
parents:
30341
diff
changeset
|
1354 /* Sort overlays into increasing priority order. */ |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1355 noverlays = sort_overlays (overlay_vec, noverlays, w); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1356 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1357 /* Check mouse-face highlighting. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1358 if (! (EQ (window, dpyinfo->mouse_face_window) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1359 && y >= dpyinfo->mouse_face_beg_row |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1360 && y <= dpyinfo->mouse_face_end_row |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1361 && (y > dpyinfo->mouse_face_beg_row |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1362 || x >= dpyinfo->mouse_face_beg_col) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1363 && (y < dpyinfo->mouse_face_end_row |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1364 || x < dpyinfo->mouse_face_end_col |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1365 || dpyinfo->mouse_face_past_end))) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1366 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1367 /* Clear the display of the old active region, if any. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1368 clear_mouse_face (dpyinfo); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1369 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1370 /* Find highest priority overlay that has a mouse-face prop. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1371 overlay = Qnil; |
30381
ace34a073127
(IT_note_mouse_highlight): Process overlays in the
Eli Zaretskii <eliz@gnu.org>
parents:
30341
diff
changeset
|
1372 for (i = noverlays - 1; i >= 0; --i) |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1373 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1374 mouse_face = Foverlay_get (overlay_vec[i], Qmouse_face); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1375 if (!NILP (mouse_face)) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1376 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1377 overlay = overlay_vec[i]; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1378 break; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1379 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1380 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1381 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1382 /* If no overlay applies, get a text property. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1383 if (NILP (overlay)) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1384 mouse_face = Fget_text_property (position, Qmouse_face, |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1385 w->buffer); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1386 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1387 /* Handle the overlay case. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1388 if (! NILP (overlay)) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1389 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1390 /* Find the range of text around this char that |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1391 should be active. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1392 Lisp_Object before, after; |
92237
ce06567a933d
* dispextern.h (face_at_buffer_position, face_for_overlay_string)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91327
diff
changeset
|
1393 EMACS_INT ignore; |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1394 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1395 before = Foverlay_start (overlay); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1396 after = Foverlay_end (overlay); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1397 /* Record this as the current active region. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1398 fast_find_position (w, XFASTINT (before), |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1399 &dpyinfo->mouse_face_beg_col, |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1400 &dpyinfo->mouse_face_beg_row); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1401 dpyinfo->mouse_face_past_end |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1402 = !fast_find_position (w, XFASTINT (after), |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1403 &dpyinfo->mouse_face_end_col, |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1404 &dpyinfo->mouse_face_end_row); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1405 dpyinfo->mouse_face_window = window; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1406 dpyinfo->mouse_face_face_id |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1407 = face_at_buffer_position (w, pos, 0, 0, |
48026
d876c83f972b
(IT_note_mouse_highlight): Don't use mouse-face if hidden.
Kim F. Storm <storm@cua.dk>
parents:
46954
diff
changeset
|
1408 &ignore, pos + 1, |
103114
fa8e2c663118
* xfaces.c (face_at_buffer_position): New arg base_face_id.
Chong Yidong <cyd@stupidchicken.com>
parents:
102034
diff
changeset
|
1409 !dpyinfo->mouse_face_hidden, |
fa8e2c663118
* xfaces.c (face_at_buffer_position): New arg base_face_id.
Chong Yidong <cyd@stupidchicken.com>
parents:
102034
diff
changeset
|
1410 -1); |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1411 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1412 /* Display it as active. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1413 show_mouse_face (dpyinfo, 1); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1414 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1415 /* Handle the text property case. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1416 else if (! NILP (mouse_face)) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1417 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1418 /* Find the range of text around this char that |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1419 should be active. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1420 Lisp_Object before, after, beginning, end; |
92237
ce06567a933d
* dispextern.h (face_at_buffer_position, face_for_overlay_string)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91327
diff
changeset
|
1421 EMACS_INT ignore; |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1422 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1423 beginning = Fmarker_position (w->start); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1424 XSETINT (end, (BUF_Z (XBUFFER (w->buffer)) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1425 - XFASTINT (w->window_end_pos))); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1426 before |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1427 = Fprevious_single_property_change (make_number (pos + 1), |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1428 Qmouse_face, |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1429 w->buffer, beginning); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1430 after |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1431 = Fnext_single_property_change (position, Qmouse_face, |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1432 w->buffer, end); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1433 /* Record this as the current active region. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1434 fast_find_position (w, XFASTINT (before), |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1435 &dpyinfo->mouse_face_beg_col, |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1436 &dpyinfo->mouse_face_beg_row); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1437 dpyinfo->mouse_face_past_end |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1438 = !fast_find_position (w, XFASTINT (after), |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1439 &dpyinfo->mouse_face_end_col, |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1440 &dpyinfo->mouse_face_end_row); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1441 dpyinfo->mouse_face_window = window; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1442 dpyinfo->mouse_face_face_id |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1443 = face_at_buffer_position (w, pos, 0, 0, |
48026
d876c83f972b
(IT_note_mouse_highlight): Don't use mouse-face if hidden.
Kim F. Storm <storm@cua.dk>
parents:
46954
diff
changeset
|
1444 &ignore, pos + 1, |
103114
fa8e2c663118
* xfaces.c (face_at_buffer_position): New arg base_face_id.
Chong Yidong <cyd@stupidchicken.com>
parents:
102034
diff
changeset
|
1445 !dpyinfo->mouse_face_hidden, |
fa8e2c663118
* xfaces.c (face_at_buffer_position): New arg base_face_id.
Chong Yidong <cyd@stupidchicken.com>
parents:
102034
diff
changeset
|
1446 -1); |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1447 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1448 /* Display it as active. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1449 show_mouse_face (dpyinfo, 1); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1450 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1451 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1452 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1453 /* Look for a `help-echo' property. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1454 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1455 Lisp_Object help; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1456 extern Lisp_Object Qhelp_echo; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1457 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1458 /* Check overlays first. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1459 help = Qnil; |
30381
ace34a073127
(IT_note_mouse_highlight): Process overlays in the
Eli Zaretskii <eliz@gnu.org>
parents:
30341
diff
changeset
|
1460 for (i = noverlays - 1; i >= 0 && NILP (help); --i) |
ace34a073127
(IT_note_mouse_highlight): Process overlays in the
Eli Zaretskii <eliz@gnu.org>
parents:
30341
diff
changeset
|
1461 { |
ace34a073127
(IT_note_mouse_highlight): Process overlays in the
Eli Zaretskii <eliz@gnu.org>
parents:
30341
diff
changeset
|
1462 overlay = overlay_vec[i]; |
ace34a073127
(IT_note_mouse_highlight): Process overlays in the
Eli Zaretskii <eliz@gnu.org>
parents:
30341
diff
changeset
|
1463 help = Foverlay_get (overlay, Qhelp_echo); |
ace34a073127
(IT_note_mouse_highlight): Process overlays in the
Eli Zaretskii <eliz@gnu.org>
parents:
30341
diff
changeset
|
1464 } |
45332 | 1465 |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1466 if (!NILP (help)) |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1467 { |
50225
39746533995d
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
49600
diff
changeset
|
1468 help_echo_string = help; |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1469 help_echo_window = window; |
30381
ace34a073127
(IT_note_mouse_highlight): Process overlays in the
Eli Zaretskii <eliz@gnu.org>
parents:
30341
diff
changeset
|
1470 help_echo_object = overlay; |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1471 help_echo_pos = pos; |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1472 } |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1473 /* Try text properties. */ |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1474 else if (NILP (help) |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1475 && ((STRINGP (glyph->object) |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1476 && glyph->charpos >= 0 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46272
diff
changeset
|
1477 && glyph->charpos < SCHARS (glyph->object)) |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1478 || (BUFFERP (glyph->object) |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1479 && glyph->charpos >= BEGV |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1480 && glyph->charpos < ZV))) |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1481 { |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1482 help = Fget_text_property (make_number (glyph->charpos), |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1483 Qhelp_echo, glyph->object); |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1484 if (!NILP (help)) |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1485 { |
50225
39746533995d
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
49600
diff
changeset
|
1486 help_echo_string = help; |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1487 help_echo_window = window; |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1488 help_echo_object = glyph->object; |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1489 help_echo_pos = glyph->charpos; |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1490 } |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1491 } |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1492 } |
45332 | 1493 |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1494 BEGV = obegv; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1495 ZV = ozv; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1496 current_buffer = obuf; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1497 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1498 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1499 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1500 |
21785
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
1501 static void |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1502 IT_clear_end_of_line (struct frame *f, int first_unused) |
9572 | 1503 { |
13179 | 1504 char *spaces, *sp; |
45332 | 1505 int i, j, offset = 2 * (new_pos_X + screen_size_X * new_pos_Y); |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1506 extern int fatal_error_in_progress; |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1507 struct tty_display_info *tty = FRAME_TTY (f); |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1508 |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
1509 if (new_pos_X >= first_unused || fatal_error_in_progress) |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1510 return; |
13179 | 1511 |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
1512 IT_set_face (0); |
27462
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
1513 i = (j = first_unused - new_pos_X) * 2; |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1514 if (tty->termscript) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1515 fprintf (tty->termscript, "<CLR:EOL[%d..%d)>", new_pos_X, first_unused); |
13179 | 1516 spaces = sp = alloca (i); |
45332 | 1517 |
13179 | 1518 while (--j >= 0) |
1519 { | |
1520 *sp++ = ' '; | |
1521 *sp++ = ScreenAttrib; | |
1522 } | |
1523 | |
1524 mouse_off_maybe (); | |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1525 dosmemput (spaces, i, (int)ScreenPrimary + offset); |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1526 if (screen_virtual_segment) |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1527 dosv_refresh_virtual_screen (offset, i / 2); |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
1528 |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
1529 /* clear_end_of_line_raw on term.c leaves the cursor at first_unused. |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
1530 Let's follow their lead, in case someone relies on this. */ |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
1531 new_pos_X = first_unused; |
13179 | 1532 } |
1533 | |
21785
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
1534 static void |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1535 IT_clear_screen (struct frame *f) |
13179 | 1536 { |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1537 struct tty_display_info *tty = FRAME_TTY (f); |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1538 |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1539 if (tty->termscript) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1540 fprintf (tty->termscript, "<CLR:SCR>"); |
41406
9ba7c0fd50b7
(IT_clear_screen): If the frame's faces are not yet
Eli Zaretskii <eliz@gnu.org>
parents:
41122
diff
changeset
|
1541 /* We are sometimes called (from clear_garbaged_frames) when a new |
9ba7c0fd50b7
(IT_clear_screen): If the frame's faces are not yet
Eli Zaretskii <eliz@gnu.org>
parents:
41122
diff
changeset
|
1542 frame is being created, but its faces are not yet realized. In |
9ba7c0fd50b7
(IT_clear_screen): If the frame's faces are not yet
Eli Zaretskii <eliz@gnu.org>
parents:
41122
diff
changeset
|
1543 such a case we cannot call IT_set_face, since it will fail to find |
9ba7c0fd50b7
(IT_clear_screen): If the frame's faces are not yet
Eli Zaretskii <eliz@gnu.org>
parents:
41122
diff
changeset
|
1544 any valid faces and will abort. Instead, use the initial screen |
9ba7c0fd50b7
(IT_clear_screen): If the frame's faces are not yet
Eli Zaretskii <eliz@gnu.org>
parents:
41122
diff
changeset
|
1545 colors; that should mimic what a Unix tty does, which simply clears |
9ba7c0fd50b7
(IT_clear_screen): If the frame's faces are not yet
Eli Zaretskii <eliz@gnu.org>
parents:
41122
diff
changeset
|
1546 the screen with whatever default colors are in use. */ |
9ba7c0fd50b7
(IT_clear_screen): If the frame's faces are not yet
Eli Zaretskii <eliz@gnu.org>
parents:
41122
diff
changeset
|
1547 if (FACE_FROM_ID (SELECTED_FRAME (), DEFAULT_FACE_ID) == NULL) |
9ba7c0fd50b7
(IT_clear_screen): If the frame's faces are not yet
Eli Zaretskii <eliz@gnu.org>
parents:
41122
diff
changeset
|
1548 ScreenAttrib = (initial_screen_colors[0] << 4) | initial_screen_colors[1]; |
9ba7c0fd50b7
(IT_clear_screen): If the frame's faces are not yet
Eli Zaretskii <eliz@gnu.org>
parents:
41122
diff
changeset
|
1549 else |
9ba7c0fd50b7
(IT_clear_screen): If the frame's faces are not yet
Eli Zaretskii <eliz@gnu.org>
parents:
41122
diff
changeset
|
1550 IT_set_face (0); |
13179 | 1551 mouse_off (); |
1552 ScreenClear (); | |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1553 if (screen_virtual_segment) |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1554 dosv_refresh_virtual_screen (0, screen_size); |
13179 | 1555 new_pos_X = new_pos_Y = 0; |
1556 } | |
1557 | |
21785
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
1558 static void |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1559 IT_clear_to_end (struct frame *f) |
13179 | 1560 { |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1561 struct tty_display_info *tty = FRAME_TTY (f); |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1562 |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1563 if (tty->termscript) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1564 fprintf (tty->termscript, "<CLR:EOS>"); |
13179 | 1565 |
1566 while (new_pos_Y < screen_size_Y) { | |
1567 new_pos_X = 0; | |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1568 IT_clear_end_of_line (f, screen_size_X); |
13179 | 1569 new_pos_Y++; |
1570 } | |
9572 | 1571 } |
1572 | |
21785
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
1573 static void |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1574 IT_cursor_to (struct frame *f, int y, int x) |
9572 | 1575 { |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1576 struct tty_display_info *tty = FRAME_TTY (f); |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1577 |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1578 if (tty->termscript) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1579 fprintf (tty->termscript, "\n<XY=%dx%d>", x, y); |
13179 | 1580 new_pos_X = x; |
1581 new_pos_Y = y; | |
9572 | 1582 } |
1583 | |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1584 static int cursor_cleared; |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1585 |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
1586 static void |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1587 IT_display_cursor (int on) |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1588 { |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1589 struct tty_display_info *tty = CURTTY (); |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1590 |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1591 if (on && cursor_cleared) |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1592 { |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1593 ScreenSetCursor (current_pos_Y, current_pos_X); |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1594 cursor_cleared = 0; |
97871
bc27b61d82f8
(IT_display_cursor): Write "CURSOR ON/OFF" to termscript only when
Eli Zaretskii <eliz@gnu.org>
parents:
97771
diff
changeset
|
1595 if (tty->termscript) |
bc27b61d82f8
(IT_display_cursor): Write "CURSOR ON/OFF" to termscript only when
Eli Zaretskii <eliz@gnu.org>
parents:
97771
diff
changeset
|
1596 fprintf (tty->termscript, "\nCURSOR ON"); |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1597 } |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1598 else if (!on && !cursor_cleared) |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1599 { |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1600 ScreenSetCursor (-1, -1); |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1601 cursor_cleared = 1; |
97871
bc27b61d82f8
(IT_display_cursor): Write "CURSOR ON/OFF" to termscript only when
Eli Zaretskii <eliz@gnu.org>
parents:
97771
diff
changeset
|
1602 if (tty->termscript) |
bc27b61d82f8
(IT_display_cursor): Write "CURSOR ON/OFF" to termscript only when
Eli Zaretskii <eliz@gnu.org>
parents:
97771
diff
changeset
|
1603 fprintf (tty->termscript, "\nCURSOR OFF"); |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1604 } |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1605 } |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1606 |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1607 /* Emacs calls cursor-movement functions a lot when it updates the |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1608 display (probably a legacy of old terminals where you cannot |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1609 update a screen line without first moving the cursor there). |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1610 However, cursor movement is expensive on MSDOS (it calls a slow |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1611 BIOS function and requires 2 mode switches), while actual screen |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1612 updates access the video memory directly and don't depend on |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1613 cursor position. To avoid slowing down the redisplay, we cheat: |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1614 all functions that move the cursor only set internal variables |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1615 which record the cursor position, whereas the cursor is only |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1616 moved to its final position whenever screen update is complete. |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1617 |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1618 `IT_cmgoto' is called from the keyboard reading loop and when the |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1619 frame update is complete. This means that we are ready for user |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1620 input, so we update the cursor position to show where the point is, |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1621 and also make the mouse pointer visible. |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1622 |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1623 Special treatment is required when the cursor is in the echo area, |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1624 to put the cursor at the end of the text displayed there. */ |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1625 |
21785
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
1626 static void |
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
1627 IT_cmgoto (FRAME_PTR f) |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1628 { |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1629 /* Only set the cursor to where it should be if the display is |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1630 already in sync with the window contents. */ |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
1631 int update_cursor_pos = 1; /* MODIFF == unchanged_modified; */ |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1632 struct tty_display_info *tty = FRAME_TTY (f); |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
1633 |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
1634 /* FIXME: This needs to be rewritten for the new redisplay, or |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
1635 removed. */ |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
1636 #if 0 |
23156
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1637 static int previous_pos_X = -1; |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1638 |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
1639 update_cursor_pos = 1; /* temporary!!! */ |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
1640 |
23156
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1641 /* If the display is in sync, forget any previous knowledge about |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1642 cursor position. This is primarily for unexpected events like |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1643 C-g in the minibuffer. */ |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1644 if (update_cursor_pos && previous_pos_X >= 0) |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1645 previous_pos_X = -1; |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1646 /* If we are in the echo area, put the cursor at the |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1647 end of the echo area message. */ |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1648 if (!update_cursor_pos |
51201
df6e2df16eb0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50247
diff
changeset
|
1649 && WINDOW_TOP_EDGE_LINE (XWINDOW (FRAME_MINIBUF_WINDOW (f))) <= new_pos_Y) |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1650 { |
23156
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1651 int tem_X = current_pos_X, dummy; |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1652 |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1653 if (echo_area_glyphs) |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1654 { |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1655 tem_X = echo_area_glyphs_length; |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1656 /* Save current cursor position, to be restored after the |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1657 echo area message is erased. Only remember one level |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1658 of previous cursor position. */ |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1659 if (previous_pos_X == -1) |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1660 ScreenGetCursor (&dummy, &previous_pos_X); |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1661 } |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1662 else if (previous_pos_X >= 0) |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1663 { |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1664 /* We wind up here after the echo area message is erased. |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1665 Restore the cursor position we remembered above. */ |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1666 tem_X = previous_pos_X; |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1667 previous_pos_X = -1; |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1668 } |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1669 |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1670 if (current_pos_X != tem_X) |
22992
9b39197e9ecd
(IT_cmgoto): In the echo area, only put the cursor at
Eli Zaretskii <eliz@gnu.org>
parents:
22481
diff
changeset
|
1671 { |
9b39197e9ecd
(IT_cmgoto): In the echo area, only put the cursor at
Eli Zaretskii <eliz@gnu.org>
parents:
22481
diff
changeset
|
1672 new_pos_X = tem_X; |
9b39197e9ecd
(IT_cmgoto): In the echo area, only put the cursor at
Eli Zaretskii <eliz@gnu.org>
parents:
22481
diff
changeset
|
1673 update_cursor_pos = 1; |
9b39197e9ecd
(IT_cmgoto): In the echo area, only put the cursor at
Eli Zaretskii <eliz@gnu.org>
parents:
22481
diff
changeset
|
1674 } |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1675 } |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
1676 #endif |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1677 |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1678 if (update_cursor_pos |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1679 && (current_pos_X != new_pos_X || current_pos_Y != new_pos_Y)) |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1680 { |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1681 ScreenSetCursor (current_pos_Y = new_pos_Y, current_pos_X = new_pos_X); |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1682 if (tty->termscript) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1683 fprintf (tty->termscript, "\n<CURSOR:%dx%d>", current_pos_X, current_pos_Y); |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1684 } |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1685 |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1686 /* Maybe cursor is invisible, so make it visible. */ |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1687 IT_display_cursor (1); |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1688 |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1689 /* Mouse pointer should be always visible if we are waiting for |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1690 keyboard input. */ |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1691 if (!mouse_visible) |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1692 mouse_on (); |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1693 } |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1694 |
21785
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
1695 static void |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1696 IT_update_begin (struct frame *f) |
9572 | 1697 { |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1698 struct tty_display_info *display_info = FRAME_X_DISPLAY_INFO (f); |
30826
f225a6bd06fc
(IT_update_begin): Don't crash if mouse_face_mouse_frame
Eli Zaretskii <eliz@gnu.org>
parents:
30725
diff
changeset
|
1699 struct frame *mouse_face_frame = display_info->mouse_face_mouse_frame; |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1700 |
97873
a74660c83709
(IT_update_begin, IT_update_end): Add termscript trace.
Eli Zaretskii <eliz@gnu.org>
parents:
97871
diff
changeset
|
1701 if (display_info->termscript) |
a74660c83709
(IT_update_begin, IT_update_end): Add termscript trace.
Eli Zaretskii <eliz@gnu.org>
parents:
97871
diff
changeset
|
1702 fprintf (display_info->termscript, "\n\n<UPDATE_BEGIN"); |
a74660c83709
(IT_update_begin, IT_update_end): Add termscript trace.
Eli Zaretskii <eliz@gnu.org>
parents:
97871
diff
changeset
|
1703 |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1704 BLOCK_INPUT; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1705 |
30826
f225a6bd06fc
(IT_update_begin): Don't crash if mouse_face_mouse_frame
Eli Zaretskii <eliz@gnu.org>
parents:
30725
diff
changeset
|
1706 if (f && f == mouse_face_frame) |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1707 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1708 /* Don't do highlighting for mouse motion during the update. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1709 display_info->mouse_face_defer = 1; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1710 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1711 /* If F needs to be redrawn, simply forget about any prior mouse |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1712 highlighting. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1713 if (FRAME_GARBAGED_P (f)) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1714 display_info->mouse_face_window = Qnil; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1715 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1716 /* Can we tell that this update does not affect the window |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1717 where the mouse highlight is? If so, no need to turn off. |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1718 Likewise, don't do anything if none of the enabled rows |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1719 contains glyphs highlighted in mouse face. */ |
27046
872992e41f21
(IT_update_begin): Don't dereference members of struct
Eli Zaretskii <eliz@gnu.org>
parents:
27038
diff
changeset
|
1720 if (!NILP (display_info->mouse_face_window) |
872992e41f21
(IT_update_begin): Don't dereference members of struct
Eli Zaretskii <eliz@gnu.org>
parents:
27038
diff
changeset
|
1721 && WINDOWP (display_info->mouse_face_window)) |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1722 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1723 struct window *w = XWINDOW (display_info->mouse_face_window); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1724 int i; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1725 |
27046
872992e41f21
(IT_update_begin): Don't dereference members of struct
Eli Zaretskii <eliz@gnu.org>
parents:
27038
diff
changeset
|
1726 /* If the mouse highlight is in the window that was deleted |
872992e41f21
(IT_update_begin): Don't dereference members of struct
Eli Zaretskii <eliz@gnu.org>
parents:
27038
diff
changeset
|
1727 (e.g., if it was popped by completion), clear highlight |
872992e41f21
(IT_update_begin): Don't dereference members of struct
Eli Zaretskii <eliz@gnu.org>
parents:
27038
diff
changeset
|
1728 unconditionally. */ |
872992e41f21
(IT_update_begin): Don't dereference members of struct
Eli Zaretskii <eliz@gnu.org>
parents:
27038
diff
changeset
|
1729 if (NILP (w->buffer)) |
872992e41f21
(IT_update_begin): Don't dereference members of struct
Eli Zaretskii <eliz@gnu.org>
parents:
27038
diff
changeset
|
1730 display_info->mouse_face_window = Qnil; |
872992e41f21
(IT_update_begin): Don't dereference members of struct
Eli Zaretskii <eliz@gnu.org>
parents:
27038
diff
changeset
|
1731 else |
872992e41f21
(IT_update_begin): Don't dereference members of struct
Eli Zaretskii <eliz@gnu.org>
parents:
27038
diff
changeset
|
1732 { |
872992e41f21
(IT_update_begin): Don't dereference members of struct
Eli Zaretskii <eliz@gnu.org>
parents:
27038
diff
changeset
|
1733 for (i = 0; i < w->desired_matrix->nrows; ++i) |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1734 if (MATRIX_ROW_ENABLED_P (w->desired_matrix, i) |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1735 && MATRIX_ROW (w->current_matrix, i)->mouse_face_p) |
27046
872992e41f21
(IT_update_begin): Don't dereference members of struct
Eli Zaretskii <eliz@gnu.org>
parents:
27038
diff
changeset
|
1736 break; |
872992e41f21
(IT_update_begin): Don't dereference members of struct
Eli Zaretskii <eliz@gnu.org>
parents:
27038
diff
changeset
|
1737 } |
872992e41f21
(IT_update_begin): Don't dereference members of struct
Eli Zaretskii <eliz@gnu.org>
parents:
27038
diff
changeset
|
1738 |
872992e41f21
(IT_update_begin): Don't dereference members of struct
Eli Zaretskii <eliz@gnu.org>
parents:
27038
diff
changeset
|
1739 if (NILP (w->buffer) || i < w->desired_matrix->nrows) |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1740 clear_mouse_face (display_info); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1741 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1742 } |
30826
f225a6bd06fc
(IT_update_begin): Don't crash if mouse_face_mouse_frame
Eli Zaretskii <eliz@gnu.org>
parents:
30725
diff
changeset
|
1743 else if (mouse_face_frame && !FRAME_LIVE_P (mouse_face_frame)) |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1744 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1745 /* If the frame with mouse highlight was deleted, invalidate the |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1746 highlight info. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1747 display_info->mouse_face_beg_row = display_info->mouse_face_beg_col = -1; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1748 display_info->mouse_face_end_row = display_info->mouse_face_end_col = -1; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1749 display_info->mouse_face_window = Qnil; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1750 display_info->mouse_face_deferred_gc = 0; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1751 display_info->mouse_face_mouse_frame = NULL; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1752 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1753 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1754 UNBLOCK_INPUT; |
13179 | 1755 } |
1756 | |
21785
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
1757 static void |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1758 IT_update_end (struct frame *f) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1759 { |
97873
a74660c83709
(IT_update_begin, IT_update_end): Add termscript trace.
Eli Zaretskii <eliz@gnu.org>
parents:
97871
diff
changeset
|
1760 struct tty_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f); |
a74660c83709
(IT_update_begin, IT_update_end): Add termscript trace.
Eli Zaretskii <eliz@gnu.org>
parents:
97871
diff
changeset
|
1761 |
a74660c83709
(IT_update_begin, IT_update_end): Add termscript trace.
Eli Zaretskii <eliz@gnu.org>
parents:
97871
diff
changeset
|
1762 if (dpyinfo->termscript) |
a74660c83709
(IT_update_begin, IT_update_end): Add termscript trace.
Eli Zaretskii <eliz@gnu.org>
parents:
97871
diff
changeset
|
1763 fprintf (dpyinfo->termscript, "\n<UPDATE_END\n"); |
a74660c83709
(IT_update_begin, IT_update_end): Add termscript trace.
Eli Zaretskii <eliz@gnu.org>
parents:
97871
diff
changeset
|
1764 dpyinfo->mouse_face_defer = 0; |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1765 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1766 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1767 static void |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1768 IT_frame_up_to_date (struct frame *f) |
13179 | 1769 { |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1770 struct tty_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f); |
28553
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1771 Lisp_Object new_cursor, frame_desired_cursor; |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1772 struct window *sw; |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1773 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1774 if (dpyinfo->mouse_face_deferred_gc |
30826
f225a6bd06fc
(IT_update_begin): Don't crash if mouse_face_mouse_frame
Eli Zaretskii <eliz@gnu.org>
parents:
30725
diff
changeset
|
1775 || (f && f == dpyinfo->mouse_face_mouse_frame)) |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1776 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1777 BLOCK_INPUT; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1778 if (dpyinfo->mouse_face_mouse_frame) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1779 IT_note_mouse_highlight (dpyinfo->mouse_face_mouse_frame, |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1780 dpyinfo->mouse_face_mouse_x, |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1781 dpyinfo->mouse_face_mouse_y); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1782 dpyinfo->mouse_face_deferred_gc = 0; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1783 UNBLOCK_INPUT; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1784 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1785 |
28553
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1786 /* Set the cursor type to whatever they wanted. In a minibuffer |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1787 window, we want the cursor to appear only if we are reading input |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1788 from this window, and we want the cursor to be taken from the |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1789 frame parameters. For the selected window, we use either its |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1790 buffer-local value or the value from the frame parameters if the |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1791 buffer doesn't define its local value for the cursor type. */ |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1792 sw = XWINDOW (f->selected_window); |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1793 frame_desired_cursor = Fcdr (Fassq (Qcursor_type, f->param_alist)); |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1794 if (cursor_in_echo_area |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1795 && FRAME_HAS_MINIBUF_P (f) |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1796 && EQ (FRAME_MINIBUF_WINDOW (f), echo_area_window) |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1797 && sw == XWINDOW (echo_area_window)) |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1798 new_cursor = frame_desired_cursor; |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1799 else |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1800 { |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1801 struct buffer *b = XBUFFER (sw->buffer); |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1802 |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1803 if (EQ (b->cursor_type, Qt)) |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1804 new_cursor = frame_desired_cursor; |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1805 else if (NILP (b->cursor_type)) /* nil means no cursor */ |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1806 new_cursor = Fcons (Qbar, make_number (0)); |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1807 else |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1808 new_cursor = b->cursor_type; |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1809 } |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1810 |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1811 IT_set_cursor_type (f, new_cursor); |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
1812 |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1813 IT_cmgoto (f); /* position cursor when update is done */ |
9572 | 1814 } |
1815 | |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1816 /* Copy LEN glyphs displayed on a single line whose vertical position |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1817 is YPOS, beginning at horizontal position XFROM to horizontal |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1818 position XTO, by moving blocks in the video memory. Used by |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1819 functions that insert and delete glyphs. */ |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1820 static void |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1821 IT_copy_glyphs (int xfrom, int xto, size_t len, int ypos) |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1822 { |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1823 /* The offsets of source and destination relative to the |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1824 conventional memorty selector. */ |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1825 int from = 2 * (xfrom + screen_size_X * ypos) + ScreenPrimary; |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1826 int to = 2 * (xto + screen_size_X * ypos) + ScreenPrimary; |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1827 |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1828 if (from == to || len <= 0) |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1829 return; |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1830 |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1831 _farsetsel (_dos_ds); |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1832 |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1833 /* The source and destination might overlap, so we need to move |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1834 glyphs non-destructively. */ |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1835 if (from > to) |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1836 { |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1837 for ( ; len; from += 2, to += 2, len--) |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1838 _farnspokew (to, _farnspeekw (from)); |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1839 } |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1840 else |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1841 { |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1842 from += (len - 1) * 2; |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1843 to += (len - 1) * 2; |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1844 for ( ; len; from -= 2, to -= 2, len--) |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1845 _farnspokew (to, _farnspeekw (from)); |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1846 } |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1847 if (screen_virtual_segment) |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1848 dosv_refresh_virtual_screen (ypos * screen_size_X * 2, screen_size_X); |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1849 } |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1850 |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1851 /* Insert and delete glyphs. */ |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1852 static void |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
1853 IT_insert_glyphs (struct frame *f, struct glyph *start, int len) |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1854 { |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1855 int shift_by_width = screen_size_X - (new_pos_X + len); |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1856 |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1857 /* Shift right the glyphs from the nominal cursor position to the |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1858 end of this line. */ |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1859 IT_copy_glyphs (new_pos_X, new_pos_X + len, shift_by_width, new_pos_Y); |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1860 |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1861 /* Now write the glyphs to be inserted. */ |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1862 IT_write_glyphs (f, start, len); |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1863 } |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1864 |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1865 static void |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
1866 IT_delete_glyphs (struct frame *f, int n) |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1867 { |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1868 abort (); |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1869 } |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1870 |
20036
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
1871 /* set-window-configuration on window.c needs this. */ |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
1872 void |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
1873 x_set_menu_bar_lines (struct frame *f, Lisp_Object value, Lisp_Object oldval) |
9572 | 1874 { |
20036
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
1875 set_menu_bar_lines (f, value, oldval); |
9572 | 1876 } |
1877 | |
32271
4ff70fe0d99b
(top-level) <Qbackground_color, Qforeground_color>: Make
Eli Zaretskii <eliz@gnu.org>
parents:
30840
diff
changeset
|
1878 /* This was copied from xfaces.c */ |
4ff70fe0d99b
(top-level) <Qbackground_color, Qforeground_color>: Make
Eli Zaretskii <eliz@gnu.org>
parents:
30840
diff
changeset
|
1879 |
4ff70fe0d99b
(top-level) <Qbackground_color, Qforeground_color>: Make
Eli Zaretskii <eliz@gnu.org>
parents:
30840
diff
changeset
|
1880 extern Lisp_Object Qbackground_color; |
4ff70fe0d99b
(top-level) <Qbackground_color, Qforeground_color>: Make
Eli Zaretskii <eliz@gnu.org>
parents:
30840
diff
changeset
|
1881 extern Lisp_Object Qforeground_color; |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
1882 Lisp_Object Qreverse; |
20036
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
1883 extern Lisp_Object Qtitle; |
15387
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
1884 |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
1885 /* IT_set_terminal_modes is called when emacs is started, |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
1886 resumed, and whenever the screen is redrawn! */ |
13179 | 1887 |
21785
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
1888 static void |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1889 IT_set_terminal_modes (struct terminal *term) |
13179 | 1890 { |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1891 struct tty_display_info *tty; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1892 |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1893 /* If called with initial terminal, it's too early to do anything |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1894 useful. */ |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1895 if (term->type == output_initial) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1896 return; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1897 |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1898 tty = term->display_info.tty; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1899 |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1900 if (tty->termscript) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1901 fprintf (tty->termscript, "\n<SET_TERM>"); |
13179 | 1902 |
1903 screen_size_X = ScreenCols (); | |
1904 screen_size_Y = ScreenRows (); | |
1905 screen_size = screen_size_X * screen_size_Y; | |
45332 | 1906 |
13179 | 1907 new_pos_X = new_pos_Y = 0; |
1908 current_pos_X = current_pos_Y = -1; | |
1909 | |
1910 if (term_setup_done) | |
1911 return; | |
1912 term_setup_done = 1; | |
45332 | 1913 |
13179 | 1914 startup_screen_size_X = screen_size_X; |
1915 startup_screen_size_Y = screen_size_Y; | |
13717
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
1916 startup_screen_attrib = ScreenAttrib; |
13179 | 1917 |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1918 /* Is DOS/V (or any other RSIS software which relocates |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1919 the screen) installed? */ |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1920 { |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1921 unsigned short es_value; |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1922 __dpmi_regs regs; |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1923 |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1924 regs.h.ah = 0xfe; /* get relocated screen address */ |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1925 if (ScreenPrimary == 0xb0000UL || ScreenPrimary == 0xb8000UL) |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1926 regs.x.es = (ScreenPrimary >> 4) & 0xffff; |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1927 else if (screen_old_address) /* already switched to Japanese mode once */ |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1928 regs.x.es = (screen_old_address >> 4) & 0xffff; |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1929 else |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1930 regs.x.es = ScreenMode () == 7 ? 0xb000 : 0xb800; |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1931 regs.x.di = 0; |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1932 es_value = regs.x.es; |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1933 __dpmi_int (0x10, ®s); |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1934 |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
1935 if (regs.x.es != es_value) |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1936 { |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
1937 /* screen_old_address is only set if ScreenPrimary does NOT |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
1938 already point to the relocated buffer address returned by |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
1939 the Int 10h/AX=FEh call above. DJGPP v2.02 and later sets |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
1940 ScreenPrimary to that address at startup under DOS/V. */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
1941 if (regs.x.es != (ScreenPrimary >> 4) & 0xffff) |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
1942 screen_old_address = ScreenPrimary; |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1943 screen_virtual_segment = regs.x.es; |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1944 screen_virtual_offset = regs.x.di; |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1945 ScreenPrimary = (screen_virtual_segment << 4) + screen_virtual_offset; |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1946 } |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1947 } |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1948 |
13179 | 1949 ScreenGetCursor (&startup_pos_Y, &startup_pos_X); |
1950 ScreenRetrieve (startup_screen_buffer = xmalloc (screen_size * 2)); | |
1951 | |
15341
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
1952 bright_bg (); |
13179 | 1953 } |
1954 | |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
1955 /* IT_reset_terminal_modes is called when emacs is |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
1956 suspended or killed. */ |
13179 | 1957 |
21785
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
1958 static void |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1959 IT_reset_terminal_modes (struct terminal *term) |
13179 | 1960 { |
13717
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
1961 int display_row_start = (int) ScreenPrimary; |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
1962 int saved_row_len = startup_screen_size_X * 2; |
45332 | 1963 int update_row_len = ScreenCols () * 2, current_rows = ScreenRows (); |
13717
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
1964 int to_next_row = update_row_len; |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
1965 unsigned char *saved_row = startup_screen_buffer; |
45332 | 1966 int cursor_pos_X = ScreenCols () - 1, cursor_pos_Y = ScreenRows () - 1; |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1967 struct tty_display_info *tty = term->display_info.tty; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1968 |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1969 if (tty->termscript) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1970 fprintf (tty->termscript, "\n<RESET_TERM>"); |
13179 | 1971 |
1972 if (!term_setup_done) | |
1973 return; | |
45332 | 1974 |
13717
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
1975 mouse_off (); |
16837
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
1976 |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
1977 /* Leave the video system in the same state as we found it, |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
1978 as far as the blink/bright-background bit is concerned. */ |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
1979 maybe_enable_blinking (); |
23815
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
1980 |
13717
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
1981 /* We have a situation here. |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
1982 We cannot just do ScreenUpdate(startup_screen_buffer) because |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
1983 the luser could have changed screen dimensions inside Emacs |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
1984 and failed (or didn't want) to restore them before killing |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
1985 Emacs. ScreenUpdate() uses the *current* screen dimensions and |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
1986 thus will happily use memory outside what was allocated for |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
1987 `startup_screen_buffer'. |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
1988 Thus we only restore as much as the current screen dimensions |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
1989 can hold, and clear the rest (if the saved screen is smaller than |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
1990 the current) with the color attribute saved at startup. The cursor |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
1991 is also restored within the visible dimensions. */ |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
1992 |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
1993 ScreenAttrib = startup_screen_attrib; |
23815
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
1994 |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
1995 /* Don't restore the screen if we are exiting less than 2 seconds |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
1996 after startup: we might be crashing, and the screen might show |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
1997 some vital clues to what's wrong. */ |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
1998 if (clock () - startup_time >= 2*CLOCKS_PER_SEC) |
13717
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
1999 { |
23815
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2000 ScreenClear (); |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
2001 if (screen_virtual_segment) |
23815
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2002 dosv_refresh_virtual_screen (0, screen_size); |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2003 |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2004 if (update_row_len > saved_row_len) |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2005 update_row_len = saved_row_len; |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2006 if (current_rows > startup_screen_size_Y) |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2007 current_rows = startup_screen_size_Y; |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2008 |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2009 if (tty->termscript) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2010 fprintf (tty->termscript, "<SCREEN RESTORED (dimensions=%dx%d)>\n", |
23815
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2011 update_row_len / 2, current_rows); |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2012 |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2013 while (current_rows--) |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2014 { |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2015 dosmemput (saved_row, update_row_len, display_row_start); |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2016 if (screen_virtual_segment) |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2017 dosv_refresh_virtual_screen (display_row_start - ScreenPrimary, |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2018 update_row_len / 2); |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2019 saved_row += saved_row_len; |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2020 display_row_start += to_next_row; |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2021 } |
13717
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
2022 } |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
2023 if (startup_pos_X < cursor_pos_X) |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
2024 cursor_pos_X = startup_pos_X; |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
2025 if (startup_pos_Y < cursor_pos_Y) |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
2026 cursor_pos_Y = startup_pos_Y; |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
2027 |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
2028 ScreenSetCursor (cursor_pos_Y, cursor_pos_X); |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
2029 xfree (startup_screen_buffer); |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2030 startup_screen_buffer = NULL; |
13179 | 2031 |
2032 term_setup_done = 0; | |
2033 } | |
2034 | |
21785
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
2035 static void |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2036 IT_set_terminal_window (struct frame *f, int foo) |
13179 | 2037 { |
2038 } | |
2039 | |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2040 /* Remember the screen colors of the curent frame, to serve as the |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2041 default colors for newly-created frames. */ |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2042 DEFUN ("msdos-remember-default-colors", Fmsdos_remember_default_colors, |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2043 Smsdos_remember_default_colors, 1, 1, 0, |
41940
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41406
diff
changeset
|
2044 doc: /* Remember the screen colors of the current frame. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
2045 (Lisp_Object frame) |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2046 { |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2047 struct frame *f; |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2048 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40082
diff
changeset
|
2049 CHECK_FRAME (frame); |
97771
f8bd5f0db6f3
(Fmsdos_remember_default_colors): Don't reverse frame colors under -rv.
Eli Zaretskii <eliz@gnu.org>
parents:
97736
diff
changeset
|
2050 f = XFRAME (frame); |
32546
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
2051 |
36483
c3734c1b1362
(Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents:
34676
diff
changeset
|
2052 /* This function is called after applying default-frame-alist to the |
c3734c1b1362
(Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents:
34676
diff
changeset
|
2053 initial frame. At that time, if reverse-colors option was |
c3734c1b1362
(Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents:
34676
diff
changeset
|
2054 specified in default-frame-alist, it was already applied, and |
97771
f8bd5f0db6f3
(Fmsdos_remember_default_colors): Don't reverse frame colors under -rv.
Eli Zaretskii <eliz@gnu.org>
parents:
97736
diff
changeset
|
2055 frame colors are reversed. */ |
f8bd5f0db6f3
(Fmsdos_remember_default_colors): Don't reverse frame colors under -rv.
Eli Zaretskii <eliz@gnu.org>
parents:
97736
diff
changeset
|
2056 initial_screen_colors[0] = FRAME_FOREGROUND_PIXEL (f); |
f8bd5f0db6f3
(Fmsdos_remember_default_colors): Don't reverse frame colors under -rv.
Eli Zaretskii <eliz@gnu.org>
parents:
97736
diff
changeset
|
2057 initial_screen_colors[1] = FRAME_BACKGROUND_PIXEL (f); |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2058 } |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2059 |
9572 | 2060 void |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
2061 IT_set_frame_parameters (struct frame *f, Lisp_Object alist) |
9572 | 2062 { |
2063 Lisp_Object tail; | |
45332 | 2064 int i, j, length = XINT (Flength (alist)); |
19293
af78882332ed
(IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents:
19287
diff
changeset
|
2065 Lisp_Object *parms |
af78882332ed
(IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents:
19287
diff
changeset
|
2066 = (Lisp_Object *) alloca (length * sizeof (Lisp_Object)); |
af78882332ed
(IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents:
19287
diff
changeset
|
2067 Lisp_Object *values |
af78882332ed
(IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents:
19287
diff
changeset
|
2068 = (Lisp_Object *) alloca (length * sizeof (Lisp_Object)); |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2069 /* Do we have to reverse the foreground and background colors? */ |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
2070 int reverse = EQ (Fcdr (Fassq (Qreverse, f->param_alist)), Qt); |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2071 int redraw = 0, fg_set = 0, bg_set = 0; |
45332 | 2072 unsigned long orig_fg, orig_bg; |
32546
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
2073 Lisp_Object frame_bg, frame_fg; |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2074 struct tty_display_info *tty = FRAME_TTY (f); |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2075 |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2076 /* If we are creating a new frame, begin with the original screen colors |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2077 used for the initial frame. */ |
109118
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2078 if (!f->default_face_done_p |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2079 && initial_screen_colors[0] != -1 && initial_screen_colors[1] != -1) |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2080 { |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2081 FRAME_FOREGROUND_PIXEL (f) = initial_screen_colors[0]; |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2082 FRAME_BACKGROUND_PIXEL (f) = initial_screen_colors[1]; |
97771
f8bd5f0db6f3
(Fmsdos_remember_default_colors): Don't reverse frame colors under -rv.
Eli Zaretskii <eliz@gnu.org>
parents:
97736
diff
changeset
|
2083 init_frame_faces (f); |
109118
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2084 f->default_face_done_p = 1; |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2085 } |
109118
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2086 orig_fg = reverse ? FRAME_BACKGROUND_PIXEL (f) : FRAME_FOREGROUND_PIXEL (f); |
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2087 orig_bg = reverse ? FRAME_FOREGROUND_PIXEL (f) : FRAME_BACKGROUND_PIXEL (f); |
19293
af78882332ed
(IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents:
19287
diff
changeset
|
2088 |
af78882332ed
(IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents:
19287
diff
changeset
|
2089 /* Extract parm names and values into those vectors. */ |
af78882332ed
(IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents:
19287
diff
changeset
|
2090 i = 0; |
9572 | 2091 for (tail = alist; CONSP (tail); tail = Fcdr (tail)) |
2092 { | |
19293
af78882332ed
(IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents:
19287
diff
changeset
|
2093 Lisp_Object elt; |
9572 | 2094 |
2095 elt = Fcar (tail); | |
19293
af78882332ed
(IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents:
19287
diff
changeset
|
2096 parms[i] = Fcar (elt); |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40082
diff
changeset
|
2097 CHECK_SYMBOL (parms[i]); |
19293
af78882332ed
(IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents:
19287
diff
changeset
|
2098 values[i] = Fcdr (elt); |
af78882332ed
(IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents:
19287
diff
changeset
|
2099 i++; |
af78882332ed
(IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents:
19287
diff
changeset
|
2100 } |
af78882332ed
(IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents:
19287
diff
changeset
|
2101 |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2102 j = i; |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2103 |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2104 for (i = 0; i < j; i++) |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2105 { |
32335
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2106 Lisp_Object prop, val; |
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2107 |
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2108 prop = parms[i]; |
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2109 val = values[i]; |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2110 |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
2111 if (EQ (prop, Qreverse)) |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2112 reverse = EQ (val, Qt); |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2113 } |
32546
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
2114 |
109118
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2115 if (tty->termscript && reverse) |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2116 fprintf (tty->termscript, "<INVERSE-VIDEO>\n"); |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2117 |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2118 /* Now process the alist elements in reverse of specified order. */ |
19293
af78882332ed
(IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents:
19287
diff
changeset
|
2119 for (i--; i >= 0; i--) |
af78882332ed
(IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents:
19287
diff
changeset
|
2120 { |
109118
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2121 Lisp_Object prop, val; |
32335
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2122 |
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2123 prop = parms[i]; |
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2124 val = values[i]; |
9572 | 2125 |
19864
44dcf37ec345
(syms_of_msdos): Intern background-color and
Richard M. Stallman <rms@gnu.org>
parents:
19603
diff
changeset
|
2126 if (EQ (prop, Qforeground_color)) |
9572 | 2127 { |
109118
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2128 unsigned long new_color = load_color (f, NULL, val, reverse |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2129 ? LFACE_BACKGROUND_INDEX |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2130 : LFACE_FOREGROUND_INDEX); |
26946
9e0e23a92539
(IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
2131 if (new_color != FACE_TTY_DEFAULT_COLOR |
9e0e23a92539
(IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
2132 && new_color != FACE_TTY_DEFAULT_FG_COLOR |
9e0e23a92539
(IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
2133 && new_color != FACE_TTY_DEFAULT_BG_COLOR) |
9572 | 2134 { |
109118
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2135 if (!reverse) |
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2136 { |
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2137 FRAME_FOREGROUND_PIXEL (f) = new_color; |
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2138 /* Make sure the foreground of the default face for |
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2139 this frame is changed as well. */ |
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2140 update_face_from_frame_parameter (f, Qforeground_color, val); |
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2141 fg_set = 1; |
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2142 if (tty->termscript) |
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2143 fprintf (tty->termscript, "<FGCOLOR %lu>\n", new_color); |
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2144 } |
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2145 else |
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2146 { |
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2147 FRAME_BACKGROUND_PIXEL (f) = new_color; |
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2148 update_face_from_frame_parameter (f, Qbackground_color, val); |
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2149 bg_set = 1; |
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2150 if (tty->termscript) |
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2151 fprintf (tty->termscript, "<BGCOLOR %lu>\n", new_color); |
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2152 } |
9572 | 2153 redraw = 1; |
2154 } | |
2155 } | |
19864
44dcf37ec345
(syms_of_msdos): Intern background-color and
Richard M. Stallman <rms@gnu.org>
parents:
19603
diff
changeset
|
2156 else if (EQ (prop, Qbackground_color)) |
9572 | 2157 { |
109118
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2158 unsigned long new_color = load_color (f, NULL, val, reverse |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2159 ? LFACE_FOREGROUND_INDEX |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2160 : LFACE_BACKGROUND_INDEX); |
26946
9e0e23a92539
(IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
2161 if (new_color != FACE_TTY_DEFAULT_COLOR |
9e0e23a92539
(IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
2162 && new_color != FACE_TTY_DEFAULT_FG_COLOR |
9e0e23a92539
(IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
2163 && new_color != FACE_TTY_DEFAULT_BG_COLOR) |
9572 | 2164 { |
109118
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2165 if (!reverse) |
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2166 { |
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2167 FRAME_BACKGROUND_PIXEL (f) = new_color; |
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2168 /* Make sure the background of the default face for |
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2169 this frame is changed as well. */ |
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2170 bg_set = 1; |
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2171 update_face_from_frame_parameter (f, Qbackground_color, val); |
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2172 if (tty->termscript) |
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2173 fprintf (tty->termscript, "<BGCOLOR %lu>\n", new_color); |
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2174 } |
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2175 else |
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2176 { |
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2177 FRAME_FOREGROUND_PIXEL (f) = new_color; |
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2178 fg_set = 1; |
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2179 update_face_from_frame_parameter (f, Qforeground_color, val); |
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2180 if (tty->termscript) |
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2181 fprintf (tty->termscript, "<FGCOLOR %lu>\n", new_color); |
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2182 } |
9572 | 2183 redraw = 1; |
2184 } | |
2185 } | |
20036
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
2186 else if (EQ (prop, Qtitle)) |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
2187 { |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
2188 x_set_title (f, val); |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2189 if (tty->termscript) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2190 fprintf (tty->termscript, "<TITLE: %s>\n", SDATA (val)); |
20036
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
2191 } |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
2192 else if (EQ (prop, Qcursor_type)) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
2193 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
2194 IT_set_cursor_type (f, val); |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2195 if (tty->termscript) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2196 fprintf (tty->termscript, "<CTYPE: %s>\n", |
44695 | 2197 EQ (val, Qbar) || EQ (val, Qhbar) |
2198 || CONSP (val) && (EQ (XCAR (val), Qbar) | |
2199 || EQ (XCAR (val), Qhbar)) | |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
2200 ? "bar" : "box"); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
2201 } |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2202 else if (EQ (prop, Qtty_type)) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2203 { |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2204 internal_terminal_init (); |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2205 if (tty->termscript) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2206 fprintf (tty->termscript, "<TERM_INIT done, TTY_TYPE: %.*s>\n", |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2207 SBYTES (val), SDATA (val)); |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2208 } |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2209 store_frame_param (f, prop, val); |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2210 } |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2211 |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2212 /* If they specified "reverse", but not the colors, we need to swap |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2213 the current frame colors. */ |
109118
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2214 if (reverse) |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2215 { |
32335
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2216 Lisp_Object frame; |
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2217 |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2218 if (!fg_set) |
20036
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
2219 { |
109118
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2220 FRAME_FOREGROUND_PIXEL (f) = orig_bg; |
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2221 update_face_from_frame_parameter (f, Qforeground_color, |
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2222 tty_color_name (f, orig_bg)); |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2223 redraw = 1; |
20036
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
2224 } |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2225 if (!bg_set) |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2226 { |
109118
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2227 FRAME_BACKGROUND_PIXEL (f) = orig_fg; |
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2228 update_face_from_frame_parameter (f, Qbackground_color, |
254d81c0e750
Fix setting colors on MS-DOS frames.
Eli Zaretskii <eliz@gnu.org>
parents:
109117
diff
changeset
|
2229 tty_color_name (f, orig_fg)); |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2230 redraw = 1; |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2231 } |
9572 | 2232 } |
2233 | |
2234 if (redraw) | |
2235 { | |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2236 face_change_count++; /* forces xdisp.c to recompute basic faces */ |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2237 if (f == SELECTED_FRAME()) |
15387
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
2238 redraw_frame (f); |
9572 | 2239 } |
2240 } | |
2241 | |
16915
8d28d96f6031
(run_msdos_command): Remove unused variables.
Eli Zaretskii <eliz@gnu.org>
parents:
16872
diff
changeset
|
2242 extern void init_frame_faces (FRAME_PTR); |
8d28d96f6031
(run_msdos_command): Remove unused variables.
Eli Zaretskii <eliz@gnu.org>
parents:
16872
diff
changeset
|
2243 |
13179 | 2244 #endif /* !HAVE_X_WINDOWS */ |
9572 | 2245 |
2246 | |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
2247 /* Do we need the internal terminal? */ |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
2248 |
5503 | 2249 void |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
2250 internal_terminal_init (void) |
5503 | 2251 { |
97736
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2252 static int init_needed = 1; |
45332 | 2253 char *term = getenv ("TERM"), *colors; |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2254 struct frame *sf = SELECTED_FRAME(); |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2255 struct tty_display_info *tty; |
13179 | 2256 |
9572 | 2257 #ifdef HAVE_X_WINDOWS |
2258 if (!inhibit_window_system) | |
2259 return; | |
2260 #endif | |
2261 | |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2262 /* If this is the initial terminal, we are done here. */ |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2263 if (sf->output_method == output_initial) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2264 return; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2265 |
5503 | 2266 internal_terminal |
2267 = (!noninteractive) && term && !strcmp (term, "internal"); | |
9572 | 2268 |
2269 #ifndef HAVE_X_WINDOWS | |
13179 | 2270 if (!internal_terminal || inhibit_window_system) |
9572 | 2271 { |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2272 sf->output_method = output_termcap; |
13179 | 2273 return; |
2274 } | |
9572 | 2275 |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2276 tty = FRAME_TTY (sf); |
97771
f8bd5f0db6f3
(Fmsdos_remember_default_colors): Don't reverse frame colors under -rv.
Eli Zaretskii <eliz@gnu.org>
parents:
97736
diff
changeset
|
2277 current_kboard->Vwindow_system = Qpc; |
f8bd5f0db6f3
(Fmsdos_remember_default_colors): Don't reverse frame colors under -rv.
Eli Zaretskii <eliz@gnu.org>
parents:
97736
diff
changeset
|
2278 sf->output_method = output_msdos_raw; |
97736
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2279 if (init_needed) |
13179 | 2280 { |
97736
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2281 if (!tty->termscript && getenv ("EMACSTEST")) |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2282 tty->termscript = fopen (getenv ("EMACSTEST"), "wt"); |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2283 if (tty->termscript) |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2284 { |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2285 time_t now = time (NULL); |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2286 struct tm *tnow = localtime (&now); |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2287 char tbuf[100]; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2288 |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2289 strftime (tbuf, sizeof (tbuf) - 1, "%a %b %e %Y %H:%M:%S %Z", tnow); |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2290 fprintf (tty->termscript, "\nEmacs session started at %s\n", tbuf); |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2291 fprintf (tty->termscript, "=====================\n\n"); |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2292 } |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2293 |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2294 Vinitial_window_system = Qpc; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2295 Vwindow_system_version = make_number (23); /* RE Emacs version */ |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2296 tty->terminal->type = output_msdos_raw; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2297 |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2298 /* If Emacs was dumped on DOS/V machine, forget the stale VRAM |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2299 address. */ |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2300 screen_old_address = 0; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2301 |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2302 /* Forget the stale screen colors as well. */ |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2303 initial_screen_colors[0] = initial_screen_colors[1] = -1; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2304 |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2305 FRAME_BACKGROUND_PIXEL (SELECTED_FRAME ()) = 7; /* White */ |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2306 FRAME_FOREGROUND_PIXEL (SELECTED_FRAME ()) = 0; /* Black */ |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2307 bright_bg (); |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2308 colors = getenv ("EMACSCOLORS"); |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2309 if (colors && strlen (colors) >= 2) |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2310 { |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2311 /* The colors use 4 bits each (we enable bright background). */ |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2312 if (isdigit (colors[0])) |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2313 colors[0] -= '0'; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2314 else if (isxdigit (colors[0])) |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2315 colors[0] -= (isupper (colors[0]) ? 'A' : 'a') - 10; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2316 if (colors[0] >= 0 && colors[0] < 16) |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2317 FRAME_FOREGROUND_PIXEL (SELECTED_FRAME ()) = colors[0]; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2318 if (isdigit (colors[1])) |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2319 colors[1] -= '0'; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2320 else if (isxdigit (colors[1])) |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2321 colors[1] -= (isupper (colors[1]) ? 'A' : 'a') - 10; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2322 if (colors[1] >= 0 && colors[1] < 16) |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2323 FRAME_BACKGROUND_PIXEL (SELECTED_FRAME ()) = colors[1]; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2324 } |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2325 the_only_display_info.mouse_face_mouse_frame = NULL; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2326 the_only_display_info.mouse_face_deferred_gc = 0; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2327 the_only_display_info.mouse_face_beg_row = |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2328 the_only_display_info.mouse_face_beg_col = -1; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2329 the_only_display_info.mouse_face_end_row = |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2330 the_only_display_info.mouse_face_end_col = -1; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2331 the_only_display_info.mouse_face_face_id = DEFAULT_FACE_ID; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2332 the_only_display_info.mouse_face_window = Qnil; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2333 the_only_display_info.mouse_face_mouse_x = |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2334 the_only_display_info.mouse_face_mouse_y = 0; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2335 the_only_display_info.mouse_face_defer = 0; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2336 the_only_display_info.mouse_face_hidden = 0; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2337 |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2338 if (have_mouse) /* detected in dos_ttraw, which see */ |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2339 { |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2340 have_mouse = 1; /* enable mouse */ |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2341 mouse_visible = 0; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2342 mouse_setup_buttons (mouse_button_count); |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2343 tty->terminal->mouse_position_hook = &mouse_get_pos; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2344 mouse_init (); |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2345 } |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2346 |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2347 if (tty->termscript && screen_size) |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2348 fprintf (tty->termscript, "<SCREEN SAVED (dimensions=%dx%d)>\n", |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2349 screen_size_X, screen_size_Y); |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2350 |
97771
f8bd5f0db6f3
(Fmsdos_remember_default_colors): Don't reverse frame colors under -rv.
Eli Zaretskii <eliz@gnu.org>
parents:
97736
diff
changeset
|
2351 init_frame_faces (sf); |
97736
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2352 init_needed = 0; |
13179 | 2353 } |
9572 | 2354 #endif |
5503 | 2355 } |
13179 | 2356 |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2357 void |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2358 initialize_msdos_display (struct terminal *term) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2359 { |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2360 term->rif = 0; /* we don't support window-based display */ |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2361 term->cursor_to_hook = term->raw_cursor_to_hook = IT_cursor_to; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2362 term->clear_to_end_hook = IT_clear_to_end; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2363 term->clear_frame_hook = IT_clear_screen; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2364 term->clear_end_of_line_hook = IT_clear_end_of_line; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2365 term->ins_del_lines_hook = 0; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2366 term->insert_glyphs_hook = IT_insert_glyphs; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2367 term->write_glyphs_hook = IT_write_glyphs; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2368 term->delete_glyphs_hook = IT_delete_glyphs; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2369 term->ring_bell_hook = IT_ring_bell; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2370 term->reset_terminal_modes_hook = IT_reset_terminal_modes; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2371 term->set_terminal_modes_hook = IT_set_terminal_modes; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2372 term->set_terminal_window_hook = IT_set_terminal_window; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2373 term->update_begin_hook = IT_update_begin; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2374 term->update_end_hook = IT_update_end; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2375 term->frame_up_to_date_hook = IT_frame_up_to_date; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2376 term->mouse_position_hook = 0; /* set later by dos_ttraw */ |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2377 term->frame_rehighlight_hook = 0; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2378 term->frame_raise_lower_hook = 0; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2379 term->set_vertical_scroll_bar_hook = 0; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2380 term->condemn_scroll_bars_hook = 0; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2381 term->redeem_scroll_bar_hook = 0; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2382 term->judge_scroll_bars_hook = 0; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2383 term->read_socket_hook = &tty_read_avail_input; /* from keyboard.c */ |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2384 } |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2385 |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
2386 int |
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
2387 dos_get_saved_screen (char **screen, int *rows, int *cols) |
13179 | 2388 { |
2389 #ifndef HAVE_X_WINDOWS | |
2390 *screen = startup_screen_buffer; | |
2391 *cols = startup_screen_size_X; | |
2392 *rows = startup_screen_size_Y; | |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
2393 return *screen != (char *)0; |
13179 | 2394 #else |
2395 return 0; | |
45332 | 2396 #endif |
13179 | 2397 } |
15387
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
2398 |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
2399 #ifndef HAVE_X_WINDOWS |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
2400 |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
2401 /* We are not X, but we can emulate it well enough for our needs... */ |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
2402 void |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
2403 check_x (void) |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
2404 { |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2405 if (! FRAME_MSDOS_P (SELECTED_FRAME())) |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2406 error ("Not running under a window system"); |
15387
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
2407 } |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
2408 |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
2409 #endif |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
2410 |
13274 | 2411 |
13179 | 2412 /* ----------------------- Keyboard control ---------------------- |
2413 * | |
2414 * Keymaps reflect the following keyboard layout: | |
2415 * | |
2416 * 0 1 2 3 4 5 6 7 8 9 10 11 12 BS | |
2417 * TAB 15 16 17 18 19 20 21 22 23 24 25 26 (41) | |
2418 * CLOK 30 31 32 33 34 35 36 37 38 39 40 (41) RET | |
2419 * SH () 45 46 47 48 49 50 51 52 53 54 SHIFT | |
2420 * SPACE | |
2421 */ | |
2422 | |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2423 #define Ignore 0x0000 |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2424 #define Normal 0x0000 /* normal key - alt changes scan-code */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2425 #define FctKey 0x1000 /* func key if c == 0, else c */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2426 #define Special 0x2000 /* func key even if c != 0 */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2427 #define ModFct 0x3000 /* special if mod-keys, else 'c' */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2428 #define Map 0x4000 /* alt scan-code, map to unshift/shift key */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2429 #define KeyPad 0x5000 /* map to insert/kp-0 depending on c == 0xe0 */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2430 #define Grey 0x6000 /* Grey keypad key */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2431 |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2432 #define Alt 0x0100 /* alt scan-code */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2433 #define Ctrl 0x0200 /* ctrl scan-code */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2434 #define Shift 0x0400 /* shift scan-code */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2435 |
74145 | 2436 static int extended_kbd; /* 101 (102) keyboard present. */ |
13179 | 2437 |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2438 struct kbd_translate { |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2439 unsigned char sc; |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2440 unsigned char ch; |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2441 unsigned short code; |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2442 }; |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2443 |
13179 | 2444 struct dos_keyboard_map |
2445 { | |
2446 char *unshifted; | |
2447 char *shifted; | |
2448 char *alt_gr; | |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2449 struct kbd_translate *translate_table; |
13179 | 2450 }; |
2451 | |
13040
169d50e2ee4c
(gettimeofday, init_gettimeofday, daylight, gmtoffset): Undo previous change.
Paul Eggert <eggert@twinsun.com>
parents:
13020
diff
changeset
|
2452 |
13179 | 2453 static struct dos_keyboard_map us_keyboard = { |
2454 /* 0 1 2 3 4 5 */ | |
2455 /* 01234567890123456789012345678901234567890 12345678901234 */ | |
2456 "`1234567890-= qwertyuiop[] asdfghjkl;'\\ zxcvbnm,./ ", | |
2457 /* 0123456789012345678901234567890123456789 012345678901234 */ | |
2458 "~!@#$%^&*()_+ QWERTYUIOP{} ASDFGHJKL:\"| ZXCVBNM<>? ", | |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2459 0, /* no Alt-Gr key */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2460 0 /* no translate table */ |
13179 | 2461 }; |
2462 | |
2463 static struct dos_keyboard_map fr_keyboard = { | |
2464 /* 0 1 2 3 4 5 */ | |
2465 /* 012 3456789012345678901234567890123456789012345678901234 */ | |
2466 "ý&‚\",(-Š_€…)= azertyuiop^$ qsdfghjklm—* wxcvbnm;:! ", | |
2467 /* 0123456789012345678901234567890123456789012345678901234 */ | |
2468 " 1234567890ø+ AZERTYUIOPùœ QSDFGHJKLM%æ WXCVBN?./õ ", | |
2469 /* 01234567 89012345678901234567890123456789012345678901234 */ | |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2470 " ~#{[|`\\^@]} Ï ", |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2471 0 /* no translate table */ |
13179 | 2472 }; |
2473 | |
21583
ba75380b39f7
(it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents:
21489
diff
changeset
|
2474 /* |
ba75380b39f7
(it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents:
21489
diff
changeset
|
2475 * Italian keyboard support, country code 39. |
ba75380b39f7
(it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents:
21489
diff
changeset
|
2476 * '<' 56:3c*0000 |
ba75380b39f7
(it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents:
21489
diff
changeset
|
2477 * '>' 56:3e*0000 |
ba75380b39f7
(it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents:
21489
diff
changeset
|
2478 * added also {,},` as, respectively, AltGr-8, AltGr-9, AltGr-' |
ba75380b39f7
(it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents:
21489
diff
changeset
|
2479 * Donated by Stefano Brozzi <brozzis@mag00.cedi.unipr.it> |
ba75380b39f7
(it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents:
21489
diff
changeset
|
2480 */ |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2481 |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2482 static struct kbd_translate it_kbd_translate_table[] = { |
24566
5082c3adfa2f
(dos_rawgetc): Don't zero out c if private translation
Eli Zaretskii <eliz@gnu.org>
parents:
24560
diff
changeset
|
2483 { 0x56, 0x3c, Normal | 13 }, |
5082c3adfa2f
(dos_rawgetc): Don't zero out c if private translation
Eli Zaretskii <eliz@gnu.org>
parents:
24560
diff
changeset
|
2484 { 0x56, 0x3e, Normal | 27 }, |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2485 { 0, 0, 0 } |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2486 }; |
21583
ba75380b39f7
(it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents:
21489
diff
changeset
|
2487 static struct dos_keyboard_map it_keyboard = { |
ba75380b39f7
(it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents:
21489
diff
changeset
|
2488 /* 0 1 2 3 4 5 */ |
ba75380b39f7
(it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents:
21489
diff
changeset
|
2489 /* 0 123456789012345678901234567890123456789012345678901234 */ |
24566
5082c3adfa2f
(dos_rawgetc): Don't zero out c if private translation
Eli Zaretskii <eliz@gnu.org>
parents:
24560
diff
changeset
|
2490 "\\1234567890'< qwertyuiopŠ+> asdfghjkl•…— zxcvbnm,.- ", |
21583
ba75380b39f7
(it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents:
21489
diff
changeset
|
2491 /* 01 23456789012345678901234567890123456789012345678901234 */ |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2492 "|!\"œ$%&/()=?^> QWERTYUIOP‚* ASDFGHJKL‡øõ ZXCVBNM;:_ ", |
21583
ba75380b39f7
(it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents:
21489
diff
changeset
|
2493 /* 0123456789012345678901234567890123456789012345678901234 */ |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2494 " {}~` [] @# ", |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2495 it_kbd_translate_table |
21583
ba75380b39f7
(it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents:
21489
diff
changeset
|
2496 }; |
ba75380b39f7
(it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents:
21489
diff
changeset
|
2497 |
13179 | 2498 static struct dos_keyboard_map dk_keyboard = { |
2499 /* 0 1 2 3 4 5 */ | |
2500 /* 0123456789012345678901234567890123456789012345678901234 */ | |
2501 "«1234567890+| qwertyuiop†~ asdfghjkl‘›' zxcvbnm,.- ", | |
2502 /* 01 23456789012345678901234567890123456789012345678901234 */ | |
2503 "õ!\"#$%&/()=?` QWERTYUIOP^ ASDFGHJKL’* ZXCVBNM;:_ ", | |
2504 /* 0123456789012345678901234567890123456789012345678901234 */ | |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2505 " @œ$ {[]} | ", |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2506 0 /* no translate table */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2507 }; |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2508 |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2509 static struct kbd_translate jp_kbd_translate_table[] = { |
24560
bb608cd1af6e
(jp_kbd_translate_table): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents:
24559
diff
changeset
|
2510 { 0x73, 0x5c, Normal | 0 }, |
bb608cd1af6e
(jp_kbd_translate_table): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents:
24559
diff
changeset
|
2511 { 0x73, 0x5f, Normal | 0 }, |
24593
ffe7dfc452d7
(jp_kbd_translate_table): Fix the other \ key.
Eli Zaretskii <eliz@gnu.org>
parents:
24566
diff
changeset
|
2512 { 0x73, 0x1c, Map | 0 }, |
24560
bb608cd1af6e
(jp_kbd_translate_table): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents:
24559
diff
changeset
|
2513 { 0x7d, 0x5c, Normal | 13 }, |
bb608cd1af6e
(jp_kbd_translate_table): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents:
24559
diff
changeset
|
2514 { 0x7d, 0x7c, Normal | 13 }, |
24566
5082c3adfa2f
(dos_rawgetc): Don't zero out c if private translation
Eli Zaretskii <eliz@gnu.org>
parents:
24560
diff
changeset
|
2515 { 0x7d, 0x1c, Map | 13 }, |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2516 { 0, 0, 0 } |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2517 }; |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2518 static struct dos_keyboard_map jp_keyboard = { |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2519 /* 0 1 2 3 4 5 */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2520 /* 0123456789012 345678901234567890123456789012345678901234 */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2521 "\\1234567890-^\\ qwertyuiop@[ asdfghjkl;:] zxcvbnm,./ ", |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2522 /* 01 23456789012345678901234567890123456789012345678901234 */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2523 "_!\"#$%&'()~=~| QWERTYUIOP`{ ASDFGHJKL+*} ZXCVBNM<>? ", |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2524 0, /* no Alt-Gr key */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2525 jp_kbd_translate_table |
13179 | 2526 }; |
2527 | |
2528 static struct keyboard_layout_list | |
2529 { | |
2530 int country_code; | |
2531 struct dos_keyboard_map *keyboard_map; | |
13274 | 2532 } keyboard_layout_list[] = |
2533 { | |
2534 1, &us_keyboard, | |
2535 33, &fr_keyboard, | |
21583
ba75380b39f7
(it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents:
21489
diff
changeset
|
2536 39, &it_keyboard, |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2537 45, &dk_keyboard, |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2538 81, &jp_keyboard |
13179 | 2539 }; |
2540 | |
2541 static struct dos_keyboard_map *keyboard; | |
2542 static int keyboard_map_all; | |
16763
e4f0f7fe8304
(dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents:
16613
diff
changeset
|
2543 static int international_keyboard; |
7523
8994727ff976
(gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents:
7507
diff
changeset
|
2544 |
8994727ff976
(gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents:
7507
diff
changeset
|
2545 int |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
2546 dos_set_keyboard (int code, int always) |
7523
8994727ff976
(gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents:
7507
diff
changeset
|
2547 { |
13179 | 2548 int i; |
22481
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
2549 _go32_dpmi_registers regs; |
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
2550 |
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
2551 /* See if Keyb.Com is installed (for international keyboard support). |
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
2552 Note: calling Int 2Fh via int86 wedges the DOS box on some versions |
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
2553 of Windows 9X! So don't do that! */ |
16763
e4f0f7fe8304
(dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents:
16613
diff
changeset
|
2554 regs.x.ax = 0xad80; |
23011
fe3128dafc96
(dos_set_keyboard): Set up stack and flags before
Eli Zaretskii <eliz@gnu.org>
parents:
22992
diff
changeset
|
2555 regs.x.ss = regs.x.sp = regs.x.flags = 0; |
22481
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
2556 _go32_dpmi_simulate_int (0x2f, ®s); |
16763
e4f0f7fe8304
(dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents:
16613
diff
changeset
|
2557 if (regs.h.al == 0xff) |
e4f0f7fe8304
(dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents:
16613
diff
changeset
|
2558 international_keyboard = 1; |
13624
47484dd9a970
(dos_set_keyboard): If CODE is not recognized,
Richard M. Stallman <rms@gnu.org>
parents:
13520
diff
changeset
|
2559 |
47484dd9a970
(dos_set_keyboard): If CODE is not recognized,
Richard M. Stallman <rms@gnu.org>
parents:
13520
diff
changeset
|
2560 /* Initialize to US settings, for countries that don't have their own. */ |
47484dd9a970
(dos_set_keyboard): If CODE is not recognized,
Richard M. Stallman <rms@gnu.org>
parents:
13520
diff
changeset
|
2561 keyboard = keyboard_layout_list[0].keyboard_map; |
47484dd9a970
(dos_set_keyboard): If CODE is not recognized,
Richard M. Stallman <rms@gnu.org>
parents:
13520
diff
changeset
|
2562 keyboard_map_all = always; |
47484dd9a970
(dos_set_keyboard): If CODE is not recognized,
Richard M. Stallman <rms@gnu.org>
parents:
13520
diff
changeset
|
2563 dos_keyboard_layout = 1; |
45332 | 2564 |
13179 | 2565 for (i = 0; i < (sizeof (keyboard_layout_list)/sizeof (struct keyboard_layout_list)); i++) |
2566 if (code == keyboard_layout_list[i].country_code) | |
2567 { | |
2568 keyboard = keyboard_layout_list[i].keyboard_map; | |
2569 keyboard_map_all = always; | |
2570 dos_keyboard_layout = code; | |
2571 return 1; | |
2572 } | |
7523
8994727ff976
(gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents:
7507
diff
changeset
|
2573 return 0; |
8994727ff976
(gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents:
7507
diff
changeset
|
2574 } |
13274 | 2575 |
13179 | 2576 static struct |
2577 { | |
2578 unsigned char char_code; /* normal code */ | |
2579 unsigned char meta_code; /* M- code */ | |
2580 unsigned char keypad_code; /* keypad code */ | |
2581 unsigned char editkey_code; /* edit key */ | |
2582 } keypad_translate_map[] = { | |
2583 '0', '0', 0xb0, /* kp-0 */ 0x63, /* insert */ | |
2584 '1', '1', 0xb1, /* kp-1 */ 0x57, /* end */ | |
2585 '2', '2', 0xb2, /* kp-2 */ 0x54, /* down */ | |
2586 '3', '3', 0xb3, /* kp-3 */ 0x56, /* next */ | |
2587 '4', '4', 0xb4, /* kp-4 */ 0x51, /* left */ | |
2588 '5', '5', 0xb5, /* kp-5 */ 0xb5, /* kp-5 */ | |
2589 '6', '6', 0xb6, /* kp-6 */ 0x53, /* right */ | |
2590 '7', '7', 0xb7, /* kp-7 */ 0x50, /* home */ | |
2591 '8', '8', 0xb8, /* kp-8 */ 0x52, /* up */ | |
2592 '9', '9', 0xb9, /* kp-9 */ 0x55, /* prior */ | |
2593 '.', '-', 0xae, /* kp-decimal */ 0xff /* delete */ | |
2594 }; | |
2595 | |
2596 static struct | |
2597 { | |
2598 unsigned char char_code; /* normal code */ | |
2599 unsigned char keypad_code; /* keypad code */ | |
2600 } grey_key_translate_map[] = { | |
2601 '/', 0xaf, /* kp-decimal */ | |
2602 '*', 0xaa, /* kp-multiply */ | |
2603 '-', 0xad, /* kp-subtract */ | |
2604 '+', 0xab, /* kp-add */ | |
2605 '\r', 0x8d /* kp-enter */ | |
2606 }; | |
2607 | |
2608 static unsigned short | |
2609 ibmpc_translate_map[] = | |
13040
169d50e2ee4c
(gettimeofday, init_gettimeofday, daylight, gmtoffset): Undo previous change.
Paul Eggert <eggert@twinsun.com>
parents:
13020
diff
changeset
|
2610 { |
13179 | 2611 /* --------------- 00 to 0f --------------- */ |
2612 Normal | 0xff, /* Ctrl Break + Alt-NNN */ | |
2613 Alt | ModFct | 0x1b, /* Escape */ | |
2614 Normal | 1, /* '1' */ | |
2615 Normal | 2, /* '2' */ | |
2616 Normal | 3, /* '3' */ | |
2617 Normal | 4, /* '4' */ | |
2618 Normal | 5, /* '5' */ | |
2619 Normal | 6, /* '6' */ | |
2620 Normal | 7, /* '7' */ | |
2621 Normal | 8, /* '8' */ | |
2622 Normal | 9, /* '9' */ | |
2623 Normal | 10, /* '0' */ | |
2624 Normal | 11, /* '-' */ | |
2625 Normal | 12, /* '=' */ | |
2626 Special | 0x08, /* Backspace */ | |
2627 ModFct | 0x74, /* Tab/Backtab */ | |
2628 | |
2629 /* --------------- 10 to 1f --------------- */ | |
2630 Map | 15, /* 'q' */ | |
2631 Map | 16, /* 'w' */ | |
2632 Map | 17, /* 'e' */ | |
2633 Map | 18, /* 'r' */ | |
2634 Map | 19, /* 't' */ | |
2635 Map | 20, /* 'y' */ | |
2636 Map | 21, /* 'u' */ | |
2637 Map | 22, /* 'i' */ | |
2638 Map | 23, /* 'o' */ | |
2639 Map | 24, /* 'p' */ | |
2640 Map | 25, /* '[' */ | |
45332 | 2641 Map | 26, /* ']' */ |
13179 | 2642 ModFct | 0x0d, /* Return */ |
2643 Ignore, /* Ctrl */ | |
2644 Map | 30, /* 'a' */ | |
2645 Map | 31, /* 's' */ | |
2646 | |
2647 /* --------------- 20 to 2f --------------- */ | |
2648 Map | 32, /* 'd' */ | |
2649 Map | 33, /* 'f' */ | |
2650 Map | 34, /* 'g' */ | |
2651 Map | 35, /* 'h' */ | |
2652 Map | 36, /* 'j' */ | |
2653 Map | 37, /* 'k' */ | |
2654 Map | 38, /* 'l' */ | |
2655 Map | 39, /* ';' */ | |
2656 Map | 40, /* '\'' */ | |
2657 Map | 0, /* '`' */ | |
2658 Ignore, /* Left shift */ | |
2659 Map | 41, /* '\\' */ | |
2660 Map | 45, /* 'z' */ | |
2661 Map | 46, /* 'x' */ | |
2662 Map | 47, /* 'c' */ | |
2663 Map | 48, /* 'v' */ | |
2664 | |
2665 /* --------------- 30 to 3f --------------- */ | |
2666 Map | 49, /* 'b' */ | |
2667 Map | 50, /* 'n' */ | |
2668 Map | 51, /* 'm' */ | |
2669 Map | 52, /* ',' */ | |
2670 Map | 53, /* '.' */ | |
2671 Map | 54, /* '/' */ | |
2672 Ignore, /* Right shift */ | |
2673 Grey | 1, /* Grey * */ | |
2674 Ignore, /* Alt */ | |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2675 Normal | 55, /* ' ' */ |
13179 | 2676 Ignore, /* Caps Lock */ |
2677 FctKey | 0xbe, /* F1 */ | |
2678 FctKey | 0xbf, /* F2 */ | |
2679 FctKey | 0xc0, /* F3 */ | |
2680 FctKey | 0xc1, /* F4 */ | |
2681 FctKey | 0xc2, /* F5 */ | |
2682 | |
2683 /* --------------- 40 to 4f --------------- */ | |
2684 FctKey | 0xc3, /* F6 */ | |
2685 FctKey | 0xc4, /* F7 */ | |
2686 FctKey | 0xc5, /* F8 */ | |
2687 FctKey | 0xc6, /* F9 */ | |
2688 FctKey | 0xc7, /* F10 */ | |
2689 Ignore, /* Num Lock */ | |
2690 Ignore, /* Scroll Lock */ | |
2691 KeyPad | 7, /* Home */ | |
2692 KeyPad | 8, /* Up */ | |
2693 KeyPad | 9, /* Page Up */ | |
2694 Grey | 2, /* Grey - */ | |
2695 KeyPad | 4, /* Left */ | |
2696 KeyPad | 5, /* Keypad 5 */ | |
2697 KeyPad | 6, /* Right */ | |
2698 Grey | 3, /* Grey + */ | |
2699 KeyPad | 1, /* End */ | |
2700 | |
2701 /* --------------- 50 to 5f --------------- */ | |
2702 KeyPad | 2, /* Down */ | |
2703 KeyPad | 3, /* Page Down */ | |
2704 KeyPad | 0, /* Insert */ | |
2705 KeyPad | 10, /* Delete */ | |
2706 Shift | FctKey | 0xbe, /* (Shift) F1 */ | |
2707 Shift | FctKey | 0xbf, /* (Shift) F2 */ | |
2708 Shift | FctKey | 0xc0, /* (Shift) F3 */ | |
2709 Shift | FctKey | 0xc1, /* (Shift) F4 */ | |
2710 Shift | FctKey | 0xc2, /* (Shift) F5 */ | |
2711 Shift | FctKey | 0xc3, /* (Shift) F6 */ | |
2712 Shift | FctKey | 0xc4, /* (Shift) F7 */ | |
2713 Shift | FctKey | 0xc5, /* (Shift) F8 */ | |
2714 Shift | FctKey | 0xc6, /* (Shift) F9 */ | |
2715 Shift | FctKey | 0xc7, /* (Shift) F10 */ | |
2716 Ctrl | FctKey | 0xbe, /* (Ctrl) F1 */ | |
2717 Ctrl | FctKey | 0xbf, /* (Ctrl) F2 */ | |
13040
169d50e2ee4c
(gettimeofday, init_gettimeofday, daylight, gmtoffset): Undo previous change.
Paul Eggert <eggert@twinsun.com>
parents:
13020
diff
changeset
|
2718 |
13179 | 2719 /* --------------- 60 to 6f --------------- */ |
2720 Ctrl | FctKey | 0xc0, /* (Ctrl) F3 */ | |
2721 Ctrl | FctKey | 0xc1, /* (Ctrl) F4 */ | |
2722 Ctrl | FctKey | 0xc2, /* (Ctrl) F5 */ | |
2723 Ctrl | FctKey | 0xc3, /* (Ctrl) F6 */ | |
2724 Ctrl | FctKey | 0xc4, /* (Ctrl) F7 */ | |
2725 Ctrl | FctKey | 0xc5, /* (Ctrl) F8 */ | |
2726 Ctrl | FctKey | 0xc6, /* (Ctrl) F9 */ | |
2727 Ctrl | FctKey | 0xc7, /* (Ctrl) F10 */ | |
2728 Alt | FctKey | 0xbe, /* (Alt) F1 */ | |
2729 Alt | FctKey | 0xbf, /* (Alt) F2 */ | |
2730 Alt | FctKey | 0xc0, /* (Alt) F3 */ | |
2731 Alt | FctKey | 0xc1, /* (Alt) F4 */ | |
2732 Alt | FctKey | 0xc2, /* (Alt) F5 */ | |
2733 Alt | FctKey | 0xc3, /* (Alt) F6 */ | |
2734 Alt | FctKey | 0xc4, /* (Alt) F7 */ | |
2735 Alt | FctKey | 0xc5, /* (Alt) F8 */ | |
2736 | |
2737 /* --------------- 70 to 7f --------------- */ | |
2738 Alt | FctKey | 0xc6, /* (Alt) F9 */ | |
2739 Alt | FctKey | 0xc7, /* (Alt) F10 */ | |
2740 Ctrl | FctKey | 0x6d, /* (Ctrl) Sys Rq */ | |
2741 Ctrl | KeyPad | 4, /* (Ctrl) Left */ | |
2742 Ctrl | KeyPad | 6, /* (Ctrl) Right */ | |
2743 Ctrl | KeyPad | 1, /* (Ctrl) End */ | |
2744 Ctrl | KeyPad | 3, /* (Ctrl) Page Down */ | |
2745 Ctrl | KeyPad | 7, /* (Ctrl) Home */ | |
2746 Alt | Map | 1, /* '1' */ | |
2747 Alt | Map | 2, /* '2' */ | |
2748 Alt | Map | 3, /* '3' */ | |
2749 Alt | Map | 4, /* '4' */ | |
2750 Alt | Map | 5, /* '5' */ | |
2751 Alt | Map | 6, /* '6' */ | |
2752 Alt | Map | 7, /* '7' */ | |
2753 Alt | Map | 8, /* '8' */ | |
2754 | |
2755 /* --------------- 80 to 8f --------------- */ | |
2756 Alt | Map | 9, /* '9' */ | |
2757 Alt | Map | 10, /* '0' */ | |
2758 Alt | Map | 11, /* '-' */ | |
2759 Alt | Map | 12, /* '=' */ | |
2760 Ctrl | KeyPad | 9, /* (Ctrl) Page Up */ | |
2761 FctKey | 0xc8, /* F11 */ | |
2762 FctKey | 0xc9, /* F12 */ | |
2763 Shift | FctKey | 0xc8, /* (Shift) F11 */ | |
2764 Shift | FctKey | 0xc9, /* (Shift) F12 */ | |
2765 Ctrl | FctKey | 0xc8, /* (Ctrl) F11 */ | |
2766 Ctrl | FctKey | 0xc9, /* (Ctrl) F12 */ | |
2767 Alt | FctKey | 0xc8, /* (Alt) F11 */ | |
2768 Alt | FctKey | 0xc9, /* (Alt) F12 */ | |
2769 Ctrl | KeyPad | 8, /* (Ctrl) Up */ | |
2770 Ctrl | Grey | 2, /* (Ctrl) Grey - */ | |
2771 Ctrl | KeyPad | 5, /* (Ctrl) Keypad 5 */ | |
2772 | |
2773 /* --------------- 90 to 9f --------------- */ | |
2774 Ctrl | Grey | 3, /* (Ctrl) Grey + */ | |
2775 Ctrl | KeyPad | 2, /* (Ctrl) Down */ | |
2776 Ctrl | KeyPad | 0, /* (Ctrl) Insert */ | |
2777 Ctrl | KeyPad | 10, /* (Ctrl) Delete */ | |
2778 Ctrl | FctKey | 0x09, /* (Ctrl) Tab */ | |
2779 Ctrl | Grey | 0, /* (Ctrl) Grey / */ | |
2780 Ctrl | Grey | 1, /* (Ctrl) Grey * */ | |
2781 Alt | FctKey | 0x50, /* (Alt) Home */ | |
2782 Alt | FctKey | 0x52, /* (Alt) Up */ | |
2783 Alt | FctKey | 0x55, /* (Alt) Page Up */ | |
2784 Ignore, /* NO KEY */ | |
2785 Alt | FctKey | 0x51, /* (Alt) Left */ | |
2786 Ignore, /* NO KEY */ | |
2787 Alt | FctKey | 0x53, /* (Alt) Right */ | |
2788 Ignore, /* NO KEY */ | |
2789 Alt | FctKey | 0x57, /* (Alt) End */ | |
2790 | |
2791 /* --------------- a0 to af --------------- */ | |
2792 Alt | KeyPad | 2, /* (Alt) Down */ | |
2793 Alt | KeyPad | 3, /* (Alt) Page Down */ | |
2794 Alt | KeyPad | 0, /* (Alt) Insert */ | |
2795 Alt | KeyPad | 10, /* (Alt) Delete */ | |
2796 Alt | Grey | 0, /* (Alt) Grey / */ | |
2797 Alt | FctKey | 0x09, /* (Alt) Tab */ | |
2798 Alt | Grey | 4 /* (Alt) Keypad Enter */ | |
2799 }; | |
13274 | 2800 |
13179 | 2801 /* These bit-positions corresponds to values returned by BIOS */ |
2802 #define SHIFT_P 0x0003 /* two bits! */ | |
2803 #define CTRL_P 0x0004 | |
2804 #define ALT_P 0x0008 | |
2805 #define SCRLOCK_P 0x0010 | |
2806 #define NUMLOCK_P 0x0020 | |
2807 #define CAPSLOCK_P 0x0040 | |
2808 #define ALT_GR_P 0x0800 | |
2809 #define SUPER_P 0x4000 /* pseudo */ | |
2810 #define HYPER_P 0x8000 /* pseudo */ | |
2811 | |
2812 static int | |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
2813 dos_get_modifiers (int *keymask) |
5503 | 2814 { |
13179 | 2815 union REGS regs; |
45332 | 2816 int mask, modifiers = 0; |
2817 | |
13179 | 2818 /* Calculate modifier bits */ |
2819 regs.h.ah = extended_kbd ? 0x12 : 0x02; | |
2820 int86 (0x16, ®s, ®s); | |
2821 | |
2822 if (!extended_kbd) | |
2823 { | |
45332 | 2824 mask = regs.h.al & (SHIFT_P | CTRL_P | ALT_P | |
13179 | 2825 SCRLOCK_P | NUMLOCK_P | CAPSLOCK_P); |
2826 } | |
2827 else | |
2828 { | |
2829 mask = regs.h.al & (SHIFT_P | | |
2830 SCRLOCK_P | NUMLOCK_P | CAPSLOCK_P); | |
45332 | 2831 |
13179 | 2832 /* Do not break international keyboard support. */ |
2833 /* When Keyb.Com is loaded, the right Alt key is */ | |
2834 /* used for accessing characters like { and } */ | |
2835 if (regs.h.ah & 2) /* Left ALT pressed ? */ | |
2836 mask |= ALT_P; | |
2837 | |
2838 if ((regs.h.ah & 8) != 0) /* Right ALT pressed ? */ | |
2839 { | |
2840 mask |= ALT_GR_P; | |
2841 if (dos_hyper_key == 1) | |
2842 { | |
2843 mask |= HYPER_P; | |
2844 modifiers |= hyper_modifier; | |
2845 } | |
2846 else if (dos_super_key == 1) | |
2847 { | |
2848 mask |= SUPER_P; | |
2849 modifiers |= super_modifier; | |
2850 } | |
16763
e4f0f7fe8304
(dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents:
16613
diff
changeset
|
2851 else if (!international_keyboard) |
e4f0f7fe8304
(dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents:
16613
diff
changeset
|
2852 { |
e4f0f7fe8304
(dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents:
16613
diff
changeset
|
2853 /* If Keyb.Com is NOT installed, let Right Alt behave |
e4f0f7fe8304
(dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents:
16613
diff
changeset
|
2854 like the Left Alt. */ |
e4f0f7fe8304
(dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents:
16613
diff
changeset
|
2855 mask &= ~ALT_GR_P; |
e4f0f7fe8304
(dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents:
16613
diff
changeset
|
2856 mask |= ALT_P; |
e4f0f7fe8304
(dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents:
16613
diff
changeset
|
2857 } |
13179 | 2858 } |
45332 | 2859 |
15125
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
2860 if (regs.h.ah & 1) /* Left CTRL pressed ? */ |
13179 | 2861 mask |= CTRL_P; |
2862 | |
2863 if (regs.h.ah & 4) /* Right CTRL pressed ? */ | |
2864 { | |
2865 if (dos_hyper_key == 2) | |
2866 { | |
2867 mask |= HYPER_P; | |
2868 modifiers |= hyper_modifier; | |
2869 } | |
2870 else if (dos_super_key == 2) | |
2871 { | |
2872 mask |= SUPER_P; | |
2873 modifiers |= super_modifier; | |
2874 } | |
2875 else | |
2876 mask |= CTRL_P; | |
2877 } | |
2878 } | |
2879 | |
2880 if (mask & SHIFT_P) | |
2881 modifiers |= shift_modifier; | |
2882 if (mask & CTRL_P) | |
2883 modifiers |= ctrl_modifier; | |
2884 if (mask & ALT_P) | |
2885 modifiers |= meta_modifier; | |
2886 | |
2887 if (keymask) | |
2888 *keymask = mask; | |
2889 return modifiers; | |
5503 | 2890 } |
2891 | |
13305
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2892 #define NUM_RECENT_DOSKEYS (100) |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2893 int recent_doskeys_index; /* Index for storing next element into recent_doskeys */ |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2894 int total_doskeys; /* Total number of elements stored into recent_doskeys */ |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
2895 Lisp_Object recent_doskeys; /* A vector, holding the last 100 keystrokes */ |
13305
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2896 |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2897 DEFUN ("recent-doskeys", Frecent_doskeys, Srecent_doskeys, 0, 0, 0, |
41940
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41406
diff
changeset
|
2898 doc: /* Return vector of last 100 keyboard input values seen in dos_rawgetc. |
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41406
diff
changeset
|
2899 Each input key receives two values in this vector: first the ASCII code, |
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41406
diff
changeset
|
2900 and then the scan code. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
2901 (void) |
13305
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2902 { |
45332 | 2903 Lisp_Object val, *keys = XVECTOR (recent_doskeys)->contents; |
13305
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2904 |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2905 if (total_doskeys < NUM_RECENT_DOSKEYS) |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2906 return Fvector (total_doskeys, keys); |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2907 else |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2908 { |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2909 val = Fvector (NUM_RECENT_DOSKEYS, keys); |
109165
750db9f3e6d8
Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents:
109162
diff
changeset
|
2910 memcpy (XVECTOR (val)->contents, keys + recent_doskeys_index, |
750db9f3e6d8
Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents:
109162
diff
changeset
|
2911 (NUM_RECENT_DOSKEYS - recent_doskeys_index) * sizeof (Lisp_Object)); |
750db9f3e6d8
Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents:
109162
diff
changeset
|
2912 memcpy (XVECTOR (val)->contents + NUM_RECENT_DOSKEYS - recent_doskeys_index, |
750db9f3e6d8
Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents:
109162
diff
changeset
|
2913 keys, recent_doskeys_index * sizeof (Lisp_Object)); |
13305
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2914 return val; |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2915 } |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2916 } |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2917 |
13179 | 2918 /* Get a char from keyboard. Function keys are put into the event queue. */ |
2919 static int | |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
2920 dos_rawgetc (void) |
5503 | 2921 { |
13179 | 2922 struct input_event event; |
2923 union REGS regs; | |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2924 struct tty_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (SELECTED_FRAME()); |
51571
904f120f283f
(dos_rawgetc): Don't pass uninitialized data to kbd_buffer_store_event.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51201
diff
changeset
|
2925 EVENT_INIT (event); |
54730
c33e4ac43939
(clear_mouse_face): Only clear mouse highlight if not hidden.
Kim F. Storm <storm@cua.dk>
parents:
53187
diff
changeset
|
2926 |
13179 | 2927 #ifndef HAVE_X_WINDOWS |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
2928 /* Maybe put the cursor where it should be. */ |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2929 IT_cmgoto (SELECTED_FRAME()); |
13179 | 2930 #endif |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
2931 |
13179 | 2932 /* The following condition is equivalent to `kbhit ()', except that |
2933 it uses the bios to do its job. This pleases DESQview/X. */ | |
2934 while ((regs.h.ah = extended_kbd ? 0x11 : 0x01), | |
2935 int86 (0x16, ®s, ®s), | |
2936 (regs.x.flags & 0x40) == 0) | |
5503 | 2937 { |
13179 | 2938 union REGS regs; |
2939 register unsigned char c; | |
45332 | 2940 int modifiers, sc, code = -1, mask, kp_mode; |
13179 | 2941 |
2942 regs.h.ah = extended_kbd ? 0x10 : 0x00; | |
2943 int86 (0x16, ®s, ®s); | |
2944 c = regs.h.al; | |
2945 sc = regs.h.ah; | |
5503 | 2946 |
13305
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2947 total_doskeys += 2; |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2948 XVECTOR (recent_doskeys)->contents[recent_doskeys_index++] |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2949 = make_number (c); |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2950 if (recent_doskeys_index == NUM_RECENT_DOSKEYS) |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2951 recent_doskeys_index = 0; |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2952 XVECTOR (recent_doskeys)->contents[recent_doskeys_index++] |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2953 = make_number (sc); |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2954 if (recent_doskeys_index == NUM_RECENT_DOSKEYS) |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2955 recent_doskeys_index = 0; |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2956 |
13274 | 2957 modifiers = dos_get_modifiers (&mask); |
45332 | 2958 |
13179 | 2959 #ifndef HAVE_X_WINDOWS |
13274 | 2960 if (!NILP (Vdos_display_scancodes)) |
13179 | 2961 { |
14157
38606398dfa6
(dos_rawgetc): Make buf longer.
Richard M. Stallman <rms@gnu.org>
parents:
14036
diff
changeset
|
2962 char buf[11]; |
13179 | 2963 sprintf (buf, "%02x:%02x*%04x", |
2964 (unsigned) (sc&0xff), (unsigned) c, mask); | |
2965 dos_direct_output (screen_size_Y - 2, screen_size_X - 12, buf, 10); | |
2966 } | |
2967 #endif | |
5503 | 2968 |
13179 | 2969 if (sc == 0xe0) |
2970 { | |
2971 switch (c) | |
2972 { | |
2973 case 10: /* Ctrl Grey Enter */ | |
2974 code = Ctrl | Grey | 4; | |
2975 break; | |
2976 case 13: /* Grey Enter */ | |
2977 code = Grey | 4; | |
2978 break; | |
2979 case '/': /* Grey / */ | |
2980 code = Grey | 0; | |
2981 break; | |
2982 default: | |
2983 continue; | |
2984 }; | |
2985 c = 0; | |
2986 } | |
2987 else | |
2988 { | |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2989 /* Try the keyboard-private translation table first. */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2990 if (keyboard->translate_table) |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2991 { |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2992 struct kbd_translate *p = keyboard->translate_table; |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2993 |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2994 while (p->sc) |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2995 { |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2996 if (p->sc == sc && p->ch == c) |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2997 { |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2998 code = p->code; |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2999 break; |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3000 } |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3001 p++; |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3002 } |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3003 } |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3004 /* If the private table didn't translate it, use the general |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3005 one. */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3006 if (code == -1) |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3007 { |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3008 if (sc >= (sizeof (ibmpc_translate_map) / sizeof (short))) |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3009 continue; |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3010 if ((code = ibmpc_translate_map[sc]) == Ignore) |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3011 continue; |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3012 } |
13179 | 3013 } |
45332 | 3014 |
13179 | 3015 if (c == 0) |
3016 { | |
16967
4ca0a5e25605
dos_rawgetc: When international keyboard doesn't have
Eli Zaretskii <eliz@gnu.org>
parents:
16915
diff
changeset
|
3017 /* We only look at the keyboard Ctrl/Shift/Alt keys when |
4ca0a5e25605
dos_rawgetc: When international keyboard doesn't have
Eli Zaretskii <eliz@gnu.org>
parents:
16915
diff
changeset
|
3018 Emacs is ready to read a key. Therefore, if they press |
4ca0a5e25605
dos_rawgetc: When international keyboard doesn't have
Eli Zaretskii <eliz@gnu.org>
parents:
16915
diff
changeset
|
3019 `Alt-x' when Emacs is busy, by the time we get to |
4ca0a5e25605
dos_rawgetc: When international keyboard doesn't have
Eli Zaretskii <eliz@gnu.org>
parents:
16915
diff
changeset
|
3020 `dos_get_modifiers', they might have already released the |
4ca0a5e25605
dos_rawgetc: When international keyboard doesn't have
Eli Zaretskii <eliz@gnu.org>
parents:
16915
diff
changeset
|
3021 Alt key, and Emacs gets just `x', which is BAD. |
4ca0a5e25605
dos_rawgetc: When international keyboard doesn't have
Eli Zaretskii <eliz@gnu.org>
parents:
16915
diff
changeset
|
3022 However, for keys with the `Map' property set, the ASCII |
78501 | 3023 code returns zero only if Alt is pressed. So, when we DON'T |
16967
4ca0a5e25605
dos_rawgetc: When international keyboard doesn't have
Eli Zaretskii <eliz@gnu.org>
parents:
16915
diff
changeset
|
3024 have to support international_keyboard, we don't have to |
4ca0a5e25605
dos_rawgetc: When international keyboard doesn't have
Eli Zaretskii <eliz@gnu.org>
parents:
16915
diff
changeset
|
3025 distinguish between the left and right Alt keys, and we |
4ca0a5e25605
dos_rawgetc: When international keyboard doesn't have
Eli Zaretskii <eliz@gnu.org>
parents:
16915
diff
changeset
|
3026 can set the META modifier for any keys with the `Map' |
4ca0a5e25605
dos_rawgetc: When international keyboard doesn't have
Eli Zaretskii <eliz@gnu.org>
parents:
16915
diff
changeset
|
3027 property if they return zero ASCII code (c = 0). */ |
4ca0a5e25605
dos_rawgetc: When international keyboard doesn't have
Eli Zaretskii <eliz@gnu.org>
parents:
16915
diff
changeset
|
3028 if ( (code & Alt) |
4ca0a5e25605
dos_rawgetc: When international keyboard doesn't have
Eli Zaretskii <eliz@gnu.org>
parents:
16915
diff
changeset
|
3029 || ( (code & 0xf000) == Map && !international_keyboard)) |
13179 | 3030 modifiers |= meta_modifier; |
3031 if (code & Ctrl) | |
3032 modifiers |= ctrl_modifier; | |
3033 if (code & Shift) | |
3034 modifiers |= shift_modifier; | |
3035 } | |
45332 | 3036 |
13179 | 3037 switch (code & 0xf000) |
3038 { | |
3039 case ModFct: | |
3040 if (c && !(mask & (SHIFT_P | ALT_P | CTRL_P | HYPER_P | SUPER_P))) | |
3041 return c; | |
3042 c = 0; /* Special */ | |
45332 | 3043 |
13179 | 3044 case FctKey: |
3045 if (c != 0) | |
3046 return c; | |
45332 | 3047 |
13179 | 3048 case Special: |
3049 code |= 0xff00; | |
3050 break; | |
45332 | 3051 |
13179 | 3052 case Normal: |
3053 if (sc == 0) | |
3054 { | |
3055 if (c == 0) /* ctrl-break */ | |
3056 continue; | |
3057 return c; /* ALT-nnn */ | |
3058 } | |
3059 if (!keyboard_map_all) | |
3060 { | |
3061 if (c != ' ') | |
3062 return c; | |
3063 code = c; | |
3064 break; | |
3065 } | |
45332 | 3066 |
13179 | 3067 case Map: |
3068 if (c && !(mask & ALT_P) && !((mask & SHIFT_P) && (mask & CTRL_P))) | |
3069 if (!keyboard_map_all) | |
3070 return c; | |
5503 | 3071 |
13179 | 3072 code &= 0xff; |
3073 if (mask & ALT_P && code <= 10 && code > 0 && dos_keypad_mode & 0x200) | |
3074 mask |= SHIFT_P; /* ALT-1 => M-! etc. */ | |
45332 | 3075 |
13179 | 3076 if (mask & SHIFT_P) |
3077 { | |
13274 | 3078 code = keyboard->shifted[code]; |
13179 | 3079 mask -= SHIFT_P; |
3080 modifiers &= ~shift_modifier; | |
3081 } | |
3082 else | |
13274 | 3083 if ((mask & ALT_GR_P) && keyboard->alt_gr && keyboard->alt_gr[code] != ' ') |
3084 code = keyboard->alt_gr[code]; | |
13179 | 3085 else |
13274 | 3086 code = keyboard->unshifted[code]; |
13179 | 3087 break; |
3088 | |
3089 case KeyPad: | |
3090 code &= 0xff; | |
3091 if (c == 0xe0) /* edit key */ | |
3092 kp_mode = 3; | |
3093 else | |
3094 if ((mask & (NUMLOCK_P|CTRL_P|SHIFT_P|ALT_P)) == NUMLOCK_P) /* numlock on */ | |
3095 kp_mode = dos_keypad_mode & 0x03; | |
3096 else | |
3097 kp_mode = (dos_keypad_mode >> 4) & 0x03; | |
45332 | 3098 |
13179 | 3099 switch (kp_mode) |
3100 { | |
3101 case 0: | |
3102 if (code == 10 && dos_decimal_point) | |
3103 return dos_decimal_point; | |
13274 | 3104 return keypad_translate_map[code].char_code; |
5503 | 3105 |
13179 | 3106 case 1: |
13274 | 3107 code = 0xff00 | keypad_translate_map[code].keypad_code; |
13179 | 3108 break; |
5503 | 3109 |
13179 | 3110 case 2: |
13274 | 3111 code = keypad_translate_map[code].meta_code; |
13179 | 3112 modifiers = meta_modifier; |
3113 break; | |
45332 | 3114 |
13179 | 3115 case 3: |
13274 | 3116 code = 0xff00 | keypad_translate_map[code].editkey_code; |
13179 | 3117 break; |
3118 } | |
3119 break; | |
45332 | 3120 |
13179 | 3121 case Grey: |
3122 code &= 0xff; | |
3123 kp_mode = ((mask & (NUMLOCK_P|CTRL_P|SHIFT_P|ALT_P)) == NUMLOCK_P) ? 0x04 : 0x40; | |
3124 if (dos_keypad_mode & kp_mode) | |
13274 | 3125 code = 0xff00 | grey_key_translate_map[code].keypad_code; |
13179 | 3126 else |
13274 | 3127 code = grey_key_translate_map[code].char_code; |
13179 | 3128 break; |
3129 } | |
45332 | 3130 |
13179 | 3131 make_event: |
3132 if (code == 0) | |
3133 continue; | |
43371
263456abbeb0
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43363
diff
changeset
|
3134 |
263456abbeb0
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43363
diff
changeset
|
3135 if (!dpyinfo->mouse_face_hidden && INTEGERP (Vmouse_highlight)) |
263456abbeb0
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43363
diff
changeset
|
3136 { |
54730
c33e4ac43939
(clear_mouse_face): Only clear mouse highlight if not hidden.
Kim F. Storm <storm@cua.dk>
parents:
53187
diff
changeset
|
3137 clear_mouse_face (dpyinfo); |
43371
263456abbeb0
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43363
diff
changeset
|
3138 dpyinfo->mouse_face_hidden = 1; |
263456abbeb0
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43363
diff
changeset
|
3139 } |
263456abbeb0
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43363
diff
changeset
|
3140 |
13179 | 3141 if (code >= 0x100) |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45332
diff
changeset
|
3142 event.kind = NON_ASCII_KEYSTROKE_EVENT; |
13179 | 3143 else |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45332
diff
changeset
|
3144 event.kind = ASCII_KEYSTROKE_EVENT; |
13179 | 3145 event.code = code; |
3146 event.modifiers = modifiers; | |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
3147 event.frame_or_window = selected_frame; |
30198
f39367e12c14
(dos_rawgetc): Always set `arg' member of input_events.
Gerd Moellmann <gerd@gnu.org>
parents:
30180
diff
changeset
|
3148 event.arg = Qnil; |
13179 | 3149 event.timestamp = event_timestamp (); |
3150 kbd_buffer_store_event (&event); | |
3151 } | |
5503 | 3152 |
23497
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3153 if (have_mouse > 0 && !mouse_preempted) |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3154 { |
13179 | 3155 int but, press, x, y, ok; |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
3156 int mouse_prev_x = mouse_last_x, mouse_prev_y = mouse_last_y; |
44337
228b881931ef
(dos_rawgetc): Generate SELECT_WINDOW_EVENTs when required.
Eli Zaretskii <eliz@gnu.org>
parents:
44303
diff
changeset
|
3157 Lisp_Object mouse_window = Qnil; |
5503 | 3158 |
13179 | 3159 /* Check for mouse movement *before* buttons. */ |
3160 mouse_check_moved (); | |
5503 | 3161 |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
3162 /* If the mouse moved from the spot of its last sighting, we |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
3163 might need to update mouse highlight. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
3164 if (mouse_last_x != mouse_prev_x || mouse_last_y != mouse_prev_y) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
3165 { |
43371
263456abbeb0
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43363
diff
changeset
|
3166 if (dpyinfo->mouse_face_hidden) |
263456abbeb0
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43363
diff
changeset
|
3167 { |
263456abbeb0
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43363
diff
changeset
|
3168 dpyinfo->mouse_face_hidden = 0; |
263456abbeb0
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43363
diff
changeset
|
3169 clear_mouse_face (dpyinfo); |
263456abbeb0
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43363
diff
changeset
|
3170 } |
263456abbeb0
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43363
diff
changeset
|
3171 |
44337
228b881931ef
(dos_rawgetc): Generate SELECT_WINDOW_EVENTs when required.
Eli Zaretskii <eliz@gnu.org>
parents:
44303
diff
changeset
|
3172 /* Generate SELECT_WINDOW_EVENTs when needed. */ |
72736
f6b18b9949d1
* xdisp.c (mouse_autoselect_window): Removed.
Chong Yidong <cyd@stupidchicken.com>
parents:
71986
diff
changeset
|
3173 if (!NILP (Vmouse_autoselect_window)) |
43357
c89a11a2baf6
(x_autoselect_window_p): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
43236
diff
changeset
|
3174 { |
c89a11a2baf6
(x_autoselect_window_p): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
43236
diff
changeset
|
3175 mouse_window = window_from_coordinates (SELECTED_FRAME(), |
c89a11a2baf6
(x_autoselect_window_p): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
43236
diff
changeset
|
3176 mouse_last_x, |
c89a11a2baf6
(x_autoselect_window_p): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
43236
diff
changeset
|
3177 mouse_last_y, |
51201
df6e2df16eb0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50247
diff
changeset
|
3178 0, 0, 0, 0); |
43357
c89a11a2baf6
(x_autoselect_window_p): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
43236
diff
changeset
|
3179 /* A window will be selected only when it is not |
44337
228b881931ef
(dos_rawgetc): Generate SELECT_WINDOW_EVENTs when required.
Eli Zaretskii <eliz@gnu.org>
parents:
44303
diff
changeset
|
3180 selected now, and the last mouse movement event was |
228b881931ef
(dos_rawgetc): Generate SELECT_WINDOW_EVENTs when required.
Eli Zaretskii <eliz@gnu.org>
parents:
44303
diff
changeset
|
3181 not in it. A minibuffer window will be selected iff |
228b881931ef
(dos_rawgetc): Generate SELECT_WINDOW_EVENTs when required.
Eli Zaretskii <eliz@gnu.org>
parents:
44303
diff
changeset
|
3182 it is active. */ |
228b881931ef
(dos_rawgetc): Generate SELECT_WINDOW_EVENTs when required.
Eli Zaretskii <eliz@gnu.org>
parents:
44303
diff
changeset
|
3183 if (WINDOWP (mouse_window) |
228b881931ef
(dos_rawgetc): Generate SELECT_WINDOW_EVENTs when required.
Eli Zaretskii <eliz@gnu.org>
parents:
44303
diff
changeset
|
3184 && !EQ (mouse_window, last_mouse_window) |
79060
848bc3eac628
(dos_rawgetc): Undo last change (there's no ``leaving selected frame''
Eli Zaretskii <eliz@gnu.org>
parents:
78987
diff
changeset
|
3185 && !EQ (mouse_window, selected_window)) |
43357
c89a11a2baf6
(x_autoselect_window_p): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
43236
diff
changeset
|
3186 { |
44337
228b881931ef
(dos_rawgetc): Generate SELECT_WINDOW_EVENTs when required.
Eli Zaretskii <eliz@gnu.org>
parents:
44303
diff
changeset
|
3187 event.kind = SELECT_WINDOW_EVENT; |
228b881931ef
(dos_rawgetc): Generate SELECT_WINDOW_EVENTs when required.
Eli Zaretskii <eliz@gnu.org>
parents:
44303
diff
changeset
|
3188 event.frame_or_window = mouse_window; |
228b881931ef
(dos_rawgetc): Generate SELECT_WINDOW_EVENTs when required.
Eli Zaretskii <eliz@gnu.org>
parents:
44303
diff
changeset
|
3189 event.arg = Qnil; |
228b881931ef
(dos_rawgetc): Generate SELECT_WINDOW_EVENTs when required.
Eli Zaretskii <eliz@gnu.org>
parents:
44303
diff
changeset
|
3190 event.timestamp = event_timestamp (); |
228b881931ef
(dos_rawgetc): Generate SELECT_WINDOW_EVENTs when required.
Eli Zaretskii <eliz@gnu.org>
parents:
44303
diff
changeset
|
3191 kbd_buffer_store_event (&event); |
43357
c89a11a2baf6
(x_autoselect_window_p): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
43236
diff
changeset
|
3192 } |
43363
bcefd6f01283
(last_mouse_window): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
43357
diff
changeset
|
3193 last_mouse_window = mouse_window; |
43357
c89a11a2baf6
(x_autoselect_window_p): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
43236
diff
changeset
|
3194 } |
43363
bcefd6f01283
(last_mouse_window): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
43357
diff
changeset
|
3195 else |
bcefd6f01283
(last_mouse_window): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
43357
diff
changeset
|
3196 last_mouse_window = Qnil; |
43371
263456abbeb0
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43363
diff
changeset
|
3197 |
50225
39746533995d
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
49600
diff
changeset
|
3198 previous_help_echo_string = help_echo_string; |
39746533995d
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
49600
diff
changeset
|
3199 help_echo_string = help_echo_object = help_echo_window = Qnil; |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3200 help_echo_pos = -1; |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
3201 IT_note_mouse_highlight (SELECTED_FRAME(), |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
3202 mouse_last_x, mouse_last_y); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
3203 /* If the contents of the global variable help_echo has |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
3204 changed, generate a HELP_EVENT. */ |
50225
39746533995d
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
49600
diff
changeset
|
3205 if (!NILP (help_echo_string) || !NILP (previous_help_echo_string)) |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
3206 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
3207 event.kind = HELP_EVENT; |
30180
c36d4c8b21b6
(dos_rawgetc): Adapt to change of HELP_EVENTs.
Gerd Moellmann <gerd@gnu.org>
parents:
30132
diff
changeset
|
3208 event.frame_or_window = selected_frame; |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3209 event.arg = help_echo_object; |
44525
440ce7bfcd77
(dos_rawgetc): Use a single event for HELP_EVENT.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44364
diff
changeset
|
3210 event.x = WINDOWP (help_echo_window) |
440ce7bfcd77
(dos_rawgetc): Use a single event for HELP_EVENT.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44364
diff
changeset
|
3211 ? help_echo_window : selected_frame; |
50225
39746533995d
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
49600
diff
changeset
|
3212 event.y = help_echo_string; |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3213 event.timestamp = event_timestamp (); |
44528
d5befc8ddce0
(dos_rawgetc): int/Lisp_Object confusion.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44525
diff
changeset
|
3214 event.code = help_echo_pos; |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
3215 kbd_buffer_store_event (&event); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
3216 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
3217 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
3218 |
13179 | 3219 for (but = 0; but < NUM_MOUSE_BUTTONS; but++) |
3220 for (press = 0; press < 2; press++) | |
3221 { | |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3222 int button_num = but; |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3223 |
13179 | 3224 if (press) |
3225 ok = mouse_pressed (but, &x, &y); | |
3226 else | |
3227 ok = mouse_released (but, &x, &y); | |
3228 if (ok) | |
3229 { | |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3230 /* Allow a simultaneous press/release of Mouse-1 and |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3231 Mouse-2 to simulate Mouse-3 on two-button mice. */ |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3232 if (mouse_button_count == 2 && but < 2) |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3233 { |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3234 int x2, y2; /* don't clobber original coordinates */ |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3235 |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3236 /* If only one button is pressed, wait 100 msec and |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3237 check again. This way, Speedy Gonzales isn't |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3238 punished, while the slow get their chance. */ |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3239 if (press && mouse_pressed (1-but, &x2, &y2) |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3240 || !press && mouse_released (1-but, &x2, &y2)) |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3241 button_num = 2; |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3242 else |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3243 { |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3244 delay (100); |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3245 if (press && mouse_pressed (1-but, &x2, &y2) |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3246 || !press && mouse_released (1-but, &x2, &y2)) |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3247 button_num = 2; |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3248 } |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3249 } |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3250 |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45332
diff
changeset
|
3251 event.kind = MOUSE_CLICK_EVENT; |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3252 event.code = button_num; |
13179 | 3253 event.modifiers = dos_get_modifiers (0) |
3254 | (press ? down_modifier : up_modifier); | |
56335
b6377908f1d4
(dos_rawgetc): Use make_number to produce Lisp objects
Eli Zaretskii <eliz@gnu.org>
parents:
55662
diff
changeset
|
3255 event.x = make_number (x); |
b6377908f1d4
(dos_rawgetc): Use make_number to produce Lisp objects
Eli Zaretskii <eliz@gnu.org>
parents:
55662
diff
changeset
|
3256 event.y = make_number (y); |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
3257 event.frame_or_window = selected_frame; |
30198
f39367e12c14
(dos_rawgetc): Always set `arg' member of input_events.
Gerd Moellmann <gerd@gnu.org>
parents:
30180
diff
changeset
|
3258 event.arg = Qnil; |
13179 | 3259 event.timestamp = event_timestamp (); |
3260 kbd_buffer_store_event (&event); | |
3261 } | |
3262 } | |
3263 } | |
5503 | 3264 |
13179 | 3265 return -1; |
9572 | 3266 } |
3267 | |
13179 | 3268 static int prev_get_char = -1; |
5503 | 3269 |
13179 | 3270 /* Return 1 if a key is ready to be read without suspending execution. */ |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
3271 int |
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
3272 dos_keysns (void) |
5503 | 3273 { |
13179 | 3274 if (prev_get_char != -1) |
3275 return 1; | |
3276 else | |
3277 return ((prev_get_char = dos_rawgetc ()) != -1); | |
5503 | 3278 } |
3279 | |
13179 | 3280 /* Read a key. Return -1 if no key is ready. */ |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
3281 int |
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
3282 dos_keyread (void) |
5503 | 3283 { |
13179 | 3284 if (prev_get_char != -1) |
8246
d48c2b01fba5
(mouse_init1): Use alternate mouse detection for old mouse drivers.
Richard M. Stallman <rms@gnu.org>
parents:
8194
diff
changeset
|
3285 { |
13179 | 3286 int c = prev_get_char; |
3287 prev_get_char = -1; | |
3288 return c; | |
8246
d48c2b01fba5
(mouse_init1): Use alternate mouse detection for old mouse drivers.
Richard M. Stallman <rms@gnu.org>
parents:
8194
diff
changeset
|
3289 } |
13179 | 3290 else |
3291 return dos_rawgetc (); | |
3292 } | |
13305
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
3293 |
9572 | 3294 #ifndef HAVE_X_WINDOWS |
50247
f9447a2e045c
* xdisp.c (pixel_to_glyph_coords, glyph_to_pixel_coords):
Kim F. Storm <storm@cua.dk>
parents:
50225
diff
changeset
|
3295 |
9572 | 3296 /* Simulation of X's menus. Nothing too fancy here -- just make it work |
3297 for now. | |
3298 | |
3299 Actually, I don't know the meaning of all the parameters of the functions | |
3300 here -- I only know how they are called by xmenu.c. I could of course | |
3301 grab the nearest Xlib manual (down the hall, second-to-last door on the | |
3302 left), but I don't think it's worth the effort. */ | |
3303 | |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3304 /* These hold text of the current and the previous menu help messages. */ |
27462
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3305 static char *menu_help_message, *prev_menu_help_message; |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3306 /* Pane number and item number of the menu item which generated the |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3307 last menu help message. */ |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3308 static int menu_help_paneno, menu_help_itemno; |
27462
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3309 |
9572 | 3310 static XMenu * |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
3311 IT_menu_create (void) |
9572 | 3312 { |
3313 XMenu *menu; | |
3314 | |
3315 menu = (XMenu *) xmalloc (sizeof (XMenu)); | |
3316 menu->allocated = menu->count = menu->panecount = menu->width = 0; | |
3317 return menu; | |
3318 } | |
3319 | |
3320 /* Allocate some (more) memory for MENU ensuring that there is room for one | |
3321 for item. */ | |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3322 |
9572 | 3323 static void |
3324 IT_menu_make_room (XMenu *menu) | |
3325 { | |
3326 if (menu->allocated == 0) | |
3327 { | |
3328 int count = menu->allocated = 10; | |
3329 menu->text = (char **) xmalloc (count * sizeof (char *)); | |
3330 menu->submenu = (XMenu **) xmalloc (count * sizeof (XMenu *)); | |
3331 menu->panenumber = (int *) xmalloc (count * sizeof (int)); | |
27462
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3332 menu->help_text = (char **) xmalloc (count * sizeof (char *)); |
9572 | 3333 } |
3334 else if (menu->allocated == menu->count) | |
3335 { | |
3336 int count = menu->allocated = menu->allocated + 10; | |
3337 menu->text | |
3338 = (char **) xrealloc (menu->text, count * sizeof (char *)); | |
3339 menu->submenu | |
3340 = (XMenu **) xrealloc (menu->submenu, count * sizeof (XMenu *)); | |
3341 menu->panenumber | |
3342 = (int *) xrealloc (menu->panenumber, count * sizeof (int)); | |
27462
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3343 menu->help_text |
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3344 = (char **) xrealloc (menu->help_text, count * sizeof (char *)); |
9572 | 3345 } |
3346 } | |
3347 | |
3348 /* Search the given menu structure for a given pane number. */ | |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3349 |
9572 | 3350 static XMenu * |
3351 IT_menu_search_pane (XMenu *menu, int pane) | |
3352 { | |
3353 int i; | |
3354 XMenu *try; | |
3355 | |
3356 for (i = 0; i < menu->count; i++) | |
3357 if (menu->submenu[i]) | |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3358 { |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3359 if (pane == menu->panenumber[i]) |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3360 return menu->submenu[i]; |
13179 | 3361 if ((try = IT_menu_search_pane (menu->submenu[i], pane))) |
9572 | 3362 return try; |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3363 } |
9572 | 3364 return (XMenu *) 0; |
3365 } | |
3366 | |
3367 /* Determine how much screen space a given menu needs. */ | |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3368 |
9572 | 3369 static void |
3370 IT_menu_calc_size (XMenu *menu, int *width, int *height) | |
3371 { | |
3372 int i, h2, w2, maxsubwidth, maxheight; | |
3373 | |
3374 maxsubwidth = 0; | |
3375 maxheight = menu->count; | |
3376 for (i = 0; i < menu->count; i++) | |
3377 { | |
3378 if (menu->submenu[i]) | |
3379 { | |
3380 IT_menu_calc_size (menu->submenu[i], &w2, &h2); | |
3381 if (w2 > maxsubwidth) maxsubwidth = w2; | |
3382 if (i + h2 > maxheight) maxheight = i + h2; | |
3383 } | |
3384 } | |
3385 *width = menu->width + maxsubwidth; | |
3386 *height = maxheight; | |
3387 } | |
3388 | |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3389 /* Display MENU at (X,Y) using FACES. */ |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3390 |
97903
fa91a1ebb701
(BUILD_CHAR_GLYPH): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
97873
diff
changeset
|
3391 #define BUILD_CHAR_GLYPH(GLYPH, CODE, FACE_ID, PADDING_P) \ |
fa91a1ebb701
(BUILD_CHAR_GLYPH): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
97873
diff
changeset
|
3392 do \ |
fa91a1ebb701
(BUILD_CHAR_GLYPH): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
97873
diff
changeset
|
3393 { \ |
fa91a1ebb701
(BUILD_CHAR_GLYPH): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
97873
diff
changeset
|
3394 (GLYPH).type = CHAR_GLYPH; \ |
fa91a1ebb701
(BUILD_CHAR_GLYPH): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
97873
diff
changeset
|
3395 SET_CHAR_GLYPH ((GLYPH), CODE, FACE_ID, PADDING_P); \ |
fa91a1ebb701
(BUILD_CHAR_GLYPH): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
97873
diff
changeset
|
3396 (GLYPH).charpos = -1; \ |
fa91a1ebb701
(BUILD_CHAR_GLYPH): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
97873
diff
changeset
|
3397 } \ |
fa91a1ebb701
(BUILD_CHAR_GLYPH): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
97873
diff
changeset
|
3398 while (0) |
fa91a1ebb701
(BUILD_CHAR_GLYPH): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
97873
diff
changeset
|
3399 |
9572 | 3400 static void |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3401 IT_menu_display (XMenu *menu, int y, int x, int pn, int *faces, int disp_help) |
9572 | 3402 { |
45332 | 3403 int i, j, face, width, mx, my, enabled, mousehere, row, col; |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
3404 struct glyph *text, *p; |
98030
5c5323a73e60
(IT_menu_display): Use STRING_CHAR_ADVANCE instead of a "char *q" to access
Eli Zaretskii <eliz@gnu.org>
parents:
97903
diff
changeset
|
3405 const unsigned char *q; |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
3406 struct frame *sf = SELECTED_FRAME(); |
9572 | 3407 |
27462
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3408 menu_help_message = NULL; |
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3409 |
9572 | 3410 width = menu->width; |
97903
fa91a1ebb701
(BUILD_CHAR_GLYPH): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
97873
diff
changeset
|
3411 /* We multiply width by 2 to account for possible control characters. |
fa91a1ebb701
(BUILD_CHAR_GLYPH): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
97873
diff
changeset
|
3412 FIXME: cater to non-ASCII characters in menus. */ |
fa91a1ebb701
(BUILD_CHAR_GLYPH): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
97873
diff
changeset
|
3413 text = (struct glyph *) xmalloc ((width * 2 + 2) * sizeof (struct glyph)); |
9572 | 3414 ScreenGetCursor (&row, &col); |
3415 mouse_get_xy (&mx, &my); | |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
3416 IT_update_begin (sf); |
9572 | 3417 for (i = 0; i < menu->count; i++) |
3418 { | |
27409
4df4f3866b55
(IT_menu_display): Truncate long menu lines at the right
Eli Zaretskii <eliz@gnu.org>
parents:
27046
diff
changeset
|
3419 int max_width = width + 2; |
4df4f3866b55
(IT_menu_display): Truncate long menu lines at the right
Eli Zaretskii <eliz@gnu.org>
parents:
27046
diff
changeset
|
3420 |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
3421 IT_cursor_to (sf, y + i, x); |
9572 | 3422 enabled |
3423 = (!menu->submenu[i] && menu->panenumber[i]) || (menu->submenu[i]); | |
97903
fa91a1ebb701
(BUILD_CHAR_GLYPH): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
97873
diff
changeset
|
3424 mousehere = (y + i == my && x <= mx && mx < x + max_width); |
9572 | 3425 face = faces[enabled + mousehere * 2]; |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3426 /* The following if clause means that we display the menu help |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3427 strings even if the menu item is currently disabled. */ |
27462
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3428 if (disp_help && enabled + mousehere * 2 >= 2) |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3429 { |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3430 menu_help_message = menu->help_text[i]; |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3431 menu_help_paneno = pn - 1; |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3432 menu_help_itemno = i; |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3433 } |
9572 | 3434 p = text; |
97903
fa91a1ebb701
(BUILD_CHAR_GLYPH): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
97873
diff
changeset
|
3435 BUILD_CHAR_GLYPH (*p, ' ', face, 0); |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
3436 p++; |
9572 | 3437 for (j = 0, q = menu->text[i]; *q; j++) |
15627
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3438 { |
98030
5c5323a73e60
(IT_menu_display): Use STRING_CHAR_ADVANCE instead of a "char *q" to access
Eli Zaretskii <eliz@gnu.org>
parents:
97903
diff
changeset
|
3439 unsigned c = STRING_CHAR_ADVANCE (q); |
5c5323a73e60
(IT_menu_display): Use STRING_CHAR_ADVANCE instead of a "char *q" to access
Eli Zaretskii <eliz@gnu.org>
parents:
97903
diff
changeset
|
3440 |
5c5323a73e60
(IT_menu_display): Use STRING_CHAR_ADVANCE instead of a "char *q" to access
Eli Zaretskii <eliz@gnu.org>
parents:
97903
diff
changeset
|
3441 if (c > 26) |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
3442 { |
98030
5c5323a73e60
(IT_menu_display): Use STRING_CHAR_ADVANCE instead of a "char *q" to access
Eli Zaretskii <eliz@gnu.org>
parents:
97903
diff
changeset
|
3443 BUILD_CHAR_GLYPH (*p, c, face, 0); |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
3444 p++; |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
3445 } |
15627
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3446 else /* make '^x' */ |
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3447 { |
97903
fa91a1ebb701
(BUILD_CHAR_GLYPH): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
97873
diff
changeset
|
3448 BUILD_CHAR_GLYPH (*p, '^', face, 0); |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
3449 p++; |
15627
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3450 j++; |
98030
5c5323a73e60
(IT_menu_display): Use STRING_CHAR_ADVANCE instead of a "char *q" to access
Eli Zaretskii <eliz@gnu.org>
parents:
97903
diff
changeset
|
3451 BUILD_CHAR_GLYPH (*p, c + 64, face, 0); |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
3452 p++; |
15627
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3453 } |
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3454 } |
27409
4df4f3866b55
(IT_menu_display): Truncate long menu lines at the right
Eli Zaretskii <eliz@gnu.org>
parents:
27046
diff
changeset
|
3455 /* Don't let the menu text overflow into the next screen row. */ |
4df4f3866b55
(IT_menu_display): Truncate long menu lines at the right
Eli Zaretskii <eliz@gnu.org>
parents:
27046
diff
changeset
|
3456 if (x + max_width > screen_size_X) |
4df4f3866b55
(IT_menu_display): Truncate long menu lines at the right
Eli Zaretskii <eliz@gnu.org>
parents:
27046
diff
changeset
|
3457 { |
4df4f3866b55
(IT_menu_display): Truncate long menu lines at the right
Eli Zaretskii <eliz@gnu.org>
parents:
27046
diff
changeset
|
3458 max_width = screen_size_X - x; |
4df4f3866b55
(IT_menu_display): Truncate long menu lines at the right
Eli Zaretskii <eliz@gnu.org>
parents:
27046
diff
changeset
|
3459 text[max_width - 1].u.ch = '$'; /* indicate it's truncated */ |
4df4f3866b55
(IT_menu_display): Truncate long menu lines at the right
Eli Zaretskii <eliz@gnu.org>
parents:
27046
diff
changeset
|
3460 } |
4df4f3866b55
(IT_menu_display): Truncate long menu lines at the right
Eli Zaretskii <eliz@gnu.org>
parents:
27046
diff
changeset
|
3461 for (; j < max_width - 2; j++, p++) |
97903
fa91a1ebb701
(BUILD_CHAR_GLYPH): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
97873
diff
changeset
|
3462 BUILD_CHAR_GLYPH (*p, ' ', face, 0); |
fa91a1ebb701
(BUILD_CHAR_GLYPH): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
97873
diff
changeset
|
3463 |
98030
5c5323a73e60
(IT_menu_display): Use STRING_CHAR_ADVANCE instead of a "char *q" to access
Eli Zaretskii <eliz@gnu.org>
parents:
97903
diff
changeset
|
3464 /* 16 is the character code of a character that on DOS terminal |
5c5323a73e60
(IT_menu_display): Use STRING_CHAR_ADVANCE instead of a "char *q" to access
Eli Zaretskii <eliz@gnu.org>
parents:
97903
diff
changeset
|
3465 produces a nice-looking right-pointing arrow glyph. */ |
5c5323a73e60
(IT_menu_display): Use STRING_CHAR_ADVANCE instead of a "char *q" to access
Eli Zaretskii <eliz@gnu.org>
parents:
97903
diff
changeset
|
3466 BUILD_CHAR_GLYPH (*p, menu->submenu[i] ? 16 : ' ', face, 0); |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
3467 p++; |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
3468 IT_write_glyphs (sf, text, max_width); |
9572 | 3469 } |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
3470 IT_update_end (sf); |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
3471 IT_cursor_to (sf, row, col); |
9572 | 3472 xfree (text); |
3473 } | |
13848
5f38596d591e
(have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
13744
diff
changeset
|
3474 |
5f38596d591e
(have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
13744
diff
changeset
|
3475 /* --------------------------- X Menu emulation ---------------------- */ |
9572 | 3476 |
13848
5f38596d591e
(have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
13744
diff
changeset
|
3477 /* Report availability of menus. */ |
5f38596d591e
(have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
13744
diff
changeset
|
3478 |
5f38596d591e
(have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
13744
diff
changeset
|
3479 int |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
3480 have_menus_p (void) { return 1; } |
13179 | 3481 |
9572 | 3482 /* Create a brand new menu structure. */ |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3483 |
9572 | 3484 XMenu * |
10501
19c4a9ef23e5
(XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3485 XMenuCreate (Display *foo1, Window foo2, char *foo3) |
9572 | 3486 { |
3487 return IT_menu_create (); | |
3488 } | |
3489 | |
3490 /* Create a new pane and place it on the outer-most level. It is not | |
3491 clear that it should be placed out there, but I don't know what else | |
3492 to do. */ | |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3493 |
9572 | 3494 int |
10501
19c4a9ef23e5
(XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3495 XMenuAddPane (Display *foo, XMenu *menu, char *txt, int enable) |
9572 | 3496 { |
3497 int len; | |
15627
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3498 char *p; |
9572 | 3499 |
3500 if (!enable) | |
3501 abort (); | |
3502 | |
3503 IT_menu_make_room (menu); | |
3504 menu->submenu[menu->count] = IT_menu_create (); | |
3505 menu->text[menu->count] = txt; | |
3506 menu->panenumber[menu->count] = ++menu->panecount; | |
27462
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3507 menu->help_text[menu->count] = NULL; |
9572 | 3508 menu->count++; |
15627
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3509 |
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3510 /* Adjust length for possible control characters (which will |
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3511 be written as ^x). */ |
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3512 for (len = strlen (txt), p = txt; *p; p++) |
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3513 if (*p < 27) |
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3514 len++; |
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3515 |
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3516 if (len > menu->width) |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3517 menu->width = len; |
15627
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3518 |
9572 | 3519 return menu->panecount; |
3520 } | |
3521 | |
3522 /* Create a new item in a menu pane. */ | |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3523 |
9572 | 3524 int |
10501
19c4a9ef23e5
(XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3525 XMenuAddSelection (Display *bar, XMenu *menu, int pane, |
27462
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3526 int foo, char *txt, int enable, char *help_text) |
9572 | 3527 { |
3528 int len; | |
15627
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3529 char *p; |
9572 | 3530 |
3531 if (pane) | |
3532 if (!(menu = IT_menu_search_pane (menu, pane))) | |
3533 return XM_FAILURE; | |
3534 IT_menu_make_room (menu); | |
3535 menu->submenu[menu->count] = (XMenu *) 0; | |
3536 menu->text[menu->count] = txt; | |
3537 menu->panenumber[menu->count] = enable; | |
27462
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3538 menu->help_text[menu->count] = help_text; |
9572 | 3539 menu->count++; |
15627
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3540 |
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3541 /* Adjust length for possible control characters (which will |
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3542 be written as ^x). */ |
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3543 for (len = strlen (txt), p = txt; *p; p++) |
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3544 if (*p < 27) |
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3545 len++; |
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3546 |
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3547 if (len > menu->width) |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3548 menu->width = len; |
15627
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3549 |
9572 | 3550 return XM_SUCCESS; |
3551 } | |
3552 | |
3553 /* Decide where the menu would be placed if requested at (X,Y). */ | |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3554 |
10501
19c4a9ef23e5
(XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3555 void |
19c4a9ef23e5
(XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3556 XMenuLocate (Display *foo0, XMenu *menu, int foo1, int foo2, int x, int y, |
9572 | 3557 int *ulx, int *uly, int *width, int *height) |
3558 { | |
13714
45e71ea63d71
(XMenuActivate): Display the menu pane title.
Karl Heuer <kwzh@gnu.org>
parents:
13657
diff
changeset
|
3559 IT_menu_calc_size (menu, width, height); |
9572 | 3560 *ulx = x + 1; |
3561 *uly = y; | |
3562 *width += 2; | |
3563 } | |
3564 | |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3565 struct IT_menu_state |
9572 | 3566 { |
3567 void *screen_behind; | |
3568 XMenu *menu; | |
3569 int pane; | |
3570 int x, y; | |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3571 }; |
9572 | 3572 |
3573 | |
3574 /* Display menu, wait for user's response, and return that response. */ | |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3575 |
9572 | 3576 int |
10501
19c4a9ef23e5
(XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3577 XMenuActivate (Display *foo, XMenu *menu, int *pane, int *selidx, |
27462
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3578 int x0, int y0, unsigned ButtonMask, char **txt, |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3579 void (*help_callback)(char *, int, int)) |
9572 | 3580 { |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3581 struct IT_menu_state *state; |
45332 | 3582 int statecount, x, y, i, b, screensize, leave, result, onepane; |
13860
659a54e026bb
(XMenuActivate): Make sure the menu title is always
Richard M. Stallman <rms@gnu.org>
parents:
13848
diff
changeset
|
3583 int title_faces[4]; /* face to display the menu title */ |
45332 | 3584 int faces[4], buffers_num_deleted = 0; |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
3585 struct frame *sf = SELECTED_FRAME(); |
45332 | 3586 Lisp_Object saved_echo_area_message, selectface; |
9572 | 3587 |
3588 /* Just in case we got here without a mouse present... */ | |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3589 if (have_mouse <= 0) |
9572 | 3590 return XM_IA_SELECT; |
16871
45a12f628d3f
* (XMenuActivate): Don't allow non-positive menu
Eli Zaretskii <eliz@gnu.org>
parents:
16837
diff
changeset
|
3591 /* Don't allow non-positive x0 and y0, lest the menu will wrap |
45a12f628d3f
* (XMenuActivate): Don't allow non-positive menu
Eli Zaretskii <eliz@gnu.org>
parents:
16837
diff
changeset
|
3592 around the display. */ |
45a12f628d3f
* (XMenuActivate): Don't allow non-positive menu
Eli Zaretskii <eliz@gnu.org>
parents:
16837
diff
changeset
|
3593 if (x0 <= 0) |
45a12f628d3f
* (XMenuActivate): Don't allow non-positive menu
Eli Zaretskii <eliz@gnu.org>
parents:
16837
diff
changeset
|
3594 x0 = 1; |
45a12f628d3f
* (XMenuActivate): Don't allow non-positive menu
Eli Zaretskii <eliz@gnu.org>
parents:
16837
diff
changeset
|
3595 if (y0 <= 0) |
45a12f628d3f
* (XMenuActivate): Don't allow non-positive menu
Eli Zaretskii <eliz@gnu.org>
parents:
16837
diff
changeset
|
3596 y0 = 1; |
9572 | 3597 |
23497
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3598 /* We will process all the mouse events directly, so we had |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3599 better prevent dos_rawgetc from stealing them from us. */ |
23497
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3600 mouse_preempted++; |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3601 |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3602 state = alloca (menu->panecount * sizeof (struct IT_menu_state)); |
13179 | 3603 screensize = screen_size * 2; |
9572 | 3604 faces[0] |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
3605 = lookup_derived_face (sf, intern ("msdos-menu-passive-face"), |
90128
13796b0653c7
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-29
Miles Bader <miles@gnu.org>
diff
changeset
|
3606 DEFAULT_FACE_ID, 1); |
9572 | 3607 faces[1] |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
3608 = lookup_derived_face (sf, intern ("msdos-menu-active-face"), |
90128
13796b0653c7
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-29
Miles Bader <miles@gnu.org>
diff
changeset
|
3609 DEFAULT_FACE_ID, 1); |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
3610 selectface = intern ("msdos-menu-select-face"); |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
3611 faces[2] = lookup_derived_face (sf, selectface, |
90128
13796b0653c7
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-29
Miles Bader <miles@gnu.org>
diff
changeset
|
3612 faces[0], 1); |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
3613 faces[3] = lookup_derived_face (sf, selectface, |
90128
13796b0653c7
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-29
Miles Bader <miles@gnu.org>
diff
changeset
|
3614 faces[1], 1); |
9572 | 3615 |
13860
659a54e026bb
(XMenuActivate): Make sure the menu title is always
Richard M. Stallman <rms@gnu.org>
parents:
13848
diff
changeset
|
3616 /* Make sure the menu title is always displayed with |
659a54e026bb
(XMenuActivate): Make sure the menu title is always
Richard M. Stallman <rms@gnu.org>
parents:
13848
diff
changeset
|
3617 `msdos-menu-active-face', no matter where the mouse pointer is. */ |
659a54e026bb
(XMenuActivate): Make sure the menu title is always
Richard M. Stallman <rms@gnu.org>
parents:
13848
diff
changeset
|
3618 for (i = 0; i < 4; i++) |
659a54e026bb
(XMenuActivate): Make sure the menu title is always
Richard M. Stallman <rms@gnu.org>
parents:
13848
diff
changeset
|
3619 title_faces[i] = faces[3]; |
659a54e026bb
(XMenuActivate): Make sure the menu title is always
Richard M. Stallman <rms@gnu.org>
parents:
13848
diff
changeset
|
3620 |
9572 | 3621 statecount = 1; |
15387
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
3622 |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
3623 /* Don't let the title for the "Buffers" popup menu include a |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
3624 digit (which is ugly). |
45332 | 3625 |
15387
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
3626 This is a terrible kludge, but I think the "Buffers" case is |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
3627 the only one where the title includes a number, so it doesn't |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
3628 seem to be necessary to make this more general. */ |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
3629 if (strncmp (menu->text[0], "Buffers 1", 9) == 0) |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
3630 { |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
3631 menu->text[0][7] = '\0'; |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
3632 buffers_num_deleted = 1; |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
3633 } |
30132
5d20e989c3d4
(XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents:
30050
diff
changeset
|
3634 |
5d20e989c3d4
(XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents:
30050
diff
changeset
|
3635 /* We need to save the current echo area message, so that we could |
5d20e989c3d4
(XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents:
30050
diff
changeset
|
3636 restore it below, before we exit. See the commentary below, |
5d20e989c3d4
(XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents:
30050
diff
changeset
|
3637 before the call to message_with_string. */ |
5d20e989c3d4
(XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents:
30050
diff
changeset
|
3638 saved_echo_area_message = Fcurrent_message (); |
9572 | 3639 state[0].menu = menu; |
3640 mouse_off (); | |
3641 ScreenRetrieve (state[0].screen_behind = xmalloc (screensize)); | |
13714
45e71ea63d71
(XMenuActivate): Display the menu pane title.
Karl Heuer <kwzh@gnu.org>
parents:
13657
diff
changeset
|
3642 |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
3643 /* Turn off the cursor. Otherwise it shows through the menu |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
3644 panes, which is ugly. */ |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
3645 IT_display_cursor (0); |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
3646 |
27462
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3647 /* Display the menu title. */ |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3648 IT_menu_display (menu, y0 - 1, x0 - 1, 1, title_faces, 0); |
15387
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
3649 if (buffers_num_deleted) |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
3650 menu->text[0][7] = ' '; |
9572 | 3651 if ((onepane = menu->count == 1 && menu->submenu[0])) |
3652 { | |
3653 menu->width = menu->submenu[0]->width; | |
3654 state[0].menu = menu->submenu[0]; | |
3655 } | |
3656 else | |
3657 { | |
3658 state[0].menu = menu; | |
3659 } | |
3660 state[0].x = x0 - 1; | |
3661 state[0].y = y0; | |
3662 state[0].pane = onepane; | |
3663 | |
3664 mouse_last_x = -1; /* A hack that forces display. */ | |
3665 leave = 0; | |
3666 while (!leave) | |
3667 { | |
13179 | 3668 if (!mouse_visible) mouse_on (); |
9572 | 3669 mouse_check_moved (); |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
3670 if (sf->mouse_moved) |
9572 | 3671 { |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
3672 sf->mouse_moved = 0; |
9572 | 3673 result = XM_IA_SELECT; |
3674 mouse_get_xy (&x, &y); | |
3675 for (i = 0; i < statecount; i++) | |
3676 if (state[i].x <= x && x < state[i].x + state[i].menu->width + 2) | |
3677 { | |
3678 int dy = y - state[i].y; | |
3679 if (0 <= dy && dy < state[i].menu->count) | |
3680 { | |
3681 if (!state[i].menu->submenu[dy]) | |
3682 if (state[i].menu->panenumber[dy]) | |
3683 result = XM_SUCCESS; | |
3684 else | |
3685 result = XM_IA_SELECT; | |
3686 *pane = state[i].pane - 1; | |
3687 *selidx = dy; | |
14036 | 3688 /* We hit some part of a menu, so drop extra menus that |
9572 | 3689 have been opened. That does not include an open and |
3690 active submenu. */ | |
3691 if (i != statecount - 2 | |
3692 || state[i].menu->submenu[dy] != state[i+1].menu) | |
3693 while (i != statecount - 1) | |
3694 { | |
3695 statecount--; | |
3696 mouse_off (); | |
3697 ScreenUpdate (state[statecount].screen_behind); | |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
3698 if (screen_virtual_segment) |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
3699 dosv_refresh_virtual_screen (0, screen_size); |
9572 | 3700 xfree (state[statecount].screen_behind); |
3701 } | |
3702 if (i == statecount - 1 && state[i].menu->submenu[dy]) | |
3703 { | |
3704 IT_menu_display (state[i].menu, | |
3705 state[i].y, | |
3706 state[i].x, | |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3707 state[i].pane, |
27462
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3708 faces, 1); |
9572 | 3709 state[statecount].menu = state[i].menu->submenu[dy]; |
3710 state[statecount].pane = state[i].menu->panenumber[dy]; | |
3711 mouse_off (); | |
3712 ScreenRetrieve (state[statecount].screen_behind | |
3713 = xmalloc (screensize)); | |
3714 state[statecount].x | |
3715 = state[i].x + state[i].menu->width + 2; | |
3716 state[statecount].y = y; | |
45332 | 3717 statecount++; |
9572 | 3718 } |
3719 } | |
3720 } | |
3721 IT_menu_display (state[statecount - 1].menu, | |
3722 state[statecount - 1].y, | |
3723 state[statecount - 1].x, | |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3724 state[statecount - 1].pane, |
27462
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3725 faces, 1); |
9572 | 3726 } |
23497
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3727 else |
27462
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3728 { |
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3729 if ((menu_help_message || prev_menu_help_message) |
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3730 && menu_help_message != prev_menu_help_message) |
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3731 { |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3732 help_callback (menu_help_message, |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3733 menu_help_paneno, menu_help_itemno); |
27640
4ce3be69ca1f
(XMenuActivate): Turn off the cursor after displaying
Eli Zaretskii <eliz@gnu.org>
parents:
27462
diff
changeset
|
3734 IT_display_cursor (0); |
27462
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3735 prev_menu_help_message = menu_help_message; |
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3736 } |
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3737 /* We are busy-waiting for the mouse to move, so let's be nice |
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3738 to other Windows applications by releasing our time slice. */ |
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3739 __dpmi_yield (); |
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3740 } |
23497
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3741 for (b = 0; b < mouse_button_count && !leave; b++) |
9572 | 3742 { |
23497
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3743 /* Only leave if user both pressed and released the mouse, and in |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3744 that order. This avoids popping down the menu pane unless |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3745 the user is really done with it. */ |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3746 if (mouse_pressed (b, &x, &y)) |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3747 { |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3748 while (mouse_button_depressed (b, &x, &y)) |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3749 __dpmi_yield (); |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3750 leave = 1; |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3751 } |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3752 (void) mouse_released (b, &x, &y); |
9572 | 3753 } |
3754 } | |
3755 | |
3756 mouse_off (); | |
3757 ScreenUpdate (state[0].screen_behind); | |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
3758 if (screen_virtual_segment) |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
3759 dosv_refresh_virtual_screen (0, screen_size); |
30132
5d20e989c3d4
(XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents:
30050
diff
changeset
|
3760 |
5d20e989c3d4
(XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents:
30050
diff
changeset
|
3761 /* We have a situation here. ScreenUpdate has just restored the |
5d20e989c3d4
(XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents:
30050
diff
changeset
|
3762 screen contents as it was before we started drawing this menu. |
5d20e989c3d4
(XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents:
30050
diff
changeset
|
3763 That includes any echo area message that could have been |
5d20e989c3d4
(XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents:
30050
diff
changeset
|
3764 displayed back then. (In reality, that echo area message will |
5d20e989c3d4
(XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents:
30050
diff
changeset
|
3765 almost always be the ``keystroke echo'' that echoes the sequence |
5d20e989c3d4
(XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents:
30050
diff
changeset
|
3766 of menu items chosen by the user.) However, if the menu had some |
5d20e989c3d4
(XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents:
30050
diff
changeset
|
3767 help messages, then displaying those messages caused Emacs to |
5d20e989c3d4
(XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents:
30050
diff
changeset
|
3768 forget about the original echo area message. So when |
5d20e989c3d4
(XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents:
30050
diff
changeset
|
3769 ScreenUpdate restored it, it created a discrepancy between the |
5d20e989c3d4
(XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents:
30050
diff
changeset
|
3770 actual screen contents and what Emacs internal data structures |
5d20e989c3d4
(XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents:
30050
diff
changeset
|
3771 know about it. |
5d20e989c3d4
(XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents:
30050
diff
changeset
|
3772 |
5d20e989c3d4
(XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents:
30050
diff
changeset
|
3773 To avoid this conflict, we force Emacs to restore the original |
5d20e989c3d4
(XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents:
30050
diff
changeset
|
3774 echo area message as we found it when we entered this function. |
5d20e989c3d4
(XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents:
30050
diff
changeset
|
3775 The irony of this is that we then erase the restored message |
5d20e989c3d4
(XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents:
30050
diff
changeset
|
3776 right away, so the only purpose of restoring it is so that |
5d20e989c3d4
(XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents:
30050
diff
changeset
|
3777 erasing it works correctly... */ |
5d20e989c3d4
(XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents:
30050
diff
changeset
|
3778 if (! NILP (saved_echo_area_message)) |
5d20e989c3d4
(XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents:
30050
diff
changeset
|
3779 message_with_string ("%s", saved_echo_area_message, 0); |
27462
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3780 message (0); |
9572 | 3781 while (statecount--) |
3782 xfree (state[statecount].screen_behind); | |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
3783 IT_display_cursor (1); /* turn cursor back on */ |
23497
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3784 /* Clean up any mouse events that are waiting inside Emacs event queue. |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3785 These events are likely to be generated before the menu was even |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3786 displayed, probably because the user pressed and released the button |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3787 (which invoked the menu) too quickly. If we don't remove these events, |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3788 Emacs will process them after we return and surprise the user. */ |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3789 discard_mouse_events (); |
30711 | 3790 mouse_clear_clicks (); |
3791 if (!kbd_buffer_events_waiting (1)) | |
3792 clear_input_pending (); | |
23497
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3793 /* Allow mouse events generation by dos_rawgetc. */ |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3794 mouse_preempted--; |
9572 | 3795 return result; |
3796 } | |
3797 | |
3798 /* Dispose of a menu. */ | |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3799 |
10501
19c4a9ef23e5
(XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3800 void |
19c4a9ef23e5
(XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3801 XMenuDestroy (Display *foo, XMenu *menu) |
9572 | 3802 { |
3803 int i; | |
3804 if (menu->allocated) | |
3805 { | |
3806 for (i = 0; i < menu->count; i++) | |
3807 if (menu->submenu[i]) | |
10501
19c4a9ef23e5
(XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3808 XMenuDestroy (foo, menu->submenu[i]); |
9572 | 3809 xfree (menu->text); |
3810 xfree (menu->submenu); | |
3811 xfree (menu->panenumber); | |
27462
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3812 xfree (menu->help_text); |
9572 | 3813 } |
3814 xfree (menu); | |
27462
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3815 menu_help_message = prev_menu_help_message = NULL; |
9572 | 3816 } |
3817 | |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3818 int |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3819 x_pixel_width (struct frame *f) |
9572 | 3820 { |
51201
df6e2df16eb0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50247
diff
changeset
|
3821 return FRAME_COLS (f); |
9572 | 3822 } |
3823 | |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3824 int |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3825 x_pixel_height (struct frame *f) |
9572 | 3826 { |
51201
df6e2df16eb0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50247
diff
changeset
|
3827 return FRAME_LINES (f); |
9572 | 3828 } |
3829 #endif /* !HAVE_X_WINDOWS */ | |
13848
5f38596d591e
(have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
13744
diff
changeset
|
3830 |
13179 | 3831 /* ----------------------- DOS / UNIX conversion --------------------- */ |
3832 | |
15618
5da6a61ce827
(dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents:
15588
diff
changeset
|
3833 void msdos_downcase_filename (unsigned char *); |
5da6a61ce827
(dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents:
15588
diff
changeset
|
3834 |
13179 | 3835 /* Destructively turn backslashes into slashes. */ |
3836 | |
3837 void | |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
3838 dostounix_filename (char *p) |
13179 | 3839 { |
15618
5da6a61ce827
(dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents:
15588
diff
changeset
|
3840 msdos_downcase_filename (p); |
5da6a61ce827
(dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents:
15588
diff
changeset
|
3841 |
13179 | 3842 while (*p) |
3843 { | |
3844 if (*p == '\\') | |
3845 *p = '/'; | |
3846 p++; | |
3847 } | |
3848 } | |
3849 | |
3850 /* Destructively turn slashes into backslashes. */ | |
3851 | |
3852 void | |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
3853 unixtodos_filename (char *p) |
13179 | 3854 { |
15618
5da6a61ce827
(dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents:
15588
diff
changeset
|
3855 if (p[1] == ':' && *p >= 'A' && *p <= 'Z') |
5da6a61ce827
(dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents:
15588
diff
changeset
|
3856 { |
5da6a61ce827
(dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents:
15588
diff
changeset
|
3857 *p += 'a' - 'A'; |
5da6a61ce827
(dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents:
15588
diff
changeset
|
3858 p += 2; |
5da6a61ce827
(dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents:
15588
diff
changeset
|
3859 } |
5da6a61ce827
(dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents:
15588
diff
changeset
|
3860 |
13179 | 3861 while (*p) |
3862 { | |
3863 if (*p == '/') | |
3864 *p = '\\'; | |
3865 p++; | |
3866 } | |
3867 } | |
3868 | |
3869 /* Get the default directory for a given drive. 0=def, 1=A, 2=B, ... */ | |
3870 | |
3871 int | |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
3872 getdefdir (int drive, char *dst) |
13179 | 3873 { |
77906
a33e69b10eed
(getdefdir): Delete stray semicolon.
Chong Yidong <cyd@stupidchicken.com>
parents:
75348
diff
changeset
|
3874 char in_path[4], *p = in_path, e = errno; |
15125
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
3875 |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
3876 /* Generate "X:." (when drive is X) or "." (when drive is 0). */ |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
3877 if (drive != 0) |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
3878 { |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
3879 *p++ = drive + 'A' - 1; |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
3880 *p++ = ':'; |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
3881 } |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
3882 |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
3883 *p++ = '.'; |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
3884 *p = '\0'; |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
3885 errno = 0; |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
3886 _fixpath (in_path, dst); |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
3887 /* _fixpath can set errno to ENOSYS on non-LFN systems because |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
3888 it queries the LFN support, so ignore that error. */ |
25100
2e3da138463f
(getdefdir): Don't return failure indication when
Eli Zaretskii <eliz@gnu.org>
parents:
24680
diff
changeset
|
3889 if ((errno && errno != ENOSYS) || *dst == '\0') |
15125
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
3890 return 0; |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
3891 |
15219
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
3892 msdos_downcase_filename (dst); |
15125
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
3893 |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
3894 errno = e; |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
3895 return 1; |
13179 | 3896 } |
3897 | |
42192
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
3898 char * |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
3899 emacs_root_dir (void) |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
3900 { |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
3901 static char root_dir[4]; |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
3902 |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
3903 sprintf (root_dir, "%c:/", 'A' + getdisk ()); |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
3904 root_dir[0] = tolower (root_dir[0]); |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
3905 return root_dir; |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
3906 } |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
3907 |
13179 | 3908 /* Remove all CR's that are followed by a LF. */ |
3909 | |
3910 int | |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
3911 crlf_to_lf (int n, unsigned char *buf) |
13179 | 3912 { |
45332 | 3913 unsigned char *np = buf, *startp = buf, *endp = buf + n; |
13179 | 3914 |
3915 if (n == 0) | |
3916 return n; | |
3917 while (buf < endp - 1) | |
3918 { | |
3919 if (*buf == 0x0d) | |
3920 { | |
3921 if (*(++buf) != 0x0a) | |
3922 *np++ = 0x0d; | |
3923 } | |
3924 else | |
3925 *np++ = *buf++; | |
3926 } | |
3927 if (buf < endp) | |
3928 *np++ = *buf++; | |
3929 return np - startp; | |
3930 } | |
14999 | 3931 |
15174
08937f70419e
(Fmsdos_long_file_names): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15125
diff
changeset
|
3932 DEFUN ("msdos-long-file-names", Fmsdos_long_file_names, Smsdos_long_file_names, |
41940
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41406
diff
changeset
|
3933 0, 0, 0, |
99540
c5c8f07bc47c
* w32-fns.el (w32-shell-dos-semantics):
Juanma Barranquero <lekktu@gmail.com>
parents:
98030
diff
changeset
|
3934 doc: /* Return non-nil if long file names are supported on MS-DOS. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
3935 (void) |
15174
08937f70419e
(Fmsdos_long_file_names): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15125
diff
changeset
|
3936 { |
08937f70419e
(Fmsdos_long_file_names): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15125
diff
changeset
|
3937 return (_USE_LFN ? Qt : Qnil); |
08937f70419e
(Fmsdos_long_file_names): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15125
diff
changeset
|
3938 } |
15219
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
3939 |
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
3940 /* Convert alphabetic characters in a filename to lower-case. */ |
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
3941 |
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
3942 void |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
3943 msdos_downcase_filename (unsigned char *p) |
15219
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
3944 { |
15588 | 3945 /* Always lower-case drive letters a-z, even if the filesystem |
3946 preserves case in filenames. | |
3947 This is so MSDOS filenames could be compared by string comparison | |
3948 functions that are case-sensitive. Even case-preserving filesystems | |
3949 do not distinguish case in drive letters. */ | |
3950 if (p[1] == ':' && *p >= 'A' && *p <= 'Z') | |
3951 { | |
3952 *p += 'a' - 'A'; | |
3953 p += 2; | |
3954 } | |
3955 | |
15219
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
3956 /* Under LFN we expect to get pathnames in their true case. */ |
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
3957 if (NILP (Fmsdos_long_file_names ())) |
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
3958 for ( ; *p; p++) |
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
3959 if (*p >= 'A' && *p <= 'Z') |
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
3960 *p += 'a' - 'A'; |
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
3961 } |
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
3962 |
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
3963 DEFUN ("msdos-downcase-filename", Fmsdos_downcase_filename, Smsdos_downcase_filename, |
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
3964 1, 1, 0, |
41940
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41406
diff
changeset
|
3965 doc: /* Convert alphabetic characters in FILENAME to lower case and return that. |
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41406
diff
changeset
|
3966 When long filenames are supported, doesn't change FILENAME. |
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41406
diff
changeset
|
3967 If FILENAME is not a string, returns nil. |
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41406
diff
changeset
|
3968 The argument object is never altered--the value is a copy. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
3969 (Lisp_Object filename) |
15219
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
3970 { |
15222
cc264dd966cd
(Fmsdos_downcase_filename): Don't change the argument, return a copy.
Richard M. Stallman <rms@gnu.org>
parents:
15219
diff
changeset
|
3971 Lisp_Object tem; |
cc264dd966cd
(Fmsdos_downcase_filename): Don't change the argument, return a copy.
Richard M. Stallman <rms@gnu.org>
parents:
15219
diff
changeset
|
3972 |
cc264dd966cd
(Fmsdos_downcase_filename): Don't change the argument, return a copy.
Richard M. Stallman <rms@gnu.org>
parents:
15219
diff
changeset
|
3973 if (! STRINGP (filename)) |
cc264dd966cd
(Fmsdos_downcase_filename): Don't change the argument, return a copy.
Richard M. Stallman <rms@gnu.org>
parents:
15219
diff
changeset
|
3974 return Qnil; |
cc264dd966cd
(Fmsdos_downcase_filename): Don't change the argument, return a copy.
Richard M. Stallman <rms@gnu.org>
parents:
15219
diff
changeset
|
3975 |
cc264dd966cd
(Fmsdos_downcase_filename): Don't change the argument, return a copy.
Richard M. Stallman <rms@gnu.org>
parents:
15219
diff
changeset
|
3976 tem = Fcopy_sequence (filename); |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46272
diff
changeset
|
3977 msdos_downcase_filename (SDATA (tem)); |
15222
cc264dd966cd
(Fmsdos_downcase_filename): Don't change the argument, return a copy.
Richard M. Stallman <rms@gnu.org>
parents:
15219
diff
changeset
|
3978 return tem; |
15219
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
3979 } |
13179 | 3980 |
3981 /* The Emacs root directory as determined by init_environment. */ | |
3982 | |
3983 static char emacsroot[MAXPATHLEN]; | |
3984 | |
3985 char * | |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
3986 rootrelativepath (char *rel) |
13179 | 3987 { |
3988 static char result[MAXPATHLEN + 10]; | |
3989 | |
3990 strcpy (result, emacsroot); | |
3991 strcat (result, "/"); | |
3992 strcat (result, rel); | |
3993 return result; | |
3994 } | |
3995 | |
3996 /* Define a lot of environment variables if not already defined. Don't | |
3997 remove anything unless you know what you're doing -- lots of code will | |
3998 break if one or more of these are missing. */ | |
3999 | |
4000 void | |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
4001 init_environment (int argc, char **argv, int skip_args) |
13179 | 4002 { |
4003 char *s, *t, *root; | |
45332 | 4004 int len, i; |
22054
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4005 static const char * const tempdirs[] = { |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4006 "$TMPDIR", "$TEMP", "$TMP", "c:/" |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4007 }; |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4008 const int imax = sizeof (tempdirs) / sizeof (tempdirs[0]); |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4009 |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4010 /* Make sure they have a usable $TMPDIR. Many Emacs functions use |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4011 temporary files and assume "/tmp" if $TMPDIR is unset, which |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4012 will break on DOS/Windows. Refuse to work if we cannot find |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4013 a directory, not even "c:/", usable for that purpose. */ |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4014 for (i = 0; i < imax ; i++) |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4015 { |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4016 const char *tmp = tempdirs[i]; |
55198
dabd7326e596
(init_environment): If one of the TMP... environment
Eli Zaretskii <eliz@gnu.org>
parents:
54730
diff
changeset
|
4017 char buf[FILENAME_MAX]; |
22054
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4018 |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4019 if (*tmp == '$') |
55198
dabd7326e596
(init_environment): If one of the TMP... environment
Eli Zaretskii <eliz@gnu.org>
parents:
54730
diff
changeset
|
4020 { |
dabd7326e596
(init_environment): If one of the TMP... environment
Eli Zaretskii <eliz@gnu.org>
parents:
54730
diff
changeset
|
4021 int tmp_len; |
dabd7326e596
(init_environment): If one of the TMP... environment
Eli Zaretskii <eliz@gnu.org>
parents:
54730
diff
changeset
|
4022 |
dabd7326e596
(init_environment): If one of the TMP... environment
Eli Zaretskii <eliz@gnu.org>
parents:
54730
diff
changeset
|
4023 tmp = getenv (tmp + 1); |
dabd7326e596
(init_environment): If one of the TMP... environment
Eli Zaretskii <eliz@gnu.org>
parents:
54730
diff
changeset
|
4024 if (!tmp) |
dabd7326e596
(init_environment): If one of the TMP... environment
Eli Zaretskii <eliz@gnu.org>
parents:
54730
diff
changeset
|
4025 continue; |
dabd7326e596
(init_environment): If one of the TMP... environment
Eli Zaretskii <eliz@gnu.org>
parents:
54730
diff
changeset
|
4026 |
dabd7326e596
(init_environment): If one of the TMP... environment
Eli Zaretskii <eliz@gnu.org>
parents:
54730
diff
changeset
|
4027 /* Some lusers set TMPDIR=e:, probably because some losing |
dabd7326e596
(init_environment): If one of the TMP... environment
Eli Zaretskii <eliz@gnu.org>
parents:
54730
diff
changeset
|
4028 programs cannot handle multiple slashes if they use e:/. |
dabd7326e596
(init_environment): If one of the TMP... environment
Eli Zaretskii <eliz@gnu.org>
parents:
54730
diff
changeset
|
4029 e: fails in `access' below, so we interpret e: as e:/. */ |
dabd7326e596
(init_environment): If one of the TMP... environment
Eli Zaretskii <eliz@gnu.org>
parents:
54730
diff
changeset
|
4030 tmp_len = strlen(tmp); |
dabd7326e596
(init_environment): If one of the TMP... environment
Eli Zaretskii <eliz@gnu.org>
parents:
54730
diff
changeset
|
4031 if (tmp[tmp_len - 1] != '/' && tmp[tmp_len - 1] != '\\') |
dabd7326e596
(init_environment): If one of the TMP... environment
Eli Zaretskii <eliz@gnu.org>
parents:
54730
diff
changeset
|
4032 { |
dabd7326e596
(init_environment): If one of the TMP... environment
Eli Zaretskii <eliz@gnu.org>
parents:
54730
diff
changeset
|
4033 strcpy(buf, tmp); |
dabd7326e596
(init_environment): If one of the TMP... environment
Eli Zaretskii <eliz@gnu.org>
parents:
54730
diff
changeset
|
4034 buf[tmp_len++] = '/', buf[tmp_len] = 0; |
dabd7326e596
(init_environment): If one of the TMP... environment
Eli Zaretskii <eliz@gnu.org>
parents:
54730
diff
changeset
|
4035 tmp = buf; |
dabd7326e596
(init_environment): If one of the TMP... environment
Eli Zaretskii <eliz@gnu.org>
parents:
54730
diff
changeset
|
4036 } |
dabd7326e596
(init_environment): If one of the TMP... environment
Eli Zaretskii <eliz@gnu.org>
parents:
54730
diff
changeset
|
4037 } |
dabd7326e596
(init_environment): If one of the TMP... environment
Eli Zaretskii <eliz@gnu.org>
parents:
54730
diff
changeset
|
4038 |
22054
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4039 /* Note that `access' can lie to us if the directory resides on a |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4040 read-only filesystem, like CD-ROM or a write-protected floppy. |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4041 The only way to be really sure is to actually create a file and |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4042 see if it succeeds. But I think that's too much to ask. */ |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4043 if (tmp && access (tmp, D_OK) == 0) |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4044 { |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4045 setenv ("TMPDIR", tmp, 1); |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4046 break; |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4047 } |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4048 } |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4049 if (i >= imax) |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4050 cmd_error_internal |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4051 (Fcons (Qerror, |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4052 Fcons (build_string ("no usable temporary directories found!!"), |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4053 Qnil)), |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4054 "While setting TMPDIR: "); |
13179 | 4055 |
23815
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
4056 /* Note the startup time, so we know not to clear the screen if we |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
4057 exit immediately; see IT_reset_terminal_modes. |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
4058 (Yes, I know `clock' returns zero the first time it's called, but |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
4059 I do this anyway, in case some wiseguy changes that at some point.) */ |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
4060 startup_time = clock (); |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
4061 |
13179 | 4062 /* Find our root from argv[0]. Assuming argv[0] is, say, |
4063 "c:/emacs/bin/emacs.exe" our root will be "c:/emacs". */ | |
4064 root = alloca (MAXPATHLEN + 20); | |
4065 _fixpath (argv[0], root); | |
15618
5da6a61ce827
(dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents:
15588
diff
changeset
|
4066 msdos_downcase_filename (root); |
13179 | 4067 len = strlen (root); |
4068 while (len > 0 && root[len] != '/' && root[len] != ':') | |
4069 len--; | |
4070 root[len] = '\0'; | |
19295
812986c77ae2
(init_environment): Set Emacs root directory properly when
Richard M. Stallman <rms@gnu.org>
parents:
19293
diff
changeset
|
4071 if (len > 4 |
812986c77ae2
(init_environment): Set Emacs root directory properly when
Richard M. Stallman <rms@gnu.org>
parents:
19293
diff
changeset
|
4072 && (strcmp (root + len - 4, "/bin") == 0 |
812986c77ae2
(init_environment): Set Emacs root directory properly when
Richard M. Stallman <rms@gnu.org>
parents:
19293
diff
changeset
|
4073 || strcmp (root + len - 4, "/src") == 0)) /* under a debugger */ |
13179 | 4074 root[len - 4] = '\0'; |
4075 else | |
19295
812986c77ae2
(init_environment): Set Emacs root directory properly when
Richard M. Stallman <rms@gnu.org>
parents:
19293
diff
changeset
|
4076 strcpy (root, "c:/emacs"); /* let's be defensive */ |
13179 | 4077 len = strlen (root); |
4078 strcpy (emacsroot, root); | |
4079 | |
4080 /* We default HOME to our root. */ | |
4081 setenv ("HOME", root, 0); | |
4082 | |
4083 /* We default EMACSPATH to root + "/bin". */ | |
4084 strcpy (root + len, "/bin"); | |
4085 setenv ("EMACSPATH", root, 0); | |
4086 | |
4087 /* I don't expect anybody to ever use other terminals so the internal | |
4088 terminal is the default. */ | |
4089 setenv ("TERM", "internal", 0); | |
4090 | |
4091 #ifdef HAVE_X_WINDOWS | |
4092 /* Emacs expects DISPLAY to be set. */ | |
4093 setenv ("DISPLAY", "unix:0.0", 0); | |
4094 #endif | |
4095 | |
4096 /* SHELL is a bit tricky -- COMSPEC is the closest we come, but we must | |
4097 downcase it and mirror the backslashes. */ | |
4098 s = getenv ("COMSPEC"); | |
4099 if (!s) s = "c:/command.com"; | |
4100 t = alloca (strlen (s) + 1); | |
4101 strcpy (t, s); | |
4102 dostounix_filename (t); | |
4103 setenv ("SHELL", t, 0); | |
4104 | |
4105 /* PATH is also downcased and backslashes mirrored. */ | |
4106 s = getenv ("PATH"); | |
4107 if (!s) s = ""; | |
4108 t = alloca (strlen (s) + 3); | |
4109 /* Current directory is always considered part of MsDos's path but it is | |
4110 not normally mentioned. Now it is. */ | |
4111 strcat (strcpy (t, ".;"), s); | |
4112 dostounix_filename (t); /* Not a single file name, but this should work. */ | |
4113 setenv ("PATH", t, 1); | |
4114 | |
4115 /* In some sense all dos users have root privileges, so... */ | |
4116 setenv ("USER", "root", 0); | |
4117 setenv ("NAME", getenv ("USER"), 0); | |
4118 | |
4119 /* Time zone determined from country code. To make this possible, the | |
4120 country code may not span more than one time zone. In other words, | |
4121 in the USA, you lose. */ | |
13274 | 4122 if (!getenv ("TZ")) |
13179 | 4123 switch (dos_country_code) |
4124 { | |
4125 case 31: /* Belgium */ | |
4126 case 32: /* The Netherlands */ | |
4127 case 33: /* France */ | |
4128 case 34: /* Spain */ | |
4129 case 36: /* Hungary */ | |
4130 case 38: /* Yugoslavia (or what's left of it?) */ | |
4131 case 39: /* Italy */ | |
4132 case 41: /* Switzerland */ | |
4133 case 42: /* Tjekia */ | |
4134 case 45: /* Denmark */ | |
4135 case 46: /* Sweden */ | |
4136 case 47: /* Norway */ | |
4137 case 48: /* Poland */ | |
4138 case 49: /* Germany */ | |
4139 /* Daylight saving from last Sunday in March to last Sunday in | |
4140 September, both at 2AM. */ | |
13394
c4549fcdd5f3
(the_only_x_display): Type is now struct x_output.
Karl Heuer <kwzh@gnu.org>
parents:
13305
diff
changeset
|
4141 setenv ("TZ", "MET-01METDST-02,M3.5.0/02:00,M9.5.0/02:00", 0); |
13179 | 4142 break; |
4143 case 44: /* United Kingdom */ | |
4144 case 351: /* Portugal */ | |
4145 case 354: /* Iceland */ | |
13394
c4549fcdd5f3
(the_only_x_display): Type is now struct x_output.
Karl Heuer <kwzh@gnu.org>
parents:
13305
diff
changeset
|
4146 setenv ("TZ", "GMT+00", 0); |
13179 | 4147 break; |
4148 case 81: /* Japan */ | |
4149 case 82: /* Korea */ | |
13394
c4549fcdd5f3
(the_only_x_display): Type is now struct x_output.
Karl Heuer <kwzh@gnu.org>
parents:
13305
diff
changeset
|
4150 setenv ("TZ", "JST-09", 0); |
13179 | 4151 break; |
4152 case 90: /* Turkey */ | |
4153 case 358: /* Finland */ | |
13394
c4549fcdd5f3
(the_only_x_display): Type is now struct x_output.
Karl Heuer <kwzh@gnu.org>
parents:
13305
diff
changeset
|
4154 setenv ("TZ", "EET-02", 0); |
c4549fcdd5f3
(the_only_x_display): Type is now struct x_output.
Karl Heuer <kwzh@gnu.org>
parents:
13305
diff
changeset
|
4155 break; |
13179 | 4156 case 972: /* Israel */ |
13394
c4549fcdd5f3
(the_only_x_display): Type is now struct x_output.
Karl Heuer <kwzh@gnu.org>
parents:
13305
diff
changeset
|
4157 /* This is an approximation. (For exact rules, use the |
c4549fcdd5f3
(the_only_x_display): Type is now struct x_output.
Karl Heuer <kwzh@gnu.org>
parents:
13305
diff
changeset
|
4158 `zoneinfo/israel' file which comes with DJGPP, but you need |
c4549fcdd5f3
(the_only_x_display): Type is now struct x_output.
Karl Heuer <kwzh@gnu.org>
parents:
13305
diff
changeset
|
4159 to install it in `/usr/share/zoneinfo/' directory first.) */ |
c4549fcdd5f3
(the_only_x_display): Type is now struct x_output.
Karl Heuer <kwzh@gnu.org>
parents:
13305
diff
changeset
|
4160 setenv ("TZ", "IST-02IDT-03,M4.1.6/00:00,M9.5.6/01:00", 0); |
13179 | 4161 break; |
4162 } | |
14974
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4163 tzset (); |
13179 | 4164 } |
4165 | |
4166 | |
4167 | |
4168 static int break_stat; /* BREAK check mode status. */ | |
4169 static int stdin_stat; /* stdin IOCTL status. */ | |
4170 | |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
4171 /* Turn off Dos' Ctrl-C checking and inhibit interpretation of |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
4172 control chars by DOS. Determine the keyboard type. */ |
13179 | 4173 |
4174 int | |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
4175 dos_ttraw (struct tty_display_info *tty) |
13179 | 4176 { |
4177 union REGS inregs, outregs; | |
4178 static int first_time = 1; | |
45332 | 4179 |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
4180 /* If we are called for the initial terminal, it's too early to do |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
4181 anything, and termscript isn't set up. */ |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
4182 if (tty->terminal->type == output_initial) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
4183 return; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
4184 |
13179 | 4185 break_stat = getcbrk (); |
4186 setcbrk (0); | |
4187 | |
4188 if (first_time) | |
4189 { | |
4190 inregs.h.ah = 0xc0; | |
4191 int86 (0x15, &inregs, &outregs); | |
4192 extended_kbd = (!outregs.x.cflag) && (outregs.h.ah == 0); | |
45332 | 4193 |
13179 | 4194 have_mouse = 0; |
4195 | |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
4196 if (1 |
13179 | 4197 #ifdef HAVE_X_WINDOWS |
4198 && inhibit_window_system | |
4199 #endif | |
4200 ) | |
4201 { | |
4202 inregs.x.ax = 0x0021; | |
4203 int86 (0x33, &inregs, &outregs); | |
4204 have_mouse = (outregs.x.ax & 0xffff) == 0xffff; | |
4205 if (!have_mouse) | |
4206 { | |
4207 /* Reportedly, the above doesn't work for some mouse drivers. There | |
4208 is an additional detection method that should work, but might be | |
4209 a little slower. Use that as an alternative. */ | |
4210 inregs.x.ax = 0x0000; | |
4211 int86 (0x33, &inregs, &outregs); | |
4212 have_mouse = (outregs.x.ax & 0xffff) == 0xffff; | |
4213 } | |
4214 if (have_mouse) | |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
4215 mouse_button_count = outregs.x.bx; |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4216 |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4217 #ifndef HAVE_X_WINDOWS |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4218 /* Save the cursor shape used outside Emacs. */ |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4219 outside_cursor = _farpeekw (_dos_ds, 0x460); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4220 #endif |
13179 | 4221 } |
14974
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4222 |
13179 | 4223 first_time = 0; |
14974
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4224 |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4225 stdin_stat = setmode (fileno (stdin), O_BINARY); |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4226 return (stdin_stat != -1); |
13179 | 4227 } |
14974
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4228 else |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4229 return (setmode (fileno (stdin), O_BINARY) != -1); |
13179 | 4230 } |
4231 | |
4232 /* Restore status of standard input and Ctrl-C checking. */ | |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
4233 |
13179 | 4234 int |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
4235 dos_ttcooked (void) |
13179 | 4236 { |
4237 union REGS inregs, outregs; | |
4238 | |
4239 setcbrk (break_stat); | |
4240 mouse_off (); | |
4241 | |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4242 #ifndef HAVE_X_WINDOWS |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4243 /* Restore the cursor shape we found on startup. */ |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4244 if (outside_cursor) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4245 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4246 inregs.h.ah = 1; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4247 inregs.x.cx = outside_cursor; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4248 int86 (0x10, &inregs, &outregs); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4249 } |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4250 #endif |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4251 |
14974
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4252 return (setmode (fileno (stdin), stdin_stat) != -1); |
13179 | 4253 } |
4254 | |
4255 | |
4256 /* Run command as specified by ARGV in directory DIR. | |
13718
e1b33f87545f
(run_msdos_command): Support redirection of stderr.
Karl Heuer <kwzh@gnu.org>
parents:
13717
diff
changeset
|
4257 The command is run with input from TEMPIN, output to |
e1b33f87545f
(run_msdos_command): Support redirection of stderr.
Karl Heuer <kwzh@gnu.org>
parents:
13717
diff
changeset
|
4258 file TEMPOUT and stderr to TEMPERR. */ |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
4259 |
13179 | 4260 int |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
4261 run_msdos_command (unsigned char **argv, const char *working_dir, |
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
4262 int tempin, int tempout, int temperr, char **envv) |
13179 | 4263 { |
21693
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4264 char *saveargv1, *saveargv2, *lowcase_argv0, *pa, *pl; |
13179 | 4265 char oldwd[MAXPATHLEN + 1]; /* Fixed size is safe on MSDOS. */ |
45332 | 4266 int msshell, result = -1, inbak, outbak, errbak, x, y; |
13179 | 4267 Lisp_Object cmd; |
4268 | |
4269 /* Get current directory as MSDOS cwd is not per-process. */ | |
4270 getwd (oldwd); | |
4271 | |
16310
c987c025d448
(run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents:
16210
diff
changeset
|
4272 /* If argv[0] is the shell, it might come in any lettercase. |
c987c025d448
(run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents:
16210
diff
changeset
|
4273 Since `Fmember' is case-sensitive, we need to downcase |
c987c025d448
(run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents:
16210
diff
changeset
|
4274 argv[0], even if we are on case-preserving filesystems. */ |
c987c025d448
(run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents:
16210
diff
changeset
|
4275 lowcase_argv0 = alloca (strlen (argv[0]) + 1); |
c987c025d448
(run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents:
16210
diff
changeset
|
4276 for (pa = argv[0], pl = lowcase_argv0; *pa; pl++) |
c987c025d448
(run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents:
16210
diff
changeset
|
4277 { |
c987c025d448
(run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents:
16210
diff
changeset
|
4278 *pl = *pa++; |
c987c025d448
(run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents:
16210
diff
changeset
|
4279 if (*pl >= 'A' && *pl <= 'Z') |
c987c025d448
(run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents:
16210
diff
changeset
|
4280 *pl += 'a' - 'A'; |
c987c025d448
(run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents:
16210
diff
changeset
|
4281 } |
c987c025d448
(run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents:
16210
diff
changeset
|
4282 *pl = '\0'; |
c987c025d448
(run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents:
16210
diff
changeset
|
4283 |
c987c025d448
(run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents:
16210
diff
changeset
|
4284 cmd = Ffile_name_nondirectory (build_string (lowcase_argv0)); |
13179 | 4285 msshell = !NILP (Fmember (cmd, Fsymbol_value (intern ("msdos-shells")))) |
4286 && !strcmp ("-c", argv[1]); | |
4287 if (msshell) | |
4288 { | |
4289 saveargv1 = argv[1]; | |
4290 saveargv2 = argv[2]; | |
4291 argv[1] = "/c"; | |
30529
788ce16426e3
(run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents:
30381
diff
changeset
|
4292 /* We only need to mirror slashes if a DOS shell will be invoked |
788ce16426e3
(run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents:
30381
diff
changeset
|
4293 not via `system' (which does the mirroring itself). Yes, that |
788ce16426e3
(run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents:
30381
diff
changeset
|
4294 means DJGPP v1.x will lose here. */ |
788ce16426e3
(run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents:
30381
diff
changeset
|
4295 if (argv[2] && argv[3]) |
13179 | 4296 { |
4297 char *p = alloca (strlen (argv[2]) + 1); | |
4298 | |
4299 strcpy (argv[2] = p, saveargv2); | |
4300 while (*p && isspace (*p)) | |
4301 p++; | |
30529
788ce16426e3
(run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents:
30381
diff
changeset
|
4302 while (*p) |
788ce16426e3
(run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents:
30381
diff
changeset
|
4303 { |
788ce16426e3
(run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents:
30381
diff
changeset
|
4304 if (*p == '/') |
788ce16426e3
(run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents:
30381
diff
changeset
|
4305 *p++ = '\\'; |
788ce16426e3
(run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents:
30381
diff
changeset
|
4306 else |
788ce16426e3
(run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents:
30381
diff
changeset
|
4307 p++; |
788ce16426e3
(run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents:
30381
diff
changeset
|
4308 } |
13179 | 4309 } |
4310 } | |
4311 | |
21693
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4312 chdir (working_dir); |
13179 | 4313 inbak = dup (0); |
4314 outbak = dup (1); | |
4315 errbak = dup (2); | |
4316 if (inbak < 0 || outbak < 0 || errbak < 0) | |
4317 goto done; /* Allocation might fail due to lack of descriptors. */ | |
4318 | |
4319 if (have_mouse > 0) | |
4320 mouse_get_xy (&x, &y); | |
4321 | |
99583
e84316087c93
(run_msdos_command): Don't call dos_ttcooked, dos_ttraw, and bright_bg
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
4322 if (!noninteractive) |
e84316087c93
(run_msdos_command): Don't call dos_ttcooked, dos_ttraw, and bright_bg
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
4323 dos_ttcooked (); /* do it here while 0 = stdin */ |
45332 | 4324 |
13179 | 4325 dup2 (tempin, 0); |
4326 dup2 (tempout, 1); | |
13718
e1b33f87545f
(run_msdos_command): Support redirection of stderr.
Karl Heuer <kwzh@gnu.org>
parents:
13717
diff
changeset
|
4327 dup2 (temperr, 2); |
13179 | 4328 |
15125
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4329 if (msshell && !argv[3]) |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4330 { |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4331 /* MS-DOS native shells are too restrictive. For starters, they |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4332 cannot grok commands longer than 126 characters. In DJGPP v2 |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4333 and later, `system' is much smarter, so we'll call it instead. */ |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4334 |
21693
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4335 const char *cmnd; |
15125
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4336 |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4337 /* A shell gets a single argument--its full command |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4338 line--whose original was saved in `saveargv2'. */ |
21693
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4339 |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4340 /* Don't let them pass empty command lines to `system', since |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4341 with some shells it will try to invoke an interactive shell, |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4342 which will hang Emacs. */ |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4343 for (cmnd = saveargv2; *cmnd && isspace (*cmnd); cmnd++) |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4344 ; |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4345 if (*cmnd) |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4346 { |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4347 extern char **environ; |
30529
788ce16426e3
(run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents:
30381
diff
changeset
|
4348 char **save_env = environ; |
21693
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4349 int save_system_flags = __system_flags; |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4350 |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4351 /* Request the most powerful version of `system'. We need |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4352 all the help we can get to avoid calling stock DOS shells. */ |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4353 __system_flags = (__system_redirect |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4354 | __system_use_shell |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4355 | __system_allow_multiple_cmds |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4356 | __system_allow_long_cmds |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4357 | __system_handle_null_commands |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4358 | __system_emulate_chdir); |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4359 |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4360 environ = envv; |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4361 result = system (cmnd); |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4362 __system_flags = save_system_flags; |
30529
788ce16426e3
(run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents:
30381
diff
changeset
|
4363 environ = save_env; |
21693
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4364 } |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4365 else |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4366 result = 0; /* emulate Unixy shell behavior with empty cmd line */ |
15125
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4367 } |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4368 else |
107733
84b961690802
Remove support for DJGPP v1.x (bug#5813).
Eli Zaretskii <eliz@gnu.org>
parents:
106815
diff
changeset
|
4369 result = spawnve (P_WAIT, argv[0], argv, envv); |
45332 | 4370 |
13179 | 4371 dup2 (inbak, 0); |
4372 dup2 (outbak, 1); | |
4373 dup2 (errbak, 2); | |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25214
diff
changeset
|
4374 emacs_close (inbak); |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25214
diff
changeset
|
4375 emacs_close (outbak); |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25214
diff
changeset
|
4376 emacs_close (errbak); |
13179 | 4377 |
99583
e84316087c93
(run_msdos_command): Don't call dos_ttcooked, dos_ttraw, and bright_bg
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
4378 if (!noninteractive) |
e84316087c93
(run_msdos_command): Don't call dos_ttcooked, dos_ttraw, and bright_bg
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
4379 dos_ttraw (CURTTY ()); |
13179 | 4380 if (have_mouse > 0) |
4381 { | |
4382 mouse_init (); | |
4383 mouse_moveto (x, y); | |
4384 } | |
16837
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
4385 |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
4386 /* Some programs might change the meaning of the highest bit of the |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
4387 text attribute byte, so we get blinking characters instead of the |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
4388 bright background colors. Restore that. */ |
99583
e84316087c93
(run_msdos_command): Don't call dos_ttcooked, dos_ttraw, and bright_bg
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
4389 if (!noninteractive) |
e84316087c93
(run_msdos_command): Don't call dos_ttcooked, dos_ttraw, and bright_bg
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
4390 bright_bg (); |
45332 | 4391 |
13179 | 4392 done: |
4393 chdir (oldwd); | |
4394 if (msshell) | |
4395 { | |
4396 argv[1] = saveargv1; | |
4397 argv[2] = saveargv2; | |
4398 } | |
4399 return result; | |
4400 } | |
4401 | |
46954
6c7dc88b9a5d
(croak): Add `void' to definition.
Eli Zaretskii <eliz@gnu.org>
parents:
46370
diff
changeset
|
4402 void |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
4403 croak (char *badfunc) |
13179 | 4404 { |
4405 fprintf (stderr, "%s not yet implemented\r\n", badfunc); | |
53341 | 4406 reset_all_sys_modes (); |
13179 | 4407 exit (1); |
4408 } | |
13848
5f38596d591e
(have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
13744
diff
changeset
|
4409 |
107734 | 4410 /* |
4411 * A few unimplemented functions that we silently ignore. | |
4412 */ | |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
4413 int setpgrp (void) {return 0; } |
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
4414 int setpriority (int x, int y, int z) { return 0; } |
107734 | 4415 |
107733
84b961690802
Remove support for DJGPP v1.x (bug#5813).
Eli Zaretskii <eliz@gnu.org>
parents:
106815
diff
changeset
|
4416 #if __DJGPP__ == 2 && __DJGPP_MINOR__ < 2 |
16872
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4417 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4418 /* Augment DJGPP library POSIX signal functions. This is needed |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4419 as of DJGPP v2.01, but might be in the library in later releases. */ |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4420 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4421 #include <libc/bss.h> |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4422 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4423 /* A counter to know when to re-initialize the static sets. */ |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4424 static int sigprocmask_count = -1; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4425 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4426 /* Which signals are currently blocked (initially none). */ |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4427 static sigset_t current_mask; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4428 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4429 /* Which signals are pending (initially none). */ |
101658
ce543dc9d6b4
Rename pending_signals to msdos_pending_signals.
Eli Zaretskii <eliz@gnu.org>
parents:
100951
diff
changeset
|
4430 static sigset_t msdos_pending_signals; |
16872
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4431 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4432 /* Previous handlers to restore when the blocked signals are unblocked. */ |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4433 typedef void (*sighandler_t)(int); |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4434 static sighandler_t prev_handlers[320]; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4435 |
46272 | 4436 /* A signal handler which just records that a signal occurred |
16872
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4437 (it will be raised later, if and when the signal is unblocked). */ |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4438 static void |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
4439 sig_suspender (int signo) |
16872
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4440 { |
101658
ce543dc9d6b4
Rename pending_signals to msdos_pending_signals.
Eli Zaretskii <eliz@gnu.org>
parents:
100951
diff
changeset
|
4441 sigaddset (&msdos_pending_signals, signo); |
16872
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4442 } |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4443 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4444 int |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
4445 sigprocmask (int how, const sigset_t *new_set, sigset_t *old_set) |
16872
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4446 { |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4447 int signo; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4448 sigset_t new_mask; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4449 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4450 /* If called for the first time, initialize. */ |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4451 if (sigprocmask_count != __bss_count) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4452 { |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4453 sigprocmask_count = __bss_count; |
101658
ce543dc9d6b4
Rename pending_signals to msdos_pending_signals.
Eli Zaretskii <eliz@gnu.org>
parents:
100951
diff
changeset
|
4454 sigemptyset (&msdos_pending_signals); |
16872
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4455 sigemptyset (¤t_mask); |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4456 for (signo = 0; signo < 320; signo++) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4457 prev_handlers[signo] = SIG_ERR; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4458 } |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4459 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4460 if (old_set) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4461 *old_set = current_mask; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4462 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4463 if (new_set == 0) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4464 return 0; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4465 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4466 if (how != SIG_BLOCK && how != SIG_UNBLOCK && how != SIG_SETMASK) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4467 { |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4468 errno = EINVAL; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4469 return -1; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4470 } |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4471 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4472 sigemptyset (&new_mask); |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4473 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4474 /* DJGPP supports upto 320 signals. */ |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4475 for (signo = 0; signo < 320; signo++) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4476 { |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4477 if (sigismember (¤t_mask, signo)) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4478 sigaddset (&new_mask, signo); |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4479 else if (sigismember (new_set, signo) && how != SIG_UNBLOCK) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4480 { |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4481 sigaddset (&new_mask, signo); |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4482 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4483 /* SIGKILL is silently ignored, as on other platforms. */ |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4484 if (signo != SIGKILL && prev_handlers[signo] == SIG_ERR) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4485 prev_handlers[signo] = signal (signo, sig_suspender); |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4486 } |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4487 if (( how == SIG_UNBLOCK |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4488 && sigismember (&new_mask, signo) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4489 && sigismember (new_set, signo)) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4490 || (how == SIG_SETMASK |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4491 && sigismember (&new_mask, signo) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4492 && !sigismember (new_set, signo))) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4493 { |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4494 sigdelset (&new_mask, signo); |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4495 if (prev_handlers[signo] != SIG_ERR) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4496 { |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4497 signal (signo, prev_handlers[signo]); |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4498 prev_handlers[signo] = SIG_ERR; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4499 } |
101658
ce543dc9d6b4
Rename pending_signals to msdos_pending_signals.
Eli Zaretskii <eliz@gnu.org>
parents:
100951
diff
changeset
|
4500 if (sigismember (&msdos_pending_signals, signo)) |
16872
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4501 { |
101658
ce543dc9d6b4
Rename pending_signals to msdos_pending_signals.
Eli Zaretskii <eliz@gnu.org>
parents:
100951
diff
changeset
|
4502 sigdelset (&msdos_pending_signals, signo); |
16872
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4503 raise (signo); |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4504 } |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4505 } |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4506 } |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4507 current_mask = new_mask; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4508 return 0; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4509 } |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4510 |
45332 | 4511 #endif /* not __DJGPP_MINOR__ < 2 */ |
13179 | 4512 |
4513 #ifndef HAVE_SELECT | |
4514 #include "sysselect.h" | |
4515 | |
14279
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
4516 #ifndef EMACS_TIME_ZERO_OR_NEG_P |
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
4517 #define EMACS_TIME_ZERO_OR_NEG_P(time) \ |
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
4518 ((long)(time).tv_sec < 0 \ |
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
4519 || ((time).tv_sec == 0 \ |
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
4520 && (long)(time).tv_usec <= 0)) |
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
4521 #endif |
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
4522 |
22481
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
4523 /* This yields the rest of the current time slice to the task manager. |
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
4524 It should be called by any code which knows that it has nothing |
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
4525 useful to do except idle. |
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
4526 |
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
4527 I don't use __dpmi_yield here, since versions of library before 2.02 |
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
4528 called Int 2Fh/AX=1680h there in a way that would wedge the DOS box |
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
4529 on some versions of Windows 9X. */ |
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
4530 |
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
4531 void |
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
4532 dos_yield_time_slice (void) |
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
4533 { |
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
4534 _go32_dpmi_registers r; |
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
4535 |
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
4536 r.x.ax = 0x1680; |
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
4537 r.x.ss = r.x.sp = r.x.flags = 0; |
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
4538 _go32_dpmi_simulate_int (0x2f, &r); |
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
4539 if (r.h.al == 0x80) |
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
4540 errno = ENOSYS; |
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
4541 } |
14279
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
4542 |
13179 | 4543 /* Only event queue is checked. */ |
14999 | 4544 /* We don't have to call timer_check here |
56729
e6e0caa7ec87
Rename wait_reading_process_input to wait_reading_process_output.
Kim F. Storm <storm@cua.dk>
parents:
56335
diff
changeset
|
4545 because wait_reading_process_output takes care of that. */ |
13179 | 4546 int |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
4547 sys_select (int nfds, SELECT_TYPE *rfds, SELECT_TYPE *wfds, SELECT_TYPE *efds, |
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
4548 EMACS_TIME *timeout) |
13179 | 4549 { |
4550 int check_input; | |
4551 struct time t; | |
4552 | |
4553 check_input = 0; | |
4554 if (rfds) | |
4555 { | |
4556 check_input = FD_ISSET (0, rfds); | |
4557 FD_ZERO (rfds); | |
4558 } | |
4559 if (wfds) | |
4560 FD_ZERO (wfds); | |
4561 if (efds) | |
4562 FD_ZERO (efds); | |
4563 | |
4564 if (nfds != 1) | |
4565 abort (); | |
45332 | 4566 |
13179 | 4567 /* If we are looking only for the terminal, with no timeout, |
4568 just read it and wait -- that's more efficient. */ | |
4569 if (!timeout) | |
4570 { | |
15033
9e174c2b4ba6
(check_timer): Removed; use gettime instead.
Richard M. Stallman <rms@gnu.org>
parents:
14999
diff
changeset
|
4571 while (!detect_input_pending ()) |
9e174c2b4ba6
(check_timer): Removed; use gettime instead.
Richard M. Stallman <rms@gnu.org>
parents:
14999
diff
changeset
|
4572 { |
22481
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
4573 dos_yield_time_slice (); |
15033
9e174c2b4ba6
(check_timer): Removed; use gettime instead.
Richard M. Stallman <rms@gnu.org>
parents:
14999
diff
changeset
|
4574 } |
13179 | 4575 } |
4576 else | |
4577 { | |
14279
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
4578 EMACS_TIME clnow, cllast, cldiff; |
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
4579 |
15033
9e174c2b4ba6
(check_timer): Removed; use gettime instead.
Richard M. Stallman <rms@gnu.org>
parents:
14999
diff
changeset
|
4580 gettime (&t); |
14279
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
4581 EMACS_SET_SECS_USECS (cllast, t.ti_sec, t.ti_hund * 10000L); |
13179 | 4582 |
4583 while (!check_input || !detect_input_pending ()) | |
4584 { | |
15033
9e174c2b4ba6
(check_timer): Removed; use gettime instead.
Richard M. Stallman <rms@gnu.org>
parents:
14999
diff
changeset
|
4585 gettime (&t); |
14279
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
4586 EMACS_SET_SECS_USECS (clnow, t.ti_sec, t.ti_hund * 10000L); |
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
4587 EMACS_SUB_TIME (cldiff, clnow, cllast); |
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
4588 |
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
4589 /* When seconds wrap around, we assume that no more than |
15033
9e174c2b4ba6
(check_timer): Removed; use gettime instead.
Richard M. Stallman <rms@gnu.org>
parents:
14999
diff
changeset
|
4590 1 minute passed since last `gettime'. */ |
14279
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
4591 if (EMACS_TIME_NEG_P (cldiff)) |
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
4592 EMACS_SET_SECS (cldiff, EMACS_SECS (cldiff) + 60); |
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
4593 EMACS_SUB_TIME (*timeout, *timeout, cldiff); |
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
4594 |
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
4595 /* Stop when timeout value crosses zero. */ |
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
4596 if (EMACS_TIME_ZERO_OR_NEG_P (*timeout)) |
13179 | 4597 return 0; |
4598 cllast = clnow; | |
22481
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
4599 dos_yield_time_slice (); |
13179 | 4600 } |
4601 } | |
45332 | 4602 |
13179 | 4603 FD_SET (0, rfds); |
4604 return 1; | |
4605 } | |
4606 #endif | |
4607 | |
4608 /* | |
14036 | 4609 * Define overlaid functions: |
13179 | 4610 * |
4611 * chdir -> sys_chdir | |
4612 * tzset -> init_gettimeofday | |
4613 * abort -> dos_abort | |
4614 */ | |
4615 | |
4616 #ifdef chdir | |
4617 #undef chdir | |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
4618 extern int chdir (const char *); |
13179 | 4619 |
4620 int | |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
4621 sys_chdir (const char *path) |
13179 | 4622 { |
4623 int len = strlen (path); | |
4624 char *tmp = (char *)path; | |
4625 | |
4626 if (*tmp && tmp[1] == ':') | |
4627 { | |
4628 if (getdisk () != tolower (tmp[0]) - 'a') | |
4629 setdisk (tolower (tmp[0]) - 'a'); | |
4630 tmp += 2; /* strip drive: KFS 1995-07-06 */ | |
4631 len -= 2; | |
4632 } | |
45332 | 4633 |
13179 | 4634 if (len > 1 && (tmp[len - 1] == '/')) |
4635 { | |
4636 char *tmp1 = (char *) alloca (len + 1); | |
4637 strcpy (tmp1, tmp); | |
4638 tmp1[len - 1] = 0; | |
4639 tmp = tmp1; | |
4640 } | |
4641 return chdir (tmp); | |
4642 } | |
4643 #endif | |
4644 | |
4645 #ifdef tzset | |
4646 #undef tzset | |
4647 extern void tzset (void); | |
4648 | |
4649 void | |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
4650 init_gettimeofday (void) |
13179 | 4651 { |
4652 time_t ltm, gtm; | |
4653 struct tm *lstm; | |
4654 | |
4655 tzset (); | |
4656 ltm = gtm = time (NULL); | |
4657 ltm = mktime (lstm = localtime (<m)); | |
4658 gtm = mktime (gmtime (>m)); | |
4659 time_rec.tm_hour = 99; /* force gettimeofday to get date */ | |
4660 time_rec.tm_isdst = lstm->tm_isdst; | |
4661 dos_timezone_offset = time_rec.tm_gmtoff = (int)(gtm - ltm) / 60; | |
4662 } | |
4663 #endif | |
4664 | |
4665 #ifdef abort | |
4666 #undef abort | |
4667 void | |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
4668 dos_abort (char *file, int line) |
13179 | 4669 { |
4670 char buffer1[200], buffer2[400]; | |
4671 int i, j; | |
45332 | 4672 |
13179 | 4673 sprintf (buffer1, "<EMACS FATAL ERROR IN %s LINE %d>", file, line); |
4674 for (i = j = 0; buffer1[i]; i++) { | |
4675 buffer2[j++] = buffer1[i]; | |
4676 buffer2[j++] = 0x70; | |
4677 } | |
4678 dosmemput (buffer2, j, (int)ScreenPrimary); | |
4679 ScreenSetCursor (2, 0); | |
4680 abort (); | |
4681 } | |
13744
120c884de8a2
(check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents:
13718
diff
changeset
|
4682 #else |
120c884de8a2
(check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents:
13718
diff
changeset
|
4683 void |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
4684 abort (void) |
13744
120c884de8a2
(check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents:
13718
diff
changeset
|
4685 { |
120c884de8a2
(check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents:
13718
diff
changeset
|
4686 dos_ttcooked (); |
120c884de8a2
(check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents:
13718
diff
changeset
|
4687 ScreenSetCursor (10, 0); |
120c884de8a2
(check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents:
13718
diff
changeset
|
4688 cputs ("\r\n\nEmacs aborted!\r\n"); |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
4689 #if __DJGPP__ == 2 && __DJGPP_MINOR__ < 2 |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
4690 if (screen_virtual_segment) |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
4691 dosv_refresh_virtual_screen (2 * 10 * screen_size_X, 4 * screen_size_X); |
14999 | 4692 /* Generate traceback, so we could tell whodunit. */ |
4693 signal (SIGINT, SIG_DFL); | |
4694 __asm__ __volatile__ ("movb $0x1b,%al;call ___djgpp_hw_exception"); | |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
4695 #else /* __DJGPP_MINOR__ >= 2 */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
4696 raise (SIGABRT); |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
4697 #endif /* __DJGPP_MINOR__ >= 2 */ |
13744
120c884de8a2
(check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents:
13718
diff
changeset
|
4698 exit (2); |
120c884de8a2
(check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents:
13718
diff
changeset
|
4699 } |
13179 | 4700 #endif |
4701 | |
109162
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
4702 void |
8efd6d04c47a
Convert function definitions in MS-DOS sources to ANSI C.
Eli Zaretskii <eliz@gnu.org>
parents:
109118
diff
changeset
|
4703 syms_of_msdos (void) |
13305
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
4704 { |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
4705 recent_doskeys = Fmake_vector (make_number (NUM_RECENT_DOSKEYS), Qnil); |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
4706 staticpro (&recent_doskeys); |
50225
39746533995d
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
49600
diff
changeset
|
4707 |
19334
c7cec07cb0e0
(syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents:
19295
diff
changeset
|
4708 #ifndef HAVE_X_WINDOWS |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
4709 |
32271
4ff70fe0d99b
(top-level) <Qbackground_color, Qforeground_color>: Make
Eli Zaretskii <eliz@gnu.org>
parents:
30840
diff
changeset
|
4710 /* The following two are from xfns.c: */ |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4711 Qreverse = intern ("reverse"); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4712 staticpro (&Qreverse); |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
4713 |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
4714 DEFVAR_LISP ("dos-unsupported-char-glyph", &Vdos_unsupported_char_glyph, |
41940
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41406
diff
changeset
|
4715 doc: /* *Glyph to display instead of chars not supported by current codepage. |
99540
c5c8f07bc47c
* w32-fns.el (w32-shell-dos-semantics):
Juanma Barranquero <lekktu@gmail.com>
parents:
98030
diff
changeset
|
4716 This variable is used only by MS-DOS terminals. */); |
55662
4cea1f00f7bb
(syms_of_msdos): Initialize dos-unsupported-char-glyph with make_number.
Eli Zaretskii <eliz@gnu.org>
parents:
55650
diff
changeset
|
4717 Vdos_unsupported_char_glyph = make_number ('\177'); |
43357
c89a11a2baf6
(x_autoselect_window_p): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
43236
diff
changeset
|
4718 |
19334
c7cec07cb0e0
(syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents:
19295
diff
changeset
|
4719 #endif |
13305
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
4720 |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
4721 defsubr (&Srecent_doskeys); |
15186
242bddc25e5a
(syms_of_msdos): Fix typo.
Richard M. Stallman <rms@gnu.org>
parents:
15174
diff
changeset
|
4722 defsubr (&Smsdos_long_file_names); |
15219
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
4723 defsubr (&Smsdos_downcase_filename); |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
4724 defsubr (&Smsdos_remember_default_colors); |
30532
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
4725 defsubr (&Smsdos_set_mouse_buttons); |
13305
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
4726 } |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
4727 |
5503 | 4728 #endif /* MSDOS */ |
52401 | 4729 |
4730 /* arch-tag: db404e92-52a5-475f-9eb2-1cb78dd05f30 | |
4731 (do not change this comment) */ |