Mercurial > emacs
annotate src/msdos.c @ 42955:7174ca8100e4
Add prototype for set_tty_color_mode and tty_setup_colors.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Fri, 25 Jan 2002 13:22:37 +0000 |
parents | bd23b0c564d9 |
children | e71102774d9b |
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 -*- |
36513 | 2 Copyright (C) 1993, 94, 95, 96, 97, 1999, 2000, 2001 |
3 Free Software Foundation, Inc. | |
5503 | 4 |
5 This file is part of GNU Emacs. | |
6 | |
7 GNU Emacs is free software; you can redistribute it and/or modify | |
8 it under the terms of the GNU General Public License as published by | |
10504 | 9 the Free Software Foundation; either version 2, or (at your option) |
5503 | 10 any later version. |
11 | |
12 GNU Emacs is distributed in the hope that it will be useful, | |
13 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
15 GNU General Public License for more details. | |
16 | |
17 You should have received a copy of the GNU General Public License | |
18 along with GNU Emacs; see the file COPYING. If not, write to | |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
14157
diff
changeset
|
19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
14157
diff
changeset
|
20 Boston, MA 02111-1307, USA. */ |
5503 | 21 |
7666
13a977e6777a
(dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents:
7523
diff
changeset
|
22 /* Contributed by Morten Welinder */ |
13179 | 23 /* 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
|
24 |
5503 | 25 /* Note: some of the stuff here was taken from end of sysdep.c in demacs. */ |
26 | |
5980 | 27 #include <config.h> |
5503 | 28 |
29 #ifdef MSDOS | |
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> |
16915
8d28d96f6031
(run_msdos_command): Remove unused variables.
Eli Zaretskii <eliz@gnu.org>
parents:
16872
diff
changeset
|
38 #include <string.h> /* for bzero 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 */ |
14974
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
42 #if __DJGPP__ >= 2 |
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 #endif |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
50 |
5503 | 51 #include "msdos.h" |
52 #include "systime.h" | |
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" |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
58 #include "charset.h" |
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" |
5503 | 61 #include "frame.h" |
9572 | 62 #include "window.h" |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
63 #include "buffer.h" |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
64 #include "commands.h" |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
65 #include "blockinput.h" |
30711 | 66 #include "keyboard.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 |
14974
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
82 #if __DJGPP__ > 1 |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
83 |
14999 | 84 #include <signal.h> |
16872
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
85 #include "syssignal.h" |
14999 | 86 |
14974
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
87 #ifndef SYSTEM_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 #ifdef GNU_MALLOC |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
90 |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
91 /* 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
|
92 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
|
93 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
|
94 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
|
95 #include <crt0.h> |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
96 |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
97 #ifdef 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; |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
99 #else /* not REL_ALLOC */ |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
100 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
|
101 #endif /* not REL_ALLOC */ |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
102 #endif /* GNU_MALLOC */ |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
103 |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
104 #endif /* not SYSTEM_MALLOC */ |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
105 #endif /* __DJGPP__ > 1 */ |
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 static unsigned long |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
108 event_timestamp () |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
109 { |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
110 struct time t; |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
111 unsigned long s; |
13179 | 112 |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
113 gettime (&t); |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
114 s = t.ti_min; |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
115 s *= 60; |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
116 s += t.ti_sec; |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
117 s *= 1000; |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
118 s += t.ti_hund * 10; |
13179 | 119 |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
120 return s; |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
121 } |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
122 |
13179 | 123 |
124 /* ------------------------ Mouse control --------------------------- | |
125 * | |
126 * Coordinates are in screen positions and zero based. | |
127 * Mouse buttons are numbered from left to right and also zero based. | |
128 */ | |
5503 | 129 |
28553
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
130 /* 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
|
131 uses it, and it was removed... */ |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
132 #define NUM_MOUSE_BUTTONS (5) |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
133 |
13179 | 134 int have_mouse; /* 0: no, 1: enabled, -1: disabled */ |
135 static int mouse_visible; | |
5503 | 136 |
13179 | 137 static int mouse_last_x; |
138 static int mouse_last_y; | |
5503 | 139 |
13179 | 140 static int mouse_button_translate[NUM_MOUSE_BUTTONS]; |
141 static int mouse_button_count; | |
5503 | 142 |
13179 | 143 void |
144 mouse_on () | |
145 { | |
146 union REGS regs; | |
5503 | 147 |
13179 | 148 if (have_mouse > 0 && !mouse_visible) |
149 { | |
150 if (termscript) | |
151 fprintf (termscript, "<M_ON>"); | |
152 regs.x.ax = 0x0001; | |
153 int86 (0x33, ®s, ®s); | |
154 mouse_visible = 1; | |
5503 | 155 } |
156 } | |
157 | |
13179 | 158 void |
159 mouse_off () | |
5503 | 160 { |
13179 | 161 union REGS regs; |
5503 | 162 |
13179 | 163 if (have_mouse > 0 && mouse_visible) |
5503 | 164 { |
13179 | 165 if (termscript) |
166 fprintf (termscript, "<M_OFF>"); | |
167 regs.x.ax = 0x0002; | |
168 int86 (0x33, ®s, ®s); | |
169 mouse_visible = 0; | |
5503 | 170 } |
171 } | |
172 | |
20036
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
173 static void |
30532
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
174 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
|
175 { |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
176 if (n_buttons == 3) |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
177 { |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
178 mouse_button_count = 3; |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
179 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
|
180 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
|
181 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
|
182 } |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
183 else /* two, what else? */ |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
184 { |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
185 mouse_button_count = 2; |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
186 mouse_button_translate[0] = 0; |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
187 mouse_button_translate[1] = 1; |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
188 } |
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 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
|
192 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
|
193 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
|
194 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
|
195 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
|
196 them. This happens with wheeled mice on Windows 9X, for example. */) |
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41406
diff
changeset
|
197 (nbuttons) |
30532
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
198 Lisp_Object nbuttons; |
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) |
62530d6f561d
(Fmsdos_set_mouse_buttons): Signal an error if the
Eli Zaretskii <eliz@gnu.org>
parents:
34483
diff
changeset
|
205 Fsignal (Qargs_out_of_range, |
62530d6f561d
(Fmsdos_set_mouse_buttons): Signal an error if the
Eli Zaretskii <eliz@gnu.org>
parents:
34483
diff
changeset
|
206 Fcons (build_string ("only 2 or 3 mouse buttons are supported"), |
62530d6f561d
(Fmsdos_set_mouse_buttons): Signal an error if the
Eli Zaretskii <eliz@gnu.org>
parents:
34483
diff
changeset
|
207 Fcons (nbuttons, Qnil))); |
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 |
13179 | 224 mouse_moveto (x, y) |
225 int x, y; | |
5503 | 226 { |
13179 | 227 union REGS regs; |
228 | |
229 if (termscript) | |
230 fprintf (termscript, "<M_XY=%dx%d>", x, y); | |
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 |
238 mouse_pressed (b, xp, yp) | |
239 int b, *xp, *yp; | |
240 { | |
241 union REGS regs; | |
242 | |
243 if (b >= mouse_button_count) | |
244 return 0; | |
245 regs.x.ax = 0x0005; | |
246 regs.x.bx = mouse_button_translate[b]; | |
247 int86 (0x33, ®s, ®s); | |
248 if (regs.x.bx) | |
249 *xp = regs.x.cx / 8, *yp = regs.x.dx / 8; | |
250 return (regs.x.bx != 0); | |
251 } | |
252 | |
253 static int | |
254 mouse_released (b, xp, yp) | |
255 int b, *xp, *yp; | |
256 { | |
257 union REGS regs; | |
258 | |
259 if (b >= mouse_button_count) | |
260 return 0; | |
261 regs.x.ax = 0x0006; | |
262 regs.x.bx = mouse_button_translate[b]; | |
263 int86 (0x33, ®s, ®s); | |
264 if (regs.x.bx) | |
265 *xp = regs.x.cx / 8, *yp = regs.x.dx / 8; | |
266 return (regs.x.bx != 0); | |
267 } | |
268 | |
23497
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
269 static int |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
270 mouse_button_depressed (b, xp, yp) |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
271 int b, *xp, *yp; |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
272 { |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
273 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
|
274 |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
275 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
|
276 return 0; |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
277 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
|
278 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
|
279 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
|
280 { |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
281 *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
|
282 *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
|
283 return 1; |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
284 } |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
285 return 0; |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
286 } |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
287 |
13179 | 288 void |
289 mouse_get_pos (f, insist, bar_window, part, x, y, time) | |
290 FRAME_PTR *f; | |
291 int insist; | |
292 Lisp_Object *bar_window, *x, *y; | |
293 enum scroll_bar_part *part; | |
294 unsigned long *time; | |
295 { | |
296 int ix, iy; | |
20036
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
297 Lisp_Object frame, tail; |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
298 |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
299 /* 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
|
300 FOR_EACH_FRAME (tail, frame) |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
301 XFRAME (frame)->mouse_moved = 0; |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
302 |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
303 *f = SELECTED_FRAME(); |
13179 | 304 *bar_window = Qnil; |
305 mouse_get_xy (&ix, &iy); | |
306 *time = event_timestamp (); | |
20036
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
307 *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
|
308 *y = make_number (mouse_last_y = iy); |
13179 | 309 } |
310 | |
311 static void | |
312 mouse_check_moved () | |
313 { | |
314 int x, y; | |
315 | |
316 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
|
317 SELECTED_FRAME()->mouse_moved |= (x != mouse_last_x || y != mouse_last_y); |
13179 | 318 mouse_last_x = x; |
319 mouse_last_y = y; | |
5503 | 320 } |
321 | |
30711 | 322 /* Force the mouse driver to ``forget'' about any button clicks until |
323 now. */ | |
324 static void | |
325 mouse_clear_clicks (void) | |
326 { | |
327 int b; | |
328 | |
329 for (b = 0; b < mouse_button_count; b++) | |
330 { | |
331 int dummy_x, dummy_y; | |
332 | |
333 (void) mouse_pressed (b, &dummy_x, &dummy_y); | |
334 (void) mouse_released (b, &dummy_x, &dummy_y); | |
335 } | |
336 } | |
337 | |
13179 | 338 void |
339 mouse_init () | |
5503 | 340 { |
13179 | 341 union REGS regs; |
342 | |
343 if (termscript) | |
344 fprintf (termscript, "<M_INIT>"); | |
345 | |
346 regs.x.ax = 0x0021; | |
347 int86 (0x33, ®s, ®s); | |
348 | |
23497
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
349 /* 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
|
350 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
|
351 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
|
352 window just before Emacs was started from that window. */ |
30711 | 353 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
|
354 |
13179 | 355 regs.x.ax = 0x0007; |
356 regs.x.cx = 0; | |
357 regs.x.dx = 8 * (ScreenCols () - 1); | |
358 int86 (0x33, ®s, ®s); | |
359 | |
360 regs.x.ax = 0x0008; | |
361 regs.x.cx = 0; | |
362 regs.x.dx = 8 * (ScreenRows () - 1); | |
363 int86 (0x33, ®s, ®s); | |
364 | |
365 mouse_moveto (0, 0); | |
366 mouse_visible = 0; | |
367 } | |
13848
5f38596d591e
(have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
13744
diff
changeset
|
368 |
13179 | 369 /* ------------------------- Screen control ---------------------- |
370 * | |
371 */ | |
5503 | 372 |
13179 | 373 static int internal_terminal = 0; |
374 | |
375 #ifndef HAVE_X_WINDOWS | |
376 extern unsigned char ScreenAttrib; | |
377 static int screen_face; | |
378 | |
379 static int screen_size_X; | |
380 static int screen_size_Y; | |
381 static int screen_size; | |
382 | |
383 static int current_pos_X; | |
384 static int current_pos_Y; | |
385 static int new_pos_X; | |
386 static int new_pos_Y; | |
387 | |
388 static void *startup_screen_buffer; | |
389 static int startup_screen_size_X; | |
390 static int startup_screen_size_Y; | |
391 static int startup_pos_X; | |
392 static int startup_pos_Y; | |
13717
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
393 static unsigned char startup_screen_attrib; |
13179 | 394 |
23815
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
395 static clock_t startup_time; |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
396 |
13179 | 397 static int term_setup_done; |
398 | |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
399 static unsigned short outside_cursor; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
400 |
13179 | 401 /* Similar to the_only_frame. */ |
13394
c4549fcdd5f3
(the_only_x_display): Type is now struct x_output.
Karl Heuer <kwzh@gnu.org>
parents:
13305
diff
changeset
|
402 struct x_output the_only_x_display; |
13179 | 403 |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
404 /* 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
|
405 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
|
406 |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
407 /* 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
|
408 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
|
409 /* 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
|
410 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
|
411 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
|
412 /* 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
|
413 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
|
414 |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
415 Lisp_Object Qbar; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
416 |
41406
9ba7c0fd50b7
(IT_clear_screen): If the frame's faces are not yet
Eli Zaretskii <eliz@gnu.org>
parents:
41122
diff
changeset
|
417 /* The screen colors of the curent frame, which serve as the default |
9ba7c0fd50b7
(IT_clear_screen): If the frame's faces are not yet
Eli Zaretskii <eliz@gnu.org>
parents:
41122
diff
changeset
|
418 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
|
419 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
|
420 |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
421 #if __DJGPP__ > 1 |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
422 /* 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
|
423 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
|
424 static void |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
425 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
|
426 { |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
427 __dpmi_regs regs; |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
428 |
28932
f8b0ac62f238
Use the term `invalid' instead of `illegal'.
Gerd Moellmann <gerd@gnu.org>
parents:
28553
diff
changeset
|
429 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
|
430 return; |
a1a2beb0a09c
(dosv_refresh_virtual_screen): Do not use negative arguments.
Eli Zaretskii <eliz@gnu.org>
parents:
21415
diff
changeset
|
431 |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
432 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
|
433 regs.x.es = screen_virtual_segment; |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
434 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
|
435 regs.x.cx = count; |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
436 __dpmi_int (0x10, ®s); |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
437 } |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
438 #endif |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
439 |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
440 static void |
13179 | 441 dos_direct_output (y, x, buf, len) |
442 int y; | |
443 int x; | |
444 char *buf; | |
445 int len; | |
5503 | 446 { |
21489
a1a2beb0a09c
(dosv_refresh_virtual_screen): Do not use negative arguments.
Eli Zaretskii <eliz@gnu.org>
parents:
21415
diff
changeset
|
447 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
|
448 int t = t0 + (int) ScreenPrimary; |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
449 int l0 = len; |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
450 |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
451 #if (__DJGPP__ < 2) |
13179 | 452 while (--len >= 0) { |
453 dosmemput (buf++, 1, t); | |
454 t += 2; | |
455 } | |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
456 #else |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
457 /* This is faster. */ |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
458 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
|
459 _farnspokeb (t, *buf); |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
460 |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
461 if (screen_virtual_segment) |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
462 dosv_refresh_virtual_screen (t0, l0); |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
463 #endif |
5503 | 464 } |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
465 #endif |
5503 | 466 |
467 /* Flash the screen as a substitute for BEEPs. */ | |
468 | |
13179 | 469 #if (__DJGPP__ < 2) |
7273
24426d7e14eb
Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents:
6505
diff
changeset
|
470 static void |
7667
bae9c0fa1c2f
(do_visible_bell): Renamed from visible_bell to avoid
Richard M. Stallman <rms@gnu.org>
parents:
7666
diff
changeset
|
471 do_visible_bell (xorattr) |
5503 | 472 unsigned char xorattr; |
473 { | |
7273
24426d7e14eb
Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents:
6505
diff
changeset
|
474 asm volatile |
38314
5fa40c87fc5b
(do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
475 (" movb $1,%%dl \n\ |
5fa40c87fc5b
(do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
476 visible_bell_0: \n\ |
5fa40c87fc5b
(do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
477 movl _ScreenPrimary,%%eax \n\ |
5fa40c87fc5b
(do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
478 call dosmemsetup \n\ |
5fa40c87fc5b
(do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
479 movl %%eax,%%ebx \n\ |
5fa40c87fc5b
(do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
480 movl %1,%%ecx \n\ |
5fa40c87fc5b
(do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
481 movb %0,%%al \n\ |
5fa40c87fc5b
(do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
482 incl %%ebx \n\ |
5fa40c87fc5b
(do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
483 visible_bell_1: \n\ |
5fa40c87fc5b
(do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
484 xorb %%al,%%gs:(%%ebx) \n\ |
5fa40c87fc5b
(do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
485 addl $2,%%ebx \n\ |
5fa40c87fc5b
(do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
486 decl %%ecx \n\ |
5fa40c87fc5b
(do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
487 jne visible_bell_1 \n\ |
5fa40c87fc5b
(do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
488 decb %%dl \n\ |
5fa40c87fc5b
(do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
489 jne visible_bell_3 \n\ |
5fa40c87fc5b
(do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
490 visible_bell_2: \n\ |
5fa40c87fc5b
(do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
491 movzwl %%ax,%%eax \n\ |
5fa40c87fc5b
(do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
492 movzwl %%ax,%%eax \n\ |
5fa40c87fc5b
(do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
493 movzwl %%ax,%%eax \n\ |
5fa40c87fc5b
(do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
494 movzwl %%ax,%%eax \n\ |
5fa40c87fc5b
(do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
495 decw %%cx \n\ |
5fa40c87fc5b
(do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
496 jne visible_bell_2 \n\ |
5fa40c87fc5b
(do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents:
36513
diff
changeset
|
497 jmp visible_bell_0 \n\ |
8183
d35fd7fd0ef8
(install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
7821
diff
changeset
|
498 visible_bell_3:" |
d35fd7fd0ef8
(install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
7821
diff
changeset
|
499 : /* no output */ |
13179 | 500 : "m" (xorattr), "g" (screen_size) |
8183
d35fd7fd0ef8
(install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
7821
diff
changeset
|
501 : "%eax", "%ebx", /* "%gs",*/ "%ecx", "%edx"); |
5503 | 502 } |
503 | |
13179 | 504 static void |
505 ScreenVisualBell (void) | |
506 { | |
507 /* This creates an xor-mask that will swap the default fore- and | |
508 background colors. */ | |
509 do_visible_bell (((the_only_x_display.foreground_pixel | |
510 ^ the_only_x_display.background_pixel) | |
511 * 0x11) & 0x7f); | |
512 } | |
513 #endif | |
514 | |
515 #ifndef HAVE_X_WINDOWS | |
516 | |
16837
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
517 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
|
518 |
15341
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
519 /* Enable bright background colors. */ |
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
520 static void |
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
521 bright_bg (void) |
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
522 { |
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
523 union REGS regs; |
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
524 |
16837
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
525 /* 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
|
526 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
|
527 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
|
528 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
|
529 |
15341
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
530 regs.h.bl = 0; |
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
531 regs.x.ax = 0x1003; |
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
532 int86 (0x10, ®s, ®s); |
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
533 } |
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
534 |
16837
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
535 /* 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
|
536 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
|
537 static void |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
538 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
|
539 { |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
540 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
|
541 { |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
542 union REGS regs; |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
543 |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
544 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
|
545 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
|
546 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
|
547 } |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
548 } |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
549 |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
550 /* 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
|
551 static int |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
552 vga_installed (void) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
553 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
554 union REGS regs; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
555 |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
556 regs.x.ax = 0x1a00; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
557 int86 (0x10, ®s, ®s); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
558 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
|
559 return 1; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
560 return 0; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
561 } |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
562 |
14284
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
563 /* 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
|
564 ROWS x COLS frame. */ |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
565 |
14284
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
566 void |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
567 dos_set_window_size (rows, cols) |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
568 int *rows, *cols; |
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 char video_name[30]; |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
571 Lisp_Object video_mode; |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
572 int video_mode_value; |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
573 int have_vga = 0; |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
574 union REGS regs; |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
575 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
|
576 |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
577 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
|
578 return; |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
579 |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
580 mouse_off (); |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
581 have_vga = vga_installed (); |
14284
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
582 |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
583 /* 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
|
584 use that mode. */ |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
585 sprintf (video_name, "screen-dimensions-%dx%d", *rows, *cols); |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
586 video_mode = XSYMBOL (Fintern_soft (build_string (video_name), |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
587 Qnil))-> value; |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
588 |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
589 if (INTEGERP (video_mode) |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
590 && (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
|
591 { |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
592 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
|
593 int86 (0x10, ®s, ®s); |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
594 |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
595 if (have_mouse) |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
596 { |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
597 /* 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
|
598 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
|
599 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
|
600 regs.x.ax = 0; |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
601 int86 (0x33, ®s, ®s); |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
602 } |
14284
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
603 } |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
604 |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
605 /* 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
|
606 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
|
607 |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
608 #if __DJGPP__ > 1 |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
609 |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
610 else |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
611 { |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
612 static struct { |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
613 int rows; |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
614 int need_vga; |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
615 } std_dimension[] = { |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
616 {25, 0}, |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
617 {28, 1}, |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
618 {35, 0}, |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
619 {40, 1}, |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
620 {43, 0}, |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
621 {50, 1} |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
622 }; |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
623 int i = 0; |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
624 |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
625 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
|
626 { |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
627 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
|
628 && std_dimension[i].rows >= *rows) |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
629 { |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
630 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
|
631 || *cols != current_cols) |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
632 _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
|
633 break; |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
634 } |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
635 i++; |
14284
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
636 } |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
637 } |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
638 |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
639 #else /* not __DJGPP__ > 1 */ |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
640 |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
641 else if (*rows <= 25) |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
642 { |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
643 if (current_rows != 25 || current_cols != 80) |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
644 { |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
645 regs.x.ax = 3; |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
646 int86 (0x10, ®s, ®s); |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
647 regs.x.ax = 0x1101; |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
648 regs.h.bl = 0; |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
649 int86 (0x10, ®s, ®s); |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
650 regs.x.ax = 0x1200; |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
651 regs.h.bl = 32; |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
652 int86 (0x10, ®s, ®s); |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
653 regs.x.ax = 3; |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
654 int86 (0x10, ®s, ®s); |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
655 } |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
656 } |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
657 else if (*rows <= 50) |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
658 if (have_vga && (current_rows != 50 || current_cols != 80) |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
659 || *rows <= 43 && (current_rows != 43 || current_cols != 80)) |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
660 { |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
661 regs.x.ax = 3; |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
662 int86 (0x10, ®s, ®s); |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
663 regs.x.ax = 0x1112; |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
664 regs.h.bl = 0; |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
665 int86 (0x10, ®s, ®s); |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
666 regs.x.ax = 0x1200; |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
667 regs.h.bl = 32; |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
668 int86 (0x10, ®s, ®s); |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
669 regs.x.ax = 0x0100; |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
670 regs.x.cx = 7; |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
671 int86 (0x10, ®s, ®s); |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
672 } |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
673 #endif /* not __DJGPP__ > 1 */ |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
674 |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
675 if (have_mouse) |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
676 { |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
677 mouse_init (); |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
678 mouse_on (); |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
679 } |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
680 |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
681 /* 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
|
682 *rows = ScreenRows (); |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
683 *cols = ScreenCols (); |
15341
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
684 |
32730
5d98418d7b78
(dos_set_window_size): Update screen dimension variables.
Eli Zaretskii <eliz@gnu.org>
parents:
32546
diff
changeset
|
685 /* Update Emacs' notion of screen dimensions. */ |
5d98418d7b78
(dos_set_window_size): Update screen dimension variables.
Eli Zaretskii <eliz@gnu.org>
parents:
32546
diff
changeset
|
686 screen_size_X = *cols; |
5d98418d7b78
(dos_set_window_size): Update screen dimension variables.
Eli Zaretskii <eliz@gnu.org>
parents:
32546
diff
changeset
|
687 screen_size_Y = *rows; |
5d98418d7b78
(dos_set_window_size): Update screen dimension variables.
Eli Zaretskii <eliz@gnu.org>
parents:
32546
diff
changeset
|
688 screen_size = *cols * *rows; |
5d98418d7b78
(dos_set_window_size): Update screen dimension variables.
Eli Zaretskii <eliz@gnu.org>
parents:
32546
diff
changeset
|
689 |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
690 #if __DJGPP__ > 1 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
691 /* 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
|
692 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
|
693 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
694 struct frame *f = SELECTED_FRAME(); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
695 struct display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
696 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
|
697 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
698 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
|
699 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
700 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
|
701 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
|
702 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
|
703 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
704 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
705 #endif |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
706 |
15341
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
707 /* Enable bright background colors. */ |
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
708 bright_bg (); |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
709 |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
710 /* 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
|
711 be defensive anyway. */ |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
712 if (screen_virtual_segment) |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
713 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
|
714 } |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
715 |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
716 /* 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
|
717 the mouse cursor may need to be refreshed. */ |
7744
da18793f532d
(output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7667
diff
changeset
|
718 |
da18793f532d
(output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7667
diff
changeset
|
719 static void |
13179 | 720 mouse_off_maybe () |
7744
da18793f532d
(output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7667
diff
changeset
|
721 { |
13179 | 722 int x, y; |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
723 |
13179 | 724 if (!mouse_visible) |
725 return; | |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
726 |
13179 | 727 mouse_get_xy (&x, &y); |
728 if (y != new_pos_Y || x < new_pos_X) | |
729 return; | |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
730 |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
731 mouse_off (); |
9572 | 732 } |
733 | |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
734 #define DEFAULT_CURSOR_START (-1) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
735 #define DEFAULT_CURSOR_WIDTH (-1) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
736 #define BOX_CURSOR_WIDTH (-32) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
737 |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
738 /* 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
|
739 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
|
740 of the character cell, starting from zero. */ |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
741 static void |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
742 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
|
743 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
744 #if __DJGPP__ > 1 |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
745 unsigned desired_cursor; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
746 __dpmi_regs regs; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
747 int max_line, top_line, bot_line; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
748 |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
749 /* 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
|
750 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
|
751 frame. */ |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
752 if (f && f != SELECTED_FRAME()) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
753 return; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
754 |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
755 /* 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
|
756 BIOS data area. */ |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
757 max_line = _farpeekw (_dos_ds, 0x485) - 1; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
758 switch (max_line) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
759 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
760 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
|
761 case 7: |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
762 bot_line = 7; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
763 break; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
764 case 9: |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
765 bot_line = 9; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
766 break; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
767 case 13: |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
768 bot_line = 12; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
769 break; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
770 case 15: |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
771 bot_line = 14; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
772 break; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
773 } |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
774 |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
775 if (width < 0) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
776 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
777 if (width == BOX_CURSOR_WIDTH) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
778 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
779 top_line = 0; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
780 bot_line = max_line; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
781 } |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
782 else if (start_line != DEFAULT_CURSOR_START) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
783 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
784 top_line = start_line; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
785 bot_line = top_line - width - 1; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
786 } |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
787 else if (width != DEFAULT_CURSOR_WIDTH) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
788 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
789 top_line = 0; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
790 bot_line = -1 - width; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
791 } |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
792 else |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
793 top_line = bot_line + 1; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
794 } |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
795 else if (width == 0) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
796 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
797 /* [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
|
798 top_line = 31; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
799 bot_line = 0; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
800 } |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
801 else /* WIDTH is positive */ |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
802 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
803 if (start_line != DEFAULT_CURSOR_START) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
804 bot_line = start_line; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
805 top_line = bot_line - (width - 1); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
806 } |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
807 |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
808 /* 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
|
809 history here. */ |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
810 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
|
811 if (desired_cursor == _farpeekw (_dos_ds, 0x460)) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
812 return; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
813 |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
814 regs.h.ah = 1; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
815 regs.x.cx = desired_cursor; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
816 __dpmi_int (0x10, ®s); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
817 #endif /* __DJGPP__ > 1 */ |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
818 } |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
819 |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
820 static void |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
821 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
|
822 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
823 if (EQ (cursor_type, Qbar)) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
824 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
825 /* 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
|
826 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
|
827 } |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
828 else if (CONSP (cursor_type) && EQ (XCAR (cursor_type), Qbar)) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
829 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
830 Lisp_Object bar_parms = XCDR (cursor_type); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
831 int width; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
832 |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
833 if (INTEGERP (bar_parms)) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
834 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
835 /* 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
|
836 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
|
837 width = XINT (bar_parms); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
838 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
|
839 width); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
840 } |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
841 else if (CONSP (bar_parms) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
842 && INTEGERP (XCAR (bar_parms)) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
843 && INTEGERP (XCDR (bar_parms))) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
844 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
845 int start_line = XINT (XCDR (bar_parms)); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
846 |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
847 width = XINT (XCAR (bar_parms)); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
848 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
|
849 } |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
850 } |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
851 else |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
852 /* Treat anything unknown as "box cursor". This includes nil, so |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
853 that a frame which doesn't specify a cursor type gets a box, |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
854 which is the default in Emacs. */ |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
855 msdos_set_cursor_shape (f, 0, BOX_CURSOR_WIDTH); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
856 } |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
857 |
21785
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
858 static void |
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
859 IT_ring_bell (void) |
9572 | 860 { |
861 if (visible_bell) | |
862 { | |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
863 mouse_off (); |
13179 | 864 ScreenVisualBell (); |
9572 | 865 } |
866 else | |
13305
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
867 { |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
868 union REGS inregs, outregs; |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
869 inregs.h.ah = 2; |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
870 inregs.h.dl = 7; |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
871 intdos (&inregs, &outregs); |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
872 } |
9572 | 873 } |
874 | |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
875 /* 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
|
876 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
|
877 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
|
878 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
|
879 the video RAM. */ |
9572 | 880 static void |
881 IT_set_face (int face) | |
882 { | |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
883 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
|
884 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
|
885 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
|
886 unsigned long fg, bg, dflt_fg, dflt_bg; |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
887 |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
888 if (!fp) |
25214
acfe5b9d7233
(IT_set_face): Abort if the default face is not realized
Eli Zaretskii <eliz@gnu.org>
parents:
25110
diff
changeset
|
889 { |
32546
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
890 fp = dfp; |
25214
acfe5b9d7233
(IT_set_face): Abort if the default face is not realized
Eli Zaretskii <eliz@gnu.org>
parents:
25110
diff
changeset
|
891 /* 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
|
892 cached. */ |
acfe5b9d7233
(IT_set_face): Abort if the default face is not realized
Eli Zaretskii <eliz@gnu.org>
parents:
25110
diff
changeset
|
893 if (!fp) |
acfe5b9d7233
(IT_set_face): Abort if the default face is not realized
Eli Zaretskii <eliz@gnu.org>
parents:
25110
diff
changeset
|
894 abort (); |
acfe5b9d7233
(IT_set_face): Abort if the default face is not realized
Eli Zaretskii <eliz@gnu.org>
parents:
25110
diff
changeset
|
895 } |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
896 screen_face = face; |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
897 fg = fp->foreground; |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
898 bg = fp->background; |
32546
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
899 dflt_fg = dfp->foreground; |
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
900 dflt_bg = dfp->background; |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
901 |
40082
0eaf29d6544e
(IT_reassert_line_highlight, IT_change_line_highlight): Functions removed.
Miles Bader <miles@gnu.org>
parents:
38314
diff
changeset
|
902 /* 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
|
903 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
|
904 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
|
905 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
|
906 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
|
907 fg = FRAME_FOREGROUND_PIXEL (sf); |
26902
264b83a3a688
Changes for separate unspecified foreground and background colors
Eli Zaretskii <eliz@gnu.org>
parents:
26729
diff
changeset
|
908 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
|
909 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
|
910 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
|
911 bg = FRAME_BACKGROUND_PIXEL (sf); |
26902
264b83a3a688
Changes for separate unspecified foreground and background colors
Eli Zaretskii <eliz@gnu.org>
parents:
26729
diff
changeset
|
912 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
|
913 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
|
914 |
9e0e23a92539
(IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
915 /* 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
|
916 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
|
917 { |
9e0e23a92539
(IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
918 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
|
919 |
9e0e23a92539
(IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
920 fg = bg; |
9e0e23a92539
(IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
921 bg = tem; |
9e0e23a92539
(IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
922 } |
34676
fbd6630ebdaa
(IT_set_face): Obey inverse_video.
Eli Zaretskii <eliz@gnu.org>
parents:
34657
diff
changeset
|
923 /* If the user requested inverse video, obey. */ |
fbd6630ebdaa
(IT_set_face): Obey inverse_video.
Eli Zaretskii <eliz@gnu.org>
parents:
34657
diff
changeset
|
924 if (inverse_video) |
fbd6630ebdaa
(IT_set_face): Obey inverse_video.
Eli Zaretskii <eliz@gnu.org>
parents:
34657
diff
changeset
|
925 { |
fbd6630ebdaa
(IT_set_face): Obey inverse_video.
Eli Zaretskii <eliz@gnu.org>
parents:
34657
diff
changeset
|
926 unsigned long tem2 = fg; |
fbd6630ebdaa
(IT_set_face): Obey inverse_video.
Eli Zaretskii <eliz@gnu.org>
parents:
34657
diff
changeset
|
927 |
fbd6630ebdaa
(IT_set_face): Obey inverse_video.
Eli Zaretskii <eliz@gnu.org>
parents:
34657
diff
changeset
|
928 fg = bg; |
fbd6630ebdaa
(IT_set_face): Obey inverse_video.
Eli Zaretskii <eliz@gnu.org>
parents:
34657
diff
changeset
|
929 bg = tem2; |
fbd6630ebdaa
(IT_set_face): Obey inverse_video.
Eli Zaretskii <eliz@gnu.org>
parents:
34657
diff
changeset
|
930 } |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
931 if (termscript) |
40082
0eaf29d6544e
(IT_reassert_line_highlight, IT_change_line_highlight): Functions removed.
Miles Bader <miles@gnu.org>
parents:
38314
diff
changeset
|
932 fprintf (termscript, "<FACE %d: %d/%d[FG:%d/BG:%d]>", face, |
0eaf29d6544e
(IT_reassert_line_highlight, IT_change_line_highlight): Functions removed.
Miles Bader <miles@gnu.org>
parents:
38314
diff
changeset
|
933 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
|
934 if (fg >= 0 && fg < 16) |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
935 { |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
936 ScreenAttrib &= 0xf0; |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
937 ScreenAttrib |= fg; |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
938 } |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
939 if (bg >= 0 && bg < 16) |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
940 { |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
941 ScreenAttrib &= 0x0f; |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
942 ScreenAttrib |= ((bg & 0x0f) << 4); |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
943 } |
9572 | 944 } |
945 | |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
946 Lisp_Object Vdos_unsupported_char_glyph; |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
947 |
21785
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
948 static void |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
949 IT_write_glyphs (struct glyph *str, int str_len) |
9572 | 950 { |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
951 unsigned char *screen_buf, *screen_bp, *screen_buf_end, *bp; |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
952 int unsupported_face = FAST_GLYPH_FACE (Vdos_unsupported_char_glyph); |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
953 unsigned unsupported_char= FAST_GLYPH_CHAR (Vdos_unsupported_char_glyph); |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
954 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
|
955 register int sl = str_len; |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
956 register int tlen = GLYPH_TABLE_LENGTH; |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
957 register Lisp_Object *tbase = GLYPH_TABLE_BASE; |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
958 |
29613
7da06cd67660
(IT_write_glyphs): Don't use CODING_REQUIRE_ENCODING
Eli Zaretskii <eliz@gnu.org>
parents:
29098
diff
changeset
|
959 /* If terminal_coding does any conversion, use it, otherwise use |
7da06cd67660
(IT_write_glyphs): Don't use CODING_REQUIRE_ENCODING
Eli Zaretskii <eliz@gnu.org>
parents:
29098
diff
changeset
|
960 safe_terminal_coding. We can't use CODING_REQUIRE_ENCODING here |
7da06cd67660
(IT_write_glyphs): Don't use CODING_REQUIRE_ENCODING
Eli Zaretskii <eliz@gnu.org>
parents:
29098
diff
changeset
|
961 because it always returns 1 if terminal_coding.src_multibyte is 1. */ |
7da06cd67660
(IT_write_glyphs): Don't use CODING_REQUIRE_ENCODING
Eli Zaretskii <eliz@gnu.org>
parents:
29098
diff
changeset
|
962 struct coding_system *coding = |
7da06cd67660
(IT_write_glyphs): Don't use CODING_REQUIRE_ENCODING
Eli Zaretskii <eliz@gnu.org>
parents:
29098
diff
changeset
|
963 (terminal_coding.common_flags & CODING_REQUIRE_ENCODING_MASK |
7da06cd67660
(IT_write_glyphs): Don't use CODING_REQUIRE_ENCODING
Eli Zaretskii <eliz@gnu.org>
parents:
29098
diff
changeset
|
964 ? &terminal_coding |
7da06cd67660
(IT_write_glyphs): Don't use CODING_REQUIRE_ENCODING
Eli Zaretskii <eliz@gnu.org>
parents:
29098
diff
changeset
|
965 : &safe_terminal_coding); |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
966 struct frame *sf; |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
967 |
24001
fce0e760c4ab
(IT_write_glyphs): Move constant expression out of the loop.
Eli Zaretskii <eliz@gnu.org>
parents:
23971
diff
changeset
|
968 /* 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
|
969 multibyte? */ |
fce0e760c4ab
(IT_write_glyphs): Move constant expression out of the loop.
Eli Zaretskii <eliz@gnu.org>
parents:
23971
diff
changeset
|
970 int convert_unibyte_characters |
24678
56fe3cae0f96
(unibyte_display_via_language_environment):
Andrew Innes <andrewi@gnu.org>
parents:
24593
diff
changeset
|
971 = (NILP (current_buffer->enable_multibyte_characters) |
56fe3cae0f96
(unibyte_display_via_language_environment):
Andrew Innes <andrewi@gnu.org>
parents:
24593
diff
changeset
|
972 && 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
|
973 |
30835
45f168392f57
(IT_write_glyphs): Use a locally declared conversion_buffer.
Kenichi Handa <handa@m17n.org>
parents:
30826
diff
changeset
|
974 unsigned char conversion_buffer[256]; |
45f168392f57
(IT_write_glyphs): Use a locally declared conversion_buffer.
Kenichi Handa <handa@m17n.org>
parents:
30826
diff
changeset
|
975 int conversion_buffer_size = sizeof conversion_buffer; |
45f168392f57
(IT_write_glyphs): Use a locally declared conversion_buffer.
Kenichi Handa <handa@m17n.org>
parents:
30826
diff
changeset
|
976 |
26946
9e0e23a92539
(IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
977 if (str_len <= 0) return; |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
978 |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
979 screen_buf = screen_bp = alloca (str_len * 2); |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
980 screen_buf_end = screen_buf + str_len * 2; |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
981 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
|
982 |
acfe5b9d7233
(IT_set_face): Abort if the default face is not realized
Eli Zaretskii <eliz@gnu.org>
parents:
25110
diff
changeset
|
983 /* 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
|
984 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
|
985 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
|
986 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
|
987 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
|
988 IT_set_face (DEFAULT_FACE_ID); |
13179 | 989 |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
990 /* 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
|
991 the tail. */ |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
992 terminal_coding.mode &= ~CODING_MODE_LAST_BLOCK; |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
993 while (sl) |
9572 | 994 { |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
995 int cf, chlen, enclen; |
26946
9e0e23a92539
(IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
996 unsigned char workbuf[MAX_MULTIBYTE_LENGTH], *buf; |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
997 unsigned ch; |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
998 |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
999 /* Glyphs with GLYPH_MASK_PADDING bit set are actually there |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1000 only for the redisplay code to know how many columns does |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1001 this character occupy on the screen. Skip padding glyphs. */ |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1002 if (CHAR_GLYPH_PADDING_P (*str)) |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1003 { |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1004 str++; |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1005 sl--; |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1006 } |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1007 else |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1008 { |
27038
e168198350dd
(IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents:
27019
diff
changeset
|
1009 register GLYPH g = GLYPH_FROM_CHAR_GLYPH (*str); |
e168198350dd
(IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents:
27019
diff
changeset
|
1010 int glyph_not_in_table = 0; |
e168198350dd
(IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents:
27019
diff
changeset
|
1011 |
34657
9ff4148959a8
(IT_write_glyphs): Compute the glyph face from str->face_id.
Eli Zaretskii <eliz@gnu.org>
parents:
34561
diff
changeset
|
1012 /* If g is negative, it means we have a multibyte character |
9ff4148959a8
(IT_write_glyphs): Compute the glyph face from str->face_id.
Eli Zaretskii <eliz@gnu.org>
parents:
34561
diff
changeset
|
1013 in *str. That's what GLYPH_FROM_CHAR_GLYPH returns for |
9ff4148959a8
(IT_write_glyphs): Compute the glyph face from str->face_id.
Eli Zaretskii <eliz@gnu.org>
parents:
34561
diff
changeset
|
1014 multibyte characters. */ |
27038
e168198350dd
(IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents:
27019
diff
changeset
|
1015 if (g < 0 || g >= tlen) |
e168198350dd
(IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents:
27019
diff
changeset
|
1016 { |
e168198350dd
(IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents:
27019
diff
changeset
|
1017 /* This glyph doesn't have an entry in Vglyph_table. */ |
e168198350dd
(IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents:
27019
diff
changeset
|
1018 ch = str->u.ch; |
e168198350dd
(IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents:
27019
diff
changeset
|
1019 glyph_not_in_table = 1; |
e168198350dd
(IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents:
27019
diff
changeset
|
1020 } |
e168198350dd
(IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents:
27019
diff
changeset
|
1021 else |
e168198350dd
(IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents:
27019
diff
changeset
|
1022 { |
e168198350dd
(IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents:
27019
diff
changeset
|
1023 /* This glyph has an entry in Vglyph_table, so process |
e168198350dd
(IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents:
27019
diff
changeset
|
1024 any aliases before testing for simpleness. */ |
e168198350dd
(IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents:
27019
diff
changeset
|
1025 GLYPH_FOLLOW_ALIASES (tbase, tlen, g); |
e168198350dd
(IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents:
27019
diff
changeset
|
1026 ch = FAST_GLYPH_CHAR (g); |
e168198350dd
(IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents:
27019
diff
changeset
|
1027 } |
e168198350dd
(IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents:
27019
diff
changeset
|
1028 |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1029 /* Convert the character code to multibyte, if they |
27038
e168198350dd
(IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents:
27019
diff
changeset
|
1030 requested display via language environment. We only want |
e168198350dd
(IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents:
27019
diff
changeset
|
1031 to convert unibyte characters to multibyte in unibyte |
e168198350dd
(IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents:
27019
diff
changeset
|
1032 buffers! Otherwise, the 8-bit value in CH came from the |
e168198350dd
(IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents:
27019
diff
changeset
|
1033 display table set up to display foreign characters. */ |
24001
fce0e760c4ab
(IT_write_glyphs): Move constant expression out of the loop.
Eli Zaretskii <eliz@gnu.org>
parents:
23971
diff
changeset
|
1034 if (SINGLE_BYTE_CHAR_P (ch) && convert_unibyte_characters |
23926
f2d6df96a3c7
(IT_write_glyphs): Don't convert 7-bit ASCII characters via
Eli Zaretskii <eliz@gnu.org>
parents:
23825
diff
changeset
|
1035 && (ch >= 0240 |
f2d6df96a3c7
(IT_write_glyphs): Don't convert 7-bit ASCII characters via
Eli Zaretskii <eliz@gnu.org>
parents:
23825
diff
changeset
|
1036 || (ch >= 0200 && !NILP (Vnonascii_translation_table)))) |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1037 ch = unibyte_char_to_multibyte (ch); |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1038 |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1039 /* Invalid characters are displayed with a special glyph. */ |
27038
e168198350dd
(IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents:
27019
diff
changeset
|
1040 if (! CHAR_VALID_P (ch, 0)) |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1041 { |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1042 g = !NILP (Vdos_unsupported_char_glyph) |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1043 ? Vdos_unsupported_char_glyph |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
1044 : MAKE_GLYPH (sf, '\177', GLYPH_FACE (sf, g)); |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1045 ch = FAST_GLYPH_CHAR (g); |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1046 } |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1047 |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1048 /* If the face of this glyph is different from the current |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1049 screen face, update the screen attribute byte. */ |
34657
9ff4148959a8
(IT_write_glyphs): Compute the glyph face from str->face_id.
Eli Zaretskii <eliz@gnu.org>
parents:
34561
diff
changeset
|
1050 cf = str->face_id; |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1051 if (cf != screen_face) |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1052 IT_set_face (cf); /* handles invalid faces gracefully */ |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1053 |
27038
e168198350dd
(IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents:
27019
diff
changeset
|
1054 if (glyph_not_in_table || GLYPH_SIMPLE_P (tbase, tlen, g)) |
26946
9e0e23a92539
(IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
1055 { |
9e0e23a92539
(IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
1056 /* We generate the multi-byte form of CH in WORKBUF. */ |
9e0e23a92539
(IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
1057 chlen = CHAR_STRING (ch, workbuf); |
9e0e23a92539
(IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
1058 buf = workbuf; |
9e0e23a92539
(IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
1059 } |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1060 else |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1061 { |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1062 /* We have a string in Vglyph_table. */ |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1063 chlen = GLYPH_LENGTH (tbase, g); |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1064 buf = GLYPH_STRING (tbase, g); |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1065 } |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1066 |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1067 /* If the character is not multibyte, don't bother converting it. */ |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1068 if (chlen == 1) |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1069 { |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1070 *conversion_buffer = (unsigned char)ch; |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1071 chlen = 0; |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1072 enclen = 1; |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1073 } |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1074 else |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1075 { |
29098
c8a95c4dfd18
(IT_write_glyphs): Set coding->src_multibyte to 1.
Kenichi Handa <handa@m17n.org>
parents:
28932
diff
changeset
|
1076 coding->src_multibyte = 1; |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1077 encode_coding (coding, buf, conversion_buffer, chlen, |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1078 conversion_buffer_size); |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1079 chlen -= coding->consumed; |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1080 enclen = coding->produced; |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1081 |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1082 /* Replace glyph codes that cannot be converted by |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1083 terminal_coding with Vdos_unsupported_char_glyph. */ |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1084 if (*conversion_buffer == '?') |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1085 { |
30840
de949e4ff09a
(IT_write_glyphs): Convert cbp to unsigned char *.
Eli Zaretskii <eliz@gnu.org>
parents:
30835
diff
changeset
|
1086 unsigned char *cbp = conversion_buffer; |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1087 |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1088 while (cbp < conversion_buffer + enclen && *cbp == '?') |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1089 *cbp++ = unsupported_char; |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1090 if (unsupported_face != screen_face) |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1091 IT_set_face (unsupported_face); |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1092 } |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1093 } |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1094 |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1095 if (enclen + chlen > screen_buf_end - screen_bp) |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1096 { |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1097 /* The allocated buffer for screen writes is too small. |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1098 Flush it and loop again without incrementing STR, so |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1099 that the next loop will begin with the same glyph. */ |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1100 int nbytes = screen_bp - screen_buf; |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1101 |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1102 mouse_off_maybe (); |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1103 dosmemput (screen_buf, nbytes, (int)ScreenPrimary + offset); |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1104 if (screen_virtual_segment) |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1105 dosv_refresh_virtual_screen (offset, nbytes / 2); |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1106 new_pos_X += nbytes / 2; |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1107 offset += nbytes; |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1108 |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1109 /* Prepare to reuse the same buffer again. */ |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1110 screen_bp = screen_buf; |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1111 } |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1112 else |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1113 { |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1114 /* There's enough place in the allocated buffer to add |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1115 the encoding of this glyph. */ |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1116 |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1117 /* First, copy the encoded bytes. */ |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1118 for (bp = conversion_buffer; enclen--; bp++) |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1119 { |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1120 *screen_bp++ = (unsigned char)*bp; |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1121 *screen_bp++ = ScreenAttrib; |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1122 if (termscript) |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1123 fputc (*bp, termscript); |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1124 } |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1125 |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1126 /* Now copy the bytes not consumed by the encoding. */ |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1127 if (chlen > 0) |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1128 { |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1129 buf += coding->consumed; |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1130 while (chlen--) |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1131 { |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1132 if (termscript) |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1133 fputc (*buf, termscript); |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1134 *screen_bp++ = (unsigned char)*buf++; |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1135 *screen_bp++ = ScreenAttrib; |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1136 } |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1137 } |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1138 |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1139 /* Update STR and its remaining length. */ |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1140 str++; |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1141 sl--; |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1142 } |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1143 } |
9572 | 1144 } |
13179 | 1145 |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1146 /* Dump whatever is left in the screen buffer. */ |
13179 | 1147 mouse_off_maybe (); |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1148 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
|
1149 if (screen_virtual_segment) |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1150 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
|
1151 new_pos_X += (screen_bp - screen_buf) / 2; |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1152 |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1153 /* We may have to output some codes to terminate the writing. */ |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1154 if (CODING_REQUIRE_FLUSHING (coding)) |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1155 { |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1156 coding->mode |= CODING_MODE_LAST_BLOCK; |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1157 encode_coding (coding, "", conversion_buffer, 0, conversion_buffer_size); |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1158 if (coding->produced > 0) |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1159 { |
27775
5e0dd203f6e1
(IT_write_glyphs): Allocate a larger screen_buf as data
Eli Zaretskii <eliz@gnu.org>
parents:
27640
diff
changeset
|
1160 screen_buf = alloca (coding->produced * 2); |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1161 for (screen_bp = screen_buf, bp = conversion_buffer; |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1162 coding->produced--; bp++) |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1163 { |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1164 *screen_bp++ = (unsigned char)*bp; |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1165 *screen_bp++ = ScreenAttrib; |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1166 if (termscript) |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1167 fputc (*bp, termscript); |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1168 } |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1169 offset += screen_bp - screen_buf; |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1170 mouse_off_maybe (); |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1171 dosmemput (screen_buf, screen_bp - screen_buf, |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1172 (int)ScreenPrimary + offset); |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1173 if (screen_virtual_segment) |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1174 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
|
1175 new_pos_X += (screen_bp - screen_buf) / 2; |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1176 } |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1177 } |
9572 | 1178 } |
1179 | |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1180 /************************************************************************ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1181 Mouse Highlight (and friends..) |
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 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1184 /* This is used for debugging, to turn off note_mouse_highlight. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1185 int disable_mouse_highlight; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1186 |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1187 /* If non-nil, dos_rawgetc generates an event to display that string. |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1188 (The display is done in keyboard.c:read_char, by calling |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1189 show_help_echo.) */ |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1190 static Lisp_Object help_echo; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1191 static Lisp_Object previous_help_echo; /* a helper temporary variable */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1192 |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1193 /* These record the window, the object and the position where the help |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1194 echo string was generated. */ |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1195 static Lisp_Object help_echo_window; |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1196 static Lisp_Object help_echo_object; |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1197 static int help_echo_pos; |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1198 |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1199 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
|
1200 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1201 /* 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
|
1202 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
|
1203 static void |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1204 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
|
1205 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1206 /* 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
|
1207 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
|
1208 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
|
1209 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
|
1210 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
|
1211 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
|
1212 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1213 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1214 /* 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
|
1215 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
|
1216 static void |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1217 show_mouse_face (struct display_info *dpyinfo, int hl) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1218 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1219 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
|
1220 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
|
1221 int i; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1222 struct face *fp; |
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 /* 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
|
1226 doing anything. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1227 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
|
1228 goto set_cursor_shape; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1229 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1230 /* 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
|
1231 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
|
1232 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
|
1233 goto set_cursor_shape; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1234 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1235 /* 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
|
1236 if (hl > 0) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1237 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1238 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
|
1239 if (!fp) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1240 goto set_cursor_shape; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1241 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1242 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1243 /* 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
|
1244 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
|
1245 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
|
1246 i++) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1247 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1248 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
|
1249 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
|
1250 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1251 /* 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
|
1252 if (!row->enabled_p) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1253 continue; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1254 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1255 /* 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
|
1256 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
|
1257 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
|
1258 else |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1259 start_hpos = 0; |
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 (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
|
1262 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
|
1263 else |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1264 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
|
1265 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1266 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
|
1267 continue; |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1268 /* 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
|
1269 mouse-face. */ |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1270 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
|
1271 if (hl > 0) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1272 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1273 int vpos = row->y + WINDOW_DISPLAY_TOP_EDGE_PIXEL_Y (w); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1274 int kstart = start_hpos + WINDOW_DISPLAY_LEFT_EDGE_PIXEL_X (w); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1275 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
|
1276 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
|
1277 int start_offset = offset; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1278 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1279 if (termscript) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1280 fprintf (termscript, "\n<MH+ %d-%d:%d>", |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1281 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
|
1282 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1283 mouse_off (); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1284 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
|
1285 /* 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
|
1286 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
|
1287 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
|
1288 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
|
1289 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
|
1290 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
|
1291 _farsetsel (_dos_ds); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1292 while (nglyphs--) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1293 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1294 _farnspokeb (offset, ScreenAttrib); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1295 offset += 2; |
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 if (screen_virtual_segment) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1298 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
|
1299 mouse_on (); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1300 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1301 else |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1302 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1303 /* 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
|
1304 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
|
1305 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
|
1306 behind our back. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1307 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
|
1308 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
|
1309 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1310 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
|
1311 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
|
1312 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1313 /* 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
|
1314 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
|
1315 the highlight region. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1316 new_pos_X = start_hpos + WINDOW_DISPLAY_LEFT_EDGE_PIXEL_X (w); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1317 new_pos_Y = row->y + WINDOW_DISPLAY_TOP_EDGE_PIXEL_Y (w); |
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 if (termscript) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1320 fprintf (termscript, "<MH- %d-%d:%d>", |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1321 new_pos_X, new_pos_X + nglyphs - 1, new_pos_Y); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1322 IT_write_glyphs (row->glyphs[TEXT_AREA] + start_hpos, nglyphs); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1323 if (termscript) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1324 fputs ("\n", termscript); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1325 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
|
1326 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
|
1327 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1328 } |
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 set_cursor_shape: |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1331 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1332 /* 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
|
1333 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
|
1334 } |
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 /* 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
|
1337 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
|
1338 static void |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1339 clear_mouse_face (struct display_info *dpyinfo) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1340 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1341 if (! NILP (dpyinfo->mouse_face_window)) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1342 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
|
1343 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1344 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
|
1345 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
|
1346 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
|
1347 } |
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 /* 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
|
1350 *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
|
1351 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
|
1352 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
|
1353 static int |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1354 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
|
1355 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1356 int i; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1357 int lastcol; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1358 int maybe_next_line_p = 0; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1359 int line_start_position; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1360 int yb = window_text_bottom_y (w); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1361 struct glyph_row *row = MATRIX_ROW (w->current_matrix, 0); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1362 struct glyph_row *best_row = row; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1363 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1364 while (row->y < yb) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1365 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1366 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
|
1367 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
|
1368 else |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1369 line_start_position = 0; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1370 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1371 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
|
1372 break; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1373 /* 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
|
1374 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
|
1375 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
|
1376 && 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
|
1377 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1378 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
|
1379 break; |
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 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
|
1382 best_row = row; |
34483
eccf7d43bead
(fast_find_position): Don't overstep the last window row.
Eli Zaretskii <eliz@gnu.org>
parents:
32730
diff
changeset
|
1383 |
eccf7d43bead
(fast_find_position): Don't overstep the last window row.
Eli Zaretskii <eliz@gnu.org>
parents:
32730
diff
changeset
|
1384 /* 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
|
1385 never-never land... */ |
eccf7d43bead
(fast_find_position): Don't overstep the last window row.
Eli Zaretskii <eliz@gnu.org>
parents:
32730
diff
changeset
|
1386 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
|
1387 break; |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1388 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1389 ++row; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1390 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1391 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1392 /* 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
|
1393 lastcol = 0; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1394 row = best_row; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1395 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
|
1396 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1397 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
|
1398 int charpos; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1399 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1400 charpos = glyph->charpos; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1401 if (charpos == pos) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1402 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1403 *hpos = i; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1404 *vpos = row->y; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1405 return 1; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1406 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1407 else if (charpos > pos) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1408 break; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1409 else if (charpos > 0) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1410 lastcol = i; |
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 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1413 /* 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
|
1414 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
|
1415 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
|
1416 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
|
1417 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1418 ++row; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1419 lastcol = 0; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1420 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1421 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1422 *vpos = row->y; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1423 *hpos = lastcol + 1; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1424 return 0; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1425 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1426 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1427 /* 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
|
1428 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
|
1429 mode line. X is relative to the start of the text display area of |
41122 | 1430 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
|
1431 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
|
1432 static void |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1433 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
|
1434 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1435 struct frame *f = XFRAME (w->frame); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1436 struct display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1437 struct glyph_row *row; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1438 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1439 if (mode_line_p) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1440 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
|
1441 else |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1442 row = MATRIX_HEADER_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
|
1443 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1444 if (row->enabled_p) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1445 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1446 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
|
1447 struct glyph *glyph, *end; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1448 Lisp_Object help, map; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1449 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1450 /* Find the glyph under X. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1451 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
|
1452 + x - FRAME_LEFT_SCROLL_BAR_WIDTH (f) * CANON_X_UNIT (f); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1453 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
|
1454 if (glyph < end |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1455 && STRINGP (glyph->object) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1456 && XSTRING (glyph->object)->intervals |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1457 && glyph->charpos >= 0 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1458 && glyph->charpos < XSTRING (glyph->object)->size) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1459 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1460 /* 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
|
1461 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
|
1462 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
|
1463 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
|
1464 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
|
1465 if (!NILP (help)) |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1466 { |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1467 help_echo = help; |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1468 XSETWINDOW (help_echo_window, w); |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1469 help_echo_object = glyph->object; |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1470 help_echo_pos = glyph->charpos; |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1471 } |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1472 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1473 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1474 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1475 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1476 /* 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
|
1477 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
|
1478 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
|
1479 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
|
1480 static void |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1481 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
|
1482 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1483 struct display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f); |
34483
eccf7d43bead
(fast_find_position): Don't overstep the last window row.
Eli Zaretskii <eliz@gnu.org>
parents:
32730
diff
changeset
|
1484 int portion = -1; |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1485 Lisp_Object window; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1486 struct window *w; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1487 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1488 /* 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
|
1489 if (mouse_preempted) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1490 return; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1491 |
28008
5b87cdbef5a8
(IT_note_mouse_highlight): Return immediately if frame's
Eli Zaretskii <eliz@gnu.org>
parents:
27775
diff
changeset
|
1492 if (disable_mouse_highlight |
5b87cdbef5a8
(IT_note_mouse_highlight): Return immediately if frame's
Eli Zaretskii <eliz@gnu.org>
parents:
27775
diff
changeset
|
1493 || !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
|
1494 return; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1495 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1496 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
|
1497 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
|
1498 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
|
1499 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1500 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
|
1501 return; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1502 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1503 if (gc_in_progress) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1504 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1505 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
|
1506 return; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1507 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1508 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1509 /* Which window is that in? */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1510 window = window_from_coordinates (f, x, y, &portion, 0); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1511 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1512 /* 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
|
1513 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
|
1514 clear_mouse_face (dpyinfo); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1515 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1516 /* 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
|
1517 if (!WINDOWP (window)) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1518 return; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1519 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1520 /* 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
|
1521 w = XWINDOW (window); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1522 x -= WINDOW_DISPLAY_LEFT_EDGE_PIXEL_X (w); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1523 y -= WINDOW_DISPLAY_TOP_EDGE_PIXEL_Y (w); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1524 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1525 if (portion == 1 || portion == 3) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1526 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1527 /* Mouse is on the mode or top line. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1528 IT_note_mode_line_highlight (w, x, portion == 1); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1529 return; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1530 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1531 else |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1532 IT_set_mouse_pointer (0); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1533 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1534 /* 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
|
1535 And verify the buffer's text has not changed. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1536 if (/* Within text portion of the window. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1537 portion == 0 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1538 && 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
|
1539 && 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
|
1540 && (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
|
1541 == 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
|
1542 { |
34483
eccf7d43bead
(fast_find_position): Don't overstep the last window row.
Eli Zaretskii <eliz@gnu.org>
parents:
32730
diff
changeset
|
1543 int pos, i; |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1544 struct glyph_row *row; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1545 struct glyph *glyph; |
34483
eccf7d43bead
(fast_find_position): Don't overstep the last window row.
Eli Zaretskii <eliz@gnu.org>
parents:
32730
diff
changeset
|
1546 int 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
|
1547 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1548 /* 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
|
1549 glyph = NULL; |
34483
eccf7d43bead
(fast_find_position): Don't overstep the last window row.
Eli Zaretskii <eliz@gnu.org>
parents:
32730
diff
changeset
|
1550 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
|
1551 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1552 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
|
1553 /* 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
|
1554 not enabled. */ |
eccf7d43bead
(fast_find_position): Don't overstep the last window row.
Eli Zaretskii <eliz@gnu.org>
parents:
32730
diff
changeset
|
1555 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
|
1556 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
|
1557 break; |
eccf7d43bead
(fast_find_position): Don't overstep the last window row.
Eli Zaretskii <eliz@gnu.org>
parents:
32730
diff
changeset
|
1558 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
|
1559 && row->displays_text_p |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1560 && 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
|
1561 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1562 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
|
1563 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
|
1564 glyph = NULL; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1565 else |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1566 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1567 glyph += x; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1568 if (!BUFFERP (glyph->object)) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1569 glyph = NULL; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1570 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1571 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1572 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1573 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1574 /* 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
|
1575 if (glyph == NULL) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1576 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1577 clear_mouse_face (dpyinfo); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1578 return; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1579 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1580 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1581 if (!BUFFERP (glyph->object)) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1582 abort (); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1583 pos = glyph->charpos; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1584 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1585 /* 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
|
1586 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1587 extern Lisp_Object Qmouse_face; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1588 Lisp_Object mouse_face, overlay, position; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1589 Lisp_Object *overlay_vec; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1590 int len, noverlays; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1591 struct buffer *obuf; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1592 int obegv, ozv; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1593 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1594 /* 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
|
1595 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
|
1596 return; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1597 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1598 /* 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
|
1599 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
|
1600 obuf = current_buffer; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1601 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
|
1602 obegv = BEGV; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1603 ozv = ZV; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1604 BEGV = BEG; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1605 ZV = Z; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1606 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1607 /* 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
|
1608 XSETINT (position, pos); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1609 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1610 /* Put all the overlays we want in a vector in overlay_vec. |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1611 Store the length in len. If there are more than 10, make |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1612 enough space for all, and try again. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1613 len = 10; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1614 overlay_vec = (Lisp_Object *) alloca (len * sizeof (Lisp_Object)); |
30725
a5e7ece45cf0
(IT_note_mouse_highlight): Update the calls to overlays_at.
Eli Zaretskii <eliz@gnu.org>
parents:
30711
diff
changeset
|
1615 noverlays = overlays_at (pos, 0, &overlay_vec, &len, NULL, NULL, 0); |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1616 if (noverlays > len) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1617 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1618 len = noverlays; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1619 overlay_vec = (Lisp_Object *) alloca (len * sizeof (Lisp_Object)); |
30725
a5e7ece45cf0
(IT_note_mouse_highlight): Update the calls to overlays_at.
Eli Zaretskii <eliz@gnu.org>
parents:
30711
diff
changeset
|
1620 noverlays = overlays_at (pos, |
a5e7ece45cf0
(IT_note_mouse_highlight): Update the calls to overlays_at.
Eli Zaretskii <eliz@gnu.org>
parents:
30711
diff
changeset
|
1621 0, &overlay_vec, &len, NULL, NULL, 0); |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1622 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1623 |
30381
ace34a073127
(IT_note_mouse_highlight): Process overlays in the
Eli Zaretskii <eliz@gnu.org>
parents:
30341
diff
changeset
|
1624 /* 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
|
1625 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
|
1626 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1627 /* Check mouse-face highlighting. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1628 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
|
1629 && 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
|
1630 && 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
|
1631 && (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
|
1632 || 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
|
1633 && (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
|
1634 || 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
|
1635 || 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
|
1636 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1637 /* 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
|
1638 clear_mouse_face (dpyinfo); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1639 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1640 /* 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
|
1641 overlay = Qnil; |
30381
ace34a073127
(IT_note_mouse_highlight): Process overlays in the
Eli Zaretskii <eliz@gnu.org>
parents:
30341
diff
changeset
|
1642 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
|
1643 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1644 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
|
1645 if (!NILP (mouse_face)) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1646 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1647 overlay = overlay_vec[i]; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1648 break; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1649 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1650 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1651 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1652 /* 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
|
1653 if (NILP (overlay)) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1654 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
|
1655 w->buffer); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1656 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1657 /* Handle the overlay case. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1658 if (! NILP (overlay)) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1659 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1660 /* 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
|
1661 should be active. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1662 Lisp_Object before, after; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1663 int ignore; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1664 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1665 before = Foverlay_start (overlay); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1666 after = Foverlay_end (overlay); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1667 /* 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
|
1668 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
|
1669 &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
|
1670 &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
|
1671 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
|
1672 = !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
|
1673 &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
|
1674 &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
|
1675 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
|
1676 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
|
1677 = face_at_buffer_position (w, pos, 0, 0, |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1678 &ignore, pos + 1, 1); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1679 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1680 /* Display it as active. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1681 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
|
1682 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1683 /* 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
|
1684 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
|
1685 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1686 /* 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
|
1687 should be active. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1688 Lisp_Object before, after, beginning, end; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1689 int ignore; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1690 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1691 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
|
1692 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
|
1693 - 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
|
1694 before |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1695 = 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
|
1696 Qmouse_face, |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1697 w->buffer, beginning); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1698 after |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1699 = 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
|
1700 w->buffer, end); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1701 /* 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
|
1702 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
|
1703 &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
|
1704 &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
|
1705 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
|
1706 = !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
|
1707 &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
|
1708 &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
|
1709 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
|
1710 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
|
1711 = face_at_buffer_position (w, pos, 0, 0, |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1712 &ignore, pos + 1, 1); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1713 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1714 /* Display it as active. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1715 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
|
1716 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1717 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1718 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1719 /* 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
|
1720 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1721 Lisp_Object help; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1722 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
|
1723 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1724 /* Check overlays first. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1725 help = Qnil; |
30381
ace34a073127
(IT_note_mouse_highlight): Process overlays in the
Eli Zaretskii <eliz@gnu.org>
parents:
30341
diff
changeset
|
1726 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
|
1727 { |
ace34a073127
(IT_note_mouse_highlight): Process overlays in the
Eli Zaretskii <eliz@gnu.org>
parents:
30341
diff
changeset
|
1728 overlay = overlay_vec[i]; |
ace34a073127
(IT_note_mouse_highlight): Process overlays in the
Eli Zaretskii <eliz@gnu.org>
parents:
30341
diff
changeset
|
1729 help = Foverlay_get (overlay, Qhelp_echo); |
ace34a073127
(IT_note_mouse_highlight): Process overlays in the
Eli Zaretskii <eliz@gnu.org>
parents:
30341
diff
changeset
|
1730 } |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1731 |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1732 if (!NILP (help)) |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1733 { |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1734 help_echo = help; |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1735 help_echo_window = window; |
30381
ace34a073127
(IT_note_mouse_highlight): Process overlays in the
Eli Zaretskii <eliz@gnu.org>
parents:
30341
diff
changeset
|
1736 help_echo_object = overlay; |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1737 help_echo_pos = pos; |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1738 } |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1739 /* Try text properties. */ |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1740 else if (NILP (help) |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1741 && ((STRINGP (glyph->object) |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1742 && glyph->charpos >= 0 |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1743 && glyph->charpos < XSTRING (glyph->object)->size) |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1744 || (BUFFERP (glyph->object) |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1745 && glyph->charpos >= BEGV |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1746 && glyph->charpos < ZV))) |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1747 { |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1748 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
|
1749 Qhelp_echo, glyph->object); |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1750 if (!NILP (help)) |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1751 { |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1752 help_echo = help; |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1753 help_echo_window = window; |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1754 help_echo_object = glyph->object; |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1755 help_echo_pos = glyph->charpos; |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1756 } |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1757 } |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1758 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1759 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1760 BEGV = obegv; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1761 ZV = ozv; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1762 current_buffer = obuf; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1763 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1764 } |
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 |
21785
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
1767 static void |
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
1768 IT_clear_end_of_line (int first_unused) |
9572 | 1769 { |
13179 | 1770 char *spaces, *sp; |
1771 int i, j; | |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1772 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
|
1773 extern int fatal_error_in_progress; |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1774 |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
1775 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
|
1776 return; |
13179 | 1777 |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
1778 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
|
1779 i = (j = first_unused - new_pos_X) * 2; |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
1780 if (termscript) |
27462
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
1781 fprintf (termscript, "<CLR:EOL[%d..%d)>", new_pos_X, first_unused); |
13179 | 1782 spaces = sp = alloca (i); |
1783 | |
1784 while (--j >= 0) | |
1785 { | |
1786 *sp++ = ' '; | |
1787 *sp++ = ScreenAttrib; | |
1788 } | |
1789 | |
1790 mouse_off_maybe (); | |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1791 dosmemput (spaces, i, (int)ScreenPrimary + offset); |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1792 if (screen_virtual_segment) |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1793 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
|
1794 |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
1795 /* 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
|
1796 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
|
1797 new_pos_X = first_unused; |
13179 | 1798 } |
1799 | |
21785
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
1800 static void |
13179 | 1801 IT_clear_screen (void) |
1802 { | |
1803 if (termscript) | |
1804 fprintf (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
|
1805 /* 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
|
1806 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
|
1807 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
|
1808 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
|
1809 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
|
1810 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
|
1811 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
|
1812 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
|
1813 else |
9ba7c0fd50b7
(IT_clear_screen): If the frame's faces are not yet
Eli Zaretskii <eliz@gnu.org>
parents:
41122
diff
changeset
|
1814 IT_set_face (0); |
13179 | 1815 mouse_off (); |
1816 ScreenClear (); | |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1817 if (screen_virtual_segment) |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1818 dosv_refresh_virtual_screen (0, screen_size); |
13179 | 1819 new_pos_X = new_pos_Y = 0; |
1820 } | |
1821 | |
21785
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
1822 static void |
13179 | 1823 IT_clear_to_end (void) |
1824 { | |
1825 if (termscript) | |
1826 fprintf (termscript, "<CLR:EOS>"); | |
1827 | |
1828 while (new_pos_Y < screen_size_Y) { | |
1829 new_pos_X = 0; | |
27462
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
1830 IT_clear_end_of_line (screen_size_X); |
13179 | 1831 new_pos_Y++; |
1832 } | |
9572 | 1833 } |
1834 | |
21785
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
1835 static void |
9572 | 1836 IT_cursor_to (int y, int x) |
1837 { | |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
1838 if (termscript) |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
1839 fprintf (termscript, "\n<XY=%dx%d>", x, y); |
13179 | 1840 new_pos_X = x; |
1841 new_pos_Y = y; | |
9572 | 1842 } |
1843 | |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1844 static int cursor_cleared; |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1845 |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
1846 static void |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1847 IT_display_cursor (int on) |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1848 { |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1849 if (on && cursor_cleared) |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1850 { |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1851 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
|
1852 cursor_cleared = 0; |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1853 } |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1854 else if (!on && !cursor_cleared) |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1855 { |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1856 ScreenSetCursor (-1, -1); |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1857 cursor_cleared = 1; |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1858 } |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1859 } |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1860 |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1861 /* 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
|
1862 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
|
1863 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
|
1864 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
|
1865 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
|
1866 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
|
1867 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
|
1868 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
|
1869 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
|
1870 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
|
1871 |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1872 `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
|
1873 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
|
1874 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
|
1875 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
|
1876 |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1877 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
|
1878 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
|
1879 |
21785
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
1880 static void |
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
1881 IT_cmgoto (FRAME_PTR f) |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1882 { |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1883 /* 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
|
1884 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
|
1885 int update_cursor_pos = 1; /* MODIFF == unchanged_modified; */ |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
1886 |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
1887 /* 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
|
1888 removed. */ |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
1889 #if 0 |
23156
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1890 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
|
1891 |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
1892 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
|
1893 |
23156
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1894 /* 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
|
1895 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
|
1896 C-g in the minibuffer. */ |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1897 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
|
1898 previous_pos_X = -1; |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1899 /* 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
|
1900 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
|
1901 if (!update_cursor_pos |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1902 && XFASTINT (XWINDOW (FRAME_MINIBUF_WINDOW (f))->top) <= new_pos_Y) |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1903 { |
23156
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1904 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
|
1905 |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1906 if (echo_area_glyphs) |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1907 { |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1908 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
|
1909 /* 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
|
1910 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
|
1911 of previous cursor position. */ |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1912 if (previous_pos_X == -1) |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1913 ScreenGetCursor (&dummy, &previous_pos_X); |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1914 } |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1915 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
|
1916 { |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1917 /* 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
|
1918 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
|
1919 tem_X = previous_pos_X; |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1920 previous_pos_X = -1; |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1921 } |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1922 |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1923 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
|
1924 { |
9b39197e9ecd
(IT_cmgoto): In the echo area, only put the cursor at
Eli Zaretskii <eliz@gnu.org>
parents:
22481
diff
changeset
|
1925 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
|
1926 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
|
1927 } |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1928 } |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
1929 #endif |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1930 |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1931 if (update_cursor_pos |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1932 && (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
|
1933 { |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1934 ScreenSetCursor (current_pos_Y = new_pos_Y, current_pos_X = new_pos_X); |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1935 if (termscript) |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1936 fprintf (termscript, "\n<CURSOR:%dx%d>", current_pos_X, current_pos_Y); |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1937 } |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1938 |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1939 /* 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
|
1940 IT_display_cursor (1); |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1941 |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1942 /* 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
|
1943 keyboard input. */ |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1944 if (!mouse_visible) |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1945 mouse_on (); |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1946 } |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1947 |
21785
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
1948 static void |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1949 IT_update_begin (struct frame *f) |
9572 | 1950 { |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1951 struct 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
|
1952 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
|
1953 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1954 BLOCK_INPUT; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1955 |
30826
f225a6bd06fc
(IT_update_begin): Don't crash if mouse_face_mouse_frame
Eli Zaretskii <eliz@gnu.org>
parents:
30725
diff
changeset
|
1956 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
|
1957 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1958 /* 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
|
1959 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
|
1960 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1961 /* 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
|
1962 highlighting. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1963 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
|
1964 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
|
1965 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1966 /* 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
|
1967 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
|
1968 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
|
1969 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
|
1970 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
|
1971 && 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
|
1972 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1973 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
|
1974 int i; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1975 |
27046
872992e41f21
(IT_update_begin): Don't dereference members of struct
Eli Zaretskii <eliz@gnu.org>
parents:
27038
diff
changeset
|
1976 /* 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
|
1977 (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
|
1978 unconditionally. */ |
872992e41f21
(IT_update_begin): Don't dereference members of struct
Eli Zaretskii <eliz@gnu.org>
parents:
27038
diff
changeset
|
1979 if (NILP (w->buffer)) |
872992e41f21
(IT_update_begin): Don't dereference members of struct
Eli Zaretskii <eliz@gnu.org>
parents:
27038
diff
changeset
|
1980 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
|
1981 else |
872992e41f21
(IT_update_begin): Don't dereference members of struct
Eli Zaretskii <eliz@gnu.org>
parents:
27038
diff
changeset
|
1982 { |
872992e41f21
(IT_update_begin): Don't dereference members of struct
Eli Zaretskii <eliz@gnu.org>
parents:
27038
diff
changeset
|
1983 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
|
1984 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
|
1985 && 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
|
1986 break; |
872992e41f21
(IT_update_begin): Don't dereference members of struct
Eli Zaretskii <eliz@gnu.org>
parents:
27038
diff
changeset
|
1987 } |
872992e41f21
(IT_update_begin): Don't dereference members of struct
Eli Zaretskii <eliz@gnu.org>
parents:
27038
diff
changeset
|
1988 |
872992e41f21
(IT_update_begin): Don't dereference members of struct
Eli Zaretskii <eliz@gnu.org>
parents:
27038
diff
changeset
|
1989 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
|
1990 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
|
1991 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1992 } |
30826
f225a6bd06fc
(IT_update_begin): Don't crash if mouse_face_mouse_frame
Eli Zaretskii <eliz@gnu.org>
parents:
30725
diff
changeset
|
1993 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
|
1994 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1995 /* 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
|
1996 highlight info. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1997 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
|
1998 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
|
1999 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
|
2000 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
|
2001 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
|
2002 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
2003 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
2004 UNBLOCK_INPUT; |
13179 | 2005 } |
2006 | |
21785
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
2007 static void |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
2008 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
|
2009 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
2010 FRAME_X_DISPLAY_INFO (f)->mouse_face_defer = 0; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
2011 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
2012 |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
2013 Lisp_Object Qcursor_type; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
2014 |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
2015 static void |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
2016 IT_frame_up_to_date (struct frame *f) |
13179 | 2017 { |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
2018 struct display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f); |
28553
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
2019 Lisp_Object new_cursor, frame_desired_cursor; |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
2020 struct window *sw; |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
2021 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
2022 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
|
2023 || (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
|
2024 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
2025 BLOCK_INPUT; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
2026 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
|
2027 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
|
2028 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
|
2029 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
|
2030 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
|
2031 UNBLOCK_INPUT; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
2032 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
2033 |
28553
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
2034 /* 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
|
2035 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
|
2036 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
|
2037 frame parameters. For the selected window, we use either its |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
2038 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
|
2039 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
|
2040 sw = XWINDOW (f->selected_window); |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
2041 frame_desired_cursor = Fcdr (Fassq (Qcursor_type, f->param_alist)); |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
2042 if (cursor_in_echo_area |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
2043 && FRAME_HAS_MINIBUF_P (f) |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
2044 && EQ (FRAME_MINIBUF_WINDOW (f), echo_area_window) |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
2045 && sw == XWINDOW (echo_area_window)) |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
2046 new_cursor = frame_desired_cursor; |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
2047 else |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
2048 { |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
2049 struct buffer *b = XBUFFER (sw->buffer); |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
2050 |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
2051 if (EQ (b->cursor_type, Qt)) |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
2052 new_cursor = frame_desired_cursor; |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
2053 else if (NILP (b->cursor_type)) /* nil means no cursor */ |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
2054 new_cursor = Fcons (Qbar, make_number (0)); |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
2055 else |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
2056 new_cursor = b->cursor_type; |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
2057 } |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
2058 |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
2059 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
|
2060 |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
2061 IT_cmgoto (f); /* position cursor when update is done */ |
9572 | 2062 } |
2063 | |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
2064 /* 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
|
2065 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
|
2066 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
|
2067 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
|
2068 static void |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
2069 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
|
2070 { |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
2071 /* 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
|
2072 conventional memorty selector. */ |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
2073 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
|
2074 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
|
2075 |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
2076 if (from == to || len <= 0) |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
2077 return; |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
2078 |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
2079 _farsetsel (_dos_ds); |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
2080 |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
2081 /* 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
|
2082 glyphs non-destructively. */ |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
2083 if (from > to) |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
2084 { |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
2085 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
|
2086 _farnspokew (to, _farnspeekw (from)); |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
2087 } |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
2088 else |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
2089 { |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
2090 from += (len - 1) * 2; |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
2091 to += (len - 1) * 2; |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
2092 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
|
2093 _farnspokew (to, _farnspeekw (from)); |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
2094 } |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
2095 if (screen_virtual_segment) |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
2096 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
|
2097 } |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
2098 |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
2099 /* Insert and delete glyphs. */ |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
2100 static void |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
2101 IT_insert_glyphs (start, len) |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
2102 register struct glyph *start; |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
2103 register int len; |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
2104 { |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
2105 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
|
2106 |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
2107 /* 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
|
2108 end of this line. */ |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
2109 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
|
2110 |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
2111 /* Now write the glyphs to be inserted. */ |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
2112 IT_write_glyphs (start, len); |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
2113 } |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
2114 |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
2115 static void |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
2116 IT_delete_glyphs (n) |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
2117 register int n; |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
2118 { |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
2119 abort (); |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
2120 } |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
2121 |
20036
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
2122 /* 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
|
2123 void |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
2124 x_set_menu_bar_lines (f, value, oldval) |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
2125 struct frame *f; |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
2126 Lisp_Object value, oldval; |
9572 | 2127 { |
20036
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
2128 set_menu_bar_lines (f, value, oldval); |
9572 | 2129 } |
2130 | |
32271
4ff70fe0d99b
(top-level) <Qbackground_color, Qforeground_color>: Make
Eli Zaretskii <eliz@gnu.org>
parents:
30840
diff
changeset
|
2131 /* This was copied from xfaces.c */ |
4ff70fe0d99b
(top-level) <Qbackground_color, Qforeground_color>: Make
Eli Zaretskii <eliz@gnu.org>
parents:
30840
diff
changeset
|
2132 |
4ff70fe0d99b
(top-level) <Qbackground_color, Qforeground_color>: Make
Eli Zaretskii <eliz@gnu.org>
parents:
30840
diff
changeset
|
2133 extern Lisp_Object Qbackground_color; |
4ff70fe0d99b
(top-level) <Qbackground_color, Qforeground_color>: Make
Eli Zaretskii <eliz@gnu.org>
parents:
30840
diff
changeset
|
2134 extern Lisp_Object Qforeground_color; |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
2135 Lisp_Object Qreverse; |
20036
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
2136 extern Lisp_Object Qtitle; |
15387
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
2137 |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
2138 /* 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
|
2139 resumed, and whenever the screen is redrawn! */ |
13179 | 2140 |
21785
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
2141 static void |
13179 | 2142 IT_set_terminal_modes (void) |
2143 { | |
2144 if (termscript) | |
2145 fprintf (termscript, "\n<SET_TERM>"); | |
2146 | |
2147 screen_size_X = ScreenCols (); | |
2148 screen_size_Y = ScreenRows (); | |
2149 screen_size = screen_size_X * screen_size_Y; | |
2150 | |
2151 new_pos_X = new_pos_Y = 0; | |
2152 current_pos_X = current_pos_Y = -1; | |
2153 | |
2154 if (term_setup_done) | |
2155 return; | |
2156 term_setup_done = 1; | |
2157 | |
2158 startup_screen_size_X = screen_size_X; | |
2159 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
|
2160 startup_screen_attrib = ScreenAttrib; |
13179 | 2161 |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
2162 #if __DJGPP__ > 1 |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
2163 /* 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
|
2164 the screen) installed? */ |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
2165 { |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
2166 unsigned short es_value; |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
2167 __dpmi_regs regs; |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
2168 |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
2169 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
|
2170 if (ScreenPrimary == 0xb0000UL || ScreenPrimary == 0xb8000UL) |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
2171 regs.x.es = (ScreenPrimary >> 4) & 0xffff; |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
2172 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
|
2173 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
|
2174 else |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
2175 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
|
2176 regs.x.di = 0; |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
2177 es_value = regs.x.es; |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
2178 __dpmi_int (0x10, ®s); |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
2179 |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2180 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
|
2181 { |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2182 /* 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
|
2183 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
|
2184 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
|
2185 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
|
2186 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
|
2187 screen_old_address = ScreenPrimary; |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
2188 screen_virtual_segment = regs.x.es; |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
2189 screen_virtual_offset = regs.x.di; |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
2190 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
|
2191 } |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
2192 } |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
2193 #endif /* __DJGPP__ > 1 */ |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
2194 |
13179 | 2195 ScreenGetCursor (&startup_pos_Y, &startup_pos_X); |
2196 ScreenRetrieve (startup_screen_buffer = xmalloc (screen_size * 2)); | |
2197 | |
2198 if (termscript) | |
13717
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
2199 fprintf (termscript, "<SCREEN SAVED (dimensions=%dx%d)>\n", |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
2200 screen_size_X, screen_size_Y); |
15341
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
2201 |
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
2202 bright_bg (); |
13179 | 2203 } |
2204 | |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
2205 /* 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
|
2206 suspended or killed. */ |
13179 | 2207 |
21785
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
2208 static void |
13179 | 2209 IT_reset_terminal_modes (void) |
2210 { | |
13717
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
2211 int display_row_start = (int) ScreenPrimary; |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
2212 int saved_row_len = startup_screen_size_X * 2; |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
2213 int update_row_len = ScreenCols () * 2; |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
2214 int current_rows = ScreenRows (); |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
2215 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
|
2216 unsigned char *saved_row = startup_screen_buffer; |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
2217 int cursor_pos_X = ScreenCols () - 1; |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
2218 int cursor_pos_Y = ScreenRows () - 1; |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
2219 |
13179 | 2220 if (termscript) |
13274 | 2221 fprintf (termscript, "\n<RESET_TERM>"); |
13179 | 2222 |
2223 if (!term_setup_done) | |
2224 return; | |
2225 | |
13717
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
2226 mouse_off (); |
16837
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
2227 |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
2228 /* 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
|
2229 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
|
2230 maybe_enable_blinking (); |
23815
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2231 |
13717
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
2232 /* We have a situation here. |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
2233 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
|
2234 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
|
2235 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
|
2236 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
|
2237 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
|
2238 `startup_screen_buffer'. |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
2239 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
|
2240 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
|
2241 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
|
2242 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
|
2243 |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
2244 ScreenAttrib = startup_screen_attrib; |
23815
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2245 |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2246 /* 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
|
2247 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
|
2248 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
|
2249 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
|
2250 { |
23815
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2251 ScreenClear (); |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
2252 if (screen_virtual_segment) |
23815
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2253 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
|
2254 |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2255 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
|
2256 update_row_len = saved_row_len; |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2257 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
|
2258 current_rows = startup_screen_size_Y; |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2259 |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2260 if (termscript) |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2261 fprintf (termscript, "<SCREEN RESTORED (dimensions=%dx%d)>\n", |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2262 update_row_len / 2, current_rows); |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2263 |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2264 while (current_rows--) |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2265 { |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2266 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
|
2267 if (screen_virtual_segment) |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2268 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
|
2269 update_row_len / 2); |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2270 saved_row += saved_row_len; |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2271 display_row_start += to_next_row; |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2272 } |
13717
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
2273 } |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
2274 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
|
2275 cursor_pos_X = startup_pos_X; |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
2276 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
|
2277 cursor_pos_Y = startup_pos_Y; |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
2278 |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
2279 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
|
2280 xfree (startup_screen_buffer); |
13179 | 2281 |
2282 term_setup_done = 0; | |
2283 } | |
2284 | |
21785
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
2285 static void |
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
2286 IT_set_terminal_window (int foo) |
13179 | 2287 { |
2288 } | |
2289 | |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2290 /* 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
|
2291 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
|
2292 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
|
2293 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
|
2294 doc: /* Remember the screen colors of the current frame. */) |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2295 (frame) |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2296 Lisp_Object frame; |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2297 { |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2298 struct frame *f; |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2299 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40082
diff
changeset
|
2300 CHECK_FRAME (frame); |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2301 f= XFRAME (frame); |
32546
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
2302 |
36483
c3734c1b1362
(Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents:
34676
diff
changeset
|
2303 /* 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
|
2304 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
|
2305 specified in default-frame-alist, it was already applied, and |
c3734c1b1362
(Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents:
34676
diff
changeset
|
2306 frame colors are reversed. We need to account for that. */ |
c3734c1b1362
(Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents:
34676
diff
changeset
|
2307 if (EQ (Fcdr (Fassq (Qreverse, f->param_alist)), Qt)) |
c3734c1b1362
(Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents:
34676
diff
changeset
|
2308 { |
c3734c1b1362
(Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents:
34676
diff
changeset
|
2309 initial_screen_colors[0] = FRAME_BACKGROUND_PIXEL (f); |
c3734c1b1362
(Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents:
34676
diff
changeset
|
2310 initial_screen_colors[1] = FRAME_FOREGROUND_PIXEL (f); |
c3734c1b1362
(Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents:
34676
diff
changeset
|
2311 } |
c3734c1b1362
(Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents:
34676
diff
changeset
|
2312 else |
c3734c1b1362
(Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents:
34676
diff
changeset
|
2313 { |
c3734c1b1362
(Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents:
34676
diff
changeset
|
2314 initial_screen_colors[0] = FRAME_FOREGROUND_PIXEL (f); |
c3734c1b1362
(Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents:
34676
diff
changeset
|
2315 initial_screen_colors[1] = FRAME_BACKGROUND_PIXEL (f); |
c3734c1b1362
(Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents:
34676
diff
changeset
|
2316 } |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2317 } |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2318 |
9572 | 2319 void |
15387
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
2320 IT_set_frame_parameters (f, alist) |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
2321 struct frame *f; |
9572 | 2322 Lisp_Object alist; |
2323 { | |
2324 Lisp_Object tail; | |
19293
af78882332ed
(IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents:
19287
diff
changeset
|
2325 int length = XINT (Flength (alist)); |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2326 int i, j; |
19293
af78882332ed
(IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents:
19287
diff
changeset
|
2327 Lisp_Object *parms |
af78882332ed
(IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents:
19287
diff
changeset
|
2328 = (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
|
2329 Lisp_Object *values |
af78882332ed
(IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents:
19287
diff
changeset
|
2330 = (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
|
2331 /* 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
|
2332 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
|
2333 int was_reverse = reverse; |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2334 int redraw = 0, fg_set = 0, bg_set = 0; |
32546
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
2335 int need_to_reverse; |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2336 unsigned long orig_fg; |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2337 unsigned long orig_bg; |
32546
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
2338 Lisp_Object frame_bg, frame_fg; |
32337 | 2339 extern Lisp_Object Qdefault, QCforeground, QCbackground; |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2340 |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2341 /* 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
|
2342 used for the initial frame. */ |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2343 if (alist == Vdefault_frame_alist |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2344 && 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
|
2345 { |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2346 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
|
2347 FRAME_BACKGROUND_PIXEL (f) = initial_screen_colors[1]; |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2348 } |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2349 orig_fg = FRAME_FOREGROUND_PIXEL (f); |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2350 orig_bg = FRAME_BACKGROUND_PIXEL (f); |
32546
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
2351 frame_fg = Fcdr (Fassq (Qforeground_color, f->param_alist)); |
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
2352 frame_bg = Fcdr (Fassq (Qbackground_color, f->param_alist)); |
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
2353 /* frame_fg and frame_bg could be nil if, for example, |
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
2354 f->param_alist is nil, e.g. if we are called from |
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
2355 Fmake_terminal_frame. */ |
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
2356 if (NILP (frame_fg)) |
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
2357 frame_fg = build_string (unspecified_fg); |
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
2358 if (NILP (frame_bg)) |
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
2359 frame_bg = build_string (unspecified_bg); |
19293
af78882332ed
(IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents:
19287
diff
changeset
|
2360 |
af78882332ed
(IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents:
19287
diff
changeset
|
2361 /* 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
|
2362 i = 0; |
9572 | 2363 for (tail = alist; CONSP (tail); tail = Fcdr (tail)) |
2364 { | |
19293
af78882332ed
(IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents:
19287
diff
changeset
|
2365 Lisp_Object elt; |
9572 | 2366 |
2367 elt = Fcar (tail); | |
19293
af78882332ed
(IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents:
19287
diff
changeset
|
2368 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
|
2369 CHECK_SYMBOL (parms[i]); |
19293
af78882332ed
(IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents:
19287
diff
changeset
|
2370 values[i] = Fcdr (elt); |
af78882332ed
(IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents:
19287
diff
changeset
|
2371 i++; |
af78882332ed
(IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents:
19287
diff
changeset
|
2372 } |
af78882332ed
(IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents:
19287
diff
changeset
|
2373 |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2374 j = i; |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2375 |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2376 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
|
2377 { |
32335
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2378 Lisp_Object prop, val; |
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2379 |
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2380 prop = parms[i]; |
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2381 val = values[i]; |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2382 |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
2383 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
|
2384 reverse = EQ (val, Qt); |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2385 } |
32546
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
2386 |
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
2387 need_to_reverse = reverse && !was_reverse; |
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
2388 if (termscript && need_to_reverse) |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2389 fprintf (termscript, "<INVERSE-VIDEO>\n"); |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2390 |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2391 /* 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
|
2392 for (i--; i >= 0; i--) |
af78882332ed
(IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents:
19287
diff
changeset
|
2393 { |
32335
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2394 Lisp_Object prop, val; |
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2395 Lisp_Object frame; |
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2396 |
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2397 prop = parms[i]; |
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2398 val = values[i]; |
9572 | 2399 |
19864
44dcf37ec345
(syms_of_msdos): Intern background-color and
Richard M. Stallman <rms@gnu.org>
parents:
19603
diff
changeset
|
2400 if (EQ (prop, Qforeground_color)) |
9572 | 2401 { |
32546
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
2402 unsigned long new_color = load_color (f, NULL, val, need_to_reverse |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2403 ? LFACE_BACKGROUND_INDEX |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2404 : 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
|
2405 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
|
2406 && 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
|
2407 && new_color != FACE_TTY_DEFAULT_BG_COLOR) |
9572 | 2408 { |
32546
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
2409 FRAME_FOREGROUND_PIXEL (f) = new_color; |
32335
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2410 /* Make sure the foreground of the default face for this |
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2411 frame is changed as well. */ |
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2412 XSETFRAME (frame, f); |
32546
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
2413 if (need_to_reverse) |
32335
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2414 { |
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2415 Finternal_set_lisp_face_attribute (Qdefault, QCbackground, |
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2416 val, frame); |
32546
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
2417 prop = Qbackground_color; |
36483
c3734c1b1362
(Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents:
34676
diff
changeset
|
2418 bg_set = 1; |
32335
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2419 } |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2420 else |
32335
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2421 { |
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2422 Finternal_set_lisp_face_attribute (Qdefault, QCforeground, |
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2423 val, frame); |
36483
c3734c1b1362
(Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents:
34676
diff
changeset
|
2424 fg_set = 1; |
32335
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2425 } |
9572 | 2426 redraw = 1; |
15341
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
2427 if (termscript) |
16915
8d28d96f6031
(run_msdos_command): Remove unused variables.
Eli Zaretskii <eliz@gnu.org>
parents:
16872
diff
changeset
|
2428 fprintf (termscript, "<FGCOLOR %lu>\n", new_color); |
9572 | 2429 } |
2430 } | |
19864
44dcf37ec345
(syms_of_msdos): Intern background-color and
Richard M. Stallman <rms@gnu.org>
parents:
19603
diff
changeset
|
2431 else if (EQ (prop, Qbackground_color)) |
9572 | 2432 { |
32546
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
2433 unsigned long new_color = load_color (f, NULL, val, need_to_reverse |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2434 ? LFACE_FOREGROUND_INDEX |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2435 : 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
|
2436 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
|
2437 && 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
|
2438 && new_color != FACE_TTY_DEFAULT_BG_COLOR) |
9572 | 2439 { |
32546
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
2440 FRAME_BACKGROUND_PIXEL (f) = new_color; |
32335
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2441 /* Make sure the background of the default face for this |
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2442 frame is changed as well. */ |
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2443 XSETFRAME (frame, f); |
32546
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
2444 if (need_to_reverse) |
32335
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2445 { |
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2446 Finternal_set_lisp_face_attribute (Qdefault, QCforeground, |
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2447 val, frame); |
32546
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
2448 prop = Qforeground_color; |
36483
c3734c1b1362
(Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents:
34676
diff
changeset
|
2449 fg_set = 1; |
32335
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2450 } |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2451 else |
32335
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2452 { |
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2453 Finternal_set_lisp_face_attribute (Qdefault, QCbackground, |
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2454 val, frame); |
36483
c3734c1b1362
(Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents:
34676
diff
changeset
|
2455 bg_set = 1; |
32335
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2456 } |
9572 | 2457 redraw = 1; |
15341
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
2458 if (termscript) |
16915
8d28d96f6031
(run_msdos_command): Remove unused variables.
Eli Zaretskii <eliz@gnu.org>
parents:
16872
diff
changeset
|
2459 fprintf (termscript, "<BGCOLOR %lu>\n", new_color); |
9572 | 2460 } |
2461 } | |
20036
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
2462 else if (EQ (prop, Qtitle)) |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
2463 { |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
2464 x_set_title (f, val); |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
2465 if (termscript) |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
2466 fprintf (termscript, "<TITLE: %s>\n", XSTRING (val)->data); |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
2467 } |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
2468 else if (EQ (prop, Qcursor_type)) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
2469 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
2470 IT_set_cursor_type (f, val); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
2471 if (termscript) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
2472 fprintf (termscript, "<CTYPE: %s>\n", |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
2473 EQ (val, Qbar) || CONSP (val) && EQ (XCAR (val), Qbar) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
2474 ? "bar" : "box"); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
2475 } |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2476 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
|
2477 } |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2478 |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2479 /* 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
|
2480 the current frame colors. */ |
32546
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
2481 if (need_to_reverse) |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2482 { |
32335
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2483 Lisp_Object frame; |
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2484 |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2485 if (!fg_set) |
20036
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
2486 { |
32335
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2487 XSETFRAME (frame, f); |
36483
c3734c1b1362
(Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents:
34676
diff
changeset
|
2488 Finternal_set_lisp_face_attribute (Qdefault, QCforeground, |
c3734c1b1362
(Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents:
34676
diff
changeset
|
2489 tty_color_name (f, orig_bg), |
32337 | 2490 frame); |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2491 redraw = 1; |
20036
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
2492 } |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2493 if (!bg_set) |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2494 { |
32335
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2495 XSETFRAME (frame, f); |
36483
c3734c1b1362
(Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents:
34676
diff
changeset
|
2496 Finternal_set_lisp_face_attribute (Qdefault, QCbackground, |
c3734c1b1362
(Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents:
34676
diff
changeset
|
2497 tty_color_name (f, orig_fg), |
32337 | 2498 frame); |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2499 redraw = 1; |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2500 } |
9572 | 2501 } |
2502 | |
2503 if (redraw) | |
2504 { | |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2505 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
|
2506 if (f == SELECTED_FRAME()) |
15387
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
2507 redraw_frame (f); |
9572 | 2508 } |
2509 } | |
2510 | |
16915
8d28d96f6031
(run_msdos_command): Remove unused variables.
Eli Zaretskii <eliz@gnu.org>
parents:
16872
diff
changeset
|
2511 extern void init_frame_faces (FRAME_PTR); |
8d28d96f6031
(run_msdos_command): Remove unused variables.
Eli Zaretskii <eliz@gnu.org>
parents:
16872
diff
changeset
|
2512 |
13179 | 2513 #endif /* !HAVE_X_WINDOWS */ |
9572 | 2514 |
2515 | |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
2516 /* 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
|
2517 |
5503 | 2518 void |
2519 internal_terminal_init () | |
2520 { | |
2521 char *term = getenv ("TERM"); | |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
2522 char *colors; |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2523 struct frame *sf = SELECTED_FRAME(); |
13179 | 2524 |
9572 | 2525 #ifdef HAVE_X_WINDOWS |
2526 if (!inhibit_window_system) | |
2527 return; | |
2528 #endif | |
2529 | |
5503 | 2530 internal_terminal |
2531 = (!noninteractive) && term && !strcmp (term, "internal"); | |
9572 | 2532 |
13179 | 2533 if (getenv ("EMACSTEST")) |
13274 | 2534 termscript = fopen (getenv ("EMACSTEST"), "wt"); |
13179 | 2535 |
9572 | 2536 #ifndef HAVE_X_WINDOWS |
13179 | 2537 if (!internal_terminal || inhibit_window_system) |
9572 | 2538 { |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2539 sf->output_method = output_termcap; |
13179 | 2540 return; |
2541 } | |
9572 | 2542 |
13179 | 2543 Vwindow_system = intern ("pc"); |
2544 Vwindow_system_version = make_number (1); | |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2545 sf->output_method = output_msdos_raw; |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
2546 |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
2547 /* If Emacs was dumped on DOS/V machine, forget the stale VRAM address. */ |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
2548 screen_old_address = 0; |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
2549 |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2550 /* Forget the stale screen colors as well. */ |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2551 initial_screen_colors[0] = 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
|
2552 |
13179 | 2553 bzero (&the_only_x_display, sizeof the_only_x_display); |
2554 the_only_x_display.background_pixel = 7; /* White */ | |
2555 the_only_x_display.foreground_pixel = 0; /* Black */ | |
15341
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
2556 bright_bg (); |
13274 | 2557 colors = getenv ("EMACSCOLORS"); |
13179 | 2558 if (colors && strlen (colors) >= 2) |
2559 { | |
15341
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
2560 /* The colors use 4 bits each (we enable bright background). */ |
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
2561 if (isdigit (colors[0])) |
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
2562 colors[0] -= '0'; |
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
2563 else if (isxdigit (colors[0])) |
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
2564 colors[0] -= (isupper (colors[0]) ? 'A' : 'a') - 10; |
14974
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
2565 if (colors[0] >= 0 && colors[0] < 16) |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
2566 the_only_x_display.foreground_pixel = colors[0]; |
15341
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
2567 if (isdigit (colors[1])) |
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
2568 colors[1] -= '0'; |
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
2569 else if (isxdigit (colors[1])) |
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
2570 colors[1] -= (isupper (colors[1]) ? 'A' : 'a') - 10; |
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
2571 if (colors[1] >= 0 && colors[1] < 16) |
14974
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
2572 the_only_x_display.background_pixel = colors[1]; |
13179 | 2573 } |
2574 the_only_x_display.line_height = 1; | |
13625
397f07418271
(internal_terminal_init): Initialize the_only_x_display.font.
Richard M. Stallman <rms@gnu.org>
parents:
13624
diff
changeset
|
2575 the_only_x_display.font = (XFontStruct *)1; /* must *not* be zero */ |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
2576 the_only_x_display.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
|
2577 the_only_x_display.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
|
2578 the_only_x_display.display_info.mouse_face_beg_row = |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
2579 the_only_x_display.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
|
2580 the_only_x_display.display_info.mouse_face_end_row = |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
2581 the_only_x_display.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
|
2582 the_only_x_display.display_info.mouse_face_face_id = DEFAULT_FACE_ID; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
2583 the_only_x_display.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
|
2584 the_only_x_display.display_info.mouse_face_mouse_x = |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
2585 the_only_x_display.display_info.mouse_face_mouse_y = 0; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
2586 the_only_x_display.display_info.mouse_face_defer = 0; |
9572 | 2587 |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2588 init_frame_faces (sf); |
13179 | 2589 |
2590 ring_bell_hook = IT_ring_bell; | |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
2591 insert_glyphs_hook = IT_insert_glyphs; |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
2592 delete_glyphs_hook = IT_delete_glyphs; |
13179 | 2593 write_glyphs_hook = IT_write_glyphs; |
2594 cursor_to_hook = raw_cursor_to_hook = IT_cursor_to; | |
2595 clear_to_end_hook = IT_clear_to_end; | |
2596 clear_end_of_line_hook = IT_clear_end_of_line; | |
2597 clear_frame_hook = IT_clear_screen; | |
2598 update_begin_hook = IT_update_begin; | |
2599 update_end_hook = IT_update_end; | |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
2600 frame_up_to_date_hook = IT_frame_up_to_date; |
13179 | 2601 |
2602 /* These hooks are called by term.c without being checked. */ | |
2603 set_terminal_modes_hook = IT_set_terminal_modes; | |
2604 reset_terminal_modes_hook = IT_reset_terminal_modes; | |
2605 set_terminal_window_hook = IT_set_terminal_window; | |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
2606 char_ins_del_ok = 0; |
9572 | 2607 #endif |
5503 | 2608 } |
13179 | 2609 |
2610 dos_get_saved_screen (screen, rows, cols) | |
2611 char **screen; | |
2612 int *rows; | |
2613 int *cols; | |
2614 { | |
2615 #ifndef HAVE_X_WINDOWS | |
2616 *screen = startup_screen_buffer; | |
2617 *cols = startup_screen_size_X; | |
2618 *rows = startup_screen_size_Y; | |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
2619 return *screen != (char *)0; |
13179 | 2620 #else |
2621 return 0; | |
2622 #endif | |
2623 } | |
15387
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
2624 |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
2625 #ifndef HAVE_X_WINDOWS |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
2626 |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
2627 /* 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
|
2628 void |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
2629 check_x (void) |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
2630 { |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2631 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
|
2632 error ("Not running under a window system"); |
15387
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
2633 } |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
2634 |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
2635 #endif |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
2636 |
13274 | 2637 |
13179 | 2638 /* ----------------------- Keyboard control ---------------------- |
2639 * | |
2640 * Keymaps reflect the following keyboard layout: | |
2641 * | |
2642 * 0 1 2 3 4 5 6 7 8 9 10 11 12 BS | |
2643 * TAB 15 16 17 18 19 20 21 22 23 24 25 26 (41) | |
2644 * CLOK 30 31 32 33 34 35 36 37 38 39 40 (41) RET | |
2645 * SH () 45 46 47 48 49 50 51 52 53 54 SHIFT | |
2646 * SPACE | |
2647 */ | |
2648 | |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2649 #define Ignore 0x0000 |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2650 #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
|
2651 #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
|
2652 #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
|
2653 #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
|
2654 #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
|
2655 #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
|
2656 #define Grey 0x6000 /* Grey keypad key */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2657 |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2658 #define Alt 0x0100 /* alt scan-code */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2659 #define Ctrl 0x0200 /* ctrl scan-code */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2660 #define Shift 0x0400 /* shift scan-code */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2661 |
13179 | 2662 static int extended_kbd; /* 101 (102) keyboard present. */ |
2663 | |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2664 struct kbd_translate { |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2665 unsigned char sc; |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2666 unsigned char ch; |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2667 unsigned short code; |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2668 }; |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2669 |
13179 | 2670 struct dos_keyboard_map |
2671 { | |
2672 char *unshifted; | |
2673 char *shifted; | |
2674 char *alt_gr; | |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2675 struct kbd_translate *translate_table; |
13179 | 2676 }; |
2677 | |
13040
169d50e2ee4c
(gettimeofday, init_gettimeofday, daylight, gmtoffset): Undo previous change.
Paul Eggert <eggert@twinsun.com>
parents:
13020
diff
changeset
|
2678 |
13179 | 2679 static struct dos_keyboard_map us_keyboard = { |
2680 /* 0 1 2 3 4 5 */ | |
2681 /* 01234567890123456789012345678901234567890 12345678901234 */ | |
2682 "`1234567890-= qwertyuiop[] asdfghjkl;'\\ zxcvbnm,./ ", | |
2683 /* 0123456789012345678901234567890123456789 012345678901234 */ | |
2684 "~!@#$%^&*()_+ QWERTYUIOP{} ASDFGHJKL:\"| ZXCVBNM<>? ", | |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2685 0, /* no Alt-Gr key */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2686 0 /* no translate table */ |
13179 | 2687 }; |
2688 | |
2689 static struct dos_keyboard_map fr_keyboard = { | |
2690 /* 0 1 2 3 4 5 */ | |
2691 /* 012 3456789012345678901234567890123456789012345678901234 */ | |
2692 "ý&‚\",(-Š_€…)= azertyuiop^$ qsdfghjklm—* wxcvbnm;:! ", | |
2693 /* 0123456789012345678901234567890123456789012345678901234 */ | |
2694 " 1234567890ø+ AZERTYUIOPùœ QSDFGHJKLM%æ WXCVBN?./õ ", | |
2695 /* 01234567 89012345678901234567890123456789012345678901234 */ | |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2696 " ~#{[|`\\^@]} Ï ", |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2697 0 /* no translate table */ |
13179 | 2698 }; |
2699 | |
21583
ba75380b39f7
(it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents:
21489
diff
changeset
|
2700 /* |
ba75380b39f7
(it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents:
21489
diff
changeset
|
2701 * Italian keyboard support, country code 39. |
ba75380b39f7
(it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents:
21489
diff
changeset
|
2702 * '<' 56:3c*0000 |
ba75380b39f7
(it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents:
21489
diff
changeset
|
2703 * '>' 56:3e*0000 |
ba75380b39f7
(it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents:
21489
diff
changeset
|
2704 * 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
|
2705 * 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
|
2706 */ |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2707 |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2708 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
|
2709 { 0x56, 0x3c, Normal | 13 }, |
5082c3adfa2f
(dos_rawgetc): Don't zero out c if private translation
Eli Zaretskii <eliz@gnu.org>
parents:
24560
diff
changeset
|
2710 { 0x56, 0x3e, Normal | 27 }, |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2711 { 0, 0, 0 } |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2712 }; |
21583
ba75380b39f7
(it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents:
21489
diff
changeset
|
2713 static struct dos_keyboard_map it_keyboard = { |
ba75380b39f7
(it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents:
21489
diff
changeset
|
2714 /* 0 1 2 3 4 5 */ |
ba75380b39f7
(it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents:
21489
diff
changeset
|
2715 /* 0 123456789012345678901234567890123456789012345678901234 */ |
24566
5082c3adfa2f
(dos_rawgetc): Don't zero out c if private translation
Eli Zaretskii <eliz@gnu.org>
parents:
24560
diff
changeset
|
2716 "\\1234567890'< qwertyuiopŠ+> asdfghjkl•…— zxcvbnm,.- ", |
21583
ba75380b39f7
(it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents:
21489
diff
changeset
|
2717 /* 01 23456789012345678901234567890123456789012345678901234 */ |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2718 "|!\"œ$%&/()=?^> QWERTYUIOP‚* ASDFGHJKL‡øõ ZXCVBNM;:_ ", |
21583
ba75380b39f7
(it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents:
21489
diff
changeset
|
2719 /* 0123456789012345678901234567890123456789012345678901234 */ |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2720 " {}~` [] @# ", |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2721 it_kbd_translate_table |
21583
ba75380b39f7
(it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents:
21489
diff
changeset
|
2722 }; |
ba75380b39f7
(it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents:
21489
diff
changeset
|
2723 |
13179 | 2724 static struct dos_keyboard_map dk_keyboard = { |
2725 /* 0 1 2 3 4 5 */ | |
2726 /* 0123456789012345678901234567890123456789012345678901234 */ | |
2727 "«1234567890+| qwertyuiop†~ asdfghjkl‘›' zxcvbnm,.- ", | |
2728 /* 01 23456789012345678901234567890123456789012345678901234 */ | |
2729 "õ!\"#$%&/()=?` QWERTYUIOP^ ASDFGHJKL’* ZXCVBNM;:_ ", | |
2730 /* 0123456789012345678901234567890123456789012345678901234 */ | |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2731 " @œ$ {[]} | ", |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2732 0 /* no translate table */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2733 }; |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2734 |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2735 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
|
2736 { 0x73, 0x5c, Normal | 0 }, |
bb608cd1af6e
(jp_kbd_translate_table): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents:
24559
diff
changeset
|
2737 { 0x73, 0x5f, Normal | 0 }, |
24593
ffe7dfc452d7
(jp_kbd_translate_table): Fix the other \ key.
Eli Zaretskii <eliz@gnu.org>
parents:
24566
diff
changeset
|
2738 { 0x73, 0x1c, Map | 0 }, |
24560
bb608cd1af6e
(jp_kbd_translate_table): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents:
24559
diff
changeset
|
2739 { 0x7d, 0x5c, Normal | 13 }, |
bb608cd1af6e
(jp_kbd_translate_table): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents:
24559
diff
changeset
|
2740 { 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
|
2741 { 0x7d, 0x1c, Map | 13 }, |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2742 { 0, 0, 0 } |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2743 }; |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2744 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
|
2745 /* 0 1 2 3 4 5 */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2746 /* 0123456789012 345678901234567890123456789012345678901234 */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2747 "\\1234567890-^\\ qwertyuiop@[ asdfghjkl;:] zxcvbnm,./ ", |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2748 /* 01 23456789012345678901234567890123456789012345678901234 */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2749 "_!\"#$%&'()~=~| QWERTYUIOP`{ ASDFGHJKL+*} ZXCVBNM<>? ", |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2750 0, /* no Alt-Gr key */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2751 jp_kbd_translate_table |
13179 | 2752 }; |
2753 | |
2754 static struct keyboard_layout_list | |
2755 { | |
2756 int country_code; | |
2757 struct dos_keyboard_map *keyboard_map; | |
13274 | 2758 } keyboard_layout_list[] = |
2759 { | |
2760 1, &us_keyboard, | |
2761 33, &fr_keyboard, | |
21583
ba75380b39f7
(it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents:
21489
diff
changeset
|
2762 39, &it_keyboard, |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2763 45, &dk_keyboard, |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2764 81, &jp_keyboard |
13179 | 2765 }; |
2766 | |
2767 static struct dos_keyboard_map *keyboard; | |
2768 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
|
2769 static int international_keyboard; |
7523
8994727ff976
(gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents:
7507
diff
changeset
|
2770 |
8994727ff976
(gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents:
7507
diff
changeset
|
2771 int |
13179 | 2772 dos_set_keyboard (code, always) |
2773 int code; | |
2774 int always; | |
7523
8994727ff976
(gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents:
7507
diff
changeset
|
2775 { |
13179 | 2776 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
|
2777 _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
|
2778 |
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
2779 /* 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
|
2780 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
|
2781 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
|
2782 regs.x.ax = 0xad80; |
23011
fe3128dafc96
(dos_set_keyboard): Set up stack and flags before
Eli Zaretskii <eliz@gnu.org>
parents:
22992
diff
changeset
|
2783 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
|
2784 _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
|
2785 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
|
2786 international_keyboard = 1; |
13624
47484dd9a970
(dos_set_keyboard): If CODE is not recognized,
Richard M. Stallman <rms@gnu.org>
parents:
13520
diff
changeset
|
2787 |
47484dd9a970
(dos_set_keyboard): If CODE is not recognized,
Richard M. Stallman <rms@gnu.org>
parents:
13520
diff
changeset
|
2788 /* 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
|
2789 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
|
2790 keyboard_map_all = always; |
47484dd9a970
(dos_set_keyboard): If CODE is not recognized,
Richard M. Stallman <rms@gnu.org>
parents:
13520
diff
changeset
|
2791 dos_keyboard_layout = 1; |
47484dd9a970
(dos_set_keyboard): If CODE is not recognized,
Richard M. Stallman <rms@gnu.org>
parents:
13520
diff
changeset
|
2792 |
13179 | 2793 for (i = 0; i < (sizeof (keyboard_layout_list)/sizeof (struct keyboard_layout_list)); i++) |
2794 if (code == keyboard_layout_list[i].country_code) | |
2795 { | |
2796 keyboard = keyboard_layout_list[i].keyboard_map; | |
2797 keyboard_map_all = always; | |
2798 dos_keyboard_layout = code; | |
2799 return 1; | |
2800 } | |
7523
8994727ff976
(gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents:
7507
diff
changeset
|
2801 return 0; |
8994727ff976
(gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents:
7507
diff
changeset
|
2802 } |
13274 | 2803 |
13179 | 2804 static struct |
2805 { | |
2806 unsigned char char_code; /* normal code */ | |
2807 unsigned char meta_code; /* M- code */ | |
2808 unsigned char keypad_code; /* keypad code */ | |
2809 unsigned char editkey_code; /* edit key */ | |
2810 } keypad_translate_map[] = { | |
2811 '0', '0', 0xb0, /* kp-0 */ 0x63, /* insert */ | |
2812 '1', '1', 0xb1, /* kp-1 */ 0x57, /* end */ | |
2813 '2', '2', 0xb2, /* kp-2 */ 0x54, /* down */ | |
2814 '3', '3', 0xb3, /* kp-3 */ 0x56, /* next */ | |
2815 '4', '4', 0xb4, /* kp-4 */ 0x51, /* left */ | |
2816 '5', '5', 0xb5, /* kp-5 */ 0xb5, /* kp-5 */ | |
2817 '6', '6', 0xb6, /* kp-6 */ 0x53, /* right */ | |
2818 '7', '7', 0xb7, /* kp-7 */ 0x50, /* home */ | |
2819 '8', '8', 0xb8, /* kp-8 */ 0x52, /* up */ | |
2820 '9', '9', 0xb9, /* kp-9 */ 0x55, /* prior */ | |
2821 '.', '-', 0xae, /* kp-decimal */ 0xff /* delete */ | |
2822 }; | |
2823 | |
2824 static struct | |
2825 { | |
2826 unsigned char char_code; /* normal code */ | |
2827 unsigned char keypad_code; /* keypad code */ | |
2828 } grey_key_translate_map[] = { | |
2829 '/', 0xaf, /* kp-decimal */ | |
2830 '*', 0xaa, /* kp-multiply */ | |
2831 '-', 0xad, /* kp-subtract */ | |
2832 '+', 0xab, /* kp-add */ | |
2833 '\r', 0x8d /* kp-enter */ | |
2834 }; | |
2835 | |
2836 static unsigned short | |
2837 ibmpc_translate_map[] = | |
13040
169d50e2ee4c
(gettimeofday, init_gettimeofday, daylight, gmtoffset): Undo previous change.
Paul Eggert <eggert@twinsun.com>
parents:
13020
diff
changeset
|
2838 { |
13179 | 2839 /* --------------- 00 to 0f --------------- */ |
2840 Normal | 0xff, /* Ctrl Break + Alt-NNN */ | |
2841 Alt | ModFct | 0x1b, /* Escape */ | |
2842 Normal | 1, /* '1' */ | |
2843 Normal | 2, /* '2' */ | |
2844 Normal | 3, /* '3' */ | |
2845 Normal | 4, /* '4' */ | |
2846 Normal | 5, /* '5' */ | |
2847 Normal | 6, /* '6' */ | |
2848 Normal | 7, /* '7' */ | |
2849 Normal | 8, /* '8' */ | |
2850 Normal | 9, /* '9' */ | |
2851 Normal | 10, /* '0' */ | |
2852 Normal | 11, /* '-' */ | |
2853 Normal | 12, /* '=' */ | |
2854 Special | 0x08, /* Backspace */ | |
2855 ModFct | 0x74, /* Tab/Backtab */ | |
2856 | |
2857 /* --------------- 10 to 1f --------------- */ | |
2858 Map | 15, /* 'q' */ | |
2859 Map | 16, /* 'w' */ | |
2860 Map | 17, /* 'e' */ | |
2861 Map | 18, /* 'r' */ | |
2862 Map | 19, /* 't' */ | |
2863 Map | 20, /* 'y' */ | |
2864 Map | 21, /* 'u' */ | |
2865 Map | 22, /* 'i' */ | |
2866 Map | 23, /* 'o' */ | |
2867 Map | 24, /* 'p' */ | |
2868 Map | 25, /* '[' */ | |
2869 Map | 26, /* ']' */ | |
2870 ModFct | 0x0d, /* Return */ | |
2871 Ignore, /* Ctrl */ | |
2872 Map | 30, /* 'a' */ | |
2873 Map | 31, /* 's' */ | |
2874 | |
2875 /* --------------- 20 to 2f --------------- */ | |
2876 Map | 32, /* 'd' */ | |
2877 Map | 33, /* 'f' */ | |
2878 Map | 34, /* 'g' */ | |
2879 Map | 35, /* 'h' */ | |
2880 Map | 36, /* 'j' */ | |
2881 Map | 37, /* 'k' */ | |
2882 Map | 38, /* 'l' */ | |
2883 Map | 39, /* ';' */ | |
2884 Map | 40, /* '\'' */ | |
2885 Map | 0, /* '`' */ | |
2886 Ignore, /* Left shift */ | |
2887 Map | 41, /* '\\' */ | |
2888 Map | 45, /* 'z' */ | |
2889 Map | 46, /* 'x' */ | |
2890 Map | 47, /* 'c' */ | |
2891 Map | 48, /* 'v' */ | |
2892 | |
2893 /* --------------- 30 to 3f --------------- */ | |
2894 Map | 49, /* 'b' */ | |
2895 Map | 50, /* 'n' */ | |
2896 Map | 51, /* 'm' */ | |
2897 Map | 52, /* ',' */ | |
2898 Map | 53, /* '.' */ | |
2899 Map | 54, /* '/' */ | |
2900 Ignore, /* Right shift */ | |
2901 Grey | 1, /* Grey * */ | |
2902 Ignore, /* Alt */ | |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2903 Normal | 55, /* ' ' */ |
13179 | 2904 Ignore, /* Caps Lock */ |
2905 FctKey | 0xbe, /* F1 */ | |
2906 FctKey | 0xbf, /* F2 */ | |
2907 FctKey | 0xc0, /* F3 */ | |
2908 FctKey | 0xc1, /* F4 */ | |
2909 FctKey | 0xc2, /* F5 */ | |
2910 | |
2911 /* --------------- 40 to 4f --------------- */ | |
2912 FctKey | 0xc3, /* F6 */ | |
2913 FctKey | 0xc4, /* F7 */ | |
2914 FctKey | 0xc5, /* F8 */ | |
2915 FctKey | 0xc6, /* F9 */ | |
2916 FctKey | 0xc7, /* F10 */ | |
2917 Ignore, /* Num Lock */ | |
2918 Ignore, /* Scroll Lock */ | |
2919 KeyPad | 7, /* Home */ | |
2920 KeyPad | 8, /* Up */ | |
2921 KeyPad | 9, /* Page Up */ | |
2922 Grey | 2, /* Grey - */ | |
2923 KeyPad | 4, /* Left */ | |
2924 KeyPad | 5, /* Keypad 5 */ | |
2925 KeyPad | 6, /* Right */ | |
2926 Grey | 3, /* Grey + */ | |
2927 KeyPad | 1, /* End */ | |
2928 | |
2929 /* --------------- 50 to 5f --------------- */ | |
2930 KeyPad | 2, /* Down */ | |
2931 KeyPad | 3, /* Page Down */ | |
2932 KeyPad | 0, /* Insert */ | |
2933 KeyPad | 10, /* Delete */ | |
2934 Shift | FctKey | 0xbe, /* (Shift) F1 */ | |
2935 Shift | FctKey | 0xbf, /* (Shift) F2 */ | |
2936 Shift | FctKey | 0xc0, /* (Shift) F3 */ | |
2937 Shift | FctKey | 0xc1, /* (Shift) F4 */ | |
2938 Shift | FctKey | 0xc2, /* (Shift) F5 */ | |
2939 Shift | FctKey | 0xc3, /* (Shift) F6 */ | |
2940 Shift | FctKey | 0xc4, /* (Shift) F7 */ | |
2941 Shift | FctKey | 0xc5, /* (Shift) F8 */ | |
2942 Shift | FctKey | 0xc6, /* (Shift) F9 */ | |
2943 Shift | FctKey | 0xc7, /* (Shift) F10 */ | |
2944 Ctrl | FctKey | 0xbe, /* (Ctrl) F1 */ | |
2945 Ctrl | FctKey | 0xbf, /* (Ctrl) F2 */ | |
13040
169d50e2ee4c
(gettimeofday, init_gettimeofday, daylight, gmtoffset): Undo previous change.
Paul Eggert <eggert@twinsun.com>
parents:
13020
diff
changeset
|
2946 |
13179 | 2947 /* --------------- 60 to 6f --------------- */ |
2948 Ctrl | FctKey | 0xc0, /* (Ctrl) F3 */ | |
2949 Ctrl | FctKey | 0xc1, /* (Ctrl) F4 */ | |
2950 Ctrl | FctKey | 0xc2, /* (Ctrl) F5 */ | |
2951 Ctrl | FctKey | 0xc3, /* (Ctrl) F6 */ | |
2952 Ctrl | FctKey | 0xc4, /* (Ctrl) F7 */ | |
2953 Ctrl | FctKey | 0xc5, /* (Ctrl) F8 */ | |
2954 Ctrl | FctKey | 0xc6, /* (Ctrl) F9 */ | |
2955 Ctrl | FctKey | 0xc7, /* (Ctrl) F10 */ | |
2956 Alt | FctKey | 0xbe, /* (Alt) F1 */ | |
2957 Alt | FctKey | 0xbf, /* (Alt) F2 */ | |
2958 Alt | FctKey | 0xc0, /* (Alt) F3 */ | |
2959 Alt | FctKey | 0xc1, /* (Alt) F4 */ | |
2960 Alt | FctKey | 0xc2, /* (Alt) F5 */ | |
2961 Alt | FctKey | 0xc3, /* (Alt) F6 */ | |
2962 Alt | FctKey | 0xc4, /* (Alt) F7 */ | |
2963 Alt | FctKey | 0xc5, /* (Alt) F8 */ | |
2964 | |
2965 /* --------------- 70 to 7f --------------- */ | |
2966 Alt | FctKey | 0xc6, /* (Alt) F9 */ | |
2967 Alt | FctKey | 0xc7, /* (Alt) F10 */ | |
2968 Ctrl | FctKey | 0x6d, /* (Ctrl) Sys Rq */ | |
2969 Ctrl | KeyPad | 4, /* (Ctrl) Left */ | |
2970 Ctrl | KeyPad | 6, /* (Ctrl) Right */ | |
2971 Ctrl | KeyPad | 1, /* (Ctrl) End */ | |
2972 Ctrl | KeyPad | 3, /* (Ctrl) Page Down */ | |
2973 Ctrl | KeyPad | 7, /* (Ctrl) Home */ | |
2974 Alt | Map | 1, /* '1' */ | |
2975 Alt | Map | 2, /* '2' */ | |
2976 Alt | Map | 3, /* '3' */ | |
2977 Alt | Map | 4, /* '4' */ | |
2978 Alt | Map | 5, /* '5' */ | |
2979 Alt | Map | 6, /* '6' */ | |
2980 Alt | Map | 7, /* '7' */ | |
2981 Alt | Map | 8, /* '8' */ | |
2982 | |
2983 /* --------------- 80 to 8f --------------- */ | |
2984 Alt | Map | 9, /* '9' */ | |
2985 Alt | Map | 10, /* '0' */ | |
2986 Alt | Map | 11, /* '-' */ | |
2987 Alt | Map | 12, /* '=' */ | |
2988 Ctrl | KeyPad | 9, /* (Ctrl) Page Up */ | |
2989 FctKey | 0xc8, /* F11 */ | |
2990 FctKey | 0xc9, /* F12 */ | |
2991 Shift | FctKey | 0xc8, /* (Shift) F11 */ | |
2992 Shift | FctKey | 0xc9, /* (Shift) F12 */ | |
2993 Ctrl | FctKey | 0xc8, /* (Ctrl) F11 */ | |
2994 Ctrl | FctKey | 0xc9, /* (Ctrl) F12 */ | |
2995 Alt | FctKey | 0xc8, /* (Alt) F11 */ | |
2996 Alt | FctKey | 0xc9, /* (Alt) F12 */ | |
2997 Ctrl | KeyPad | 8, /* (Ctrl) Up */ | |
2998 Ctrl | Grey | 2, /* (Ctrl) Grey - */ | |
2999 Ctrl | KeyPad | 5, /* (Ctrl) Keypad 5 */ | |
3000 | |
3001 /* --------------- 90 to 9f --------------- */ | |
3002 Ctrl | Grey | 3, /* (Ctrl) Grey + */ | |
3003 Ctrl | KeyPad | 2, /* (Ctrl) Down */ | |
3004 Ctrl | KeyPad | 0, /* (Ctrl) Insert */ | |
3005 Ctrl | KeyPad | 10, /* (Ctrl) Delete */ | |
3006 Ctrl | FctKey | 0x09, /* (Ctrl) Tab */ | |
3007 Ctrl | Grey | 0, /* (Ctrl) Grey / */ | |
3008 Ctrl | Grey | 1, /* (Ctrl) Grey * */ | |
3009 Alt | FctKey | 0x50, /* (Alt) Home */ | |
3010 Alt | FctKey | 0x52, /* (Alt) Up */ | |
3011 Alt | FctKey | 0x55, /* (Alt) Page Up */ | |
3012 Ignore, /* NO KEY */ | |
3013 Alt | FctKey | 0x51, /* (Alt) Left */ | |
3014 Ignore, /* NO KEY */ | |
3015 Alt | FctKey | 0x53, /* (Alt) Right */ | |
3016 Ignore, /* NO KEY */ | |
3017 Alt | FctKey | 0x57, /* (Alt) End */ | |
3018 | |
3019 /* --------------- a0 to af --------------- */ | |
3020 Alt | KeyPad | 2, /* (Alt) Down */ | |
3021 Alt | KeyPad | 3, /* (Alt) Page Down */ | |
3022 Alt | KeyPad | 0, /* (Alt) Insert */ | |
3023 Alt | KeyPad | 10, /* (Alt) Delete */ | |
3024 Alt | Grey | 0, /* (Alt) Grey / */ | |
3025 Alt | FctKey | 0x09, /* (Alt) Tab */ | |
3026 Alt | Grey | 4 /* (Alt) Keypad Enter */ | |
3027 }; | |
13274 | 3028 |
13179 | 3029 /* These bit-positions corresponds to values returned by BIOS */ |
3030 #define SHIFT_P 0x0003 /* two bits! */ | |
3031 #define CTRL_P 0x0004 | |
3032 #define ALT_P 0x0008 | |
3033 #define SCRLOCK_P 0x0010 | |
3034 #define NUMLOCK_P 0x0020 | |
3035 #define CAPSLOCK_P 0x0040 | |
3036 #define ALT_GR_P 0x0800 | |
3037 #define SUPER_P 0x4000 /* pseudo */ | |
3038 #define HYPER_P 0x8000 /* pseudo */ | |
3039 | |
3040 static int | |
3041 dos_get_modifiers (keymask) | |
3042 int *keymask; | |
5503 | 3043 { |
13179 | 3044 union REGS regs; |
3045 int mask; | |
3046 int modifiers = 0; | |
3047 | |
3048 /* Calculate modifier bits */ | |
3049 regs.h.ah = extended_kbd ? 0x12 : 0x02; | |
3050 int86 (0x16, ®s, ®s); | |
3051 | |
3052 if (!extended_kbd) | |
3053 { | |
3054 mask = regs.h.al & (SHIFT_P | CTRL_P | ALT_P | | |
3055 SCRLOCK_P | NUMLOCK_P | CAPSLOCK_P); | |
3056 } | |
3057 else | |
3058 { | |
3059 mask = regs.h.al & (SHIFT_P | | |
3060 SCRLOCK_P | NUMLOCK_P | CAPSLOCK_P); | |
3061 | |
3062 /* Do not break international keyboard support. */ | |
3063 /* When Keyb.Com is loaded, the right Alt key is */ | |
3064 /* used for accessing characters like { and } */ | |
3065 if (regs.h.ah & 2) /* Left ALT pressed ? */ | |
3066 mask |= ALT_P; | |
3067 | |
3068 if ((regs.h.ah & 8) != 0) /* Right ALT pressed ? */ | |
3069 { | |
3070 mask |= ALT_GR_P; | |
3071 if (dos_hyper_key == 1) | |
3072 { | |
3073 mask |= HYPER_P; | |
3074 modifiers |= hyper_modifier; | |
3075 } | |
3076 else if (dos_super_key == 1) | |
3077 { | |
3078 mask |= SUPER_P; | |
3079 modifiers |= super_modifier; | |
3080 } | |
16763
e4f0f7fe8304
(dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents:
16613
diff
changeset
|
3081 else if (!international_keyboard) |
e4f0f7fe8304
(dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents:
16613
diff
changeset
|
3082 { |
e4f0f7fe8304
(dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents:
16613
diff
changeset
|
3083 /* 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
|
3084 like the Left Alt. */ |
e4f0f7fe8304
(dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents:
16613
diff
changeset
|
3085 mask &= ~ALT_GR_P; |
e4f0f7fe8304
(dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents:
16613
diff
changeset
|
3086 mask |= ALT_P; |
e4f0f7fe8304
(dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents:
16613
diff
changeset
|
3087 } |
13179 | 3088 } |
3089 | |
15125
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
3090 if (regs.h.ah & 1) /* Left CTRL pressed ? */ |
13179 | 3091 mask |= CTRL_P; |
3092 | |
3093 if (regs.h.ah & 4) /* Right CTRL pressed ? */ | |
3094 { | |
3095 if (dos_hyper_key == 2) | |
3096 { | |
3097 mask |= HYPER_P; | |
3098 modifiers |= hyper_modifier; | |
3099 } | |
3100 else if (dos_super_key == 2) | |
3101 { | |
3102 mask |= SUPER_P; | |
3103 modifiers |= super_modifier; | |
3104 } | |
3105 else | |
3106 mask |= CTRL_P; | |
3107 } | |
3108 } | |
3109 | |
3110 if (mask & SHIFT_P) | |
3111 modifiers |= shift_modifier; | |
3112 if (mask & CTRL_P) | |
3113 modifiers |= ctrl_modifier; | |
3114 if (mask & ALT_P) | |
3115 modifiers |= meta_modifier; | |
3116 | |
3117 if (keymask) | |
3118 *keymask = mask; | |
3119 return modifiers; | |
5503 | 3120 } |
3121 | |
13305
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
3122 #define NUM_RECENT_DOSKEYS (100) |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
3123 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
|
3124 int total_doskeys; /* Total number of elements stored into recent_doskeys */ |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
3125 Lisp_Object recent_doskeys; /* A vector, holding the last 100 keystrokes */ |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
3126 |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
3127 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
|
3128 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
|
3129 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
|
3130 and then the scan code. */) |
13305
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
3131 () |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
3132 { |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
3133 Lisp_Object *keys = XVECTOR (recent_doskeys)->contents; |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
3134 Lisp_Object val; |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
3135 |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
3136 if (total_doskeys < NUM_RECENT_DOSKEYS) |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
3137 return Fvector (total_doskeys, keys); |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
3138 else |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
3139 { |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
3140 val = Fvector (NUM_RECENT_DOSKEYS, keys); |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
3141 bcopy (keys + recent_doskeys_index, |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
3142 XVECTOR (val)->contents, |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
3143 (NUM_RECENT_DOSKEYS - recent_doskeys_index) * sizeof (Lisp_Object)); |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
3144 bcopy (keys, |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
3145 XVECTOR (val)->contents + NUM_RECENT_DOSKEYS - recent_doskeys_index, |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
3146 recent_doskeys_index * sizeof (Lisp_Object)); |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
3147 return val; |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
3148 } |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
3149 } |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
3150 |
13179 | 3151 /* Get a char from keyboard. Function keys are put into the event queue. */ |
3152 static int | |
3153 dos_rawgetc () | |
5503 | 3154 { |
13179 | 3155 struct input_event event; |
3156 union REGS regs; | |
3157 | |
3158 #ifndef HAVE_X_WINDOWS | |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
3159 /* 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
|
3160 IT_cmgoto (SELECTED_FRAME()); |
13179 | 3161 #endif |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
3162 |
13179 | 3163 /* The following condition is equivalent to `kbhit ()', except that |
3164 it uses the bios to do its job. This pleases DESQview/X. */ | |
3165 while ((regs.h.ah = extended_kbd ? 0x11 : 0x01), | |
3166 int86 (0x16, ®s, ®s), | |
3167 (regs.x.flags & 0x40) == 0) | |
5503 | 3168 { |
13179 | 3169 union REGS regs; |
3170 register unsigned char c; | |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3171 int sc, code = -1, mask, kp_mode; |
13179 | 3172 int modifiers; |
3173 | |
3174 regs.h.ah = extended_kbd ? 0x10 : 0x00; | |
3175 int86 (0x16, ®s, ®s); | |
3176 c = regs.h.al; | |
3177 sc = regs.h.ah; | |
5503 | 3178 |
13305
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
3179 total_doskeys += 2; |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
3180 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
|
3181 = make_number (c); |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
3182 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
|
3183 recent_doskeys_index = 0; |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
3184 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
|
3185 = make_number (sc); |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
3186 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
|
3187 recent_doskeys_index = 0; |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
3188 |
13274 | 3189 modifiers = dos_get_modifiers (&mask); |
13179 | 3190 |
3191 #ifndef HAVE_X_WINDOWS | |
13274 | 3192 if (!NILP (Vdos_display_scancodes)) |
13179 | 3193 { |
14157
38606398dfa6
(dos_rawgetc): Make buf longer.
Richard M. Stallman <rms@gnu.org>
parents:
14036
diff
changeset
|
3194 char buf[11]; |
13179 | 3195 sprintf (buf, "%02x:%02x*%04x", |
3196 (unsigned) (sc&0xff), (unsigned) c, mask); | |
3197 dos_direct_output (screen_size_Y - 2, screen_size_X - 12, buf, 10); | |
3198 } | |
3199 #endif | |
5503 | 3200 |
13179 | 3201 if (sc == 0xe0) |
3202 { | |
3203 switch (c) | |
3204 { | |
3205 case 10: /* Ctrl Grey Enter */ | |
3206 code = Ctrl | Grey | 4; | |
3207 break; | |
3208 case 13: /* Grey Enter */ | |
3209 code = Grey | 4; | |
3210 break; | |
3211 case '/': /* Grey / */ | |
3212 code = Grey | 0; | |
3213 break; | |
3214 default: | |
3215 continue; | |
3216 }; | |
3217 c = 0; | |
3218 } | |
3219 else | |
3220 { | |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3221 /* 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
|
3222 if (keyboard->translate_table) |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3223 { |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3224 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
|
3225 |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3226 while (p->sc) |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3227 { |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3228 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
|
3229 { |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3230 code = p->code; |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3231 break; |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3232 } |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3233 p++; |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3234 } |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3235 } |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3236 /* 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
|
3237 one. */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3238 if (code == -1) |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3239 { |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3240 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
|
3241 continue; |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3242 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
|
3243 continue; |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3244 } |
13179 | 3245 } |
3246 | |
3247 if (c == 0) | |
3248 { | |
16967
4ca0a5e25605
dos_rawgetc: When international keyboard doesn't have
Eli Zaretskii <eliz@gnu.org>
parents:
16915
diff
changeset
|
3249 /* 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
|
3250 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
|
3251 `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
|
3252 `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
|
3253 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
|
3254 However, for keys with the `Map' property set, the ASCII |
4ca0a5e25605
dos_rawgetc: When international keyboard doesn't have
Eli Zaretskii <eliz@gnu.org>
parents:
16915
diff
changeset
|
3255 code returns zero iff Alt is pressed. So, when we DON'T |
4ca0a5e25605
dos_rawgetc: When international keyboard doesn't have
Eli Zaretskii <eliz@gnu.org>
parents:
16915
diff
changeset
|
3256 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
|
3257 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
|
3258 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
|
3259 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
|
3260 if ( (code & Alt) |
4ca0a5e25605
dos_rawgetc: When international keyboard doesn't have
Eli Zaretskii <eliz@gnu.org>
parents:
16915
diff
changeset
|
3261 || ( (code & 0xf000) == Map && !international_keyboard)) |
13179 | 3262 modifiers |= meta_modifier; |
3263 if (code & Ctrl) | |
3264 modifiers |= ctrl_modifier; | |
3265 if (code & Shift) | |
3266 modifiers |= shift_modifier; | |
3267 } | |
3268 | |
3269 switch (code & 0xf000) | |
3270 { | |
3271 case ModFct: | |
3272 if (c && !(mask & (SHIFT_P | ALT_P | CTRL_P | HYPER_P | SUPER_P))) | |
3273 return c; | |
3274 c = 0; /* Special */ | |
3275 | |
3276 case FctKey: | |
3277 if (c != 0) | |
3278 return c; | |
3279 | |
3280 case Special: | |
3281 code |= 0xff00; | |
3282 break; | |
3283 | |
3284 case Normal: | |
3285 if (sc == 0) | |
3286 { | |
3287 if (c == 0) /* ctrl-break */ | |
3288 continue; | |
3289 return c; /* ALT-nnn */ | |
3290 } | |
3291 if (!keyboard_map_all) | |
3292 { | |
3293 if (c != ' ') | |
3294 return c; | |
3295 code = c; | |
3296 break; | |
3297 } | |
3298 | |
3299 case Map: | |
3300 if (c && !(mask & ALT_P) && !((mask & SHIFT_P) && (mask & CTRL_P))) | |
3301 if (!keyboard_map_all) | |
3302 return c; | |
5503 | 3303 |
13179 | 3304 code &= 0xff; |
3305 if (mask & ALT_P && code <= 10 && code > 0 && dos_keypad_mode & 0x200) | |
3306 mask |= SHIFT_P; /* ALT-1 => M-! etc. */ | |
3307 | |
3308 if (mask & SHIFT_P) | |
3309 { | |
13274 | 3310 code = keyboard->shifted[code]; |
13179 | 3311 mask -= SHIFT_P; |
3312 modifiers &= ~shift_modifier; | |
3313 } | |
3314 else | |
13274 | 3315 if ((mask & ALT_GR_P) && keyboard->alt_gr && keyboard->alt_gr[code] != ' ') |
3316 code = keyboard->alt_gr[code]; | |
13179 | 3317 else |
13274 | 3318 code = keyboard->unshifted[code]; |
13179 | 3319 break; |
3320 | |
3321 case KeyPad: | |
3322 code &= 0xff; | |
3323 if (c == 0xe0) /* edit key */ | |
3324 kp_mode = 3; | |
3325 else | |
3326 if ((mask & (NUMLOCK_P|CTRL_P|SHIFT_P|ALT_P)) == NUMLOCK_P) /* numlock on */ | |
3327 kp_mode = dos_keypad_mode & 0x03; | |
3328 else | |
3329 kp_mode = (dos_keypad_mode >> 4) & 0x03; | |
3330 | |
3331 switch (kp_mode) | |
3332 { | |
3333 case 0: | |
3334 if (code == 10 && dos_decimal_point) | |
3335 return dos_decimal_point; | |
13274 | 3336 return keypad_translate_map[code].char_code; |
5503 | 3337 |
13179 | 3338 case 1: |
13274 | 3339 code = 0xff00 | keypad_translate_map[code].keypad_code; |
13179 | 3340 break; |
5503 | 3341 |
13179 | 3342 case 2: |
13274 | 3343 code = keypad_translate_map[code].meta_code; |
13179 | 3344 modifiers = meta_modifier; |
3345 break; | |
3346 | |
3347 case 3: | |
13274 | 3348 code = 0xff00 | keypad_translate_map[code].editkey_code; |
13179 | 3349 break; |
3350 } | |
3351 break; | |
3352 | |
3353 case Grey: | |
3354 code &= 0xff; | |
3355 kp_mode = ((mask & (NUMLOCK_P|CTRL_P|SHIFT_P|ALT_P)) == NUMLOCK_P) ? 0x04 : 0x40; | |
3356 if (dos_keypad_mode & kp_mode) | |
13274 | 3357 code = 0xff00 | grey_key_translate_map[code].keypad_code; |
13179 | 3358 else |
13274 | 3359 code = grey_key_translate_map[code].char_code; |
13179 | 3360 break; |
3361 } | |
3362 | |
3363 make_event: | |
3364 if (code == 0) | |
3365 continue; | |
3366 | |
3367 if (code >= 0x100) | |
3368 event.kind = non_ascii_keystroke; | |
3369 else | |
3370 event.kind = ascii_keystroke; | |
3371 event.code = code; | |
3372 event.modifiers = modifiers; | |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
3373 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
|
3374 event.arg = Qnil; |
13179 | 3375 event.timestamp = event_timestamp (); |
3376 kbd_buffer_store_event (&event); | |
3377 } | |
5503 | 3378 |
23497
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3379 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
|
3380 { |
13179 | 3381 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
|
3382 int mouse_prev_x = mouse_last_x, mouse_prev_y = mouse_last_y; |
5503 | 3383 |
13179 | 3384 /* Check for mouse movement *before* buttons. */ |
3385 mouse_check_moved (); | |
5503 | 3386 |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
3387 /* 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
|
3388 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
|
3389 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
|
3390 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
3391 previous_help_echo = help_echo; |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3392 help_echo = help_echo_object = help_echo_window = Qnil; |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3393 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
|
3394 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
|
3395 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
|
3396 /* 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
|
3397 changed, generate a HELP_EVENT. */ |
30050
ed1979c6dfb9
* xterm.c (note_mode_line_highlight, note_mouse_highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29613
diff
changeset
|
3398 if (!NILP (help_echo) || !NILP (previous_help_echo)) |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
3399 { |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3400 /* HELP_EVENT takes 2 events in the event loop. */ |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
3401 event.kind = HELP_EVENT; |
30180
c36d4c8b21b6
(dos_rawgetc): Adapt to change of HELP_EVENTs.
Gerd Moellmann <gerd@gnu.org>
parents:
30132
diff
changeset
|
3402 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
|
3403 event.arg = help_echo_object; |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3404 event.x = make_number (help_echo_pos); |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3405 event.timestamp = event_timestamp (); |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3406 event.code = 0; |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3407 kbd_buffer_store_event (&event); |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3408 if (WINDOWP (help_echo_window)) |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3409 event.frame_or_window = help_echo_window; |
30180
c36d4c8b21b6
(dos_rawgetc): Adapt to change of HELP_EVENTs.
Gerd Moellmann <gerd@gnu.org>
parents:
30132
diff
changeset
|
3410 event.arg = help_echo; |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3411 event.code = 1; |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
3412 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
|
3413 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
3414 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
3415 |
13179 | 3416 for (but = 0; but < NUM_MOUSE_BUTTONS; but++) |
3417 for (press = 0; press < 2; press++) | |
3418 { | |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3419 int button_num = but; |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3420 |
13179 | 3421 if (press) |
3422 ok = mouse_pressed (but, &x, &y); | |
3423 else | |
3424 ok = mouse_released (but, &x, &y); | |
3425 if (ok) | |
3426 { | |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3427 /* 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
|
3428 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
|
3429 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
|
3430 { |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3431 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
|
3432 |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3433 /* 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
|
3434 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
|
3435 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
|
3436 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
|
3437 || !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
|
3438 button_num = 2; |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3439 else |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3440 { |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3441 delay (100); |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3442 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
|
3443 || !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
|
3444 button_num = 2; |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3445 } |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3446 } |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3447 |
13179 | 3448 event.kind = mouse_click; |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3449 event.code = button_num; |
13179 | 3450 event.modifiers = dos_get_modifiers (0) |
3451 | (press ? down_modifier : up_modifier); | |
3452 event.x = x; | |
3453 event.y = y; | |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
3454 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
|
3455 event.arg = Qnil; |
13179 | 3456 event.timestamp = event_timestamp (); |
3457 kbd_buffer_store_event (&event); | |
3458 } | |
3459 } | |
3460 } | |
5503 | 3461 |
13179 | 3462 return -1; |
9572 | 3463 } |
3464 | |
13179 | 3465 static int prev_get_char = -1; |
5503 | 3466 |
13179 | 3467 /* Return 1 if a key is ready to be read without suspending execution. */ |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3468 |
13179 | 3469 dos_keysns () |
5503 | 3470 { |
13179 | 3471 if (prev_get_char != -1) |
3472 return 1; | |
3473 else | |
3474 return ((prev_get_char = dos_rawgetc ()) != -1); | |
5503 | 3475 } |
3476 | |
13179 | 3477 /* Read a key. Return -1 if no key is ready. */ |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3478 |
13179 | 3479 dos_keyread () |
5503 | 3480 { |
13179 | 3481 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
|
3482 { |
13179 | 3483 int c = prev_get_char; |
3484 prev_get_char = -1; | |
3485 return c; | |
8246
d48c2b01fba5
(mouse_init1): Use alternate mouse detection for old mouse drivers.
Richard M. Stallman <rms@gnu.org>
parents:
8194
diff
changeset
|
3486 } |
13179 | 3487 else |
3488 return dos_rawgetc (); | |
3489 } | |
13305
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
3490 |
9572 | 3491 #ifndef HAVE_X_WINDOWS |
7273
24426d7e14eb
Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents:
6505
diff
changeset
|
3492 /* See xterm.c for more info. */ |
24426d7e14eb
Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents:
6505
diff
changeset
|
3493 void |
24426d7e14eb
Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents:
6505
diff
changeset
|
3494 pixel_to_glyph_coords (f, pix_x, pix_y, x, y, bounds, noclip) |
24426d7e14eb
Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents:
6505
diff
changeset
|
3495 FRAME_PTR f; |
24426d7e14eb
Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents:
6505
diff
changeset
|
3496 register int pix_x, pix_y; |
24426d7e14eb
Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents:
6505
diff
changeset
|
3497 register int *x, *y; |
21785
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
3498 XRectangle *bounds; |
7273
24426d7e14eb
Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents:
6505
diff
changeset
|
3499 int noclip; |
24426d7e14eb
Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents:
6505
diff
changeset
|
3500 { |
24426d7e14eb
Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents:
6505
diff
changeset
|
3501 if (bounds) abort (); |
24426d7e14eb
Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents:
6505
diff
changeset
|
3502 |
24426d7e14eb
Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents:
6505
diff
changeset
|
3503 /* Ignore clipping. */ |
24426d7e14eb
Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents:
6505
diff
changeset
|
3504 |
24426d7e14eb
Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents:
6505
diff
changeset
|
3505 *x = pix_x; |
24426d7e14eb
Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents:
6505
diff
changeset
|
3506 *y = pix_y; |
24426d7e14eb
Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents:
6505
diff
changeset
|
3507 } |
24426d7e14eb
Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents:
6505
diff
changeset
|
3508 |
24426d7e14eb
Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents:
6505
diff
changeset
|
3509 void |
24426d7e14eb
Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents:
6505
diff
changeset
|
3510 glyph_to_pixel_coords (f, x, y, pix_x, pix_y) |
24426d7e14eb
Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents:
6505
diff
changeset
|
3511 FRAME_PTR f; |
24426d7e14eb
Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents:
6505
diff
changeset
|
3512 register int x, y; |
24426d7e14eb
Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents:
6505
diff
changeset
|
3513 register int *pix_x, *pix_y; |
24426d7e14eb
Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents:
6505
diff
changeset
|
3514 { |
24426d7e14eb
Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents:
6505
diff
changeset
|
3515 *pix_x = x; |
24426d7e14eb
Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents:
6505
diff
changeset
|
3516 *pix_y = y; |
24426d7e14eb
Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents:
6505
diff
changeset
|
3517 } |
9572 | 3518 |
3519 /* Simulation of X's menus. Nothing too fancy here -- just make it work | |
3520 for now. | |
3521 | |
3522 Actually, I don't know the meaning of all the parameters of the functions | |
3523 here -- I only know how they are called by xmenu.c. I could of course | |
3524 grab the nearest Xlib manual (down the hall, second-to-last door on the | |
3525 left), but I don't think it's worth the effort. */ | |
3526 | |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3527 /* 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
|
3528 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
|
3529 /* 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
|
3530 last menu help message. */ |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3531 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
|
3532 |
9572 | 3533 static XMenu * |
3534 IT_menu_create () | |
3535 { | |
3536 XMenu *menu; | |
3537 | |
3538 menu = (XMenu *) xmalloc (sizeof (XMenu)); | |
3539 menu->allocated = menu->count = menu->panecount = menu->width = 0; | |
3540 return menu; | |
3541 } | |
3542 | |
3543 /* Allocate some (more) memory for MENU ensuring that there is room for one | |
3544 for item. */ | |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3545 |
9572 | 3546 static void |
3547 IT_menu_make_room (XMenu *menu) | |
3548 { | |
3549 if (menu->allocated == 0) | |
3550 { | |
3551 int count = menu->allocated = 10; | |
3552 menu->text = (char **) xmalloc (count * sizeof (char *)); | |
3553 menu->submenu = (XMenu **) xmalloc (count * sizeof (XMenu *)); | |
3554 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
|
3555 menu->help_text = (char **) xmalloc (count * sizeof (char *)); |
9572 | 3556 } |
3557 else if (menu->allocated == menu->count) | |
3558 { | |
3559 int count = menu->allocated = menu->allocated + 10; | |
3560 menu->text | |
3561 = (char **) xrealloc (menu->text, count * sizeof (char *)); | |
3562 menu->submenu | |
3563 = (XMenu **) xrealloc (menu->submenu, count * sizeof (XMenu *)); | |
3564 menu->panenumber | |
3565 = (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
|
3566 menu->help_text |
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3567 = (char **) xrealloc (menu->help_text, count * sizeof (char *)); |
9572 | 3568 } |
3569 } | |
3570 | |
3571 /* 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
|
3572 |
9572 | 3573 static XMenu * |
3574 IT_menu_search_pane (XMenu *menu, int pane) | |
3575 { | |
3576 int i; | |
3577 XMenu *try; | |
3578 | |
3579 for (i = 0; i < menu->count; i++) | |
3580 if (menu->submenu[i]) | |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3581 { |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3582 if (pane == menu->panenumber[i]) |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3583 return menu->submenu[i]; |
13179 | 3584 if ((try = IT_menu_search_pane (menu->submenu[i], pane))) |
9572 | 3585 return try; |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3586 } |
9572 | 3587 return (XMenu *) 0; |
3588 } | |
3589 | |
3590 /* 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
|
3591 |
9572 | 3592 static void |
3593 IT_menu_calc_size (XMenu *menu, int *width, int *height) | |
3594 { | |
3595 int i, h2, w2, maxsubwidth, maxheight; | |
3596 | |
3597 maxsubwidth = 0; | |
3598 maxheight = menu->count; | |
3599 for (i = 0; i < menu->count; i++) | |
3600 { | |
3601 if (menu->submenu[i]) | |
3602 { | |
3603 IT_menu_calc_size (menu->submenu[i], &w2, &h2); | |
3604 if (w2 > maxsubwidth) maxsubwidth = w2; | |
3605 if (i + h2 > maxheight) maxheight = i + h2; | |
3606 } | |
3607 } | |
3608 *width = menu->width + maxsubwidth; | |
3609 *height = maxheight; | |
3610 } | |
3611 | |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3612 /* 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
|
3613 |
9572 | 3614 static void |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3615 IT_menu_display (XMenu *menu, int y, int x, int pn, int *faces, int disp_help) |
9572 | 3616 { |
3617 int i, j, face, width; | |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
3618 struct glyph *text, *p; |
9572 | 3619 char *q; |
3620 int mx, my; | |
3621 int enabled, mousehere; | |
3622 int row, col; | |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
3623 struct frame *sf = SELECTED_FRAME(); |
9572 | 3624 |
27462
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3625 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
|
3626 |
9572 | 3627 width = menu->width; |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
3628 text = (struct glyph *) xmalloc ((width + 2) * sizeof (struct glyph)); |
9572 | 3629 ScreenGetCursor (&row, &col); |
3630 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
|
3631 IT_update_begin (sf); |
9572 | 3632 for (i = 0; i < menu->count; i++) |
3633 { | |
27409
4df4f3866b55
(IT_menu_display): Truncate long menu lines at the right
Eli Zaretskii <eliz@gnu.org>
parents:
27046
diff
changeset
|
3634 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
|
3635 |
13179 | 3636 IT_cursor_to (y + i, x); |
9572 | 3637 enabled |
3638 = (!menu->submenu[i] && menu->panenumber[i]) || (menu->submenu[i]); | |
3639 mousehere = (y + i == my && x <= mx && mx < x + width + 2); | |
3640 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
|
3641 /* 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
|
3642 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
|
3643 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
|
3644 { |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3645 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
|
3646 menu_help_paneno = pn - 1; |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3647 menu_help_itemno = i; |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3648 } |
9572 | 3649 p = text; |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
3650 SET_CHAR_GLYPH (*p, ' ', face, 0); |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
3651 p++; |
9572 | 3652 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
|
3653 { |
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3654 if (*q > 26) |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
3655 { |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
3656 SET_CHAR_GLYPH (*p, *q++, face, 0); |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
3657 p++; |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
3658 } |
15627
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3659 else /* make '^x' */ |
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3660 { |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
3661 SET_CHAR_GLYPH (*p, '^', face, 0); |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
3662 p++; |
15627
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3663 j++; |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
3664 SET_CHAR_GLYPH (*p, *q++ + 64, face, 0); |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
3665 p++; |
15627
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3666 } |
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3667 } |
27409
4df4f3866b55
(IT_menu_display): Truncate long menu lines at the right
Eli Zaretskii <eliz@gnu.org>
parents:
27046
diff
changeset
|
3668 /* 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
|
3669 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
|
3670 { |
4df4f3866b55
(IT_menu_display): Truncate long menu lines at the right
Eli Zaretskii <eliz@gnu.org>
parents:
27046
diff
changeset
|
3671 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
|
3672 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
|
3673 } |
4df4f3866b55
(IT_menu_display): Truncate long menu lines at the right
Eli Zaretskii <eliz@gnu.org>
parents:
27046
diff
changeset
|
3674 for (; j < max_width - 2; j++, p++) |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
3675 SET_CHAR_GLYPH (*p, ' ', face, 0); |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
3676 |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
3677 SET_CHAR_GLYPH (*p, menu->submenu[i] ? 16 : ' ', face, 0); |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
3678 p++; |
27409
4df4f3866b55
(IT_menu_display): Truncate long menu lines at the right
Eli Zaretskii <eliz@gnu.org>
parents:
27046
diff
changeset
|
3679 IT_write_glyphs (text, max_width); |
9572 | 3680 } |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
3681 IT_update_end (sf); |
13179 | 3682 IT_cursor_to (row, col); |
9572 | 3683 xfree (text); |
3684 } | |
13848
5f38596d591e
(have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
13744
diff
changeset
|
3685 |
5f38596d591e
(have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
13744
diff
changeset
|
3686 /* --------------------------- X Menu emulation ---------------------- */ |
9572 | 3687 |
13848
5f38596d591e
(have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
13744
diff
changeset
|
3688 /* Report availability of menus. */ |
5f38596d591e
(have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
13744
diff
changeset
|
3689 |
5f38596d591e
(have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
13744
diff
changeset
|
3690 int |
5f38596d591e
(have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
13744
diff
changeset
|
3691 have_menus_p () |
5f38596d591e
(have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
13744
diff
changeset
|
3692 { |
5f38596d591e
(have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
13744
diff
changeset
|
3693 return 1; |
5f38596d591e
(have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
13744
diff
changeset
|
3694 } |
13179 | 3695 |
9572 | 3696 /* 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
|
3697 |
9572 | 3698 XMenu * |
10501
19c4a9ef23e5
(XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3699 XMenuCreate (Display *foo1, Window foo2, char *foo3) |
9572 | 3700 { |
3701 return IT_menu_create (); | |
3702 } | |
3703 | |
3704 /* Create a new pane and place it on the outer-most level. It is not | |
3705 clear that it should be placed out there, but I don't know what else | |
3706 to do. */ | |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3707 |
9572 | 3708 int |
10501
19c4a9ef23e5
(XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3709 XMenuAddPane (Display *foo, XMenu *menu, char *txt, int enable) |
9572 | 3710 { |
3711 int len; | |
15627
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3712 char *p; |
9572 | 3713 |
3714 if (!enable) | |
3715 abort (); | |
3716 | |
3717 IT_menu_make_room (menu); | |
3718 menu->submenu[menu->count] = IT_menu_create (); | |
3719 menu->text[menu->count] = txt; | |
3720 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
|
3721 menu->help_text[menu->count] = NULL; |
9572 | 3722 menu->count++; |
15627
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3723 |
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3724 /* 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
|
3725 be written as ^x). */ |
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3726 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
|
3727 if (*p < 27) |
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3728 len++; |
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3729 |
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3730 if (len > menu->width) |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3731 menu->width = len; |
15627
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3732 |
9572 | 3733 return menu->panecount; |
3734 } | |
3735 | |
3736 /* 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
|
3737 |
9572 | 3738 int |
10501
19c4a9ef23e5
(XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3739 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
|
3740 int foo, char *txt, int enable, char *help_text) |
9572 | 3741 { |
3742 int len; | |
15627
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3743 char *p; |
9572 | 3744 |
3745 if (pane) | |
3746 if (!(menu = IT_menu_search_pane (menu, pane))) | |
3747 return XM_FAILURE; | |
3748 IT_menu_make_room (menu); | |
3749 menu->submenu[menu->count] = (XMenu *) 0; | |
3750 menu->text[menu->count] = txt; | |
3751 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
|
3752 menu->help_text[menu->count] = help_text; |
9572 | 3753 menu->count++; |
15627
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3754 |
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3755 /* 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
|
3756 be written as ^x). */ |
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3757 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
|
3758 if (*p < 27) |
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3759 len++; |
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3760 |
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3761 if (len > menu->width) |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3762 menu->width = len; |
15627
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3763 |
9572 | 3764 return XM_SUCCESS; |
3765 } | |
3766 | |
3767 /* 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
|
3768 |
10501
19c4a9ef23e5
(XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3769 void |
19c4a9ef23e5
(XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3770 XMenuLocate (Display *foo0, XMenu *menu, int foo1, int foo2, int x, int y, |
9572 | 3771 int *ulx, int *uly, int *width, int *height) |
3772 { | |
13714
45e71ea63d71
(XMenuActivate): Display the menu pane title.
Karl Heuer <kwzh@gnu.org>
parents:
13657
diff
changeset
|
3773 IT_menu_calc_size (menu, width, height); |
9572 | 3774 *ulx = x + 1; |
3775 *uly = y; | |
3776 *width += 2; | |
3777 } | |
3778 | |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3779 struct IT_menu_state |
9572 | 3780 { |
3781 void *screen_behind; | |
3782 XMenu *menu; | |
3783 int pane; | |
3784 int x, y; | |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3785 }; |
9572 | 3786 |
3787 | |
3788 /* 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
|
3789 |
9572 | 3790 int |
10501
19c4a9ef23e5
(XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3791 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
|
3792 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
|
3793 void (*help_callback)(char *, int, int)) |
9572 | 3794 { |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3795 struct IT_menu_state *state; |
9572 | 3796 int statecount; |
3797 int x, y, i, b; | |
3798 int screensize; | |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
3799 int faces[4]; |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
3800 Lisp_Object selectface; |
9572 | 3801 int leave, result, onepane; |
13860
659a54e026bb
(XMenuActivate): Make sure the menu title is always
Richard M. Stallman <rms@gnu.org>
parents:
13848
diff
changeset
|
3802 int title_faces[4]; /* face to display the menu title */ |
15387
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
3803 int 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
|
3804 struct frame *sf = SELECTED_FRAME(); |
30132
5d20e989c3d4
(XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents:
30050
diff
changeset
|
3805 Lisp_Object saved_echo_area_message; |
9572 | 3806 |
3807 /* 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
|
3808 if (have_mouse <= 0) |
9572 | 3809 return XM_IA_SELECT; |
16871
45a12f628d3f
* (XMenuActivate): Don't allow non-positive menu
Eli Zaretskii <eliz@gnu.org>
parents:
16837
diff
changeset
|
3810 /* 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
|
3811 around the display. */ |
45a12f628d3f
* (XMenuActivate): Don't allow non-positive menu
Eli Zaretskii <eliz@gnu.org>
parents:
16837
diff
changeset
|
3812 if (x0 <= 0) |
45a12f628d3f
* (XMenuActivate): Don't allow non-positive menu
Eli Zaretskii <eliz@gnu.org>
parents:
16837
diff
changeset
|
3813 x0 = 1; |
45a12f628d3f
* (XMenuActivate): Don't allow non-positive menu
Eli Zaretskii <eliz@gnu.org>
parents:
16837
diff
changeset
|
3814 if (y0 <= 0) |
45a12f628d3f
* (XMenuActivate): Don't allow non-positive menu
Eli Zaretskii <eliz@gnu.org>
parents:
16837
diff
changeset
|
3815 y0 = 1; |
9572 | 3816 |
23497
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3817 /* 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
|
3818 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
|
3819 mouse_preempted++; |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3820 |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3821 state = alloca (menu->panecount * sizeof (struct IT_menu_state)); |
13179 | 3822 screensize = screen_size * 2; |
9572 | 3823 faces[0] |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
3824 = lookup_derived_face (sf, intern ("msdos-menu-passive-face"), |
28227
4bba3027ae58
(XMenuActivate): Args to lookup_derived_face changed.
Kenichi Handa <handa@m17n.org>
parents:
28092
diff
changeset
|
3825 0, DEFAULT_FACE_ID); |
9572 | 3826 faces[1] |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
3827 = lookup_derived_face (sf, intern ("msdos-menu-active-face"), |
28227
4bba3027ae58
(XMenuActivate): Args to lookup_derived_face changed.
Kenichi Handa <handa@m17n.org>
parents:
28092
diff
changeset
|
3828 0, DEFAULT_FACE_ID); |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
3829 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
|
3830 faces[2] = lookup_derived_face (sf, selectface, |
28227
4bba3027ae58
(XMenuActivate): Args to lookup_derived_face changed.
Kenichi Handa <handa@m17n.org>
parents:
28092
diff
changeset
|
3831 0, faces[0]); |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
3832 faces[3] = lookup_derived_face (sf, selectface, |
28227
4bba3027ae58
(XMenuActivate): Args to lookup_derived_face changed.
Kenichi Handa <handa@m17n.org>
parents:
28092
diff
changeset
|
3833 0, faces[1]); |
9572 | 3834 |
13860
659a54e026bb
(XMenuActivate): Make sure the menu title is always
Richard M. Stallman <rms@gnu.org>
parents:
13848
diff
changeset
|
3835 /* 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
|
3836 `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
|
3837 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
|
3838 title_faces[i] = faces[3]; |
659a54e026bb
(XMenuActivate): Make sure the menu title is always
Richard M. Stallman <rms@gnu.org>
parents:
13848
diff
changeset
|
3839 |
9572 | 3840 statecount = 1; |
15387
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
3841 |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
3842 /* 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
|
3843 digit (which is ugly). |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
3844 |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
3845 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
|
3846 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
|
3847 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
|
3848 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
|
3849 { |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
3850 menu->text[0][7] = '\0'; |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
3851 buffers_num_deleted = 1; |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
3852 } |
30132
5d20e989c3d4
(XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents:
30050
diff
changeset
|
3853 |
5d20e989c3d4
(XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents:
30050
diff
changeset
|
3854 /* 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
|
3855 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
|
3856 before the call to message_with_string. */ |
5d20e989c3d4
(XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents:
30050
diff
changeset
|
3857 saved_echo_area_message = Fcurrent_message (); |
9572 | 3858 state[0].menu = menu; |
3859 mouse_off (); | |
3860 ScreenRetrieve (state[0].screen_behind = xmalloc (screensize)); | |
13714
45e71ea63d71
(XMenuActivate): Display the menu pane title.
Karl Heuer <kwzh@gnu.org>
parents:
13657
diff
changeset
|
3861 |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
3862 /* 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
|
3863 panes, which is ugly. */ |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
3864 IT_display_cursor (0); |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
3865 |
27462
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3866 /* Display the menu title. */ |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3867 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
|
3868 if (buffers_num_deleted) |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
3869 menu->text[0][7] = ' '; |
9572 | 3870 if ((onepane = menu->count == 1 && menu->submenu[0])) |
3871 { | |
3872 menu->width = menu->submenu[0]->width; | |
3873 state[0].menu = menu->submenu[0]; | |
3874 } | |
3875 else | |
3876 { | |
3877 state[0].menu = menu; | |
3878 } | |
3879 state[0].x = x0 - 1; | |
3880 state[0].y = y0; | |
3881 state[0].pane = onepane; | |
3882 | |
3883 mouse_last_x = -1; /* A hack that forces display. */ | |
3884 leave = 0; | |
3885 while (!leave) | |
3886 { | |
13179 | 3887 if (!mouse_visible) mouse_on (); |
9572 | 3888 mouse_check_moved (); |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
3889 if (sf->mouse_moved) |
9572 | 3890 { |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
3891 sf->mouse_moved = 0; |
9572 | 3892 result = XM_IA_SELECT; |
3893 mouse_get_xy (&x, &y); | |
3894 for (i = 0; i < statecount; i++) | |
3895 if (state[i].x <= x && x < state[i].x + state[i].menu->width + 2) | |
3896 { | |
3897 int dy = y - state[i].y; | |
3898 if (0 <= dy && dy < state[i].menu->count) | |
3899 { | |
3900 if (!state[i].menu->submenu[dy]) | |
3901 if (state[i].menu->panenumber[dy]) | |
3902 result = XM_SUCCESS; | |
3903 else | |
3904 result = XM_IA_SELECT; | |
3905 *pane = state[i].pane - 1; | |
3906 *selidx = dy; | |
14036 | 3907 /* We hit some part of a menu, so drop extra menus that |
9572 | 3908 have been opened. That does not include an open and |
3909 active submenu. */ | |
3910 if (i != statecount - 2 | |
3911 || state[i].menu->submenu[dy] != state[i+1].menu) | |
3912 while (i != statecount - 1) | |
3913 { | |
3914 statecount--; | |
3915 mouse_off (); | |
3916 ScreenUpdate (state[statecount].screen_behind); | |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
3917 if (screen_virtual_segment) |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
3918 dosv_refresh_virtual_screen (0, screen_size); |
9572 | 3919 xfree (state[statecount].screen_behind); |
3920 } | |
3921 if (i == statecount - 1 && state[i].menu->submenu[dy]) | |
3922 { | |
3923 IT_menu_display (state[i].menu, | |
3924 state[i].y, | |
3925 state[i].x, | |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3926 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
|
3927 faces, 1); |
9572 | 3928 state[statecount].menu = state[i].menu->submenu[dy]; |
3929 state[statecount].pane = state[i].menu->panenumber[dy]; | |
3930 mouse_off (); | |
3931 ScreenRetrieve (state[statecount].screen_behind | |
3932 = xmalloc (screensize)); | |
3933 state[statecount].x | |
3934 = state[i].x + state[i].menu->width + 2; | |
3935 state[statecount].y = y; | |
3936 statecount++; | |
3937 } | |
3938 } | |
3939 } | |
3940 IT_menu_display (state[statecount - 1].menu, | |
3941 state[statecount - 1].y, | |
3942 state[statecount - 1].x, | |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3943 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
|
3944 faces, 1); |
9572 | 3945 } |
23497
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3946 else |
27462
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3947 { |
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3948 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
|
3949 && 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
|
3950 { |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3951 help_callback (menu_help_message, |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3952 menu_help_paneno, menu_help_itemno); |
27640
4ce3be69ca1f
(XMenuActivate): Turn off the cursor after displaying
Eli Zaretskii <eliz@gnu.org>
parents:
27462
diff
changeset
|
3953 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
|
3954 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
|
3955 } |
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3956 /* 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
|
3957 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
|
3958 __dpmi_yield (); |
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3959 } |
23497
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3960 for (b = 0; b < mouse_button_count && !leave; b++) |
9572 | 3961 { |
23497
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3962 /* 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
|
3963 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
|
3964 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
|
3965 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
|
3966 { |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3967 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
|
3968 __dpmi_yield (); |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3969 leave = 1; |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3970 } |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3971 (void) mouse_released (b, &x, &y); |
9572 | 3972 } |
3973 } | |
3974 | |
3975 mouse_off (); | |
3976 ScreenUpdate (state[0].screen_behind); | |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
3977 if (screen_virtual_segment) |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
3978 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
|
3979 |
5d20e989c3d4
(XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents:
30050
diff
changeset
|
3980 /* 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
|
3981 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
|
3982 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
|
3983 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
|
3984 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
|
3985 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
|
3986 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
|
3987 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
|
3988 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
|
3989 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
|
3990 know about it. |
5d20e989c3d4
(XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents:
30050
diff
changeset
|
3991 |
5d20e989c3d4
(XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents:
30050
diff
changeset
|
3992 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
|
3993 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
|
3994 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
|
3995 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
|
3996 erasing it works correctly... */ |
5d20e989c3d4
(XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents:
30050
diff
changeset
|
3997 if (! NILP (saved_echo_area_message)) |
5d20e989c3d4
(XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents:
30050
diff
changeset
|
3998 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
|
3999 message (0); |
9572 | 4000 while (statecount--) |
4001 xfree (state[statecount].screen_behind); | |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
4002 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
|
4003 /* 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
|
4004 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
|
4005 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
|
4006 (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
|
4007 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
|
4008 discard_mouse_events (); |
30711 | 4009 mouse_clear_clicks (); |
4010 if (!kbd_buffer_events_waiting (1)) | |
4011 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
|
4012 /* 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
|
4013 mouse_preempted--; |
9572 | 4014 return result; |
4015 } | |
4016 | |
4017 /* Dispose of a menu. */ | |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
4018 |
10501
19c4a9ef23e5
(XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
4019 void |
19c4a9ef23e5
(XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
4020 XMenuDestroy (Display *foo, XMenu *menu) |
9572 | 4021 { |
4022 int i; | |
4023 if (menu->allocated) | |
4024 { | |
4025 for (i = 0; i < menu->count; i++) | |
4026 if (menu->submenu[i]) | |
10501
19c4a9ef23e5
(XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
4027 XMenuDestroy (foo, menu->submenu[i]); |
9572 | 4028 xfree (menu->text); |
4029 xfree (menu->submenu); | |
4030 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
|
4031 xfree (menu->help_text); |
9572 | 4032 } |
4033 xfree (menu); | |
27462
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
4034 menu_help_message = prev_menu_help_message = NULL; |
9572 | 4035 } |
4036 | |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
4037 int |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
4038 x_pixel_width (struct frame *f) |
9572 | 4039 { |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
4040 return FRAME_WIDTH (f); |
9572 | 4041 } |
4042 | |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
4043 int |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
4044 x_pixel_height (struct frame *f) |
9572 | 4045 { |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
4046 return FRAME_HEIGHT (f); |
9572 | 4047 } |
4048 #endif /* !HAVE_X_WINDOWS */ | |
13848
5f38596d591e
(have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
13744
diff
changeset
|
4049 |
13179 | 4050 /* ----------------------- DOS / UNIX conversion --------------------- */ |
4051 | |
15618
5da6a61ce827
(dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents:
15588
diff
changeset
|
4052 void msdos_downcase_filename (unsigned char *); |
5da6a61ce827
(dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents:
15588
diff
changeset
|
4053 |
13179 | 4054 /* Destructively turn backslashes into slashes. */ |
4055 | |
4056 void | |
4057 dostounix_filename (p) | |
4058 register char *p; | |
4059 { | |
15618
5da6a61ce827
(dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents:
15588
diff
changeset
|
4060 msdos_downcase_filename (p); |
5da6a61ce827
(dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents:
15588
diff
changeset
|
4061 |
13179 | 4062 while (*p) |
4063 { | |
4064 if (*p == '\\') | |
4065 *p = '/'; | |
4066 p++; | |
4067 } | |
4068 } | |
4069 | |
4070 /* Destructively turn slashes into backslashes. */ | |
4071 | |
4072 void | |
4073 unixtodos_filename (p) | |
4074 register char *p; | |
4075 { | |
15618
5da6a61ce827
(dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents:
15588
diff
changeset
|
4076 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
|
4077 { |
5da6a61ce827
(dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents:
15588
diff
changeset
|
4078 *p += 'a' - 'A'; |
5da6a61ce827
(dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents:
15588
diff
changeset
|
4079 p += 2; |
5da6a61ce827
(dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents:
15588
diff
changeset
|
4080 } |
5da6a61ce827
(dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents:
15588
diff
changeset
|
4081 |
13179 | 4082 while (*p) |
4083 { | |
4084 if (*p == '/') | |
4085 *p = '\\'; | |
4086 p++; | |
4087 } | |
4088 } | |
4089 | |
4090 /* Get the default directory for a given drive. 0=def, 1=A, 2=B, ... */ | |
4091 | |
4092 int | |
4093 getdefdir (drive, dst) | |
4094 int drive; | |
4095 char *dst; | |
4096 { | |
15125
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4097 char in_path[4], *p = in_path; |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4098 int e = errno; |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4099 |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4100 /* 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
|
4101 if (drive != 0) |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4102 { |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4103 *p++ = drive + 'A' - 1; |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4104 *p++ = ':'; |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4105 } |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4106 |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4107 *p++ = '.'; |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4108 *p = '\0'; |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4109 errno = 0; |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4110 _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
|
4111 /* _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
|
4112 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
|
4113 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
|
4114 return 0; |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4115 |
15219
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
4116 msdos_downcase_filename (dst); |
15125
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4117 |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4118 errno = e; |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4119 return 1; |
13179 | 4120 } |
4121 | |
42192
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
4122 char * |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
4123 emacs_root_dir (void) |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
4124 { |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
4125 static char root_dir[4]; |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
4126 |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
4127 sprintf (root_dir, "%c:/", 'A' + getdisk ()); |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
4128 root_dir[0] = tolower (root_dir[0]); |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
4129 return root_dir; |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
4130 } |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
4131 |
13179 | 4132 /* Remove all CR's that are followed by a LF. */ |
4133 | |
4134 int | |
4135 crlf_to_lf (n, buf) | |
4136 register int n; | |
4137 register unsigned char *buf; | |
4138 { | |
4139 unsigned char *np = buf; | |
4140 unsigned char *startp = buf; | |
4141 unsigned char *endp = buf + n; | |
4142 | |
4143 if (n == 0) | |
4144 return n; | |
4145 while (buf < endp - 1) | |
4146 { | |
4147 if (*buf == 0x0d) | |
4148 { | |
4149 if (*(++buf) != 0x0a) | |
4150 *np++ = 0x0d; | |
4151 } | |
4152 else | |
4153 *np++ = *buf++; | |
4154 } | |
4155 if (buf < endp) | |
4156 *np++ = *buf++; | |
4157 return np - startp; | |
4158 } | |
14999 | 4159 |
4160 #if defined(__DJGPP__) && __DJGPP__ == 2 && __DJGPP_MINOR__ == 0 | |
4161 | |
4162 /* In DJGPP v2.0, library `write' can call `malloc', which might | |
4163 cause relocation of the buffer whose address we get in ADDR. | |
4164 Here is a version of `write' that avoids calling `malloc', | |
4165 to serve us until such time as the library is fixed. | |
4166 Actually, what we define here is called `__write', because | |
4167 `write' is a stub that just jmp's to `__write' (to be | |
4168 POSIXLY-correct with respect to the global name-space). */ | |
4169 | |
4170 #include <io.h> /* for _write */ | |
4171 #include <libc/dosio.h> /* for __file_handle_modes[] */ | |
4172 | |
4173 static char xbuf[64 * 1024]; /* DOS cannot write more in one chunk */ | |
4174 | |
4175 #define XBUF_END (xbuf + sizeof (xbuf) - 1) | |
4176 | |
4177 int | |
4178 __write (int handle, const void *buffer, size_t count) | |
4179 { | |
4180 if (count == 0) | |
4181 return 0; | |
4182 | |
4183 if(__file_handle_modes[handle] & O_BINARY) | |
4184 return _write (handle, buffer, count); | |
4185 else | |
4186 { | |
4187 char *xbp = xbuf; | |
4188 const char *bp = buffer; | |
4189 int total_written = 0; | |
4190 int nmoved = 0, ncr = 0; | |
4191 | |
4192 while (count) | |
4193 { | |
4194 /* The next test makes sure there's space for at least 2 more | |
4195 characters in xbuf[], so both CR and LF can be put there. */ | |
4196 if (xbp < XBUF_END) | |
4197 { | |
4198 if (*bp == '\n') | |
4199 { | |
4200 ncr++; | |
4201 *xbp++ = '\r'; | |
4202 } | |
4203 *xbp++ = *bp++; | |
4204 nmoved++; | |
4205 count--; | |
4206 } | |
4207 if (xbp >= XBUF_END || !count) | |
4208 { | |
4209 size_t to_write = nmoved + ncr; | |
4210 int written = _write (handle, xbuf, to_write); | |
4211 | |
4212 if (written == -1) | |
4213 return -1; | |
4214 else | |
4215 total_written += nmoved; /* CRs aren't counted in ret value */ | |
4216 | |
4217 /* If some, but not all were written (disk full?), return | |
4218 an estimate of the total written bytes not counting CRs. */ | |
4219 if (written < to_write) | |
4220 return total_written - (to_write - written) * nmoved/to_write; | |
4221 | |
4222 nmoved = 0; | |
4223 ncr = 0; | |
4224 xbp = xbuf; | |
4225 } | |
4226 } | |
4227 return total_written; | |
4228 } | |
4229 } | |
4230 | |
16524
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4231 /* A low-level file-renaming function which works around Windows 95 bug. |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4232 This is pulled directly out of DJGPP v2.01 library sources, and only |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4233 used when you compile with DJGPP v2.0. */ |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4234 |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4235 #include <io.h> |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4236 |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4237 int _rename(const char *old, const char *new) |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4238 { |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4239 __dpmi_regs r; |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4240 int olen = strlen(old) + 1; |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4241 int i; |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4242 int use_lfn = _USE_LFN; |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4243 char tempfile[FILENAME_MAX]; |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4244 const char *orig = old; |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4245 int lfn_fd = -1; |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4246 |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4247 r.x.dx = __tb_offset; |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4248 r.x.di = __tb_offset + olen; |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4249 r.x.ds = r.x.es = __tb_segment; |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4250 |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4251 if (use_lfn) |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4252 { |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4253 /* Windows 95 bug: for some filenames, when you rename |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4254 file -> file~ (as in Emacs, to leave a backup), the |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4255 short 8+3 alias doesn't change, which effectively |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4256 makes OLD and NEW the same file. We must rename |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4257 through a temporary file to work around this. */ |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4258 |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4259 char *pbase = 0, *p; |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4260 static char try_char[] = "abcdefghijklmnopqrstuvwxyz012345789"; |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4261 int idx = sizeof(try_char) - 1; |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4262 |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4263 /* Generate a temporary name. Can't use `tmpnam', since $TMPDIR |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4264 might point to another drive, which will fail the DOS call. */ |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4265 strcpy(tempfile, old); |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4266 for (p = tempfile; *p; p++) /* ensure temporary is on the same drive */ |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4267 if (*p == '/' || *p == '\\' || *p == ':') |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4268 pbase = p; |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4269 if (pbase) |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4270 pbase++; |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4271 else |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4272 pbase = tempfile; |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4273 strcpy(pbase, "X$$djren$$.$$temp$$"); |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4274 |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4275 do |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4276 { |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4277 if (idx <= 0) |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4278 return -1; |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4279 *pbase = try_char[--idx]; |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4280 } while (_chmod(tempfile, 0) != -1); |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4281 |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4282 r.x.ax = 0x7156; |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4283 _put_path2(tempfile, olen); |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4284 _put_path(old); |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4285 __dpmi_int(0x21, &r); |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4286 if (r.x.flags & 1) |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4287 { |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4288 errno = __doserr_to_errno(r.x.ax); |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4289 return -1; |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4290 } |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4291 |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4292 /* Now create a file with the original name. This will |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4293 ensure that NEW will always have a 8+3 alias |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4294 different from that of OLD. (Seems to be required |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4295 when NameNumericTail in the Registry is set to 0.) */ |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4296 lfn_fd = _creat(old, 0); |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4297 |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4298 olen = strlen(tempfile) + 1; |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4299 old = tempfile; |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4300 r.x.di = __tb_offset + olen; |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4301 } |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4302 |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4303 for (i=0; i<2; i++) |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4304 { |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4305 if(use_lfn) |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4306 r.x.ax = 0x7156; |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4307 else |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4308 r.h.ah = 0x56; |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4309 _put_path2(new, olen); |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4310 _put_path(old); |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4311 __dpmi_int(0x21, &r); |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4312 if(r.x.flags & 1) |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4313 { |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4314 if (r.x.ax == 5 && i == 0) /* access denied */ |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4315 remove(new); /* and try again */ |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4316 else |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4317 { |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4318 errno = __doserr_to_errno(r.x.ax); |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4319 |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4320 /* Restore to original name if we renamed it to temporary. */ |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4321 if (use_lfn) |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4322 { |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4323 if (lfn_fd != -1) |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4324 { |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4325 _close (lfn_fd); |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4326 remove (orig); |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4327 } |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4328 _put_path2(orig, olen); |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4329 _put_path(tempfile); |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4330 r.x.ax = 0x7156; |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4331 __dpmi_int(0x21, &r); |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4332 } |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4333 return -1; |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4334 } |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4335 } |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4336 else |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4337 break; |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4338 } |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4339 |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4340 /* Success. Delete the file possibly created to work |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4341 around the Windows 95 bug. */ |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4342 if (lfn_fd != -1) |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4343 return (_close (lfn_fd) == 0) ? remove (orig) : -1; |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4344 return 0; |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4345 } |
84440bd95727
[__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents:
16310
diff
changeset
|
4346 |
14999 | 4347 #endif /* __DJGPP__ == 2 && __DJGPP_MINOR__ == 0 */ |
4348 | |
15174
08937f70419e
(Fmsdos_long_file_names): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15125
diff
changeset
|
4349 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
|
4350 0, 0, 0, |
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41406
diff
changeset
|
4351 doc: /* Return non-nil if long file names are supported on MSDOS. */) |
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41406
diff
changeset
|
4352 () |
15174
08937f70419e
(Fmsdos_long_file_names): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15125
diff
changeset
|
4353 { |
08937f70419e
(Fmsdos_long_file_names): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15125
diff
changeset
|
4354 return (_USE_LFN ? Qt : Qnil); |
08937f70419e
(Fmsdos_long_file_names): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15125
diff
changeset
|
4355 } |
15219
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
4356 |
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
4357 /* 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
|
4358 |
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
4359 void |
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
4360 msdos_downcase_filename (p) |
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
4361 register unsigned char *p; |
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
4362 { |
15588 | 4363 /* Always lower-case drive letters a-z, even if the filesystem |
4364 preserves case in filenames. | |
4365 This is so MSDOS filenames could be compared by string comparison | |
4366 functions that are case-sensitive. Even case-preserving filesystems | |
4367 do not distinguish case in drive letters. */ | |
4368 if (p[1] == ':' && *p >= 'A' && *p <= 'Z') | |
4369 { | |
4370 *p += 'a' - 'A'; | |
4371 p += 2; | |
4372 } | |
4373 | |
15219
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
4374 /* 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
|
4375 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
|
4376 for ( ; *p; p++) |
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
4377 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
|
4378 *p += 'a' - 'A'; |
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
4379 } |
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
4380 |
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
4381 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
|
4382 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
|
4383 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
|
4384 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
|
4385 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
|
4386 The argument object is never altered--the value is a copy. */) |
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41406
diff
changeset
|
4387 (filename) |
15219
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
4388 Lisp_Object filename; |
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
4389 { |
15222
cc264dd966cd
(Fmsdos_downcase_filename): Don't change the argument, return a copy.
Richard M. Stallman <rms@gnu.org>
parents:
15219
diff
changeset
|
4390 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
|
4391 |
cc264dd966cd
(Fmsdos_downcase_filename): Don't change the argument, return a copy.
Richard M. Stallman <rms@gnu.org>
parents:
15219
diff
changeset
|
4392 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
|
4393 return Qnil; |
cc264dd966cd
(Fmsdos_downcase_filename): Don't change the argument, return a copy.
Richard M. Stallman <rms@gnu.org>
parents:
15219
diff
changeset
|
4394 |
cc264dd966cd
(Fmsdos_downcase_filename): Don't change the argument, return a copy.
Richard M. Stallman <rms@gnu.org>
parents:
15219
diff
changeset
|
4395 tem = Fcopy_sequence (filename); |
cc264dd966cd
(Fmsdos_downcase_filename): Don't change the argument, return a copy.
Richard M. Stallman <rms@gnu.org>
parents:
15219
diff
changeset
|
4396 msdos_downcase_filename (XSTRING (tem)->data); |
cc264dd966cd
(Fmsdos_downcase_filename): Don't change the argument, return a copy.
Richard M. Stallman <rms@gnu.org>
parents:
15219
diff
changeset
|
4397 return tem; |
15219
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
4398 } |
13179 | 4399 |
4400 /* The Emacs root directory as determined by init_environment. */ | |
4401 | |
4402 static char emacsroot[MAXPATHLEN]; | |
4403 | |
4404 char * | |
4405 rootrelativepath (rel) | |
4406 char *rel; | |
4407 { | |
4408 static char result[MAXPATHLEN + 10]; | |
4409 | |
4410 strcpy (result, emacsroot); | |
4411 strcat (result, "/"); | |
4412 strcat (result, rel); | |
4413 return result; | |
4414 } | |
4415 | |
4416 /* Define a lot of environment variables if not already defined. Don't | |
4417 remove anything unless you know what you're doing -- lots of code will | |
4418 break if one or more of these are missing. */ | |
4419 | |
4420 void | |
4421 init_environment (argc, argv, skip_args) | |
4422 int argc; | |
4423 char **argv; | |
4424 int skip_args; | |
4425 { | |
4426 char *s, *t, *root; | |
4427 int len; | |
22054
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4428 static const char * const tempdirs[] = { |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4429 "$TMPDIR", "$TEMP", "$TMP", "c:/" |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4430 }; |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4431 int i; |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4432 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
|
4433 |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4434 /* 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
|
4435 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
|
4436 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
|
4437 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
|
4438 for (i = 0; i < imax ; i++) |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4439 { |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4440 const char *tmp = tempdirs[i]; |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4441 |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4442 if (*tmp == '$') |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4443 tmp = getenv (tmp + 1); |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4444 /* 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
|
4445 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
|
4446 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
|
4447 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
|
4448 if (tmp && access (tmp, D_OK) == 0) |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4449 { |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4450 setenv ("TMPDIR", tmp, 1); |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4451 break; |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4452 } |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4453 } |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4454 if (i >= imax) |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4455 cmd_error_internal |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4456 (Fcons (Qerror, |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4457 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
|
4458 Qnil)), |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4459 "While setting TMPDIR: "); |
13179 | 4460 |
23815
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
4461 /* 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
|
4462 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
|
4463 (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
|
4464 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
|
4465 startup_time = clock (); |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
4466 |
13179 | 4467 /* Find our root from argv[0]. Assuming argv[0] is, say, |
4468 "c:/emacs/bin/emacs.exe" our root will be "c:/emacs". */ | |
4469 root = alloca (MAXPATHLEN + 20); | |
4470 _fixpath (argv[0], root); | |
15618
5da6a61ce827
(dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents:
15588
diff
changeset
|
4471 msdos_downcase_filename (root); |
13179 | 4472 len = strlen (root); |
4473 while (len > 0 && root[len] != '/' && root[len] != ':') | |
4474 len--; | |
4475 root[len] = '\0'; | |
19295
812986c77ae2
(init_environment): Set Emacs root directory properly when
Richard M. Stallman <rms@gnu.org>
parents:
19293
diff
changeset
|
4476 if (len > 4 |
812986c77ae2
(init_environment): Set Emacs root directory properly when
Richard M. Stallman <rms@gnu.org>
parents:
19293
diff
changeset
|
4477 && (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
|
4478 || strcmp (root + len - 4, "/src") == 0)) /* under a debugger */ |
13179 | 4479 root[len - 4] = '\0'; |
4480 else | |
19295
812986c77ae2
(init_environment): Set Emacs root directory properly when
Richard M. Stallman <rms@gnu.org>
parents:
19293
diff
changeset
|
4481 strcpy (root, "c:/emacs"); /* let's be defensive */ |
13179 | 4482 len = strlen (root); |
4483 strcpy (emacsroot, root); | |
4484 | |
4485 /* We default HOME to our root. */ | |
4486 setenv ("HOME", root, 0); | |
4487 | |
4488 /* We default EMACSPATH to root + "/bin". */ | |
4489 strcpy (root + len, "/bin"); | |
4490 setenv ("EMACSPATH", root, 0); | |
4491 | |
4492 /* I don't expect anybody to ever use other terminals so the internal | |
4493 terminal is the default. */ | |
4494 setenv ("TERM", "internal", 0); | |
4495 | |
4496 #ifdef HAVE_X_WINDOWS | |
4497 /* Emacs expects DISPLAY to be set. */ | |
4498 setenv ("DISPLAY", "unix:0.0", 0); | |
4499 #endif | |
4500 | |
4501 /* SHELL is a bit tricky -- COMSPEC is the closest we come, but we must | |
4502 downcase it and mirror the backslashes. */ | |
4503 s = getenv ("COMSPEC"); | |
4504 if (!s) s = "c:/command.com"; | |
4505 t = alloca (strlen (s) + 1); | |
4506 strcpy (t, s); | |
4507 dostounix_filename (t); | |
4508 setenv ("SHELL", t, 0); | |
4509 | |
4510 /* PATH is also downcased and backslashes mirrored. */ | |
4511 s = getenv ("PATH"); | |
4512 if (!s) s = ""; | |
4513 t = alloca (strlen (s) + 3); | |
4514 /* Current directory is always considered part of MsDos's path but it is | |
4515 not normally mentioned. Now it is. */ | |
4516 strcat (strcpy (t, ".;"), s); | |
4517 dostounix_filename (t); /* Not a single file name, but this should work. */ | |
4518 setenv ("PATH", t, 1); | |
4519 | |
4520 /* In some sense all dos users have root privileges, so... */ | |
4521 setenv ("USER", "root", 0); | |
4522 setenv ("NAME", getenv ("USER"), 0); | |
4523 | |
4524 /* Time zone determined from country code. To make this possible, the | |
4525 country code may not span more than one time zone. In other words, | |
4526 in the USA, you lose. */ | |
13274 | 4527 if (!getenv ("TZ")) |
13179 | 4528 switch (dos_country_code) |
4529 { | |
4530 case 31: /* Belgium */ | |
4531 case 32: /* The Netherlands */ | |
4532 case 33: /* France */ | |
4533 case 34: /* Spain */ | |
4534 case 36: /* Hungary */ | |
4535 case 38: /* Yugoslavia (or what's left of it?) */ | |
4536 case 39: /* Italy */ | |
4537 case 41: /* Switzerland */ | |
4538 case 42: /* Tjekia */ | |
4539 case 45: /* Denmark */ | |
4540 case 46: /* Sweden */ | |
4541 case 47: /* Norway */ | |
4542 case 48: /* Poland */ | |
4543 case 49: /* Germany */ | |
4544 /* Daylight saving from last Sunday in March to last Sunday in | |
4545 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
|
4546 setenv ("TZ", "MET-01METDST-02,M3.5.0/02:00,M9.5.0/02:00", 0); |
13179 | 4547 break; |
4548 case 44: /* United Kingdom */ | |
4549 case 351: /* Portugal */ | |
4550 case 354: /* Iceland */ | |
13394
c4549fcdd5f3
(the_only_x_display): Type is now struct x_output.
Karl Heuer <kwzh@gnu.org>
parents:
13305
diff
changeset
|
4551 setenv ("TZ", "GMT+00", 0); |
13179 | 4552 break; |
4553 case 81: /* Japan */ | |
4554 case 82: /* Korea */ | |
13394
c4549fcdd5f3
(the_only_x_display): Type is now struct x_output.
Karl Heuer <kwzh@gnu.org>
parents:
13305
diff
changeset
|
4555 setenv ("TZ", "JST-09", 0); |
13179 | 4556 break; |
4557 case 90: /* Turkey */ | |
4558 case 358: /* Finland */ | |
13394
c4549fcdd5f3
(the_only_x_display): Type is now struct x_output.
Karl Heuer <kwzh@gnu.org>
parents:
13305
diff
changeset
|
4559 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
|
4560 break; |
13179 | 4561 case 972: /* Israel */ |
13394
c4549fcdd5f3
(the_only_x_display): Type is now struct x_output.
Karl Heuer <kwzh@gnu.org>
parents:
13305
diff
changeset
|
4562 /* 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
|
4563 `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
|
4564 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
|
4565 setenv ("TZ", "IST-02IDT-03,M4.1.6/00:00,M9.5.6/01:00", 0); |
13179 | 4566 break; |
4567 } | |
14974
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4568 tzset (); |
13179 | 4569 } |
4570 | |
4571 | |
4572 | |
4573 static int break_stat; /* BREAK check mode status. */ | |
4574 static int stdin_stat; /* stdin IOCTL status. */ | |
4575 | |
14974
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4576 #if __DJGPP__ < 2 |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4577 |
13179 | 4578 /* These must be global. */ |
4579 static _go32_dpmi_seginfo ctrl_break_vector; | |
4580 static _go32_dpmi_registers ctrl_break_regs; | |
4581 static int ctrlbreakinstalled = 0; | |
4582 | |
4583 /* Interrupt level detection of Ctrl-Break. Don't do anything fancy here! */ | |
4584 | |
4585 void | |
4586 ctrl_break_func (regs) | |
4587 _go32_dpmi_registers *regs; | |
4588 { | |
4589 Vquit_flag = Qt; | |
4590 } | |
4591 | |
4592 void | |
4593 install_ctrl_break_check () | |
4594 { | |
4595 if (!ctrlbreakinstalled) | |
4596 { | |
4597 /* Don't press Ctrl-Break if you don't have either DPMI or Emacs | |
4598 was compiler with Djgpp 1.11 maintenance level 5 or later! */ | |
4599 ctrlbreakinstalled = 1; | |
4600 ctrl_break_vector.pm_offset = (int) ctrl_break_func; | |
4601 _go32_dpmi_allocate_real_mode_callback_iret (&ctrl_break_vector, | |
4602 &ctrl_break_regs); | |
4603 _go32_dpmi_set_real_mode_interrupt_vector (0x1b, &ctrl_break_vector); | |
4604 } | |
4605 } | |
4606 | |
14974
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4607 #endif /* __DJGPP__ < 2 */ |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4608 |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
4609 /* 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
|
4610 control chars by DOS. Determine the keyboard type. */ |
13179 | 4611 |
4612 int | |
4613 dos_ttraw () | |
4614 { | |
4615 union REGS inregs, outregs; | |
4616 static int first_time = 1; | |
4617 | |
4618 break_stat = getcbrk (); | |
4619 setcbrk (0); | |
14974
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4620 #if __DJGPP__ < 2 |
13179 | 4621 install_ctrl_break_check (); |
14974
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4622 #endif |
13179 | 4623 |
4624 if (first_time) | |
4625 { | |
4626 inregs.h.ah = 0xc0; | |
4627 int86 (0x15, &inregs, &outregs); | |
4628 extended_kbd = (!outregs.x.cflag) && (outregs.h.ah == 0); | |
4629 | |
4630 have_mouse = 0; | |
4631 | |
4632 if (internal_terminal | |
4633 #ifdef HAVE_X_WINDOWS | |
4634 && inhibit_window_system | |
4635 #endif | |
4636 ) | |
4637 { | |
4638 inregs.x.ax = 0x0021; | |
4639 int86 (0x33, &inregs, &outregs); | |
4640 have_mouse = (outregs.x.ax & 0xffff) == 0xffff; | |
4641 if (!have_mouse) | |
4642 { | |
4643 /* Reportedly, the above doesn't work for some mouse drivers. There | |
4644 is an additional detection method that should work, but might be | |
4645 a little slower. Use that as an alternative. */ | |
4646 inregs.x.ax = 0x0000; | |
4647 int86 (0x33, &inregs, &outregs); | |
4648 have_mouse = (outregs.x.ax & 0xffff) == 0xffff; | |
4649 } | |
4650 | |
4651 if (have_mouse) | |
4652 { | |
4653 have_mouse = 1; /* enable mouse */ | |
4654 mouse_visible = 0; | |
30532
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
4655 mouse_setup_buttons (outregs.x.bx); |
13179 | 4656 mouse_position_hook = &mouse_get_pos; |
4657 mouse_init (); | |
4658 } | |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4659 |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4660 #ifndef HAVE_X_WINDOWS |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4661 #if __DJGPP__ >= 2 |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4662 /* Save the cursor shape used outside Emacs. */ |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4663 outside_cursor = _farpeekw (_dos_ds, 0x460); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4664 #endif |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4665 #endif |
13179 | 4666 } |
14974
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4667 |
13179 | 4668 first_time = 0; |
14974
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4669 |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4670 #if __DJGPP__ >= 2 |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4671 |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4672 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
|
4673 return (stdin_stat != -1); |
13179 | 4674 } |
14974
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4675 else |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4676 return (setmode (fileno (stdin), O_BINARY) != -1); |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4677 |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4678 #else /* __DJGPP__ < 2 */ |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4679 |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4680 } |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4681 |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4682 /* I think it is wrong to overwrite `stdin_stat' every time |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4683 but the first one this function is called, but I don't |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4684 want to change the way it used to work in v1.x.--EZ */ |
13179 | 4685 |
4686 inregs.x.ax = 0x4400; /* Get IOCTL status. */ | |
4687 inregs.x.bx = 0x00; /* 0 = stdin. */ | |
4688 intdos (&inregs, &outregs); | |
4689 stdin_stat = outregs.h.dl; | |
4690 | |
4691 inregs.x.dx = stdin_stat | 0x0020; /* raw mode */ | |
4692 inregs.x.ax = 0x4401; /* Set IOCTL status */ | |
4693 intdos (&inregs, &outregs); | |
4694 return !outregs.x.cflag; | |
14974
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4695 |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4696 #endif /* __DJGPP__ < 2 */ |
13179 | 4697 } |
4698 | |
4699 /* 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
|
4700 |
13179 | 4701 int |
4702 dos_ttcooked () | |
4703 { | |
4704 union REGS inregs, outregs; | |
4705 | |
4706 setcbrk (break_stat); | |
4707 mouse_off (); | |
4708 | |
14974
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4709 #if __DJGPP__ >= 2 |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4710 |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4711 #ifndef HAVE_X_WINDOWS |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4712 /* 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
|
4713 if (outside_cursor) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4714 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4715 inregs.h.ah = 1; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4716 inregs.x.cx = outside_cursor; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4717 int86 (0x10, &inregs, &outregs); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4718 } |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4719 #endif |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4720 |
14974
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4721 return (setmode (fileno (stdin), stdin_stat) != -1); |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4722 |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4723 #else /* not __DJGPP__ >= 2 */ |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4724 |
13179 | 4725 inregs.x.ax = 0x4401; /* Set IOCTL status. */ |
4726 inregs.x.bx = 0x00; /* 0 = stdin. */ | |
4727 inregs.x.dx = stdin_stat; | |
4728 intdos (&inregs, &outregs); | |
4729 return !outregs.x.cflag; | |
14974
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4730 |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4731 #endif /* not __DJGPP__ >= 2 */ |
13179 | 4732 } |
4733 | |
4734 | |
4735 /* 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
|
4736 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
|
4737 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
|
4738 |
13179 | 4739 int |
21693
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4740 run_msdos_command (argv, working_dir, tempin, tempout, temperr, envv) |
13179 | 4741 unsigned char **argv; |
21693
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4742 const char *working_dir; |
13718
e1b33f87545f
(run_msdos_command): Support redirection of stderr.
Karl Heuer <kwzh@gnu.org>
parents:
13717
diff
changeset
|
4743 int tempin, tempout, temperr; |
21693
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4744 char **envv; |
13179 | 4745 { |
21693
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4746 char *saveargv1, *saveargv2, *lowcase_argv0, *pa, *pl; |
13179 | 4747 char oldwd[MAXPATHLEN + 1]; /* Fixed size is safe on MSDOS. */ |
4748 int msshell, result = -1; | |
16915
8d28d96f6031
(run_msdos_command): Remove unused variables.
Eli Zaretskii <eliz@gnu.org>
parents:
16872
diff
changeset
|
4749 int inbak, outbak, errbak; |
13179 | 4750 int x, y; |
4751 Lisp_Object cmd; | |
4752 | |
4753 /* Get current directory as MSDOS cwd is not per-process. */ | |
4754 getwd (oldwd); | |
4755 | |
16310
c987c025d448
(run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents:
16210
diff
changeset
|
4756 /* 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
|
4757 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
|
4758 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
|
4759 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
|
4760 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
|
4761 { |
c987c025d448
(run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents:
16210
diff
changeset
|
4762 *pl = *pa++; |
c987c025d448
(run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents:
16210
diff
changeset
|
4763 if (*pl >= 'A' && *pl <= 'Z') |
c987c025d448
(run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents:
16210
diff
changeset
|
4764 *pl += 'a' - 'A'; |
c987c025d448
(run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents:
16210
diff
changeset
|
4765 } |
c987c025d448
(run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents:
16210
diff
changeset
|
4766 *pl = '\0'; |
c987c025d448
(run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents:
16210
diff
changeset
|
4767 |
c987c025d448
(run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents:
16210
diff
changeset
|
4768 cmd = Ffile_name_nondirectory (build_string (lowcase_argv0)); |
13179 | 4769 msshell = !NILP (Fmember (cmd, Fsymbol_value (intern ("msdos-shells")))) |
4770 && !strcmp ("-c", argv[1]); | |
4771 if (msshell) | |
4772 { | |
4773 saveargv1 = argv[1]; | |
4774 saveargv2 = argv[2]; | |
4775 argv[1] = "/c"; | |
30529
788ce16426e3
(run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents:
30381
diff
changeset
|
4776 /* 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
|
4777 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
|
4778 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
|
4779 if (argv[2] && argv[3]) |
13179 | 4780 { |
4781 char *p = alloca (strlen (argv[2]) + 1); | |
4782 | |
4783 strcpy (argv[2] = p, saveargv2); | |
4784 while (*p && isspace (*p)) | |
4785 p++; | |
30529
788ce16426e3
(run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents:
30381
diff
changeset
|
4786 while (*p) |
788ce16426e3
(run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents:
30381
diff
changeset
|
4787 { |
788ce16426e3
(run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents:
30381
diff
changeset
|
4788 if (*p == '/') |
788ce16426e3
(run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents:
30381
diff
changeset
|
4789 *p++ = '\\'; |
788ce16426e3
(run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents:
30381
diff
changeset
|
4790 else |
788ce16426e3
(run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents:
30381
diff
changeset
|
4791 p++; |
788ce16426e3
(run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents:
30381
diff
changeset
|
4792 } |
13179 | 4793 } |
4794 } | |
4795 | |
21693
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4796 chdir (working_dir); |
13179 | 4797 inbak = dup (0); |
4798 outbak = dup (1); | |
4799 errbak = dup (2); | |
4800 if (inbak < 0 || outbak < 0 || errbak < 0) | |
4801 goto done; /* Allocation might fail due to lack of descriptors. */ | |
4802 | |
4803 if (have_mouse > 0) | |
4804 mouse_get_xy (&x, &y); | |
4805 | |
4806 dos_ttcooked (); /* do it here while 0 = stdin */ | |
4807 | |
4808 dup2 (tempin, 0); | |
4809 dup2 (tempout, 1); | |
13718
e1b33f87545f
(run_msdos_command): Support redirection of stderr.
Karl Heuer <kwzh@gnu.org>
parents:
13717
diff
changeset
|
4810 dup2 (temperr, 2); |
13179 | 4811 |
15125
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4812 #if __DJGPP__ > 1 |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4813 |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4814 if (msshell && !argv[3]) |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4815 { |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4816 /* 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
|
4817 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
|
4818 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
|
4819 |
21693
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4820 const char *cmnd; |
15125
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4821 |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4822 /* 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
|
4823 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
|
4824 |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4825 /* 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
|
4826 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
|
4827 which will hang Emacs. */ |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4828 for (cmnd = saveargv2; *cmnd && isspace (*cmnd); cmnd++) |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4829 ; |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4830 if (*cmnd) |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4831 { |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4832 extern char **environ; |
30529
788ce16426e3
(run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents:
30381
diff
changeset
|
4833 char **save_env = environ; |
21693
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4834 int save_system_flags = __system_flags; |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4835 |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4836 /* 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
|
4837 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
|
4838 __system_flags = (__system_redirect |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4839 | __system_use_shell |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4840 | __system_allow_multiple_cmds |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4841 | __system_allow_long_cmds |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4842 | __system_handle_null_commands |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4843 | __system_emulate_chdir); |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4844 |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4845 environ = envv; |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4846 result = system (cmnd); |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4847 __system_flags = save_system_flags; |
30529
788ce16426e3
(run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents:
30381
diff
changeset
|
4848 environ = save_env; |
21693
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4849 } |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4850 else |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4851 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
|
4852 } |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4853 else |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4854 |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4855 #endif /* __DJGPP__ > 1 */ |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4856 |
13179 | 4857 result = spawnve (P_WAIT, argv[0], argv, envv); |
4858 | |
4859 dup2 (inbak, 0); | |
4860 dup2 (outbak, 1); | |
4861 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
|
4862 emacs_close (inbak); |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25214
diff
changeset
|
4863 emacs_close (outbak); |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25214
diff
changeset
|
4864 emacs_close (errbak); |
13179 | 4865 |
13274 | 4866 dos_ttraw (); |
13179 | 4867 if (have_mouse > 0) |
4868 { | |
4869 mouse_init (); | |
4870 mouse_moveto (x, y); | |
4871 } | |
16837
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
4872 |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
4873 /* 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
|
4874 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
|
4875 bright background colors. Restore that. */ |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
4876 bright_bg (); |
13179 | 4877 |
4878 done: | |
4879 chdir (oldwd); | |
4880 if (msshell) | |
4881 { | |
4882 argv[1] = saveargv1; | |
4883 argv[2] = saveargv2; | |
4884 } | |
4885 return result; | |
4886 } | |
4887 | |
4888 croak (badfunc) | |
4889 char *badfunc; | |
4890 { | |
4891 fprintf (stderr, "%s not yet implemented\r\n", badfunc); | |
4892 reset_sys_modes (); | |
4893 exit (1); | |
4894 } | |
13848
5f38596d591e
(have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
13744
diff
changeset
|
4895 |
14974
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4896 #if __DJGPP__ < 2 |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4897 |
13179 | 4898 /* ------------------------- Compatibility functions ------------------- |
4899 * gethostname | |
4900 * gettimeofday | |
4901 */ | |
4902 | |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
4903 /* Hostnames for a pc are not really funny, |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
4904 but they are used in change log so we emulate the best we can. */ |
13179 | 4905 |
4906 gethostname (p, size) | |
4907 char *p; | |
4908 int size; | |
4909 { | |
4910 char *q = egetenv ("HOSTNAME"); | |
4911 | |
4912 if (!q) q = "pc"; | |
4913 strcpy (p, q); | |
4914 return 0; | |
4915 } | |
4916 | |
13394
c4549fcdd5f3
(the_only_x_display): Type is now struct x_output.
Karl Heuer <kwzh@gnu.org>
parents:
13305
diff
changeset
|
4917 /* When time zones are set from Ms-Dos too many C-libraries are playing |
13179 | 4918 tricks with time values. We solve this by defining our own version |
4919 of `gettimeofday' bypassing GO32. Our version needs to be initialized | |
4920 once and after each call to `tzset' with TZ changed. That is | |
4921 accomplished by aliasing tzset to init_gettimeofday. */ | |
4922 | |
4923 static struct tm time_rec; | |
4924 | |
4925 int | |
4926 gettimeofday (struct timeval *tp, struct timezone *tzp) | |
4927 { | |
4928 if (tp) | |
4929 { | |
4930 struct time t; | |
4931 struct tm tm; | |
4932 | |
4933 gettime (&t); | |
4934 if (t.ti_hour < time_rec.tm_hour) /* midnight wrap */ | |
4935 { | |
4936 struct date d; | |
4937 getdate (&d); | |
4938 time_rec.tm_year = d.da_year - 1900; | |
4939 time_rec.tm_mon = d.da_mon - 1; | |
4940 time_rec.tm_mday = d.da_day; | |
4941 } | |
4942 | |
4943 time_rec.tm_hour = t.ti_hour; | |
4944 time_rec.tm_min = t.ti_min; | |
4945 time_rec.tm_sec = t.ti_sec; | |
4946 | |
4947 tm = time_rec; | |
4948 tm.tm_gmtoff = dos_timezone_offset; | |
4949 | |
4950 tp->tv_sec = mktime (&tm); /* may modify tm */ | |
4951 tp->tv_usec = t.ti_hund * (1000000 / 100); | |
4952 } | |
4953 /* Ignore tzp; it's obsolescent. */ | |
4954 return 0; | |
4955 } | |
4956 | |
14974
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4957 #endif /* __DJGPP__ < 2 */ |
13179 | 4958 |
4959 /* | |
4960 * A list of unimplemented functions that we silently ignore. | |
4961 */ | |
4962 | |
14974
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4963 #if __DJGPP__ < 2 |
13179 | 4964 unsigned alarm (s) unsigned s; {} |
4965 fork () { return 0; } | |
4966 int kill (x, y) int x, y; { return -1; } | |
4967 nice (p) int p; {} | |
4968 void volatile pause () {} | |
14974
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4969 sigsetmask (x) int x; { return 0; } |
16872
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4970 sigblock (mask) int mask; { return 0; } |
14974
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4971 #endif |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4972 |
21415
e6d49d55ea7e
(request_sigio, unrequest_sigio): Make consistent with
Karl Heuer <kwzh@gnu.org>
parents:
20240
diff
changeset
|
4973 void request_sigio (void) {} |
13179 | 4974 setpgrp () {return 0; } |
4975 setpriority (x,y,z) int x,y,z; { return 0; } | |
21415
e6d49d55ea7e
(request_sigio, unrequest_sigio): Make consistent with
Karl Heuer <kwzh@gnu.org>
parents:
20240
diff
changeset
|
4976 void unrequest_sigio (void) {} |
16872
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4977 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4978 #if __DJGPP__ > 1 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4979 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4980 #ifdef POSIX_SIGNALS |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4981 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4982 /* 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
|
4983 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
|
4984 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4985 #include <libc/bss.h> |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4986 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4987 /* 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
|
4988 static int sigprocmask_count = -1; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4989 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4990 /* Which signals are currently blocked (initially none). */ |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4991 static sigset_t current_mask; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4992 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4993 /* Which signals are pending (initially none). */ |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4994 static sigset_t pending_signals; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4995 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4996 /* 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
|
4997 typedef void (*sighandler_t)(int); |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4998 static sighandler_t prev_handlers[320]; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4999 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5000 /* A signal handler which just records that a signal occured |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5001 (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
|
5002 static void |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5003 sig_suspender (signo) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5004 int signo; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5005 { |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5006 sigaddset (&pending_signals, signo); |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5007 } |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5008 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5009 int |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5010 sigprocmask (how, new_set, old_set) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5011 int how; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5012 const sigset_t *new_set; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5013 sigset_t *old_set; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5014 { |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5015 int signo; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5016 sigset_t new_mask; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5017 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5018 /* If called for the first time, initialize. */ |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5019 if (sigprocmask_count != __bss_count) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5020 { |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5021 sigprocmask_count = __bss_count; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5022 sigemptyset (&pending_signals); |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5023 sigemptyset (¤t_mask); |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5024 for (signo = 0; signo < 320; signo++) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5025 prev_handlers[signo] = SIG_ERR; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5026 } |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5027 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5028 if (old_set) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5029 *old_set = current_mask; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5030 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5031 if (new_set == 0) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5032 return 0; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5033 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5034 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
|
5035 { |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5036 errno = EINVAL; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5037 return -1; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5038 } |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5039 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5040 sigemptyset (&new_mask); |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5041 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5042 /* DJGPP supports upto 320 signals. */ |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5043 for (signo = 0; signo < 320; signo++) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5044 { |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5045 if (sigismember (¤t_mask, signo)) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5046 sigaddset (&new_mask, signo); |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5047 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
|
5048 { |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5049 sigaddset (&new_mask, signo); |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5050 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5051 /* SIGKILL is silently ignored, as on other platforms. */ |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5052 if (signo != SIGKILL && prev_handlers[signo] == SIG_ERR) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5053 prev_handlers[signo] = signal (signo, sig_suspender); |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5054 } |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5055 if (( how == SIG_UNBLOCK |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5056 && sigismember (&new_mask, signo) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5057 && sigismember (new_set, signo)) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5058 || (how == SIG_SETMASK |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5059 && sigismember (&new_mask, signo) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5060 && !sigismember (new_set, signo))) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5061 { |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5062 sigdelset (&new_mask, signo); |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5063 if (prev_handlers[signo] != SIG_ERR) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5064 { |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5065 signal (signo, prev_handlers[signo]); |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5066 prev_handlers[signo] = SIG_ERR; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5067 } |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5068 if (sigismember (&pending_signals, signo)) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5069 { |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5070 sigdelset (&pending_signals, signo); |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5071 raise (signo); |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5072 } |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5073 } |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5074 } |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5075 current_mask = new_mask; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5076 return 0; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5077 } |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5078 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5079 #else /* not POSIX_SIGNALS */ |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5080 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5081 sigsetmask (x) int x; { return 0; } |
14262
ef10a42c21f4
(sigblock): New (dummy) function.
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
5082 sigblock (mask) int mask; { return 0; } |
16872
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5083 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5084 #endif /* not POSIX_SIGNALS */ |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
5085 #endif /* __DJGPP__ > 1 */ |
13179 | 5086 |
5087 #ifndef HAVE_SELECT | |
5088 #include "sysselect.h" | |
5089 | |
14279
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
5090 #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
|
5091 #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
|
5092 ((long)(time).tv_sec < 0 \ |
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
5093 || ((time).tv_sec == 0 \ |
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
5094 && (long)(time).tv_usec <= 0)) |
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
5095 #endif |
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
5096 |
22481
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
5097 /* 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
|
5098 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
|
5099 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
|
5100 |
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
5101 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
|
5102 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
|
5103 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
|
5104 |
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
5105 void |
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
5106 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
|
5107 { |
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
5108 _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
|
5109 |
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
5110 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
|
5111 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
|
5112 _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
|
5113 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
|
5114 errno = ENOSYS; |
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
5115 } |
14279
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
5116 |
13179 | 5117 /* Only event queue is checked. */ |
14999 | 5118 /* We don't have to call timer_check here |
5119 because wait_reading_process_input takes care of that. */ | |
13179 | 5120 int |
5121 sys_select (nfds, rfds, wfds, efds, timeout) | |
5122 int nfds; | |
5123 SELECT_TYPE *rfds, *wfds, *efds; | |
5124 EMACS_TIME *timeout; | |
5125 { | |
5126 int check_input; | |
5127 struct time t; | |
5128 | |
5129 check_input = 0; | |
5130 if (rfds) | |
5131 { | |
5132 check_input = FD_ISSET (0, rfds); | |
5133 FD_ZERO (rfds); | |
5134 } | |
5135 if (wfds) | |
5136 FD_ZERO (wfds); | |
5137 if (efds) | |
5138 FD_ZERO (efds); | |
5139 | |
5140 if (nfds != 1) | |
5141 abort (); | |
5142 | |
5143 /* If we are looking only for the terminal, with no timeout, | |
5144 just read it and wait -- that's more efficient. */ | |
5145 if (!timeout) | |
5146 { | |
15033
9e174c2b4ba6
(check_timer): Removed; use gettime instead.
Richard M. Stallman <rms@gnu.org>
parents:
14999
diff
changeset
|
5147 while (!detect_input_pending ()) |
9e174c2b4ba6
(check_timer): Removed; use gettime instead.
Richard M. Stallman <rms@gnu.org>
parents:
14999
diff
changeset
|
5148 { |
22481
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
5149 dos_yield_time_slice (); |
15033
9e174c2b4ba6
(check_timer): Removed; use gettime instead.
Richard M. Stallman <rms@gnu.org>
parents:
14999
diff
changeset
|
5150 } |
13179 | 5151 } |
5152 else | |
5153 { | |
14279
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
5154 EMACS_TIME clnow, cllast, cldiff; |
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
5155 |
15033
9e174c2b4ba6
(check_timer): Removed; use gettime instead.
Richard M. Stallman <rms@gnu.org>
parents:
14999
diff
changeset
|
5156 gettime (&t); |
14279
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
5157 EMACS_SET_SECS_USECS (cllast, t.ti_sec, t.ti_hund * 10000L); |
13179 | 5158 |
5159 while (!check_input || !detect_input_pending ()) | |
5160 { | |
15033
9e174c2b4ba6
(check_timer): Removed; use gettime instead.
Richard M. Stallman <rms@gnu.org>
parents:
14999
diff
changeset
|
5161 gettime (&t); |
14279
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
5162 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
|
5163 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
|
5164 |
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
5165 /* 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
|
5166 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
|
5167 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
|
5168 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
|
5169 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
|
5170 |
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
5171 /* 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
|
5172 if (EMACS_TIME_ZERO_OR_NEG_P (*timeout)) |
13179 | 5173 return 0; |
5174 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
|
5175 dos_yield_time_slice (); |
13179 | 5176 } |
5177 } | |
5178 | |
5179 FD_SET (0, rfds); | |
5180 return 1; | |
5181 } | |
5182 #endif | |
5183 | |
5184 /* | |
14036 | 5185 * Define overlaid functions: |
13179 | 5186 * |
5187 * chdir -> sys_chdir | |
5188 * tzset -> init_gettimeofday | |
5189 * abort -> dos_abort | |
5190 */ | |
5191 | |
5192 #ifdef chdir | |
5193 #undef chdir | |
5194 extern int chdir (); | |
5195 | |
5196 int | |
5197 sys_chdir (path) | |
5198 const char* path; | |
5199 { | |
5200 int len = strlen (path); | |
5201 char *tmp = (char *)path; | |
5202 | |
5203 if (*tmp && tmp[1] == ':') | |
5204 { | |
5205 if (getdisk () != tolower (tmp[0]) - 'a') | |
5206 setdisk (tolower (tmp[0]) - 'a'); | |
5207 tmp += 2; /* strip drive: KFS 1995-07-06 */ | |
5208 len -= 2; | |
5209 } | |
5210 | |
5211 if (len > 1 && (tmp[len - 1] == '/')) | |
5212 { | |
5213 char *tmp1 = (char *) alloca (len + 1); | |
5214 strcpy (tmp1, tmp); | |
5215 tmp1[len - 1] = 0; | |
5216 tmp = tmp1; | |
5217 } | |
5218 return chdir (tmp); | |
5219 } | |
5220 #endif | |
5221 | |
5222 #ifdef tzset | |
5223 #undef tzset | |
5224 extern void tzset (void); | |
5225 | |
5226 void | |
5227 init_gettimeofday () | |
5228 { | |
5229 time_t ltm, gtm; | |
5230 struct tm *lstm; | |
5231 | |
5232 tzset (); | |
5233 ltm = gtm = time (NULL); | |
5234 ltm = mktime (lstm = localtime (<m)); | |
5235 gtm = mktime (gmtime (>m)); | |
5236 time_rec.tm_hour = 99; /* force gettimeofday to get date */ | |
5237 time_rec.tm_isdst = lstm->tm_isdst; | |
5238 dos_timezone_offset = time_rec.tm_gmtoff = (int)(gtm - ltm) / 60; | |
5239 } | |
5240 #endif | |
5241 | |
5242 #ifdef abort | |
5243 #undef abort | |
5244 void | |
5245 dos_abort (file, line) | |
5246 char *file; | |
5247 int line; | |
5248 { | |
5249 char buffer1[200], buffer2[400]; | |
5250 int i, j; | |
5251 | |
5252 sprintf (buffer1, "<EMACS FATAL ERROR IN %s LINE %d>", file, line); | |
5253 for (i = j = 0; buffer1[i]; i++) { | |
5254 buffer2[j++] = buffer1[i]; | |
5255 buffer2[j++] = 0x70; | |
5256 } | |
5257 dosmemput (buffer2, j, (int)ScreenPrimary); | |
5258 ScreenSetCursor (2, 0); | |
5259 abort (); | |
5260 } | |
13744
120c884de8a2
(check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents:
13718
diff
changeset
|
5261 #else |
120c884de8a2
(check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents:
13718
diff
changeset
|
5262 void |
120c884de8a2
(check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents:
13718
diff
changeset
|
5263 abort () |
120c884de8a2
(check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents:
13718
diff
changeset
|
5264 { |
120c884de8a2
(check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents:
13718
diff
changeset
|
5265 dos_ttcooked (); |
120c884de8a2
(check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents:
13718
diff
changeset
|
5266 ScreenSetCursor (10, 0); |
120c884de8a2
(check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents:
13718
diff
changeset
|
5267 cputs ("\r\n\nEmacs aborted!\r\n"); |
14999 | 5268 #if __DJGPP__ > 1 |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
5269 #if __DJGPP__ == 2 && __DJGPP_MINOR__ < 2 |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
5270 if (screen_virtual_segment) |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
5271 dosv_refresh_virtual_screen (2 * 10 * screen_size_X, 4 * screen_size_X); |
14999 | 5272 /* Generate traceback, so we could tell whodunit. */ |
5273 signal (SIGINT, SIG_DFL); | |
5274 __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
|
5275 #else /* __DJGPP_MINOR__ >= 2 */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
5276 raise (SIGABRT); |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
5277 #endif /* __DJGPP_MINOR__ >= 2 */ |
14999 | 5278 #endif |
13744
120c884de8a2
(check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents:
13718
diff
changeset
|
5279 exit (2); |
120c884de8a2
(check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents:
13718
diff
changeset
|
5280 } |
13179 | 5281 #endif |
5282 | |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
5283 /* The following variables are required so that cus-start.el won't |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
5284 complain about unbound variables. */ |
19334
c7cec07cb0e0
(syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents:
19295
diff
changeset
|
5285 #ifndef HAVE_X_WINDOWS |
c7cec07cb0e0
(syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents:
19295
diff
changeset
|
5286 /* Search path for bitmap files (xfns.c). */ |
c7cec07cb0e0
(syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents:
19295
diff
changeset
|
5287 Lisp_Object Vx_bitmap_file_path; |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
5288 int x_stretch_cursor_p; |
19334
c7cec07cb0e0
(syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents:
19295
diff
changeset
|
5289 #endif |
c7cec07cb0e0
(syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents:
19295
diff
changeset
|
5290 #ifndef subprocesses |
c7cec07cb0e0
(syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents:
19295
diff
changeset
|
5291 /* Nonzero means delete a process right away if it exits (process.c). */ |
c7cec07cb0e0
(syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents:
19295
diff
changeset
|
5292 static int delete_exited_processes; |
c7cec07cb0e0
(syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents:
19295
diff
changeset
|
5293 #endif |
c7cec07cb0e0
(syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents:
19295
diff
changeset
|
5294 |
13305
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
5295 syms_of_msdos () |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
5296 { |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
5297 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
|
5298 staticpro (&recent_doskeys); |
19334
c7cec07cb0e0
(syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents:
19295
diff
changeset
|
5299 #ifndef HAVE_X_WINDOWS |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
5300 help_echo = Qnil; |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
5301 staticpro (&help_echo); |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
5302 help_echo_object = Qnil; |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
5303 staticpro (&help_echo_object); |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
5304 help_echo_window = Qnil; |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
5305 staticpro (&help_echo_window); |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
5306 previous_help_echo = Qnil; |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
5307 staticpro (&previous_help_echo); |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
5308 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
|
5309 |
19334
c7cec07cb0e0
(syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents:
19295
diff
changeset
|
5310 DEFVAR_LISP ("x-bitmap-file-path", &Vx_bitmap_file_path, |
41940
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41406
diff
changeset
|
5311 doc: /* List of directories to search for bitmap files for X. */); |
19334
c7cec07cb0e0
(syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents:
19295
diff
changeset
|
5312 Vx_bitmap_file_path = decode_env_path ((char *) 0, "."); |
19864
44dcf37ec345
(syms_of_msdos): Intern background-color and
Richard M. Stallman <rms@gnu.org>
parents:
19603
diff
changeset
|
5313 |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
5314 DEFVAR_BOOL ("x-stretch-cursor", &x_stretch_cursor_p, |
41940
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41406
diff
changeset
|
5315 doc: /* *Non-nil means draw block cursor as wide as the glyph under it. |
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41406
diff
changeset
|
5316 For example, if a block cursor is over a tab, it will be drawn as |
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41406
diff
changeset
|
5317 wide as that tab on the display. (No effect on MS-DOS.) */); |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
5318 x_stretch_cursor_p = 0; |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
5319 |
32271
4ff70fe0d99b
(top-level) <Qbackground_color, Qforeground_color>: Make
Eli Zaretskii <eliz@gnu.org>
parents:
30840
diff
changeset
|
5320 /* 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
|
5321 Qbar = intern ("bar"); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
5322 staticpro (&Qbar); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
5323 Qcursor_type = intern ("cursor-type"); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
5324 staticpro (&Qcursor_type); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
5325 Qreverse = intern ("reverse"); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
5326 staticpro (&Qreverse); |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
5327 |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
5328 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
|
5329 doc: /* *Glyph to display instead of chars not supported by current codepage. |
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41406
diff
changeset
|
5330 |
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41406
diff
changeset
|
5331 This variable is used only by MSDOS terminals. */); |
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41406
diff
changeset
|
5332 Vdos_unsupported_char_glyph = '\177'; |
19334
c7cec07cb0e0
(syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents:
19295
diff
changeset
|
5333 #endif |
c7cec07cb0e0
(syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents:
19295
diff
changeset
|
5334 #ifndef subprocesses |
c7cec07cb0e0
(syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents:
19295
diff
changeset
|
5335 DEFVAR_BOOL ("delete-exited-processes", &delete_exited_processes, |
41940
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41406
diff
changeset
|
5336 doc: /* *Non-nil means delete processes immediately when they exit. |
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41406
diff
changeset
|
5337 nil means don't delete them until `list-processes' is run. */); |
19334
c7cec07cb0e0
(syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents:
19295
diff
changeset
|
5338 delete_exited_processes = 0; |
c7cec07cb0e0
(syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents:
19295
diff
changeset
|
5339 #endif |
13305
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
5340 |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
5341 defsubr (&Srecent_doskeys); |
15186
242bddc25e5a
(syms_of_msdos): Fix typo.
Richard M. Stallman <rms@gnu.org>
parents:
15174
diff
changeset
|
5342 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
|
5343 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
|
5344 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
|
5345 defsubr (&Smsdos_set_mouse_buttons); |
13305
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
5346 } |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
5347 |
5503 | 5348 #endif /* MSDOS */ |
21693
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
5349 |